joaovmf

procedure TfPdv.ACBrECFVirtualSAT1QuandoCancelarCupom( const NumCOOCancelar: Integer; CupomVirtual: TACBrECFVirtualClassCupom; var PermiteCancelamento: Boolean); var vItemCupom : TACBrECFVirtualClassItemCupom; vsAliq : string; viSeq : integer; Aliq : TACBrECFAliquota; FormaPag : TACBrECFFormaPagamento; begin inherited; with MontaSQL(dmPDv.dbPDV,'select * from itensvendaecf where gidecf="'+GidECF+'" and cancelado=0') do try if NumCooCancelar = stoi(FieldbyName('num_coo').AsString) then exit; CupomVirtual.Clear; viSeq := 0; while not eof do begin inc(viSeq); vsAliq := copy(fieldByName('totalizador').AsString,1,2); if Pos(Copy(vsAliq,1,1),'FIN') > 0 then vsAliq := Copy(vsAliq,1,1) + '1'; Aliq := ACBrECF1.AchaICMSIndice(vsAliq); CupomVirtual.VendeItem(FieldByName('codbarras').AsString, FieldByName('descricao').AsString, FieldByName('quantidade').AsFloat, FieldbyName('unitario').AsFloat, FieldbyName('desconto').AsFloat * (-1), Aliq, fieldbyName('unidade').AsString, 0); next; end; finally close; free; end; // Pagamentos with MontaSQL(dmPDV.dbPDV,'select pagamento_ecf.valor,formapagamento.codigoecf '+ 'from pagamento_ecf inner join formapagamento on (pagamento_ecf.forma_pagamento = formapagamento.codigo) '+ 'where pagamento_ecf.gid_venda = "' + GidECF + '"') do try while not eof do begin FormaPag := ACBrECF1.AchaFPGIndice(FieldByName('codigoecf').AsString); CupomVirtual.EfetuaPagamento(FieldbyName('valor').AsFloat,'',stoi(Formapag.Indice)); next; end; finally close; free; end; end; Ta na mão

Felipe, esse syspan sou eu tb, é que criei esse usuário para poder assinar o SAC e não percebi que estava logado nele.

Obrigado Felipe pela resposta, mas não faço uso das dlls.

Bom dia, estou tendo um problema em algumas vendas, no sistema o item é registro 1 vez e na impressora 2, segundo o usuario não aparece mensagem de erro de comunicação. Abaixo o trecho do log: -- 11/08 10:08:57:232 VendeItem( 0000000000006 , ACEM BOVINO.................. , T05 , 0,616 , 12,99 , 0 , KG , % , D , -1 ) -- 11/08 10:08:57:232 TX -> [STX]n[NUL][FS]?050000129900000616000000000000000000000100000000000000000000KG0000000000006[NUL]ACEM BOVINO..................[NUL][LF][NAK] -- 11/08 10:08:57:357 10:08:57:357 RX <- ACK = 6 Falha: 0 -- 11/08 10:08:57:435 RX <- [NUL][NUL][NUL][NUL] -- 11/08 10:08:59:073 VendeItem( 0000000000060 , CENOURA...................... , II , 0,206 , 1,99 , 0 , KG , % , D , -1 ) -- 11/08 10:08:59:073 TX -> [STX]n[NUL][FS]?II0000019900000206000000000000000000000100000000000000000000KG0000000000060[NUL]CENOURA......................[NUL][242][20] -- 11/08 10:08:59:182 10:08:59:182 RX <- ACK = 255 Falha: 0 -- 11/08 10:08:59:291 TX -> [STX]n[NUL][FS]?II0000019900000206000000000000000000000100000000000000000000KG0000000000060[NUL]CENOURA......................[NUL][242][20] -- 11/08 10:08:59:416 10:08:59:416 RX <- ACK = 6 Falha: 1 -- 11/08 10:08:59:525 RX <- [NUL][NUL][NUL][NUL] Reparem q na mesma vez "mandada" do comando vendeitem no caso do ACEM BOVINO, tem somente 1 retorno, já no caso da CENOURA tem 2 retornos. Alguém ja viu esse erro? Att João Victor

Bom dia, estou tentando gerar nota no ambiente de produção na versão 4.0 e esta retornando a mensagem de serviço indisponível 0. No ambiente de homologação esta ok. Alguém viu esse problema? Obrigado João Victor

Bom dia, quando tento fazer qualquer operação com o SITEF está aparecendo a seguinte mensagem: Erro assinatura modulo (-107), 00000000/SE000004: Modulo não identificado. Estava funcionando até formatar o caixa e precisar reinstalar novamente. Alguém já passou por isso? Obrigado

Consegui... valeu

Boa noite, estou com problema de valores de cancelamento, mas vi que no metodo QuandoCancelaCupom do AcbrEcfVirtualSat da pra resolver, o problema é que não estou conseguindo carregar o cupom que eu quero. Alguem tem algum exemplo de como fazer isso? Att João Victor

Boa noite, alguem por favor, pode fazer um organograma do processo de distribuição do DFE? Consegui pegar as chaves de acesso, mas estou apanhando para dar ciencia e fazer o download do xml. Obrigado

Bom dia, Precisei fazer uma alteração no componente, e gostaria que fosse analisado. Precisei capturar os dados do código 132 (Código de Bandeira Padrão SITEF). ACBrTEFDCliSiTef.pas ACBrTEFDClass.pas

Sossystem, vc conseguiu pegar as informações?

Bom dia, aconteceu um problema em um cliente. Uso o AcbrEcfVirtual, talvez já tenha solução mas vou informar abaixo o ocorrido: Foi finalizado a venda através do comando AcbrEcf1.Fechacupom(), a parte do SAT funcionou certo, ou seja, ele fez a venda e foi devolvido o retorno 6000, quando foi para a parte de impressão deu erro na porta de comunicação da impressora, e com isso, o componente retornou exception e ai o sistema tenta fazer o comando do AcbrEcf1.FechaCupom, ai ele faz o processo novamente, ou seja, envia a venda e da erro na impressão do extrato. Alguem passou por isso?

Daniel, obrigado, descobri, problema nos drivers de instalação das impressoras.... inexplicavelmente inverti as impressoras de caixa e instalei os drivers e passou a funcionar normalmente.....

Então, diminui para 42 e tb não deu certo, está uma "bruxaria", ele imprime o SAT corretamente, inclusive na primeira vez a gaveta abre, depois ele se perde, a gaveta não abre mais e se imprimo um cupom vinculado ele não corta o papel

A principio pensei nisso tb, mas, o cabeçalho tb está dentro desse parametro, ele formata o cabeçalho e se perde no restante....