|
Inicio → WINDEV 25 → 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 - 2 respostas |
| |
| | | |
|
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 24 2019 - 8:08 PM |
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 3.657 mensagems Popularité : +175 (223 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/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em abril, 16 2024 - 12:40 AM |
Prezados
Para pegar um registro id de um browser table grid tem 2 formas:
Crie uma var global da janela: GNID is 8-byte int = 0
A) Em Code evento SELECT ROW
GNID = TableNameGrid.COL_myID
Em Code evento SELECT ROW
Nx is int = Tableinfoxy(TableNameGrid, tiLineNumber, MouseXPos(), MouseYPos())
If nx > 0
GNID = TableNameGrid[nx].COL_myID
End
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|