FiveTech Support Forums

#include "fivewin.ch"

REQUEST FW_DemoDB

Function Inicio()
   LOCAL oDlg
   LOCAL FWH_VERSION := FWVERSION
   DEFINE DIALOG oDlg SIZE 290,220 PIXEL TRUEPIXEL TITLE "Genérido para pruebas con script"
       @  20,75 BUTTON "&Ejecutar Script Op. 1" OF oDlg PIXEL SIZE 140,35 ACTION Make_PP_Run("_Script_Pruebas.scr",{"OpenTable"}, {FWH_VERSION}) 
       @  70,75 BUTTON "&Ejecutar Script Op. 2" OF oDlg PIXEL SIZE 140,35 ACTION Make_PP_Run("_Script_Pruebas.scr",{"MakeDialogo"}) 
       @ 150,75 BUTTON "&Salir" OF oDlg PIXEL SIZE 120,35 ACTION oDlg:End()
   ACTIVATE DIALOG oDlg CENTERED
Return(NIL)
//-----------------------------------//


Function Make_PP_Run(cElScript, mVar01, mVar02, mVar03, mVar04, mVar05)
   LOCAL oError
   hb_gcAll(.T.)
   TRY
       PP_RUN( cElScript , { mVar01 , mVar02 , mVar03 , mVar04 , mVar05 } )
   CATCH oError
       MSGSTOP( oError:description() + CRLF + CRLF + "Error Ejecución de Sentencia en ....", oDatos:cTitMsg )
       RETURN(NIL)
   END
   hb_gcAll(.T.)
Return(NIL)
//-----------------------------------//

Function inicio(aVars1, aVars2)

   DO CASE 
      CASE aVars1[1] == "OpenTable"
         AbreTabla(aVars2)
      CASE aVars1[1] == "MakeDialogo"
         MakeDialogo()
      CASE aVars1[1] == "Otrafuncion"
        // Otrafuncion().....

      OTHERWISE

   ENDCASE

Return(NIL)
//-----------------------------------//

Function AbreTabla(aVars2)
   local oCn
   local oRsState, oRsCity, oRsCust
   local oBrwState, oBrwCity, oBrwCust
   local oDlg, oFont

   MsgInfo( "Versión FWH:  " + aVars2[1] )

   oCn   := FW_DemoDB()

   bAccion := {|| oRsState := oCn:RowSet( "SELECT * FROM states ORDER BY name" ) ,;
                  oRsCity  := oCn:RowSet( "SELECT id, state, city FROM customer ORDER BY state, city" ) ,;
                  oRsCust  := oCn:RowSet( "SELECT id, state, CONCAT_WS( ', ', first, last ) AS Name FROM customer ORDER by state,Name" ) ,;
                  oRsCity:SetFilter( "STATE = ?", { oRsState:code } ) ,;
                  oRsCust:SetFilter( "STATE = ?", { oRsState:code } ) }

   MsgRun( "Reading tables", "Please Wait...", Eval(bAccion) )

   oFont := TFont():New( "Segoe UI", 0, -10,,,,,,,,,,,,,,, .T. )

   oDlg = TDialog():New(,,,, "MARIADB - PARENT WITH TWO CHILD TABLES - Time: " + TTOC(DateTime()),,, .F.,,,,,, .T.,, oFont,, 700, 600, .F.,, "oDlg",, .T., )
   IIF( HB_ISOBJECT( oFont ), oFont:End(), ) ; oFont := nil

   oBrwState := XbrowseNew( oDlg, 20, 20, 300, -20,,,,,,,,,,,, .F., oRsState,, .F.,, .T.,, .F., .F. ,, {"NAME","CODE"},,, .F., .F., .T., .T.,,,,, .F., .T., "oBrwState", )

   WITH OBJECT oBrwState
      :SetGroupHeader( "PARENT", 1, 2 )
      :nStretchCol   := 1
      :lHScroll      := .F.
      :bChange       := {|| ;
                        oRsCity:ReFilter( { oRsState:code } ) ,;
                        oRsCust:ReFilter( { oRsState:code } ) ,;
                        oBrwCity:Refresh() ,;
                        oBrwCust:Refresh() }
      :CreateFromCode()
   END

   oBrwCity := XbrowseNew( oDlg, 20, 300, 400, 260,,,,,,,,,,,, .F., oRsCity,, .F.,, .T.,, .F., .F. ,, {"STATE","CITY"},,, .F., .F., .T., .T.,,,,, .F., .T., "oBrwCity", )

   WITH OBJECT oBrwCity
      :SetGroupHeader( "CHILD-1", 1, 2 )
      :nStretchCol   := 2
      :lHScroll      := .F.
      :CreateFromCode()
   END

   oBrwCust := XbrowseNew( oDlg, 280, 300, 400, -20,,,,,,,,,,,, .F., oRsCust,, .F.,, .T.,, .F., .F. ,, {"STATE","NAME"},,, .F., .F., .T., .T.,,,,, .F., .T., "oBrwCust", )

   WITH OBJECT oBrwCust
      :SetGroupHeader( "CHILD-2", 1, 2 )
      :nStretchCol   := 2
      :lHScroll      := .F.
      :CreateFromCode()
   END

   oDlg:Activate( oDlg:bLClicked, oDlg:bMoved, oDlg:bPainted, .T.,,,, oDlg:bRClicked,,,,, @oDlg, )
   oCn:Close()

return nil
//-----------------------------------//

Function MakeDialogo()
   LOCAL oDlg
   oDlg = TDialog():New(,,,, "Dialogo creado al vuelo",,, .F.,,,,,, .T.,,,, 490, 320, .F.,, "oDlg",, .T., )
       TButton():New( 150, (oDlg:nWidth/2) - 60 , "&Salir", oDlg, {|| oDlg:End()}, 120, 35,,, .F., .T., .F.,, .F.,,, .F.,, .F.,, )
   oDlg:Activate( oDlg:bLClicked, oDlg:bMoved, oDlg:bPainted, .T.,,,, oDlg:bRClicked,,,,, @oDlg, )
Return NIL
//-----------------------------------//

Function Main()
  LOCAL oDlg
  DEFINE DIALOG oDlg SIZE 300,200 PIXEL TRUEPIXEL TITLE "Prueba script"
     @ 20,20 BTNBMP PROMPT "&Salir" OF oDlg PIXEL SIZE 100,30 ACTION oDlg:End() FLAT
  ACTIVATE DIALOG oDlg CENTERED
Return nil

Function Main()
  LOCAL oDlg
  oDlg = TDialog():New(,,,, "Prueba script",,, .F.,,,,,, .T.,,,, 300, 200, .F.,, "oDlg",, .T., )
     TBtnBmp():New( 20, 20, 100, 30,,,,, {|Self|oDlg:End()}, oDlg,,, .F., .F., "&Salir",,,, !.F.,, .F.,,, .F.,, !.F.,, .T., .F., .T.,,, .F.,, )
  oDlg:Activate( oDlg:bLClicked, oDlg:bMoved, oDlg:bPainted, .T.,,,, oDlg:bRClicked,,,,, @oDlg, )
Return nil