GLOBALS
 "irprgb000.4gl"
 {
FUNCTION ccodn()
 DEFINE pcod_n SMALLINT, pdesc_n char(20)
        
  CALL kcodn.clear()
  
  DECLARE busca_inventario CURSOR FOR
    SELECT a.cod_n,a.producto FROM iptb00020 a
    WHERE cod_inv = '7'
    
  FOREACH busca_inventario INTO pcod_n,pdesc_n
   CALL kcodn.additem(pcod_n,pdesc_n)
  END FOREACH


END FUNCTION
FUNCTION ccodgrupo()
DEFINE pcod_grupo SMALLINT, pdesc_grupo char(20)
        
  CALL kcodgrupo.clear()
  
  DECLARE busca_grupo CURSOR FOR
    SELECT a.cod_grupo,a.descripcion FROM iptb00029 a
     WHERE cod_inv = '7'

    
  FOREACH busca_grupo INTO pcod_grupo,pdesc_grupo
   CALL kcodgrupo.additem(pcod_grupo,pdesc_grupo)
  END FOREACH


END FUNCTION
FUNCTION ccodtipo()
DEFINE pcod_tipo SMALLINT, pdesc_tipo char(20)
        
  CALL kcodtipo.clear()
  
  DECLARE busca_tipo CURSOR FOR
    SELECT a.cod_tipo,a.descripcion FROM iptb00024 a
    WHERE cod_inv = '7'
    
  FOREACH busca_tipo INTO pcod_tipo,pdesc_tipo
   CALL kcodtipo.additem(pcod_tipo,pdesc_tipo)
  END FOREACH


END FUNCTION

}

FUNCTION reimprime(xprograma)
  DEFINE xprograma CHAR(20)
  
  IF xprograma = 'irprmt036' THEN
     CONSTRUCT criterio ON a.cod_mov,a.num_doc,a.fecha,a.sec_a FROM
                          cod_mov,num_doc,fecha,depto_a
  AFTER CONSTRUCT
   IF INT_FLAG THEN
      LET INT_FLAG = FALSE
      CALL msg(2)
      EXIT PROGRAM
   END IF
   END CONSTRUCT
      LET selec = "SELECT distinct b.cod_mov,b.descrip_mov,a.num_doc,",
              "       CONVERT(CHAR(10),a.fecha,103),a.depto_a,a.num_emp FROM irtb00006 a,irtb00005 b ",
              " WHERE ",criterio CLIPPED," AND ",
              "       a.cod_mov = b.cod_mov AND a.status_t IS NULL "
  


   ELSE
        CONSTRUCT criterio ON a.num_doc,a.fecha,a.sec_a FROM
                               num_doc,fecha,depto_a
    LET selec = "SELECT distinct b.cod_mov,b.descrip_mov,a.num_doc,",
              "       CONVERT(CHAR(10),a.fecha,103),a.depto_a,a.num_emp FROM intb00006 a,intb00005 b ",
              " WHERE ",criterio CLIPPED," AND a.cod_mov =36 and ",
              "       a.cod_mov = b.cod_mov AND a.status_t IS NULL "
  
   
  END IF 
   PREPARE breimprime FROM selec
    DECLARE bdocumento SCROLL CURSOR FOR breimprime
   OPEN bdocumento
    
   FETCH FIRST bdocumento INTO otros_mov.cod_mov,otros_mov.descrip_mov,
                               otros_mov.num_doc,otros_mov.fecha,  
                               datos1.num_doc

                               IF STATUS = NOTFOUND THEN
                                  CALL msg(3)
                                  RETURN
                               END IF
                               
    CALL busca_info()
           
   MENU "NAVEGACION:"
     COMMAND "Siguiente" "Busca el siguiente documento"
       FETCH NEXT bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
                               otros_mov.num_doc,otros_mov.fecha,  
                               datos1.depto_a,pnum_emp
       CALL busca_info()
   
     COMMAND "Primero" "Busca el siguiente documento"
       FETCH FIRST bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
                               otros_mov.num_doc,otros_mov.fecha,  
                               datos1.depto_a,pnum_emp
        CALL busca_info() 
      COMMAND "Anterior" "Busca el Registrosiguiente documento"
       FETCH PREVIOUS bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
                               otros_mov.num_doc,otros_mov.fecha,  
                               datos1.depto_a,pnum_emp
        CALL busca_info()
      COMMAND "Ultimo" "Busca el Ultimo Documento"
       FETCH LAST bdocumento INTO  otros_mov.cod_mov,otros_mov.descrip_mov,
                               otros_mov.num_doc,otros_mov.fecha,  
                               datos1.depto_a,pnum_emp
         CALL busca_info()
      COMMAND KEY("T") "reTornar" "Salir de busqueda"
        EXIT MENU
     END MENU
  END FUNCTION