× Linguagem de Programação ADVPL

Perguntas Passar parâmetro do mBrowse para user funtion

Mais
10 anos 8 meses atrás #21571 por fsbarbosa90
Boa noite.

Sou novato na linguagem advpl, e estou tentando pegar em outra user function a linha de registro que está selecionado no mBrowse. como no exemplo abaixo


Private aRotina := { {"Pesquisar","AxPesqui",0,1} ,;
{"Visualizar","AxVisual",0,2} ,;
{"Incluir","AxInclui",0,3} ,;
{"Alterar","AxAltera",0,4} ,;
{"Excluir","AxDeleta",0,5},;
{"Ativacao","ExecBlock('ZZ1ATIVA', , ,'ZZ1->Z1_COD')",0,6}} <-- passar parametro da mBrowse para outra user function

Private aCores := {{ 'ZZ1->Z1_STATUS=="T"' , 'ENABLE' },; // Ativo
{ 'ZZ1->Z1_STATUS=="F"' ,'DISABLE' }} // Inativo

Private cDelFunc := ".T." // Validacao para a exclusao. Pode-se utilizar ExecBlock
Private cString := "ZZ1"
dbSelectArea(cString)
dbSetOrder(1)

mBrowse( 6,1,22,75,cString,,,,,,aCores,,,,,,,,)


Grato!!!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 8 meses atrás #21576 por lalberto
{"Ativacao","U_SUAFUNCAO(ZZ1->Z1_COD)",0,6}}

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 8 meses atrás #21577 por lalberto
ou
{"Ativacao","U_SUAFUNCAO()",0,6}}

User Function SuaFucao()

cCod := ZZ1->Z1_COD

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 8 meses atrás #21590 por fsbarbosa90
Obrigado Luiz!!!

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.099 segundos
Joomla templates by a4joomla