{
-------------------------------------------------------------------------------
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),
        xmaterial_usd,xlabor_usd,xgastos_usd,xtasa FLOAT

MAIN                
   DEFER INTERRUPT
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   
   CONNECT to "decomarmol" USER  usuarios USING clave
SELECT administrador,cod_comp,control2factura,controlordenpedidos,direccion,
 facturacontrolconduce,fax,fech_crea,fech_mod,nombre,rnc,rutalogocia,
status_t,telefono,tipo_db,url,us_crea,us_mod,usuario 
INTO p_companias.administrador,p_companias.cod_comp,
  p_companias.control2factura,p_companias.controlordenpedidos,p_companias.direccion,
 p_companias.facturacontrolconduce,p_companias.fax,p_companias.fech_crea,
p_companias.fech_mod,p_companias.nombre,p_companias.rnc,p_companias.rutalogocia,
p_companias.status_t,p_companias.telefono,p_companias.tipo_db,
p_companias.url,p_companias.us_crea,p_companias.us_mod,p_companias.usuario 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  x    <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,xmaterial_usd,xlabor_usd,xgastos_usd

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

  
   AFTER FIELD ano
         IF costos.ano IS NULL THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD ano
         END IF
         SELECT AVG(a.tasa) INTO xtasa FROM cgtb00084 a WHERE a.ano = costos.ano AND a.mes = month(today) AND
                                                             a.ventas = 3
         IF xtasa IS NULL THEN
            LET xtasa = 1 
         END IF         
         DISPLAY BY NAME xtasa
   AFTER FIELD xmaterial_usd
     IF xmaterial_usd IS NOT NULL THEN
     LET costos.material = xmaterial_usd * xtasa
     DISPLAY BY NAME costos.material
     
     END IF 
  AFTER FIELD xlabor_usd
     IF xlabor_usd IS NOT NULL THEN
     LET costos.labor = xlabor_usd * xtasa
     DISPLAY BY NAME costos.labor
     END IF
   AFTER FIELD xgastos_usd
     IF xgastos_usd IS NOT NULL THEN
      LET costos.gastos = xgastos_usd * xtasa
      DISPLAY BY NAME costos.gastos
     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,material_usd,labor_usd,gastos_usd,tasa)
            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(),xmaterial_usd,xlabor_usd,xgastos_usd,xtasa)

	    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  c.ventas,c.mes_ini,c.mes_fin,c.ano,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_Sec,",
       "c.material,c.labor,c.gastos, ",
       "c.material_usd,c.labor_usd,c.gastos_usd,c.tasa,c.status_t,c.us_crea,c.fech_crea,c.us_mod,c.fech_mod FROM iptb00004 c ",  
                       "WHERE  ",
			criterio clipped," ORDER BY c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_Sec"

	   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.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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
		 IF STATUS = NOTFOUND THEN
		    LET numero_msg = 3
		    CALL msg(numero_msg)
                  RETURN
		 END IF
  
  
                  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.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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
                              ,descripcion,p_iptb02.unidad_med,xmaterial_usd,xlabor_usd,xgastos_usd,xtasa
            ATTRIBUTE(REVERSE)


	   MENU "OPCIONES"
	   COMMAND "Siguiente"
		   "Presenta en pantalla el proximo registro encontrado"
		   FETCH NEXT datos INTO 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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
		   IF STATUS = NOTFOUND THEN
		      LET numero_msg = 4
		      CALL msg(numero_msg)
		   END IF
  
	    COMMAND "Anterior"
		    "Presenta en pantalla el registro anterior encontrado"
		    FETCH PREVIOUS datos INTO 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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
		    IF STATUS = NOTFOUND THEN
		       LET numero_msg = 5
		       CALL msg(numero_msg)
		    END IF
  
                    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.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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
                              ,descripcion,p_iptb02.unidad_med ,xmaterial_usd,xlabor_usd,xgastos_usd,xtasa
                 ATTRIBUTE(REVERSE)

	     COMMAND "Primero"
		     "Presenta en pantalla el primer registro encontrado"
		     FETCH FIRST datos INTO 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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
  
                     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.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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
                              ,descripcion,p_iptb02.unidad_med,xmaterial_usd,xlabor_usd,xgastos_usd,xtasa ATTRIBUTE(REVERSE)
		       LET numero_msg = 5
		       CALL msg(numero_msg)

	     COMMAND "Ultimo"
		     "Presenta en pantalla el ultimo registro encontrado"
		     FETCH LAST datos INTO 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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
  
                  SELECT a.descrip_esp,a.unidad_med
                  INTO p_iptb02.descrip_esp,p_iptb02.unidad_med
                  FROM iptb00002 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 
            DISPLAY BY NAME 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, xmaterial_usd,xlabor_usd,xgastos_usd,xtasa,
                              costos.status_t,costos.us_crea,costos.fech_crea,costos.us_mod,costos.fech_mod
                              ,descripcion,p_iptb02.unidad_med,xmaterial_usd,xlabor_usd,xgastos_usd,xtasa 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,xmaterial_usd,xlabor_usd,xgastos_usd
          WITHOUT DEFAULTS

            AFTER FIELD material
	       IF costos.material IS NULL THEN
		  LET numero_msg = 16
		  CALL msg(numero_msg)
		  NEXT FIELD material
               END IF
 AFTER FIELD xmaterial_usd
  IF xmaterial_usd IS NOT NULL THEN
     LET costos.material = xmaterial_usd * xtasa
     DISPLAY BY NAME costos.material
  END IF
  AFTER FIELD xlabor_usd
  IF xlabor_usd IS NOT NULL THEN
     LET costos.labor = xlabor_usd * xtasa
     DISPLAY BY NAME costos.labor
  END IF   
   AFTER FIELD xgastos_usd
    IF xgastos_usd IS NOT NULL THEN
      LET costos.gastos = xgastos_usd * xtasa
      DISPLAY BY NAME costos.gastos
    END IF  
   BEFORE INPUT
   SELECT AVG(a.tasa) INTO xtasa FROM cgtb00084 a WHERE a.ano = costos.ano AND a.mes = month(today) AND
                                                             a.ventas = 3
         IF xtasa IS NULL THEN
            LET xtasa = 1 
         END IF         
         DISPLAY BY NAME xtasa

	## 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(),
                 material_usd = xmaterial_usd,
                 labor_usd = xlabor_usd,
                 gastos_usd = xgastos_usd,
                 tasa = xtasa
	    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("T") "acTivar"
        LET respuesta=  fgl_winquestion("INFO","ESTA SEGURO DE ACTIVAR ESTE COSTO?","NO","YES|NO","QUESTION",0)
        IF respuesta = "YES" THEN
	       UPDATE iptb00004 SET status_t = null,
                             us_mod = usuarios,
                             fech_mod = getdate()
	       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

         
         CALL msg(14)
        END IF
        
        COMMAND KEY ("L") "eLiminar"
        LET respuesta=  fgl_winquestion("INFO","ESTA SEGURO DE ELIMINAR ESTE COSTO?","NO","YES|NO","QUESTION",0)
        IF respuesta = "YES" THEN
	       UPDATE iptb00004 SET status_t = "E",
                             us_mod = usuarios,
                             fech_mod = getdate()
	       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)
        END IF
        COMMAND "Retornar"
                "Retorna al menu anterior"
                CLEAR FORM
                EXIT MENU

    END MENU
END FUNCTION