Suma de totales
Hola keystone, me piden hacer ls suma de los campos y que se imprima al fi8na del reporte estuve haciendo esto:
set printer to name solotexto
...
...
mLinea=1
se le imprime
SUM bimponible1, igv1, TO b,i
scan all
if mLinea=1
=imprimeCabecera()
endif
=imprimeLinea()
if mLinea=62
??? CtrlFF
mLinea=1
endif
endscan
set printer to defa
En este procedimiento:
procedure imprimeLinea
.....
....
+SPACE(3)+PADL(imprime.nro_reg,6)+ctrlF
??? " "+ctrlF
??? " "+ctrlF
??? SPACE(97)+PADR('TOTAL',5)+SPACE(3)+TRANSFORM(b,'###,###.##')+SPACE(3)+TRANSFORM(i,'###,###.##')+ctrlF
Pero la impresión no sale al final si no después de cada linea, el espacio de dos lineas en blanco tbn me sale después de cada linea, la idea es imprimir el total al final después de dos lineas en blanco.
set printer to name solotexto
...
...
mLinea=1
se le imprime
SUM bimponible1, igv1, TO b,i
scan all
if mLinea=1
=imprimeCabecera()
endif
=imprimeLinea()
if mLinea=62
??? CtrlFF
mLinea=1
endif
endscan
set printer to defa
En este procedimiento:
procedure imprimeLinea
.....
....
+SPACE(3)+PADL(imprime.nro_reg,6)+ctrlF
??? " "+ctrlF
??? " "+ctrlF
??? SPACE(97)+PADR('TOTAL',5)+SPACE(3)+TRANSFORM(b,'###,###.##')+SPACE(3)+TRANSFORM(i,'###,###.##')+ctrlF
Pero la impresión no sale al final si no después de cada linea, el espacio de dos lineas en blanco tbn me sale después de cada linea, la idea es imprimir el total al final después de dos lineas en blanco.
1 respuesta
Respuesta de keystone CITI
1
si es así..
Tendrías que hacer un procedimiento que se llame por ejemplo imprimePie..
Entonces, te quedaría algo así..
mLinea=1
Se le imprime
SUM bimponible1, igv1, TO b, i
Scan all
if mLinea=1
=imprimeCabecera()
endif
=imprimeLinea()
if mLinea=61
do imprimePie
??? ctrlFF
mLinea=1
endif
endscan
set printer to defa
Procedure imprimePie
??? SPACE(97)+PADR('TOTAL',5)+SPACE(3)+TRANSFORM(b,'###,###.##')+SPACE(3)+TRANSFORM(i,'###,###.##')+ctrlF
Espero haberte ayudado y estoy a tu disposición..
Kesytone - Christian
www.keystone.com.ar
Tendrías que hacer un procedimiento que se llame por ejemplo imprimePie..
Entonces, te quedaría algo así..
mLinea=1
Se le imprime
SUM bimponible1, igv1, TO b, i
Scan all
if mLinea=1
=imprimeCabecera()
endif
=imprimeLinea()
if mLinea=61
do imprimePie
??? ctrlFF
mLinea=1
endif
endscan
set printer to defa
Procedure imprimePie
??? SPACE(97)+PADR('TOTAL',5)+SPACE(3)+TRANSFORM(b,'###,###.##')+SPACE(3)+TRANSFORM(i,'###,###.##')+ctrlF
Espero haberte ayudado y estoy a tu disposición..
Kesytone - Christian
www.keystone.com.ar
Hola keystone, la repregunta seria la impresión de los totales solo será siempre y cuando la linea sea mayor a 62,
if mLinea=62
Do imprimePie
Que sucedería si la impresión cabe antes de la linea 62 ya no me imprimiría los totales, el registro de compras que nosotros ingresamos puede alcanzar en una hoja o en varias hojas y la suma de los totales tiene que ser al final de todos los registros ingresados, por ejm si ingreso 5 registros solamente de hecho que la impresión me alcanzará en una hoja y la suma de estos 5 registros tiene que ir al final, si ingreso 50 seguramenta la impresión caberia en dos hojas y los totales irían al final de estos 50 registros ingresados y así sucesivamente. Estoy probando de distintas maneras pero no logro llegar al resultado.
if mLinea=62
Do imprimePie
Que sucedería si la impresión cabe antes de la linea 62 ya no me imprimiría los totales, el registro de compras que nosotros ingresamos puede alcanzar en una hoja o en varias hojas y la suma de los totales tiene que ser al final de todos los registros ingresados, por ejm si ingreso 5 registros solamente de hecho que la impresión me alcanzará en una hoja y la suma de estos 5 registros tiene que ir al final, si ingreso 50 seguramenta la impresión caberia en dos hojas y los totales irían al final de estos 50 registros ingresados y así sucesivamente. Estoy probando de distintas maneras pero no logro llegar al resultado.
Se podría poner debajo del endscan
if linea#62
Do imprimePie
Endif
Keystone - Christian
www.keystone.com.ar
if linea#62
Do imprimePie
Endif
Keystone - Christian
www.keystone.com.ar
