Elviro

No caso, precisa atualizar o componente e os shemas.

Bom dia pessoal, alguém já passou por esse erro ao tentar enviar o CTe?

Nesse caso, eu faria uma tabela pra armazenar os contratantes e faria uma seleção da tabela de contratantes para esse manifesto e //Dados da seguradora DM.IBContratante.close; DM.IBContratante.SelectSQL.Clear; DM.IBContratante.SelectSQL.add('SELECT * FROM Contratante'); DM.IBContratante.SelectSQL.ADD('WHERE CODIGO = ' + QuotedStr(Dm.IBManifestoCODCONTRATANTE.AsString) + ''); DM.IBContratante.Prepare; DM.IBContratante.Open; with seg.Add do begin with rodo.infANTT.infContratante.Add do begin CNPJCPF := DM.IBManifestoCNPJCONTRATANTE.AsString; end; DM.IBContratante. end;

Obrigado pela dica, adicionei na uses ACBrDFeConfiguracoes, ACBrDFeSSL, e agora pegou tudo como queria!!!!

Ainda estou apanhando um pouco nessa questão, estava querendo colocar a configuração do componente mais ou menos dessa forma if EdTpCertificado.Text = 'libOpenSSL' then Begin ACBrMDFe1.Configuracoes.Geral.SSLLib := libOpenSSL; End else begin ACBrMDFe1.Configuracoes.Geral.SSLLib := libCapicom; end; mas apresenta o seguinte [DCC Error] UCertificado.pas(691): E2003 Undeclared identifier: 'libOpenSSL' [DCC Error] UCertificado.pas(695): E2003 Undeclared identifier: 'libCapicom'

Atualmente estou usando manual, ou seja, tenho que compilar o exe pra cada tipo de certificado, gostaria de usar da forma em que assim que eu escolhesse num combobox por exemplo o tipo de certificado ele mudasse a forma de busca, quando uso dessa forma, apresenta um erro if EdTpCertificado.Text = 'libOpenSSL' then Begin ACBrMDFe1.Configuracoes.Certificados.Certificado := edtCaminho.Text; ACBrMDFe1.Configuracoes.Certificados.Senha := edtSenha.Text; End else begin ACBrMDFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; end; Apresenta o erro " [DCC Error] UCertificado.pas(691): E2003 Undeclared identifier: 'Certificado'"

Acabei de resolver, segue abaixo meu código funcionando para ajudar quem está com problemas procedure TFrmCertificado.GerarMDFe(NumMDFe: String); begin DM.IBUsuario.Close; DM.IBUsuario.SelectSQL.Clear; DM.IBUsuario.SelectSQL.Add('Select * From USUARIO'); DM.IBUsuario.Prepare; DM.IBUsuario.Open; DM.IBManifesto.close; DM.IBManifesto.SelectSQL.Clear; DM.IBManifesto.SelectSQL.add('SELECT * FROM Manifesto'); DM.IBManifesto.SelectSQL.ADD('WHERE NUMERO = ' + QuotedStr(Edit1.Text) + ''); DM.IBManifesto.Prepare; DM.IBManifesto.Open; with ACBrMDFe1.Manifestos.Add.MDFe do begin //Código do estado do manifesto if dm.IBUsuarioUF.AsString = 'AC' then begin Ide.cUF := 12; end else if dm.IBUsuarioUF.AsString = 'AL' then begin Ide.cUF := 27; end else if dm.IBUsuarioUF.AsString = 'SP' then begin Ide.cUF := 35; end else if dm.IBUsuarioUF.AsString = 'AP' then begin Ide.cUF := 16; end else if dm.IBUsuarioUF.AsString = 'AM' then begin Ide.cUF := 13; end else if dm.IBUsuarioUF.AsString = 'BA' then begin Ide.cUF := 29; end else if dm.IBUsuarioUF.AsString = 'PE' then begin Ide.cUF := 26; end else if dm.IBUsuarioUF.AsString = 'PB' then begin Ide.cUF := 25; end else if dm.IBUsuarioUF.AsString = 'CE' then begin Ide.cUF := 23; end else if dm.IBUsuarioUF.AsString = 'MA' then begin Ide.cUF := 21; end else begin Ide.cUF := 26; end; //Código do estado do manifesto if EdAmbiente.Text = '0' then begin ACBrMDFe1.Configuracoes.WebServices.Ambiente := taHomologacao; end else begin ACBrMDFe1.Configuracoes.WebServices.Ambiente := taProducao end; // TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria ); if dm.IBManifestoTIPODECARGA.AsString = 'TRANSPORTADORA' Then begin Ide.tpEmit := teTransportadora; end else Begin Ide.tpEmit := teTranspCargaPropria; End; Ide.modelo := '58'; Ide.serie := 1; Ide.nMDF := StrToIntDef(dm.IBManifestoNUMERO.AsString, 0); Ide.cMDF := dm.IBManifestoCODIGO.AsInteger; // Código Aleatório // TMDFeModal = ( moRodoviario, moAereo, moAquaviario, moFerroviario ); Ide.modal := moRodoviario; Ide.tpTransp := ttETC; Ide.dhEmi := Now; // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA); Ide.tpEmis := teNormal; // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco); Ide.procEmi := peAplicativoContribuinte; Ide.verProc := '3.0'; Ide.UFIni := dm.IBUsuarioUF.AsString; Ide.UFFim := dm.IBManifestoUFMUNICIPIODESTINO.AsString; Ide.dhIniViagem := Now; with Ide.infMunCarrega.Add do begin cMunCarrega := dm.IBUsuarioCODMUNICIPIO.AsInteger; xMunCarrega := dm.IBUsuarioCIDADE.AsString; end; dm.IBManifestoPercurso.close; DM.IBManifestoPercurso.SelectSQL.Clear; DM.IBManifestoPercurso.SelectSQL.add('SELECT * FROM ManifestoPercurso'); DM.IBManifestoPercurso.SelectSQL.ADD('WHERE CODMANIFESTO = ' + QuotedStr(DM.IBManifestoCODIGO.AsString) + ''); DM.IBManifestoPercurso.Prepare; DM.IBManifestoPercurso.Open; DM.IBManifestoPercurso.First; while not DM.IBManifestoPercurso.eof do begin with Ide.infPercurso.Add do Begin UFPer := dm.IBManifestoPercursoUF.AsString; End; DM.IBManifestoPercurso.Next; end; //Dados do Emitente Emit.CNPJ := dm.IBUsuarioCPFCNPJ.AsString; Emit.IE := dm.IBUsuarioRGINSC.AsString; Emit.xNome := dm.IBUsuarioRAZAOSOCIAL.AsString; Emit.xFant := dm.IBUsuarioFANTASIA.AsString; Emit.EnderEmit.xLgr := dm.IBUsuarioENDERECO.AsString; Emit.EnderEmit.nro := dm.IBUsuarioNUMERO.AsString; Emit.EnderEmit.xCpl := dm.IBUsuarioCOMPLEMENTO.AsString; Emit.EnderEmit.xBairro := dm.IBUsuarioBAIRRO.AsString; Emit.EnderEmit.cMun := StrToInt(dm.IBUsuarioCODMUNICIPIO.AsString); Emit.EnderEmit.xMun := dm.IBUsuarioCIDADE.AsString; Emit.EnderEmit.CEP := StrToIntDef(dm.IBUsuarioCEP.AsString, 0); Emit.EnderEmit.UF := dm.IBUsuarioUF.AsString; Emit.EnderEmit.fone := dm.IBUsuarioFONE.AsString; Emit.enderEmit.email := dm.IBUsuarioEMAIL.AsString; //Dados do Emitente //Dados do transportador DM.IBTransportador.close; DM.IBTransportador.SelectSQL.Clear; DM.IBTransportador.SelectSQL.add('SELECT * FROM Transportador'); DM.IBTransportador.SelectSQL.ADD('WHERE codigo = ' + QuotedStr(Dm.IBManifestoCODTRANSPORTADOR.Text) + ''); DM.IBTransportador.Prepare; DM.IBTransportador.Open; rodo.RNTRC := Dm.IBTransportadorRNTC.AsString; rodo.CIOT := '123456789012'; with rodo.infANTT.infContratante.Add do begin CNPJCPF := '61189288000189'; end; rodo.veicTracao.cInt := DM.IBTransportadorCODIGO.AsString; rodo.veicTracao.placa := DM.IBTransportadorPLACA.AsString; rodo.veicTracao.RENAVAM := DM.IBTransportadorRENAVAM.AsString; rodo.veicTracao.tara := DM.IBTransportadorTARA.AsInteger; rodo.veicTracao.capKG := DM.IBTransportadorCAPKG.AsInteger; rodo.veicTracao.capM3 := DM.IBTransportadorCAPM3.AsInteger; // TpcteTipoRodado = (trNaoAplicavel, trTruck, trToco, trCavaloMecanico, trVAN, trUtilitario, trOutros); // Para o MDF-e não utilizar o trNaoAplicavel. if DM.IBTransportadorTIPOVEICULO.AsString = 'TRUCK' then begin rodo.veicTracao.tpRod := trTruck; end else if DM.IBTransportadorTIPOVEICULO.AsString = 'TOCO' then begin rodo.veicTracao.tpRod := trToco; end else if DM.IBTransportadorTIPOVEICULO.AsString = 'CAVALO MECÂNICO' then begin rodo.veicTracao.tpRod := trCavaloMecanico; end else if DM.IBTransportadorTIPOVEICULO.AsString = 'VAN' then begin rodo.veicTracao.tpRod := trVAN; end else if DM.IBTransportadorTIPOVEICULO.AsString = 'UTILITÁRIO' then begin rodo.veicTracao.tpRod := trUtilitario; end else begin rodo.veicTracao.tpRod := trOutros; end; // TpcteTipoCarroceria = (tcNaoAplicavel, tcAberta, tcFechada, tcGraneleira, tcPortaContainer, tcSider); if dm.IBTransportadorTIPOCARROCERIA.AsString = 'NÃO APLICÁVEL' then begin rodo.veicTracao.tpCar := tcNaoAplicavel; end Else if dm.IBTransportadorTIPOCARROCERIA.AsString = 'ABERTA' then begin rodo.veicTracao.tpCar := tcAberta; end Else if dm.IBTransportadorTIPOCARROCERIA.AsString = 'FECHADA' then begin rodo.veicTracao.tpCar := tcFechada; end Else if dm.IBTransportadorTIPOCARROCERIA.AsString = 'GRANELEIRA' then begin rodo.veicTracao.tpCar := tcGraneleira; end Else if dm.IBTransportadorTIPOCARROCERIA.AsString = 'PORTA CONTEINER' then begin rodo.veicTracao.tpCar := tcPortaContainer; end else begin rodo.veicTracao.tpCar := tcSider; end; rodo.veicTracao.UF := dm.IBTransportadorUF.AsString; with rodo.veicTracao.condutor.Add do begin xNome := DM.IBTransportadorNOMERAZAO.AsString; CPF := DM.IBTransportadorCPFCONDUTOR.AsString; end; //Dados do transportador // with rodo.veicReboque.Add do // begin // cInt := '002'; // placa := 'XYZ4567'; // RENAVAM := '123456789'; // tara := 4000; // capKG := 3000; // capM3 := 300; // TpcteTipoCarroceria = (tcNaoAplicavel, tcAberta, tcFechada, tcGraneleira, tcPortaContainer, tcSider); // tpCar := tcFechada; // UF := DM.IBUsuarioUF.AsString; // end; //Vale Pedágio with rodo.valePed.disp.Add do begin CNPJForn := '12345678000199'; CNPJPg := '21543876000188'; nCompra := '789'; end; //Vale Pedágio with infDoc.infMunDescarga.Add do begin cMunDescarga := DM.IBManifestoCODMUNICIPIODESTINO.AsInteger; xMunDescarga := DM.IBManifestoMUNICIPIODESTINO.AsString;; //Dados das Chaves do CTE DM.IBChaveCTEManifesto.close; DM.IBChaveCTEManifesto.SelectSQL.Clear; DM.IBChaveCTEManifesto.SelectSQL.add('SELECT * FROM ChaveCTEManifesto'); DM.IBChaveCTEManifesto.SelectSQL.ADD('WHERE CODMANIFESTO = ' + QuotedStr(Dm.IBManifestoCODIGO.AsString) + ''); DM.IBChaveCTEManifesto.Prepare; DM.IBChaveCTEManifesto.Open; DM.IBChaveCTEManifesto.First; while not DM.IBChaveCTEManifesto.eof do begin with infCTe.Add do begin chCTe := DM.IBChaveCTEManifestoCHAVECTE.AsString; //chCTe := '35110803911545000148570010000001011000001018'; //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 := 'ABC1234'; // informar a placa se rodoviário with lacUnidTransp.Add do begin nLacre := '123'; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'AB45'; // informar o numero da unidade da carga with lacUnidCarga.Add do begin nLacre := '123'; end; qtdRat := 1.0; end; qtdRat := 1.0; end;} end; DM.IBChaveCTEManifesto.Next; end; // fim do with //Dados das Chaves do CTE DM.IBChaveNFEManifesto.close; DM.IBChaveNFEManifesto.SelectSQL.Clear; DM.IBChaveNFEManifesto.SelectSQL.add('SELECT * FROM ChaveNFEManifesto'); DM.IBChaveNFEManifesto.SelectSQL.ADD('WHERE CODMANIFESTO = ' + QuotedStr(Dm.IBManifestoCODIGO.AsString) + ''); DM.IBChaveNFEManifesto.Prepare; DM.IBChaveNFEManifesto.Open; DM.IBChaveNFEManifesto.First; while not DM.IBChaveNFEManifesto.eof do begin with infCTe.Add do begin chCTe := dm.IBChaveNFEManifestoCHAVENFE.AsString; //chCTe := '35110803911545000148570010000001021000001023'; //Informações das Unidades de Transporte (Carreta/Reboque/Vagão) { with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); tpUnidTransp := utRodoReboque; idUnidTransp := 'XYZ5678'; with lacUnidTransp.Add do begin nLacre := '321'; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'DD98'; with lacUnidCarga.Add do begin nLacre := '321'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; } end; DM.IBChaveNFEManifesto.Next; end; // fim do with end; //Dados da seguradora DM.IBSeguradora.close; DM.IBSeguradora.SelectSQL.Clear; DM.IBSeguradora.SelectSQL.add('SELECT * FROM Seguradora'); DM.IBSeguradora.SelectSQL.ADD('WHERE CODIGO = ' + QuotedStr(Dm.IBManifestoCODSEGURADORA.AsString) + ''); DM.IBSeguradora.Prepare; DM.IBSeguradora.Open; with seg.Add do begin if DM.IBManifestoRESPSEGURO.AsString = 'EMITENTE DO CTE' then respSeg := rsEmitente else respSeg := rsTomadorServico; CNPJ := trim(dm.IBUsuarioCPFCNPJ.AsString); xSeg := copy(trim(DM.IBSeguradoraNOME.AsString), 1, 30); CNPJCPF := trim(dm.IBSeguradoraCNPJ.AsString); nApol := copy(trim(dm.IBManifestoAPOLICE.AsString), 1, 20); with aver.Add do begin nAver := trim(dm.IBManifestoAVERBACAO.AsString); end; end; //Dados da seguradora dm.IBVerifica.close; dm.IBVerifica.SQL.Clear; dm.IBVerifica.SQL.Add('SELECT count(CHAVECTE) FROM ChaveCTEManifesto'); dm.IBVerifica.SQL.Add('WHERE CODMANIFESTO = ' + QuotedStr(dm.IBManifestoCODIGO.text) + ''); dm.IBVerifica.Prepare; dm.IBVerifica.open; tot.qCTe :=dm.IBVerifica.fields[0].AsInteger; //tot.qCTe := 2; EdvCarga.Text := dm.IBManifestoVCARGA.Text; EdvCarga.Text := FormatFloat('##0.00', StrToFloat(EdvCarga.Text)); EdvCarga.Text := TrocaVirgulaPorPonto(EdvCarga.Text); tot.vCarga := StrtoFloat(EdvCarga.Text); //UnidMed = (uM3,uKG, uTON, uUNIDADE, uLITROS); if DM.IBManifestoUNIDCARGA.AsString = 'M3' then begin tot.cUnid := uM3; end else if DM.IBManifestoUNIDCARGA.AsString = 'KG' then begin tot.cUnid := uKG; end else if DM.IBManifestoUNIDCARGA.AsString = 'TON' then begin tot.cUnid := uTON; end else if DM.IBManifestoUNIDCARGA.AsString = 'UNIDADE' then begin tot.cUnid := uUNIDADE; end else begin tot.cUnid := uLITROS; end; EdTCarga.Text := dm.IBManifestoQCARGA.Text; EdTCarga.Text := FormatFloat('##0.00', StrToFloat(EdTCarga.Text)); EdTCarga.Text := TrocaVirgulaPorPonto(EdTCarga.Text); tot.qCarga := Strtofloat(EdTCarga.Text); infAdic.infCpl := 'Empresa optante pelo Simples Nacional.; Caminhao VW.'; infAdic.infAdFisco := ''; end; ACBrMDFe1.Manifestos.GerarMDFe; end;

Bom dia, mesmo colocando o exemplo acima, não passa de forma alguma, sempre diz que 665 - rejeição: as informações do seguro da carga devem ser preenchidas para o modal rodoviário

Resolvido, deixei apenas o fortes, obrigado pela ajuda!

Quando instalei o Fortes ele passou e ficou no erro Embarcadero Delphi for Win32 compiler version 21.0 Copyright (c) 1983,2009 Embarcadero Technologies, Inc. ACBr_MDFeDamdfeFR.dpk(40) Fatal: E2202 Required package 'fs14' not found Compilation failure Erro ao compilar o pacote "ACBr_MDFeDamdfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

Segue em anexo log_Delphi_2010.txt

Estou instalando pelo D2010 mesmo, pelo instalador apresenta erros quando vou instalar, por isso estou fazendo compilando e instalando o pacote direto pelo Delphi 2010

Quando vou instalar o CTe, aparece o seguinte erro undeclared identifier TIndicador alguém sabe o que posso fazer para instalar ?

Pessoal, estou enviando o MDFe e estou recebendo um erro como resposta "Seguro da carga é obrigatório para modal prestador de serviço", estou com o código abaixo with IDe.infseg.Add do begin case DM_CNT.ConhecimentoRespSeguro.AsInteger of 0: respSeg := rsRemetente; 1: respSeg := rsExpedidor; 2: respSeg := rsRecebedor; 3: respSeg := rsDestinatario; 4: respSeg := rsEmitenteCTe; 5: respSeg := rsTomadorServico; end; em qual bloco eu coloco, pois estou compilando e está mostrando erro no infseg, fiz a atualização do componente e é como se não tivesse esse código dentro dele, alguém pegou esse erro e conseguiu o ajuste?

Bom dia, ontem consegui tirar alguns conhecimentos, mas hoje quando fui emitir outros, apareceu essa mensagem, "cannot change visible in onshow or onhide" o sistema mostra a impressão dos conhecimentos, e depois fecha a tela de status e o exe fica em segundo plano, invisível para o usuário, tenho que fechar com ctrl + alt + del pra poder abrir novamente. Alguém está tendo esse mesmo problema? Desculpem, acabo de descobrir o erro, fui em project e passei o form status pra não ser criado com a aplicação e agora está tudo de volta ao normal, caso alguém passe por esse problema,

Foi isso mesmo amigo, fiz a correção e deu certo!

Bom dia pessoal, fui enviar meu CT-e e apareceu essa mensagem " Rejeição: CT-e Globalizado não pode ser utilizado para operação interestadual" Alguém sabe como resolver?

Obrigado, vou checar isso e retorno com o resultado!

Bom dia, quando vou transmitir meu CTe aparece essa mensagem, já fui pesquisar e vi que o CNPJ e a Inscrição está certa, alguém sabe ou já passou por esse erro?

Bom dia pessoal, vi que já existe um tópico falando sobre isso, mas não foi solucionado. Alguém sabe como posso pegar o protocolo de encerramento do MDFe pra poder armazenar essa informação no banco de dados? Usando o comando " ACBrMDFe.WebServices.Consulta.procEventoMDFe.Items[0].RetEventoMDFe.retEvento.Items[0].RetInfEvento.nProt; " retorna um erro.

Juliomar, mesmo fazendo dessa forma continua o mesmo erro quanto tento compilar, teria alguma coisa sugestão?

Pessoal, depois que atualizei meu componente ACBR no Delphi 7 ele passou a mostrar " rlink32 unsupported 16bit resource in file" e informa o nome da minha unit que tem o formulário. Já alterei o nome do meu dfm, voltei backup, mas não tive sucesso, alguém poderia me ajudar?

Olá pessoal, atualmente utilizo um PDV de terceiros para trabalhar com ECF, estou procurando um pdv com as rotinas do PAF prontas para homologar abrindo meu cnpj, quem tiver interesse em venda, favor entrar em contato comigo via email ou por aqui mesmo, Grato! [email protected]

Pessoal, infelizmente não estou conseguindo anexar mais de 1 xml no meu manifesto eletrônico, já tentei algumas coisas mas nada deu certo, alguém poderia me ajudar?

Infelizmente, quando coloco esse código alterando o meu, ocorre um erro na linha de baixo // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do