- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Passar parâmetro do mBrowse para user funtion
×
Linguagem de Programação ADVPL
Perguntas Passar parâmetro do mBrowse para user funtion
- fsbarbosa90
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 8
- Obrigados Recebidos: 0
10 anos 8 meses atrás #21571
por fsbarbosa90
Passar parâmetro do mBrowse para user funtion foi criado 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!!!!
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.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 8 meses atrás #21576
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Passar parâmetro do mBrowse para user funtion
{"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.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 8 meses atrás #21577
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Passar parâmetro do mBrowse para user funtion
ou
{"Ativacao","U_SUAFUNCAO()",0,6}}
User Function SuaFucao()
cCod := ZZ1->Z1_COD
{"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.
- fsbarbosa90
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 8
- Obrigados Recebidos: 0
10 anos 8 meses atrás #21590
por fsbarbosa90
Respondido por fsbarbosa90 no tópico Passar parâmetro do mBrowse para user funtion
Obrigado Luiz!!!
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Passar parâmetro do mBrowse para user funtion
Tempo para a criação da página:0.099 segundos