Ir para conteúdo
  • Cadastre-se

jairobernardesjunior

Membros
  • Total de ítens

    55
  • Registro em

  • Última visita

Últimos Visitantes

1.120 visualizações

jairobernardesjunior's Achievements

Contributor

Contributor (5/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

1

Reputação

  1. Bom dia senhores! Ao usar o demo do acbrmdfe da última versão do acbr, verifiquei que o nro do ciot é informado no mesmo. Alguém sabe se a ANTT vai liberar a geração do nro do ciot para que seja feito pelo emissor do mdfe ou se ANTT e as PEFs vão ser os únicos habilitados a gerar esse nro? Desde já agradeço pela atenção!
  2. Bom dia senhores! Estamos estudando a integração do ciot para as empresas target e pamcard, essas empresas já estão contempladas no acbrciot? desde já agradeço pela atenção!
  3. Obrigado Ítalo! Tem algum documento geral padrão que o acbrciot gera para enviar para a empresa IPEF?
  4. Boa tarde amigos! Estou precisando gerar os dados para a empresa nddCargo, alguém sabe se o acbrciot tem essa função? desde já agradeço pela atenção! https://www.nddcargo.com.br/
  5. estou com o mesmo problema, através de um servidor de aplicação iis usando .dll consigo gravar, assinar, enviar receber autenticação da sefaz ok, como também consultar um documento na sefaz retornando ok e também reenviar um documento em contingência, recebendo o retorno de autenticação ok da sefaz, já o envio de evento de cancelamento de um documento não é reconhecido pelo servidor da sefaz retornando o erro 400 bad request. Já olhei tudo que podia e acho estranho todas as operações com a sefaz passar pelo mesmo servidor e somente o cancelamento ser barrado. alguém pode me ajudar?
  6. boa tarde Italo, estou com o seguinte problema parecido com o anterior: 1) estou usando a versao 3.00 do cte: //***************** versao 3.00 ACBrCTe1.Configuracoes.Geral.VersaoDF := pcteConversaoCTe.ve300;; cte.infCTe.versao := 3.00; cte.ide.indGlobalizado := tinao; cte.ide.indIEToma := incontribuinte; //******************* 2) estou movendo tmDestinatario para cte.ide.toma03.toma - valor(1): //Classe ==> toma03 Case Tp_Tomador.ItemIndex of // Forma de Pagto do CTe 0: CTe.Ide.Toma03.Toma := tmRemetente; 1: CTe.Ide.Toma03.Toma := tmDestinatario; 2: CTe.Ide.Toma03.Toma := tmOutros; End; 3) quando gravo o xml ele sempre grava zero no toma3: -<toma3> <toma>0</toma> </toma3> 4) não encontrei nenhuma classe com o nome toma3, somente toma03. por favor me ajude.
  7. boa tarde! estou tendo problemas no toma3.toma: 1) mesmo movendo fixo: CTe.Ide.Toma03.Toma := tmDestinatario; 2) no xml grava 0 no toma: como se movesse: CTe.Ide.Toma03.Toma := tmRemetente; <toma3> <toma>0</toma> </toma3> *OBS: é movido 1 e grava 0. Alguém sabe o que pode ser?
  8. ok, resolvido, muito obrigado, valeu. Obrigado pessoal, resolvido.
  9. fiz como vc disse e agora está gerando 4 informações do seg, veja o arquivo xml (anexo): -<infDoc> -<infMunDescarga> <cMunDescarga>5209952</cMunDescarga> <xMunDescarga>INDIARA</xMunDescarga> -<infCTe> <chCTe>52161119428052000191570010000012061000719401</chCTe> -<infUnidTransp> <tpUnidTransp>1</tpUnidTransp> <idUnidTransp>ABW1301</idUnidTransp> -<lacUnidTransp> <nLacre>000</nLacre> </lacUnidTransp> -<infUnidCarga> <tpUnidCarga>4</tpUnidCarga> <idUnidCarga>ABW1301</idUnidCarga> -<lacUnidCarga> <nLacre>000</nLacre> </lacUnidCarga> <qtdRat>1.00</qtdRat> </infUnidCarga> <qtdRat>1.00</qtdRat> </infUnidTransp> </infCTe> </infMunDescarga> </infDoc> -<seg> -<infResp> <respSeg>1</respSeg> <CNPJ>00000000000000</CNPJ> </infResp> </seg> -<seg> -<infResp> <respSeg>1</respSeg> <CNPJ>00000000000000</CNPJ> </infResp> -<infSeg> <xSeg>Porto Seguro</xSeg> <CNPJ/> </infSeg> </seg> -<seg> -<infResp> <respSeg>1</respSeg> <CNPJ>00000000000000</CNPJ> </infResp> <nApol>5400027522</nApol> </seg> -<seg> -<infResp> <respSeg>1</respSeg> <CNPJ>00000000000000</CNPJ> </infResp> <nAver>000000000000000</nAver> </seg> 52170219428052000191580010000000951000000017-mdfe.xml Este é meu codigo que gera o xml: with ACBrMDFe1.Manifestos.Add.MDFe do begin // // Dados de Identificação do MDF-e // //aqui está os dados do seguro //********************************************************************************************************* seg.Add.respSeg := rsEmitente; seg.Add.xSeg := copy(trim(segnome), 1, 30); seg.Add.nApol := copy(trim(segapolice), 1, 20); seg.Add.nAver := segaverba; //********************************************************************************************************* Ide.cUF := CodUFEmpresa; // TpcnTipoAmbiente = (taProducao, taHomologacao); If Ambiente_SEFAZ = 'H' Then Ide.tpAmb := taHomologacao; If Ambiente_SEFAZ = 'P' Then Ide.tpAmb := taProducao; // TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria ); If DBGrid1.SelectedRows.Count > 0 Then // CTe Ide.tpEmit := teTransportadora; If DBGrid11.SelectedRows.Count > 0 Then // NFe Ide.tpEmit := teTranspCargaPropria; Ide.modelo := '58'; Ide.serie := QryMDFeSerie_Manifesto.Value; Ide.nMDF := QryMDFeNRO_FORMULARIO_Manifesto.Value; Ide.cMDF := 1; //Código Aleatório // TMDFeModal = ( moRodoviario, moAereo, moAquaviario, moFerroviario ); Ide.modal := moRodoviario; Ide.dhEmi := Now; // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA); if chkEmContingencia.Checked then Ide.tpEmis := teContingencia else Ide.tpEmis := teNormal; // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco); Ide.procEmi := peAplicativoContribuinte; Ide.verProc := '1.00'; If DBGrid1.SelectedRows.Count > 0 Then Begin Ide.UFIni := QryNotasgl_unidade_federativa.AsString; Ide.UFFim := QryNotasgl_unidade_federativa_1.AsString; End; If DBGrid11.SelectedRows.Count > 0 Then Begin Ide.UFIni := QryCidadeOrigsgl_unidade_federativa.AsString; Ide.UFFim := QryNotasgl_unidade_federativa_1.AsString; End; // // Dados do Emitente // Emit.CNPJ := FormatCurr('00000000',NumBaseCNPJEmpresa) + FormatCurr('0000',FilialEmpresa) + FormatCurr('00',DVCNPJEmpresa); Emit.IE := IEEmpresa; Emit.xNome := RazaoSocialEmpresa; Emit.xFant := NomFantasiaEmpresa; Emit.EnderEmit.xLgr := EnderecoEmpresa; Emit.EnderEmit.nro := NumLogradouroEmpresa; Emit.EnderEmit.xCpl := ''; Emit.EnderEmit.xBairro := NomeBairroEmpresa; Emit.EnderEmit.cMun := CodCidadeIBGE; Emit.EnderEmit.xMun := NomeCidadeEmpresa; Emit.EnderEmit.CEP := strTOint(NumCepEmpresa + FormatCurr('000', strTOint(NumSufixoCepEmpresa))); Emit.EnderEmit.UF := UFOrigem; Emit.EnderEmit.fone := FormatCurr('00', DDDFoneEmpresa) + NumFoneEmpresa; Emit.enderEmit.email := EmailEmpresa; // Veículos rodo.RNTRC := FormatCurr('00000000', strTOint(EP_Empresa)); rodo.CIOT := QryNotades_especie_volume.value; QryUltConjunto.Close; QryUltConjunto.ParamByName('placa').Value := QryNotaNum_Placa_Veiculo_Transp.AsString; QryUltConjunto.ParamByName('empresa').Value := CodEmpresa; QryUltConjunto.Open; QryVeicConjunto.Close; QryVeicConjunto.ParamByName('placa').Value := QryNotaNum_Placa_Veiculo_Transp.AsString; QryVeicConjunto.ParamByName('empresa').Value := CodEmpresa; QryVeicConjunto.ParamByName('seq').Value := QryUltConjuntoseq_conjunto.Value; QryVeicConjunto.Open; While not QryVeicConjunto.eof do Begin If QryVeicConjuntotipocomponente.Value = 'TRACAO' Then Begin rodo.veicTracao.cInt := '001'; rodo.veicTracao.placa := QryVeicConjuntoveiculo_placa.AsString; rodo.veicTracao.tara := QryVeicConjuntoVeiculo_tara.Value; rodo.veicTracao.capKG := QryVeicConjuntoVeiculo_capacidade_kg.Value; rodo.veicTracao.capM3 := QryVeicConjuntoVeiculo_capacidade_m3.Value; rodo.veicTracao.UF := QryVeicConjuntosgl_unidade_federativa.Value; rodo.veicTracao.tpRod := trToco; //Tipo Rodado If QryVeicConjuntoVeiculo_tipo_rodado.Value = 1 Then rodo.veicTracao.tpRod := trTruck; If QryVeicConjuntoVeiculo_tipo_rodado.Value = 2 Then rodo.veicTracao.tpRod := trToco; If QryVeicConjuntoVeiculo_tipo_rodado.Value = 3 Then rodo.veicTracao.tpRod := trCavaloMecanico; If QryVeicConjuntoVeiculo_tipo_rodado.Value = 4 Then rodo.veicTracao.tpRod := trVAN; If QryVeicConjuntoVeiculo_tipo_rodado.Value = 5 Then rodo.veicTracao.tpRod := trUtilitario; If QryVeicConjuntoVeiculo_tipo_rodado.Value = 99 Then rodo.veicTracao.tpRod := trOutros; // rodo.veicTracao.prop.RNTRC := QryVeicConjuntoVeiculo_antt.Value; // rodo.veicTracao.prop.xNome := QryVeicConjuntonom_ident.Value; with rodo.veicTracao.condutor.Add do begin xNome := QryNotaNomTransp.AsString; CPF := SoNumero(QryNotaCPFCNPJTransp.AsString); end; End Else // Reboque Begin with rodo.veicReboque.Add do begin cInt := '002'; placa := QryVeicConjuntoveiculo_placa.AsString; tara := QryVeicConjuntoVeiculo_tara.Value; capKG := QryVeicConjuntoVeiculo_capacidade_kg.Value; capM3 := QryVeicConjuntoVeiculo_capacidade_m3.Value; UF := QryVeicConjuntosgl_unidade_federativa.Value; tpCar := tcAberta; //Tipo Carroceria If QryVeicConjuntoVeiculo_carroceria.Value = 1 Then tpCar := tcAberta; If QryVeicConjuntoVeiculo_carroceria.Value = 2 Then tpCar := tcFechada; If QryVeicConjuntoVeiculo_carroceria.Value = 3 Then tpCar := tcGraneleira; If QryVeicConjuntoVeiculo_carroceria.Value = 4 Then tpCar := tcPortaContainer; If QryVeicConjuntoVeiculo_carroceria.Value = 5 Then tpCar := tcSider; // prop.RNTRC := QryVeicConjuntoVeiculo_antt.Value; // prop.xNome := QryVeicConjuntonom_ident.Value; end; End; QryVeicConjunto.next; End; QryVeicConjunto.Close; //Vale Pedágio If ((Length(Cpo_PedagioForn.Text) > 0) And (Length(Cpo_PedagioPagador.Text) > 0) And (Length(Cpo_PedagioComprov.Text) > 0)) Then Begin With rodo.valePed.disp.Add do Begin CNPJForn := Cpo_PedagioForn.Text; CNPJPg := Cpo_PedagioPagador.Text; nCompra := Cpo_PedagioComprov.Text; End; End; ValorTotalCarga := 0; QtdeTotalCarga := QtdeTotalCarga + PBruto; If DBGrid1.SelectedRows.Count > 0 Then Begin i1 := 0; // Contador Linhas selecionadas no Grid For i := 0 to (DBGrid1.SelectedRows.Count - 1) do begin i1 := i1 + 1; QryMDFe_CTe.Insert; DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items)); QryMDFe_CTeNum_MDFe.Value := QryMDFeNum_MDFe.Value; QryMDFe_CTeCod_Empresa_Grupo.Value := QryMDFeCod_Empresa_Grupo.Value; QryMDFe_CTeNum_Nota_Fiscal.Value := QryNotaNum_Nota_Fiscal.Value; try QryMDFe_CTe.post; except QryMDFe_CTe.cancel; abort; end; ValorTotalCarga := ValorTotalCarga + QryNotaCTE_Val_Nota_Fiscal.Value; NumPlacaVeiculo := QryNotaNum_Placa_Veiculo_Transp.AsString; i2 := 0; i3 := 0; // Flag Existe cod. município For i2 := 0 to (i1-1) do begin If CodMunCarrega[i2] = QryNotaCodCidRem.Value Then i3 := 9; // Existe Cod. Município end; If i3 = 0 Then Begin with Ide.infMunCarrega.Add do begin cMunCarrega := QryNotaCodCidRem.Value; xMunCarrega := QryNotaNomCidRem.AsString; CodMunCarrega[i1] := QryNotaCodCidRem.Value; end; end; end; End; If DBGrid11.SelectedRows.Count > 0 Then Begin i1 := 0; // Contador Linhas selecionadas no Grid For i := 0 to (DBGrid11.SelectedRows.Count - 1) do begin i1 := i1 + 1; QryMDFe_CTe.Insert; DBGrid11.DataSource.DataSet.GotoBookmark(pointer(DBGrid11.SelectedRows.Items)); QryMDFe_CTeNum_MDFe.Value := QryMDFeNum_MDFe.Value; QryMDFe_CTeCod_Empresa_Grupo.Value := QryMDFeCod_Empresa_Grupo.Value; QryMDFe_CTeNum_Nota_Fiscal.Value := QryNotaNum_Nota_Fiscal.Value; try QryMDFe_CTe.post; except QryMDFe_CTe.cancel; abort; end; ValorTotalCarga := ValorTotalCarga + QryNotaval_vcto1.Value; NumPlacaVeiculo := QryNotaNum_Placa_Veiculo_Transp.AsString; i2 := 0; i3 := 0; // Flag Existe cod. município For i2 := 0 to (i1-1) do begin If CodMunCarrega[i2] = QryCidadeOrigcod_cidade.Value Then i3 := 9; // Existe Cod. Município end; If i3 = 0 Then Begin with Ide.infMunCarrega.Add do begin cMunCarrega := QryCidadeOrigcod_cidade.Value; xMunCarrega := QryCidadeOrignom_cidade.AsString; CodMunCarrega[i1] := QryCidadeOrigcod_cidade.Value; end; end; end; End; {with infDoc.infMunDescarga.Add do begin i1 := 0; // Contador Linhas selecionadas no Grid For i := 0 to (DBGrid1.SelectedRows.Count - 1) do begin i1 := i1 + 1; i2 := 0; i3 := 0; // Flag Existe cod. município For i2 := 0 to (i1-1) do begin If CodMunDesCarrega[i2] = QryNotaCodCidDest.Value Then i3 := 9; // Existe Cod. Município end; If i3 = 0 Then Begin cMunDescarga := QryNotaCodCidDest.Value; xMunDescarga := QryNotaNomCidDest.AsString; CodMunDesCarrega[i2] := QryNotaCodCidDest.Value; End; ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// If Lst_ChavesSel.Items.Count > 0 Then Begin For i4 := 0 to (Lst_ChavesSel.Items.Count - 1) do Begin with infCTe.Add do begin // chCTe := SoNumero(QryNotaChave_NFe.AsString); chCTe := SoNumero(Lst_ChavesSel.Items.Strings[i4]); // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); tpUnidTransp := utRodoTracao; idUnidTransp := QryNotaNum_Placa_Veiculo_Transp.AsString; with lacUnidTransp.Add do begin nLacre := '000'; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := QryNotaNum_Placa_Veiculo_Transp.AsString; //'AAA9999'; with lacUnidCarga.Add do begin nLacre := '000'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with End; End Else Begin ShowMessage('Arquivos XML´s não selecionados.'); Exit; End; End; end;} //NEW /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // with infDoc.infMunDescarga.Add do // begin If DBGrid1.SelectedRows.Count > 0 Then Begin with infDoc.infMunDescarga.Add do begin i1 := 0; // Contador Linhas selecionadas no Grid For i := 0 to (DBGrid1.SelectedRows.Count - 1) do begin i1 := i1 + 1; i2 := 0; i3 := 0; // Flag Existe cod. município For i2 := 0 to (i1-1) do begin If CodMunDesCarrega[i2] = QryNotaCodCidDest.Value Then i3 := 9; // Existe Cod. Município end; If i3 = 0 Then Begin cMunDescarga := QryNotaCodCidDest.Value; xMunDescarga := QryNotaNomCidDest.AsString; CodMunDesCarrega[i2] := QryNotaCodCidDest.Value; End; End; If Lst_ChavesSel.Items.Count > 0 Then Begin For i4 := 0 to (Lst_ChavesSel.Items.Count - 1) do Begin with infCTe.Add do begin chCTe := SoNumero(Lst_ChavesSel.Items.Strings[i4]); // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); tpUnidTransp := utRodoTracao; idUnidTransp := NumPlacaVeiculo; with lacUnidTransp.Add do begin nLacre := '000'; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := NumPlacaVeiculo; with lacUnidCarga.Add do begin nLacre := '000'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with End; End Else Begin ShowMessage('Arquivos XML´s não selecionados.'); Exit; End; End; End; If DBGrid11.SelectedRows.Count > 0 Then Begin with infDoc.infMunDescarga.Add do begin i1 := 0; // Contador Linhas selecionadas no Grid For i := 0 to (DBGrid11.SelectedRows.Count - 1) do begin i1 := i1 + 1; i2 := 0; i3 := 0; // Flag Existe cod. município For i2 := 0 to (i1-1) do begin If CodMunDesCarrega[i2] = QryNotaCodCidDest.Value Then i3 := 9; // Existe Cod. Município end; If i3 = 0 Then Begin cMunDescarga := QryNotaCodCidDest.Value; xMunDescarga := QryNotaNomCidDest.AsString; CodMunDesCarrega[i2] := QryNotaCodCidDest.Value; End; End; If Lst_ChavesSel.Items.Count > 0 Then Begin For i4 := 0 to (Lst_ChavesSel.Items.Count - 1) do Begin with infNFe.Add do begin chNFe := SoNumero(Lst_ChavesSel.Items.Strings[i4]); // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); tpUnidTransp := utRodoTracao; idUnidTransp := NumPlacaVeiculo; with lacUnidTransp.Add do begin nLacre := '000'; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := NumPlacaVeiculo; with lacUnidCarga.Add do begin nLacre := '000'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with End; End Else Begin ShowMessage('Arquivos XML´s não selecionados.'); Exit; End; End; End; { If DBGrid11.SelectedRows.Count > 0 Then Begin with infDoc.infMunDescarga.Add do begin i1 := 0; // Contador Linhas selecionadas no Grid For i := 0 to (DBGrid11.SelectedRows.Count - 1) do begin i1 := i1 + 1; i2 := 0; i3 := 0; // Flag Existe cod. município For i2 := 0 to (i1-1) do begin If CodMunDesCarrega[i2] = QryNotaCodCidDest.Value Then i3 := 9; // Existe Cod. Município end; If i3 = 0 Then Begin cMunDescarga := QryNotaCodCidDest.Value; xMunDescarga := QryNotaNomCidDest.AsString; CodMunDesCarrega[i2] := QryNotaCodCidDest.Value; If Lst_ChavesSel.Items.Count > 0 Then Begin For i4 := 0 to (Lst_ChavesSel.Items.Count - 1) do Begin with infNFe.Add do begin chNFe := SoNumero(Lst_ChavesSel.Items.Strings[i4]); end; // fim do with End; End Else Begin ShowMessage('Arquivos XML´s não selecionados.'); Exit; End; End; End; End; End;} // end; //UF INTERMEDIARIAS If Length(Cpo_UF01.Text) = 2 Then Begin with Ide.infPercurso.Add do begin UFPer := Cpo_UF01.Text; end; End; If Length(Cpo_UF02.Text) = 2 Then Begin with Ide.infPercurso.Add do begin UFPer := Cpo_UF02.Text; end; End; If Length(Cpo_UF03.Text) = 2 Then Begin with Ide.infPercurso.Add do begin UFPer := Cpo_UF03.Text; end; End; If Length(Cpo_UF04.Text) = 2 Then Begin with Ide.infPercurso.Add do begin UFPer := Cpo_UF04.Text; end; End; If DBGrid1.SelectedRows.Count > 0 Then Begin QNfeCTe := DBGrid1.SelectedRows.Count; tot.qCTe := QNfeCTe; End; If DBGrid11.SelectedRows.Count > 0 Then Begin QNfeCTe := DBGrid11.SelectedRows.Count; tot.qNFe := QNfeCTe; End; tot.qCT := 0; tot.vCarga := ValorTotalCarga; // UnidMed = (uM3,uKG, uTON, uUNIDADE, uLITROS); tot.cUnid := uTon; tot.qCarga := QtdeTotalCarga; with lacres.Add do begin nLacre := '0'; end; infAdic.infCpl := ' '; infAdic.infAdFisco := ''; end;
  10. estou usando delphi xe10
  11. boa tarde Ítalo, estou tendo o seguinte problema com o acbrmdfe versão 3: Não informando os dados de seguro de carga: acbrMDFe1.Configuracoes.Geral.VersaoDF := ve300; (informo a versão do mdfe em tempo de execução dessa forma) não passo nenhuma informação sobre o seguro de carga o xml é validado, assinado e gerado blz - ok enviando o xml acima para sefaz gera o seguinte erro: 90-> rejeição: seguro da carga é obrigatório para modal prestador de serviço de transporte no modal rodoviário. (arquivo anexo) Informando os dados de seguro de carga: acbrMDFe1.Configuracoes.Geral.VersaoDF := ve300; (informo a versão do mdfe em tempo de execução dessa forma) passando os dados do seguro como segue: with ACBrMDFe1.Manifestos.Add.MDFe do begin seg.Add.respSeg := rsEmitente; seg.Add.xSeg := copy(trim(segnome), 1, 30); seg.Add.nApol := copy(trim(segapolice), 1, 20); seg.Add.nAver := segaverba; end; na validação do arquivo xml ocorre o seguinte erro: falha na validação do modal do manifesto:0 vários campos deram erro de conteudo invalido ou falta de informação.(arquivo em anexo) Está faltando alguma parâmetro que devo informar? Por favor se vc puder me ajudar ou alguém souber onde estou errando fico grato.
  12. boa tarde Italo, a versão é a 2.00
  13. Bom dia senhores! estou migrando nosso sistema de emissão de ctes para o delphi xe10, assim tive de instalar o acbr trunk2 (a versão mais atualizada), verifiquei que inumeras classes foram modificadas e assim fizemos com o nosso sistema adaptando as classes com os nomes novos. Porém estamos com um pequeno problema, a tag abaixo não está sendo gravada no arquivo .xml do cte e como já verificamos, e esta parte não foi modificada, os dados estão sendo movidos como antes, de acordo nas classes do seguro para o modal rodoviario: -<seg> <respSeg>4</respSeg> <xSeg>Porto Seguro</xSeg> <nApol>5400027522</nApol> </seg> se alguém souber de algum detalhe, por favor precisamos de ajuda. desde já agradeço pela atenção.
  14. Bom dia Italo! Estou precisando baixar o xml da sefaz utilizando o acbrcte porem não encontrei uma classe que faça isso como no acbrnfe.download, vc tem uma dica para que eu possa resolver esse problema? desde já agradeço pela atenção.
×
×
  • 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.