Y si utilizas el cpysplf con cada factura????? Señalado en verde como yo lo
utilizo para
Tener txt de la factura y luego con el hacer lo que necesites.
Espero que te pueda servir este ejemplo????
Saludos,
100 PGM PARM(&FRA &CLI)
03/07/08
200 /* Declaramos variable usurario que ejecuta
*/ 04/04/08
300 DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
04/04/08
400 DCL VAR(&USE) TYPE(*CHAR) LEN(10)
04/04/08
500 DCL VAR(&NBR) TYPE(*CHAR) LEN(6 )
04/04/08
600 DCL VAR(&SPLNAM) TYPE(*CHAR) LEN(10)
07/04/08
700 DCL VAR(&FRA) TYPE(*DEC) LEN(9 0)
16/04/08
800 DCL VAR(&TODOC) TYPE(*CHAR) LEN(12)
15/04/08
900 DCLF FILE(EPED12D) RCDFMT(EPED121P)
23/10/09
1000 RTVJOBA JOB(&JOB) USER(&USE) NBR(&NBR)
04/04/08
1100 ARRIBA: SNDRCVF RCDFMT(EPED121P)
23/10/09
1200 IF COND(&IN12 *EQ '1') THEN(GOTO CMDLBL(FINAL))
15/04/08
1300 IF COND(&IN11 *EQ '1') THEN(GOTO +
15/04/08
1400 CMDLBL(CONTINUAR))
15/04/08
1500 ELSE CMD(GOTO CMDLBL(ARRIBA))
15/04/08
1600 CONTINUAR:
15/04/08
1700 /* Carga Fichero de datos Produccion Para envio de correo
*/ 04/04/08
1800 DLTF FILE(QTEMP/RECIBIS)
04/04/08
1900 MONMSG MSGID(CPF0000)
04/04/08
2000 CRTPF FILE(QTEMP/RECIBIS) RCDLEN(256) +
21/10/08
2100 OPTION(*NOSRC *NOLIST)
21/10/08
2200 ADDRPYLE SEQNBR(100) MSGID(CPA3311) RPY('G')
08/04/08
2300 CHGJOB INQMSGRPY(*SYSRPYL)
14/04/08
2400 CHGVAR VAR(&SPLNAM) VALUE('VPED42P')
23/10/09
2500 CPYSPLF FILE(&SPLNAM) TOFILE(QTEMP/RECIBIS) +
07/04/08
2600 JOB(&NBR/&USE/&JOB) SPLNBR(*LAST)
07/04/08
2700 DLTSPLF FILE(&SPLNAM) JOB(&NBR/&USE/&JOB)
SPLNBR(*LAST) 07/04/08
2800 DLTSPLF FILE(QPDSPJOB) JOB(&NBR/&USE/&JOB) +
08/04/08
2900 SPLNBR(*LAST)
08/04/08
3000 RMVRPYLE SEQNBR(100)
08/04/08
3100 MONMSG MSGID(CPF0000)
04/04/08
3200 CPYTOPCD FROMFILE(QTEMP/RECIBIS) TOFLR(PEDIDOS) +
04/04/08
3300 TODOC(&NBR) REPLACE(*YES)
15/04/08
.
5400 /* Borra archivo PROCESADO
*/ 15/04/08
5500 DLTDLO DLO(&NBR) FLR(PEDIDOS) /* Borramos +
15/04/08
5600 Documento PDF de la carpeta para la +
15/04/08
5700 siguiente instruccion */
15/04/08
5800 DLTDLO DLO(&TODOC) FLR(PEDIDOS) /* Anulamos Bat +
15/04/08
5900 creado */
15/04/08
6000 DLTOVR FILE(*ALL)
16/04/08
6100 FINAL: ENDPGM
16/04/08
* * * * F I N D E F U E N T E * * * *
_
Paco Medina
DEPT. INFORMÁTICA
Exclusivas Camacho, S. Ltd.
CIF B29145240
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[email protected]
Antes de imprimir piensa si es necesario, piensa en el MEDIO AMBIENTE
Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha
recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción. Gracias.
Before printing thinks if necessary, think of ENVIRONMENT
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by professional privilege. If
you are not the intended recipient you are hereby notified that any
dissemination, copy or disclosure of this communication is strictly
prohibited by law. If this message has been received in error, please
immediately notify us via e-mail and delete it. Thank you.
_____
De: [email protected]
[mailto:[email protected]] En nombre de Benito
Hernandez
Enviado el: martes, 10 de agosto de 2010 17:50
Para: [email protected]
Asunto: Generar archivo de texto
Buen dia
Necesito que al momento de mandar a imprimir, tambien se genere un archivo
de texto de lo que se esta imprimiendo (se que con Salidas de Impresion del
Iseries Navigator puedo generar unTXT de lo que esta en el Spool)
Pero yo requiero que cada que mande a imprimir una factura grabe los datos
de esta con ciertas caracteristicas en el TXT (este archivo de texto se
tomara por un software Para generar la Factura Digital)
Alguien ha hecho algun programa que genere un archivo de texto a la PC,
gracias por su ayuda
Benito HErnandez
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
