Actualice el FWPPC y estoy teniendo problemas cuando uso las bases como objetos, les copio un ejemplo de como funciona y como no:
Asi funciona:
- Code: Select all Expand view
Local oDbfTem
USE (Curdir()+"\STOTEMP.DBF") NEW ALIAS TEMPORAL
DATABASE oDbfTem
oDbfTem:bEoF:=nil
oDbfTem:GoTop()
REDEFINE LISTBOX oLbx;
FIELDS TEMPORAL->DESCRIP,TRAN(TEMPORAL->EXISTENCIA,"#########.##"),;
TRAN(TEMPORAL->CONTADO,"#########.##"),;
TRAN(TEMPORAL->DIFER,"#########.##"),TEMPORAL->CODIGO;
SIZES 120,65,65,65,60;
HEADERS "Desc","Exist","Cont","Difer","Cod";
ID 1000 OF oDlg1;
ON DBLCLICK ModExi(oDlg1)
Asi funcionaba con la version anterior de FWPPC, pero la actualice porque no funcionaba el "SHARED":
- Code: Select all Expand view
Local oDbfTem
USE (Curdir()+"\STOTEMP.DBF") NEW
DATABASE oDbfTem
oDbfTem:bEoF:=nil
oDbfTem:GoTop()
REDEFINE LISTBOX oLbx;
FIELDS oDbfTem:DESCRIP,TRAN(oDbfTem:EXISTENCIA,"#########.##"),;
TRAN(oDbfTem:CONTADO,"#########.##"),;
TRAN(oDbfTem:DIFER,"#########.##"),oDbfTem:CODIGO;
SIZES 120,65,65,65,60;
HEADERS "Desc","Exist","Cont","Difer","Cod";
ID 1000 OF oDlg1;
ON DBLCLICK ModExi(oDlg1)
Al querer usar la segunda version tira el siguiente error en tiempo de corrida:
Argument error
conditional
Args:
[ 1] = U
stack calls:
TDATABASE:EXISTENCIA(0)
(b)ARTICULO2(182)
TWBROWSE:DEFAULT(0)
(b)TWBROWSE(0)
TWBROWSE:INITIATE(0)
__OBJSENDMSG(0)
OSEND(0)
ASEND(0)
TDIALOG:INITIATE(0)
TDIALOG:HANDLEEVENT(0)
_FWPPC(0)
DIALOGBOX(0)
TDIALOG:ACTIVATE(0)
ARTICULO2(258)
VALCHECK(152)
(b)ARTICULO(115)
TBTNBMP:CLICK(0)
TBTNBMP:LBUTTONUP(0)
TWINDOW:HANDLEEVENT(0)
TBTNBMP:HANDLEEVENT(0)
_FWPPC(0)
DIALOGBOX(0)
TDIALOG:ACTIVATE(0)
ARTICULO(121)
(b)CONTROL(66)
TBTNBMP:CLICK(0)
TBTNBMP:LBUTTONUP(0)
TWINDOW:HANDLEEVENT(0)
TBTNBMP:HANDLEEVENT(0)
_FWPPC(0)
WINRUN(0)
TWINDOW:ACTIVATE(0)
MAIN(48 )
El error lo genera siempre que quiero usar una Base de datos como objeto, en cualquier caso, y cuando uso una base de las del servidor tambien lo genera.
Gracias a todos!!
Natalia.
