FiveTech Support Forums

#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