MBS/PROYECTOS/indir/inprcs041.4gl

{
 PROGRAMA          : INPRCS041
 OBJETIVO          : Programa Consulta Movimientos Materia Prima:
                     Otros Movimientos Materia Prima.
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Agosto 17,1992. 
}
GLOBALS
  "inprgb000.4gl"

 MAIN                
   DEFER INTERRUPT
   SELECT * INTO p_companias.* FROM companias
   CALL inprcs041()
 END MAIN
 
FUNCTION inprcs041()
  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
    LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
    DISPLAY p_companias.nombre CLIPPED AT 3,lj ATTRIBUTE (REVERSE,YELLOW)
    DISPLAY fecha1 AT 3,70 ATTRIBUTE (YELLOW)
    DISPLAY hora1 AT 4,73 ATTRIBUTE (YELLOW)
    DISPLAY "Otros Movimientos de Materia Prima" AT 4,23
    DISPLAY "<Esc> Ejecuta Consulta " AT 5,2  ATTRIBUTE (YELLOW,REVERSE)
    DISPLAY "<CTRL-C> Cancela Operacion" AT 5,54  ATTRIBUTE (YELLOW,REVERSE)
    DISPLAY "inprcs041" AT 3,3 ATTRIBUTE (YELLOW)
  OPEN FORM infmcs041 FROM "infmcs041" 
  DISPLAY FORM infmcs041
   
  INITIALIZE datos_gen.* TO NULL
  #WHENEVER ERROR CONTINUE

 LABEL volver:
 DISPLAY "                                                                     "
 AT 1,1

   CONSTRUCT criterio ON a.num_doc,a.cod_mov,a.fecha
                    FROM num_doc,cod_mov,fecha

   LET SELEC = "SELECT UNIQUE a.num_doc,a.cod_mov,a.fecha,",
               "bodega FROM intb00006 a  ",
               " WHERE ", criterio clipped,
               " and a.cod_mov != 36 ",
               " and a.cod_mov != 34 ",
               " and a.cod_mov != 35 ",
               " and a.cod_mov != 38 ",
               " and a.cod_mov != 48 ",             
               " and a.cod_mov != 99 ",
               " 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 otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                       otros_mov.bodega
   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 END IF
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM intb00005 WHERE 
           cod_mov = otros_mov.cod_mov
 DISPLAY BY NAME  otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                  otros_mov.bodega,otros_mov.descrip_mov
  LABEL vuelve1:
  MENU "OPCION"
    COMMAND "Siguiente"
            "Presenta en pantalla SIGUIENTE registro encontrado."
FETCH NEXT  johnn INTO otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                       otros_mov.bodega
   IF status = notfound THEN
    LET numero_msg = 5
    CALL msg(numero_msg)
 END IF
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM intb00005 WHERE 
           cod_mov = otros_mov.cod_mov
 DISPLAY BY NAME  otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                  otros_mov.descrip_mov
    COMMAND "Anterior"
            "Presenta en pantalla el registro ANTERIOR encontrado."
FETCH PREVIOUS johnn INTO otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                       otros_mov.bodega
   IF status = notfound THEN
    LET numero_msg = 5
    CALL msg(numero_msg)
 END IF
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM intb00005 WHERE 
           cod_mov = otros_mov.cod_mov
 DISPLAY BY NAME  otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                  otros_mov.descrip_mov
    COMMAND "Primero"
            "Presenta en pantalla PRIMER registro encontrado."
FETCH FIRST johnn INTO otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                       otros_mov.bodega
    LET numero_msg = 5
    CALL msg(numero_msg)
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM intb00005 WHERE 
           cod_mov = otros_mov.cod_mov
 DISPLAY BY NAME  otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                  otros_mov.descrip_mov
    COMMAND "Ultimo"
            "Presenta en pantalla ULTIMO registro encontrado."
FETCH LAST johnn INTO otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                       otros_mov.bodega
    LET numero_msg = 4
    CALL msg(numero_msg)
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM intb00005 WHERE 
           cod_mov = otros_mov.cod_mov
 DISPLAY BY NAME  otros_mov.num_doc,otros_mov.cod_mov,otros_mov.fecha,
                  otros_mov.descrip_mov
      COMMAND "Ver"
    CALL desplega2()
    DISPLAY ARRAY movi2 to s_movi1.*
   IF int_flag THEN
    LET numero_msg = 2
    CALL msg(numero_msg)
    LET int_flag = false
    GOTO vuelve1
 END IF
  CLEAR FORM
 GOTO volver
   COMMAND "Retornar"
     EXIT MENU
    END MENU
   CLEAR SCREEN
END FUNCTION
FUNCTION desplega2()
   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 FROM intb00001 k,intb00006 p 
              WHERE
                 p.num_doc = otros_mov.num_doc and
                 p.cod_mov = otros_mov.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 
   OPEN jhonn 
   LET idx = 1
FOREACH  jhonn  INTO movi2[idx].*
   LET idx = idx + 1
   CALL integridad()
   IF bandera = 1 THEN
      CLEAR SCREEN
      RETURN
   end if
   IF STATUS = NOTFOUND THEN
     EXIT FOREACH
     RETURN
   END IF
 END FOREACH
    CALL set_count(idx - 1)
END FUNCTION