FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

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

function Main()

   local oWnd, oBrw, oCol
   local cAlias

   // customer at c:\fwh\samples
   USE CUSTOMER NEW  ALIAS CUSTOMER
   pack
   GO TOP


   cAlias := Alias()





   DEFINE WINDOW oWnd TITLE "Invoice"

   @ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS ALIAS "CUSTOMER" CELL LINES  //FASTEDIT



   oBrw:nMarqueeStyle       := 4
   oBrw:nColDividerStyle    := LINESTYLE_BLACK
   oBrw:lColDividerComplete := .T.
   oBrw:nHeaderLines        := 1.5





   // Fast Edit
   oBrw:nEditTypes := EDIT_GET
   oBrw:lFastEdit := .t.



   //Keys
   oBrw:bPastEof = {||  x_AddBlank( oBrw )  }                  // A new line if trying to go down after the last row
   oBrw:bKeyDown :={ | nKey | x_Keys(nKey, oBrw, cAlias) }     // 



   // First col
   oBrw:aCols[ 1 ]:nEditType := EDIT_GET_BUTTON
   oBrw:aCols[ 1 ]:bEditBlock := {|row, col, oCol| x_InsertData() }





   oBrw:bClrStd:={|| If(FIELD->MARRIED=.T.,{CLR_HRED,CLR_WHITE},{CLR_BLACK,CLR_WHITE})}







   oBrw:SetRDD()
   oBrw:CreateFromCode()




   oWnd:oClient   := oBrw



   ACTIVATE WINDOW oWnd MAXIMIZED
   CLOSE DATA

return (0)

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



//-----------------------------------------------------------------------------
FUNCTION x_Keys(nKey, oBrw, cAlias)

Do Case
   Case nKey == VK_DELETE
       if MsgNoYes("Want to Delete?","D E L E T E  AT "+cAlias)
          (cAlias)->(dbDelete())
          (cAlias)->(__dbPack())
           //oBrw:GoBottom()
           oBrw:Refresh()
       endif


 //Case nKey == VK_RETURN
 //      msgalert("enter")


   Case nKey == VK_INSERT
       x_AddBlank( oBrw )



EndCase

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





//-----------------------------------------------------------------------------
FUNCTION x_AddBlank( oBrw )

 DbGoBottom()
 APPEND BLANK

 oBrw:GoBottom()
 oBrw:refresh()

 oBrw:nColSel := 1
 oBrw:aCols[ 1 ]:edit()

RETURN NIL
//-----------------------------------------------------------------------------






function x_InsertData()

replace field->first with "LINE "+cvaltochar(recno())
replace field->last  with "RANDOM VALUE "+cvaltochar(nrandom(10))

RETURN NIL

Code: Select all | Expand

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

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

function Main()

   local oWnd, oBrw, oCol
   local cAlias

   // customer at c:\fwh\samples
   USE CUSTOMER NEW  ALIAS CUSTOMER
   pack
   GO TOP

   cAlias := Alias()

   DEFINE WINDOW oWnd TITLE "Invoice"

   @ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS ALIAS "CUSTOMER" CELL LINES  //FASTEDIT

   oBrw:nMarqueeStyle       := 4
   oBrw:nColDividerStyle    := LINESTYLE_BLACK
   oBrw:lColDividerComplete := .T.
   oBrw:nHeaderLines        := 1.5

   *YOU HAVE TO REMOVE THIS WHEN YOU WANT THE CURSOR TO GO TO NEXT CELL WHEN PRESSING ENTER KEY
   // Fast Edit
   *oBrw:lFastEdit := .t.

   //Keys
   oBrw:bPastEof = {||  x_AddBlank( oBrw, cAlias )  }          // A new line if trying to go down after the last row
   oBrw:bKeyDown :={ | nKey | x_Keys(nKey, oBrw, cAlias) }     // 

   // First col
   oBrw:aCols[ 1 ]:nEditType  := EDIT_GET_BUTTON
   oBrw:aCols[ 1 ]:bEditBlock := {|row, col, oCol| x_InsertData() }

   *IF YOU WANT TO EDIT SELECTED COLUMNS WITH EDIT BUTTON 
   *oBrw:aCols[ 2 ]:nEditType  := EDIT_GET_BUTTON
   *oBrw:aCols[ 2 ]:bEditBlock := {|row, col, oCol| MsgInfo("WRITE YOUR FUNCTIONALITY HERE FOR COLUMN-2") }
   *oBrw:aCols[ 3 ]:nEditType  := EDIT_GET_BUTTON
   *oBrw:aCols[ 3 ]:bEditBlock := {|row, col, oCol| MsgInfo("WRITE YOUR FUNCTIONALITY HERE FOR COLUMN-3") }
   *oBrw:aCols[ 7 ]:nEditType  := EDIT_GET_BUTTON
   *oBrw:aCols[ 7 ]:bEditBlock := {|row, col, oCol| MsgInfo("WRITE YOUR FUNCTIONALITY HERE FOR COLUMN-7") }

   *IF YOU WANT EDIT_GET_BUTTON FOR ALL THE COLUMNS
   AEval(oBrw:aCols, {|x|x:nEditType := EDIT_GET_BUTTON})

   *WRITE bEditBlock for every column HERE

   oBrw:bClrStd:={|| If(FIELD->MARRIED=.T.,{CLR_HRED,CLR_WHITE},{CLR_BLACK,CLR_WHITE})}

   oBrw:SetRDD()
   oBrw:CreateFromCode()

   oWnd:oClient   := oBrw

   ACTIVATE WINDOW oWnd MAXIMIZED
   CLOSE DATA

return (0)

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

FUNCTION x_Keys(nKey, oBrw, cAlias)

local nOldKey

Do Case
   Case nKey == VK_DELETE
       if MsgNoYes("Want to Delete?","D E L E T E  AT "+cAlias)
          nOldKey := oBrw:KeyNo 
          (cAlias)->(dbDelete())
          (cAlias)->(__dbPack())
          //oBrw:GoBottom()
          oBrw:KeyNo := MIN(nOldKey-1,RECCOUNT())
          oBrw:Refresh(.F.)
       endif

   Case nKey == VK_RETURN
        *THIS LINE MOVES THE CURSOR TO NEXT CELL 
        oBrw:nColSel++ //msgalert("enter")
        *THIS LINE MOVES THE CURSOR BACK TO ORIGINAL CELL ON EDITING
        oBrw:aCols[oBrw:nColSel]:bOnPostEdit := {||oBrw:nColSel--}

   Case nKey == VK_INSERT
       x_AddBlank( oBrw, cAlias )

EndCase

return nil

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

FUNCTION x_AddBlank( oBrw, cAlias )

*THIS CONDITION WILL PREVENT AUTOMATIC PROCESSING OF bPatEof WHEN USED MOUSEWHEEL 
if MsgNoYes("Want to Add new Record?","New Record in "+cAlias)
   APPEND BLANK
   oBrw:refreshCurrent()
   oBrw:nColSel := 1
   oBrw:aCols[ 1 ]:edit()
endif

RETURN NIL

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

function x_InsertData()

replace field->first with "LINE "+cvaltochar(recno())
replace field->last  with "RANDOM VALUE "+cvaltochar(nrandom(10))

RETURN NIL

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

 

Code: Select all | Expand

   Case nKey == VK_RETURN
        *THIS LINE MOVES THE CURSOR TO NEXT CELL 
        oBrw:nColSel++ //msgalert("enter")
        *THIS LINE MOVES THE CURSOR BACK TO ORIGINAL CELL ON EDITING
       oBrw:aCols[oBrw:nColSel]:bOnPostEdit := {|x|x:Value := x:oEditGet:Value,oBrw:nColSel--}