FiveTech Software tech support forums

Code: Select all | Expand

// This always shows data from the first record in the indexed database, NOT the currently highlighted record in the xbrowse
oBrwCust:bLDblClick:= {| oCustomers | msgInfo(oCustomers:custno), msgInfo(oCustomers:last) }

Code: Select all | Expand

oBrwCust:custno:Value
 

Code: Select all | Expand

      return Eval( ::bLDblClick, nRow, nCol, nKeyFlags, Self )
 

Code: Select all | Expand

{ |param1,param2,param3,param4| <execution code> }
 

Code: Select all | Expand

oBrwCust:bLDblClick := { |r,c,f,o| If( Empty( o:oDbf ), msginfo( "not browsing database object" ), msginfo( o:oDbf:First + o:oDbf:Last ) ) }
 

Code: Select all | Expand

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oCustomers, oDlg, oFont, oBrw

   oCustomers := TDataBase():Open( nil, "CUSTOMER", "DBFCDX", .t. )

   DEFINE FONT oFont NAME "CALIBRI" SIZE 0,-16
   DEFINE DIALOG oDlg SIZE 700,350 PIXEL TRUEPIXEL FONT oFont TITLE FWVERSION

   @ 60,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oCustomers AUTOCOLS LINES NOBORDER

   WITH OBJECT oBrw
      :nMarqueeStyle := MARQSTYLE_HIGHLROW
      :bLDblClick    := { |r,c,f,o| ShowRec( o ) }
      //
      :CreateFromCode()
   END

   @ 20,20 BUTTON "Show Record" SIZE 200,30 PIXEL OF oDlg ACTION ShowRec( oBrw )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

static function ShowRec( oBrw )

   WITH OBJECT oBrw:oDbf
      ? :RecNo(), :ID, :First, :Last
   END
   oBrw:SetFocus()

return nil
 

Code: Select all | Expand

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oStates, oCust
   local oWnd, oBar, oBrwStates, oBrwCust, oFont

   FWNumFormat( "A", .t. )  // American formatting, with commas
   SET DELETED ON

   oCust    := TDataBase():Open( nil, "CUSTOMER", "DBFCDX", .t. )
   if oCust:OrdNumber( "STATE" ) == 0
      oCust:CreateIndex( "TMP", "STATE", "STATE", .f., .f., .t. )
   endif
   oCust:SetOrder( "STATE" )

   oStates  := TDataBase():Open( nil, "STATES", "DBFCDX", .t. )
   oStates:SetRelation( oCust, "CODE", .t. )
   oStates:GoTop()
   oCust:GoTop()

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE WINDOW oWnd TITLE FWVERSION
   oWnd:SetFont( oFont )
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007

   @ oBar:nHeight, 0 XBROWSE oBrwStates SIZE 250, 0 PIXEL OF oWnd ;
      DATASOURCE oStates AUTOCOLS CELL LINES NOBORDER FOOTERS

   WITH OBJECT oBrwStates
      :bChange := { || oBrwCust:GoTop(), oBrwCust:MakeTotals(), oBrwCust:Refresh() }
      //
      :CreateFromCode()
   END

   @ oBar:nHeight, 250 XBROWSE oBrwCust SIZE 0,0 PIXEL OF oWnd ;
      DATASOURCE oCust ;
      COLUMNS "STATE", "ID", "FIRST", "CITY", "SALARY" ;
      CELL LINES NOBORDER FOOTERS

   WITH OBJECT oBrwCust
      :State:bFooter       := { || oBrwCust:nLen }
      :Salary:nFooterType  := AGGR_SUM
      :MakeTotals()
      //
      :CreateFromCode()
   END

   ACTIVATE WINDOW oWnd MAXIMIZED
   RELEASE FONT oFont

return nil
 

Code: Select all | Expand

    REDEFINE  XBROWSE oLbxs ;
      DATASOURCE aSrvHis ;
      HEADERS " Date ", " Paid ", " Order # ", sLbl[3], " Parts ", " Labor ", " Sublet ", " Total ", " ID " ;
      COLUMNS 1,2,3,4,5,6,7, 8, 9  ;
      ID 1970 OF oDlgh ;
      ON CHANGE ( oHistory:CheckHistory( aSrvHis[oLbxs:nArrayAt,3] ), oLbxd:refresh( ) ) ;
      UPDATE 

            // Provide the header gradient
            oLbxs:bClrGrad := aPubGrad 
            // Set the styles
            oLbxs:nMarqueeStyle := MARQSTYLE_HIGHLROW
            oLbxs:nColDividerStyle := LINESTYLE_RAISED
            oLbxs:nRowDividerStyle := LINESTYLE_RAISED
            oLbxs:nHeadStrAligns  := AL_CENTER
        //  oLbxs:nStretchCol := STRETCHCOL_LAST
    
    REDEFINE  XBROWSE oLbxd ;
      DATASOURCE aParItm ;
      HEADERS " Details ", " " ;
      COLUMNS 1, " " ;
      FONT fntfixed SIZES 600 ; 
      ID 1971 OF oDlgh ;
      ON DBLCLICK oHistory:HistoryDrillDown( aParItm[oLbxd:nArrayAt,2], aParItm[oLbxd:nArrayAt,3] ) ;
      UPDATE 

            // Provide the header gradient
            oLbxd:bClrGrad := aPubGrad 
            // Set the styles
            oLbxd:nMarqueeStyle := MARQSTYLE_HIGHLROW
            oLbxd:bClrSel = { || { 16777215, 15512898 } }
            oLbxd:nHeadStrAligns  := AL_CENTER
            oLbxd:nStretchCol := STRETCHCOL_LAST
            

 

Code: Select all | Expand

   // Create the browse control
   REDEFINE  XBROWSE oLbx1 ;
      DATASOURCE oEditWork:oWorkParts  ;
      HEADERS "Quantity", "Partnumber", "Description", "Total", "Tax?", "Sold by", " Status ", " Labor ", " Source ", " " ;
      COLUMNS "parqun", "parnum", "pardes", "partot", "partax", "parcom", "status", "pargrp","paruf2", " " ;
      JUSTIFY 2,,,,,, 2 ;
      PICTURE "#####.##","@X","@X","#####.##",,"@X","@X","@X","@X" ;
      ID 486 OF  oEditWork:oFld:aDialogs[ 2 ] ;
      ON CHANGE ( oEditWork:oWorkPartsr:load(), oEditWork:SetWorkParts2(), cVenNam := ShoVnd( oEditWork:oWorkPartsr:parven, oEditWork:aVnd ), oEditWork:oFld:update() )  ;
      UPDATE
   oLbx1:aCols[ 5 ]:SetCheck( nil, .T. )
   // Provide the header gradient
   oLbx1:bClrGrad := aPubGrad
   // Set the styles
   oLbx1:nMarqueeStyle := MARQSTYLE_HIGHLROW
   oLbx1:nColDividerStyle := LINESTYLE_RAISED
   oLbx1:nRowDividerStyle := LINESTYLE_RAISED
   oLbx1:nHeadStrAligns  := AL_CENTER
   oLbx1:nStretchCol := STRETCHCOL_LAST

 

Code: Select all | Expand

  TEXT into cSql
   Select
   a.id AS c1,
   a.idsucursal AS c2,
   a.idfactura AS c3,
   a.fecha AS c4,
   a.idcontacto AS c5,
   a.subtotal AS c6,
   a.total AS c7,
   b.id AS c8,
   b.nombre AS c9
   FROM tbventas AS a
   Left JOIN tbsucursal AS b ON a.idsucursal = b.id
   ENDTEXT
   
   DEFINE WINDOW oWnd
   
   oQry   := ::oCnx:QUERY( cSql )

   @ 0, 0 XBROWSE oBrw SIZE 550, - 100 PIXEL ;
   DATASOURCE oQry ;
   LINES CELL ;
   autocols ;
   OF oWnd

   WITH OBJECT oBrw
      :bchange := { || oQry:Requery(), oBrw1:GoTop(), oBrw1:Refresh() }
   END WITH

   oBrw:CreateFromCode()

   //----------( )----------

   TEXT into cSql1
   Select
   a.id AS c1,
   a.idventa AS c2,
   a.fecha AS c3,
   a.formadepago AS c4,
   a.entregado AS c5
   FROM tbctacte AS a
   WHERE a.idventa = ?
   ENDTEXT

   oQry1   := ::oCnx:QUERY( cSql1, { oQry:FieldGet( "c1" ) } )

   @ 0, 560 XBROWSE oBrw1 SIZE 650, - 100 PIXEL ;
   DATASOURCE oQry1 ;
   LINES CELL ;
   autocols ;
   OF oWnd

   oBrw1:CreateFromCode()

   ACTIVATE WINDOW oWnd MAXIMIZED