FiveTech Support Forums

   shSelect := {=>}
   shSelBank:= {=>}
   // DetaCheq23 [DB23] - Bancos [DB21]
   (h0["DetaCheq23"]:nArea)->( dbSetRelat( h0["Bancos"]:nArea, {|| (h0["DetaCheq23"]:nArea)->FBANK01 }, '(h0["DetaCheq23"]:nArea)->FBANK01' ) )
   h0["DetaCheq23"]:SetOrder( "FE_VENCE" )
  (h0["DetaCheq23"]:nArea)->( AdsSetAOF( "!FDETCHQ07" ) )
   h0["DetaCheq23"]:GoTop()

   DEFINE DIALOG oDlg RESOURCE "brw_VerCheques" TITLE "Cheques en cartera" ;
          FONT ::hFont["Tahoma14"]
   oDlg:lHelpIcon:= FALSE

   REDEFINE XBROWSE oLstChq ID BRW_XBRW OF oDlg ;
            COLUMNS "FDETCHQ02", "FDETCHQ04", "FDETCHQ05", nil     ;
            HEADERS "DocNro",    "FeVencim",  "Monto",     "Check" ;
            ALIAS   h0["DetaCheq23"]:cAlias

    WITH OBJECT oLstChq
      :nMarqueeStyle:= MARQSTYLE_HIGHLROW     // linea señaladora
      :nStretchCol  := STRETCHCOL_LAST
      :lFooter      := TRUE

      :SetColor( CLR_BLACK, CLR_ROWLIMA )                    // Colorea todo el browse
      :bClrStd     := {|| { CLR_BLACK, CLR_ROWLIMA } }       // Filas sin foco
      :bClrSelFocus:= {|| { CLR_NARANJA, CLR_CELDALIMA } }   // Celda con foco
      :bClrSel     := {|| { CLR_GRAY, CLR_ROWLIMA } }        // Fila siN foco
      :bChange     := {|| nPosActual := oLstChq:BookMark, oLstChq:Refresh() }

      // Seleccion
      :bLDblClick:= {|| Eval( oLstChq:bKeyDown, VK_SPACE) }
      :bKeyDown  := {|nK| if( nK==VK_INSERT .or. nK==VK_SPACE, ;    // Aca realizo un proceso de seleccion mediante Hash
                                      ... }
      :bGotFocus   := {|| h0["DetaCheq23"]:SetFocus(), h0["DetaCheq23"]:Refresh() }
   END

   WITH OBJECT oLstChq:DocNro
      :nWidth:= 85
   END
   WITH OBJECT oLstChq:FeVencim
      :nWidth:= 90
   END
   WITH OBJECT oLstChq:Monto
      :nWidth:= 105
      :nFooterType := AGGR_TOTAL
      :bClrFooter  := {|| {CLR_GREEN, CLR_BLACK} }
      :oFooterFont := ::hFont["Tahoma14B"]

      :bFooter:= {|| Trans( oLstChq:Monto:nTotal-nTotSelec, PIC_DIEZCIF2 ) }
   END
   WITH OBJECT oLstChq:Check
      :nHeadStrAlign:= AL_CENTER
      :nFootStrAlign:= AL_RIGHT
      :bClrFooter   := {|| {CLR_HRED, CLR_BLACK} }
      :oFooterFont  := ::hFont["Tahoma14B"]

      :bEditValue := {|x| x:= HHasKey( shSelect, h0["DetaCheq23"]:RecNo() ) }
      :SetCheck( { "bmp_Ok2", "" }, TRUE )

      :bFooter:= {|| Trans( nTotSelec, PIC_DIEZCIF1 ) }
   END