Histórico da Página

...

Retirar uso de macro execução bCommit  no Cadastro de Feriados GS.

03. SOLUÇÃO

Alterado Cadastro de Feriados GS para uso da classe FwModelEvent confome indicação do SonarQube.

04. DEMAIS INFORMAÇÕES

...

Bloco de código
language delphi firstline 1 title Exemplo de uso da classe FWModelEvent:
Static Function ModelDef() Local oCommit := TC790EVENT():New() oModel:InstallEvent(" TC790EVENT", /*cOwner*/, oCommit) Return(oModel) Class TC790EVENT FROM FWModelEvent Method New() Método chamados pelo MVC Method Destroy() //limpar atributos como array,objetos da memória. Method After() //quando ocorrer as ações do commit depois da gravação de cada submodelo (field ou cada linha de uma grid). Method Before() //quando ocorrer as ações do commit antes da gravação de cada submodelo (field ou cada linha de uma grid). Method AfterTTS() //quando ocorrer as ações do commit depois da transação. Method BeforeTTS() //quando ocorrer as ações do commit antes da transação. Method InTTS() //quando ocorrer as ações do commit depois das gravações porém antes do final da transação. Method VldActivate() //quando ocorrer as ações de validação do Model. Method ModelPreVld() //quando ocorrer as ações de pre validação do Model. Method ModelPosVld() //quando ocorrer as ações de pos validação do Model. Method GridPosVld() //quando ocorrer as ações de pós validação do Grid. Method GridLinePreVld() //quando ocorrer as ações de pre validação da linha do Grid Method GridLinePosVld() //quando ocorrer as ações de pos validação da linha do Grid Method FieldPreVld() //quando ocorrer a ação de pré validação do Field Method FieldPosVld() //quando ocorrer a ação de pós validação do Field End Class Method New() Class TC790EVENT Return Method Before(oSubModel, cModelId, cAlias, lNewRecord) Class TC790EVENT Return Method BeforeTTS(oSubModel, cModelId) Class TC790EVENT Return

05. ASSUNTOS RELACIONADOS

• Interceptação do Commit e Validação MVC - FWModelEvent
• Cadastro de Feriados Gestão de Serviços - TECA790 - Gestão de Serviços - P12