cMenuFlexPrintCrystalButton

Pacote

As classe cMenuFlexPrintCrystalButton está definida no pacote cMenuFlexPrintCrystalButton.pkg.

Hierarquia

A classe cMenuFlexPrintCrystalButton é uma subclasse da classe Button do DataFlex e herda todas as propriedades, eventos e métodos existentes nesta classe.

Para que serve

Em ReportViews ou Views que executam relatórios da classe cWsCrystal ou cCrystal, normalmente existe um botão com uma procedure OnClick para executar o método RunReport do objeto do Crystal. Além disso estes botões costumam ter o mesmo label, status_help e estarem configurados com Default_State=True.

Esta classe é uma classe especializada para fazer exatamente isso. Sua utilização, em detrimento da classe cWsButton ou Button, deixará o código fonte menor, proporcionando um arquivo compilado também menor.

Uma nova propriedade adicioanda nesta classe (phoCrystal) deve ser configurada com o objeto de relatório que será executado e a classe faz o resto.

O exemplo abaixo mostra o código de um botão “tradicional” usado para executar um relatório do Crystal:

Object oExecutarButton is a cWsButton
Set Label to “Executar (Enter)”
Set Size to 14 60
Set Location to 9 84
Set Status_Help to “Confirmar escolha”
Set Default_State to True

Procedure OnClick
Forward Send OnClick
Send RunReport to oInjetorasCrystal
End_Procedure // OnClick
End_Object // oExecutarButton

Agora o mesmo objeto, mas usando a classe cMenuFlexClosePanelButton:

Object oExecutarButton is a cMenuFlexPrintCrystalButton
    Set phoCrystal to (oInjetorasCrystal(Self))
    Set Location to 9 84
End_Object // oExecutarButton

Observação

• Se você definir o método OnClick dentro do objeto, não se esqueça de executar o Forward, caso contrário o relatório não será mais executado ao clicar no botão.

Propriedades