Subtotales en report

[juanjogascem]

Muy buenas.
Conocen la forma de anular la impresion de los subtotales acumulaos por pagina en un report?
Solo me interes que se impriman los totales por cada grupo.

Un saludo
Juanjo

[FranciscoA]

Code: Select all  Expand view  RUN

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

[Armando]

JuanJo:

Además de lo que te sugiere Francisco, aquí tienes otra opción

Code: Select all  Expand view  RUN

    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
 

Saludos

[juanjogascem]

Perfecto. muchas gracias a ambos.

Juanjo