Ir para conteúdo
  • Cadastre-se

dev botao

Danfe - Venda De Veículos Novos


  • Este tópico foi criado há 3297 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Acho que não consegui expressar direito o xml anexado no primeiro post é gerado na maquina do cliente, este em anexo é gerado na minha maquina compilando o sistema neste sai a tag <veicProde na maquina do cliente não, como pode sendo o mesmo .exe. 

50150205239452000497550010000073181000073185-nfe.xml

Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • 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

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 para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.