cleber_queiroz

Obrigado a todos! Consegui resolver. Estava informando no lugar errado para geração.

Bom dia! Estou tentando gerar uma nota de exportação mas apesar de passar as tags, elas não aparecem no xml e consequentemente me retorna o erro: informar o local de saída do pais no caso de exportação, tem alguma tag relacionada a elas que não estou informando e consequentemente suprime as mesmas, alguém sabe me informar?? as tags que estou informando são? exporta.UFSaidaPais exporta.xLocExporta exporta.xLocDespacho Alguém poderia me ajudar? segue o anexo de meu xml. Ultima_NFe - Copia.xml

Boa tarde! Estou tentando gerar uma nota de exportação mas apesar de passar as tags: exporta.UFSaidaPais exporta.xLocExporta exporta.xLocDespacho elas não aparecem no xml e consequentemente me retorna o erro: informar o local de saída do pais no caso de exportação. Alguém poderia me ajudar? segue o anexo de meu xml. Ultima_NFe.xml

Boa tarde Italo! Consegui resolver amigo, entrei removi tudo do acbr e depois baixei como se fosse tudo zero km ai sim ele trouxe os fontes novos, tentando atualizar pelo trunk2 ele não baixava os fontes que queria mesmo pedindo para remover os anteriores. Muito Obrigado pela atenção e as dicas.

Italo, segui todos os seus conselhos, removi de novo o acbr através do apagarAcbr, entrei do trunk2 e escolhi remover arquivos antigos, atualizei os fontes e instalei e continua com o erro 480, estou anexando as linhas de código, não sei mais o que fazer. LINHAcodigo.txt

Bom dia Italo! Obrigado pelas dicas, e pode deixar que não posto mais o código, me desculpe, não sabia.

Boa tarde Italo! Exatamente o que fiz entrei com o trunk_2, atualizei os fontes, e mandei remover os antigos e ele continua a dar erro 480, reclamando do qr-code. segue abaixo a linha de código e o xml gerado: ACBrMDFe1.Manifestos.Clear; ACBrMDFe1.Configuracoes.Certificados.NumeroSerie:=wNUMCERTIF; ACBrMDFe1.Configuracoes.Certificados.Senha :=wSENHACERT; if not DirectoryExists(wCAMINHOPDF+formatdatetime('yyyymm',cdsParametros.FieldByName('DTMOV').asdatetime)) then CreateDir(wCAMINHOPDF+formatdatetime('yyyymm',cdsParametros.FieldByName('DTMOV').asdatetime)); ACBrMDFeDAMDFeRL1.PathPDF :=wCAMINHOPDF+formatdatetime('yyyymm',cdsParametros.FieldByName('DTMOV').asdatetime); ACBrMDFe1.Configuracoes.Arquivos.PathSalvar:=wCAMINHONFE; ACBrMDFe1.Configuracoes.Arquivos.PathMDFe:=wCAMINHONFEBKP; ACBrMDFe1.Configuracoes.Arquivos.PathEvento:=wCAMINHONFEBKP; ACBrMDFe1.Configuracoes.Geral.GetHashCode; ACBrMDFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,IntToStr(rdgamb.ItemIndex+1)); ACBrMDFeDAMDFeRL1.Logo :=wCAMINHOLOGO; ACBrMDFeDAMDFeRL1.TipoDAMDFe:=tiRetrato; ACBrMDFeDAMDFeRL1.NumCopias:=cdsfilial.FieldByName('NVIANFE').AsInteger; ACBrMDFe1.Configuracoes.WebServices.UF:=CDSFILIAL.FieldByName('uf').AsString; if chkcont.Checked then begin ACBrMDFe1.Configuracoes.Geral.FormaEmissao := teSCAN; ACBrMDFe1.Configuracoes.WebServices.UF:=cbufcont.Text; end; with ACBrMDFe1.Manifestos.Add.MDFe do begin Ide.cUF := ACBrMDFe1.Configuracoes.WebServices.UFCodigo; case rdgamb.ItemIndex of 0: Ide.tpAmb := taProducao; 1: Ide.tpAmb := taHomologacao; end; Ide.tpEmit := teTranspCargaPropria; Ide.modelo := '58'; Ide.serie := 1; Ide.nMDF := StrToIntDef(EDNOTA1.Text, 0); Ide.cMDF := 1; // Código Aleatório // TMDFeModal = ( moRodoviario, moAereo, moAquaviario, moFerroviario ); Ide.modal := moRodoviario; Ide.dhEmi := Now; // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA); Ide.tpEmis := teNormal; // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco); Ide.procEmi := peAplicativoContribuinte; Ide.verProc := '3.0.20'; Ide.UFIni := cmbufcar.Text; Ide.UFFim := cmbufdescar.Text; with Ide.infMunCarrega.Add do begin cMunCarrega := strtoint(edcodmunc.text); xMunCarrega := ednomemunc.text; end; // // Dados do Emitente // Emit.CNPJCPF := retirachar(cdsFilial.FieldByName('cgc').AsString); Emit.IE := retirachar(cdsFilial.FieldByName('insc').AsString); //edtEmitIE.Text; Emit.xNome := cdsFilial.FieldByName('nome').asstring; Emit.xFant := cdsFilial.FieldByName('nome').asstring; Emit.EnderEmit.xLgr := semacento(cdsFilial.fieldbyname('ENDERECO').AsString); //edtEmitLogradouro.Text; Emit.EnderEmit.nro := cdsFilial.fieldbyname('NUMERO').AsString; //edtEmitNumero.Text; Emit.EnderEmit.xCpl := semacento(cdsFilial.fieldbyname('COMPL').AsString); //edtEmitComp.Text; Emit.EnderEmit.xBairro := semacento(cdsFilial.fieldbyname('BAIRRO').AsString); //edtEmitBairro.Text; Emit.EnderEmit.cMun := strtoint( retsonum( cdsFilial.FieldByName('CODMUN').AsString )); //StrToInt(edtEmitCodCidade.Text); Emit.EnderEmit.xMun := semacento(cdsFilial.fieldbyname('CIDADE').AsString); //edtEmitCidade.Text; Emit.EnderEmit.CEP := strtoint( retsonum( retirachar(cdsFilial.fieldbyname('CEP').AsString) )); //StrToInt(edtEmitCEP.Text); Emit.EnderEmit.UF := cdsFilial.fieldbyname('UF').AsString; //edtEmitUF.Text; if length(trim(cdsFilial.fieldbyname('TEL').AsString))>10 then Emit.EnderEmit.fone := copy(cdsFilial.fieldbyname('TEL').AsString,3,10) else Emit.EnderEmit.fone := cdsFilial.fieldbyname('TEL').AsString; //edtEmitFone.Text; Emit.enderEmit.email := cdsfilial.FieldByName('email').asstring; rodo.RNTRC := cdsTransp.FieldByName('RNTRC').AsString; rodo.CIOT := cdsTransp.FieldByName('CIOT').AsString; rodo.veicTracao.cInt := cdstransp.fieldbyname('codigo').AsString; rodo.veicTracao.placa := cdstransp.fieldbyname('placa').AsString; rodo.veicTracao.RENAVAM := cdstransp.fieldbyname('renavam').AsString;; rodo.veicTracao.tara := cdstransp.fieldbyname('tara').Asinteger; rodo.veicTracao.capKG := cdstransp.fieldbyname('totpeso').Asinteger; rodo.veicTracao.capM3 := cdstransp.fieldbyname('totpesom3').Asinteger; // TpcteTipoRodado = (trNaoAplicavel, trTruck, trToco, trCavaloMecanico, trVAN, trUtilitario, trOutros); // Para o MDF-e não utilizar o trNaoAplicavel. if cdstransp.FieldByName('tprod').AsInteger=1 then rodo.veicTracao.tpCar := tcNaoAplicavel else if cdstransp.FieldByName('tprod').AsInteger=2 then rodo.veicTracao.tpRod := trTruck else if cdstransp.FieldByName('tprod').AsInteger=3 then rodo.veicTracao.tpRod := trToco else if cdstransp.FieldByName('tprod').AsInteger=4 then rodo.veicTracao.tpRod := trCavaloMecanico else if cdstransp.FieldByName('tprod').AsInteger=5 then rodo.veicTracao.tpRod := trVAN else if cdstransp.FieldByName('tprod').AsInteger=6 then rodo.veicTracao.tpRod := trUtilitario else if cdstransp.FieldByName('tprod').AsInteger=7 then rodo.veicTracao.tpRod := trOutros; // TpcteTipoCarroceria = (tcNaoAplicavel, tcAberta, tcFechada, tcGraneleira, tcPortaContainer, tcSider); if cdstransp.FieldByName('tpcar').AsInteger=1 then rodo.veicTracao.tpCar := tcNaoAplicavel else if cdstransp.FieldByName('tpcar').AsInteger=2 then rodo.veicTracao.tpCar := tcAberta else if cdstransp.FieldByName('tpcar').AsInteger=3 then rodo.veicTracao.tpCar := tcFechada else if cdstransp.FieldByName('tpcar').AsInteger=4 then rodo.veicTracao.tpCar := tcGraneleira else if cdstransp.FieldByName('tpcar').AsInteger=5 then rodo.veicTracao.tpCar := tcPortaContainer else if cdstransp.FieldByName('tpcar').AsInteger=6 then rodo.veicTracao.tpCar := tcSider; rodo.veicTracao.UF := cdstransp.fieldbyname('ufplaca').AsString; with rodo.veicTracao.condutor.Add do begin xNome := cdstransp.fieldbyname('nome').asstring; CPF := cdstransp.fieldbyname('cgc').asstring;; end; if cdstransp.FieldByName('placacav').AsString<>'' then begin with rodo.veicReboque.Add do begin cInt := cdstransp.fieldbyname('codigo').AsString; placa := cdstransp.fieldbyname('placacav').AsString; RENAVAM := cdstransp.fieldbyname('renavamreb').AsString;; tara := cdstransp.fieldbyname('tarareb').Asinteger; capKG := cdstransp.fieldbyname('totpesoreb').Asinteger; capM3 := cdstransp.fieldbyname('totpesom3reb').Asinteger; // TpcteTipoCarroceria = (tcNaoAplicavel, tcAberta, tcFechada, tcGraneleira, tcPortaContainer, tcSider); if cdstransp.FieldByName('tpcarreb').AsInteger=1 then tpCar := tcAberta else if cdstransp.FieldByName('tpcarreb').AsInteger=2 then tpCar := tcFechada else if cdstransp.FieldByName('tpcarreb').AsInteger=3 then tpCar := tcGraneleira else if cdstransp.FieldByName('tpcarreb').AsInteger=4 then tpCar := tcPortaContainer else if cdstransp.FieldByName('tpcarreb').AsInteger=5 then tpCar := tcSider; UF := cdstransp.FieldByName('ufreb').asstring; end; end; qt:=0; with infDoc.infMunDescarga.Add do begin cMunDescarga := strtoint(edcodmund.Text); xMunDescarga := ednomemund.Text; cdsvendas.First; while not cdsvendas.Eof do begin if cdsvendas.FieldByName('imprime').AsString='S' then begin infNFe.Add.chNFe:=cdsVendasCHAVENFE.AsString; inc(qt); end; cdsvendas.Next; end; if trim(edchave1.text)<>'' then begin infcte.Add.chCTe:=edchave1.Text; inc(qt); end; if trim(edchave2.text)<>'' then begin infcte.Add.chCTe:=edchave2.Text; inc(qt); end; if trim(edchave3.text)<>'' then begin infcte.Add.chCTe:=edchave3.Text; inc(qt); end; if trim(edchave4.text)<>'' then begin infcte.Add.chCTe:=edchave4.Text; inc(qt); end; if trim(edchave5.text)<>'' then begin infcte.Add.chCTe:=edchave5.Text; inc(qt); end; if trim(edchave6.text)<>'' then begin infcte.Add.chCTe:=edchave6.Text; inc(qt); end; if trim(edchave7.text)<>'' then begin infcte.Add.chCTe:=edchave7.Text; inc(qt); end; if trim(edchave8.text)<>'' then begin infcte.Add.chCTe:=edchave8.Text; inc(qt); end; end; tot.qNFe := qt; tot.vCarga := retnum(edvalorcarga.Text); // UnidMed = (uM3,uKG, uTON, uUNIDADE, uLITROS); if cmbunidmed.ItemIndex=0 then tot.cUnid := uM3 else if cmbunidmed.ItemIndex=1 then tot.cUnid := uKG else if cmbunidmed.ItemIndex=2 then tot.cUnid := uTon else if cmbunidmed.ItemIndex=3 then tot.cUnid := uUNIDADE else if cmbunidmed.ItemIndex=4 then tot.cUnid := uLITROS; tot.qCarga := retnum(edqtdcarga.text); infAdic.infCpl := MEMO1.Text; infAdic.infAdFisco := ''; autXML.Add.CNPJCPF := cdsFilial.FieldByName('cgc').AsString; end; ACBrMDFe1.Manifestos.Items[0].NomeArq:='Mdfe_'+EDNOTA1.Text; ACBrMDFe1.Manifestos.GerarMDFe; ACBrMDFe1.Manifestos.Items[0].GravarXML('Mdfe_'+EDNOTA1.Text+'.xml', wCAMINHONFE); ACBrMDFe1.Enviar(STRTOINT(EDNOTA1.Text)); ACBrMDFe1.Manifestos.LoadFromFile(wCAMINHONFE+'Mdfe_'+EDNOTA1.Text+'.xml',true); ACBrMDFe1.Manifestos.Assinar; ACBrMDFe1.Manifestos.Validar; ACBrMDFe1.Consultar; LoadXML(MemoResp, WBResposta); if (ACBrMDFe1.WebServices.Enviar.cStat=104) or (ACBrMDFe1.WebServices.Enviar.cStat=105) then begin ShowMessage('Arquivo gerado em: '+ACBrMDFe1.Manifestos.Items[0].NomeArq); MemoResp.Lines.LoadFromFile(ACBrMDFe1.Manifestos.Items[0].NomeArq); ACBrMDFe1.DAMDFE.ImprimirDAMDFe; ACBrMDFe1.damdfe.ImprimirDAMDFePDF; cdsFilial.Edit; cdsFilial.FieldByName('nummdfe').AsInteger:=StrToInt(EDNOTA1.Text); cdsFilial.ApplyUpdates(-1); EDNOTA1.Text:=inttostr(cdsfilial.FieldByName('nummdfe').AsInteger+1); end; Mdfe_1.xml

Ok, mas tenho que ligar alguma outra propriedade pois ele continua a dar o erro 480.

Bom dia! Estou tentando gerar o qr code no acbrmdfe, olhei as dicas aqui do fórum e atualizei o acbr mas mesmo assim não acho a GERAINFMDFSUPL para mudar para qr code, alguém tem alguma dica? Desde já obrigado a todos.

Consegui resolver, acontece que estava informando ide.cuf diferente de Configuracoes.WebServices.UFCodigo. Obrigado!

Bom dia! Estou tentando fechar uma MDFe e sempre me retorna "226-Rejeição: código da uf do emitente difere da uf autorizadora." já olhei as dicas aqui do fórum pedindo para alterar o PMDFEEVENTOMDFE.PAS mas o erro persiste, estou no RJ, alguém poderia me dar uma dica?? Obrigado! Mdfe_1.xml

bom dia! Ok que, de qualquer forma obrigado!

Boa tarde Amigo! Consegui resolver, atualizei o schemas, obrigado!

Sim estou passando pdevol=100, você sabe se seria o caso de atualizar a pasta schemas???

Sim, estou usando exatamente o acbrnfe, li algo sobre uma tag impostodevol, dentro desta tag que viria os campos vipidevol, sabe se isto se encaixa para o acbrnfe??