jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
69b4500eed3dbe651bbb0edfd7758d1f633e8e2a
MBS/PROYECTO/indir/inprrp019.4gl
T
jpeguero efdf8953dd Reorganiza MATERIA PRIMA a PROYECTO y avanza inprmt002/005/013/046 
- Mueve todo el contenido de PROYECTOS/indir y varias funciones
  compartidas de PROYECTOS/otrodir hacia PROYECTO, siguiendo
  instruccion de Johnny (PROYECTOS se va a eliminar).
- inprmt002: agrega campo Desglose faltante, corrige typo "eLiminar".
- inprmt005: agrega formulario y 3 campos faltantes (Consumo,
  Requiere Autorizacion, Requisiciones), corrige typo "eLiminar".
- inprmt013: agrega formulario, titulo, corrige typo "eLiminar".
- inprmt046: agrega formulario y varias funciones/dependencias
  faltantes (cincodmov, clasf_bloque, medidas, defecto,
  buscaEmp, consultaTransportista, busca_departamento);
  corrige nombres de campo desalineados con el codigo
  (depto_a, bodega) y los convierte a ComboBox donde el
  codigo lo requiere.
- Corrige dependencia faltante de FORMULARIOS_IN a la libreria
  Database (bloqueaba todo el modulo de MATERIA PRIMA).
2026-08-26 13:31:09 -04:00

265 lines
8.2 KiB
Plaintext
Raw Blame History

{
-------------------------------------------------------------------------------
PROGRAMA : INPRRP019
SISTEMA : Sistema de Inventario Materiales LEY 69.
OBJETIVO : Listado de la maestra de fianzas en una rango de fecha.
PROGRAMADOR : Tadeo A. Ferreras
FECHA REALIZACION : Agosto 04, 1993
-------------------------------------------------------------------------------
}
GLOBALS "inprgb000.4gl"
DEFINE mov CHAR(1)
DEFINE idx_1, idx_2, idx_3 SMALLINT ## Variables usadas para formar arreglos
DEFINE fecha1,fecha2 DATE ## Varible usada para busqueda por fecha de corte
DEFINE salir, salir1, salir3, tipo_venta CHAR(1) ## Bandera para control loop
DEFINE selec5, selec6 CHAR(1500) ## Variables para almacenar busquedas
##### Registro que almacena la informacion a imprimir ####
DEFINE fiama RECORD
fecha DATE,
num_fianza INTEGER,
tipo_doc CHAR(1),
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
descrip_esp CHAR(30),
unidad_med CHAR(10),
cantidad DECIMAL(12,2),
num_oc LIKE intb00020.num_oc,
num_emb LIKE intb00020.num_emb
END RECORD
####### Funcion para busqueda de informacion
FUNCTION inprrp019()
# WHENEVER ERROR CONTINUE
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 21
####### Abriendo y desplegando formulario de captura de datos
OPEN FORM infmrp019 FROM "infmrp019"
DISPLAY FORM infmrp019
CALL pantalla()
DISPLAY "inprrp019" AT 4,3
# DISPLAY "(Ley-69)" AT 5,58
DISPLAY "Validacion de las Fianzas" AT 6,27
LET tipo_papel = 1
CALL msgrp000(tipo_papel)
##### Aceptando la fecha de corte para busqueda de informacion
INPUT BY NAME fecha1,
fecha2
AFTER FIELD fecha1
IF fecha1 is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fecha1
END IF
BEFORE FIELD fecha2
LET fecha2 = today
AFTER FIELD fecha2
IF fecha2 is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fecha2
END IF
IF fecha1 > fecha2 THEN
LET numero_msg = 51
CALL msg( numero_msg)
NEXT FIELD fecha1
END IF
END INPUT
###### Creando facilidad para cancelar operacion mediante la tecla DELETE
###### o SUPR
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
# Busca los documentos que esten en el rango de fechas especificado
LET selec5 =
"SELECT a.fecha,a.num_fianza,a.tipo_doc,a.cod_n,a.cod_grupo,a.cod_tipo, ",
"a.cod_sec,c.descrip_esp,c.unidad_med,a.cantidad,a.num_oc,a.num_emb ",
"FROM intb00020 a,intb00022 c ",
"WHERE a.cod_n = c.cod_n AND ",
"a.cod_grupo = c.cod_grupo AND a.cod_tipo = c.cod_tipo AND ",
"a.cod_sec = c.cod_sec AND a.status_t IS NULL AND ",
"a.fecha BETWEEN ? AND ? ORDER BY 1,2,3,4,5,6"
DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14
ATTRIBUTE (REVERSE,BOLD)
DISPLAY "<< Buscando los Movimientos del Rango. >>" AT 19,14
ATTRIBUTE (REVERSE,BOLD)
PREPARE movi FROM selec5
DECLARE fiama_cli CURSOR FOR movi
OPEN fiama_cli USING fecha1,fecha2
DISPLAY " " AT 20,14
###### Envia la informacion a un archivo
START REPORT fianza3 TO "C:\\archivo"
DISPLAY " " AT 19,14
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
###### Comienza el loop para enviar informacion al reporte
LET salir = "N"
WHILE salir != "S"
FETCH fiama_cli INTO fiama.*
IF status = NOTFOUND THEN
LET salir = "S"
EXIT WHILE
END IF
IF int_flag THEN
LET salir = "S"
LET numero_msg = 2
CALL msg(numero_msg)
FINISH REPORT fianza3
EXIT WHILE
END IF
OUTPUT TO REPORT fianza3(fiama.*,fecha1,fecha2)
END WHILE
FINISH REPORT fianza3
CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
####### Funcion para dar salida a la informacion
REPORT fianza3(x,fecha3,fecha4)
DEFINE x RECORD
fecha DATE,
num_fianza INTEGER,
tipo_doc CHAR(1),
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
descrip_esp CHAR(30),
unidad_med CHAR(10),
cantidad DECIMAL(12,2),
num_oc LIKE intb00020.num_oc,
num_emb LIKE intb00020.num_emb
END RECORD
DEFINE fecha3,fecha4 DATE
DEFINE descrip,p_descrip CHAR(30)
DEFINE unidad,p_zona,p_numero CHAR(10),
balance DECIMAL(12,2)
DEFINE doble_on CHAR(2)
DEFINE doble_off CHAR(2)
DEFINE negrillas_on CHAR(6)
DEFINE negrillas_off CHAR(6)
DEFINE comp_on CHAR(3)
DEFINE comp_off CHAR(2)
DEFINE doce CHAR(2)
DEFINE normal CHAR(2)
DEFINE normall CHAR(3)
DEFINE comp CHAR(3)
DEFINE hora CHAR(5)
DEFINE tipo CHAR(2)
DEFINE imp_cli CHAR(1)
OUTPUT
TOP MARGIN 0
LEFT MARGIN 0
BOTTOM MARGIN 2
###### Diseno de la salida de la informacion
FORMAT
PAGE HEADER
LET doble_on = ASCII 14
LET doble_off = ASCII 20
LET negrillas_on = ASCII 27, ASCII 69
LET negrillas_off = ASCII 27, ASCII 70
LET comp_on = ASCII 031
LET comp_off = ASCII 18
LET comp = ASCII 031
LET doce = ASCII 27, ASCII 77
LET normal = ASCII 27, ASCII 80
LET normall = ASCII 030
LET hora = time
LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT COLUMN 1, comp_off
PRINT COLUMN 1, "inprrp019",
COLUMN lj, p_companias.nombre CLIPPED,
COLUMN 73, "Pag. ",pageno using "###"
PRINT COLUMN 20, "Sistema de Inventario de Materiales (LEY-69)",
COLUMN 73, today using "dd/mm/yyyy"
PRINT COLUMN 29, "Validacion de Internamientos",
COLUMN 76, hora
PRINT COLUMN 31, "Del ",fecha3 USING "dd/mm/yyyy",
" Al ",fecha4 using "dd/mm/yyyy"
PRINT COLUMN 1,
"--------------------------------------------------",
"--------------------------------",
negrillas_on
PRINT COLUMN 1,"Numero",
COLUMN 11,"Fecha",
COLUMN 20,"Orden"
PRINT COLUMN 1,"Fianza",
COLUMN 11,"Fianza",
COLUMN 20,"Compra",
COLUMN 30,"Material",
COLUMN 75,"Cantidad"
PRINT COLUMN 1,
"-------------------------------------------------",
"---------------------------------"
SKIP 1 LINE
PRINT COLUMN 1,doce
ON EVERY ROW
IF x.num_emb IS NULL THEN
LET x.num_emb = 1
END IF
PRINT COLUMN 1, x.num_fianza USING "######"," ",x.tipo_doc,
COLUMN 13, x.fecha USING "dd/mm/yyyy",
COLUMN 23, x.num_oc USING "######","-",x.num_emb USING "#",
COLUMN 36, x.cod_n USING "&","-",x.cod_grupo USING "&","-",
x.cod_tipo USING "&&&","-",x.cod_sec USING "&&&"," ",
x.descrip_esp CLIPPED,
COLUMN 78,x.unidad_med CLIPPED,
COLUMN 86,x.cantidad USING "###,###,##&.&&"
ON LAST ROW
PRINT COLUMN 1,comp_off,negrillas_off
PAGE TRAILER
PRINT COLUMN 1,normal,
COLUMN 2,
"Tipo de Documento: F=Internamiento por Fianza L=Internamiento Material Local"
END REPORT
Reference in New Issue View Git Blame Copy Permalink