WEBDEV Exemplo Rad Pattern 27

CODIGO
//----------------------------------------------------

PROCEDURE Evento_Alterar()

gsacao = "alterar"

HReset(t001_empresa)

IF HReadSeek(t001_empresa,t001_cnpj,gsgnid,hIdentical) = True THEN
FileToPage()
MyPage..Plane = 2
END


//------------------------------------------------------------------------------------------

PROCEDURE Evento_Excluir()

gsacao = "excluir"

HReset(t001_empresa)

IF HReadSeek(t001_empresa,t001_cnpj,gsgnid,hIdentical) = True THEN

//1 : Sim
//2 : Não
SWITCH Dialog("Deseja excluir o registro?")
// Sim
CASE 1
HDelete(t001_empresa)
TableDisplay(TABLE_t001_empresa,taInit)
// Não
CASE 2

END

END

//-------------------------------------------------------------------------------------------

PROCEDURE Evento_Gravar()

PageToFile()

IF gsacao = "incluir" THEN

IF HAdd(t001_empresa) = True THEN
Info("Gravou com sucesso")
ELSE
Info(HErrorInfo()+CR+ErrorInfo())
END

ELSE IF gsacao = "alterar" THEN

IF HModify(t001_empresa) = True THEN
Info("Gravou com sucesso")
ELSE
Info(HErrorInfo()+CR+ErrorInfo())
END

END

TableDisplay(TABLE_t001_empresa,taInit)
MyPage..Plane = 1

//-------------------------------------------------------------------------------------------

PROCEDURE Evento_Incluir()

gsacao = "incluir"

GR_Campos = ""

HReset(t001_empresa)

MyPage..Plane = 2

//-------------------------------------------------------------------------------------------

//SELECIONAR REGISTRO // EVENTO SELECT ROW NO TABLE // BROWSER NAO SERVER

gsgnid = TABLE_t001_empresa.COL_T001_cnpj

//-------------------------------------------------------------------------------------------

//EVENTO DUPLO CLICK ADICIONADO PELA LINHA AZUL

IF gsgnid <> "" THEN

ExecuteProcess(LAYOUT_01.BTN_Alterar,trtClick)

END