FiveTech Software tech support forums

... pero ya he mirado en los foros ,etc.. y no acabo de verlo

gracias anticipadas


me respondo a mi mismo, encontré lo que quería

oReport:nTitleUpLine:= nil // no imprime línea antes de cabecera
oReport:nTitleDnLine:= RPT_SINGLELINE // improme una única línea después de cabecera, por defecto ...

... Card" DATA VP->V_CARD

COLUMN TITLE "Code" DATA VP->V_CODE


GROUP ON VP->V_ACCT


END REPORT

oReport:lSummary := .T.
oReport:nTitleUpLine := RPT_NOLINE
oReport:nTitleDnLine := RPT_SINGLELINE
oReport:aColumns[4]:bTitleFont := {|| 2 }


ACTIVATE REPORT oReport

CLOSE VP ...

... lGrid
::oReport:SetPenColor(::nColore) ------------> not run !!!!
::oReport:CellView()
::oReport:SetShdColor(CLR_GRAY)
ENDIF
::oReport:nTitleUpLine := RPT_SINGLELINE
::oReport:nTitleDnLine := RPT_SINGLELINE
::oReport:oTitle:aFont[2] := {|| 3 }
::oReport:oTitle:aFont[3] := {|| 2 ...

... nombre');
Footer "Total Recadudado Por "+SubStr(oReport:aGroups[2]:cValue,11,30)

END REPORT

oReport:bSkip := {||oPagos:skip(1) }
oReport:nTitleUpLine := RPT_SINGLELINE
oReport:nTitleDnLine := RPT_SINGLELINE
oReport:nTotalline := RPT_NOLINE
oReport:nGroupLine := RPT_NOLINE
oReport ...

Hi,

This is the error:

Descripcion del Error: Error BASE/1005 No existe la variable de instancia: NTITLEUPLINE
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: => _NTITLEUPLINE(0)
Called from: c:\misoft\PROGRAMAS\Tpv\ARTICULO.PRG => LISTARARTICULOS(1241)


Thanks

... COLUMN title "F.AGOTADO" data (xalias)->fechacad size 9
COLUMN title "OBSERVACIONES" data "" size 35
oList:nGroupLine := RPT_NOLINE
oList:nTitleUpLine := RPT_DOUBLELINE
oList:nTitleDnLine := RPT_DOUBLELINE
//oList:nTotalLine := RPT_SINGLELINE
END REPORT
oList:CellView()

ACTIVATE REPORT ...

... DATA ;
cBar[nField,2]+transform(aImp[nField],"999,999.99")," "
END REPORT
*/
oReport:bSkip := {|| nField++}
oReport:nTitleUpLine := RPT_NOLINE
oReport:nTitleDnLine := RPT_NOLINE
oReport:nTotalLine := RPT_NOLINE
oReport:Margin(1,RPT_LEFT,RPT_CMTERS) // Aqui no respeta el ...

... New" SIZE 0,-10
REPORT oRep CAPTION "Listado de Litros de Petroleo Mensual.." PREVIEW FONT oFont
COLUMN DATA " " SIZE nWidth
END REPORT
oRep:nTitleUpLine:=RPT_NOLINE
oRep:nTitleDnLine:=RPT_NOLINE
oRep:Margin(.25,RPT_LEFT ,RPT_INCHES)
oRep:Margin(.10,RPT_RIGHT ,RPT_INCHES)
oRep:Margin(.30,RPT_TOP ...

... FONT 3

oReport:bSkip := {|| nField++}
oReport:cGrandTotal := "Total General "
oReport:cPageTotal := "Total Parcial Pagina: "
oReport:nTitleUpLine := RPT_SINGLELINE
oReport:nTitleDnLine := RPT_SINGLELINE
oReport:nGroupLine := RPT_NOLINE


END REPORT

ACTIVATE REPORT oReport WHILE ...

... aFont[1] := {|| 3 }
oReport:oTitle:aFont[2] := {|| 3 }
oReport:oTitle:aFont[3] := {|| 3 }
oReport:oTitle:aFont[4] := {|| 3 }

oReport:nTitleUpLine := RPT_SINGLELINE
oReport:nTitleDnLine := RPT_SINGLELINE
oReport:nTotalLine := RPT_SINGLELINE


//Solo imprimir el total de Pagina ...

... FONT 2
oReport:oDevice:lPrvModal := .F. // Para que muestre en forma modal la ventana del preview
oReport:oDevice:SetCopies(1)

oReport:nTitleUpLine := RPT_NOLINE // Linea Arriba de los nombres de columnas
oReport:nTotalLine := RPT_SINGLELINE // Para las lineas mas delgadas
oReport:lSummary ...

... GROUP ON SERVOLUN->CVOLUN ;
HEADER "" ;
FOOTER SPACE(90)+"Tiempo Total________ "+str(thora,6)+":"+strzero(tminu,2) ;
EJECT

oReport:nTitleUpLine := RPT_NOLINE
// oReport:nTitleDnLine := RPT_NOLINE
oReport:nGroupLine := RPT_NOLINE // no imprime linea separadora
// oReport:oHeader:aFont ...

... las siguientes lineas al reporte:

STATIC FUNCTION Kardex()

LOCAL oReport

lCellView := .F.
lSeparator := .T.
lJoin := .T.
lGrid := .T.
nTitleUpLine := 2 /*"Sombra","RoundRect","Box"*/
nTitleDnLine := 2 /*"Sombra","RoundRect","Box"*/
nTotalLine := 2 /*"Sombra","RoundRect","Box ...

... Next

END REPORT

oRpt:bSkip := { || oRpt:Cargo := ::rptSKIP( ) }
oRpt:Cargo := 1
oRpt:cellview()
oRpt:otitle:aFont[1] := {|| 2 }
orpt:ntitleupline:=1
orpt:ntitlednline:=1
orpt:ntotalline:=1

IF len(::aselected)>0
While AScan( ::aSelected, ;
If( ::NDATATYPE==DATATYPE_ARRAY,::nArrayAt ...

... trim(a->nom_pac))," "," "," "," "," ";
FONT oFont;
PREVIEW

COLUMN DATA spac(6)+OemToAnsi(b->Cod_det) SIZE 71

END REPORT

oReport:nTitleUpLine := RPT_NOLINE
oReport:nTitleDnLine := RPT_NOLINE
oReport:Margin(.15,RPT_LEFT,RPT_INCHES)
oReport:Margin(.25,RPT_TOP,RPT_INCHES)
oReport ...