{
----------------------------------------------------------------------------
 PROGRAMA          : IRPRCS031
 OBJETIVO          : Programa Consulta Movimientos Repuestos:    
                     Otros Movimientos.
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Marzo 2, 1993.   
----------------------------------------------------------------------------
}
GLOBALS
  "irprgb000.4gl"

FUNCTION irprcs031()
  DEFINE fecha1 char(8)
  DEFINE hora1 char(5)
  LET fecha1 = today using "dd/mm/yy"
  LET hora1 = time
  LET int_flag = false
  LET bandera = 0
  
  CLEAR SCREEN
  OPTIONS
    ERROR LINE 24,
    FORM LINE 6,
    COMMENT LINE 22,
    PROMPT LINE 23
    DISPLAY " R A Y . O . V A C  D O M I N I C A N A " AT 3,19
            ATTRIBUTE (REVERSE,blue)
    DISPLAY fecha1 AT 3,70 ATTRIBUTE (blue)
    DISPLAY hora1 AT 4,73 ATTRIBUTE (blue)
    DISPLAY "Otros Movimientos de Repuestos" AT 4,27
    DISPLAY "<Esc> Realiza Busqueda" AT 5,2 ATTRIBUTE (blue,REVERSE)
    DISPLAY "<Ctrl-C> Cancela Operacion" AT 5,50  ATTRIBUTE (blue,REVERSE)
    DISPLAY "irprcs031" AT 3,2 ATTRIBUTE (blue)
  OPEN FORM irfmcs031 FROM "irfmcs031" 
  DISPLAY FORM irfmcs031
   
  INITIALIZE datos_gen.* TO NULL
  #WHENEVER ERROR CONTINUE

  LABEL volver:
 DISPLAY "                                                                     "
AT 1,1
   CONSTRUCT criterio ON a.cod_mov,a.num_doc
                    FROM cod_mov,num_doc

           LET SELEC = "SELECT UNIQUE a.cod_mov,a.num_doc,a.fecha, ",
                                      "a.sec_a,a.orden_compra  ",
                        " FROM irtb00006 a  ",
                       " WHERE ", criterio clipped,
                       " and a.cod_mov > 2 ",
                       " and a.cod_mov != 99 ",
                       " and a.status_t is null ",
                       " ORDER BY 1"
IF int_flag THEN
 LET numero_msg = 2
 CALL msg(numero_msg)
 RETURN
END IF
PREPARE busca FROM selec
DECLARE johnn SCROLL CURSOR FOR busca
OPEN johnn

FETCH FIRST johnn INTO datos1.cod_mov ,datos1.num_doc,datos1.fecha,
                       datos1.secc_a,datos1.orden_compra

   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 END IF
  SELECT descrip_mov INTO datos1.descrip_mov FROM irtb00005
   WHERE cod_mov = datos1.cod_mov

 DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.secc_a,    
                  datos1.cod_mov,datos1.orden_compra,
                  datos1.nom_seccion,datos1.descrip_mov
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.

    MENU "OPCINES"
    COMMAND "Siguiente"
FETCH NEXT     johnn INTO datos1.cod_mov ,datos1.num_doc,datos1.fecha,
                       datos1.secc_a,     datos1.orden_compra

   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 END IF

  SELECT descrip_mov INTO datos1.descrip_mov FROM irtb00005
   WHERE cod_mov = datos1.cod_mov
   SELECT nombre INTO datos1.nom_seccion FROM irtb00004
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.
      WHERE codigo      = datos1.secc_a    and
            status_t is null
 DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.secc_a,    
                  datos1.cod_mov ,datos1.num_doc,datos1.secc_a,     
                  datos1.orden_compra,
                  datos1.nom_seccion,datos1.descrip_mov
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.

    COMMAND "Anterior"
            "Presenta en pantalla el registro ANTERIOR encontrado."
FETCH PREVIOUS johnn INTO datos1.cod_mov ,datos1.num_doc,datos1.fecha,
                       datos1.secc_a,datos1.orden_compra

   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 END IF
  SELECT descrip_mov INTO datos1.descrip_mov FROM irtb00005
   WHERE cod_mov = datos1.cod_mov
   SELECT nombre INTO datos1.nom_seccion FROM irtb00004
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.
      WHERE codigo      = datos1.secc_a    and
            status_t is null
 DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.secc_a,    
                  datos1.cod_mov ,datos1.num_doc,datos1.secc_a,     
                  datos1.orden_compra,datos1.nom_seccion,datos1.descrip_mov
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.
    COMMAND "Primero"
            "Presenta en pantalla PRIMER registro encontrado."
FETCH FIRST    johnn INTO datos1.cod_mov ,datos1.num_doc,datos1.fecha,
                       datos1.secc_a,datos1.orden_compra

   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 END IF
   SELECT nombre INTO datos1.nom_seccion FROM irtb00004
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.
      WHERE codigo      = datos1.secc_a    and
            status_t is null
 DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.secc_a,    
                  datos1.cod_mov ,datos1.num_doc,datos1.secc_a,     
                  datos1.orden_compra,datos1.nom_seccion,datos1.descrip_mov
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.

    COMMAND "Ultimo"
            "Presenta en pantalla ULTIMO registro encontrado."
FETCH LAST     johnn INTO datos1.cod_mov ,datos1.num_doc,datos1.fecha,
                       datos1.secc_a,datos1.orden_compra

   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 END IF

  SELECT descrip_mov INTO datos1.descrip_mov FROM irtb00005
   WHERE cod_mov = datos1.cod_mov
   SELECT nombre INTO datos1.nom_seccion FROM irtb00004
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.
      WHERE codigo      = datos1.secc_a    and
            status_t is null
 DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.secc_a,    
                  datos1.cod_mov ,datos1.num_doc,datos1.secc_a,     
                  datos1.orden_compra,
                  datos1.nom_seccion,datos1.descrip_mov
| fglcomp: The symbol "datos1.nom_seccion" does not represent a defined variable.
| See error number -4369.

      COMMAND "Ver"
    CALL desplega1()

   DISPLAY ARRAY movi4 TO s_movi1.*

   IF int_flag THEN
    LET numero_msg = 2
    CALL msg(numero_msg)
    LET int_flag = false
 END IF
  CLEAR FORM
 GOTO volver
      COMMAND "Retornar"
        EXIT MENU
      END MENU
    CLEAR SCREEN
   RETURN
END FUNCTION

 FUNCTION desplega1()
   DECLARE jhonn  CURSOR FOR 
   SELECT p.cod_n,p.cod_grupo,p.cod_tipo,p.cod_sec,p.cantidad_2,
          k.unidad_med,k.descrip_esp,p.maquina FROM intb00001 k,irtb00006 p 
              WHERE
                 p.num_doc = datos1.num_doc and
                 p.cod_mov = datos1.cod_mov and
                 p.cod_n   = k.cod_n and 
                 p.cod_grupo = k.cod_grupo and 
                 p.cod_tipo  = k.cod_tipo and 
                 p.cod_sec   = k.cod_sec and 
                 p.status_t is null and
                 k.status_t is null  

   OPEN jhonn 
        CALL integridad()

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

FOREACH jhonn  INTO movi1[idx].*
  IF movi1[idx].cantidad_2 < 0 THEN
      LET movi1[idx].cantidad_2 = movi1[idx].cantidad_2 * -1
   END IF

        CALL integridad()
        IF bandera = 1 THEN
           LET bandera = 0
           RETURN
        END IF

        IF STATUS = NOTFOUND THEN
           EXIT FOREACH
           RETURN
        END IF

        LET movi4[idx].codigo = movi1[idx].cod_n using "&", "-",
                                movi1[idx].cod_grupo using "&", "-",
                                movi1[idx].cod_tipo using "&&","-",
                                movi1[idx].cod_sec using "&&&"
        LET movi4[idx].cantidad_2 = movi1[idx].cantidad_2 using "##,###,###.##"
        LET movi4[idx].unidad_med = movi1[idx].unidad_med 
        LET movi4[idx].descrip_esp = movi1[idx].descrip_esp
        LET movi4[idx].maquina = movi1[idx].maquina
        LET idx = idx + 1
 END FOREACH

    CALL set_count(idx - 1)

END FUNCTION