http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1119-capturar-click-table-looper-browse-list-para-alterar/read.awp
Capturar Click no Table ou Looper (Browse List) para alterar registros:
// retrieve the row that was clicked
nRowNum is int=TableInfoXY(TABLE_t007_eventos,tiLineNumber,MouseXPos(),MouseYPos())
// if the row corresponds to a user
IF nRowNum>0 _AND_ nRowNum<=TABLE_t007_eventos..Occurrence THEN
// modify the user
gsAcao = "Alterar"
EventosID = TABLE_t007_eventos[nRowNum].COL_T007_eventos_ID
ExecuteProcess(BTN_Alterar_Eventos,trtClick)
ELSE
// new user
gsAcao = "Incluir"
ExecuteProcess(BTN_Incluir_Eventos,trtClick)
END
nRowNum is int=TableInfoXY(TABLE_t007_eventos,tiLineNumber,MouseXPos(),MouseYPos())
// if the row corresponds to a user
IF nRowNum>0 _AND_ nRowNum<=TABLE_t007_eventos..Occurrence THEN
// modify the user
gsAcao = "Alterar"
EventosID = TABLE_t007_eventos[nRowNum].COL_T007_eventos_ID
ExecuteProcess(BTN_Alterar_Eventos,trtClick)
ELSE
// new user
gsAcao = "Incluir"
ExecuteProcess(BTN_Incluir_Eventos,trtClick)
END
Nenhum comentário:
Postar um comentário