PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → WX - Procedure com indirection para Selecionar registro de uma grid table ou looper
WX - Procedure com indirection para Selecionar registro de uma grid table ou looper
Iniciado por BOLLER, jun., 24 2019 8:08 PM - 1 resposta
Membro registado
2.969 mensagems
Popularité : +89 (91 votes)
Publicado em junho, 24 2019 - 8:08 PM
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] UI_SelectRegGrid (<TableName> is string, <ColumnName> is string)
//
// Parameters:
// TableName (ANSI string):
// ColumnName (ANSI string): <specify the role of ColumnName>

// sTipo (ANSI string): <specify the role of sTipo>
Procedure UI_SelectRegGrid(TableName is string, ColumnName is string)

gnidtable is 8-bytes int

nx is int = 0

isTable is int = PositionOccurrence(Upper(TableName),"TABLE",firstRank,FromBeginning)

isLooper is int = PositionOccurrence(Upper(TableName),"LOOPER",firstRank,FromBeginning)

IF isTable > 0 AND isLooper = 0
nx = TableInfoXY({TableName,indControl},tiLineNumber,MouseXPos(),MouseYPos())
ELSE IF isLooper > 0
nx = LooperInfoXY({TableName,indControl},tiLineNumber,MouseXPos(),MouseYPos())
ELSE
nx = TableInfoXY({TableName,indControl},tiLineNumber,MouseXPos(),MouseYPos())
END

IF nx > 0 AND TableName <> "" AND ColumnName <> ""

gnidtable = {TableName,indControl}[nx]+"."+ColumnName

ELSE

gnidtable = 0

END

RESULT gnidtable


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
2.969 mensagems
Popularité : +89 (91 votes)
Publicado em junho, 24 2019 - 8:10 PM
Como usar:

Na table grid do teu projeto coloque no ponto de embed codigo:

gnid = UI_SelectRegGrid("TABLEGRID_F009_APS_PRODUTOS_UNIDADES","COL_F009_PRODUTOS_UNIDADES_ID")


gnid terá o id da chave primária da tabela ou do looper

Isso reduz teu codigo em todo o seu sistema para apenas um código global

Bons estudos!!!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/