{
-------------------------------------------------------------------------
 PROGRAMA          : INPRCS011
 OBJETIVO          : Programa Consulta Movimientos Materia Prima:
                     Materiales Devueltos al Suplidor.
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Agosto 14,1992. 
-------------------------------------------------------------------------
}
GLOBALS
  "inprgb000.4gl"
  
MAIN                
   DEFER INTERRUPT
   SELECT * INTO p_companias.* FROM companias
   CALL inprcs011()
 END MAIN
 
FUNCTION inprcs011()
  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 "Materiales Devueltos al Suplidor" AT 4,24
    DISPLAY "<Esc> Ejecuta Consulta " AT 5,2  ATTRIBUTE (YELLOW,REVERSE)
    DISPLAY "<CTRL-C> Cancela Operacion" AT 5,54  ATTRIBUTE (YELLOW,REVERSE)
    DISPLAY "inprcs011" AT 3,3 ATTRIBUTE (YELLOW)
  
  OPEN FORM infmcs011 FROM "infmcs011"
  DISPLAY FORM infmcs011
   
  INITIALIZE datos_gen.* TO NULL
   WHENEVER ERROR CONTINUE

  LABEL volver:
 DISPLAY "                                                                     "
AT 1,1
   CONSTRUCT criterio ON a.num_doc,a.orden_compra,a.fecha,a.cod_sp,a.cod_sp_sec
                    FROM num_doc,orden_compra,fecha,cod_sp,cod_sp_sec

           LET SELEC = "SELECT UNIQUE a.num_doc,a.fecha,a.orden_compra,", 
                                      "a.cod_sp,a.cod_sp_sec ",
                        " FROM intb00006 a  ",
                       " WHERE ", criterio clipped,
                       " and a.cod_mov = 38 ",             
                       " ORDER BY 1"
IF int_flag THEN
 LET numero_msg = 2
 CALL msg(numero_msg)
 RETURN
END IF
LET datos_gen.cod_mov = 38
PREPARE busca FROM selec
DECLARE johnn SCROLL CURSOR FOR busca
OPEN johnn

FETCH FIRST johnn INTO datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                       datos_gen.cod_sp,datos_gen.cod_sp_sec 

   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 END IF
   SELECT 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

 DISPLAY BY NAME  datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                  datos_gen.cod_sp,datos_gen.cod_sp_sec,datos_gen.nom_sp
  LABEL vuelve1:

  MENU "OPCION"
    COMMAND "Siguiente"
            "Presenta en pantalla SIGUIENTE registro encontrado."
FETCH NEXT johnn INTO datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                       datos_gen.cod_sp,datos_gen.cod_sp_sec 

   IF status = notfound THEN
    LET numero_msg = 5
    CALL msg(numero_msg)
 END IF
   SELECT 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

 DISPLAY BY NAME  datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                  datos_gen.cod_sp,datos_gen.cod_sp_sec,datos_gen.nom_sp

    COMMAND "Anterior"
            "Presenta en pantalla el registro ANTERIOR encontrado."
FETCH PREVIOUS johnn INTO datos_gen.num_doc,datos_gen.fecha,
                          datos_gen.orden_compra,datos_gen.cod_sp,
                          datos_gen.cod_sp_sec 

   IF status = notfound THEN
    LET numero_msg = 4
    CALL msg(numero_msg)
 END IF
   SELECT 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

 DISPLAY BY NAME  datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                  datos_gen.cod_sp,datos_gen.cod_sp_sec,datos_gen.nom_sp

    COMMAND "Primero"
            "Presenta en pantalla PRIMER registro encontrado."
FETCH FIRST johnn INTO datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                       datos_gen.cod_sp,datos_gen.cod_sp_sec 

    LET numero_msg = 5
    CALL msg(numero_msg)
   SELECT 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

 DISPLAY BY NAME  datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                  datos_gen.cod_sp,datos_gen.cod_sp_sec,datos_gen.nom_sp

    COMMAND "Ultimo"
            "Presenta en pantalla ULTIMO registro encontrado."
FETCH LAST johnn INTO datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                       datos_gen.cod_sp,datos_gen.cod_sp_sec 

    LET numero_msg = 4
    CALL msg(numero_msg)
   SELECT 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

 DISPLAY BY NAME  datos_gen.num_doc,datos_gen.fecha,datos_gen.orden_compra,
                  datos_gen.cod_sp,datos_gen.cod_sp_sec,datos_gen.nom_sp

  COMMAND "Ver"
          "Para Ver Los Codigos De Este Documento"
    LET opera1 = "S"
    CALL desplega()
    
   DISPLAY ARRAY movi TO s_movi1.*
   LET opera1 = "N"
   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