Help 3 MiniGUI
Enviado: 22 Mai 2013 13:57
Boa tarde colegas.
No código abaixo:
Como posso transferir o processamento da rotina acima para uma Procedure() ou Function() do tipo abaixo ?
No código abaixo:
DEFINE WINDOW principal AT 30,1230 WIDTH 200 HEIGHT 80 ;
TITLE "JS600 - COM " + c_Port MAIN ;
ON INIT Dados_Iniciais( c_Form )
*
@ 12, 15 LABEL label_1 WIDTH 160 HEIGHT 16 ;
VALUE 'COM ' + c_Port + " => INATIVA" ;
FONT 'Times New Roman' SIZE 14
principal.label_1.fontcolor := RED
*
END WINDOW
ACTIVATE Window principal
Como posso transferir o processamento da rotina acima para uma Procedure() ou Function() do tipo abaixo ?
WHILE ! EOF()
*
n_Soma += VALOR
DBSkip()
*
ENDDO