Erro Transmissão ACBRCIOT

[kleberson]

Boa tarde.

Ao enviar o cadastro de proprietário do veículo aparece a seguinte mensagem utilizando o programa de exemplo.

ERRO: 
Inicio TCIOTEnviar
ERRO: WebService Enviar Documento:
- Inativo ou Inoperante tente novamente.
Erro Interno: 12030
Erro HTTP: 0
URL: https://dev.efrete.com.br/Services/ProprietariosService.asmx
Falha no Envio da Requisição.
Erro: 12030 - A conexão com o servidor foi redefinida ou encerrada, ou um protocolo SSL incompatível foi encontrado
ERRO: 

Já alterei todas as opções de SSL e criptografia mas não está funcionando.

Qual poderia ser o problema

[Italo Giurizzato Junior]

Bom dia Kleberson,

Configure SSL Lib com o valor libWinCrypt e SSL Type com o valor LT_TLSv1_2.

[kleberson]

Fiz as configurações informadas, mas apresenta o seguinte erro:

ES - Homologação

 

Inicio TCIOTEnviar
ERRO: WebService Enviar Documento:
- Inativo ou Inoperante tente novamente.
Erro Interno: 0
Erro HTTP: 500
URL: https://dev.efrete.com.br/Services/ProprietariosService.asmx

ERRO: 

[Italo Giurizzato Junior]

Bom dia Kleberson,

Você esta com todos os fontes de todas as pastas atualizados?

Se sim, reinstalou a suíte ACBr?

[mlspinelli]

Italo, boa noite.

Encontrei dois erros na unit pcnCIOTW_eFrete.pas

procedure TCIOTW_eFrete.GerarPagamentosAdicPagamento;

No loop  

for i := 0 to CIOT.AdicionarOperacao.Pagamentos.Count -1 do
  begin
    with CIOT.AdicionarOperacao.Pagamentos.Items do

 

deve ser substituido por  

 for i := 0 to CIOT.AdicionarPagamento.Pagamentos.Count -1 do
  begin
    with CIOT.AdicionarPagamento.Pagamentos.Items do

pois do jeito que está, a operação opAdicionarPagamento não adiciona os pagamentos pois o loop está apontando para outra classe. 

Mesmo problema no método GerarPagamentosEncerramento

deve ser substituido por  

 for i := 0 to CIOT.EncerrarOperacao.Pagamentos.Count -1 do
  begin
    with CIOT.EncerrarOperacao.Pagamentos.Items do

 

Meus fontes estão atualizados. Puxei tudo hoje pela manhã.

Em anexo vai com as alterações!

pcnCIOTW_eFrete.pas

Editado 14 Fevereiro, 2020 por mlspinelli

[Juliana Tamizou]

Bom dia.

Obrigada pela contribuição, adicionada para validação, retornaremos assim que for analisada.

Att.

[Italo Giurizzato Junior]

Bom dia mlspinelli,

Muito obrigado pela colaboração, já esta no repositório.

Favor atualizar os fontes e faça novos testes.

[mlspinelli]

Estou finalizando a homologação completa com o acbrciot. Em breve envio as outras alterações necessárias.

[mlspinelli]

Bom dia Italo,

 

Seguem os arquivos homologados pela E-frete. 

 

Adicionei tbm alguns métodos que não estavam implementados.

Tem uma alteração no PCNretenvio que comentei o retorno do PDF, pois o decodebase de vocês não está funcionando para mim. Creio que seja dll.

 

Estou partindo para homologar o Pamcard e o REPOM. 

Posto em breve as alterações

Qualquer dúvida estou à disposição.

pcnCIOT.pas pcnCIOTW_eFrete.pas pcnConversaoCIOT.pas pcnRetEnvCIOT.pas ACBrCIOTWebServices.pas

[Italo Giurizzato Junior]

Boa tarde Spinelli,

Na Unit pcnConversaoCIOT encontrei coisas muitos estranhas, por exemplo:

function StrToTipoPagamento(out ok: Boolean; const s: String): TpTipoPagamento;
begin
  Result := StrToEnumerado(ok, s, ['', 'TransferenciaBancaria', 'eFRETE'],
                        [TransferenciaBancaria, TransferenciaBancaria, eFRETE]);
end;

Se o tipo de pagamento for vazio ou for TransferenciaBancaria deve retornar o enumerado TransferenciaBancaria?

function StrToDiferencaFreteBaseCalculo(out ok: Boolean; const s: String): TpDiferencaFreteBaseCalculo;
begin
    Result := StrToEnumerado(ok, s, ['', 'QuantidadeDesembarque', 'QuantidadeMenor'],
                              ['', QuantidadeDesembarque, QuantidadeMenor]);
end;

Se a Diferença do Frete BC for vazio vai retornar qual enumerado?

Por favor reveja o que foi feito, pois para mim esta muito estranho.

[mlspinelli]

Os vazios pode retirar Italo, esqueci de apagar, pois estava testando aqui.

Desculpa o equívoco.

[Italo Giurizzato Junior]

Na unit que gera os XMLs das ações notei também que você removeu vários IFs, porque?

Se não me falha a memória eu coloquei eles pois consta que aqueles campos ou grupos são opcionais.

[mlspinelli]

São campo obrigatórios Italo.

InformacoesBancarias so deve ser enviado quando o tipo de pagamento é Transferência Bancaria.

QuantidadeDaMercadoriaNoEmbarque na verdade não é a quantidade e sim o peso das mercadorias da nota (erro da nomenclatura e uso do proprio efrete) e deve ser igual ao peso da carga, por isso mudei para dec2.

As Tags ToleranciaDePerdaDeMercadoria e DiferencaDeFrete devem ser enviados mesmo se o valor for 0.

A tag FreteRetorno e seus filhos so devem ser preenchidos se tiver Frete de Retorno

Na operação de retificar a versão correta é 3.  GerarIdentificacao(3);

Na operação Retificar Operação os campos que comentei nao sao mais utilizados. Pelo menos quando enviei com as tags, retornou a mensagem que estão descontinuados.

Tag EmissaoGratuita = True quando for TipoPagamento = TransferenciaBancaria e False quando for TipoPagamento = eFrete

CodigoNCMNaturezaCarga so preencher quando for TacAgregado

O método GerarPagamentos não deve ser chamado quando for TacAgregado. Para adicionar pagamentos no tacagregado utilizar o metodo AdicionarPagamento

 

 

 

 

 

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pela colaboração, já foi enviado para o repositório.