aCBrCIOT opGravarVeiculo

[Luiz Carlos de Lima]

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

[Italo Giurizzato Junior]

Boa noite Luiz,

Antes de executar o método Enviar, você esta configurando o componente corretamente?

Sugiro você estudar o código do programa exemplo.

[Luiz Carlos de Lima]

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;

 

Editado 22 Abril, 2020 por Luiz Carlos de Lima

[Italo Giurizzato Junior]

Bom dia Luiz,

O eFrete não disponibilizou os Schemas, logo indica a mesma pasta de schemas do CT-e ou da NF-e.

A rotina que configura o componente esta sendo executada antes da realização do envio?

No programa exemplo ocorre o mesmo erro?

[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?

[Italo Giurizzato Junior]

Boa tarde Luiz,

Se não me falha a memória em ambiente de homologação é possível realizar todos os testes sem a necessidade do certificado digital.

Neste caso você não deve informar o numero de serie, senha, caminho ou conteúdo do arquivo PFX ao configurar o componente.

Veja no programa exemplo, que existe uma linha que determina se o certificado vai ser utilizado ou não.

  // Não for informado nenhuma informação a respeito do certificado
  // o componente será configurado para não carregar o certificado.
  ACBrCIOT1.SSL.UseCertificateHTTP := (edtCaminho.Text <> '') or
                              (edtSenha.Text <> '') or (edtNumSerie.Text <> '');

 

[Luiz Carlos de Lima]

Agora, Italo Jurisato Junior disse:

Boa tarde Luiz,

Se não me falha a memória em ambiente de homologação é possível realizar todos os testes sem a necessidade do certificado digital.

Neste caso você não deve informar o numero de serie, senha, caminho ou conteúdo do arquivo PFX ao configurar o componente.

Veja no programa exemplo, que existe uma linha que determina se o certificado vai ser utilizado ou não.

  // Não for informado nenhuma informação a respeito do certificado
  // o componente será configurado para não carregar o certificado.
  ACBrCIOT1.SSL.UseCertificateHTTP := (edtCaminho.Text <> '') or
                              (edtSenha.Text <> '') or (edtNumSerie.Text <> '');

 

Pois é o que entendi. Fiz das duas formas abaixo, e continua dando o erro.

  ACBrCIOT1.SSL.UseCertificateHTTP := (edtCaminho.Text <> '') or (edtSenha.Text <> '') or (edtNumSerie.Text <> '');

  ACBrCIOT1.SSL.UseCertificateHTTP := false;

 

[Italo Giurizzato Junior]

Bom dia Luiz,

Com o programa exemplo ocorre o mesmo problema?

[Luiz Carlos de Lima]

Boa tarde Ítalo,

Não cheguei a fazer teste com o exemplo, criei uma formulário usando a estrutura do exemplo. Mas pode ser que o problema é porque não estou fazendo login, e parece que se não usar certificado é necessário fazer login. Vou fazer mais testes. Grato pela atenção.

 

[Italo Giurizzato Junior]

Boa tarde Luiz,

Se não usar o certificado digital se faz necessário fazer o Login antes do envio de outros operações.

[Luiz Carlos de Lima]

Bom dia Ítalo, Grato pela atenção.

[Luiz Carlos de Lima]

Boa tarde Ítalo,

Ao fazer Operacao  opLogin  independente de estar informando a integradora como iNone, ieFrete, iRepom..., o retorno é sempre o mesmo. Considerando que para testes fiz parceria com o eFrete, não deveria retonar um erro quando informar  Integradora diferente de ieFrete. Anexei XMLs separando os iNone e ieFrete. O retorno dos dados são sempre os mesmos também.

 

Retorno do Envio
Versão...........: 1
Sucesso..........: true
Protocolo Serviço: 459123

Token........................: 95-91-54-5D-9F-78-E4-31-38-F1-D4-6F-3F-96-B7-C4-A4-0F-A1-11
Código Identificação Operação:
Data.........................: 30/12/1899
Protocolo....................:
Data Retificação.............: 30/12/1899
Quantidade Viagens...........: 0
Quantidade Pagamentos,.......: 0
Id Pagamento Cliente.........:

20200504164130-res-iNone-Login-soap.xml 20200504164129-ped-iNone-Login-soap.xml 20200504163648-ped-ieFrete-Login-soap.xml 20200504163648-res-ieFrete-Login-soap.xml

[Italo Giurizzato Junior]

Boa noite Luiz,

Isso também ocorre com o programa exemplo?

[Luiz Carlos de Lima]

bom dia,

Sim, testei também pelo programa exemplo.

[Italo Giurizzato Junior]

Bom dia Luiz,

Fiz uma correção e enviei para o repositório.

Favor atualizar os fontes, reinstalar a suíte ACBr e faça novos testes.

[Luiz Carlos de Lima]

Fontes atualizados e ACBr reinstalado.

1 - No demo Continua não usando a definição do combo cbbIntegradora, no xml gerado continua sempre eFRETE.

2 - No meu form agora está dando erro quando executado.  Message 'TCIOTWClass.GerarXml, não implementado'

 

[Italo Giurizzato Junior]

Boa tarde Luiz,

Verifica se todos os fontes foram atualizados, veja se não tem nenhum com uma bolinha vermelha em seu ícone em especial os do CIOT.

[Luiz Carlos de Lima]

Boa tarde Ítalo,

Foram todas atualizadas sim.

Veja bem, noformulário exemplo não esta dando o erro, ele esta ocorrendo no meu formulário, começou com a atualização.

Em pcnCIOTW

function TCIOTWClass.GerarXml: Boolean;
begin
  Result := False;
  raise EACBrDFeException.Create(ClassName + '.GerarXml, não implementado');
end;

 

[Italo Giurizzato Junior]

Bom dia Luiz,

Se no programa exemplo mesmo com a atualização dos fontes funciona sem nenhum problema, por outro lado na sua aplicação ocorre erro, com certeza a configuração do componente na sua aplicação não esta correta ou esta incompleta.

Como o erro se refere a geração do XML, você configurou corretamente a propriedade de configuração chamada: Integradora?

Ela tem que esta com o valor: eFrete.

[Luiz Carlos de Lima]

Boa tarde Ítalo,

1 - O problema só ocorre quando envia iNone para a Integradora. Com ieFrete OK, com IRepom e IPanCard não retorna o Token mas não dá erro.

2 - Vai ser liberado também integração com IRepom e IPanCard

[Italo Giurizzato Junior]

Boa noite Luiz,

Não entendo o motivo de você configurar o componente com um valor diferente de ieFrete para o Integrador, sendo que o componente no momento só trabalha com o eFrete.

Quanto ao iRepom e iPanCard, caso você deseja colaborar com o projeto,  implementando um deles ficaremos agradecido.

[Luiz Carlos de Lima]

Bom dia Ítalo,

Sobre o iRepom e o iPanCard, comentei porque no seu modelo ele constam no combo. Se tiver algum cliente que exija outro que não seja o ieFrete, e precisar montar com certeza colaborarei.

Grato pela atenção.