FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour No pintar totales finales, c贸mo?
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
No pintar totales finales, c贸mo?
Posted: Thu Jan 16, 2025 06:58 PM

Saludos familia:

Tengo un reporte (TREPORT) definido con grupos, y defino totales por grupo, esto funciona muy bien

el tema es que tambi茅n me pinta los totales finales, la pregunta, 驴 c贸mo evitar que se pinten

los totales finales?

Este es mi c贸digo

REPORT oReporte CAPTION cTitulo PREVIEW;

    HEADER ALLTRIM(oApp:cRazonSocial),;

    "",;

    cTitulo CENTER;

    TITLE "Fecha: "+Date2Txt(DATE(),,,,,,),;

    "P谩gina:"+STR(oReporte:nPage,3);

    FONT oFont1,oFont2,oFont3;

    PEN oPen1



    COLUMN TITLE "","Folio"                     DATA oRsDet:Fields("DET_FOL"):Value                   SIZE  5 RIGHT PICTURE "@Z 9999999"

    COLUMN TITLE "","Fecha"                     DATA Date2Txt(oRsDet:Fields("HDR_FDM"):Value)         SIZE 10 RIGHT

    COLUMN TITLE "Cantidad","De Entrada"    DATA IIF(oRsDet:Fields("HDR_EOS"):Value == 1,;

                                                  oRsDet:Fields("DET_CTD"):Value,"")           SIZE 08 RIGHT PICTURE "@Z 9,999.999"   TOTAL

    COLUMN TITLE "","Unitario"              DATA IIF(oRsDet:Fields("HDR_EOS"):Value == 1,;

                                                  oRsDet:Fields("DET_COU"):Value,"")           SIZE 07 RIGHT PICTURE "@Z 99,999.99"

    COLUMN TITLE "Importe","De Entrada"     DATA IIF(oRsDet:Fields("HDR_EOS"):Value == 1,;

                                                  oRsDet:Fields("DET_COS"):Value,"")           SIZE 10 RIGHT PICTURE "@Z 999,999,999.99"  TOTAL

    COLUMN TITLE "Cantidad","De Salida" DATA IIF(oRsDet:Fields("HDR_EOS"):Value == 2,;

                                                  oRsDet:Fields("DET_CTD"):Value,"")           SIZE 08 RIGHT PICTURE "@Z 9,999.999"   TOTAL

    COLUMN TITLE "","Unitario"              DATA IIF(oRsDet:Fields("HDR_EOS"):Value == 2,;

                                                  oRsDet:Fields("DET_COU"):Value,"")           SIZE 07 RIGHT PICTURE "@Z 99,999.99"

    COLUMN TITLE "Importe","De Salida"      DATA IIF(oRsDet:Fields("HDR_EOS"):Value == 2,;

                                                  oRsDet:Fields("DET_COS"):Value,"")           SIZE 10 RIGHT PICTURE "@Z 999,999,999.99"  TOTAL

    COLUMN TITLE "Sucursal"                 DATA IIF(oRsDet:Fields("SUC_NOM"):Value <> Nil,;

                                                  AllTrim(oRsDet:Fields("SUC_NOM"):Value),"")  SIZE 18 LEFT

  GROUP gMaterial ON oRsDet:Fields("DET_MAT"):Value;

        FOOTER Space(08) + "Totales del material:" FONT 2



     gMaterial:bHeader := {|| "* Material: " + oRsDet:Fields("DET_MAT"):Value + " " + IIF(oRsMat:Fields("MAT_DES"):Value <> Nil, AllTrim(oRsMat:Fields("MAT_DES"):Value),"")}

END REPORT

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: No pintar totales finales, c贸mo?
Posted: Fri Jan 17, 2025 03:01 AM
Armando, intenta con esto:
//No poner el gran total para determinada columna
 oReport:bEnd:={|| oReport:aColumns[5]:nTotal := 0,oReport:aColumns[6]:nTotal := 0 }
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: No pintar totales finales, c贸mo?
Posted: Fri Jan 17, 2025 04:01 AM

Francisco:

Funcion贸 de 100, aunque pens茅 que exist铆a algo parecido a oReporte:cGrandTotal := ""

Revise la clase pero no encontr茅.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion