{
--------------------------------------------------------------------------
 PROGRAMA          : INPRMT016
 OBJETIVO          : Programa Captura Documento Movimiento:
                     DEVOLUCION A SUPLIDOR
                     de Inventario de Materia Prima.
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Agosto 06,1992. 
 MODIFICADO POR    : Ing. Juan Fco. Soto (Johnny)
 FECHA             : Diciembre 12, 1992
 DESCRIPCION       : Enalce Con el sistema de compras para que cheque cuando
                     la orden de compras para ser devuelta.
--------------------------------------------------------------------------
}
GLOBALS
  "inprgb000.4gl"
MAIN                
   DEFER INTERRUPT
   SELECT * INTO p_companias.* FROM companias
   CALL inprmt016()
END MAIN

FUNCTION inprmt016()
  DEFINE fecha,fecha_c CHAR(8)
  DEFINE dia SMALLINT
  DEFINE hora CHAR(5)
  CLEAR SCREEN
  OPTIONS
    ERROR LINE 24,
    FORM LINE 4,
    COMMENT LINE 22,
    PROMPT LINE 23
    LET fecha = today  USING "dd/mm/yy"
    LET hora = time
    DISPLAY p_companias.nombre CLIPPED AT 1,lj
            ATTRIBUTE (REVERSE,YELLOW)
    DISPLAY fecha AT 1,70 ATTRIBUTE (YELLOW)
    DISPLAY hora AT 2,73 ATTRIBUTE (YELLOW)
    DISPLAY "Materiales Devueltos al Suplidor" AT 2,24
    DISPLAY "inprmt016" AT 1,3 ATTRIBUTE (YELLOW)
    DISPLAY "<Esc> Adiciona Registro          <Ctrl-C> Cancela Operacion" AT 3,2
    ATTRIBUTE (YELLOW,REVERSE)

    OPEN FORM infmmt016 FROM "infmmt016"
    DISPLAY FORM infmmt016
   
   LET actual = "UPDATE intb00002 SET existencia = existencia + ? ",
                "WHERE cod_n = ? and cod_grupo = ? and cod_tipo = ? and ",
                "      cod_sec  = ? "

   CALL inprad016()
  END FUNCTION
  
FUNCTION limpia()

      LET movi[p_act].cod_n = null
      LET movi[p_act].cod_grupo = null
      LET movi[p_act].cod_tipo = null
      LET movi[p_act].cod_sec = null
      LET movi[p_act].cantidad_1 = null
      LET movi[p_act].cantidad_2 = null
      LET movi[p_act].unidad_med = null
      LET movi[p_act].descrip_esp = null
END FUNCTION

FUNCTION inprad016()
   DEFINE idx1 SMALLINT
   DEFINE r_cantidad,recibida,ordenada,total_cantidad,porciento DECIMAL(12,2)
   DEFINE devuelta CHAR(1)
  DEFINE fecha CHAR(8)

  #WHENEVER ERROR CONTINUE

   LET int_flag = FALSE
   LET OPC = null

  INITIALIZE datos_gen.* TO NULL

   PREPARE actualiza FROM actual

 LABEL otra_vez:
 LABEL vuelve:

    IF (OPC = "S" OR OPC = "s") OR opc is null THEN
     INITIALIZE datos_gen.* TO NULL
  END IF

   LET datos_gen.cod_mov = cod_mov_ant
   LET datos_gen.cod_mov = 38
   LET datos_gen.fecha = today
   LET devuelta = "N"

 INPUT BY NAME datos_gen.num_doc,datos_gen.tipo,datos_gen.orden_compra,
               datos_gen.fecha,datos_gen.bodega
 WITHOUT DEFAULTS

    AFTER FIELD bodega

     SELECT *FROM intb00009 WHERE cod_bodega = datos_gen.bodega
      IF status >= 0 THEN
        IF status = NOTFOUND THEN
         LET numero_msg = 3
         CALL msg(numero_msg)
         NEXT FIELD bodega
      END IF
        ELSE
      CALL integridad()
   
    IF bandera = 1 THEN
       LET bandera = 0
       RETURN
    END IF 
   END IF

   AFTER FIELD fecha

    LET bandera = 0
    LET p_fechas = datos_gen.fecha
    CALL prd(p_fechas)
     IF bandera = 1 THEN
       LET bandera = 0
       NEXT FIELD fecha
     END IF

    IF datos_gen.fecha is null THEN
       LET numero_msg = 16
       CALL msg(numero_msg)
       NEXT FIELD fecha
  END IF
   IF datos_gen.fecha > TODAY THEN
      LET numero_msg = 160
      CALL msg(numero_msg)
      NEXT FIELD fecha
   END IF

   LET datos_gen.bodega = 1
   DISPLAY BY NAME datos_gen.bodega

   AFTER FIELD num_doc

    IF datos_gen.num_doc IS NULL then
      LET numero_msg = 16
      CALL msg(numero_msg)
      NEXT FIELD num_doc
    ELSE
     SELECT * FROM intb00005 WHERE cod_mov = datos_gen.cod_mov and
                                   status_t is null
    IF status >= 0 THEN
      IF status = NOTFOUND THEN
        LET numero_msg = 34
        CALL msg(numero_msg)
        NEXT FIELD num_doc
     END IF
      ELSE
   CALL integridad()

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

    SELECT UNIQUE a.cod_sp,a.cod_sp_sec,a.fecha,a.tipo,a.orden_compra
    INTO datos_gen.cod_sp,datos_gen.cod_sp_sec,datos_gen.fecha,datos_gen.tipo,
         datos_gen.orden_compra
    FROM intb00006 a 
    WHERE a.num_doc = datos_gen.num_doc and a.cod_mov = datos_gen.cod_mov and
          a.status_t is null

    IF status >= 0 THEN
       IF status != NOTFOUND THEN
          SELECT UNIQUE nom_sp INTO datos_gen.nom_sp FROM cotb00001 
          WHERE cod_sp = datos_gen.cod_sp and cod_sp_sec = datos_gen.cod_sp_sec
          AND status_t   is null 
  
          LET numero_msg = 12
          CALL msg(numero_msg)
          DISPLAY BY NAME datos_gen.cod_sp,datos_gen.fecha,datos_gen.nom_sp,
                      datos_gen.cod_sp_sec,datos_gen.tipo,datos_gen.orden_compra
              NEXT FIELD num_doc
        END IF
     ELSE
           CALL integridad()
           
       if bandera = 1 THEN
          CLEAR SCREEN
          RETURN
       end if 
      END IF

           IF OPC = "S" OR OPC = "s" OR OPC is null THEN
              INITIALIZE datos_gen.cod_sp, datos_gen.nom_sp,
                         datos_gen.cod_sp_sec,datos_gen.tipo,
                         datos_gen.orden_compra
                 TO NULL

               DISPLAY BY NAME datos_gen.cod_sp,
                               datos_gen.nom_sp,datos_gen.cod_sp_sec,
                               datos_gen.tipo,datos_gen.orden_compra
          END IF
        END IF

  AFTER FIELD tipo 
   IF datos_gen.tipo IS NULL THEN
      LET numero_msg = 16
      CALL msg(numero_msg)
      NEXT FIELD tipo 
   END IF
 
  AFTER FIELD orden_compra

# Verifica que la orden de compra este en el archivo y 
# ademas obliga a que el usuario tenga que digitar este campo

   IF datos_gen.orden_compra IS NULL THEN
      LET numero_msg = 16
      CALL msg(numero_msg)
      NEXT FIELD orden_compra
   ELSE
     SELECT unique a.orden_compra FROM intb00006 a
             WHERE a.tipo = datos_gen.tipo AND
                   a.orden_compra = datos_gen.orden_compra

               IF status >= 0 THEN
                 IF STATUS = NOTFOUND THEN
                   LET numero_msg = 73
                   CALL msg(numero_msg)
                   NEXT FIELD tipo         
                 END IF
                   ELSE  
                 CALL integridad()
               
                        if bandera = 1 THEN
                          LET bandera = 0
                          RETURN
                      end if 
                  END IF

     SELECT cod_sp,cod_sp_sec,cierre INTO datos_gen.cod_sp,datos_gen.cod_sp_sec,
                                          devuelta
         FROM cotb00014 WHERE tipo = datos_gen.tipo AND
                              num_oc = datos_gen.orden_compra

               IF status >= 0 THEN
                 IF STATUS = NOTFOUND THEN
                   LET numero_msg = 3 
                   CALL msg(numero_msg)
                   NEXT FIELD orden_compra
                 END IF
                   ELSE  
                 CALL integridad()
               
                        if bandera = 1 THEN
                          LET bandera = 0
                          RETURN
                      end if 
                  END IF

    SELECT UNIQUE nom_sp INTO datos_gen.nom_sp FROM cotb00001 WHERE 
                   cod_sp = datos_gen.cod_sp and
                   cod_sp_sec = datos_gen.cod_sp_sec and 
                   status_t is null

   DISPLAY BY NAME datos_gen.nom_sp,datos_gen.cod_sp,datos_gen.cod_sp_sec
END IF

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

  FOR idx = 1 to arr_count()
      LET movi[idx].cod_n = null
      LET movi[idx].cod_grupo = null
      LET movi[idx].cod_tipo = null
      LET movi[idx].cod_sec = null
      LET movi[idx].cantidad_1 = null
      LET movi[idx].cantidad_2 = null
      LET movi[idx].unidad_med = null
      LET movi[idx].descrip_esp = null
  END FOR
     SLEEP 1
     RETURN
  END IF

    IF datos_gen.num_doc IS NULL then
      LET numero_msg = 16
      CALL msg(numero_msg)
      NEXT FIELD num_doc
    ELSE
    SELECT UNIQUE num_doc FROM intb00006 WHERE num_doc = datos_gen.num_doc and 
                        cod_mov = datos_gen.cod_mov and
                        status_t is null
   IF status >= 0 THEN
      IF status != NOTFOUND THEN
         LET numero_msg = 12
         CALL msg(numero_msg)
         NEXT FIELD num_doc
     END IF
   ELSE
   CALL integridad()

         if bandera = 1 THEN
           CLEAR SCREEN
           RETURN
       end if 
  END IF
END IF
   
# Verifica que la orden de compra este en el archivo y 
# ademas obliga a que el usuario tenga que digitar este campo

   IF datos_gen.orden_compra IS NULL THEN
      LET numero_msg = 16
      CALL msg(numero_msg)
      NEXT FIELD orden_compra
   ELSE
     SELECT cod_sp,cod_sp_sec INTO datos_gen.cod_sp,datos_gen.cod_sp_sec
         FROM cotb00014 WHERE tipo = datos_gen.tipo AND
                              num_oc = datos_gen.orden_compra

               IF status >= 0 THEN
                 IF STATUS = NOTFOUND THEN
                   LET numero_msg = 3 
                   CALL msg(numero_msg)
                   NEXT FIELD orden_compra
                 END IF
                   ELSE  
                 CALL integridad()
               
                        if bandera = 1 THEN
                          LET bandera = 0
                          RETURN
                      end if 
                  END IF

    SELECT UNIQUE nom_sp INTO datos_gen.nom_sp FROM cotb00001 WHERE 
                   cod_sp = datos_gen.cod_sp and
                   cod_sp_sec = datos_gen.cod_sp_sec and 
                   status_t is null

   DISPLAY BY NAME datos_gen.nom_sp,datos_gen.cod_sp,datos_gen.cod_sp_sec

 END IF
 EXIT INPUT
END INPUT

     INITIALIZE ant_art.* TO NULL

 IF opc = "S" or opc = "s" OR opc IS NULL THEN
  FOR idx = 1 to arr_count()
      LET movi[idx].cod_n = null
      LET movi[idx].cod_grupo = null
      LET movi[idx].cod_tipo = null
      LET movi[idx].cod_sec = null
      LET movi[idx].cantidad_2 = null
      LET movi[idx].cantidad_1 = null
      LET movi[idx].unidad_med = null
      LET movi[idx].descrip_esp = null
  END FOR
END IF

IF opc = "S" or opc = "s" or opc is null THEN
DECLARE materiales CURSOR FOR 
  SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.cantidad,
         b.unidad_med,b.descrip_esp
   FROM cotb00015 a,intb00001 b
  WHERE a.tipo = datos_gen.tipo and
        a.num_oc = datos_gen.orden_compra and
        a.cod_n = b.cod_n and
        a.cod_grupo = b.cod_grupo and
        a.cod_tipo = b.cod_tipo and
        a.cod_sec = b.cod_sec

LET idx = 1
  FOREACH materiales INTO movi[idx].*
    IF status = notfound THEN
      EXIT FOREACH
    END IF

  IF OPC = "S" OR opc = "s" or opc is null THEN 
     LET movi[idx].cantidad_1 = null
 END IF

     LET idx = idx + 1
 END FOREACH

  CALL set_count(idx - 1)
END IF
 LABEL volver:
     INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.* 
 

     AFTER FIELD cantidad_1

    LET p_act = arr_curr()
    LET scr_l = scr_line()
       
     IF movi[p_act].cantidad_1 is not null THEN

       SELECT sum(cantidad_2) INTO chequea.existe FROM intb00006
       WHERE cod_n = movi[p_act].cod_n and cod_grupo = movi[p_act].cod_grupo and
             cod_tipo=movi[p_act].cod_tipo and cod_sec=movi[p_act].cod_sec and
             status_t is null

   CALL integridad()

      IF bandera = 1 THEN
           CLEAR SCREEN
           RETURN
       END IF 

       IF movi[p_act].cantidad_1 > chequea.existe THEN
           LET numero_msg = 30
           CALL msg(numero_msg)
           NEXT FIELD cod_n
       END IF 

          LET cant = chequea.existe - movi[p_act].cantidad_1

       IF cant <= chequea.pto THEN                   
         LET numero_msg = 31
         CALL msg(numero_msg)
         LET cant = 0
    END IF


  # Verifica que la cantidad recibida mas las que se han recibida de 
  # la orden no exceda de un 10% de la cantidad total de la orden

       SELECT sum(cantidad_2) INTO recibida          FROM intb00006
               WHERE tipo  = datos_gen.tipo and
                     orden_compra = datos_gen.orden_compra and
                     cod_n = movi[p_act].cod_n and
                     cod_grupo = movi[p_act].cod_grupo and
                     cod_tipo = movi[p_act].cod_tipo and
                     cod_sec = movi[p_act].cod_sec 

       IF recibida is null THEN
        LET numero_msg = 73
        CALL msg(numero_msg)
        NEXT FIELD cantidad_1
     END IF

       SELECT cantidad INTO ordenada          FROM cotb00015
               WHERE tipo      = datos_gen.tipo and
                     num_oc    = datos_gen.orden_compra and
                     cod_n     = movi[p_act].cod_n and
                     cod_grupo = movi[p_act].cod_grupo and
                     cod_tipo  = movi[p_act].cod_tipo and
                     cod_sec   = movi[p_act].cod_sec

       IF ordenada is null THEN
        LET ordenada = 0
     END IF
       LET porciento = ordenada  * 0.10

    IF movi[p_act].cantidad_1 > recibida   THEN
      LET numero_msg = 33
      CALL msg(numero_msg)
      NEXT FIELD cantidad_1
   END IF

       LET r_cantidad = recibida + porciento

    IF movi[p_act].cantidad_1 > r_cantidad THEN
      LET numero_msg = 33
      CALL msg(numero_msg)
      NEXT FIELD cantidad_1
   END IF
 END IF

    AFTER INPUT

      IF int_flag THEN
         LET numero_msg = 2
         CALL msg(numero_msg)
         LET int_flag = false
      FOR idx = 1 to arr_count()
      LET movi[idx].cod_n = null
      LET movi[idx].cod_grupo = null
      LET movi[idx].cod_tipo = null
      LET movi[idx].cod_sec = null
      LET movi[idx].cantidad_1 = null
      LET movi[idx].cantidad_2 = null
      LET movi[idx].unidad_med = null
      LET movi[idx].descrip_esp = null
  END FOR
         SLEEP 1
         RETURN
      END IF

    FOR idx = 1 TO arr_count()
    IF movi[idx].cantidad_1 is not null THEN

       SELECT sum(cantidad_2) INTO chequea.existe
       FROM intb00006
         WHERE 
                cod_n = movi[idx].cod_n and
                cod_grupo = movi[idx].cod_grupo and
                cod_tipo  = movi[idx].cod_tipo and
                cod_sec   = movi[idx].cod_sec and
                status_t is null

   CALL integridad()

         if bandera = 1 THEN
           CLEAR SCREEN
           RETURN
       end if 
       IF movi[idx].cantidad_1 > chequea.existe THEN
          LET numero_msg = 225
          CALL msg(numero_msg)
          NEXT FIELD cod_n
      END IF 

          LET cant = chequea.existe - movi[idx].cantidad_1

       IF cant <= chequea.pto THEN                   
         LET numero_msg = 31
         CALL msg(numero_msg)
         LET cant = 0
       END IF

  # Verifica que la cantidad recibida mas las que se han recibida de 
  # la orden no exceda de un 10% de la cantidad total de la orden

       SELECT sum(cantidad_2) INTO recibida          FROM intb00006
               WHERE tipo  = datos_gen.tipo and
                     orden_compra = datos_gen.orden_compra and
                     cod_n = movi[idx].cod_n and
                     cod_grupo = movi[idx].cod_grupo and
                     cod_tipo = movi[idx].cod_tipo and
                     cod_sec = movi[idx].cod_sec 

               IF status >= 0 THEN
                 IF STATUS = NOTFOUND THEN
                   LET numero_msg = 73
                   CALL msg(numero_msg)
                   NEXT FIELD cantidad_1  
                 END IF
                   ELSE  
                 CALL integridad()
               
                        if bandera = 1 THEN
                          LET bandera = 0
                          RETURN
                      end if 
                  END IF

       SELECT cantidad INTO ordenada          FROM cotb00015
               WHERE tipo  = datos_gen.tipo and
                     num_oc= datos_gen.orden_compra and
                     cod_n = movi[idx].cod_n and
                     cod_grupo = movi[idx].cod_grupo and
                     cod_tipo = movi[idx].cod_tipo and
                     cod_sec = movi[idx].cod_sec

       IF recibida is null THEN
        LET recibida = 0
     END IF

       IF ordenada is null THEN
        LET ordenada = 0
     END IF
       LET porciento = ordenada  * 0.10
       LET r_cantidad = recibida + porciento

    IF movi[idx].cantidad_1 > r_cantidad THEN
      LET numero_msg = 33
      CALL msg(numero_msg)
      NEXT FIELD cantidad_1
   END IF
END IF
END FOR

LET total_cantidad = 0

FOR idx = 1 to arr_count()
 IF movi[idx].cantidad_1 is not null THEN
    LET total_cantidad = movi[idx].cantidad_1 + total_cantidad
END IF
END FOR

     IF movi[p_act].cod_n is null THEN
       CALL limpia()
END IF
     IF movi[p_act].cod_grupo is null THEN
       CALL limpia()
END IF
     IF movi[p_act].cod_tipo is null THEN
       CALL limpia()
END IF
     IF movi[p_act].cod_sec is null THEN
       CALL limpia()
END IF

     IF movi[p_act].cantidad_1 is not null THEN

       SELECT sum(cantidad_2) INTO chequea.existe FROM intb00006
       WHERE cod_n = movi[p_act].cod_n and cod_grupo = movi[p_act].cod_grupo and
             cod_tipo=movi[p_act].cod_tipo and cod_sec=movi[p_act].cod_sec and
             status_t is null

   CALL integridad()

      IF bandera = 1 THEN
           CLEAR SCREEN
           RETURN
       END IF 

       IF movi[p_act].cantidad_1 > chequea.existe THEN
           LET numero_msg = 30
           CALL msg(numero_msg)
           NEXT FIELD cod_n
       END IF 
    END IF

    EXIT INPUT
  END INPUT

    PROMPT "Toda la Informacion Esta Correcta? (S/N)" FOR CHAR opc
    IF OPC = "S" or OPC = "s" THEN
       SELECT sum(cantidad_2) INTO recibida          FROM intb00006
               WHERE orden_compra = datos_gen.orden_compra 

       SELECT sum(cantidad) INTO ordenada          FROM cotb00015
               WHERE num_oc       = datos_gen.orden_compra

       IF recibida is null THEN
        LET recibida = 0
     END IF

       IF ordenada is null THEN
        LET ordenada = 0
     END IF

       LET porciento = ordenada  * 0.10
       LET r_cantidad = ordenada + porciento


    IF total_cantidad >= r_cantidad THEN
       LET devuelta = "S"
   END IF

     FOR idx = 1 TO arr_count()
   IF movi[idx].cantidad_1 is not null THEN

      LET movi[idx].cantidad_1 = movi[idx].cantidad_1 * -1
       INSERT INTO intb00006 VALUES
                 (datos_gen.num_doc,datos_gen.fecha,datos_gen.fact_no,
                  datos_gen.conduce_no,datos_gen.orden_compra,datos_gen.tipo,
                  datos_gen.cod_sp,datos_gen.cod_sp_sec,datos_gen.cod_mov,
                  movi[idx].cod_n,movi[idx].cod_grupo,
                  movi[idx].cod_tipo,movi[idx].cod_sec,movi[idx].cantidad_2,
                  movi[idx].cantidad_1,null,null,null,
                  ultimo.cond_recep,ultimo.uso_tiempo,datos_gen.bodega,
                  null,user,current,null,null)
   CALL integridad()

         if bandera = 1 THEN
           CLEAR SCREEN
           RETURN
       end if 

      EXECUTE actualiza USING movi[idx].cantidad_2,
                              movi[idx].cod_n,movi[idx].cod_grupo,
                              movi[idx].cod_tipo,movi[idx].cod_sec     
   CALL integridad()

         if bandera = 1 THEN
            LET bandera = 0
           RETURN
       end if 
    END IF
   END FOR

  IF devuelta = "S" OR devuelta = "D" THEN
     UPDATE cotb00014 set cierre = "D"
          WHERE tipo = datos_gen.tipo AND
                num_oc = datos_gen.orden_compra
 END IF


      FOR idx = 1 to arr_count()
      LET movi[idx].cod_n = null
      LET movi[idx].cod_grupo = null
      LET movi[idx].cod_tipo = null
      LET movi[idx].cod_sec = null
      LET movi[idx].cantidad_1 = null
      LET movi[idx].cantidad_2 = null
      LET movi[idx].unidad_med = null
      LET movi[idx].descrip_esp = null
    DISPLAY movi[idx].cod_n to s_movi1[idx].cod_n
    DISPLAY movi[idx].cod_grupo to s_movi1[idx].cod_grupo
    DISPLAY movi[idx].cod_tipo to s_movi1[idx].cod_tipo
    DISPLAY movi[idx].cod_sec  to s_movi1[idx].cod_sec
    DISPLAY movi[idx].descrip_esp to s_movi1[idx].descrip_esp
    DISPLAY movi[idx].unidad_med to s_movi1[idx].unidad_med
  END FOR
          LET numero_msg = 1
          CALL msg(numero_msg)
        CLEAR FORM
     ELSE
         GOTO otra_vez
   END IF
    GOTO vuelve
END FUNCTION