Detectar Cambio de Grupo
Posted: Thu Nov 25, 2010 1:14 pm
Hola Foro:
El presente es para preguntar, como puedo detectar cuando se produce el corte de distintos grupos, como en el ejemplo adjunto, necesito detectarlo cuando se produce en uno u otro, debido a que necesito imprimir o no (dependiendo del grupo) las lineas separadoras y otros datos o fuentes.....
GROUP oGrupo ON oPagos:FieldGetByName('pagos_fecha');
Header "Fecha "+oReport:aGroups[1]:cValue;
footer "Total Recadudado el "+oReport:aGroups[1]:cValue
GROUP oGrupo2 ON DToC(oPagos:FieldGetByName('Pagos_fecha')) + oPagos:FieldGetByName('usu_nombre');
Footer "Total Recadudado Por "+SubStr(oReport:aGroups[2]:cValue,11,30)
END REPORT
oReport:bSkip := {||oPagos:skip(1) }
oReport:nTitleUpLine := RPT_SINGLELINE
oReport:nTitleDnLine := RPT_SINGLELINE
oReport:nTotalline := RPT_NOLINE
oReport:nGroupLine := RPT_NOLINE
oReport:cGrandTotal := "Total General Recaudado Desde "+DToC(dDesde)+ " al "+DToC(dHasta)
oReport:cPageTotal := "Total del dia"
ACTIVATE REPORT oReport WHILE !oPagos:Eof();
ON POSTGROUP (oReport:Separator(),oReport:Newline())
Otro tema. A los que tiene Windows 7, y en un .RC tienen declarados Radios y al presionar la tecla ALT, le desaparecen estos radios ????
Desde ya MUCHAS GRACIAS ....
El presente es para preguntar, como puedo detectar cuando se produce el corte de distintos grupos, como en el ejemplo adjunto, necesito detectarlo cuando se produce en uno u otro, debido a que necesito imprimir o no (dependiendo del grupo) las lineas separadoras y otros datos o fuentes.....
GROUP oGrupo ON oPagos:FieldGetByName('pagos_fecha');
Header "Fecha "+oReport:aGroups[1]:cValue;
footer "Total Recadudado el "+oReport:aGroups[1]:cValue
GROUP oGrupo2 ON DToC(oPagos:FieldGetByName('Pagos_fecha')) + oPagos:FieldGetByName('usu_nombre');
Footer "Total Recadudado Por "+SubStr(oReport:aGroups[2]:cValue,11,30)
END REPORT
oReport:bSkip := {||oPagos:skip(1) }
oReport:nTitleUpLine := RPT_SINGLELINE
oReport:nTitleDnLine := RPT_SINGLELINE
oReport:nTotalline := RPT_NOLINE
oReport:nGroupLine := RPT_NOLINE
oReport:cGrandTotal := "Total General Recaudado Desde "+DToC(dDesde)+ " al "+DToC(dHasta)
oReport:cPageTotal := "Total del dia"
ACTIVATE REPORT oReport WHILE !oPagos:Eof();
ON POSTGROUP (oReport:Separator(),oReport:Newline())
Otro tema. A los que tiene Windows 7, y en un .RC tienen declarados Radios y al presionar la tecla ALT, le desaparecen estos radios ????
Desde ya MUCHAS GRACIAS ....