Ivonne Silva Perez
18/04/06, 20:46:58
Hola, ojala y alguie me pueda ayudar:rolleyes:
Tengo un programa donde incorporo los parametros de la impresora estructura itcpo, al ejecutar el programa en ambiente calidad si puedo visulializar el reporte en pantalla y si desea el usuario mandarlo a imprimir, mi problema es que en productivo al ejecutar el programa mediante la transacción creado ó simplemente debugueandolo no me visualiza el reporte en pantalla, lo que en calidad si sucede y no me lo explico cuando el programa fue pasado mediante orden de transporte. El código es el siguiente
clear: itcpo.
itcpo-tdpageslct = space. "Todas las páginas SAPCE
itcpo-tdnewid = 'X'. "Crea nuevo spool X
itcpo-tdcopies = 1. "Copias
itcpo-tddest = usr01-spld. "Nombre de la impresora
itcpo-tdpreview = 'X'. "No Preview
itcpo-tdcover = space. "No portada
itcpo-tdimmed = 'X'. "Imprime inmediatamente
itcpo-tddelete = 'X'. "Borra después de imprimir
itcpo-tdsuffix1 = 'ACTI'.
itcpo-tdsuffix2 = 'RESGUARDO'.
*& - Abre formulario
CALL FUNCTION 'OPEN_FORM'
EXPORTING
form = 'ZAAF_REG_AF7'
language = sy-langu
options = itcpo
device = 'PRINTER'
dialog = 'X' "X si despliega a dialog box before printing,
EXCEPTIONS " space no muestra caja de dialogo
OTHERS = 1.
Gracias, y saludos a todos
Tengo un programa donde incorporo los parametros de la impresora estructura itcpo, al ejecutar el programa en ambiente calidad si puedo visulializar el reporte en pantalla y si desea el usuario mandarlo a imprimir, mi problema es que en productivo al ejecutar el programa mediante la transacción creado ó simplemente debugueandolo no me visualiza el reporte en pantalla, lo que en calidad si sucede y no me lo explico cuando el programa fue pasado mediante orden de transporte. El código es el siguiente
clear: itcpo.
itcpo-tdpageslct = space. "Todas las páginas SAPCE
itcpo-tdnewid = 'X'. "Crea nuevo spool X
itcpo-tdcopies = 1. "Copias
itcpo-tddest = usr01-spld. "Nombre de la impresora
itcpo-tdpreview = 'X'. "No Preview
itcpo-tdcover = space. "No portada
itcpo-tdimmed = 'X'. "Imprime inmediatamente
itcpo-tddelete = 'X'. "Borra después de imprimir
itcpo-tdsuffix1 = 'ACTI'.
itcpo-tdsuffix2 = 'RESGUARDO'.
*& - Abre formulario
CALL FUNCTION 'OPEN_FORM'
EXPORTING
form = 'ZAAF_REG_AF7'
language = sy-langu
options = itcpo
device = 'PRINTER'
dialog = 'X' "X si despliega a dialog box before printing,
EXCEPTIONS " space no muestra caja de dialogo
OTHERS = 1.
Gracias, y saludos a todos