FiveTech Software tech support forums

... es difícil 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 8) 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 ...

... 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 oFont1:End() ...

... IF ::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 } ::oReport:SetTxtColor(::nColoreFont1,1) ...

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

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

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

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

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

... := {|| 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 actual, ...

... + ")" 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 ...

... SIZE 6 ENDIF 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[3] ...

... se agregaban 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"*/ lTitleShadow ...

... ) ) EndIf 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,eval(::bKeyno)))==0 ...

... ",OemToAnsi(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:Margin(.25,RPT_BOTTOM,RPT_INCHES) ...