Jump to content

Assista tectoy.png

chamada diadoacbr

Não Imprime CPF


Zamper
  • Este tópico foi criado há 2358 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Agora, Zamper disse:

Bom dia !!i! Estou usando ACBr  com impressora Elgin I9 , monto no XML  a tag dest para preencher o CPF mais não imprime , alquem sabe como posso resolver isso ? 

desde já agradeço.

Aqui funciona perfeitamente.

Anexe o XML.

Equipe ACBr Sérgio Assunção
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

[email protected]

Link to comment
Share on other sites

  • Membros Pro

Você tem que anexar o arquivo retornado pelo aparelho.

Você gerou o arquivo com o esboço da venda, envia para o aparelho e se for aceito o aparelho retorna o XML com validade juridica, e é esse arquivo que precisa ser carregado para a impressão. Preciso que você anexe esse arquivo :)

Equipe ACBr Sérgio Assunção
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

[email protected]

Link to comment
Share on other sites

Infelizmente o cupom esta com meu cliente, mais eu já vi e esta acontecendo em outro cliente, abaixo toda a linha de comando que uso..

         ACBrSAT1.EnviarDadosVenda(notafiscal);

         ACBrSAT1.CFe.IdentarXML := True;
         ACBrSAT1.CFe.TamanhoIdentacao := 3;
        // DADOS NA IMPRESSAO//
        with ACBrSAT1.CFe do //-- inserinfo os dados que faltam
        //DADOS DO DESTINATARIO
        if (frmPDV.LB_CPF.Caption <> 'C.P.F.') and (frmPDV.LB_CPF.Caption <> ' ')
           then
             Begin
               Dest.CNPJCPF:= frmPDV.LB_CPF.Caption;
               if frmPDV.LB_NOME.Caption <> '' then
                  Dest.xNome   := frmPDV.LB_NOME.Caption;
             end
           else
             begin
                Dest.CNPJCPF := '';
                Dest.xNome   := '';
             end;

         if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then
            begin
              LoadXML( ACBrSAT1.CFe.AsXMLString, mRecebido);
            end;
         ///AKI IMPRIME
         PrepararImpressao;
         ACBrSAT1.ImprimirExtrato;

 

 

Link to comment
Share on other sites

Imagino que seja uma questão na lógica do seu código.

        if (frmPDV.LB_CPF.Caption <> 'C.P.F.') and (frmPDV.LB_CPF.Caption <> ' ') then
        begin
           Dest.CNPJCPF:= frmPDV.LB_CPF.Caption;
           if frmPDV.LB_NOME.Caption <> '' then
           Dest.xNome   := frmPDV.LB_NOME.Caption;

      // Se não form CPF e não for em branco 
      // Vai salvar no CPF o que está no  frmPDV.LB_CPF.Caption

        end else
        begin
       // Mas, se for CPF então faz Dest.CNPJCPF := '', ai não imprime mesmo
           Dest.CNPJCPF := '';
           Dest.xNome   := '';
        end;

Edited by Agnaldo Prates

_____________

Prates, Agnaldo

Link to comment
Share on other sites

  • Este tópico foi criado há 2358 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.