000100900510/******************************************************************************/
000200070105/** FCT011CL : Traspaso Facturas PDF a Histórico                             **/
000300900510/******************************************************************************/
000400061025             PGM        PARM(&JOB &NJOB &USER &NSPLA &SERIE &FACTALF +
000500061215                          &FECHALF &COLA)
000600070105/* ---------------------------------------------------------------------------*/
000700070105/* Definición de parámetros                                                   */
000800070105/* ---------------------------------------------------------------------------*/
000900070105             DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)
001000070105             DCL        VAR(&NJOB) TYPE(*CHAR) LEN(6)
001100070105             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)
001200070105             DCL        VAR(&NSPLA) TYPE(*CHAR) LEN(6)
001300070105             DCL        VAR(&SERIE) TYPE(*CHAR) LEN(1)
001400070105             DCL        VAR(&FACTALF) TYPE(*CHAR) LEN(6)
001500070105             DCL        VAR(&FECHALF) TYPE(*CHAR) LEN(8)
001600070105             DCL        VAR(&COLA) TYPE(*CHAR) LEN(10)
001700901002/* ---------------------------------------------------------------------------*/
001800070105/* Definición de variables                                                    */
001900901002/* ---------------------------------------------------------------------------*/
002000050428             DCL        VAR(&PATH) TYPE(*CHAR) LEN(128)
002100050428             DCL        VAR(&PATH2) TYPE(*CHAR) LEN(128)
002200061215             DCL        VAR(&NBFILE) TYPE(*CHAR) LEN(128)
002300061025             DCL        VAR(&FECHA) TYPE(*CHAR) LEN(6)
002400061025             DCL        VAR(&EMP) TYPE(*CHAR) LEN(3)
002500061215             DCL        VAR(&VECES) TYPE(*DEC) LEN(2)
002600070105             DCL        VAR(&FIN) TYPE(*LGL)
002700070105             DCL        VAR(&FOUND) TYPE(*LGL)
002800070105/* ---------------------------------------------------------------------------*/
002900070105/* Copiar PDF a Carpeta Impresión                                             */
003000070105/* ---------------------------------------------------------------------------*/
003100050428             RTVJOBA    DATE(&FECHA)
003200050609             RTVDTAARA  DTAARA(*LDA (1 3)) RTNVAR(&EMP)
003300070105             CHGVAR     VAR(&PATH) VALUE(' ')
003400050428             CHGVAR     VAR(&PATH) VALUE(  +
003500050429                          '/FCTTMP/'       |< +
003600050428                           &JOB            |< +
003700050428                           '/'             |< +
003800050428                           &USER           |< +
003900050428                           '/'             |< +
004000050428                           &NJOB           |< +
004100050428                           '_'             |< +
004200050428                           &NSPLA          |< +
004300050428                           '_FCT310P_'     |< +
004400050428                          %SST(&FECHA 3 2) |< +
004500050428                          %SST(&FECHA 1 2) |< +
004600050428                          '20'             |< +
004700050428                          %SST(&FECHA 5 2) |< +
004800050428                          '_000001.PDF')
004900070105             CHGVAR     VAR(&PATH2) VALUE('/FCTHIS/'      |< +
005000070105                                          'IMPRESORAS/'   |< +
005100070105                                          &COLA)
005200061221             STRPRTWTR  DEV(&COLA)
005300061221             MONMSG     MSGID(CPF3310)
005400061215             CHGVAR     VAR(&VECES) VALUE(0)
005500070105             CHGVAR     VAR(&FIN) VALUE('0')
005600070105             DOWHILE    (¬ &FIN)
005700070105               IF (&VECES >= 6) THEN(DO)
005800070105                 CHGVAR     VAR(&FIN) VALUE('1')
005900070105               ENDDO
006000070105               ELSE       CMD(DO)
006100070105                 CHGVAR     VAR(&VECES) VALUE(&VECES+1)
006200070105                 DLYJOB     DLY(5)
006300070105                 CHGVAR     VAR(&FOUND) VALUE('1')
006400070105                 COPY       OBJ(&PATH) TODIR(&PATH2)
006500070105                 MONMSG     MSGID(CPFA0A9) EXEC(DO)
006600070105                   CHGVAR     VAR(&FOUND) VALUE('0')
006700070105                 ENDDO
006800070105                 IF         COND(&FOUND) THEN(DO)
006900070105                   LEAVE
007000070105                 ENDDO
007100070105               ENDDO
007200070105             ENDDO
007300070105/* ---------------------------------------------------------------------------*/
007400070105/* Mover PDF a Carpeta Histórica                                              */
007500070105/* ---------------------------------------------------------------------------*/
007600070105             CHGVAR     VAR(&NBFILE) VALUE(&EMP       || +
007700070105                                           '_'        || +
007800070105                                           &SERIE     || +
007900070105                                           &FACTALF   || +
008000070105                                           '_'        || +
008100070105                                           &FECHALF   || +
008200070105                                           '.PDF')
008300061215             REN        OBJ(&PATH) NEWOBJ(&NBFILE)
008400061025             CHGVAR     VAR(&PATH) VALUE(' ')
008500061025             CHGVAR     VAR(&PATH) VALUE('/FCTTMP/' |< +
008600061025                                         &JOB       |< +
008700061025                                         '/'        |< +
008800061025                                         &USER      |< +
008900061025                                         '/'        |< +
009000061215                                         &NBFILE)
009100061218             CHGVAR     VAR(&PATH2) VALUE(' ')
009200070102   /* CARPETA AÑO */
009300070102             CHGVAR     VAR(&PATH2) VALUE('/FCTHIS/'         |< +
009400070102                                          '/EMPRESA_'        |< +
009500070102                                          &EMP               |< +
009600070102                                          '/FIRME/'          |< +
009700070102                                          %SST(&FECHALF 1 4))
009800070102             MD         DIR(&PATH2)
009900070102             MONMSG     MSGID(CPFA0A0)
010000070102   /* CARPETA MES */
010100070102             CHGVAR     VAR(&PATH2) VALUE('/FCTHIS/'         |< +
010200070102                                          '/EMPRESA_'        |< +
010300070102                                          &EMP               |< +
010400070102                                          '/FIRME/'          |< +
010500070102                                          %SST(&FECHALF 1 4) |< +
010600070102                                          '/'                |< +
010700070102                                          %SST(&FECHALF 5 2))
010800070102             MD         DIR(&PATH2)
010900070102             MONMSG     MSGID(CPFA0A0)
011000070102   /* CARPETA DIA */
011100070102             CHGVAR     VAR(&PATH2) VALUE('/FCTHIS/'         |< +
011200070102                                          '/EMPRESA_'        |< +
011300070102                                          &EMP               |< +
011400070102                                          '/FIRME/'          |< +
011500070102                                          %SST(&FECHALF 1 4) |< +
011600070102                                          '/'                |< +
011700070102                                          %SST(&FECHALF 5 2) |< +
011800070102                                          '/'                |< +
011900070102                                          &FECHALF)
012000070102             MD         DIR(&PATH2)
012100070102             MONMSG     MSGID(CPFA0A0)
012200070102             MOV        OBJ(&PATH) TODIR(&PATH2)
012300070102             MONMSG     MSGID(CPFA0A9)
012400940512             ENDPGM