124 lines
4.0 KiB
Plaintext
124 lines
4.0 KiB
Plaintext
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
|