Dear All, I am using xBrowse to display Dbf file. Numeric column are having AGGR_TOTAL at its footer. I have tried to change the picture of the footer but by doing so, the footer disappears. I used : oBrw:oCol('Atri Tax' ):nFooterType := AGGR_TOTAL For n = 2 To Len(aHead_A[1]) If oBrw:aCols[ n ]:nFo...
Saludos, nose si me estoy enrrollando solo o cometiendo una burrada, tengo un xBrowse con 2 campos de un Query usando TDolphin, hasta alli todod bien, pero necesito agregar una columna de un campo que no es del Query, es decir es un campo LOCAL, asi que adicione la columna al final para luego usarla...
ruben, ahi va el que ejemplo: oBrw2:lFooter := .T. oBrw2:nFooterHeight := 26 oBrw2:aCols[5]:nFooterType := AGGR_SUM oBrw2:aCols[6]:nFooterType := AGGR_SUM oBrw2:MakeTotals() salu2 pak-o This is correct. But the method MakeTotals() works only if RADAField("tot_bodeg",::oDbfxls) and RADAFie...
July 2011 ========= * New: function cFileSetExt( cFileName, cExt ) --> cFileNameWithNewExt * New: samples\classch.prg, This example shows how to create a Harbour Class entirely from language C (low level) and to inherit another Class from it from PRG (high level) * New: Libraries FiveH32.lib and ...
Hola foro, tengo un arreglo con 7 columnas, la columna numero 7 no quiero que se vean en mi xbrowse es un dato logico, como le hago? probe: oBrw2:SetArray(aDatos,,,{1,2,3,4,5,6}) viendo la clase le indico que columnas quiero, pero no funciona falla el programa, oBrw2:SetArray(aDatos) // asi me muest...
Mario, este código me funciona correctamente: (10.06) Lo que se me viene a la mente es que debes usar el objeto columna en vez del No. de Col. No sé. Quizás por la versión. oCol2 = oBrw2:AddCol() oCol2:bEditValue = { || (cWork2)->Debe } oCol2:cEditPicture = "@Z 9,999,999,999.99" oCol2:n...
Saludos; en un xbrowse quiero cambiar la justificaciones de los footers, uso el siguiente codigo: oBrw:lFooter := .t. oBrw:aCols[ 2 ]:bFooter := { || " "+Ltrim( Str( Len(::aData) ) ) } oBrw:...
NOT RUN i MADE ALSO WITH OBJECT oRLbx WITH OBJECT oRLbx:aCols[ 7 ] :cEditPicture := '99,999.99' :lTotal := .t. :nTotal := 0 :nFooterType := AGGR_TOTAL END :MakeTotals() :nStretchCol :=- 1 :lFooter:= .T. END oRLbx:SetRDD() oRLbx:CreateFromCode() THE ERROR Path and name: C:\work\ERRORI5\GUT\GUT.Exe ...
I want insert the footer on a xbrowse for only two fields on six and seven column and make the total of each, I made : @ 1, 1 XBROWSE oRLbx OF oFld:aDialogs[5] ; SIZE 280,60 PIXEL //CLASS TXbrWin7() Ut_BrwRowConfig7( oRLbx ) oRLbx:lColDividerComplete := .t. oRLbx:lRecordSelector := .T. oRLbx:lHScrol...
Hola VeRCE. Espero que esto te sirva. Lo hago así: (Usando una función de usuario para crear el total) Local nTotal:=0 Totalice(@nTotal) oBrw := TXBrowse():New( oDlg ) ... ... oCol = oBrw:AddCol() oCol:bEditValue = { || (cAlias)->Interes } oCol:cEditPicture = "99,999,999,999.99" oCol:nE...
Hola. Después de definir el browse, esta es la manera en la que especifo la columna a totalizar, en este caso la 4. Y siempre que refresco el browse a continuación hago oBrw:MakeTotals():
Gracias por el aporte Patricio, pero no es lo que necesito, eso que comentas en el el report comun, lo que necesito es obtener los totales en un GROUP ON ... gracias oCol:lTotals := .t. // to show totals in report and export to excel oCol:nTotal := <anynumericvalue> // oBrw:MakeTotals() to wo...