Importar y Ver documentos PC con Power Images

Esta funcion permite importar un documento (PDF) y asociarlo con alguna actividad del as400 (como un registro de factura, albaran, cliente, transaccion, etc).

Importante: El PC desde donde se ejecute el proceso debe tener instalado “Runtimes CPI”.

• Atencion: Depende de como se vaya a usar, puede no necesitarse un perfil, aunque es recomendable.

Usar el paso 51 del menu IMG y definir un perfil, tal como este

• El nombre dado al perfil es importante (en este ejemplo, PDF3), usar un perfil para cada entorno, por ejemplo, uno para facturas recibidas, otro para historiales de trabajadores, etc.
• El prefijo es la parte inicial con la que se construirrá el fichero final conservado en el IFS.
• El path de imagen es donde se generan los ficheros, debe terminar en barra
  • En el IFS se puede crear previamente con algo como esto:
    • CRTDIR DIR('/test') DTAAUT(*RWX) OBJAUT(*ALL) CRTOBJAUD(*NONE)
    • CHGAUT OBJ('/test') USER(*PUBLIC) DTAAUT(*RWX) OBJAUT(*ALL) SUBTREE(*ALL)
• Tipo Imagen es la extension, PDF en este caso

Se debe llamar al programa I@FILEIMP con los siguientes parametros:

• Perfil *char 6
  puede pasarse *NO para no usar nada del perfil
• Carpbase *char 40
  si se usa perfil y vienen blancos se toma la carpeta del perfil. Si viene algo debe terminarse con \
• Subcarpeta *char 20
  puede pasarse una subcarpeta adicional (terminada en \), por ejemplo para separar por año, etc
• Prefijo *char 6
  blancos para tomar el prefijo del perfil, o algo para usar esto
• Extension *char 4
  blancos para tomar la ext del perfil, o algo para usar esto
• Filegen *char 32
  si se envian blancos aqui se devuelve el fichero (sin carpeta) que se forma con un numerador asociado al perfil
  pero tambien se puede forzar aqui un valor para no usar un numerador auto, p.e. enviar 114578, que se unirá con el prefijo y la extension.

-

Si hay error devuelve *ERROR en Perfil y algo en Filegen.

Veamos un ejemplo de llamada desde un CL:

PGM                                                                     
   dcl &Perfil   *char   6 value('PDF3')                                
   dcl &Carpeta  *char  40 value(' ')                                   
   dcl &sCarpeta *char  20 value(' ')                                   
   dcl &File     *char  32                                              
   dcl &dat21    *char  21                                              
   dcl &m78      *char  78                                              
                                                                        
   CALL I@FILEIMP (&Perfil &Carpeta &sCarpeta ' ' ' ' &file)            
   if (&Perfil *EQ '*ERROR') Then(Do)                                   
      chgvar &Dat21 &File                                               
      call @error &Dat21                                                
      EndDo                                                             

   chgvar &m78 (&Carpeta *bcat ',' *bcat &sCarpeta *bcat ',' *bcat &File) 
   @msg24c &m78                                       
   chgvar &dat21 &file                                
   call @end1 &dat21                                  
   endpgm                                                   

A traves de este dialogo se permite elegir un fichero de pc, el cual será enviado a la carpeta destino que se monte con los parametros:

Con esta funcion se puede visualizar un documento previamente importado, aunque tambien permitiría visualizar documentos de una cierta carpeta.

El visor mas sencillo permite visualizar un documento (un pdf, por ejemplo) y ademas lo permite con libertad, pero se debe enviar al programa el camino completo al documento:

PGM                                                                        
   dcl &Doc   *char 100
   chgVar &Doc '\\192.168.1.2\test\TST000015475.PDF'
   CALL I@VERDOC &Doc                                                      
   EndPgm                                                                  

El visor extendido permite usar perfil y/o pasar los parametros desagregados:

CALL I@VERDOCP con estos parametros:

• Perfil *char 6
  debe existir
• Carpbase *char 40
  blancos si se quiere tomarla del perfil
• Subcarpeta *char 20
  blancos o algo terminado en \
• Prefijo *char 6
  blancos si se quiere tomarla del perfil
• Extension *char 4
  blancos si se quiere tomarla del perfil
• File *char 32
  el trozo de fichero sin carppeta ni prefijo ni extension