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”.
Usar el paso 51 del menu IMG y definir un perfil, tal como este
Se debe llamar al programa I@FILEIMP con los siguientes parametros:
-
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: