Jump to content

cleber_queiroz

Membros
  • Content Count

    46
  • Joined

  • Last visited

Community Reputation

6 Neutral

About cleber_queiroz

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    rio de janeiro

Recent Profile Visitors

553 profile views
  1. 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.
  2. 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
  3. Bom dia Italo! Obrigado pelas dicas, e pode deixar que não posto mais o código, me desculpe, não sabia.
  4. 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
  5. Ok, mas tenho que ligar alguma outra propriedade pois ele continua a dar o erro 480.
  6. 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.
  7. Consegui resolver, acontece que estava informando ide.cuf diferente de Configuracoes.WebServices.UFCodigo. Obrigado!
  8. 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
  9. Sim estou passando pdevol=100, você sabe se seria o caso de atualizar a pasta schemas???
  10. 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??
  11. Bom dia Pessoal! Não consigo destacar a tag de vIpidevol mesmo passando conteúdo para ela e para a tag pdevol, o xml só mostra as tags pipi e vipi, alguém passou por este problema?? vou anexar o xml que é gerado mesmo passando os valores no produto. Obrigado! Ultima_NFe.xml
  12. Boa tarde Pedro! este link parou de funcionar já a alguns dias, conhece outro, já pesquisei e não encontrei nada.
×
×
  • Create New...