bb.donnay-software.com

Code: Select all

aNRecs ={}
cComp = ""
lPFlag       := .f.
Set4HuntandBrowse("P",lPFlag)
LoadNames(@aNRecs,.t.,lPFlag) //status problem <> "*"
nPointer1 = 0
    @ 5.7,DCGUI_COL+10 dcget cNameT GETID 'G_NAME';
       POPUP{|c,oGet|NameBrsflg:=!NameBrsflg,;
   IIf(NameBrsflg == .t.,LoadNamePointer(aNRecs,cComp,oGet,cNameT,"",48,@nPointer1),),;
   IIf(NameBrsflg == .t.,oBrowse2:gotop(),),;
   IIf(NameBrsflg == .t.,SetAppFocus(d_oPagegroup2),),;
   IIf(NameBrsflg == .t.,DC_BrowseRow( oBrowse2, nPointer1 ),),;
   IIf(NameBrsflg == .t.,oBrowse2:refreshAll(),),;
      DC_GetRefresh(GetList)};	      
   KEYBLOCK {|a,b,o|LoadNamePointer(aNRecs,cComp,o,cNameT,"",a,@nPointer1),;
   	      SearchtheName(a,b,o,@cNameT,@cClass,@oClass,@lFName,"P",lPFlag,@cTCode),;
      	      oBrowse2:gotop(),;
	      IIf(!IsValidateKey(a) .and. Downarrowpressed,NameBrsflg := .t.,NameBrsflg := .f.),;
	      IIf(IsValidateKey(a),NameBrsflg := .t.,),;
	      IIf(Downarrowpressed,SetAppFocus(d_oPagegroup2),),;
	      DC_BrowseRow( oBrowse2, nPointer1 ),;
	      oBrowse2:refreshAll(),;
	      Downarrowpressed := .f.,;
	      DC_GetRefresh(GetList)} ;	      
   GETSIZE 35;
   GETOBJECT oCName2;
   TABSTOP;
   WHEN {|| !empty( cFrom ) }           ;
   GOTFOCUS {|a,b,o|DC_GetCargo(o,o:setPresParam(aSelected))} ;
   LOSTFOCUS {|a,b,o|iif(lFName,,o:setPresParam(aPresit))} ;
   PREEVAL {||InitPick("P",lPFlag,@cNameT,@cClass)}

nTNWidth = 37.5
nTNHeight = 5
//   @ 1,18 DCGET cFrom ;
//       @ 5.7,DCGUI_COL+10 dcget cNameT GETID 'G_NAME';
//@ 2.5,18.5
@ 7.2,9 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX OBJECT d_oPagegroup2       ;
            SIZE nTNWidth,nTNHeight PARENT oDialog ;
            COLOR GRA_CLR_BLACK,GRA_CLR_PALEGRAY ;
	    HIDE {|| NameBrsflg == .f.}  

//nPointer := 3
@ 0,0 DCBROWSE oBrowse2 ;
      SIZE nTNWidth,nTNHeight ;
      PARENT d_oPagegroup2;
      FONT cDefaultFont;
      DATA aNRecs ;
      PRESENTATION DC_BrowPres() ;
      TABSTOP;
      POINTER nPointer1 ;
      NOHSCROLL ;
      CURSORMODE XBPBRW_CURSOR_ROW HIDE {|| NameBrsflg == .f.};
      ITEMSELECTED {||;
           IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",,cNameT := PadR(aNRecs[nPointer1,1]  , 30, " ")), ;
           IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",,cClass := aNRecs[nPointer1,2]),;
           IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",,cTCode := aNRecs[nPointer1,3]),;
	   IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",,oCName2:setPresParam(aSelected)),;
	   IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",,lFName := .t.),;
	   IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",NewNames(oDialog,@cNameT,@cClass),),;
	   IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",cTCode := NewzPersCode,),;
	   IIF(trim(aNRecs[nPointer1,1]) = "< Add New >",AddtoNameArray(aNRecs,cNameT,cClass,NewzPersCode),),;	   
	   NameBrsflg := .f.,SetAppFocus(oCName2),;
	   DC_GetRefresh(GetList)};
      LOSTFOCUS {|| NameBrsflg := .f.} ;
      GOTFOCUS {|| nPointer1 := 1} ;      
       
//determine how the browse will look
 //bSortCol := {|a,n,o| SortBrowse(aRecs,n)}
 
DCBROWSECOL ELEMENT 1 PIXEL WIDTH 116*Ratio HEADER 'Name' PARENT oBrowse2 SORT bSortCol 
DCBROWSECOL ELEMENT 2 PIXEL WIDTH 62*Ratio  HEADER 'Class' PARENT oBrowse2 SORT bSortCol 

Code: Select all

@ 0,0 DCBROWSE oBrowse  DATA aURecs

Code: Select all

aRecs := {}
LoadTranasctions( @aRecs, cFrom )
@ 15.5,1 DCBROWSE oRecs DATA aRecs ;
      SIZE  88,6 ;
      CURSORMODE XBPBRW_CURSOR_NONE;
      PRESENTATION aPres
DCBROWSECOL Object oListBox ELEMENT 1 PIXEL WIDTH 76 PARENT oRecs
DCBROWSECOL ELEMENT 2 PIXEL WIDTH 137 PARENT oRecs
DCBROWSECOL ELEMENT 3 PIXEL WIDTH 56 PARENT oRecs
DCBROWSECOL ELEMENT 4 PIXEL WIDTH 136 PARENT oRecs ALIGN XBPALIGN_LEFT
DCBROWSECOL ELEMENT 5 PIXEL WIDTH 34 PARENT oRecs ALIGN XBPALIGN_LEFT
DCBROWSECOL ELEMENT 6 PIXEL WIDTH 80 PARENT oRecs ALIGN XBPALIGN_RIGHT
DCBROWSECOL ELEMENT 7 PIXEL WIDTH 83 PARENT oRecs ALIGN XBPALIGN_RIGHT