TRUCO. Si se puede duplicar el MAIN en sapscript :) :)

[gaos]

Así es, si se puede.

Lo que se tiene que hacer es buscar el lugar en el programa control donde se pinta el MAIN, tanto en ventana como en elemento de texto, después hacer una llamada a una nueva ventana, la que se desea duplicar con la información del MAIN, esta llamada tendrá la función append, con esto aseguramos que esa ventana se llamará tantas veces como como pinto la información en el MAIN. Para dejarlo más claro pondré el código del programa RFFOUS_C el cual se copio como ZRFFOUS_C, en el include ZRFFORI01_C.

Esta parte es estandar y es donde manda llamar las cantidades y algunas cosas mas
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = hlp_ep_element
* function = 'APPEND'
EXCEPTIONS
window = 1
element = 2.
IF sy-subrc EQ 2.
err_element-fname = t042e-zforn.
err_element-fenst = 'MAIN'.
err_element-elemt = hlp_ep_element.
err_element-text = text_525.
COLLECT err_element.
ENDIF.


Esta parte es la que se agregó para hacer la llamada varias veces de la ventana con la funcion append, de no agregar esta función, la ventana es tratada de forma normal, es decir, solo es llamada una vez.
IF sy-msgv3 eq 'Z_CHEQUE_NUEVO'. "Es validación de formato, es opcional
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'CHECK_H'
function = 'APPEND'
EXCEPTIONS
window = 1
element = 2.
ENDIF.



El problema no acaba en este punto poque al pintar los registros solo pinta el último registro tantas veces como registros tiene el MAIN, si el el main se pintaron 3 registro y el último tiene:

bolsa dulces1 03.04.2013 1,000.00- 00.00 1,000.00

Entonces en la ventana nueva se pintará esta información 3 veces:
bolsa dulces1 03.04.2013 1000.00 00.00 1,000.00
bolsa dulces1 03.04.2013 1000.00 00.00 1,000.00
bolsa dulces1 03.04.2013 1000.00 00.00 1,000.00

Para solucionarlo se tiene que hacer un programa Z que pinte las lineas correctas, en mi caso fue para cheques y se usaron las tablas REGUH y REGUP, la llamada es de la siguiente forma:
/: PERFORM OBTIENE_DETALLE IN PROGRAM Z_DETALLES
/: USING (llave para la regup)
/: CHANGING (variables a pintar)
ENDPERFORM


Si creían que el problema acaba ya, pues no es así, las cantidades las pinta como 5000.00, o 5000,00 dependiendo de como esten los parametros de usuario, para solucionar este problema se ponen en el programa Z las cantidades de la siguiente forma:

WRITE regup-dmbtr To out_tab-value.

Y con eso ya pinta correctamente la cantidad y es posible que algunos datos que no son cantidades tambien :P.

Casi se me pasa.

el programa Z tiene 2 tablas internas, que comunmente en la red, se encuentran de la siguiente forma.

FORM datos TABLES in_tab STRUCTURE itcsy
out_tab STRUCTURE itcsy.
ENDPERFORM.


Es mucho, pero si funciona, ojala a alguien le pueda servir esta aportación

[joaquin132]

deseo hacer en una segunda hoja del formulario un main igualito, solo que con otros datos de otra tabla interna, al imprimir solo imprime las lineas sobre la misma linea uno sobre de otro.