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

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....

Bom dia, tenho um cliente que ele tem 2 impressoras Bematech uma MP4200 e outra MP2500, e nas 2 quando imprime um Cupom Vinculo/Gerencial ele não formata os itens do relatório. O Cabeçalho sai certo, mas os itens não e tb não corta o papel e a gaveta para de funcionar. Segue anexo o log do posprinter e a imagem de como está saindo. log_posprinter.txt

Descobri o problema, estava na dll, o meu tecnico quando foi instalar, colocou a dll da versão rb1000. Obrigado pela ajuda.

Segue anexo arquivo. AD20170808161155-875591-env.xml