Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include "PROTHEUS.CH" #INCLUDE "FWMVCDEF.CH" #INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function CNTA121() Local aParam := PARAMIXB Local xRet := .T. Local oModelCND := Nil Local cIdPonto := '' Local cIdModel := '' Local lIsInsert := .F. If aParam <> NIL cIdPonto:= AllTrim(aParam[2]) cIdModel:= aParam[3] If (cIdPonto == "FORMCOMMITTTSPRE" .And. cIdModel == "CNDMASTER")//FORMCOMMITTTSPRE: Antes da gravação da tabela do formulário. oModelCND := aParam[1] lIsInsert := aParam[4] If lIsInsert .And. AllTrim(oModelCND:GetValue("CND_SITUAC")) == "B" oModelCND:LoadValue("CND_SITUAC", "A") oModelCND:LoadValue("CND_ALCAPR", "L") EndIf EndIf ElseIf (cIdPonto == "FORMCOMMITTTSPOS" .And. cIdModel == "CNDMASTER")//FORMCOMMITTTSPOS: Após a gravação da tabela do formulário. //Lógica remoção dos registros das alçadas EndIf EndIf Return xRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas