FiveTech Support Forums

      //No imprimir el acumulado en cada pagina
      oReport:bEndPage:= {||oReport:lPageTotal:=.f.}

    REPORT oReporte CAPTION cTitulo PREVIEW ;
        HEADER ALLTRIM(oApp:cRazonSocial),;
        "",;
        cTitulo CENTER;
        TITLE "Fecha: "+Date2Txt(DATE()),;
        "Hoja No:"+STR(oReporte:nPage,3);
        FONT oFont1,oFont2,oFont3;
        PEN oPen1,oPen2

        COLUMN TITLE "Producto"                   DATA oRsDet:Fields("DET_PRO"):Value               SIZE 06 RIGHT PICTURE "@Z 9999"
        COLUMN TITLE "Descripción del producto"    DATA AllTrim(oRsDet:Fields("PRO_DES"):Value)       SIZE 50 LEFT
        COLUMN TITLE "Ventas"                     DATA oRsDet:Fields("UNIDADES"):Value              SIZE 06 RIGHT PICTURE "@Z 9,999" TOTAL
    END REPORT

    IF oReporte:lCreated
        oReporte:lPageTotal         := (.F.)     //     AQUÍ

        oReporte:SetTxtColor(CLR_BLACK,1)   // Color del texto de la hoja default NEGRO
        oReporte:SetTxtColor(CLR_HRED,2)        // Color de encabezado y totales del grupo
        oReporte:SetTxtColor(CLR_HRED,3)        // Color para el primer titulo del encabezado
        oReporte:SetPenColor(CLR_HBLUE)     // Color para las líneas
        oReporte:SetShdColor(CLR_YELLOW)        // Color para el sombreado
        oReporte:oHeader:aFont[1] := {||3}

        oReporte:oTitle:aPad[1] := RPT_LEFT
        oReporte:oTitle:aPad[2] := RPT_RIGHT

        oReporte:nTopMargin     := 300
        oReporte:nDnMargin      := 300

       oReporte:bSkip          := { || (nLinea++, oRsDet:MoveNext())}
      oReporte:bPostEnd       := { || TotFin(oReporte)}
    ENDIF