El error que me da es el siguiente:
No exported method
HIDE
Args:
[ 1] = U
stack calls:
HIDE(0)
INVENTARIO(631)
(b)LISTADOS_INVENTARIOS(927)
TBITMAP:LBUTTONDOWN(0)
TWINDOW:HANDLEEVENT(0)
TCONTROL:HANDLEEVENT(0)
TBITMAP:HANDLEEVENT(0)
_FWPPC(0)
DIALOGBOX(0)
TDIALOG:ACTIVATE(0)
LISTADOS_INVENTARIOS(929)
(b)MAIN(90)
TBITMAP:LBUTTONDOWN(0)
TWINDOW:HANDLEEVENT(0)
TCONTROL:HANDLEEVENT(0)
TBITMAP:HANDLEEVENT(0)
_FWPPC(0)
DIALOGBOX(0)
TDIALOG:ACTIVATE(0)
MAIN(102)
El codigo en el que está es este:
local oExisRemo,oExisLocal,oboton
DEFINE dialog odlg resource "inventariado"
IF control_existencias='2'
redefine get oExisRemo var inventario->exis_remo id 126 of odlg
redefine get oExisLocal var inventario->exis_loc id 128 of odlg
ELSE
IF control_existencias='1'
redefine get oExisLocal var inventario->exis_loc id 128 of odlg
ENDIF
ENDIF
IF control_existencias='1' .or. control_existencias='2'
redefine button oboton id 4001 of odlg action calcula_existencias(articulo,oExisRemo,oExisLocal,quien)
ELSE
oboton:hide()
oExisRemo:hide()
oExisLocal:hide()
endif
ACTIVATE dialog odlg
Saludos.
Elías Torres