FiveTech Software tech support forums

Code: Select all

WITH OBJECT :aCols[01]
 

Code: Select all

WITH OBJECT :aCols:Precio
 

Code: Select all

REDEFINE XBROWSE oBrw2 ID 119 OF oDlg ... etc

   WITH OBJECT oBrw2
      :nMarqueeStyle    :=  MARQSTYLE_HIGHLROW  ... etc
   END

   WITH OBJECT oBrw2:Debitos   //aCols[6]
      :cEditPicture := "99,999,999.99"   ...etc
      :nFooterType   := AGGR_TOTAL
   END

Code: Select all

//               WITH OBJECT :aCols[08]
               WITH OBJECT :HDR_GAS
                  :nFooterType      := AGGR_SUM
                  :bSumCondition    := { || ! oRsHdr:Fields("HDR_CAN"):Value }
                  :cFooterPicture   := "@Z 9,999,999,999.99"
               END
 

Code: Select all

            REDEFINE XBROWSE oBrw ID 200 OF oDlg;
                DATASOURCE oRsHdr;
                COLUMNS "HDR_NUM","HDR_ARR","HDR_FDP","ARR_RUT","ARR_NDA","CAL_NOM","ARR_LOC","HDR_GAS","HDR_LUZ","HDR_AGU","HDR_REN","HDR_CAN";
                HEADERS "Folio","Arriendo","Fecha","RUT","Arrendatario","Calle","Local","Gastos","Luz","Agua","Renta","Can";
                COLSIZES 55,55,80,75,200,150,40,90,90,90,90,30;
                PICTURES "@Z 9999999","@Z 9999999","dd/mmm/yyyy",NIL,NIL,NIL,"@Z 99999","@Z 999,999.99","@Z 999,999.99","@Z 999,999.99","@Z 999,999.99",NIL;
                JUSTIFY {AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_LEFT,AL_LEFT,AL_LEFT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_CENTER};
                FOOTERS AUTOSORT BACKGROUND oApp:cBrush

                WITH OBJECT oBrw
                    :l2007            := (.F.)
                    :lHScroll         := (.F.)
                    :lVScroll         := (.F.)
                    :nMarqueeStyle    := MARQSTYLE_HIGHLROW
                    :nColDividerStyle := LINESTYLE_LIGHTGRAY
                    :nRowDividerStyle := LINESTYLE_LIGHTGRAY
                    :nStretchCol      := STRETCHCOL_WIDEST
                    :nHeaderHeight      := 25
                    :nRowHeight         := 22
                    :nFooterHeight      := 25
                    :bClrHeader       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrFooter       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrSel          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :bClrSelFocus     := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
                    :bClrStd          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :nRecSelColor     := oApp:nRowParClr
                    :lDisplayZeros    := (.F.)

                    WITH OBJECT :aCols[01]
                        :cOrder := "A"
                    END

               WITH OBJECT :aCols[06]
                  :nFootStrAlign    := AL_RIGHT
                  :bFooter          := { || "Totales del año (S/C) =>" }
               END

//               WITH OBJECT :aCols[08]
               WITH OBJECT :HDR_GAS
                  :nFooterType      := AGGR_SUM
                  :bSumCondition    := { || ! oRsHdr:Fields("HDR_CAN"):Value }
                  :cFooterPicture   := "@Z 9,999,999,999.99"
               END

               WITH OBJECT :aCols[09]
                  :nFooterType      := AGGR_SUM
                  :bSumCondition    := { || ! oRsHdr:Fields("HDR_CAN"):Value }
                  :cFooterPicture   := "@Z 9,999,999,999.99"
               END

               WITH OBJECT :aCols[10]
                  :nFooterType      := AGGR_SUM
                  :bSumCondition    := { || ! oRsHdr:Fields("HDR_CAN"):Value }
                  :cFooterPicture   := "@Z 9,999,999,999.99"
               END

               WITH OBJECT :aCols[11]
                  :nFooterType      := AGGR_SUM
                  :bSumCondition    := { || ! oRsHdr:Fields("HDR_CAN"):Value }
                  :cFooterPicture   := "@Z 9,999,999,999.99"
               END

               WITH OBJECT :aCols[12]
                  :SetCheck( { "SI16","NO16" } )
               END

               :MakeTotals()
                END
 

Code: Select all

      WITH OBJECT :HDR_GAS
 

Code: Select all

      WITH OBJECT :Gastos