Ap026Last api para pdf+email el último spool

Basado en SpoolPdfApi, hace más fácil el envío de un spool (el último) recién creado en el mismo job.

Por ejemplo, en un CL hacemos un listado de algo y queremos mandar ese listado en pdf por email.

Parametros de CALL AP026LAST:

1. CoPrintServer 10x (el nombre de un Coprint corriendo en un pc)
2. nombre fichero pdf, sin extension, 20x, permite algunas variables como &&DT2&&
3. Carpeta para pdf, 50x,
   vacío para usar un valor por omision (carpeta temporal o \coprint\user o lo definido en CoPrintIni como Defaultfolder=c:\Temp\Coprint)
   o usar un valor de red como \\servidor\carpeta o \\DirIP\carpeta)
4. Direccion de destino correo email, 50x, se admiten dos separados con ;
5. Asunto del email, 30x. permite algunas variables
6. Texto para el email, 50x. permite algunas variables
7. firma, 10x, quien firma el email, el texto de ese fichero.sgn se adjunta al final
8. spoolfile, 10x, nombre del fichero spool, como QSYSPRT etc. Los demás parametros del listado no hacen falta, se toman los del ultimo creado en ese job.
9. reserva, 10x, sin uso, enviar vacío

Este ejemplo de programa cl imprime un simple joblog, genera pdf y lo envía por email:

dcl &sp *char 10 value('QPJOBLOG') /* nombre del fichero de spool */
dcl &as *char 30 value('Asunto del correo')
dcl &tx *char 50 value('adjuntamos listado pdf Coprint')
dcl &fn *char 20 value('ejemplo_&&DT2&&')
dcl &em *char 50 value('ventas@TornillosGomez.es')
OvrPrtF file(QPJOBLOG) hold(*YES)
DSPJOB OUTPUT(*PRINT) OPTION(*JOBLOG) /* DspJob usa fichero QPJOBLOG */
CALL AP026LAST ('COPRTEST' &fn '\\serv\pdf\' &em &as &tx 'FIRMA2' &sp ' ')