Jump to content

dev botao

Erro - ACBrNFeDANFCeFortesA4


Go to solution Solved by BigWings,
  • Este tópico foi criado há 1618 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Administradores

Boa tarde.

Anexe um pdf exemplificando seu problema.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Moderadores
4 horas atrás, ALA disse:

Bom dia. Esta ocorrendo um erro ao imprimir a NFC-e em A4. Mesmo não informando as tags de endereço o componente mostra a informação na impressão da NFC-e. Exemplo em anexo

Testei a impressão carregando o XML e o mostrado na imagem não aconteceu.

Se você estiver imprimindo logo após o envio pode ser que esteja pegando dados informados no componente mas que não chegaram a ser gerados no XML.

Como você está informando os dados do endereço nesse caso?

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

Boa tarde. Estou imprimindo logo apos o envio, assim

                  ACBrNFe.NotasFiscais.Imprimir;
                  if dmbo_UsarFortes then // ala 22/10/2019
                  begin
                     ACBrNFe.NotasFiscais.ImprimirPDF; // ALA 16/12/2019 //
                  end;
 

Se tentar a reimpressão funciona blzinha...

Os dados do endereço do cliente, sempre são informados nas tags especificas. 

     // *** INICIO DADOS DO CLIENTE *** //
     if ( Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_CNPJ_CIC' ).AsString ) <> EmptyStr      ) and
        ( Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_CNPJ_CIC' ).AsString ) <> dmco_CNPJ_CIC ) then
     begin
        Dest.CNPJCPF   := DMXML.CDS_VENDA.FieldByName( 'VEN_CNPJ_CIC' ).AsString;
        Dest.indIEDest := inNaoContribuinte; // sempre mover 9 e não informa IF
        Dest.ISUF      := '';
     end;

     if DMXML.CDS_VENDA.FieldByName( 'VEN_NOME_CLIENTE' ).AsString <> dmco_NomeClienteConsumidor then
     begin
         Dest.indIEDest := inNaoContribuinte; // sempre mover 9 e não informa IF
         Dest.ISUF      := '';
         Dest.xNome     := DMXML.CDS_VENDA.FieldByName( 'VEN_CODIGO_CLIENTE' ).AsString + '-' +
                           DMXML.CDS_VENDA.FieldByName( 'VEN_NOME_CLIENTE'   ).AsString;
         if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_UF' ).AsString ) = Trim( dmst_EmitSiglaUF ) then // ala 28/05/2019
         begin
             //if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CLIENTE' ).AsString ) <> EmptyStr then   d
             if Length( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CLIENTE' ).AsString ) > 2 then
             begin
                Dest.EnderDest.xLgr := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CLIENTE' ).AsString;
             end;
             if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_CIDADE_CLIENTE'  ).AsString ) <> EmptyStr then
             begin
                Dest.EnderDest.xMun := DMXML.CDS_VENDA.FieldByName( 'VEN_CIDADE_CLIENTE' ).AsString;
             end;
             if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CODIGO_PAIS' ).AsString ) <> EmptyStr then
             begin
                Dest.EnderDest.cPais := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CODIGO_PAIS' ).AsInteger; // ala 10/05/2019 //
             end;
             if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_NOME_PAIS'  ).AsString ) <> EmptyStr then // ala 10/05/2019
             begin
                Dest.EnderDest.xPais := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_NOME_PAIS'  ).AsString; // ala 10/05/2019
             end;
             if ( Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_NUMERO'  ).AsString ) = EmptyStr ) or
                ( Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_NUMERO'  ).AsString ) = '0'      ) then
             begin
                Dest.EnderDest.nro  := 'SEM NUMERO';//DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_NUMERO' ).AsString; // ALA 10/05/2019
             end
             else
             begin
                Dest.EnderDest.nro  := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_NUMERO' ).AsString; // ALA 10/05/2019
             end;
             if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_REFERENCIA' ).AsString ) <> EmptyStr then
             begin
                Dest.EnderDest.xCpl := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_REFERENCIA' ).AsString; //'complemento';;
             end;
             if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CODIGO_MUNICIPIO' ).AsString ) <> EmptyStr then
             begin
                Dest.EnderDest.cMun := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CODIGO_MUNICIPIO' ).AsInteger; // ala 10/05/2019 //
             end;
             if Length( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_BAIRRO' ).AsString ) > 2  then
             //if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_BAIRRO' ).AsString ) <> EmptyStr then
             begin
                Dest.EnderDest.xBairro := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_BAIRRO' ).AsString; //'bairro';;
             end
             else
             begin
                Dest.EnderDest.xBairro := 'SEM NUMERO';
             end;
             Dest.EnderDest.UF      := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_UF'               ).AsString; // deve ser igual a UF do estabelecimento //;
             Dest.EnderDest.Fone    := Copy(Trim(util.Retorna_Numeros(DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_FONE' ).AsString)), 1, 11); //#4608 //
             if Length( Dest.EnderDest.Fone ) < 11 then
             begin
                Dest.EnderDest.Fone := EmptyStr;
             end;
             if Trim( DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CEP'  ).AsString ) <> EmptyStr then
             begin
                Dest.EnderDest.CEP := DMXML.CDS_VENDA.FieldByName( 'VEN_ENDERECO_CEP' ).AsInteger; // ala 10/05/2019
             end;
end;

Link to comment
Share on other sites

  • Moderadores
  • Solution
8 minutos atrás, ALA disse:

Os dados do endereço do cliente, sempre são informados nas tags especificas. 

Acredito que você ajustar sua rotina pra não preencher o nome e endereço caso o CPF/CNPJ/IDEstrangeiro não esteja informado.

Ou, o mais indicado, sempre carregar novamente o XML na impressão para evitar qualquer discrepância.

  • Like 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 1618 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.