arianygatinha1981
Novato
Registrado: Quarta-Feira, 13 de Agosto de 2014
Mensagens: 27
Localização: Blumenau - SC
|
 Enviada: Sex Ago 29, 2014 3:02 pm Assunto: ACbr ECF - Impressora Bematech não responde (ACK = 0) |
 |
|
Pessoal, acontece isso toda hora quando faço a chamada no método VendeItem. Eu recebo a seguinte exceção;
| Citação: | | Impressora Bematech não responde (ACK = 0) |
E quando vou olhar lá no emulador o mesmo item foi inserido 2 vezes. Por que acontece isso?
Meu código tá simples, conforme segue abaixo;
| Código: | procedure TfrmPrincipal.VendeItem;
var CodigoBarrasProduto: String;
begin
if not VendaAberta then
AbreVenda;
CodigoBarrasProduto := pnlCodigoBarras.Caption;
pnlCodigoBarras.Caption := '';
if VendaAberta then
if LocalizaProduto(CodigoBarrasProduto) then
begin
ICMSProduto := 'II'; //TESTE ISENTO
DM.ECF.VendeItem(CodigoBarrasProduto, DescricaoProduto,
ICMSProduto, Quantidade, ValorUnitario, 0, UnidadeMedida);
Inc(Numero_Item);
qryItensVenda.Append;
qryItensVendaidcartao.AsInteger := 0;
qryItensVendaidproduto.AsInteger := IdProduto;
qryItensVendaquantidade.AsFloat := Quantidade;
qryItensVendavalor_unitario.AsCurrency := ValorUnitario;
qryItensVendavalor_total.AsCurrency := (ValorUnitario * qryItensVendaquantidade.AsFloat);
qryItensVendausuario_inserir.AsInteger := UsuarioLogado.usuario_id;
qryItensVendastatus.AsInteger := 0;
qryItensVendadata.AsDateTime := Now;
qryItensVendanumero_venda.AsInteger := Numero_Venda;
qryItensVendaitem.AsInteger := Numero_Item;
qryItensVenda.Post;
qryItensVenda.Requery([]);
qryItensVenda.Last;
ExibeTotalVenda;
Quantidade := 1;
lblQuantidadeExibe.Caption := '';
lblQuantidadeExibe.Visible := False;
end;
end; |
Alguém já passou por isso? |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
