{
-----------------------------------------------------------------------------
PROGRAMA           : COPRCS009
FUNCION            : CONSULTA ORDENES DE COMPRA
PROGRAMADOR        : Ing. Juan Fco. Soto
FECHA              : Diciembre 1997
DIRECTOR PROYECTO  : JOSE ALFREDO PAULINO ALEJO
------------------------------------------------------------------------------
}
GLOBALS "coprgb000.4gl"

DEFINE nota,nota1,c_i_d,c_i_d1 CHAR(30)
MAIN
    DEFER INTERRUPT
    CALL ARG_VAL(1) RETURNING usuarios
    CALL ARG_VAL(2) RETURNING clave

    CONNECT TO "smarmotech" AS "SQL_C" USER usuarios USING clave
    SELECT a.* INTO p_companias.* FROM companias a

    CALL coprcs009()
END MAIN
FUNCTION coprcs009() 
  
    DEFINE fecha CHAR(8),
           hora char(5) 
   CLEAR SCREEN 
   OPTIONS
        FORM LINE 8,
        ERROR LINE 24,
        MESSAGE LINE 23


    LET fecha = today USING "dd/mm/yy"  
    LET hora = time
    DISPLAY "E L E C T R O D O M E S T I C O S  J U V I A R " AT 3,17
            ATTRIBUTE (REVERSE,YELLOW)
    DISPLAY fecha AT 3,70 ATTRIBUTE (YELLOW)
    DISPLAY "Sistema de Compras" AT 4,31
    DISPLAY hora AT 5,73 ATTRIBUTE(YELLOW)
    DISPLAY "<Esc> Busca Todas Las Ordenes" at 6,1
    DISPLAY "<Delete> Cancela Operacion" at 6,55
   OPEN FORM cofmcs009 FROM "cofmcs009"
   DISPLAY FORM cofmcs009
   DISPLAY "coprcs009" AT 3,3 
   DISPLAY "Ordenes de Compras" AT 5,31 ATTRIBUTE (BOLD)

  #WHENEVER ERROR CONTINUE

# Aqui se prepara para la captura del criterio de seleccion

  LABEL volver:
  CLEAR FORM
  DISPLAY "                                                              "
  AT 23,1
    CONSTRUCT criterio ON cotb00014.num_oc,cotb00014.tipo,cotb00014.fech_oc,
                          cotb00014.cod_sp,cotb00014.cod_sp_sec
                     FROM cotb00014.num_oc,cotb00014.tipo,cotb00014.fech_oc,
                          cotb00014.cod_sp,cotb00014.cod_sp_sec

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

     LET selec = 
         "SELECT UNIQUE num_oc,tipo,fech_oc,cod_sp,cod_sp_sec,via,enviada, ",
         "       fech_enviada,pago,fech_pago,cierre,cod_pt ",
         "FROM cotb00014 ",
         "WHERE status_t is null AND ",criterio clipped," ORDER BY 1"

    PREPARE busca FROM selec
                   
         IF bandera = 1 THEN
            LET bandera = 0
            RETURN
         END IF 

    DECLARE datos SCROLL CURSOR FOR busca
    OPEN datos 

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

    FETCH FIRST datos INTO ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt

      IF status >= 0 THEN 
          IF status = NOTFOUND THEN
          LET numero_msg = 3
          CALL msg(numero_msg)
          GOTO volver
       END IF

                   
           IF bandera = 1 THEN
              LET bandera = 0
              RETURN
           END IF 
      END IF
     SELECT nom_pt INTO descrip3 FROM cotb00019
          WHERE cod_pt = ordenes.cod_pt
    IF ordenes.cod_pt is null THEN
      LET descrip3 = null
   END IF

          LET p_programa = "CS"
          #CALL escoge()
          DISPLAY BY NAME suplidor.nom_sp,
                           ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt,descrip3
              ATTRIBUTE (BOLD)

  MENU "OPCIONES "
    COMMAND "Siguiente"
            "Presenta en pantalla el proximo registro encontrado"
        FETCH NEXT datos INTO ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt
            IF status = NOTFOUND THEN
               LET numero_msg = 4 
               CALL msg(numero_msg) 
            END IF
     SELECT nom_pt INTO descrip3 FROM cotb00019
          WHERE cod_pt = ordenes.cod_pt
    IF ordenes.cod_pt is null THEN
      LET descrip3 = null
   END IF
          LET p_programa = "CS"
          #CALL escoge()
          DISPLAY BY NAME suplidor.nom_sp,
                           ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt,descrip3
              ATTRIBUTE (BOLD)


    COMMAND "Anterior"
            "Presenta en pantalla el registro anterior encontrado"
            FETCH PREVIOUS datos INTO 
                          ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt
            IF status = NOTFOUND THEN
               LET numero_msg = 5 
               CALL msg(numero_msg) 
            END IF
     SELECT nom_pt INTO descrip3 FROM cotb00019
          WHERE cod_pt = ordenes.cod_pt
          LET p_programa = "CS"
          #CALL escoge()
    IF ordenes.cod_pt is null THEN
      LET descrip3 = null
   END IF
          DISPLAY BY NAME suplidor.nom_sp,
                           ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt,descrip3
              ATTRIBUTE (BOLD)

    COMMAND "Primero"
            "Presenta en pantalla el primer registro encontrado"
            FETCH FIRST datos INTO
                          ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt
          LET p_programa = "CS"
          #CALL escoge()
     SELECT nom_pt INTO descrip3 FROM cotb00019
          WHERE cod_pt = ordenes.cod_pt
    IF ordenes.cod_pt is null THEN
      LET descrip3 = null
   END IF
          DISPLAY BY NAME suplidor.nom_sp,
                           ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt,descrip3
              ATTRIBUTE (BOLD)

            LET numero_msg = 5 
            CALL msg(numero_msg) 

    COMMAND "Ultimo"
            "Presenta en pantalla el ultimo registro encontrado"
             FETCH LAST datos INTO
                          ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt
          LET p_programa = "CS"
          #CALL escoge()
     SELECT nom_pt INTO descrip3 FROM cotb00019
          WHERE cod_pt = ordenes.cod_pt
    IF ordenes.cod_pt is null THEN
      LET descrip3 = null
   END IF
          DISPLAY BY NAME suplidor.nom_sp,
                           ordenes.num_oc,ordenes.tipo,ordenes.fech_oc,
                           ordenes.cod_sp,ordenes.cod_sp_sec,ordenes.via,
                           ordenes.enviada,ordenes.fech_enviada,
                           ordenes.pago,ordenes.fech_pago,ordenes.cierre,
                           ordenes.cod_pt,descrip3
              ATTRIBUTE (BOLD)
             LET numero_msg = 4 
             CALL msg(numero_msg) 

     COMMAND "Ver"
      DISPLAY "Buscando Detalle del La Orden... Espere Por Favor" AT 23,1
      ATTRIBUTE (BOLD)

        DECLARE buscate CURSOR FOR
        SELECT a.num_req,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
               a.cantidad,a.precio,1     
        FROM cotb00015 a
        WHERE a.num_oc = ordenes.num_oc and a.tipo = ordenes.tipo and
              a.status_t is null

LET idx = 1
FOREACH buscate INTO detalle1.*

  LET cs_ordena[idx].num_req = detalle1.num_req
  LET cs_ordena[idx].codigo = detalle1.cod_n using "&","-",
                              detalle1.cod_grupo using "&","-",
                              detalle1.cod_tipo using "&&","-",
                              detalle1.cod_sec using "&&&"
  LET cs_ordena[idx].cantidad = detalle1.cantidad using "##########.##"
  LET cs_ordena[idx].precio = detalle1.precio using "##########.##"

  IF detalle1.base is not null THEN
     IF detalle1.base > 0 THEN
        LET cantidad_total=(detalle1.cantidad * detalle1.precio) / detalle1.base
        LET cs_ordena[idx].valor = cantidad_total using "#########.##"
     ELSE
        LET cantidad_total = (detalle1.cantidad * detalle1.precio) 
        LET cs_ordena[idx].valor = cantidad_total using "#########.##"
     END IF
  ELSE
     LET cantidad_total = (detalle1.cantidad * detalle1.precio) 
     LET cs_ordena[idx].valor = cantidad_total using "#########.##"
  END IF

  LET idx = idx + 1
END FOREACH

 DISPLAY "                                                 " AT 23,1
 MESSAGE "Precione Ctrl-B Busca Descripcion"

CALL set_count(idx - 1)
DISPLAY ARRAY cs_ordena TO cs_orden.*
 ON KEY (CONTROL-B)
   LET scr_l = arr_curr()
   LET detalle1.cod_n = cs_ordena[scr_l].codigo[1,1]
   LET detalle1.cod_grupo = cs_ordena[scr_l].codigo[3,3]
   LET detalle1.cod_tipo = cs_ordena[scr_l].codigo[5,6]
   LET detalle1.cod_sec = cs_ordena[scr_l].codigo[8,10]
   LET descrip5 = NULL
   LET articulos.descrip_esp = NULL
   LET articulos.unidad_med  = NULL

   IF ordenes.tipo = "01" THEN
      SELECT a.descrip_esp,a.unidad_med 
      INTO articulos.descrip_esp,articulos.unidad_med FROM intb00001 a 
      WHERE a.cod_n = detalle1.cod_n AND a.cod_grupo =detalle1.cod_grupo AND
            a.cod_tipo = detalle1.cod_tipo AND a.cod_sec = detalle1.cod_sec 
   END IF
   IF ordenes.tipo = "02" THEN
      SELECT a.descrip_esp,a.unidad_med 
      INTO articulos.descrip_esp,articulos.unidad_med FROM iptb00002 a 
      WHERE a.cod_n = detalle1.cod_n AND a.cod_grupo =detalle1.cod_grupo AND
            a.cod_tipo = detalle1.cod_tipo AND a.cod_sec = detalle1.cod_sec 
   END IF
   IF ordenes.tipo = "03" THEN
      SELECT a.descrip_esp,a.unidad_med 
      INTO articulos.descrip_esp,articulos.unidad_med FROM irtb00001 a 
      WHERE a.cod_n = detalle1.cod_n AND a.cod_grupo =detalle1.cod_grupo AND
            a.cod_tipo = detalle1.cod_tipo AND a.cod_sec = detalle1.cod_sec 
   END IF
   LET descrip5 = articulos.unidad_med," ",articulos.descrip_esp CLIPPED
   DISPLAY BY NAME descrip5 ATTRIBUTE (BOLD)

  ON KEY (CONTROL-W)
    LET scr_l = arr_curr()
    LET detalle1.cod_n = cs_ordena[scr_l].codigo[1,1]
    LET detalle1.cod_grupo = cs_ordena[scr_l].codigo[3,3]
    LET detalle1.cod_tipo = cs_ordena[scr_l].codigo[5,6]
    LET detalle1.cod_sec = cs_ordena[scr_l].codigo[8,10]

 END DISPLAY
 FOR idx = 1 to 4          
     LET cs_ordena[idx].num_req = null
     LET cs_ordena[idx].codigo = null
     LET cs_ordena[idx].cantidad = null
     LET cs_ordena[idx].precio = null
     LET cs_ordena[idx].valor = null

     DISPLAY cs_ordena[idx].num_req to cs_orden[idx].num_req
     DISPLAY cs_ordena[idx].codigo to cs_orden[idx].codigo
     DISPLAY cs_ordena[idx].cantidad to cs_orden[idx].cantidad
     DISPLAY cs_ordena[idx].precio to cs_orden[idx].precio
     DISPLAY cs_ordena[idx].valor to cs_orden[idx].valor
     DISPLAY BY NAME descrip5
 END FOR 

 IF int_flag THEN
    LET numero_msg = 2
    CALL msg(numero_msg)
    LET int_flag = false
    RETURN
 END IF
 COMMAND "Comentario"  
      CALL notascs()

 COMMAND "Retornar"
      LET p_programa = null
      GOTO volver
 END MENU
END FUNCTION

FUNCTION notascs()
 DEFINE opcion2 CHAR(1)
 OPEN WINDOW aplcs_notas AT 10,5 WITH FORM "cofmwd016"
       ATTRIBUTE (BORDER,FORM LINE FIRST + 1, comment line last -1)

      SELECT UNIQUE a.ship_to,a.n_a_b,a.c_i_d[1,30],a.c_i_d[31,60],
                    a.nota[1,30],a.nota[31,60]
      INTO notas.ship_to,notas.n_a_b,c_i_d,c_i_d1,nota,nota1
      FROM cotb00029 a
      WHERE a.num_oc = ordenes.num_oc AND a.tipo = ordenes.tipo AND
            a.status_t IS NULL 

       DISPLAY BY NAME notas.ship_to,notas.n_a_b,c_i_d,c_i_d1,nota,nota1

        PROMPT "Presione Cualquier Tecla para Continuar" FOR CHAR opcion2
 CLOSE WINDOW aplcs_notas
END FUNCTION