FiveTech Software tech support forums

... FONT 2 oReport:lGrid := .T. oReport:cGrandTotal := "Total Geral ==>" END REPORT IF !oReport:lCreated RETU NIL ENDIF oReport:oTitle:aFont[1] := {|| 2 } //1ra linha do titulo, cor e fonte 2 oReport:nTopMargin := 600 //Espacio superior oReport:nDnMargin ...

... 173, 78) }} But if I look into the paint method of xBrowse, there are no changes: METHOD Display() CLASS TXBrowse local nSecs := SECONDS() if !::lCreated return nil endif fwlog Eval( ::bClrSel ) ... Can you please show me how I can change bClrStd. Best regards, Otto

... tu tiempo e interes. Precisamente como indicas, asi lo estoy haciendo: //Las 2 maneras trabajan bien, pero como no se puede capturar nTotal con :lCreated //borra todas las columnas porque las toma como 0, y con :bEnd borra solo en la //linea de totales.    /*   for n:=1 to nCols        oCol := ...

... crear las columnas con totales 0 Asi es como lo tengo, pero el caso es que quiero automatizar esto. Lo siguiente trabaja perfectamente: if oReport:lCreated        oReport:DelColumn(10) //col 10  del reporte        oReport:DelColumn(13) //col 14  ""        oReport:DelColumn(17) ...

... la sumatoria de las columnas numericas. Lo que quiero hacer es poder identificar cuales columnas tienen su nTotal en 0, pero desde oReport:lCreated. ¿Se puede? Por ejemplo: Con oReport:bEnd se pueden identificar //ok Con oReport:bPostEnd se pueden identificar //ok Con if oReport:lCreated ...

... gracias. Asi lo hago. El caso es que quiero eliminar ciertas columnas del reporte cuyo nTotal sea 0. Si trato de identificarlas desde oReport:lCreated, no lo hace, todas las detecta como 0. Si lo hago desde el :bEnd, si las identifica, pero al aplicar el DelColumn() + Stabilize(), solo borra ...

... ADO in \fwh\source\function\olefuncs.prg New: FW_ShowAdoError( oCn ) --> shows last ado error New: FW_CreateMDB( cFile[.mdb|.accdb] ) --> lCreated Creates new MS Access Database file. For creation of accdb file, Microsort ACE.12.0 need to be installed. By default creates mdb if no extension ...

... "Data: "+dtoc(date())+ " Página.: "+str(::oReport:nPage,3) ; CAPTION "" PREVIEW ..... ...... ... IF ::oReport:lCreated IF ::lGrid ::oReport:SetPenColor(::nColore) ------------> not run !!!! ::oReport:CellView() ::oReport:SetShdColor(CLR_GRAY) ENDIF ::oReport:nTitleUpLine ...

Como diria el sr. Burns... Excelente...
Lo unico, te corrijo una pequeña cosita, para que le quede al resto de los lectores... el lcreated va concatenado a oreport con un ":"...
o sea, quedaria asi:
...
IF oreport:lCREATED
...

el resto todo OK, y anda. Mil gracias...!!!

Diego, prueba asi:

local n
...
...
IF oREPORT lCREATED
...
...
for n:=1 to len(oReport:aColumns)
oReport:aColumns[n]:bTotalFont := {|| 3 }
next
ENDIF
Saludos

Renomas: Lo he hecho así (no he logrado encontrar la solución modificando TSalxls): IF oReport:lCreated // oReport:lSeparator := .t. //oReport:CellView() // oReport:lBoxOnTotal:=.t. ENDIF ACTIVATE REPORT oReport ; ON STARTGROUP ( oReport:NewLine(), EVAL(bSECCION) ) ; // ...

... donde meterle mano. ¿Hay alguien que lo haya hecho y pueda suministrarme un ejemplo? He logrado que funcione parcialmente así: IF oReport:lCreated // oReport:lSeparator := .t. //oReport:CellView() oReport:lBoxOnTotal:=.t. ENDIF ACTIVATE REPORT oReport ; ON CHANGE oReport:Separator() Pero... ...

... run ok I not understood why ? for the fonts I use the same and then the commnd END REPORT I insert these lines : END REPORT IF ::oReport:lCreated ::oReport:SetTxtColor(::nColoreFont1,1) ::oReport:SetTxtColor(::nColoreFont2,2) ::oReport:SetTxtColor(::nColoreFont3,3) ::oReport:SetPenColor(::nColore) ...

... DATA oRs:Fields( "nacionalidad" ):Value // Deberia ir aqui : GROUP ON oRsRpt:Fields( "dias" ):Value END REPORT if oRpt:lCreated oRpt:bSkip := { || ( nDesde++, oRs:MoveNext() ) } endif ACTIVATE REPORT oRpt WHILE nDesde <= nHasta o bien puedes hacerlo desde el ACTIVATE ...

... ; GRID 2 COLUMN TITLE "TOTAL " ; DATA (cAlias)->total; PICTURE "999,999.99"; TOTAL ; FONT 2 ; GRID 2 END REPORT if oReport:lCreated oReport:bPostEnd :={|| DatosFin( oReport, aBases,aConcep ) } endif ACTIVATE REPORT oReport oFont1:End() oFont2:End() oPen1:End() oPen2:End() ...