-
Total de ítens
55 -
Registro em
-
Última visita
Últimos Visitantes
jairobernardesjunior's Achievements
-
Informações CIOT no MDFe
um tópico no fórum postou jairobernardesjunior DFe - Documentos Fiscais Eletrônicos
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! -
acbrciot - empresas contempladas
um tópico no fórum postou jairobernardesjunior Dúvidas Gerais sobre o ACBr
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! -
AcbrCiot
jairobernardesjunior replied to robinhovrb's tópico in DFe - Documentos Fiscais Eletrônicos
Obrigado Ítalo! Tem algum documento geral padrão que o acbrciot gera para enviar para a empresa IPEF? -
AcbrCiot
jairobernardesjunior replied to robinhovrb's tópico in DFe - Documentos Fiscais Eletrônicos
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/ -
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?
-
jairobernardesjunior changed their profile photo
-
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.
-
Impressão CT-e Tomador só imprime igual Remetente
jairobernardesjunior replied to Roseno's tópico in ACBrCTe
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? -
MDF-e erro seguro da carga
jairobernardesjunior replied to Marina Benedetti Preto's tópico in ACBrMDFe
ok, resolvido, muito obrigado, valeu. Obrigado pessoal, resolvido. -
MDF-e erro seguro da carga
jairobernardesjunior replied to Marina Benedetti Preto's tópico in ACBrMDFe
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; -
MDF-e erro seguro da carga
jairobernardesjunior replied to Marina Benedetti Preto's tópico in ACBrMDFe
estou usando delphi xe10 -
MDF-e erro seguro da carga
jairobernardesjunior replied to Marina Benedetti Preto's tópico in ACBrMDFe
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. -
trunk2 + delphi xe10 (não grava tag <seg> no .xml acbrcte)
um tópico no fórum postou jairobernardesjunior ACBrCTe
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. -
Importação Do Xml - Erro List Index Of Bounds
jairobernardesjunior replied to Luiz Fernando C. Bhering's tópico in ACBrCTe
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.