{
-------------------------------------------------------------------------------
PROGRAMA               : IPTB00013
OBJETIVO               : Capturar, Modificar, Eliminar registros de la
                         Tabla de Costos Estandares de Pto. Terminado
PROGRAMADOR            : Juan Fco. Soto.       
FECHA REALIZACION      : Enero 1997 
-------------------------------------------------------------------------------
}
GLOBALS "ipprgb000.4gl"
 DEFINE nombre_v CHAR(20)

MAIN                
   DEFER INTERRUPT
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   
   CONNECT to "decomarmol" USER  usuarios USING clave
   SELECT * INTO p_companias.* FROM companias
   
   CALL ipprmt013()
END MAIN

FUNCTION ipprmt013()
   CLEAR SCREEN
   OPTIONS
       FORM LINE 9,
       ERROR LINE 23,
       COMMENT LINE 21

   OPEN FORM ipfmmt013 FROM "ipfmmt013"
   DISPLAY FORM ipfmmt013
   #CALL pantalla()
   DISPLAY "ipprmt013" AT 4,3
   DISPLAY " Costos Estandares" AT 6,33

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

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

   INPUT BY NAME costos.ventas THRU costos.gastos

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

   AFTER FIELD ventas
         IF costos.ventas = "1" THEN
            LET nombre_v = "LOCAL"
         ELSE
            LET nombre_v = "IMPORTACION"
         END IF
         DISPLAY BY NAME nombre_v ATTRIBUTE (REVERSE)

   AFTER FIELD mes_ini
         IF costos.mes_ini IS NULL THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD mes_ini
         ELSE
           LET longitud = LENGTH(costos.mes_ini)
           IF longitud < 2 THEN
             LET numero_msg = 77
             CALL msg(numero_msg)
             NEXT FIELD mes_ini
            END IF
            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  
                   ELSE
                      CALL integridad()

                           IF bandera = 1 THEN
                              LET bandera = 0
                              RETURN
                           END IF 
                   END IF
                   DISPLAY BY NAME descrip1 ATTRIBUTE(REVERSE)
         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
           LET longitud = LENGTH(costos.mes_fin)
           IF longitud < 2 THEN
             LET numero_msg = 77
             CALL msg(numero_msg)
             NEXT FIELD mes_fin
            END IF
            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  
                   ELSE
                      CALL integridad()

                           IF bandera = 1 THEN
                              LET bandera = 0
                              RETURN
                           END IF 
                   END IF
                   DISPLAY BY NAME descrip2 ATTRIBUTE(REVERSE)
         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 UNIQUE a.status_t INTO costos.status_t FROM iptb00004 a
         WHERE a.ventas    = costos.ventas  AND a.mes_ini   = costos.mes_ini AND
               a.mes_fin   = costos.mes_fin AND a.ano       = costos.ano AND
               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

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

         IF costos.status_t = "E" THEN
            LET numero_msg = 36
            CALL msg(numero_msg)
            NEXT FIELD mes_ini
         END IF

         SELECT b.descrip_esp,b.descrip_ing,b.unidad_med
         INTO p_iptb02.descrip_esp,p_iptb02.descrip_ing,p_iptb02.unidad_med
         FROM iptb00002 b
         WHERE b.cod_n = costos.cod_n AND b.cod_grupo = costos.cod_grupo AND
               b.cod_tipo = costos.cod_tipo AND b.cod_sec = costos.cod_sec AND
               b.status_t is null 

         IF status = NOTFOUND THEN
            LET numero_msg = 3  
            CALL msg(numero_msg) 
            NEXT FIELD cod_n 
         END IF  
                   
         LET descripcion = p_iptb02.descrip_esp CLIPPED

         DISPLAY BY NAME descripcion,p_iptb02.unidad_med ATTRIBUTE(REVERSE)

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

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

         IF costos.material IS NOT NULL THEN

            IF costos.labor IS NULL THEN
               LET costos.labor = 0
            END IF
  
            IF costos.gastos IS NULL THEN
               LET costos.gastos = 0
            END IF

            INSERT INTO iptb00004 (ventas,mes_ini,mes_fin,ano,cod_n,
                                   cod_grupo,cod_tipo,cod_sec,
                                   material,labor,gastos,status_t,
                                   us_crea,fech_crea,us_mod,fech_mod)
            VALUES (costos.ventas,costos.mes_ini,costos.mes_fin, 
                    costos.ano,costos.cod_n, costos.cod_grupo, 
                    costos.cod_tipo,costos.cod_sec,costos.material,
                    costos.labor,costos.gastos,null,SUSER_SNAME(),GETDATE(),null,null)

	    LET numero_msg = 1
	    CALL msg(numero_msg)
	    CLEAR FORM
	    LET costos.mes_ini = NULL
	    LET costos.mes_fin = NULL
            LET costos.ano = NULL
	    LET costos.cod_n = NULL
            LET costos.cod_grupo = NULL
            LET costos.cod_tipo = NULL
            LET costos.cod_sec = NULL
	    LET costos.material = NULL
	    LET costos.labor    = NULL
	    LET costos.gastos   = NULL
         END IF
END FUNCTION

FUNCTION ippcmf013()

#WHENEVER ERROR CONTINUE
## Aqui se prepara para la captura del criterio de seleccion
   CLEAR FORM
   CONSTRUCT criterio ON c.ventas,c.mes_ini,c.mes_fin,c.ano,
                         c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec
                    FROM ventas,mes_ini,mes_fin,ano,
                         cod_n,cod_grupo,cod_tipo,cod_sec

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

	   LET SELEC = "SELECT UNIQUE * FROM iptb00004 c ",  
                       "WHERE c.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
	    CALL integridad()

		 IF bandera = 1 THEN
                    LET bandera = 0
		    RETURN
	         END IF 

	   FETCH FIRST datos INTO costos.*
		 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 ATTRIBUTE(REVERSE)

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

                  SELECT b.descrip_esp,b.unidad_med
                  INTO p_iptb02.descrip_esp,p_iptb02.unidad_med
                  FROM iptb00002 b
                  WHERE b.cod_n     = costos.cod_n AND
                        b.cod_grupo = costos.cod_grupo AND
                        b.cod_tipo  = costos.cod_tipo AND
                        b.cod_sec = costos.cod_sec 

                   LET descripcion = p_iptb02.descrip_esp CLIPPED
            DISPLAY BY NAME costos.*,descripcion,p_iptb02.unidad_med 
            ATTRIBUTE(REVERSE)


	   MENU "OPCIONES"
	   COMMAND "Siguiente"
		   "Presenta en pantalla el proximo registro encontrado"
		   FETCH NEXT datos INTO costos.*
		   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 ATTRIBUTE(REVERSE)

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

                   SELECT b.descrip_esp,b.unidad_med
                   INTO p_iptb02.descrip_esp,p_iptb02.unidad_med
                   FROM iptb00002 b
                   WHERE b.cod_n     = costos.cod_n AND
                         b.cod_grupo = costos.cod_grupo AND
                         b.cod_tipo  = costos.cod_tipo AND
                         b.cod_sec= costos.cod_sec 
            DISPLAY BY NAME costos.*,descripcion,p_iptb02.unidad_med ATTRIBUTE(REVERSE)

	    COMMAND "Anterior"
		    "Presenta en pantalla el registro anterior encontrado"
		    FETCH PREVIOUS datos INTO costos.*
		    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 ATTRIBUTE(REVERSE)

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

                    SELECT b.descrip_esp,b.unidad_med
                    INTO p_iptb02.descrip_esp,p_iptb02.unidad_med
                    FROM iptb00002 b
                    WHERE b.cod_n     = costos.cod_n AND
                          b.cod_grupo = costos.cod_grupo AND
                          b.cod_tipo  = costos.cod_tipo AND
                          b.cod_sec=costos.cod_sec 
                 DISPLAY BY NAME costos.*,descripcion,p_iptb02.unidad_med 
                 ATTRIBUTE(REVERSE)

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

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

                     SELECT b.descrip_esp,b.unidad_med
                     INTO p_iptb02.descrip_esp,p_iptb02.unidad_med
                     FROM iptb00002 b
                     WHERE b.cod_n     = costos.cod_n AND
                           b.cod_grupo = costos.cod_grupo AND
                           b.cod_tipo  = costos.cod_tipo AND
                           b.cod_sec=costos.cod_sec 
            DISPLAY BY NAME costos.*,descripcion,p_iptb02.unidad_med ATTRIBUTE(REVERSE)
		       LET numero_msg = 5
		       CALL msg(numero_msg)

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

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

                  SELECT b.descrip_esp,b.unidad_med
                  INTO p_iptb02.descrip_esp,p_iptb02.unidad_med
                  FROM iptb00002 a
                  WHERE b.cod_n     = costos.cod_n AND
                        b.cod_grupo = costos.cod_grupo AND
                        b.cod_tipo  = costos.cod_tipo AND
                        b.cod_sec= costos.cod_sec 
            DISPLAY BY NAME costos.*,descripcion,p_iptb02.unidad_med ATTRIBUTE(REVERSE)
		       LET numero_msg = 4
		       CALL msg(numero_msg)

	     COMMAND "Escoger"
		     "<Esc> Actualiza Registro      <Delete> Cancela Operacion"
          INPUT BY NAME costos.material,costos.labor,costos.gastos
          WITHOUT DEFAULTS

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

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

            IF costos.labor IS NULL THEN
               LET costos.labor = 0
            END IF
            IF costos.gastos IS NULL THEN
               LET costos.gastos = 0
            END IF

	    UPDATE iptb00004 SET material = costos.material,
	                         labor    = costos.labor,
	                         gastos   = costos.gastos,
				 us_mod   = SUSER_SNAME(),
				 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 and
                  ventas = costos.ventas and ano = costos.ano

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

        COMMAND KEY ("L") "eLiminar"
	    UPDATE iptb00004 SET status_t = "E"
	    WHERE ventas = costos.ventas and
                  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

         LET numero_msg = 39
         CALL msg(numero_msg)

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

    END MENU
END FUNCTION