CTe atualização 29/09/2015 erro em VersaoDFToDbl

[Fabio Franzini - Compsoft]

Ola, bom dia, ao atualizar o Cte hoje ele não esta encontrando referencia a função "VersaoDFToDbl" , apaguei o Acbr do PC e instalei do zero e continua o problema, Existe algum caminho a ser alterado em library path para esta função, ou ela foi trocada por outra ?

 

OBS - a função que esta retornando o erro é a seguinte que esta na unit "ACBrCTeWebServices"

procedure TCTeConsulta.DefinirURL;
var
  Versao: Double;
  Modelo: String;
  ok: Boolean;
begin
  FPVersaoServico := '';
  FPURL := '';
  Versao := VersaoDFToDbl(FPConfiguracoesCTe.Geral.VersaoDF);
  Modelo := 'CTe';
  FcUF   := StrToInt(Copy(FCTeChave, 1, 2));
  FTpAmb := StrToTpAmb(ok, copy(FCTeChave, 35, 1));

  TACBrNFe(FPDFeOwner).LerServicoDeParams(
    Modelo, CUFtoUF(FcUF),
    FTpAmb,
    LayOutToServico(FPLayout),
    Versao,
    FPURL
  );

  FPVersaoServico := FloatToString(Versao, '.', '0.00');
end;

Ola, bom dia, ao atualizar o Cte hoje ele não esta encontrando referencia a função "VersaoDFToDbl" , apaguei o Acbr do PC e instalei do zero e continua o problema, Existe algum caminho a ser alterado em library path para esta função, ou ela foi trocada por outra ?

 

OBS - a função que esta retornando o erro é a seguinte que esta na unit "ACBrCTeWebServices"

procedure TCTeConsulta.DefinirURL;
var
  Versao: Double;
  Modelo: String;
  ok: Boolean;
begin
  FPVersaoServico := '';
  FPURL := '';
  Versao := VersaoDFToDbl(FPConfiguracoesCTe.Geral.VersaoDF);
  Modelo := 'CTe';
  FcUF   := StrToInt(Copy(FCTeChave, 1, 2));
  FTpAmb := StrToTpAmb(ok, copy(FCTeChave, 35, 1));

  TACBrNFe(FPDFeOwner).LerServicoDeParams(
    Modelo, CUFtoUF(FcUF),
    FTpAmb,
    LayOutToServico(FPLayout),
    Versao,
    FPURL
  );

  FPVersaoServico := FloatToString(Versao, '.', '0.00');
end;

Troquei as linhas :

De:     Versao := VersaoDFToDbl(FPConfiguracoesCTe.Geral.VersaoDF); 

Para: Versao := VersaoCTeToDbl(FPConfiguracoesCTe.Geral.VersaoDF);

e

De:     TACBrNFe(FPDFeOwner).LerServicoDeParams( Modelo, CUFtoUF(FcUF),

Para:  TACBrDFe(FPDFeOwner).LerServicoDeParams( Modelo, CUFtoUF(FcUF),

Depois de feito o indicado acima ainda tinha problemas na parte:

 

//              if FPConfiguracoesCTe.Arquivos.Salvar then
//                FPDFeOwner.Gravar(NomeArq, wProc.Text, GerarPathEvento);

              if FPConfiguracoesCTe.Arquivos.Salvar then
                FPDFeOwner.Gravar(NomeArq, wProc.Text, GerarPathEvento(FEvento.Evento.Items.InfEvento.CNPJ));

Onde troquei por :

 

              if FPConfiguracoesCTe.Arquivos.Salvar then
                FPDFeOwner.Gravar(NomeArq, wProc.Text, GerarPathEvento);

//              if FPConfiguracoesCTe.Arquivos.Salvar then
//                FPDFeOwner.Gravar(NomeArq, wProc.Text, GerarPathEvento(FEvento.Evento.Items.InfEvento.CNPJ));

 

 

Desta maneira consegui instalar, mas gostaria de saber se esta correto isto, ou se foi khda minha. 

 

Editado 29 Setembro, 2015 por fabiofranzini

[Juliomar Marchetti]

correção no svn