Signon Java-jt400

Para los que trabajan con Iseries, aquí una forma de autenticarse con el generador Java utilizando jt400.

Tips GX: Impresión x Posición PDF, Java II

Esta vez el tip es para imprimir texto

java getPrinter().GxAttris("MS Sans Serif", 20, true, false, false, false, 0, 0, 0, 0, 0, 255, 255, 255) ;
java getPrinter().GxDrawText("MS Sans Serif Font 20", 80, 400, 80+200, 400+20, 256) ;

java getPrinter().GxAttris("MS Sans Serif", 18, true, false, false, false, 0, 100, 50, 200, 0, 255, 255, 255) ;
java getPrinter().GxDrawText("MS Sans Serif Font 18 Otro Color", 80, 500, 80+200, 500+20, 256) ;

java getPrinter().GxAttris("MS Sans Serif", 16, true, false, false, false, 0, 100, 50, 200, 1, 10, 200, 10) ;
java getPrinter().GxDrawText("MS Sans Serif Font 16 Otro fondo de Color", 80, 600, 80+200, 600+20, 256) ;

Tips GX: Impresión x Posición PDF, Java

Hace como 7 años, investigando (aunque mas cercano es decir curioseando), encontré una forma de imprimir imágenes en un AS/400, programando en RPG. De aquel pseudo-descubrimiento, llegue junto a un compañero de trabajo y amigo con visión empresarial, dimos un curso de Impresiones Avanzadas AFPDS.

Aquel requerimiento inicial para urgar en este tipo de solución consistía en la impresión dinámica de "overlays" para los extractos de Tarjetas de Crédito, mi ex-empresa tenia varias Entidades Bancarias y Financieras como Clientes, y cada uno de ellos con un diseño de extracto "pseudo-exclusivo".

Realizar esta solución dentro de un ambiente Genexus, a primera vista, me pareció imposible de desarrollar por el mantenimiento que podría requerir y la solución casi mas cercana, seria crear un reporte por cada formato de extracto (el cual seria prácticamente un reporte por cada entidad) y eso en el largo plazo, ante modificaciones masivas, requeriría mucho tiempo.

Aquello no me gusto para nada, hasta que se me ocurrió una idea, y al final logre imprimir imágenes por posición en forma dinámica. El tema es que estaba buscando la forma de sacar rédito de este conocimiento, pero creo hoy, ya como profesional independiente, y con los trabajos a tiempo completo que tengo por delante, quizás alguien le encuentre una mejor presentación o inclusive presione a la gente de Artech a realizar una implementación de este "tip"

Tengo un xpz para que lo vean como funciona, son 2 objetos, un webpanel y un reporte. Envienme un email a generadordecodigo@gmail.com y les adjunto el xpz, aunque el tip consiste en utilizar el siguiente código.

java getPrinter().GxDrawBitMap([!&fname!], [!&PosXa!], [!&PosYa!], [!&PosXb!], [!&PosYb!]) ;

Web Panel Inicio









PDF Resultado

Tips: Ejecutar un objeto java gx desde un objeto rpg gx

El tip consiste en ejecutar el mandato RUNJVA desde un rpg gx sin necesidad de crear un programa CL a mano

Fuente RPG GX

variable &CmdJava Char(350)

&CmdJava = 'CHGJOB CCSID(37)' // no investigue mucho, pero sin esto no funciona ;)
&CmdJava = concat('RUNJVA CLASS(namejavaobj) ,
concat(" CLASSPATH('",
concat('//dirpackagegx/db2_classes.jar:',
concat('//dirpackagegx/gxclassr.jar:',
concat('//dirpackagegx/packagenamejavagx.jar:',
concat('//dirpackagegx/iText.jar:',
concat('//dirpackagegx/jt400.jar', "') PROP((java.awt.headless true)) GCHINL(262144)" )))))))

call('qcmdexc', &CmdJava, 350)