Sugestão de componente TACBrPromissorias

[Delcio]

Precisava implementar Notas Promissórias em meu sistema e resolvi criar um componente para tal, segue mais ou menos o padrão do ACBrBoleto,

caso seja útil e alguém queira incorporar ao projeto.

Feito:

• Criadas as Classes;
• Criado o Relatório em Fast Report;
• Criado um Demo Básico(em implementação);

 

Falta:

• Testar e melhorar;
•  Compatibilizar com Lazarus; 
• Criar relatórios em outras plataformas;

Para testar: extrair o anexo dentro de trunk2, adicionar as pastas ao Library do Delphi e instalar os .pkg;

trunk2.zip

Exemplo de uso:

var
  NovaPromissoria: TACBrPromissItem;
  I              : Integer;
begin
  ACBrPromissoria1.ListadePromiss.Clear;

  with ACBrPromissoria1 do
    begin
      // Favorecido
      with Favorecido do
        begin
          Nome    := 'Fulano Que Vai Receber';
          CPFCNPJ := '41811877000140';
        end;
      // Praça de Pagamento
      with PracaPagamento do
        begin
          Logradouro  := 'Rua Do Pagamento';
          NumeroRes   := '171';
          Complemento := '';
          Bairro      := 'Centro';
          Cidade      := 'Planalto Alegre';
          UF          := 'SC'
        end;

      // adiciona promissoria
      with CriarPromissNaLista do
        begin
          Numero         := '01/2018';
          DataEmissao    := Now;
          DataVencimento := IncMonth(Now, 1);
          Valor          := 100.35;
          // devedor
          with Devedor do
            begin
              Nome        := 'Fulano Que Deve';
              CNPJCPF     := '79766710066';
              Logradouro  := 'Rua do Devedor';
              Numero      := '111';
              Complemento := '';
              Bairro      := 'Centro';
              Cidade      := 'Planalto Alegre';
              UF          := 'SC';
            end;
          // Avalista
          with Avalista do
            begin
              Nome        := 'Fulano Avalista';
              CNPJCPF     := '79766710066';
              Logradouro  := 'Rua do Avalista';
              Numero      := '222';
              Complemento := '';
              Bairro      := 'Centro';
              Cidade      := 'Planalto Alegre';
              UF          := 'SC';
            end;
        end;
    end;

  for I := 2 to 5 do
    begin
      // outra maneira de adicionar promissorias
      NovaPromissoria := ACBrPromissoria1.CriarPromissNaLista;

      NovaPromissoria.Numero         := IntToStr(I) +  '/2018';
      NovaPromissoria.DataEmissao    := Now;
      NovaPromissoria.DataVencimento := IncMonth(Now, I);
      NovaPromissoria.Valor          := 100.35;
      // devedor
      NovaPromissoria.Devedor.Nome        := 'Fulano Que Deve';
      NovaPromissoria.Devedor.CNPJCPF     := '79766710066';
      NovaPromissoria.Devedor.Logradouro  := 'Rua do Devedor';
      NovaPromissoria.Devedor.Numero      := '111';
      NovaPromissoria.Devedor.Complemento := '';
      NovaPromissoria.Devedor.Bairro      := 'Centro';
      NovaPromissoria.Devedor.Cidade      := 'Planalto Alegre';
      NovaPromissoria.Devedor.UF          := 'SC';
      // Avalista
      NovaPromissoria.Avalista.Nome        := 'Fulano Avalista';
      NovaPromissoria.Avalista.CNPJCPF     := '79766710066';
      NovaPromissoria.Avalista.Logradouro  := 'Rua do Avalista';
      NovaPromissoria.Avalista.Numero      := '222';
      NovaPromissoria.Avalista.Complemento := '';
      NovaPromissoria.Avalista.Bairro      := 'Centro';
      NovaPromissoria.Avalista.Cidade      := 'Planalto Alegre';
      NovaPromissoria.Avalista.UF          := 'SC';
    end;

Resulta em: 

[Juliomar Marchetti]

Ficou atrelado a versões mais novas do Delphi .

está usando coisas especificas e não irá funcionar em todas.

[Delcio]

54 minutos atrás, Juliomar Marchetti disse:

Ficou atrelado a versões mais novas do Delphi .

está usando coisas especificas e não irá funcionar em todas.

Verdade, meu ambiente de desenvolvimento é bem personalizado, como por exemplo versão do FastReport que não é a padrão, não tenho versões antigas e nem Lazarus instalados para testar.

Vou ter que montar uma VM para essa finalidade, gostaria de colaborar mais com o projeto, mas no momento a coisa tá bastante corrida por aqui. Espero poder mexer nisso em breve.

Vou deixar aí caso alguém consiga se aventurar na empreitada. 

[Juliana Tamizou]

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.