Ir para conteúdo
  • Cadastre-se

dev botao

Sugestão de componente TACBrPromissorias


  • Este tópico foi criado há 1940 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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: 

976736842_promissfast.thumb.JPG.8cda1aa6c81b3872b0b85795940584fa.JPG

  • Curtir 1
  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

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. 

Link para o comentário
Compartilhar em outros sites

  • 5 meses depois ...
  • Administradores

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1940 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.