FiveTech Support Forums

#include "fivewin.ch"
#include "tdolphin.ch"
#include "dtpicker.ch"
#include "xbrowse.ch"

#DEFINE CONSULTA ;
      "select " +;
      "tbfacturas.fecha as c1, " +;
      "tbfacturados.descripcion as c2, " +;
      "tbfacturados.cantidad as c3, " +;
      "tbfacturados.precio as c4, " +;
      "tbfacturados.idfactura as c5, "+;
      "tbfacturas.id as c6 "+;
      "from " +;
      "tbfacturas " +;
      "left join tbfacturados " +;
      "on tbfacturas.id = tbfacturados.idfactura " +;
      "where tbfacturas.fecha = " + ClipValue2SQL(vGets[1])

CLASS TCaja
   DATA oCnx
   DATA oQry
   DATA oBrw

METHOD new(oCnx)
METHOD browser()
METHOD mostrar(oQry)
METHOD cargarDatos(vGets)

END CLASS

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

METHOD new(oCnx)
   ::oCnx:= oCnx
   RETURN (Self)

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

METHOD browser()
   LOCAL oDlg,;
         oGets:= Array(2),;
         vGets:= Array(2),;
         oBtns,;
         oFont,;
         oFont1

   DEFINE FONT oFont NAME "" bold SIZE 0, -11
   DEFINE FONT oFont1 NAME "Ebrima" SIZE 0, -11

   vGets[1]:=Date()

   ::cargarDatos(vGets)

   DEFINE DIALOG oDlg resource "CAJA"

      REDEFINE DTPICKER oGets[1] VAR vGets[1] ID 100 OF oDlg

      REDEFINE COMBOBOX oGets[2] VAR vGets[2];
         ITEMS {"Todo", "Cta Cte", "Efectivo"} ID 105 OF oDlg

      REDEFINE BUTTON oBtns ID 200 OF oDlg

      ::oBrw:= TXBROWSE():new(oDlg)

      ::oBrw:setdolphin(::oQry, .T., .F., {"c1", "c2", "c3", "c4"} )

      WITH OBJECT ::oBrw
         :nMarqueeStyle       := 5
         :lKinetic            := .F.
         :ltransparent        := .F.
         :nRowHeight          := 21
         :lHScroll            := .F.
         :lVScroll            := .T.
         :nheaderHeight       := 23
         :lRecordSelector     := .F.
         :lAllowColSwapping   := .F.
         :lColDividerComplete := .f.
         :nRowDividerStyle    := 4
         :nStretchCol         := STRETCHCOL_LAST
         :nColDividerStyle    := 4

         WITH object :aCols[1]
            :odatafont     := oFont
            :cHeader       := "Id"
            :nWidth        := 100
            :nHeadStrAlign := AL_CENTER
            :oheaderfont   := oFont
            :oheaderfont   := oFont
         END with

         WITH object :aCols[2]
            :cHeader       := "Productos"
            :nHeadStrAlign := AL_CENTER
            :nWidth        := 100
            :oheaderfont   := oFont
            :odatafont     := oFont1
         END with

         WITH object :aCols[3]
            :cHeader       := "Cantidad"
            :nWidth        := 100
            :nHeadStrAlign := AL_CENTER
            :oheaderfont   := oFont
            :odatafont     := oFont1
         END with

         WITH object :aCols[4]
            :cHeader       := "Precio"
            :nWidth        := 100
            :nHeadStrAlign := AL_CENTER
            :oheaderfont   := oFont
            :odatafont     := oFont1
         END with

      END WITH

      ::oBrw:createfromresource(205)

      oBtns:bAction:= { || ::cargarDatos(vGets)}

   ACTIVATE DIALOG oDlg CENTERED

   RETURN (NIL)

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

METHOD mostrar()

   DO WHILE !::oQry:Eof()
      ::oQry:skip(1)
   END DO

   RETURN (NIL)

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

METHOD cargarDatos(vGets)

   DEFINE query ::oqry CONSULTA

   IF ::oBrw != NIL
      ::oBrw:refresh()
      ::mostrar()
   ENDIF

   RETURN (NIL)

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