jairobernardesjunior

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!

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?

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.

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?

ok, resolvido, muito obrigado, valeu. Obrigado pessoal, resolvido.

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;

estou usando delphi xe10

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.

valeu Italo, deu certo, obrigado.

boa tarde Italo, a versão é a 2.00

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.

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.

Cara se tudo fosse tão simples assim..... muito obrigado.

Fiz Uma atualização fazer acbr Nesse momento e listei OS eventos que acbrtefd fazer demotefd, de Uma olhada.

Olá Juliomar, me desculpe, as fonte saiu em caixa alta porque eu copiei e colei. Esse evento OnExibeMenu tem que estar no componente acbrtefd? No demo não existe esse evento.

BOM DIA SENHORES! estou tentando inicializar o acbrtefd e ocorreo seguinte erro neste comando -> ACBrTEFD1.Inicializar( TACBrTEFDTipo( 4 ) ); erro: EVENTO "ONEXIBEMENU" NÃO PROGRAMADO O código segue abaixa, se alguém puder me ajudar fico grato. uso gpclisitef que é a posição 4. with frmlogon do begin ACBrTEFD1.TEFCliDTEF.NumVias := qryCaixas_numero_vias_tef.value; FmtStr(NumeroTerminal,'%.3d',[qryCaixas_numero_terminal_tef.value]); ACBrTEFD1.TEFCliDTEF.NumeroTerminal := NumeroTerminal; ACBrTEFD1.TEFCliDTEF.ArqResp := qryCaixas_path_arqresp_tef.value; ACBrTEFD1.TEFCliSiTef.Habilitado := true; ACBrTEFD1.AutoEfetuarPagamento := boolean(qryCaixas_auto_efetuar_pagamento_tef.Value); ACBrTEFD1.AutoFinalizarCupom := boolean(qryCaixas_auto_finaliza_cupom_tef.Value); ACBrTEFD1.MultiplosCartoes := boolean(qryCaixas_multiplos_cartoes_tef.Value); ACBrTEFD1.AutoAtivarGP := boolean(qryCaixas_auto_ativar_gp_tef.Value); ACBrTEFD1.CHQEmGerencial := boolean(qryCaixas_chq_emgerencial_tef.Value); ACBrTEFD1.EsperaSleep := qryCaixas_espera_sleep_tef.Value; ACBrTEFD1.EsperaSTS := qryCaixas_espera_sts_tef.Value; end; mResp.Lines.Add('' ); mResp.Lines.Add('Inicializando: ' + 'gpCliSiTef' ); ACBrTEFD1.Inicializar( TACBrTEFDTipo( 4 ) ); // MSG: EVENTO "ONEXIBEMENU" NÃO PROGRAMADO mResp.Lines.Add('ACBrTEFD.Inicializar Executado' );

BOM DIA SENHORES! estou tentando inicializar o acbrtefd e ocorreo seguinte erro neste comando -> ACBrTEFD1.Inicializar( TACBrTEFDTipo( 4 ) ); erro: EVENTO "ONEXIBEMENU" NÃO PROGRAMADO O código segue abaixa, se alguém puder me ajudar fico grato. uso gpclisitef que é a posição 4. with frmlogon do begin ACBrTEFD1.TEFCliDTEF.NumVias := qryCaixas_numero_vias_tef.value; FmtStr(NumeroTerminal,'%.3d',[qryCaixas_numero_terminal_tef.value]); ACBrTEFD1.TEFCliDTEF.NumeroTerminal := NumeroTerminal; ACBrTEFD1.TEFCliDTEF.ArqResp := qryCaixas_path_arqresp_tef.value; ACBrTEFD1.TEFCliSiTef.Habilitado := true; ACBrTEFD1.AutoEfetuarPagamento := boolean(qryCaixas_auto_efetuar_pagamento_tef.Value); ACBrTEFD1.AutoFinalizarCupom := boolean(qryCaixas_auto_finaliza_cupom_tef.Value); ACBrTEFD1.MultiplosCartoes := boolean(qryCaixas_multiplos_cartoes_tef.Value); ACBrTEFD1.AutoAtivarGP := boolean(qryCaixas_auto_ativar_gp_tef.Value); ACBrTEFD1.CHQEmGerencial := boolean(qryCaixas_chq_emgerencial_tef.Value); ACBrTEFD1.EsperaSleep := qryCaixas_espera_sleep_tef.Value; ACBrTEFD1.EsperaSTS := qryCaixas_espera_sts_tef.Value; end; mResp.Lines.Add('' ); mResp.Lines.Add('Inicializando: ' + 'gpCliSiTef' ); ACBrTEFD1.Inicializar( TACBrTEFDTipo( 4 ) ); // MSG: EVENTO "ONEXIBEMENU" NÃO PROGRAMADO mResp.Lines.Add('ACBrTEFD.Inicializar Executado' );

Bom dia senhores! Preciso obter da balança, através do acbrbal, qual a situação de funcionamento da mesma, qual o status de funcionamento, se está operacional ou não. Alguém sabe como?

Na verdade preciso recuperar os dados que estão na nas tags do xml e estou usando o componente acbrnfe, isso para dar entrada em notas fiscais eletronicas emitidas contra meu cliente. estou com o seguinte problema: No código abaixio está dando o erro - [Error] UFrmXMLEntrada.pas(315): Incompatible types: 'String' and 'TpcnModalidadeFrete' **** obs: o valor que está no xml é 0. QryNFind_tipo_frete.value := ACBrNFe1.NotasFiscais.Items[0].NFe.transp.modFrete;

Boa tarde Ítalo! Estou precisando imprimir o DANFe do xml 2.00 mas com a versão 3.10 há perda de alguns dados. Como posso fazer, existe alguma configuração no acbrNFe 3.10?

Boa tarde Gustavo! Realmente tivemos um período bastante turbulento com os serviços da sefaz de MG após a semana santa. Agora parece estar mais estável mas tem dias que ainda apresenta alguns problemas no envio de documentos eletrônicos.

Obrigado amigos!

Boa Tarde amigos! Alguém sabe se já está podendo emitir NFc-e oficialmente no Estado de Minas Gerais, substituindo o ECF?

OK Ítalo, o problema de não gravar o arquivo PDF realmente foi somente retirar o comentário da diretiva {$DEFINE QReport_PDF} no arquivo acbr.inc no acbr. Valeu, muito obrigado!

Ítalo, o acbrcte usa algum aplicativo (ex: adobe) para gerar o arquivo pdf?