Page 1 of 1

Se puede usar el nombre de una columna? (SOLUCIONADO)

Posted: Thu Nov 12, 2020 1:50 am
by Armando
Hola Amigos del foro:

Estoy utilizando este código para referirme a una columna de un xBrowse

Code: Select all

WITH OBJECT :aCols[01]
 
Es posible referirme a dicha columna por su nombre, por ejemplo

Code: Select all

WITH OBJECT :aCols:Precio
 
Saludos

Re: Se puede usar el nombre de una columna?

Posted: Thu Nov 12, 2020 2:45 pm
by FranciscoA
WITH OBJECT oBrw:Precio

Re: Se puede usar el nombre de una columna?

Posted: Thu Nov 12, 2020 2:56 pm
by Armando
Francisco:

Primero, gracias por el apoyo

Fijate que me tira error

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

Saludos

Re: Se puede usar el nombre de una columna?

Posted: Thu Nov 12, 2020 3:10 pm
by FranciscoA
Armando wrote:Francisco:

Primero, gracias por el apoyo

Fijate que me tira error

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

Saludos
Lo hago asi: (fijate que los WITH OBJECT van separados)

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
Sin embargo intenta asi:

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
 
Saludos.

Re: Se puede usar el nombre de una columna?

Posted: Thu Nov 12, 2020 3:23 pm
by Armando
Francisco:

Algo estaré haciendo mal pues me tira error, te muestro mi código

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
 
Saludos

Re: Se puede usar el nombre de una columna?

Posted: Thu Nov 12, 2020 3:26 pm
by FranciscoA
Puedes postear el error?

Re: Se puede usar el nombre de una columna?

Posted: Thu Nov 12, 2020 3:30 pm
by FranciscoA
Reemplaza esto:

Code: Select all

      WITH OBJECT :HDR_GAS
 
por esto:

Code: Select all

      WITH OBJECT :Gastos
 

Re: Se puede usar el nombre de una columna?

Posted: Thu Nov 12, 2020 3:45 pm
by Armando
Francisco:

Perfecto, todo de 100

Muchas gracias