No pintar totales finales, cómo?

Post Reply
User avatar
Armando
Posts: 3260
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Been thanked: 1 time
Contact:

No pintar totales finales, cómo?

Post by Armando »

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
User avatar
FranciscoA
Posts: 2162
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: No pintar totales finales, cómo?

Post by FranciscoA »

Armando, intenta con esto:
//No poner el gran total para determinada columna

Code: Select all | Expand

 oReport:bEnd:={|| oReport:aColumns[5]:nTotal := 0,oReport:aColumns[6]:nTotal := 0 }
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
Armando
Posts: 3260
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Been thanked: 1 time
Contact:

Re: No pintar totales finales, cómo?

Post by Armando »

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
Post Reply