Pesquisar na Comunidade
Showing results for tags 'versaodftodbl'.
Encontrado 1 registro
-
CTe atualização 29/09/2015 erro em VersaoDFToDbl
um tópico no fórum postou Fabio Franzini - Compsoft ACBrCTe
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.