Ir para conteúdo
  • Cadastre-se

Elviro

Membros
  • Total de ítens

    35
  • Registro em

  • Última visita

Últimos Visitantes

1.350 visualizações

Elviro's Achievements

Contributor

Contributor (5/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

2

Reputação

  1. No caso, precisa atualizar o componente e os shemas.
  2. Elviro

    Erro ao gerar o CTe

    Bom dia pessoal, alguém já passou por esse erro ao tentar enviar o CTe?
  3. 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;
  4. Obrigado pela dica, adicionei na uses ACBrDFeConfiguracoes, ACBrDFeSSL, e agora pegou tudo como queria!!!!
  5. 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'
  6. 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'"
  7. 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;
  8. 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
  9. Resolvido, deixei apenas o fortes, obrigado pela ajuda!
  10. 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.
  11. Segue em anexo log_Delphi_2010.txt
  12. 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
  13. Elviro

    Erro ao instalar ACBR no D2010

    Quando vou instalar o CTe, aparece o seguinte erro undeclared identifier TIndicador alguém sabe o que posso fazer para instalar ?
  14. 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?
  15. 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,
×
×
  • 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.