RAD e Crud TableForm in Plane 1 and 2 - Video Aula User Bento
VIDEO AULA
OPEN WINDOW
//////////////////////////
PROCEDURE MyWindow()
GNID is int
gsACAO is string
MyWindow..Plane = 1
//BOTAO INCLUIR
gsACAO = "INCLUIR"
HReset(t001_clientes)
GR_campos = ""
MyWindow..Plane = 2
//BOTAO ALTERAR
gsACAO = "ALTERAR"
IF TABLE_t001_clientes.Select()=-1 THEN
RETURN
ELSE
HReset(t001_clientes)
IF HReadSeek(t001_clientes,t001_cliente_id,GNID,hIdentical) = True THEN
FileToScreen()
MyWindow..Plane = 2
END
END
//BOTAO EXCLUIR
IF TABLE_t001_clientes.Select() = -1 OR GNID = 0
RETURN
ELSE
SWITCH Dialog("Deseja Excluir?")
CASE 1
IF GNID > 0
TABLE_t001_clientes.Delete()
TABLE_t001_clientes.Display(taCurrentFirst)
END
CASE 2
END
END
//TABLE GRID CODE
//SIMPLE CLICK SELECT
nLINHA is int = TableInfoXY(TABLE_t001_clientes,tiLineNumber,MouseXPos(),MouseYPos())
IF nLINHA > 0 THEN
GNID = TABLE_t001_clientes[nLINHA].COL_T001_cliente_id
END
//DOUBLE CLICK
nLINHA is int = TableInfoXY(TABLE_t001_clientes,tiLineNumber,MouseXPos(),MouseYPos())
IF nLINHA > 0 THEN
GNID = TABLE_t001_clientes[nLINHA].COL_T001_cliente_id
IF GNID > 0
ExecuteProcess(BTN_Alterar,trtClick)
END
END
//BOTAO GRAVAR
ScreenToFile()
IF gsACAO = "INCLUIR"
HAdd(t001_clientes)
ELSE IF gsACAO = "ALTERAR"
HModify(t001_clientes)
END
TableDisplay(TABLE_t001_clientes,taInit)
MyWindow..Plane = 1
gsACAO = ""
//BOTAO CANCELAR
HReset(t001_clientes)
GR_campos = ""
MyWindow..Plane = 1
gsACAO = ""