function TACBrMDFe.GetURLConsulta(const CUF: integer; const TipoAmbiente: TpcnTipoAmbiente; const Versao: Double): String; var VersaoDFe: TVersaoMDFe; ok: Boolean; begin VersaoDFe := DblToVersaoMDFe(ok, Versao); Result := LerURLDeParams('MDFe',

[Antonio Gomes]

Muitos vão achar chatisse, mas a variavel VersaoDFe ao aplicar build all, mostra sem valor...

Segue fonte com linhas desnecessárias removidas.

function TACBrMDFe.GetURLConsulta(const CUF: integer;
  const TipoAmbiente: TpcnTipoAmbiente; const Versao: Double): String;
var
  VersaoDFe: TVersaoMDFe;
  ok: Boolean;
begin
  VersaoDFe := DblToVersaoMDFe(ok, Versao);
  Result := LerURLDeParams('MDFe', CUFtoUF(CUF), TipoAmbiente, 'URL-ConsultaMDFe', 0);
end;

ACBrMDFe.pas

[Italo Giurizzato Junior]

Boa tarde Antônio,

As linhas que se refere a variável VersaoDFe não estão comentadas?

Elas foram deixadas pensando em uma possível versão diferente do que é hoje.

[Antonio Gomes]

Não estavam comentadas. Não entendi o futuro.

[Italo Giurizzato Junior]

Bom dia Antônio,

Caso amanhã venhamos a ter versões diferentes de URL de consulta, basta trocar o zero da função pela variável VersaoDF.

Suponha que futuramente tenhamos o CT-e versão 3.50 e a URL de consulta é outra, neste caso teremos a URL da versão 3.00 e a URL da versão 3.50

Isso ocorreu com a NFC-e.

[Italo Giurizzato Junior]

Boa tarde Antônio,

Comentei as linhas e enviei para o repositório.

Favor atualizar os fontes.

[Antonio Gomes]

13 horas atrás, Italo Jurisato Junior disse:

Bom dia Antônio,

Caso amanhã venhamos a ter versões diferentes de URL de consulta, basta trocar o zero da função pela variável VersaoDF.

Suponha que futuramente tenhamos o CT-e versão 3.50 e a URL de consulta é outra, neste caso teremos a URL da versão 3.00 e a URL da versão 3.50

Isso ocorreu com a NFC-e.

Não era de CT-e...

mesmo assim, analisando ali no fonte do AcbrMDFe.. eu penso que ao atribuir o retorno da função LerURLDeParams, com o ultimo parametro como sendo zero, se analisar o retorno da DblToVersaoMDFe, verá que tem um default no caso de uma falha que é ve100, e que por sua vez, já é o primeiro if,  if d = 1.0 then, logo, por analogia, o que se espera de LerURLDeParams, já poderia ter entrado a versão...

Concorda ou sem corda?

Não veio fonte comentado, desculpa a insistência.

[Antonio Gomes]

25 minutos atrás, Antonio Gomes disse:

Não era de CT-e...

mesmo assim, analisando ali no fonte do AcbrMDFe.. eu penso que ao atribuir o retorno da função LerURLDeParams, com o ultimo parametro como sendo zero, se analisar o retorno da DblToVersaoMDFe, verá que tem um default no caso de uma falha que é ve100, e que por sua vez, já é o primeiro if,  if d = 1.0 then, logo, por analogia, o que se espera de LerURLDeParams, já poderia ter entrado a versão...

Concorda ou sem corda?

Não veio fonte comentado, desculpa a insistência.

Desculpe o equivoco. Não havia sincronizado os fontes. Grato pela paciência. Pondere a parte mencionada do retorno da versão.

[Italo Giurizzato Junior]

Bom dia Antônio,

Eu acabei mencionando o CT-e em vez de MDF-e, pois a rotina é igual nos dois e fiz o mesmo tratamento em ambos.

Fique a vontade em analisar o código e propor melhorias ou correções.