Tdolphin xbrowse dialog Error cuando lo creo.
Posted: Thu Mar 29, 2012 2:40 am
Hola.
- Code: Select all Expand view
- METHOD ventana() CLASS TAplicacion
LOCAL oDlg,;
oBrw,;
oquery
/*
Este codigo no me funciona, al ejecutar crea un error
Error description: Error FiveWin/1 Non defined Id: No: 101
Args:
pero si en vez de un DEFINE dialog odlg RESOURCE "dlg1" hago esto:
define dialog odlg from 1, 1 to 500, 200 PIXEL title "prueba"
funciona. porque no funciona si uso un dialogo por recurso?
*/
DEFINE DIALOG oDlg resource "DLG1"
oquery:= tDolphinQry():new("SELECT * FROM tbtemporal order by tbtemporal.fecha ASC, tbtemporal.ficha desc, tbtemporal.hora", ::oServidor)
@ 10, 10 XBROWSE oBrw;
lines cell;
size 400, 400 pixel;
noborder;
OF oDlg
oBrw:setdolphin(oQUery, .T.)
oBrw:createfromcode()
ACTIVATE DIALOG oDlg
RETURN (NIL)