FiveTech Software tech support forums

Code: Select all

// FiveWin for Pocket PC - Using DialogBoxes

#include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oBrush

   local oBtn1

   // -------------> Preguntamos número de vendedor y password
   IF !Entrada()
      MSgInfo("Dentro del IF")
      RETURN .F.
   ENDIF

   MSgInfo("Después del if")

   DEFINE WINDOW oWnd TITLE "GlobalPda"

   //oBrush := tBrush():New( NIL,, cBmpFile, cBmpRes )




   @ 001, 001 BUTTON oBtn1 PROMPT "Rutas" OF oWnd ;
              ACTION MsgInfo("Hola")  ;
              SIZE 100, 20 ;
              PIXEL


   @ 120, 001 BUTTON oBtn1 PROMPT "Rutas" OF oWnd ;
              ACTION MsgInfo("Hola")  ;
              SIZE 100, 20 ;
              PIXEL


   ACTIVATE WINDOW oWnd


return nil

//----------------------------------------------------------------------------//




FUNCTION Entrada()

         LOCAL oWnd
         LOCAL aVendedores := {"001 - Vendedor 1","002 - Vendedor 2" }
         LOCAL oVendedores
         LOCAL cVendedor := aVendedores[1]
         LOCAL oBtn1


         DEFINE WINDOW oWnd TITLE "Entrada"


         @ 20, 20 SAY "Vendedor" PIXEL
         @ 60, 60 COMBOBOX cVendedor ITEMS aVendedores OF oWnd ;
                  SIZE 20,250 PIXEL


   @ 120, 001 BUTTON oBtn1 PROMPT "Salir" OF oWnd ;
              ACTION oWnd:End()  ;
              SIZE 100, 20 ;
              PIXEL


         ACTIVATE WINDOW oWnd

RETURN .T.

Code: Select all

   DEFINE WINDOW oWnd TITLE "GlobalPda" 

   IF ! Entrada() 
      RETURN .F. 
   ENDIF 

   ...