GNRE função LoadFromString

[João Paulo Müller]

Bom dia pessoal,

A classe "TGuiasRetorno" possui uma função chamada "LoadFromFile" no qual carrega o arquivo TXT e preenche os objetos para imprimir a guia.

Criei uma nova função chamada "LoadFromString" no qual possui a mesma funcionalidade do "LoadFromFile" porém carrega a guia para imprimir a partir do objeto da classe TStringList.

Motivo para criação da função: Não precisar salvar e carregar o arquivo TXT para poder gerar as guias. Dessa maneira pode ser salva o retorno na tabela e carrega-lo de lá.   

Função: 

function LoadFromString(ArquivoRetorno:TStringList): boolean;

Exemplo de uso:

TBGnre.open;
S := TStringList.Create;
try
  S.Text := TBGNREResultado.value;
  FrmMain.AcbrGNRE.GuiasRetorno.LoadFromString(S);
finally
  S.Free;
end;

 

Unit alterada : ACBrGNREGuiasRetorno.pas

[Juliomar Marchetti]

No svn com uma pequena mudança! onde deve de passar uma string com o texto e não mais um TStringList!

favor testar e reportar!

 

[João Paulo Müller]

22 horas atrás, Juliomar Marchetti disse:

No svn com uma pequena mudança! onde deve de passar uma string com o texto e não mais um TStringList!

favor testar e reportar!

 

Deu boa, muito obrigado!