uDemoBoleto: Implementação das seções Pagador e Cedente no arquivo INI

[eraldocg]

Ola senhores,

Ao utilizar o demo uDemoBoleto, percebi que os dados do cedente e do pagador não estavam sendo gravados ou carregados no arquivo.INI. Para resolver esse problema, incluí a gravação dos dados do cedente e criei uma nova seção no arquivo INI denominada "PAGADOR". Segue o código-fonte para análise e possíveis implementações.

exemplo da implementacao:
 

procedure TfrmDemoBoleto.CarregarIniCedente;
const
  SECAO_CEDENTE = 'CEDENTE';
var
  xPath, xArquivo: string;
  IniFile: TMemIniFile;
begin
  // Define o caminho e o nome do arquivo INI
  xPath    := ExtractFilePath(ParamStr(0));
  xArquivo := ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini');

  // Cria o objeto TMemIniFile para leitura do arquivo INI
  IniFile := TMemIniFile.Create(IncludeTrailingPathDelimiter(xPath) + xArquivo);
  try
    edtBenifCNPJ.Text       := IniFile.ReadString(SECAO_CEDENTE, 'CNPJCPF', '99.999.999/9999-62');
    edtBenifRazao.Text      := IniFile.ReadString(SECAO_CEDENTE, 'Nome', 'EMPRESA DE TESTES');
    edtBenifFantasia.Text   := IniFile.ReadString(SECAO_CEDENTE, 'FantasiaCedente', 'A Empresa');
    edtBenifEndereco.Text   := IniFile.ReadString(SECAO_CEDENTE, 'Logradouro', 'Rua das Empresas');
    edtBenifNum.Text        := IniFile.ReadString(SECAO_CEDENTE, 'Numero', '100');
    edtBenifComplemento.Text:= IniFile.ReadString(SECAO_CEDENTE, 'Complemento', 'Compl');
    edtBenifBairro.Text     := IniFile.ReadString(SECAO_CEDENTE, 'Bairro', 'Centro');
    edtBenifCidade.Text     := IniFile.ReadString(SECAO_CEDENTE, 'Cidade', 'Tatui');
    edtBenifUF.Text         := IniFile.ReadString(SECAO_CEDENTE, 'UF', 'SP');
    edtBenifCEP.Text        := IniFile.ReadString(SECAO_CEDENTE, 'CEP', '18270-000');
    edtBenifTelefone.Text   := IniFile.ReadString(SECAO_CEDENTE, 'Telefone', '(11) 99999-9999');
  finally
    IniFile.Free;
  end;
end;

procedure TfrmDemoBoleto.CarregarIniPagador;
const
  SECAO_PAGADOR = 'PAGADOR';
var
  xPath, xArquivo: string;
  IniFile: TMemIniFile;
begin
  // Define o caminho e o nome do arquivo INI
  xPath    := ExtractFilePath(ParamStr(0));
  xArquivo := ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini');

  // Cria o objeto TMemIniFile para leitura do arquivo INI
  IniFile := TMemIniFile.Create(IncludeTrailingPathDelimiter(xPath) + xArquivo);
  try
    edtPagNome.Text         := IniFile.ReadString(SECAO_PAGADOR, 'Nome', 'CLIENTE DE TESTES');
    edtPagCPFCNPJ.Text      := IniFile.ReadString(SECAO_PAGADOR, 'CPFCNPJ', '676.387.808-76');
    edtPagEmail.Text        := IniFile.ReadString(SECAO_PAGADOR, 'Email', '[email protected]');
    edtPagEndereco.Text     := IniFile.ReadString(SECAO_PAGADOR, 'Logradouro', 'Rua dos clientes');
    edtPagNumero.Text       := IniFile.ReadString(SECAO_PAGADOR, 'Numero', '100');
    edtPagComplemento.Text  := IniFile.ReadString(SECAO_PAGADOR, 'Complemento', '');  // Caso não haja valor, permanece vazio
    edtPagBairro.Text       := IniFile.ReadString(SECAO_PAGADOR, 'Bairro', 'Centro');
    edtPagCidade.Text       := IniFile.ReadString(SECAO_PAGADOR, 'Cidade', 'Tatui');
    edtPagCEP.Text          := IniFile.ReadString(SECAO_PAGADOR, 'CEP', '18270-000');
    edtPagUF.Text           := IniFile.ReadString(SECAO_PAGADOR, 'UF', 'SP');
  finally
    IniFile.Free;
  end;
end;
 

 

sucesso  todos

uDemoBoleto.dfm uDemoBoleto.pas

[Juliomar Marchetti]

é que ideia do demo é exemplificar e usar de forma rápida para algum eventual teste

não creio que seja algo a ser gravado pois não é um software para usar em produção