FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"

STATIC oWnd
STATIC lFichSub := .T. //?? a tu modo

FUNCTION Main()

   LOCAL oFont, oIcon, oSay, aoBt[ 3 ], aoGt[ 8 ], aoSy[ 3 ]
   LOCAL nCol_Rfe := 0, nCol_Des := 0, nCol_Sec := 0, nCol_Fam := 0
   LOCAL nCol_Mar := 0, nCol_Pre := 0, cFamilia := 0, nDescto := 0
   LOCAL nTotal := 0, nActual := 0
   LOCAL cFileExcel := "Excel texto? a tu modo..." // ????
   LOCAL VERSION := [MI PROGRAMA EN TESTE FOR FIVEWIN AND XHARBOUR]

   // Necesitas DEFINIR la fuente...
   DEFINE FONT oFont  NAME "Ms Sans Serif" SIZE 0, -14 BOLD //UnderLine

   DEFINE WINDOW oWnd FROM 10, 20 To 40,100 ;
          TITLE VERSION ICON oIcon COLORS CLR_BLACK, CLR_WHITE

   @ 11,130 SAY aoSy[ 1 ] PROMPT cFileExcel PIXEL BORDER SIZE 450,24 FONT oFont

   @ 86, 30 SAY oSay PROMPT "COLUMNAS:" PIXEL SIZE 100,18 FONT oFont

   @ 60,130 SAY oSay PROMPT "Refer" PIXEL SIZE 50,18 FONT oFont

   @ 80,130 GET aoGt[ 1 ] VAR nCol_Rfe PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd ;
            COLORS CLR_BLACK, CLR_HCYAN  // Mira em foco aca...

   @ 60,190 SAY oSay PROMPT "Descri" PIXEL SIZE 50,18 FONT oFont

   @ 80,190 GET aoGt[ 2 ] VAR nCol_Des PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,250 SAY oSay PROMPT "Seccion" PIXEL SIZE 50,18 FONT oFont

   @ 80,250 GET aoGt[ 3 ] VAR nCol_Sec PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,310 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont

   @ 80,310 GET aoGt[ 4 ] VAR nCol_Fam PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,370 SAY oSay PROMPT "Marca" PIXEL SIZE 50,18 FONT oFont

   @ 80,370 GET aoGt[ 5 ] VAR nCol_Mar PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,430 SAY oSay PROMPT "Precio" PIXEL SIZE 50,18 FONT oFont

   @ 80,430 GET aoGt[ 6 ] VAR nCol_Pre PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 120,130 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont

   @ 140,130 GET aoGt[ 7 ] VAR cFamilia PIXEL SIZE 90, 24 PICTURE "999" OF oWnd

   @ 120,230 SAY oSay PROMPT "Descuento" PIXEL SIZE 90,18 FONT oFont

   @ 140,230 GET aoGt[ 8 ] VAR nDescto PIXEL SIZE 100, 24 PICTURE " 99.99" RIGHT OF oWnd


   @ 10, 2 BUTTON aoBt[ 1 ] PROMPT "&Fichero Excel" PIXEL SIZE 120,24 OF oWnd FONT oFont ;
           ACTION ( cFileExcel := cGetFile32( "*.xls", 'Abrir fichero', , GetCurDir(), .F., ,"*.xls" ), ;
                  IF( Empty( cFileExcel ), , ( aoSy[ 1 ]:Refresh(), lFichSub := .T. ) ) )

   @ 320, 40 METER oMeter VAR nActual TOTAL nTotal PIXEL SIZE 555, 40 OF oWnd ;
             FONT oFont COLOR nRGB( 90, 90, 90 ), nRGB( 255, 255, 255 ) ;
             BARCOLOR nRGB( 25, 25, 120 ), nRGB( 255, 255, 255 )

   @ 400, 40 BUTTON aoBt[ 2 ] PROMPT "&Generar" PIXEL SIZE 100,22 OF oWnd FONT oFont ;
             ACTION ImportaDat( cFileExcel, oMeter, @lEnd ) ;
             WHEN lFichSub .AND. Asc( AllTrim( cFileExcel ) ) > 0

   @ 400,496 BUTTON aoBt[ 3 ] PROMPT "Sa&lir" PIXEL SIZE 100,22 OF oWnd FONT oFont ACTION oWnd:End()

   SET MESSAGE OF oWnd TO "Usuario = " + WNetGetUser() + " - " + FWVERSION TIME DATE KEYBOARD

   SET FONT OF oWnd TO oFont

   ACTIVATE WINDOW oWnd

   oFont:End()

RETURN NIL

// para teste solamente - borrar
FUNCTION ImportaDat()

RETURN NIL