Luiz Carlos de Lima

O problema estava na configuração. Agora está dando Certificado não encontrato. Não entendi porque tenho que informar certificado, Sendo que estou apenas fazendo testes e não tenho nenhum certificado cadastrado junto ao eFrete. Eles me passaram usuario, senha e Hash para testes. Alguma dica ou é melhor ver com o eFrete?

Bom dia Ítalo, Obs: Só não consegui encontrar os schemas na pasta de schemas em exemplos, seria isso? Sim estou seguindo o exemplo: Configurações: ACBrCIOT1.SSL.UseCertificateHTTP := false; with ACBrCIOT1.Configuracoes.Geral do begin SSLLib := ACBrCIOT1.Configuracoes.Geral.SSLLib; SSLCryptLib := ACBrCIOT1.Configuracoes.Geral.SSLCryptLib; SSLHttpLib := ACBrCIOT1.Configuracoes.Geral.SSLHttpLib; SSLXmlSignLib := ACBrCIOT1.Configuracoes.Geral.SSLXmlSignLib; ACBrCIOT1.SSL.SSLType := LT_TLSv1_2; Salvar := true; ExibirErroSchema := true; RetirarAcentos := true; FormatoAlerta := vFormatoAlerta; FormaEmissao := TpcnTipoEmissao(cbFormaEmissao.ItemIndex); VersaoDF := TVersaoCIOT(cbVersaoDF.ItemIndex); Integradora := StrToIntegradora(Ok, cbbIntegradora.text); edtUsuarioWebService.Text := 'usuario@ks'; edtSenhaWebService.Text := 'usuario#ks'; edtHashIntegrador.Text := '4c0e6531-dc14-49bb-874d-041415b874e7'; Usuario := edtUsuarioWebService.Text; Senha := edtSenhaWebService.Text; HashIntegrador := edtHashIntegrador.Text; end; with ACBrCIOT1.Configuracoes.WebServices do begin UF := UFOrigem; if rgTipoAmb.ItemIndex = 0 then Ambiente := taProducao else Ambiente := taHomologacao; Visualizar := true; Salvar := true; AjustaAguardaConsultaRet := true; if NaoEstaVazio(edtAguardar.Text)then AguardarConsultaRet := ifThen(StrToInt(edtAguardar.Text) < 1000, StrToInt(edtAguardar.Text) * 1000, StrToInt(edtAguardar.Text)) else edtAguardar.Text := IntToStr(AguardarConsultaRet); if NaoEstaVazio(edtTentativas.Text) then Tentativas := StrToInt(edtTentativas.Text) else edtTentativas.Text := IntToStr(Tentativas); if NaoEstaVazio(edtIntervalo.Text) then IntervaloTentativas := ifThen(StrToInt(edtIntervalo.Text) < 1000, StrToInt(edtIntervalo.Text) * 1000, StrToInt(edtIntervalo.Text)) else edtIntervalo.Text := IntToStr(ACBrCIOT1.Configuracoes.WebServices.IntervaloTentativas); TimeOut := 5000; end; with ACBrCIOT1.Configuracoes.Arquivos do begin Salvar := true; AdicionarLiteral := true; EmissaoPathCIOT := true; SepararPorCNPJ := true; SepararPorModelo := true; PathSchemas := 'C:\Gintran\Programa\Schemas\CIOT'; if not DirectoryExists('C:\Gintran\Programa\CIOT') then ForceDirectories('C:\Gintran\Programa\CIOT'); PathCIOT := 'C:\Gintran\Programa'; PathSalvar := PathMensal; end;

Boa Tarde, Estou montando rotina para a geração do aCBrCIOT, comecei pela gravação de Veículo opGravarVeiculo, mas esta dando o erro em anexo. Não chega a montar o XML. Grato pela ajuda

Boa tarde, Aproveitando este chamado, também estou precisando pegar o protocolo após chamar ACBrMDFe1.EnviarEvento( 1 ) e não estou conseguindo.

Bom dia José, já tinha debugado e não tinha visto nada de errado. Mas já descobri o problema, Procurei fazer mais testes observando melhor no que estava carregando no CNPJCPF. Quando fechava o formulário após enviar o MDFe e o carregava posteriormente a tag CNPJCPF estava vazia. Grato pelo retorno, me ajudou a prestar mais atenção nesta tag.

Boa tarde, Estou com uma rejeição ao enviar um evento ACBrMDFe1.EnviarEvento( 1 ) conforme anexo. O problema é que não é uma constante, uns da rejeição outros não, sendo as mesmas informações. Até mesmo um que dá a rejeição posteriormente consigo enviar. Quando dá rejeicao não monta o XML para verificar. Se alguem já passou por isso ou tem alguma idéia agradeço.

Bom dia, Obrigado ítalo, só tinha me atentado para o evento pagamento.

Bom dia, No DAMDFE tem uma espaço para ser informado o Vale Pedágio. Considerando que o Vale Pedágio é informado no evento tePagamentoOperacao, que é enviado após o envio do MDFe, não entendi o sentido dele sair no DAMDFE. Podem ma dar uma ajuda. Grato.

Bom dia, No site da antt encontrei uma relação de Instituição de pagamento Eletrônico do Frete, será que são estas que estão homologadas? http://www.antt.gov.br/cargas/arquivos_old/Instituicoes_de_Pagamento_Eletronico_de_Frete.html

Boa tarde, Estou montando os procedimentos conforme estão no botão "Pag. Operação Transporte", então surgiu uma dúvida, nesta integração MDFe/CIOT não vai mais precisar ter uma empresa tipo o eFrete para fazer a transação, só tem campos para informação bancária. Ou seria o campo CNPJIPEF que está tag InfBanc que é a Instituição de pagamento Eletrônico do Frete.

Com relação ao CNPJ, o problema era que estava informando da empresa 06.773.063/0001-08 do PI e o do certificado esta 06.773.063/0002-48 do DF. Pensava que era comparado somente a parte principal 06.773.063. Só fiquei na dúvida se o problema era porque são de estados diferentes ou se realmente precisa ser completo 06.773.063/0001-08, ou seja, se uma filial dentro do mesmo estado com final do CNPJ diferente pode ou não usar um único Certificado. Como não tenho este caso no momento não consegui testar. Ref. a I.E ficou OK, estava pegando UF de variavel errada. Grato pela atenção.

Boa tarde, Codigo de estado > DF = 53 e PI = 22 Emitindo um BPe do DF para PI com Certificado No DABPE é informado a Agencia e o Emitente, sendo que a tag “Agencia” da Agencia está definido no manual “Identificação da agência/preposto/terceiro que comercializou o BP-e” e na tag “Emit” do Emitente que diz apenas “Identificação do Emitente do BP-e”. Então começa o problema quando a agencia é de terceiro, pois o certificado para envio do BPe é da empresa detentora da linha. 1 - Dados para Emissão: BPe.Ide.cUF = 53 As Tags “Agencia” e “Emit” foi informado os dados da agencia de terceiro do Estado DF Rejeicao: CNPJ do documento é diferente do CNPJ do Certificado Deduzi que a tag “Emit” devia ser as informações da empresa, pois acredito que deva ter alguma informação da empresa detentora da linha. Dados para nova Emissão: 2 - BPe.Ide.cUF = 53 Estado emissor Na tag “Agencia” os dados da Agencia de Terceiro do DF Na tag “Emit” os dados da empresa do PI Rejeicao: I.E do Emitente inválida. (Foi verificado e a I.E esta correta 194119548) Obs. Parece que esta comparando a I.E da empresa com a UF do DF.

Pois é, vou entrar em contato com eles para saber.

Bom dia Ítalo, Mas o problema só ocorre quando envio a tag de partilha, estou trabalhando sem informar ela. Este erro esta acontecendo com a SEFAZ de MT. Fiz o que voce me pediu, enviei sem informar a tag responsável técnico mas não resolver. Resumindo: Vou continuar trabalhando sem informar tag Partilha. Grato pela atenção.

21 de Fevereiro 2020 Boa tarde Luiz, Se depois da alteração que fiz para não mais gerar a tag <pICMSInterPart> pois ela não existe mais no Schema e continua gerando isso significa que o arquivo pcnBPeW.pas não foi atualizado. Procure e apague todos os fontes que por ventura tenha uma bolinha vermelha no ícone. Atualize novamente todos os fontes de todas as pastas. Reinstale a suíte ACBr utilizando o ACBrInstall_Trunk2 marcando a opção para apagar arquivos antigos. E faça novos testes. 21 de Fevereiro 2020 Boa tarde Ítalo, Estávamos tratando deste assunto em outro tópico, mas como estive viajando não consegui responder, ele foi fechado. Lembrando de nosso último contato: Boa tarde Ítalo, Segui todos os procedimentos que voce me passou e não resolveu, está dando Rejeição: Falha no schema XML. Então deletei as pastas do ACBrBPe dos fontes, pacotes e schemas, e fiz update novamente. Rodei um arquivo Apagar.bat, atualizei novamente o schemas, Reinstalei a suíte ACBr utilizando o ACBrInstall_Trunk2 marcando a opção para apagar arquivos antigos. Continua com o mesmo erro ao enviar. Rejeição: Falha no Schema XML. 24 de Fevereiro 2020 Bom dia Luiz, Favor anexar esse ultimo XML gerado e enviado para a SEFAZ, pois agora não se trata de um erro de validação como antes e sim uma rejeição por parte da SEFAZ. xmls anexados. 1-pro-lot.xml 1-env-lot.xml 51200303915923000161630030000005351854652449-bpe.xml

Boa tarde Ítalo, Segui todos os procedimentos que voce me passou e não resolveu. Então deletei as pastas do ACBrBPe dos fontes, pacotes e schemas, e fiz update novamente. Rodei um arquivo Apagar.bat, atualizei novamente o schemas, Reinstalei a suíte ACBr utilizando o ACBrInstall_Trunk2 marcando a opção para apagar arquivos antigos. Continua com o mesmo erro ao enviar. Rejeição: Falha no Schema XML.

Sim, sempre. Sim

OK, vou fazer isso. Grato.

Bom dia Ítalo, Atualizei e reinstalei ontem as 17:00, agora esta dando erro de schemas. já atualizei os schemas e continua com o erro ao enviar.

Boa tarde, Estou fazendo o processo do CIOT na mesma unit do MDFe (Delphi). Estou com alguns problemas nas tags do MDFe. Por exemplo na tag rodo.veicTracao.tpRod := trNaoAplicavel é utilizado o pcnConversao, e para o CIOT preciso do pcnConversaoCIOT. Quando informo o pcnConversaoCIOT na uses, começa a dar erro nas tags do MDFe > "[dcc32 Error] CAMovManifestoMDFe.pas(4243): E2010 Incompatible types: 'TpcteTipoRodado' and 'TpTipoRodado'." Ele passa a verificar o trNaoAplicavel de pcnConversaoCIOT e nao mais de pcnConversao. Grato pela atenção,

Bom dia, Estou testando envio do DABPE com a tag de partilha mas esta dando erro na tag pICMSInterPart de não esperada, mesmo tirando ela no bloco o ACBr continua gerando ela. BPe.Imp.ICMSUFFim.vBCUFFim := FDMBPe.CDSBilheteBPe.FieldByName('BaseICMS_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMSUFFim.pICMSUFFim := VAliquotaEstadoDestino; BPe.Imp.ICMSUFFim.pICMSInter := FDMBPe.CDSBilheteBPe.FieldByName('AliqPart_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMSUFFim.vICMSUFFim := (ValorTotalDaPartilha * PercPartilhaUFDestino)/100; BPe.Imp.ICMSUFFim.vFCPUFFim := (((ValorTotalDaPartilha * PercPartilhaUFDestino)/100) * FDMBPe.CDSBilheteBPe.FieldByName('PercCombate_Estado_Nucleo').AsCurrency)/100; // BPe.Imp.ICMSUFFim.pICMSInterPart := 0; IF vEmpresaFilialOrigem_SimplesNacional then BPe.Imp.ICMSUFFim.vICMSUFIni := 0 Else BPe.Imp.ICMSUFFim.vICMSUFIni := (ValorTotalDaPartilha*PercPartilhaUFOrigem)/100; BPe.Imp.ICMSUFFim.pFCPUFFim := FDMBPe.CDSBilheteBPe.FieldByName('PercCombate_Estado_Nucleo').AsCurrency; Grato, 51200203915923000161630030000005251065095789-bpe.xml Luiz

Obrigado a todos pela atenção, voltei a Revision 18275 que resolveu o problema no momento. Depois vou fazer ajustes no ACBrBPeDABPeESCPOS1.PosPrinter.EspacoEntreLinhas := <x> para adequar a minha necessidade como sugerido. Abraços

Estava pensando nisso, o problema vou ter quando houver alterações no componente, a não ser que o acbr mantenha dois modelos atualizados, o que acredito que não irão fazer. Vou ver se consegui ajustar o modelo atual para mim. Grato pela atençao Este ficou com bom, mas testando na Bematech MP-4200.

Bom dia ítalo, realmente agradar a todos é um problema, sei muito bem como é. Excelente trabalho, vou fazer isso. Muito obrigado.