Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
downloadVideo: Finalizando a Classe TCNAB240 - Curso Criando Componente Boleto em Delphi - Parte 17
Veja nesta vídeo aula onde terminaremos o Registro de Detalhe com os métodos referentes ao Segmento Q e R. Em seguida, criaremos os métodos TrailerLote e TrailerArquivo. Assim, finalizamos a classe TCnab240.
Você não gostou da qualidade deste conteúdo?
(opcional) Você gostaria de comentar o que não lhe agradou?
Tempo: 27:40 min
Mini Resumo: Na aula passada implementamos o Registro P. Agora, iremos terminar o Registro de Detalhe com os métodos referentes ao Segmento Q e R. Em seguida, criaremos os métodos TrailerLote e TrailerArquivo. Assim, finalizamos a classe TCnab240. Feito isso, será possível perceber o quão simples será a implementação das classes filhas que herdarão de TCnab240 com a criação da primeira classe concreta: BBCnab240. Alterando apenas um campo, o FCodConvenio, já teremos a geração do arquivo de remessa padrão CNab240 para o Banco do Brasil. Porém, antes de vermos na prática todo o código em funcionamento, será necessário criar as nossas fábricas. Isso será feito nas próximas videoaulas.
Tecnologias utilizadas: Delphi 7, Astah Community
Exemplos construídos: Criaremos os métodos SegmentoQ, SegmentoR, TrailerLote e TrailerArquivo.
Palavras chaves: Delphi, POO, Design Patterns, Astah Community, componente, Boletos, Abstract Factory, Cnab240, Cnab400.
Luiz Carlos
Formado em Administração de Empresas, tem como vocação a tecnologia, mais especificamente o desenvolvimento de software. Site: http://www.luizsistemas.com.br Twitter: @luiz_sistemas
1 COMENTÁRIO
- Ignorem o que eu disse sobre repetir o uso da função Lpad na classe TBBCnab240. OK? Já que estamos forçando o retorno de 20 caracteres na classe base TCNab240, não é necessário utilizar a função novamente na classe filha. Então, na formatação do campo FCodConvenio em TBBCNab240, utilizem:
FCodConvenio := Rpad(DadosBanco.Convenio,9)+
'0014' + DadosBanco.Carteira + '019';
Abraços.
