MBS/PROYECTOS/irdir/irprrp004.4gl

{
-------------------------------------------------------------------------------
PROGRAMA             :  INPRRP004
OBJETIVO             :  TIPOS DE MOVIMIENTOS
PROGRAMADOR          :  Ing. Betania Guerrero Perez
FECHA REALIZACION    :  Enero 07, 1993
-------------------------------------------------------------------------------
}
GLOBALS "irprgb000.4gl"

MAIN                
   DEFER INTERRUPT
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave 
   CALL ARG_VAL(3) RETURNING impresor
   CONNECT to "smarmotech" USER  usuarios USING clave

   SELECT * INTO p_companias.* FROM companias
   CALL irprrp04()
END MAIN

FUNCTION irprrp04()
    DEFINE tipos RECORD
      cod_mov      LIKE irtb00005.cod_mov,
      descrip_mov  LIKE irtb00005.descrip_mov,
      status_mov   LIKE irtb00005.status_mov,
      cuenta_1     LIKE irtb00005.cuenta_1,
      cuenta_2     LIKE irtb00005.cuenta_2,
      cuenta_3     LIKE irtb00005.cuenta_3
    END RECORD

#WHENEVER ERROR CONTINUE

    OPTIONS
       FORM LINE 8,
       ERROR LINE 23,
       COMMENT LINE 21

    CLEAR SCREEN

    OPEN FORM irfmrp004 FROM "irfmrp004"
    DISPLAY FORM irfmrp004
   
    DISPLAY "irprrp004" AT 4,3
    DISPLAY "Tipos de Movimientos" AT 6,27

    LET tipo_papel = 1
    CALL msgrp000(tipo_papel)

     INPUT BY NAME decide  

    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
    END IF

    CONSTRUCT criterio ON intb00005.cod_mov FROM cod_mov

    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
    END IF
    CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
                                                       doble_on,doble_off,comp_on,comp_off,
                                                       doce,normal,archivo,copia

            
    START REPORT mover TO archivo
   
    IF decide = "A" THEN
    LET SELEC = 
        "SELECT cod_mov,descrip_mov,status_mov,cuenta_1,cuenta_2,cuenta_3 ",
        "FROM irtb00005 WHERE ", criterio clipped," AND status_t is null ",
        "ORDER BY descrip_mov"

    ELSE
    LET SELEC = 
        "SELECT cod_mov,descrip_mov,status_mov,cuenta_1,cuenta_2,cuenta_3 ",
        "FROM irtb00005 WHERE ", criterio clipped," AND status_t is null ",
        "ORDER BY cod_mov"
    END IF
    LET selec1 = "SELECT COUNT(*) FROM irtb00005 ",
                 "WHERE ",criterio clipped, " AND status_t is null " 

    DISPLAY "Buscando Informacion ... Espere Por Favor" AT 17,14
             ATTRIBUTE (REVERSE,BOLD)

    PREPARE busca FROM selec
    DECLARE accion CURSOR FOR busca

    PREPARE comando1 FROM selec1
    DECLARE busca1 CURSOR FOR comando1
    OPEN busca1 

    FETCH busca1 INTO regi

    
    LET p_param = "S" 
    FOREACH accion INTO tipos.* 
       IF int_flag THEN
          LET numero_msg = 2
          CALL msg(numero_msg)
          LET int_flag = FALSE
          RETURN
       END IF

       OUTPUT TO REPORT mover(tipos.*)
    END FOREACH
    FINISH REPORT mover
    RUN imprime 
    


END FUNCTION

    REPORT mover(x)
       DEFINE x RECORD
          cod_mov      LIKE irtb00005.cod_mov,
          descrip_mov  LIKE irtb00005.descrip_mov,
          status_mov   LIKE irtb00005.status_mov,
          cuenta_1     LIKE irtb00005.cuenta_1,
          cuenta_2     LIKE irtb00005.cuenta_2,
          cuenta_3     LIKE irtb00005.cuenta_3
       END RECORD
 
    DEFINE doble_on CHAR(2)
    DEFINE doble_off CHAR(2)
    DEFINE negrillas_on CHAR(2)
    DEFINE negrillas_off CHAR(2)
    DEFINE comp_on CHAR(2)
    DEFINE comp_off CHAR(2) 
    DEFINE doce CHAR(2)
    DEFINE hora CHAR(5)
    OUTPUT
     TOP MARGIN 0
      LEFT MARGIN 1
    FORMAT
      PAGE HEADER
        LET doble_on =  ASCII 14
        LET doble_off = ASCII 20
        LET negrillas_on = ASCII 27, ASCII 69
        LET negrillas_off = ASCII 27, ASCII 70
        LET comp_on = ASCII 15
        LET comp_off = ASCII 18
        LET doce = ASCII 27, ASCII 77
        LET hora = time
        
           PRINT COLUMN 1, ASCII 27,ASCII 80
           PRINT COLUMN  1, "irprrp004",
                 COLUMN 17, "              M A R M O T E C H  S. A.", 
                 COLUMN 73, "Pag. ",pageno using "###"   
           PRINT COLUMN 17, "      Sistema de Inventario de Repuestos ",   
                 COLUMN 73,  today using "dd/mm/yy" 
           PRINT COLUMN 17, "              Tipos de Movimientos",
                 COLUMN 76, hora 

        SKIP 1 LINE
        PRINT COLUMN 1, doce
        PRINT COLUMN 1, "----------------------------------------------------",
                        "-----------------------------------------------" 

           PRINT COLUMN 1, "Codigo",
                 COLUMN 9, "Descripcion del Movimiento",
                 COLUMN 53, "Status",
                 COLUMN 61, "Cuenta_1",
                 COLUMN 72, "Cuenta_2",
                 COLUMN 83, "Cuenta_3"

        PRINT COLUMN 1, "----------------------------------------------------",
                        "-----------------------------------------------" 

      ON EVERY ROW
         PRINT COLUMN 3,  x.cod_mov using "<<",
               COLUMN 9,  x.descrip_mov,
               COLUMN 55, x.status_mov,
               COLUMN 63, x.cuenta_1,
               COLUMN 74, x.cuenta_2,
               COLUMN 85, x.cuenta_3
     ON LAST ROW
       SKIP 1 LINE
       PRINT COLUMN 3, "Total de Registros Impresos = ", count(*) USING "####"
       PRINT COLUMN 3, ASCII 27, ASCII 80

     END REPORT