xBrowse en dialog

[informaticaeloy]

Hola. Tengo un problema a la hora de generar un xbrowse dentro de un dialog. Solo quiero sacar un xbrowse con los datos de una dbf. Hasta ahora he usado listbox, pero quiero actualizar mi aplicación. Os paso el código que tengo hasta ahora:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xbrowse.ch"

FUNCTION MAIN()
         SET EPOCH TO 1990
         SET DATE ITALIAN
         SET DELETED ON
         SET SCOREBOARD OFF
         SET CONFIRM ON
         SET WRAP ON
         SET CENTURY ON
         SETHANDLECOUNT(255)
         SET 3DLOOK ON

         DEFINE WINDOW PRIN TITLE "titulo";
                 VSCROLL HSCROLL MDI icon oIco

         DEFINE BUTTONBAR oBar _3D SIZE 33, 33 OF PRIN
         if activ_menu(1,1)
            DEFINE BUTTON FILE "BMP\ICON32\ARTICULO32.bmp"  OF oBar ;
                ACTION articul() tooltip "Artículos" GROUP NOBORDER
         endif


         ACTIVATE WINDOW PRIN;
         ON RESIZE OBMPFndo:Center();
         MAXIMIZED;
         VALID FIN()
RETURN NIL

FUNCTION CLIENTES(prin)
         CLOSE ALL

         SELECT 1
         USE CLIENTES INDEX CODCLIEN,NOMCLIEN,COMCLIEN, TELCLIEN, DNICLIEN, POBCLIEN NEW ALIAS dbCLI SHARED

DEFINE WINDOW INICIO_C TITLE "Gestión de Clientes" MDICHILD OF PRIN

@ 0, 0 XBROWSE LIS_CLI;
       FIELDS dbCLI->CODIGO,dbCLI->NOMBRE,dbCLI->NOMBRECOM,dbCLI->TELEFONO,dbCLI->DNI,dbCLI->POBLACION;
       HEADERS  "Código","Nombre","Nombre Comercial","Teléfono","DNI","Pob.";
       COLSIZES nil,15 OF INICIO_C ;
       SIZE 800,600 PIXEL
       //AUTOSORT FOOTERS LINES CELL


       
                         
         LIS_CLI:CreateFromCode()
         
         
         ACTIVATE DIALOG INICIO_C center
         CLOSE ALL
RETURN NIL
 

Os agradezco la ayuda. Un saludo.

[James Bott]

Usted está definiendo una ventana después de activar un diálogo. No se puede hacer esto.

DEFINE WINDOW INICIO_C TITLE "Gestión de Clientes" MDICHILD OF PRIN
...
ACTIVATE DIALOG INICIO_C center

[informaticaeloy]

Hola James. Gracias. No lo veía. Sigo teniendo errores, pero los voy a migrar al foro de español, ya que me confundí al hacerlo en el de inglés. Gracias.