Não Imprime CPF

[Zamper]

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.

[Sérgio Assunção]

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.

[Zamper]

Ola Sergio,

 

Te agradeço muito pela atenção.

Na montagem eu gero normalmente ai, envio para verificar e depois imprimir ele não da erro nenhum apenas não imprime.

arq.xml

[Sérgio Assunção]

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

[Zamper]

Opa Sergio,

Estou enviando o retorno do SAT.

Mais não imprimiu o CPF

AD35160123299418000147590000476760001540551488.xml

[Sérgio Assunção]

Você ta usando qual componente para a impressão ? Teria uma imagem do cupom impresso ?

[Zamper]

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;

 

 

[Agnaldo Prates]

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;

Editado 22 Janeiro, 2016 por Agnaldo Prates