FiveTech Software tech support forums

... Descanso Terapeutas" (Therapist Block/Rest).

21. **`lSelected` (LOGICAL)**
A flag indicating whether the event is currently selected.

22. **`lCreated` (LOGICAL)**
A flag indicating whether the event has been created and initialized.

23. **`lVisible` (LOGICAL)**
A flag indicating whether the ...

... Alltrim(str(oReport:aGroups[1]:nCounter));
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 ...

... CLR_WHITE,rgb(240, 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 := oReport:aColumns ...

... 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) //col 19 "" oReport ...

... 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 NO se ...

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

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

... FOOTER ::cTitleFoot, "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 ...

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) ) ; // ;
ON CHANGE oReport ...

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

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

... TITLE "Nacionalidad" 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 ...