REPORT y GROUPED - AYUDA... HELP ME!!

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 148
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF

REPORT y GROUPED - AYUDA... HELP ME!!

Post by SALINETAS24 » Thu Apr 12, 2018 8:01 pm

DO REPORT y GROUPED
Hola, estoy usando la version 3.4.4., haciendo un REPORT.., que es el siguiente.

Code: Select all

DO REPORT								;
		TITLE 'INFORME PEDIDOS'						;
		HEADERS  {'','','',"","",""} , {'PEDIDO','ARTICULO','TIPO',"F.SERVICIO","CANTIDAD","ESTADO"};
		FIELDS   {'FECHA_PE','ARTICULO','TIPO',"FECHA_SE", "CANTIDAD","ESTADO"};
		WIDTHS   {10,10,10,10,5,5} 						;
		TOTALS   {.F.,.F.,.F.,.F.,.t.,.f.}					;
		NFORMATS	{'','','',"",'9,999',""}	 ;
		WORKAREA LPEDIDOS						;
		LPP 50								;
		CPL 80								;
		LMARGIN 5							;
		PREVIEW								;
		MULTIPLE 							;
		GROUPED BY 'FECHA_SE'; 
		HEADRGRP	"Fecha Servicio "
Muy simple pero efectivo, se supone que me tiene que dar un listado con subtotales por fecha de servicio.
Pero lo que obtengo es esto.. (perdón, no se pegar imagenes..)

Code: Select all

PAG. 1                  INFORME PEDIDOS                        12/04/2018
                                                                               21:24:42
---------------  -----------------------------  -------   -------------  -------  ------------
PEDIDO          ARTICULO                       TIPO     F.SERVICIO       CANTI. ESTADO
--------------  ----------------------------   --------  ------------- --------  ------------
**FECHA SERVICIO ** FECHA_SE
02/04/2018  PRUEBA 1                             GLAS     05/05/2018      1            1
02/04/2018  PRUEBA 1                             GLAS     06/05/2018      1            1
02/04/2018  PRUEBA 1                             GLAS     07/05/2018      1            1
02/04/2018  PRUEBA 1                             GLAS     07/05/2018      1            1
*** TOTAL***                                                              4
  
Se supone que me tendría que 3 subtotales, cada vez que cambia la fecha de servicio.
¿estoy en lo cierto..?
¿acaso no funciona con fechas..?
¿Tengo que cambiar la version...?

Muchas Gracias

User avatar
SALINETAS24
Posts: 148
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF

Re: REPORT y GROUPED - AYUDA... HELP ME!!

Post by SALINETAS24 » Sun Apr 15, 2018 10:41 pm

SOLUCIONADO...
Ya funciona de maravilla., se puede utilizar el DO REPORT .., sencillo y suma parciales.

Por si alguno tiene este mismo problema.
Ir al fichero I_REPORT.CH y en la linea 90, quitarle las comillas, tiene que quedar así.

<cgrpby> , ;

User avatar
SALINETAS24
Posts: 148
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF

Re: REPORT y GROUPED - AYUDA... HELP ME!!

Post by SALINETAS24 » Sun Apr 15, 2018 10:41 pm

Ah.., y compilar REPORT

User avatar
srvet_claudio
Posts: 2030
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: REPORT y GROUPED - AYUDA... HELP ME!!

Post by srvet_claudio » Mon Apr 16, 2018 1:21 am

SALINETAS24 wrote:
Sun Apr 15, 2018 10:41 pm
SOLUCIONADO...
Ya funciona de maravilla., se puede utilizar el DO REPORT .., sencillo y suma parciales.

Por si alguno tiene este mismo problema.
Ir al fichero I_REPORT.CH y en la linea 90, quitarle las comillas, tiene que quedar así.

<cgrpby> , ;
No es necesario quitar las comillas del archivo de cabecera i_report.ch, en vez de poner:
GROUPED BY 'FECHA_SE';
Lo correcto es:
GROUPED BY FECHA_SE; // nombre del campo sin comillas
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
SALINETAS24
Posts: 148
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF

Re: REPORT y GROUPED - AYUDA... HELP ME!!

Post by SALINETAS24 » Mon Apr 16, 2018 3:44 pm

Hola.. lo probe.., lo probe todo, con comillas sin comillas.., uff.
La única forma es así.
Ah! y despues modificar o eliminar la linea de cabecera del programa H_report.prg
Linea 587. Con el "*" la original, sin el "*" la modificada.
Saludos.

if grpby<>NIL
* oprint:printdata(nlin,repobject:nlmargin, '** ' +chdrgrp+' ** '+ &grpby , ,repobject:nfsize ,.T. )
oprint:printdata(nlin,repobject:nlmargin, '** ' +chdrgrp+' ** ', ,repobject:nfsize ,.T. )
nlin++
endif

Post Reply