No pintar totales finales, cómo?
Posted: Thu Jan 16, 2025 6: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
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