Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Danfe - Venda De Veículos Novos


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

Recommended Posts

Bom dia...

 

Preciso urgente da ajuda de vocês segue em anexo o xml gerado e abaixo o código mais não sai de jeito nenhum o DANFE com os detalhes da moto.

Estou usando Delphi 7 e o Danfe Rave.

 

Este cliente é do MS.

 

Cliente antigo e resolveu reativar o sistema na época que usava emitia NF em formulario continuo.

 

          with Det.Add do
          begin
            Prod.nItem    := DmNotaFiscal.QryMoto.RecNo;
            Prod.cProd    := DmNotaFiscal.QryMotoMOTCODPROD.Value;
            Prod.xProd    := DmNotaFiscal.QryMotoMARDESCRICAO.Value+'/'+DmNotaFiscal.QryMotoMODDESCRICAO.Value;
            Prod.NCM      := DmNotaFiscal.TbItensNotaNCM.Value;
            Prod.CFOP     := DmNotaFiscal.TbItensNotaCFOP.AsString;
            Prod.uCom     := 'UN';
            Prod.qCom     := DmNotaFiscal.TbItensNotaQTDE.Value;
            Prod.vUnCom   := DmNotaFiscal.TbItensNotaVALOR.Value;
            Prod.vProd    := DmNotaFiscal.TbItensNotaVALOR.Value;
            Prod.qTrib    := DmNotaFiscal.TbItensNotaQTDE.Value;
            Prod.vUnTrib  := DmNotaFiscal.TbItensNotaVALOR.Value;
//         Prod.vDesc    := DescProd;
            Prod.uTrib    := 'UN';
            infAdProd := '   *   ';
 
//Campos para venda de veículos novos
            with Prod.veicProd do
            begin
               tpOP    := toOutros;
               chassi  := DmNotaFiscal.QryMotoMOTCHASSI.Value;
               cCor    := '0010';
               xCor    := DmNotaFiscal.QryMotoMOTCOR.Value;
               pot     := DmNotaFiscal.QryMotoDCR.Value;
               Cilin   := DmNotaFiscal.QryMotoCILINDRADA.Value;
               pesoL   := DmNotaFiscal.QryMotoPESOLIQUIDO.AsString;
               pesoB   := DmNotaFiscal.QryMotoPESOBRUTO.AsString;
               nSerie  := Copy(DmNotaFiscal.QryMotoMOTCHASSI.Value,5,9);
               tpComb  := DmNotaFiscal.QryMotoCOMBUSTIVEL.Value;
               nMotor  := DmNotaFiscal.QryMotoNUMMOTOR.Value;
               CMT     := '1,08';
               dist    := '1270';
//               RENAVAM := DmNotaFiscal.QryMotoMOTRENAVAM.Value;
               anoMod  := DmNotaFiscal.QryMotoMOTANOMOD.AsInteger;
               anoFab  := DmNotaFiscal.QryMotoMOTANOFAB.AsInteger;
               tpPint  := '1';
               tpVeic  := 4;
               espVeic := 1;
               VIN     := 'N';
               condVeic := cvAcabado;
               cMod    := DmNotaFiscal.QryMotoMOTRENAVAM.Value;
               cCorDENATRAN := '10';
               lota := 2;
               tpRest := 0;
             end;
 
            with Imposto do
 
 
Muito obrigado e fico no aguardo
 
Link to comment
Share on other sites

  • Consultores

 

Da Diferença de gerar de uma máquina para outra o mesmo .exe ?

 

Se você está falando de haver diferença entre os aquivos .xml, então, em geral, nos campos da nota não deveria haver diferença. Afinal, é a mesma nota.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores

Boa tarde!

ao liberar para o cliente você compila a aplicação em release ? ou envia em debug mesmo?

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Consultores

Alguem para me dar uma Luz ?????

Algumas opções:

1) Tente verificar o log para encontrar alguma diferença.

2) Analise se os arquivos enviados ao monitor estão sendo enviados iguais e na mesma ordem.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • 4 weeks later...
  • Administradores

Boa noite.

 

Se você está se referindo a versão da NFe, basta configurar diretamente no ACBrNFeMonitor, na aba WebService.

 

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

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