Flavio Verneque

RESOLVIDO! Instalei novamente o Fortes e o ACBr. Obrigado!

Vou rever a instalação do fortes, mas aparentemente instalou normal. Quanto ao ACBr instalei removendo arquivos antigos.

Esse erro acontece quando mando imprimir o DANFE. Este é o código exatamente igual ao do ACBR procedure TFNFe.Btn_Impr_xmlClick(Sender: TObject); begin OpenDialog1.Title := 'Selecione a NFe'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFe (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False); ACBrNFe1.DANFE := ACBrNFeDANFERL1; ACBrNFe1.NotasFiscais.Imprimir; end; end;

Na verdade não tinha nada errado com meu código nem com o XML. A legislação que mudou a partir da versão 4.0 da NFE.

No meu caso, é tudo dentro do estado de Minas Gerais. Você viu o meu XML?

Alterei meu código para : NodeNivelG := NodeNivelB.AddChild('transp'); NodeNivelG.AddChild('modFrete').NodeValue := vfrete; NodeNivelG.ChildNodes['transporta']; if length(sdoct) < 17 then NodeNivelG.ChildNodes['transporta'].AddChild('CPF').NodeValue := ffuncoes.LimpaCEP(sdoct); if length(sdoct) > 17 then begin NodeNivelG.ChildNodes['transporta'].AddChild('CNPJ').NodeValue := ffuncoes.LimpaCNPJ(sdoct); NodeNivelG.ChildNodes['transporta'].AddChild('IE').NodeValue := sdoct2; end; NodeNivelG.ChildNodes['transporta'].AddChild('xNome').NodeValue := stransp; if length(sdoct) > 17 then begin NodeNivelG.ChildNodes['transporta'].AddChild('UF').NodeValue := suftransp; end; NodeNivelG.ChildNodes['veicTransp']; NodeNivelG.ChildNodes['veicTransp'].AddChild('placa').NodeValue := ffuncoes.Limpaplaca(splaca); NodeNivelG.ChildNodes['veicTransp'].AddChild('UF').NodeValue := sufpl; NodeNivelG.ChildNodes['vol']; NodeNivelG.ChildNodes['vol'].AddChild('esp').NodeValue := edtespecie.Text; NodeNivelG.ChildNodes['vol'].AddChild('marca').NodeValue := edtmarca.Text; NodeNivelG.ChildNodes['vol'].AddChild('qVol').NodeValue := vqtdv; NodeNivelG.ChildNodes['vol'].AddChild('pesoL').NodeValue := vpesol; NodeNivelG.ChildNodes['vol'].AddChild('pesoB').NodeValue := vpesob; ai retorna com? (Rejeição: Grupos Veiculo Transporte e Reboque não devem ser informados).

// G Transportadora NodeNivelG := NodeNivelB.AddChild('transp'); NodeNivelG.AddChild('modFrete').NodeValue := vfrete; NodeNivelG.ChildNodes['transporta']; if length(sdoct) < 17 then NodeNivelG.ChildNodes['transporta'].AddChild('CPF_transp').NodeValue := ffuncoes.LimpaCEP(sdoct); if length(sdoct) > 17 then begin NodeNivelG.ChildNodes['transporta'].AddChild('CNPJ_transp').NodeValue := ffuncoes.LimpaCNPJ(sdoct); NodeNivelG.ChildNodes['transporta'].AddChild('IE_transp').NodeValue := sdoct2; end; NodeNivelG.ChildNodes['transporta'].AddChild('xNome_transp').NodeValue := stransp; if length(sdoct) > 17 then begin NodeNivelG.ChildNodes['transporta'].AddChild('UF_transp').NodeValue := suftransp; end; NodeNivelG.ChildNodes['veicTransp']; NodeNivelG.ChildNodes['veicTransp'].AddChild('placa').NodeValue := ffuncoes.Limpaplaca(splaca); NodeNivelG.ChildNodes['veicTransp'].AddChild('UF_veictransp').NodeValue := sufpl; NodeNivelG.ChildNodes['vol']; NodeNivelG.ChildNodes['vol'].AddChild('esp').NodeValue := edtespecie.Text; NodeNivelG.ChildNodes['vol'].AddChild('marca').NodeValue := edtmarca.Text; NodeNivelG.ChildNodes['vol'].AddChild('qVol').NodeValue := vqtdv; NodeNivelG.ChildNodes['vol'].AddChild('pesoL').NodeValue := vpesol; NodeNivelG.ChildNodes['vol'].AddChild('pesoB').NodeValue := vpesob; if sarquivoatual<>'' then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(sarquivoatual); ACBrNFe1.Configuracoes.Arquivos.PathSalvar := 'c:\Cafe Mysql\Nf-e OK\'; acbrnfe1.configuracoes.Arquivos.AdicionarLiteral := true; pgRespostas.ActivePageIndex := 0; MemoResp.Lines.Add(''); MemoResp.Lines.Add(''); ACBrNFe1.NotasFiscais.Assinar; if not ACBrNFe1.NotasFiscais.VerificarAssinatura(Msg) then MemoResp.Lines.Add('Erro: '+Msg) else begin MemoResp.Lines.Add('OK: Assinatura Válida'); ACBrNFe1.SSL.CarregarCertificadoPublico( ACBrNFe1.NotasFiscais[0].NFe.signature.X509Certificate ) ; MemoResp.Lines.Add('Assinado por: '+ ACBrNFe1.SSL.CertRazaoSocial); MemoResp.Lines.Add('CNPJ: '+ ACBrNFe1.SSL.CertCNPJ); MemoResp.Lines.Add('Num.Série: '+ ACBrNFe1.SSL.CertNumeroSerie); memoresp.lines.add(acbrnfe1.NotasFiscais.items[0].NomeArq); ACBrNFe1.Enviar(1); ACBrNFe1.NotasFiscais.Items[0].gravarxml(); sxml := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe+'-nfe'; Só queria entender se é um problema no sefaz MG ou outro esta tag mudei porque pensei que estava errada. Era assim : NodeNivelG.ChildNodes['transporta'].AddChild('xNome').NodeValue := stransp; NodeNivelG.ChildNodes['transporta'].AddChild('UF').NodeValue := sufpl; NodeNivelG.ChildNodes['veicTransp']; NodeNivelG.ChildNodes['veicTransp'].AddChild('placa').NodeValue := ffuncoes.Limpaplaca(splaca); //showmessage(stransp); NodeNivelG.ChildNodes['veicTransp'].AddChild('UF').NodeValue := sufpl; NodeNivelG.ChildNodes['vol']; NodeNivelG.ChildNodes['vol'].AddChild('esp').NodeValue := edtespecie.Text; NodeNivelG.ChildNodes['vol'].AddChild('marca').NodeValue := edtmarca.Text; NodeNivelG.ChildNodes['vol'].AddChild('qVol').NodeValue := vqtdv; NodeNivelG.ChildNodes['vol'].AddChild('pesoL').NodeValue := vpesol; NodeNivelG.ChildNodes['vol'].AddChild('pesoB').NodeValue := vpesob;

Por favor, uso ACBr sim. Que tag está com nome errado? Olha o XML correto ai. me deixa explicar: Eu Assino, Valido e Transmito com ACBr se quizer te mando o fonte, mas a tag UF_veictransp copiei de um layout pensando que havia mudado na versão 4.0 antes usava apenas UF, mas na verdade por que da o erro se a tag esta preenchida corretamente com a UF?

Por favor, uso ACBr sim. Que tag está com nome errado? Olha o XML correto ai. Talvez seja este o erro me mostre o que está errado. 31180625285883000154550010000129191654979679-nfe.xml

Talvez eu não soube explicar: Este XML em anexo tem dados do transportador, placa e UF da placa (preciso informá-los), porém, qualquer nota que eu faça informando os dados do Transportador e placa UF da placa... retorna com este erro da foto. Se este mesmo XML retiro os dados do transportador placa ... dá 100% certo, retorna sem erros. Pode verificar neste XML anexo, que estes campos estão preenchidos. Me perdoe! mandei errado, mas a tag correta é: -<transporta> <CPF_transp>99999999999</CPF_transp> <xNome_transp>FULANO TE TAL</xNome_transp> </transporta> -<veicTransp> <placa>HHH9999</placa> <UF_veictransp>MG</UF_veictransp> </veicTransp> -<vol> <esp>VOLUME</esp> <marca>MUNDIAL</marca> <qVol>1</qVol> <pesoL>0</pesoL> <pesoB>0</pesoB> </vol> </transp>

Talvez eu não soube explicar: Este XML em anexo tem dados do transportador, placa e UF da placa (preciso informá-los), porém, qualquer nota que eu faça informando os dados do Transportador e placa UF da placa... retorna com este erro da foto. Se este mesmo XML retiro os dados do transportador placa ... dá 100% certo, retorna sem erros. Pode verificar neste XML anexo, que estes campos estão preenchidos.

Boa tarde! Eu alterei os dados para não expor os dados de empresas e produtos, mas a única rejeição foi a da foto que mandei. Seu ei tirar os dados do transportador valida sem erros, inclusive o mesmo xml sem dados transportador. Viu a foto da mensagem de erro? Grato pela atenção.

31180625285883000154550010000129191298296782-nfe.xml

Desenvolvo em DELPHI 7 e usu ACBr Até na quinta pela manhã estava funcionando normalmente. Depois do almoço começou a dar erro se informar transportador ... Rejeição UF_veictransp não informado e o mesmo está informado na tag corretamente. Alguém pode me ajudar? Seria um problena do Sefaz MG ?

uso ACbrNFe2 desde 2009 e não consegui solucionar um erro de Access Violation... quando retorna da transmissão de uma nota ou na impressão. uso Delphi7 e Rave Report 5.0 botão transmitir : procedure TFSaidasF.BtnTransmClick(Sender: TObject); var snovonome:string; begin OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFe1.Enviar(0); ShowMessage(ACBrNFe1.WebServices.Retorno.Protocolo); ShowMessage(ACBrNFe1.WebServices.Retorno.Recibo); snovonome := acbrnfe1.WebServices.Retorno.ChaveNFe; if snovonome <> '' then begin fmd.TabSaidasF.Edit; fmd.TabSaidasFnfe.value := snovonome +'-nfe'; fmd.TabSaidasF.Post; end; MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); ACBrNFe1.NotasFiscais.Clear; end; end; Botão Imprimir: procedure TFSaidasF.BtnImpClick(Sender: TObject); var Arquivo: PChar; begin OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; ACBrNFe1.WebServices.ConsultaDPEC.Executar; (ACBrNFe1.WebServices.ConsultaDPEC.retDPEC.dhRegDPEC); ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC); end; ACBrNFe1.NotasFiscais.Imprimir; end; end; Favor me ajudar se possível.