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