Jump to content

dev botao

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

Recommended Posts

  • Administradores
Posted

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

  • Moderadores
Posted
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

 

 

Posted

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;

  • Moderadores
  • Solution
Posted
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

 

 

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

The popup will be closed in 10 seconds...