jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
888a36553e01ca7def1285a69ef411aaf53ff2d7
MBS/PROYECTO/indir/inprmt014.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

997 lines
27 KiB
Plaintext
Raw Blame History

{
------------------------------------------------------------------
PROGRAMA : INPRMT014
OBJETIVO : Capturar, Modificar, Eliminar registros de la
Tabla de la maestra de FIANZAS.
PROGRAMADOR : Tadeo A. Ferreras
FECHA REALIZACION : Julio 22, 1993.
------------------------------------------------------------------
}
GLOBALS "inprgb000.4gl"
DEFINE fianza RECORD
num_fianza INTEGER,
num_res INTEGER,
fecha DATE,
nom_buque CHAR(20),
fecha_ent DATE,
cod_sp SMALLINT,
cod_sp_sec SMALLINT,
cod_pais CHAR(3),
cant_bulto CHAR(20),
num_oc INTEGER,
num_emb SMALLINT,
valor_merc DECIMAL(12,2),
cod_ca CHAR(4),
poliza CHAR(10),
prima DECIMAL(12,2),
porc_prima DECIMAL(5,2),
valor_desm DECIMAL(5,2),
valor_gar DECIMAL(12,2)
END RECORD
DEFINE fianza3 ARRAY[200] OF RECORD
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
unidad CHAR(3),
descrip CHAR(30),
cantidad DECIMAL(12,2),
cantidad_c DECIMAL(12,2)
END RECORD
DEFINE datos_comp ARRAY[200] OF RECORD
cod_ca CHAR(4),
nom_ca CHAR(30)
END RECORD
DEFINE datos_pais ARRAY[200] OF RECORD
cod_pais CHAR(3),
nom_pais CHAR(30)
END RECORD
DEFINE datos_sp ARRAY[200] OF RECORD
cod_sp SMALLINT,
cod_sp_sec SMALLINT,
nom_sp CHAR(30)
END RECORD
DEFINE curr INTEGER
DEFINE nombre,nombre1,nombre3 CHAR(30)
DEFINE cantidad1,cantidad3,total_prima,cantidad4 DECIMAL(13,3)
DEFINE tasa DECIMAL(7,2)
FUNCTION inprmt014()
CLEAR SCREEN
OPTIONS
FORM LINE 9,
ERROR LINE 23,
COMMENT LINE 21
OPEN FORM infmmt014 FROM "infmmt014"
DISPLAY FORM infmmt014
CALL pantalla()
DISPLAY "inprmt014" AT 4,3
DISPLAY "Fianzas" AT 6,36
MENU "OPCIONES"
COMMAND "Adicionar"
"<Esc> Adiciona Registro <Ctrl-C> Cancela Operacion"
CLEAR FORM
CALL inmtad020()
COMMAND "Consultar-modificar"
"<Esc> Realiza Busqueda <Ctrl-C> Cancela Operacion"
CLEAR FORM
CALL inmtmd020()
COMMAND "Salir" "Retorna Menu Anterior"
EXIT MENU
END MENU
END FUNCTION
FUNCTION inmtad020()
# WHENEVER ERROR CONTINUE
# Captura los datos que va a contener el registro
INPUT BY NAME fianza.*
ON KEY (control-W)
CASE
WHEN INFIELD(cod_ca)
CALL busca_compania()
LET fianza.cod_ca = datos_comp[idx].cod_ca
LET nombre3 = datos_comp[idx].nom_ca
DISPLAY BY NAME fianza.cod_ca,nombre3
WHEN INFIELD(cod_pais)
CALL busca_pais()
LET fianza.cod_pais = datos_pais[idx].cod_pais
LET nombre1 = datos_pais[idx].nom_pais
DISPLAY BY NAME fianza.cod_pais,nombre1
WHEN INFIELD(cod_sp)
CALL busca_suplidor()
LET fianza.cod_sp = datos_sp[idx].cod_sp
LET fianza.cod_sp_sec= datos_sp[idx].cod_sp_sec
LET nombre = datos_sp[idx].nom_sp
DISPLAY BY NAME fianza.cod_sp,fianza.cod_sp_sec,nombre
END CASE
AFTER FIELD num_fianza
IF fianza.num_fianza = 0 OR fianza.num_fianza IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD num_fianza
END IF
AFTER FIELD num_res
IF fianza.num_res = 0 OR fianza.num_res IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD num_res
END IF
##### Controla que el numero de resolucion exista en la maestra de la misma
SELECT UNIQUE a.num_res FROM intb00019 a
WHERE a.num_res = fianza.num_res
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD num_res
END IF
########## Chequea que el numero de fianza no exista en la tabla
SELECT UNIQUE a.num_fianza FROM intb00020 a
WHERE a.num_fianza = fianza.num_fianza AND
a.tipo_doc = "F" AND a.num_res = fianza.num_res
IF status != NOTFOUND THEN
LET numero_msg = 12
CALL msg(numero_msg)
NEXT FIELD num_fianza
END IF
BEFORE FIELD fecha
LET fianza.fecha = today
DISPLAY BY NAME fianza.fecha
AFTER FIELD fecha
IF fianza.fecha IS NULL THEN
LET fianza.fecha = today
END IF
AFTER FIELD cod_sp_sec
IF fianza.cod_sp_sec IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_sp_sec
END IF
##### Busca el nombre del suplidor
SELECT a.nom_sp INTO nombre FROM cotb00001 a WHERE a.cod_sp = fianza.cod_sp
AND a.cod_sp_sec = fianza.cod_sp_sec AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
DISPLAY BY NAME nombre
AFTER FIELD fecha_ent
IF fianza.fecha_ent IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fecha_ent
END IF
AFTER FIELD cod_pais
IF fianza.cod_pais IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_pais
END IF
####### Busca en nombre del pais
SELECT a.nom_pais INTO nombre1 FROM cotb00018 a
WHERE a.cod_pais = fianza.cod_pais
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_pais
END IF
DISPLAY BY NAME nombre1
AFTER FIELD poliza
IF fianza.poliza IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD poliza
END IF
AFTER FIELD cod_ca
IF fianza.cod_ca IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_ca
END IF
####### Busca el nombre de la compania aseguradora para el viaje de la
####### mercancia.
SELECT a.nom_ca INTO nombre3 FROM cotb00022 a
WHERE a.cod_ca = fianza.cod_ca
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_ca
END IF
DISPLAY BY NAME nombre3
AFTER FIELD prima
IF fianza.prima IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD prima
END IF
AFTER FIELD porc_prima
IF fianza.porc_prima IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD porc_prima
END IF
LET total_prima = fianza.prima * (1 + (fianza.porc_prima/100))
DISPLAY BY NAME total_prima
AFTER FIELD num_oc
IF fianza.num_oc IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD num_oc
END IF
AFTER FIELD valor_merc
IF fianza.valor_merc IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD valor_merc
END IF
AFTER FIELD valor_desm
IF fianza.valor_desm IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD valor_desm
END IF
SELECT UNIQUE prima INTO tasa FROM vetb00019
WHERE disponible = "S"
LET fianza.valor_gar =((fianza.valor_merc * tasa) *
(fianza.valor_desm/100)) + 100
DISPLAY BY NAME fianza.valor_gar
END INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
INPUT ARRAY fianza3 FROM fianza2.*
BEFORE ROW
LET curr = ARR_CURR()
LET fila = SCR_LINE()
ON KEY (control-W)
CASE
WHEN INFIELD(cod_n)
LET curr = ARR_CURR()
CALL busca_material()
LET fianza3[curr].cod_n = datos_mt[idx].cod_n
LET fianza3[curr].cod_grupo = datos_mt[idx].cod_grupo
LET fianza3[curr].cod_tipo = datos_mt[idx].cod_tipo
LET fianza3[curr].cod_sec = datos_mt[idx].cod_sec
LET fianza3[curr].descrip = datos_mt[idx].descrip_esp
LET fianza3[curr].unidad = datos_mt[idx].unidad_med
DISPLAY fianza3[curr].cod_n,fianza3[curr].cod_grupo,fianza3[curr].cod_tipo,
fianza3[curr].cod_sec,fianza3[curr].descrip,fianza3[curr].unidad
TO
fianza2[fila].cod_n,fianza2[fila].cod_grupo,fianza2[fila].cod_tipo,
fianza2[fila].cod_sec,fianza2[fila].descrip,fianza2[fila].unidad
NEXT FIELD cod_sec
END CASE
AFTER FIELD cod_sec
IF fianza3[curr].cod_sec IS NOT NULL THEN
IF fianza3[curr].cod_n IS NULL OR fianza3[curr].cod_n > 1 OR
fianza3[curr].cod_grupo IS NULL OR
fianza3[curr].cod_tipo IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
##### Buscando la descripcion del material
SELECT a.descrip_esp,a.unidad_med
INTO fianza3[curr].descrip,fianza3[curr].unidad
FROM intb00022 a
WHERE a.cod_n = fianza3[curr].cod_n AND a.cod_grupo = fianza3[curr].cod_grupo
AND a.cod_tipo = fianza3[curr].cod_tipo AND a.cod_sec = fianza3[curr].cod_sec
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
DISPLAY fianza3[curr].descrip,fianza3[curr].unidad TO
fianza2[fila].descrip,fianza2[fila].unidad
END IF
BEFORE FIELD cantidad
###### Seleciona cantidad de material pedido para ese tipo de pila y ese
###### Numero de resolucion.
SELECT sum(b.cantidad) INTO cantidad1 FROM intb00020 b
WHERE b.cod_n = fianza3[curr].cod_n AND
b.cod_grupo = fianza3[curr].cod_grupo AND
b.cod_tipo = fianza3[curr].cod_tipo AND
b.cod_sec = fianza3[curr].cod_sec AND
b.num_res = fianza.num_res
IF cantidad1 IS NULL THEN
LET cantidad1 = 0
END IF
###### Seleciona cantidad de material pedido para ese tipo de pila y ese
###### Numero de resolucion.
SELECT a.cantidad INTO cantidad3 FROM intb00019 a
WHERE a.cod_n = fianza3[curr].cod_n AND
a.cod_grupo = fianza3[curr].cod_grupo AND
a.cod_tipo = fianza3[curr].cod_tipo AND
a.cod_sec = fianza3[curr].cod_sec AND
a.num_res = fianza.num_res
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
####### Resta de la cantidad pedida la cantidad llegada para ese material
LET cantidad4 = cantidad3 - cantidad1
LET fianza3[curr].cantidad = cantidad4
AFTER FIELD cantidad
IF fianza3[curr].cantidad IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cantidad
END IF
#### Impide que la cantidad a digitar sea mayor que el balance para esa
#### Produccion y ese numero de resolucion
IF fianza3[curr].cantidad > cantidad4 THEN
LET numero_msg = 152
CALL msg(numero_msg)
NEXT FIELD cantidad
END IF
BEFORE FIELD cantidad_c
LET fianza3[curr].cantidad_c = fianza3[curr].cantidad
DISPLAY fianza3[curr].cantidad_c TO fianza2[fila].cantidad_c
AFTER FIELD cantidad_c
IF fianza3[curr].cantidad_c IS NULL THEN
LET fianza3[curr].cantidad_c = fianza3[curr].cantidad
END IF
IF fianza3[curr].cantidad_c > fianza3[curr].cantidad THEN
LET numero_msg = 153
CALL msg(numero_msg)
NEXT FIELD cantidad_c
END IF
DISPLAY fianza3[curr].cantidad_c TO fianza2[fila].cantidad_c
END INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
###### Proceso para insertar valores en la tabla o maestra de solicitud #####
FOR idx = 1 TO ARR_COUNT()
IF fianza3[idx].cod_n IS NOT NULL AND fianza3[idx].cod_grupo IS NOT NULL OR
fianza3[idx].cod_tipo IS NOT NULL OR fianza3[idx].cod_sec IS NOT NULL THEN
INSERT INTO intb00020 VALUES
("F",fianza.*,fianza3[idx].cod_n,fianza3[idx].cod_grupo,fianza3[idx].cod_tipo,
fianza3[idx].cod_sec,fianza3[idx].cantidad,fianza3[idx].cantidad_c,
NULL,USER,CURRENT,NULL,NULL)
END IF
END FOR
LET numero_msg = 1
CALL msg(numero_msg)
CLEAR FORM
END FUNCTION
######## Funcion para modificar una fianza #######
FUNCTION inmtmd020()
# Aqui se prepara para la captura del criterio de seleccion
CONSTRUCT criterio ON a.num_fianza,a.num_res,a.fecha
FROM num_fianza,num_res,fecha
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
######## Selecionando datos a modificar ########
LET selec =
"SELECT UNIQUE a.num_fianza,a.num_res,a.fecha,a.nom_buque, ",
"a.fecha_ent,a.cod_sp, a.cod_sp_sec,a.cod_pais,a.cant_bulto, ",
"a.num_oc,a.num_emb,a.valor_merc,a.cod_ca,a.poliza,a.prima, ",
"a.porc_prima,a.valor_desm,a.valor_gar,a.cod_n,a.cod_grupo, ",
"a.cod_tipo,a.cod_sec,a.cantidad,a.cantidad_c,b.descrip_esp, ",
"b.unidad_med,a.status_t,a.us_crea,a.fech_crea,a.us_mod,a.fech_mod ",
"FROM intb00020 a,intb00022 b WHERE a.status_t is null AND ",
"a.cod_n = b.cod_n AND a.cod_grupo = b.cod_grupo AND ",
"a.cod_tipo = b.cod_tipo AND a.cod_sec = b.cod_sec AND ",
"a.tipo_doc = 'F' AND ",
criterio clipped,
"ORDER BY 1,2"
PREPARE busca FROM selec
DECLARE datos SCROLL CURSOR FOR busca
OPEN datos
CALL integridad()
IF bandera = 1 THEN
LET bandera = 0
RETURN
END IF
FETCH FIRST datos INTO fianza.*
IF status >= 0 THEN
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
RETURN
END IF
CALL integridad()
IF bandera = 1 THEN
LET bandera = 0
RETURN
END IF
END IF
SELECT a.nom_sp INTO nombre FROM cotb00001 a
WHERE a.cod_sp = fianza.cod_sp AND a.cod_sp_sec = fianza.cod_sp_sec
AND a.status_t IS NULL
SELECT a.nom_pais INTO nombre1 FROM cotb00018 a
WHERE a.cod_pais = fianza.cod_pais
SELECT a.nom_ca INTO nombre3 FROM cotb00022 a
WHERE a.cod_ca = fianza.cod_ca
DISPLAY BY NAME fianza.*,nombre,nombre1,nombre3
MENU "OPCIONES "
COMMAND "Siguiente"
"Presenta en pantalla el proximo registro encontrado"
FETCH NEXT datos INTO fianza.*
IF status = NOTFOUND THEN
LET numero_msg = 4
CALL msg(numero_msg)
END IF
SELECT a.nom_sp INTO nombre FROM cotb00001 a
WHERE a.cod_sp = fianza.cod_sp AND a.cod_sp_sec = fianza.cod_sp_sec
AND a.status_t IS NULL
SELECT a.nom_pais INTO nombre1 FROM cotb00018 a
WHERE a.cod_pais = fianza.cod_pais
SELECT a.nom_ca INTO nombre3 FROM cotb00022 a
WHERE a.cod_ca = fianza.cod_ca
DISPLAY BY NAME fianza.*,nombre,nombre1,nombre3
COMMAND "Anterior"
"Presenta en pantalla el registro anterior encontrado"
FETCH PREVIOUS datos INTO fianza.*
IF status = NOTFOUND THEN
LET numero_msg = 5
CALL msg(numero_msg)
END IF
SELECT a.nom_sp INTO nombre FROM cotb00001 a
WHERE a.cod_sp = fianza.cod_sp AND a.cod_sp_sec = fianza.cod_sp_sec
AND a.status_t IS NULL
SELECT a.nom_pais INTO nombre1 FROM cotb00018 a
WHERE a.cod_pais = fianza.cod_pais
SELECT a.nom_ca INTO nombre3 FROM cotb00022 a
WHERE a.cod_ca = fianza.cod_ca
DISPLAY BY NAME fianza.*,nombre,nombre1,nombre3
COMMAND "Primero"
"Presenta en pantalla el primer registro encontrado"
FETCH FIRST datos INTO fianza.*
SELECT a.nom_sp INTO nombre FROM cotb00001 a
WHERE a.cod_sp = fianza.cod_sp AND a.cod_sp_sec = fianza.cod_sp_sec
AND a.status_t IS NULL
SELECT a.nom_pais INTO nombre1 FROM cotb00018 a
WHERE a.cod_pais = fianza.cod_pais
SELECT a.nom_ca INTO nombre3 FROM cotb00022 a
WHERE a.cod_ca = fianza.cod_ca
DISPLAY BY NAME fianza.*,nombre,nombre1,nombre3
LET numero_msg = 5
CALL msg(numero_msg)
COMMAND "Ultimo"
"Presenta en pantalla el ultimo registro encontrado"
FETCH LAST datos INTO fianza.*
SELECT a.nom_sp INTO nombre FROM cotb00001 a
WHERE a.cod_sp = fianza.cod_sp AND a.cod_sp_sec = fianza.cod_sp_sec
AND a.status_t IS NULL
SELECT a.nom_pais INTO nombre1 FROM cotb00018 a
WHERE a.cod_pais = fianza.cod_pais
SELECT a.nom_ca INTO nombre3 FROM cotb00022 a
WHERE a.cod_ca = fianza.cod_ca
DISPLAY BY NAME fianza.*,nombre,nombre1,nombre3
LET numero_msg = 4
CALL msg(numero_msg)
COMMAND "Escoger"
"<Esc> Actualiza Registro <Ctrl-C> Cancela Operacion"
INPUT BY NAME fianza.num_res THRU fianza.valor_gar WITHOUT DEFAULTS
ON KEY (control-W)
CASE
WHEN INFIELD(cod_ca)
CALL busca_compania()
LET fianza.cod_ca = datos_comp[idx].cod_ca
LET nombre3 = datos_comp[idx].nom_ca
DISPLAY BY NAME fianza.cod_ca,nombre3
WHEN INFIELD(cod_pais)
CALL busca_pais()
LET fianza.cod_pais = datos_pais[idx].cod_pais
LET nombre1 = datos_pais[idx].nom_pais
DISPLAY BY NAME fianza.cod_pais,nombre1
WHEN INFIELD(cod_sp)
CALL busca_suplidor()
LET fianza.cod_sp = datos_sp[idx].cod_sp
LET fianza.cod_sp_sec= datos_sp[idx].cod_sp_sec
LET nombre = datos_sp[idx].nom_sp
DISPLAY BY NAME fianza.cod_sp,fianza.cod_sp_sec,nombre
END CASE
AFTER FIELD num_res
IF fianza.num_res = 0 OR fianza.num_res IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD num_res
END IF
SELECT UNIQUE a.num_res FROM intb00019 a
WHERE a.num_res = fianza.num_res
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD num_res
END IF
########## Chequea que el numero de solicitud no exista en alguna fianza
AFTER FIELD fecha
IF fianza.fecha IS NULL THEN
LET fianza.fecha = today
END IF
AFTER FIELD cod_sp_sec
IF fianza.cod_sp_sec IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_sp_sec
END IF
SELECT a.nom_sp INTO nombre FROM cotb00001 a WHERE a.cod_sp = fianza.cod_sp
AND a.cod_sp_sec = fianza.cod_sp_sec AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
DISPLAY BY NAME nombre
AFTER FIELD fecha_ent
IF fianza.fecha_ent IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fecha_ent
END IF
AFTER FIELD cod_pais
IF fianza.cod_pais IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_pais
END IF
SELECT a.nom_pais INTO nombre1 FROM cotb00018 a
WHERE a.cod_pais = fianza.cod_pais
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_pais
END IF
DISPLAY BY NAME nombre1
AFTER FIELD cod_ca
IF fianza.cod_ca IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_ca
END IF
SELECT a.nom_ca INTO nombre3 FROM cotb00022 a
WHERE a.cod_ca = fianza.cod_ca
SELECT prima INTO tasa FROM vetb00019
WHERE disponible = "S"
DISPLAY BY NAME nombre3
AFTER FIELD prima
IF fianza.prima IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD prima
END IF
AFTER FIELD valor_desm
IF fianza.valor_desm IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD valor_desm
END IF
AFTER FIELD porc_prima
IF fianza.porc_prima IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD porc_prima
END IF
LET total_prima = fianza.prima * (1 + (fianza.porc_prima/100))
DISPLAY BY NAME total_prima
SELECT prima INTO tasa FROM vetb00019
WHERE disponible = "S"
AFTER FIELD valor_merc
IF fianza.valor_merc IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD valor_merc
END IF
AFTER FIELD valor_desm
IF fianza.valor_desm IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD valor_desm
END IF
LET fianza.valor_gar = ((fianza.valor_merc * tasa) *
(fianza.valor_desm/100)) + 100
DISPLAY BY NAME fianza.valor_gar
END INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
DECLARE buscar CURSOR FOR
SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.unidad_med,b.descrip_esp,
a.cantidad,a.cantidad_c FROM intb00020 a,intb00022 b
WHERE a.cod_n=b.cod_n AND a.cod_grupo=b.cod_grupo AND a.cod_tipo=b.cod_tipo
AND a.cod_sec = b.cod_sec AND a.num_fianza = fianza.num_fianza
AND a.tipo_doc= "F" AND a.num_res = fianza.num_res
LET idx = 1
FOREACH buscar INTO fianza3[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
INPUT ARRAY fianza3 WITHOUT DEFAULTS FROM fianza2.*
BEFORE ROW
LET curr = ARR_CURR()
LET fila = SCR_LINE()
ON KEY (control-W)
CASE
WHEN INFIELD(cod_n)
CALL busca_material()
LET fianza3[curr].cod_n = datos_mt[idx].cod_n
LET fianza3[curr].cod_grupo = datos_mt[idx].cod_grupo
LET fianza3[curr].cod_tipo = datos_mt[idx].cod_tipo
LET fianza3[curr].cod_sec = datos_mt[idx].cod_sec
LET fianza3[curr].descrip = datos_mt[idx].descrip_esp
LET fianza3[curr].unidad = datos_mt[idx].unidad_med
DISPLAY fianza3[curr].cod_n,fianza3[curr].cod_grupo,fianza3[curr].cod_tipo,
fianza3[curr].cod_sec,fianza3[curr].descrip,fianza3[curr].unidad
TO
fianza2[fila].cod_n,fianza2[fila].cod_grupo,fianza2[fila].cod_tipo,
fianza2[fila].cod_sec,fianza2[fila].descrip,fianza2[fila].unidad
NEXT FIELD cod_sec
END CASE
AFTER FIELD cod_sec
IF fianza3[curr].cod_sec IS NOT NULL THEN
IF fianza3[curr].cod_n IS NULL OR fianza3[curr].cod_n > 1 OR
fianza3[curr].cod_grupo IS NULL OR
fianza3[curr].cod_tipo IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
##### Buscando la descripcion del material
SELECT a.descrip_esp,a.unidad_med
INTO fianza3[curr].descrip,fianza3[curr].unidad
FROM intb00022 a
WHERE a.cod_n = fianza3[curr].cod_n AND a.cod_grupo = fianza3[curr].cod_grupo
AND a.cod_tipo = fianza3[curr].cod_tipo AND a.cod_sec = fianza3[curr].cod_sec
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
DISPLAY fianza3[curr].descrip,fianza3[curr].unidad TO
fianza2[fila].descrip,fianza2[fila].unidad
END IF
AFTER FIELD cantidad
IF fianza3[curr].cantidad IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cantidad
END IF
BEFORE FIELD cantidad_c
LET fianza3[curr].cantidad_c = fianza3[curr].cantidad
DISPLAY fianza3[curr].cantidad_c TO fianza2[fila].cantidad_c
AFTER FIELD cantidad_c
IF fianza3[curr].cantidad_c IS NULL THEN
LET fianza3[curr].cantidad_c = fianza3[curr].cantidad
END IF
IF fianza3[curr].cantidad_c > fianza3[curr].cantidad THEN
LET numero_msg = 153
CALL msg(numero_msg)
NEXT FIELD cantidad_c
END IF
DISPLAY fianza3[curr].cantidad_c TO fianza2[fila].cantidad_c
END INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
###### Proceso para insertar valores en la tabla o maestra de solicitud #####
DELETE FROM intb00020 WHERE @num_fianza = fianza.num_fianza AND @tipo_doc="F"
AND @num_res = fianza.num_res
FOR idx = 1 TO ARR_COUNT()
IF fianza3[idx].cod_n IS NOT NULL AND fianza3[idx].cod_grupo IS NOT NULL OR
fianza3[idx].cod_tipo IS NOT NULL OR fianza3[idx].cod_sec IS NOT NULL THEN
INSERT INTO intb00020 VALUES
("F",fianza.*,fianza3[idx].cod_n,fianza3[idx].cod_grupo,fianza3[idx].cod_tipo,
fianza3[idx].cod_sec,fianza3[idx].cantidad,fianza3[idx].cantidad_c,
NULL,USER,CURRENT,NULL,NULL)
END IF
END FOR
LET numero_msg = 13
CALL msg(numero_msg)
##### Proceso para eliminar una fianzaion #######
COMMAND KEY ("L") "eLiminar"
UPDATE intb00020 set (status_t,us_mod,fech_mod) =
("E",USER,CURRENT)
WHERE @num_fianza = fianza.num_fianza AND
@num_res = fianza.num_res AND @tipo_doc = "F"
LET numero_msg = 39
CALL msg(numero_msg)
COMMAND "Retornar"
"Retorna al menu anterior"
CLEAR FORM
EXIT MENU
END MENU
END FUNCTION
FUNCTION busca_compania()
LET int_flag = FALSE
OPEN WINDOW compania1 AT 10,9 WITH FORM "infmwd001"
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT criterio ON a.cod_ca,a.nom_ca FROM cod_ca,nom_ca
LET selec = "SELECT a.cod_ca,a.nom_ca FROM cotb00022 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1"
PREPARE comando1 FROM selec
DECLARE comp1 CURSOR FOR comando1
LET idx = 1
FOREACH comp1 INTO datos_comp[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY datos_comp TO datos_comp1.*
LET idx = ARR_CURR()
CLOSE WINDOW compania1
END FUNCTION
FUNCTION busca_suplidor()
LET int_flag = FALSE
OPEN WINDOW suplidor1 AT 10,9 WITH FORM "infmwd003"
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT criterio ON a.cod_sp,a.cod_sp_sec,a.nom_sp
FROM cod_sp,cod_sp_sec,nom_sp
LET selec = "SELECT a.cod_sp,a.cod_sp_sec,a.nom_sp FROM cotb00001 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1,2"
PREPARE comando3 FROM selec
DECLARE comp3 CURSOR FOR comando3
LET idx = 1
FOREACH comp3 INTO datos_sp[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY datos_sp TO datos_sp1.*
LET idx = ARR_CURR()
CLOSE WINDOW suplidor1
END FUNCTION
FUNCTION busca_pais()
LET int_flag = FALSE
OPEN WINDOW pais1 AT 10,9 WITH FORM "infmwd002"
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT criterio ON a.cod_pais,a.nom_pais FROM cod_pais,nom_pais
LET selec = "SELECT a.cod_pais,a.nom_pais FROM cotb00018 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1"
PREPARE comando2 FROM selec
DECLARE comp2 CURSOR FOR comando2
LET idx = 1
FOREACH comp2 INTO datos_pais[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY datos_pais TO datos_pais1.*
LET idx = ARR_CURR()
CLOSE WINDOW pais1
END FUNCTION
FUNCTION busca_material()
LET int_flag = FALSE
OPEN WINDOW material1 AT 10,9 WITH FORM "infmwd004"
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp,
a.unidad_med
FROM cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
unidad_med
LET selec = "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
"a.unidad_med FROM intb00001 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED,
"ORDER BY 1,2,3,4"
PREPARE comando4 FROM selec
DECLARE comp4 CURSOR FOR comando4
LET idx = 1
FOREACH comp4 INTO datos_mt[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
IF idx = 1 THEN
LET numero_msg = 3
CALL msg(numero_msg)
GOTO salir
END IF
DISPLAY ARRAY datos_mt TO datos_mt1.*
LET idx = ARR_CURR()
LABEL salir:
CLOSE WINDOW material1
END FUNCTION
Reference in New Issue View Git Blame Copy Permalink