Impressão de cheques tipo formulário com canhoto acoplado

[Kelvin Alexandre Ferreira]

Segue em anexo a implementação de uma procedure para setar a quantidade de colunas que o cheque possui para impressão usando matricial comum, atualmente este valor é tratado por uma constante no ACBrCHQImpressoraComum.pas. Observei a existência uma propriedade pública, ColCheque, na qual criei a procedure SetColcheque primeiramente em ACBrCHQ.pas, sobrescrevendo nas classes filhas. Procurei utilizar o mesmo padrão e fluxo de trabalho existente.

Isso foi necessário pois precisava alterar o valor da constante cColCheque, de forma a considerar o tamanho do canhoto também. 

ACBrCHQClass.pas

ACBrCHQImpressoraComum.pas

[daniel.simoes]

Notei que a sugestão visa tornar Publica a propriedade ColCheque , que é exclusiva, da classe TACBrCHQImpressoraComum ...

Isso pode confundir um pouco o usuário, que pensará que essa propriedade está disponível para todos os modelos...

Observe Você pode acessar essa Propriedade com segurança, usando TypeCast... Exemplo:

  if ACBrCHQ1.CHQ is TACBrCHQImpressoraComum then
    TACBrCHQImpressoraComum( ACBrCHQ1.CHQ ).ColCheque := 10;

 

[Kelvin Alexandre Ferreira]

Obrigado pelo retorno, vou fazer os testes.

[Kelvin Alexandre Ferreira]

Deu certo.

Editado 20 Setembro, 2018 por Kelvin Alexandre Ferreira

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.