testtab2.prg
Posted: Mon Jul 06, 2009 8:29 pm
#include "FiveWin.ch"
FUNCTION MAIN()
local odlg
local otabs
DEFINE DIALOG oDlg TITLE "Selección articulos" FROM 77,178 TO 353,662 ;
PIXEL //FIVEWIDI
ACTIVATE DIALOG odlg ;
ON INIT PlaceTabs( oDlg, oTabs )
RETURN Nil
function PlaceTabs( oDlg, oTabs )
@ 119.00,1.00 TABS oTabs OF oDlg ITEMS "Orde Natural","Codigo Artigo", ;
"Alfabetica" ACTION (MSGALERT("Error en TABS", "Aqui vá") ) ;
PIXEL SIZE 242.00,32.00 MESSAGE "Ordem da lista"
return nil
error:
testtab2.prg(20) Error E0030 Syntax error: "syntax error at '@'"
help (?!!!)
FUNCTION MAIN()
local odlg
local otabs
DEFINE DIALOG oDlg TITLE "Selección articulos" FROM 77,178 TO 353,662 ;
PIXEL //FIVEWIDI
ACTIVATE DIALOG odlg ;
ON INIT PlaceTabs( oDlg, oTabs )
RETURN Nil
function PlaceTabs( oDlg, oTabs )
@ 119.00,1.00 TABS oTabs OF oDlg ITEMS "Orde Natural","Codigo Artigo", ;
"Alfabetica" ACTION (MSGALERT("Error en TABS", "Aqui vá") ) ;
PIXEL SIZE 242.00,32.00 MESSAGE "Ordem da lista"
return nil
error:
testtab2.prg(20) Error E0030 Syntax error: "syntax error at '@'"
help (?!!!)