FiveTech Software tech support forums

... := {|oRep| IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.) } No tiene efecto the bskip it make right because I made If empty(aColumns) aColsReport:= oBrw:aCols else aColsReport := aColumns Endif oBrw:Report( cTitle, .t., .t.,bSetUp , , , aColsReport ) and the report behaves ...

how to simulate the pajama effect in oReport printing?

I allready tried this

ACTIVATE REPORT oReport ON STARTLINE AEval( oReport:aColumns, { | o | o:lShadow := ! o:lShadow } )

but not run

I mean one line yes and one no, not all rows

Muchas gracias estimado Antonio

ACTIVATE REPORT oReport ON STARTLINE AEval( oReport:aColumns, { | o | o:lShadow := ! o:lShadow } )
y cómo se aplica para el PRINT

Code: Select all  Expand view

 PRINT oPrn NAME "DETALLE DE MOVIMIENTOS" PREVIEW
 

Gracias por la ayuda

... RepSetUp( oRep, oBrw, n )} static function RepSetUp( oRep, oBrw, n ) oRep:lJoin := .t. oRep:lSeparator := .t. oRep:lBoxOnTotal := .t. AEval(oRep:aColumns, {|o| o:lGrid := .t.} ) return nil https://i.postimg.cc/VvsQCnns/h.png I not see vertical lines

Tienes que usar la claúsula SHADOW en cada columna donde lo vayas a usar y:

ACTIVATE REPORT oReport ON STARTLINE AEval( oReport:aColumns, { | o | o:lShadow := ! o:lShadow } )

Segun lo que entiendo, debería darte la suma de los precios promedios...
Puedes cambiarle la formula de calculo del total a la columna 3,
oReport:aColumns[3]:btotalexpr = {|| Tufuncion()}
Pero nunca lo he hecho, habría que buscar en el foro a ver si hay ejemplos.

... to select the columns, a dialog opens OptionPrint(oBrw) that you see with the list of columns BITMAP "PRINT_CONFIG" LEFT; ACTION ( aColumns:= OptionPrint(oBrw),; cSave := oBrw:SaveState(),; oBrw:ReArrangeCols( aColumns ) ) Note that the first column is the checkbox and the others ...

... := {|| 2 } //1ra linha do titulo, cor e fonte 2 oReport:nTopMargin := 600 //Espacio superior oReport:nDnMargin := 300 oReport:aColumns[2]:bTotalFont := {|| 3 } //Tamanho de fonte e color dos totais da columna 5 oReport:bStdFont := {|| 3 } //Tamanho de fonte e color do texto ...

Corrected

ACTIVATE REPORT ::oReport WHILE !::oPrenota:eof() ;
ON STARTLINE ::oReport:aColumns[ 3 ]:lShadow:= ! Empty( ::oPrenota:DATAPAYED )

Eduardo. Intenta cambiando todos los oReport:Say... a oReport:aColumns[n]:aData := ... Por ejemplo: oReporte:Say(  4, Transform( oQuery:FieldGet( "IMPORTE" ),"999,999" ),1, 2 )  Cambiarlo por: oReport:aColumns[4]:aData ...

...   function Main()       local oDlg, oGet, oBrw       local cSeek := Space( 100 )       local oCbx       local aColumns :={"ID","FIRST","LAST"}       LOCAL nField:=  2       SetGetColorFocus()       FERASE( ...

... the value of column selected @ 20, 280 COMBOBOX oCbx var oBrw:cFilterFld ; ITEMS aHdrs ; ON CHANGE ( nField:=::nat,; oBrw:cFilterFld := aColumns[nField],; msginfo( oBrw:cFilterFld ),; oBrw:Seek( "" ), oBrw:SetFocus() ) ; SIZE 150,400 PIXEL OF oDlg ACTIVATE DIALOG oDlg CENTERED ...

Silvio, please undo Hello Silvio, can you please try these changes: nField :=1 //header AAdd( aHdrs, "" ) AAdd( aColumns, "" ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, { |o| If( ...

Hello Silvio, can you please try these changes: nField :=1 //header AAdd( aHdrs, "" ) AAdd( aColumns, "" ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, { |o| If( o:lHide,, ...

Hello Silvio, can you please try these changes: nField :=1 //header AAdd( aHdrs, "" ) AAdd( aColumns, "" ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, { |o| If( o:lHide,, ...