{
-------------------------------------------------------------------------------
PROGRAMA               : IRPRMT004
OBJETIVO               : Capturar, Modificar, Eliminar registros de la
                         Tabla de Costos Estandares
PROGRAMADOR            : Ing. Juan Fco. Soto.       
FECHA REALIZACION      : Marzo 1, 1993.  
-------------------------------------------------------------------------------
}
GLOBALS "irprgb000.4gl"

DEFINE checkapi, answer INT 

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

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

FUNCTION irprmt004()
   CLEAR SCREEN
   OPTIONS
       FORM LINE 9,
       ERROR LINE 23,
       COMMENT LINE 22

   OPEN FORM irfmmt004 FROM "irfmmt004"
   DISPLAY FORM irfmmt004
   
   DISPLAY "irprmt004" AT 4,3
   DISPLAY "Costo  Standard  " AT 6,31

   MENU "OPCIONES"
        COMMAND "Adicionar"
                "<Esc> Adiciona Registro      <Ctrl-C> Cancela Operacion"
            CLEAR FORM
            LET int_flag = false
            CALL irpcad004()
        COMMAND "Consultar-modificar"
                "<Esc> Realiza Busqueda        <Ctrl-C> Cancela Operacion"
            LET int_flag = false
            CALL irpcmf004()
        COMMAND "Salir"  "Retorna Menu Anterior"
            EXIT MENU
     END MENU
END FUNCTION

FUNCTION irpcad004()
#WHENEVER ERROR CONTINUE
## Captura los datos que va a contener el registro

   INPUT BY NAME costos.mes_ini THRU costos.costo_st

## Verifica que el costo exista en el catalogo de costos.  Si existe,
## entonces despliega los datos del registro existente.

   AFTER FIELD mes_ini
         IF costos.mes_ini IS NULL THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD mes_ini
         ELSE
            SELECT descrip INTO descrip1 FROM mestable
                   WHERE mes = costos.mes_ini and
                         status_t is null

                   IF status >= 0 THEN
                      IF status = NOTFOUND THEN
                         LET numero_msg = 3  
                         CALL msg(numero_msg) 
                         NEXT FIELD mes_ini
                      END IF  
                   
                   END IF
                   DISPLAY BY NAME descrip1
         END IF

   AFTER FIELD mes_fin
         IF costos.mes_fin IS NULL THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD mes_fin
         ELSE
            SELECT descrip INTO descrip2 FROM mestable
                   WHERE mes = costos.mes_fin and
                         status_t is null

                   IF status >= 0 THEN
                      IF status = NOTFOUND THEN
                         LET numero_msg = 3  
                         CALL msg(numero_msg) 
                         NEXT FIELD mes_fin
                      END IF  
                   END IF
                   DISPLAY BY NAME descrip2
         END IF

   AFTER FIELD ano
         IF costos.ano IS NULL THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD ano
         END IF

         AFTER FIELD cod_sec 
               SELECT mes_ini,mes_fin,ano,cod_n,cod_grupo,cod_tipo,cod_sec
                      FROM irtb00013
                      WHERE mes_ini   = costos.mes_ini AND
                            mes_fin   = costos.mes_fin AND
                            ano       = costos.ano AND
                            cod_n     = costos.cod_n AND
                            cod_grupo = costos.cod_grupo AND
                            cod_tipo  = costos.cod_tipo AND
                            cod_sec   = costos.cod_sec

                      IF status != NOTFOUND THEN
                            LET numero_msg = 12
                            CALL msg(numero_msg)
                            NEXT FIELD mes_ini
                      END IF

               IF ( costos.cod_n = 0 AND costos.cod_grupo = 0    AND 
                    costos.cod_tipo = 0 AND costos.cod_sec = 0 ) THEN 
                  LET numero_msg = 16 
                  CALL msg(numero_msg) 
                  NEXT FIELD cod_n 
               ELSE 
               SELECT a.descrip_esp,a.unidad_med
               INTO articulos.descrip_esp,articulos.unidad_med
               FROM irtb00002 a
               WHERE a.cod_n=costos.cod_n AND a.cod_grupo=costos.cod_grupo AND
                     a.cod_tipo=costos.cod_tipo AND a.cod_sec=costos.cod_sec AND
                     a.status_t is null

                   IF status >= 0 THEN
                      IF status = NOTFOUND THEN
                         LET numero_msg = 3  
                         CALL msg(numero_msg) 
                         NEXT FIELD cod_n 
                      END IF  
                   END IF
                   DISPLAY BY NAME articulos.descrip_esp,articulos.unidad_med
               END IF

	   AFTER FIELD costo_st
		 IF costos.costo_st IS NULL THEN
		    LET numero_msg = 16
		    CALL msg(numero_msg)
		    NEXT FIELD costo_st
		 END IF

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

		 IF costos.costo_st IS NULL THEN
		    LET numero_msg = 16
		    CALL msg(numero_msg)
		    NEXT FIELD costo_st
		 ELSE

        LET m_articulos.cod_n = costos.cod_n
        LET m_articulos.cod_grupo = costos.cod_grupo
        LET m_articulos.cod_tipo = costos.cod_tipo
        LET m_articulos.cod_sec = costos.cod_sec
        LET m_articulos.descrip_esp = articulos.descrip_esp
        LET m_articulos.descrip_ing = costos.costo_st

        SELECT SUM(cantidad_2) INTO m_articulos.existencia from irtb00006 
       WHERE cod_n = costos.cod_n and cod_grupo = costos.cod_grupo 
       and cod_tipo = costos.cod_tipo and cod_sec = costos.cod_sec
       AND status_t IS NULL 

         SELECT exist_min, id_maintainx INTO m_articulos.exist_min, checkapi FROM irtb00002
        WHERE cod_n = costos.cod_n and cod_grupo = costos.cod_grupo 
       and cod_tipo = costos.cod_tipo and cod_sec = costos.cod_sec
       AND status_t IS NULL 

       BEGIN WORK 

       IF checkapi IS NOT NULL THEN 
            CALL ApiMaintainR('PATCH',checkapi, m_articulos.*, usuarios) RETURNING answer
            
            IF answer != 1 THEN 
                DISPLAY "AQUI 6"
                ROLLBACK WORK
            END IF
       END IF 
        
		INSERT INTO irtb00013 VALUES (costos.mes_ini,costos.mes_fin,
                            costos.ano,costos.cod_n,costos.cod_grupo,
                            costos.cod_tipo,costos.cod_sec,costos.costo_st,
                            null,USER,getdate(),null, NULL)

		  
		    LET numero_msg = 1
		    CALL msg(numero_msg)
        COMMIT WORK 
		    
		    LET costos.cod_n = NULL
            LET costos.cod_grupo = NULL
            LET costos.cod_tipo = NULL
            LET costos.cod_sec = NULL
		    LET costos.costo_st = NULL
		    NEXT FIELD cod_n  
        END IF
        
	  END INPUT
    END FUNCTION

FUNCTION irpcmf004()

#WHENEVER ERROR CONTINUE
## Aqui se prepara para la captura del criterio de seleccion

   CONSTRUCT criterio ON c.mes_ini,c.mes_fin,c.ano,
                         c.cod_n,c.cod_grupo,
                         c.cod_tipo,c.cod_sec,c.costo_st
                    FROM mes_ini,mes_fin,ano,
                         cod_n,cod_grupo,
                         cod_tipo,cod_sec,costo_st

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

	   LET SELEC = 
            "SELECT UNIQUE c.mes_ini,c.mes_fin,c.ano,d.cod_n,d.cod_grupo, ",
            "       d.cod_tipo,d.cod_sec,c.costo_st,c.us_crea,c.fech_crea, ",
            "       c.us_mod,c.fech_mod,d.descrip_esp,d.unidad_med ",
            "FROM irtb00013 c, irtb00002 d ",
            "WHERE c.cod_n=d.cod_n AND c.cod_grupo=d.cod_grupo AND ",
            "      c.cod_tipo = d.cod_tipo AND c.cod_sec = d.cod_sec AND ",
            "      c.status_t is null AND d.status_t IS NULL AND ", 
            criterio clipped," ORDER BY 4,5,6,7"

	   PREPARE busca FROM selec
	   DECLARE datos SCROLL CURSOR FOR busca
	   OPEN datos
	 
	   FETCH FIRST datos INTO costos.*,articulos.descrip_esp,
                                  articulos.unidad_med

		 IF STATUS = NOTFOUND THEN
		    LET numero_msg = 3
		    CALL msg(numero_msg)
                  RETURN
		 END IF
                  SELECT descrip INTO descrip1 FROM mestable
                         WHERE mes = costos.mes_ini and
                               status_t is null
                  DISPLAY BY NAME descrip1

                  SELECT descrip INTO descrip2 FROM mestable
                         WHERE mes = costos.mes_fin and
                               status_t is null
                  DISPLAY BY NAME descrip2

            DISPLAY BY NAME costos.*,articulos.descrip_esp,articulos.unidad_med


	   MENU "OPCIONES"
	   COMMAND "Siguiente"
		   "Presenta en pantalla el proximo registro encontrado"
	   FETCH NEXT  datos INTO costos.*,articulos.descrip_esp,
                                  articulos.unidad_med
		   
		   IF STATUS = NOTFOUND THEN
		      LET numero_msg = 4
		      CALL msg(numero_msg)
		   END IF
                  SELECT descrip INTO descrip1 FROM mestable
                         WHERE mes = costos.mes_ini and
                               status_t is null
                  DISPLAY BY NAME descrip1

                  SELECT descrip INTO descrip2 FROM mestable
                         WHERE mes = costos.mes_fin and
                               status_t is null
                  DISPLAY BY NAME descrip2

            DISPLAY BY NAME costos.*,articulos.descrip_esp,articulos.unidad_med

	    COMMAND "Anterior"
		    "Presenta en pantalla el registro anterior encontrado"
	   FETCH PREVIOUS datos INTO costos.*,articulos.descrip_esp,
                                  articulos.unidad_med
		    IF STATUS = NOTFOUND THEN
		       LET numero_msg = 5
		       CALL msg(numero_msg)
		    END IF
                  SELECT descrip INTO descrip1 FROM mestable
                         WHERE mes = costos.mes_ini and
                               status_t is null
                  DISPLAY BY NAME descrip1

                  SELECT descrip INTO descrip2 FROM mestable
                         WHERE mes = costos.mes_fin and
                               status_t is null
                  DISPLAY BY NAME descrip2

            DISPLAY BY NAME costos.*,articulos.descrip_esp,articulos.unidad_med

	     COMMAND "Primero"
		     "Presenta en pantalla el primer registro encontrado"
	   FETCH FIRST datos INTO costos.*,articulos.descrip_esp,
                                  articulos.unidad_med
		     
                  SELECT descrip INTO descrip1 FROM mestable
                         WHERE mes = costos.mes_ini and
                               status_t is null
                  DISPLAY BY NAME descrip1

                  SELECT descrip INTO descrip2 FROM mestable
                         WHERE mes = costos.mes_fin and
                               status_t is null
                  DISPLAY BY NAME descrip2

            DISPLAY BY NAME costos.*,articulos.descrip_esp,articulos.unidad_med
		       LET numero_msg = 5
		       CALL msg(numero_msg)

	    COMMAND "Ultimo"
		     "Presenta en pantalla el ultimo registro encontrado"
	    FETCH LAST datos INTO costos.*,articulos.descrip_esp,
                                  articulos.unidad_med
		     
                  SELECT descrip INTO descrip1 FROM mestable
                         WHERE mes = costos.mes_ini and
                               status_t is null
                  DISPLAY BY NAME descrip1

                  SELECT descrip INTO descrip2 FROM mestable
                         WHERE mes = costos.mes_fin and
                               status_t is null
                  DISPLAY BY NAME descrip2

            DISPLAY BY NAME costos.*,articulos.descrip_esp,articulos.unidad_med
		       LET numero_msg = 4
		       CALL msg(numero_msg)

	     COMMAND "Escoger"
		     "<Esc> Actualiza Registro      <Ctrl-C> Cancela Operacion"
		INPUT BY NAME costos.costo_st,
                              costos.us_crea,
                              costos.fech_crea,
                              costos.us_mod,
                              costos.fech_mod WITHOUT DEFAULTS

		AFTER FIELD costo_st
		      IF costos.costo_st IS NULL THEN
			 LET numero_msg = 16
			 CALL msg(numero_msg)
			 NEXT FIELD costo_st
		      END IF


	## Verifica si el usuario presiono la tecla <Ctrl-C>
	    AFTER INPUT
	    IF int_flag THEN
	       LET numero_msg = 2
	       CALL msg(numero_msg)
	       LET int_flag = FALSE
	       RETURN
	    END IF

        LET m_articulos.cod_n = costos.cod_n
        LET m_articulos.cod_grupo = costos.cod_grupo
        LET m_articulos.cod_tipo = costos.cod_tipo
        LET m_articulos.cod_sec = costos.cod_sec
        LET m_articulos.descrip_esp = articulos.descrip_esp
        LET m_articulos.descrip_ing = costos.costo_st

        SELECT SUM(cantidad_2) INTO m_articulos.existencia from irtb00006 
       WHERE cod_n = costos.cod_n and cod_grupo = costos.cod_grupo 
       and cod_tipo = costos.cod_tipo and cod_sec = costos.cod_sec
       AND status_t IS NULL 

         SELECT exist_min, id_maintainx INTO m_articulos.exist_min, checkapi FROM irtb00002
        WHERE cod_n = costos.cod_n and cod_grupo = costos.cod_grupo 
       and cod_tipo = costos.cod_tipo and cod_sec = costos.cod_sec
       AND status_t IS NULL 

       BEGIN WORK 

       IF checkapi IS NOT NULL THEN 
            CALL ApiMaintainR('PATCH',checkapi, m_articulos.*, usuarios) RETURNING answer

            IF answer != 1 THEN 
                DISPLAY "AQUI 6"
                ROLLBACK WORK
            END IF
       END IF 

	    UPDATE irtb00013 SET costo_st = costos.costo_st,
				 us_mod   = USER,
				 fech_mod = getdate()
		   WHERE cod_n     = costos.cod_n and
                         cod_grupo = costos.cod_grupo and
                         cod_tipo  = costos.cod_tipo and
                         cod_sec   = costos.cod_sec

		   LET numero_msg = 13
		   CALL msg(numero_msg)
        COMMIT WORK 
		   EXIT INPUT
	    END INPUT

        COMMAND KEY ("L") "eLiminar"
	    UPDATE irtb00013 SET status_t = "E"
		   WHERE cod_n     = costos.cod_n and
                         cod_grupo = costos.cod_grupo and
                         cod_tipo  = costos.cod_tipo and
                         cod_sec   = costos.cod_sec

         LET numero_msg = 39
         CALL msg(numero_msg)

        COMMAND "Retornar"
                "Retorna al menu anterior"
                CLEAR FORM
                EXIT MENU

    END MENU
END FUNCTION