FiveTech Support Forums

       REDEFINE  XBROWSE  oBrw[1] ID  4001 COLUMNS "INCL","NUME","CFEC","LOTE"... ALIAS "PASO1" OF oDlg FONT xFont NOBORDER AUTOSORT FOOTERS
       ...
       ...

       oBrw[1]:bChange := {|| FuncionDetalle( oBrw ) } 

       REDEFINE  XBROWSE  oBrw[2] ID  4002 COLUMNS "INCL","CODE","DETA","CANT"... ALIAS "PASO2" OF oDlg FONT xFont NOBORDER AUTOSORT FOOTERS
       ...
       ...

FUNCTION FuncionDetalle( oBrw )

     SELECT PASO2
     ZAP

     //--- haces la busqueda del detalle con la clave que tengas en el encabezado de la factura (Tabla PASO1)...
     //--- llenas la tabla PASO2 con los registros encontrados...
    
    SELECT PASO2
    GO TOP
    oBrw[2]:Gotop()
    oBrw[2]:Refresh()
    oBrw[1]:SetFocus()

RETURN .t.

Function ClteCredito(cCodigo,cCredNum,cCliente,cMoneda)

DbSelectArea("CLIENTES")
cAlias1:=Alias()

DbSelectArea("CREDITOS")
cAlias2:=Alias()
CREDITOS->(ORDSETFOCUS("CODCTPTM"))  //Codigo de Clte +codigo de Ptmo


//PRIMER BROWSE
REDEFINE XBROWSE oBrw1 ID 118 OF oDlg ;
         COLUMNS "Codigo", "Nombre", "Apellido","CedulaIde" ; 
         ALIAS (cAlias1) FOOTERS LINES CELL //;

   WITH OBJECT oBrw1
      :bChange := {|| PonerScope(cAlias1,cAlias2,oBrw2) }
   END

//SEGUNDO BROWSE
REDEFINE XBROWSE oBrw2 ID 119 OF oDlg ;
         COLUMNS "Ptmo","Moneda","MontoPtmo" ;
         ALIAS (cAlias2) FOOTERS LINES CELL //;

   WITH OBJECT oBrw2
      :bLDblClick := {|| cMoneda:=(cAlias2)->Moneda,cCodigo:=(cAlias2)->CodClte, cCredNum:=(cAlias2)->Ptmo, cCliente:=(cAlias2)->Cliente, oDlg:End() }
      :bKeyDown := {|nTecla| if(nTecla==VK_RETURN, (cMoneda:=(cAlias2)->Moneda,cCodigo:=(cAlias2)->CodClte, cCredNum:=(cAlias2)->Ptmo, cCliente:=(cAlias2)->Cliente, oDlg:End()),) }

   END


   ACTIVATE DIALOG oDlg CENTERED ;
            ON INIT ( oBrw1:SetFocus(), PonerScope(cAlias1,cAlias2,oBrw2) )

return nil
//-------------------------------------
Function PonerScope(cAlias1,cAlias2,oBrw)
(cAlias2)->(OrdScope(TOPSCOPE,(cAlias1)->Codigo))
(cAlias2)->(OrdScope(BOTTOMSCOPE,(cAlias1)->Codigo))
(cAlias2)->(DbGotop())
 oBrw:Refresh()
Return nil

#include "fivewin.ch"

REQUEST DBFCDX

function MasterChildDBF()

   field STATE,CODE
   local oDlg, oStates, oCust

   USE CUSTOMER NEW SHARED
   INDEX ON STATE TAG TSTATE TO TMP MEMORY
   USE STATES NEW SHARED
   SET RELATION TO CODE INTO CUSTOMER SCOPED
   GO TOP

   DEFINE DIALOG oDlg SIZE 900,400 PIXEL TRUEPIXEL ;
      TITLE "Parent Child Browse"

   @ 20,20 XBROWSE oStates SIZE 200,-20 PIXEL OF oDlg ;
      DATASOURCE "STATES" ;
      COLUMNS "CODE","NAME" CELL LINES NOBORDER

   WITH OBJECT oStates
      :bChange    := { || oCust:GoTop(), oCust:Refresh() }
      :CreateFromCode()
   END

   @ 20,200 XBROWSE oCust SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "STATE", "FIRST", "CITY", "AGE", "SALARY" ;
      CELL LINES NOBORDER

   oCust:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

return nil

#include "fivewin.ch"

function Main()

   local oServer, oQryStates, oQryCust, bWhere
   local oStates, oCust, oDlg

   oServer     := FW_DemoDB( "DLP" ) // You may use your server connection

   oQryStates  := oServer:Query( "select * from `states`" )
   bWhere      := { || "`state` = '" + oQryStates:code + "'" }
   oQryCust    := oServer:Query( "select * from customer where " + Eval( bWhere ) )

   DEFINE DIALOG oDlg SIZE 900,400 PIXEL TRUEPIXEL ;
      TITLE "Parent Child Browse"

   @ 20,20 XBROWSE oStates SIZE 200,-20 PIXEL OF oDlg ;
      DATASOURCE oQryStates ;
      COLUMNS "CODE","NAME" CELL LINES NOBORDER

   WITH OBJECT oStates
      :bChange    := { || oQryCust:SetWhere( Eval( bWhere ) ), oCust:GoTop(), oCust:Refresh() }
      :CreateFromCode()
   END

   @ 20,200 XBROWSE oCust SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oQryCust ;
      COLUMNS "STATE", "FIRST", "CITY", "AGE", "SALARY" ;
      CELL LINES NOBORDER

   oCust:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

   oQryStates:End()
   oQryCust:End()
   oServer:End()

return nil