Obter A Linha Digitada

[koplin]

Saudações:

 

Eu havia sugerido uma propriedade para a leitura da linha digita do boleto gerado.

A implementação foi iniciada mas ficou inacabada.

Eu completei as rotinas e está funcionando.

 

Segue a Unit para sua apreciação.

 

 

Att,

 

Alfredo Koplin.

ACBrBoleto.pas

ACBrBoleto.pas

Editado 8 Janeiro, 2014 por koplin

[Jéter Rabelo Ferreira]

Bom dia.

Eu fiz um método em meus sistemas para retornar a linha digtável sem a necessidade de alteração do componente.

 

Obs FACBrBoletoPRN e a classe de impressão: TACBrBoletoFCFortes;

function TReceberBoletoItems.GetCodigoBarras: string;
var
  CBarras: string;
  CAux: string;
  FrmOBS: TFrmOBS;
begin
  if not PreencherBoleto then
    Exit;

  if FACBrBoletoPRN.ACBrBoleto.ListadeBoletos.Count <> 1 then
  begin
    MsgErro('Boleto não informado ou quantidade superior a 1!');
    Exit;
  end;

  CAux := FACBrBoletoPRN.ACBrBoleto.Banco.MontarCodigoBarras(FACBrBoletoPRN.ACBrBoleto.ListadeBoletos[0]);
  CBarras := OnlyNumber(FACBrBoletoPRN.ACBrBoleto.Banco.MontarLinhaDigitavel(CAux, FACBrBoletoPRN.ACBrBoleto.ListadeBoletos[0]));
  Clipboard.AsText := CBarras;
  FrmOBS := TFrmOBS.Create(nil);
  try
    with FrmOBS do
    begin
      SomenteLeitura := True;
      ExibirBotaoOK := False;
      with mm.Lines do
      begin
        Add('Código de barras do boleto: ');
        Add('');
        Add(CBarras);
        Add('');
        Add('Obs.:');
        Add('O código foi copiado para a memória do windows. Pressione CTRL+V para colar o conteúdo onde desejar.');
      end;
      Exibir;
    end;
  finally
    FreeAndNil(FrmOBS);
  end;
end;

O código é copiado para o Clipboard e também exibido numa tela com um memo.

 

Atenciosamente.