Dúvida
Gostaria de saber como manipular uma pergunta em uma rotina customizada?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80
Solução
Neste caso é só chamar o Pergunte e atribuir .F. no segundo parâmetro e atribuir o novo valor para os MV_PAR correspondentes.
Pergunte("sua pergunta",.F.)
MV_PAR01:=1
MV_PAR02:="TESTE"
OBS. Sempre que for necessário utilizar um Pergunte dentro de alguma customização é necessário guardar o grupo da SX1 posicionado antes de iniciar as validações e retorná-lo após o término.
Existem diversas formas para guardar e restaurar um pergunte, como as variáveis MV_PAR são privates e compartilhadas em todo a execução do sistema, a mais utilizada é guardar essas variáveis e restaurá-las ao final de sua intervenção.
Exemplo:
//No início de sua customização, antes de qualquer validação
aMvPar := {}
For nX := 1 To 40
aAdd( aMvPar, &( "MV_PAR" + StrZero( nX, 2, 0 ) ) )
Next nX
//No final da customização
For nX := 1 To Len( aMvPar )
&( "MV_PAR" + StrZero( nX, 2, 0 ) ) := aMvPar[ nX ]
Next nX
Saiba mais
1 Comentários