745 lines
25 KiB
Plaintext
745 lines
25 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------
|
|
PROGRAMA : INPRMT046
|
|
OBJETIVO : Programa Captura Documento Otros Movimientos de
|
|
Inventario de Materia Prima.
|
|
PROGRAMADOR : Betania Guerrero Perez
|
|
FECHA REALIZACION : Agosto 07, 1992.
|
|
MODIFICADO POR : Tadeo A. Ferreras F.
|
|
FECHA : Octubre 27, 1995.
|
|
DESCRIPCION : Eliminar Funcion de Anular Registros
|
|
--------------------------------------------------------------------------
|
|
}
|
|
GLOBALS
|
|
"inprgb000.4gl"
|
|
|
|
DEFINE descrip_mov,descripcion,nombre,apellido CHAR(30),unidad_med CHAR(4)
|
|
DEFINE insertamedida,modifica CHAR(1),
|
|
ultimo_numero,tmpnumero INTEGER
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
#WHENEVER ERROR CONTINUE
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(3) RETURNING impresor
|
|
CONNECT to "decomarmol" USER usuarios USING clave
|
|
|
|
SELECT * INTO p_companias.* FROM companias
|
|
CALL inprmt046()
|
|
END MAIN
|
|
|
|
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
|
|
|
|
FUNCTION inprmt046()
|
|
DEFINE fecha CHAR(8)
|
|
DEFINE hora CHAR(5)
|
|
CLEAR SCREEN
|
|
OPTIONS
|
|
ERROR LINE 24,
|
|
FORM LINE 4,
|
|
COMMENT LINE 22,
|
|
PROMPT LINE 23
|
|
LET fecha = today USING "dd/mm/yy"
|
|
LET hora = time
|
|
|
|
OPEN FORM infmmt046 FROM "infmmt046"
|
|
DISPLAY FORM infmmt046
|
|
|
|
MENU
|
|
ON ACTION nuevo
|
|
CALL inprad046()
|
|
ON ACTION buscar
|
|
LET pprograma = 'inprmt046'
|
|
CALL reimprime(pprograma)
|
|
ON ACTION salir
|
|
EXIT MENU
|
|
|
|
END MENU
|
|
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION inprad046()
|
|
DEFINE fecha_c DATE
|
|
DEFINE dia SMALLINT
|
|
# WHENEVER ERROR CONTINUE
|
|
LET int_flag = FALSE
|
|
INITIALIZE otros_mov.* TO NULL
|
|
|
|
IF (OPC = "S" OR OPC = "s") OR opc IS NULL THEN
|
|
INITIALIZE otros_mov.* TO NULL
|
|
END IF
|
|
|
|
LET insertamedida = 'N'
|
|
INPUT BY NAME otros_mov.*,datos1.depto_a,pnum_emp
|
|
BEFORE INPUT
|
|
LET nombre = NULL
|
|
LET apellido = NULL
|
|
|
|
AFTER FIELD pnum_emp
|
|
IF pnum_emp IS NOT NULL THEN
|
|
SELECT a.nom1_emp,a.apell1_Emp
|
|
INTO nombre,apellido
|
|
FROM adtb00003 a
|
|
WHERE a.num_Emp = pnum_emp
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
NEXT FIELD pnum_Emp
|
|
END IF
|
|
DISPLAY BY NAME nombre,apellido
|
|
END IF
|
|
AFTER FIELD depto_a
|
|
IF datos1.depto_a IS NOT NULL THEN
|
|
SELECT a.nom_dpto INTO nombre_d
|
|
FROM adtb00001 a
|
|
WHERE a.departamento = datos1.depto_a
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
NEXT FIELD departamento
|
|
END IF
|
|
DISPLAY BY NAME nombre_d
|
|
END IF
|
|
AFTER FIELD fecha
|
|
IF otros_mov.fecha IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD fecha
|
|
END IF
|
|
|
|
IF otros_mov.fecha > TODAY THEN
|
|
LET numero_msg = 160
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD fecha
|
|
END IF
|
|
|
|
LET p_fechas = otros_mov.fecha
|
|
CALL prd(p_fechas,usuarios) RETURNING bandera
|
|
IF bandera = 1 THEN
|
|
LET bandera = 0
|
|
NEXT FIELD fecha
|
|
END IF
|
|
|
|
BEFORE FIELD bodega
|
|
LET otros_mov.bodega = 1
|
|
DISPLAY BY NAME otros_mov.bodega
|
|
|
|
AFTER FIELD bodega
|
|
SELECT *FROM intb00009 WHERE cod_bodega = otros_mov.bodega
|
|
IF STATUS >= 0 THEN
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD bodega
|
|
END IF
|
|
ELSE
|
|
CALL integridad()
|
|
|
|
IF bandera = 1 THEN
|
|
LET bandera = 0
|
|
RETURN
|
|
END IF
|
|
END IF
|
|
|
|
BEFORE FIELD num_doc
|
|
LET otros_mov.fecha = today
|
|
DISPLAY BY NAME otros_mov.fecha
|
|
|
|
AFTER FIELD cod_mov
|
|
IF otros_mov.cod_mov IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_mov
|
|
END IF
|
|
IF otros_mov.cod_mov = 36 THEN
|
|
LET numero_msg = 40
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_mov
|
|
END IF
|
|
{IF otros_mov.cod_mov = 34 OR otros_mov.cod_mov = 35 OR
|
|
otros_mov.cod_mov = 48 OR otros_mov.cod_mov = 36 OR
|
|
otros_mov.cod_mov = 38 THEN
|
|
LET numero_msg = 40
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_mov
|
|
END IF
|
|
}
|
|
SELECT a.descrip_mov,a.status_mov INTO otros_mov.descrip_mov,status_m
|
|
FROM intb00005 a
|
|
WHERE a.cod_mov = otros_mov.cod_mov AND a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_mov
|
|
END IF
|
|
|
|
DISPLAY BY NAME otros_mov.descrip_mov
|
|
|
|
{
|
|
SELECT a.num_doc INTO otros_mov.num_doc FROM intb00023 a
|
|
WHERE a.cod_mov = otros_mov.cod_mov
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET otros_mov.num_doc = 0
|
|
END IF
|
|
LET otros_mov.num_doc = otros_mov.num_doc + 1
|
|
|
|
DISPLAY BY NAME otros_mov.num_doc ATTRIBUTE(REVERSE,YELLOW)
|
|
|
|
SELECT UNIQUE cod_mov INTO otros_mov.cod_mov
|
|
FROM intb00006
|
|
WHERE num_doc = otros_mov.num_doc AND cod_mov = otros_mov.cod_mov AND
|
|
status_t IS NULL
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
DISPLAY BY NAME otros_mov.cod_mov,otros_mov.fecha
|
|
NEXT FIELD num_doc
|
|
END IF
|
|
|
|
# Verifica que el numero del documento de otros movimientos no este en el
|
|
# archivo de movimientos.
|
|
IF otros_mov.num_doc IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD num_doc
|
|
END IF
|
|
}
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
DELETE FROM intb00018 WHERE documento = tmpnumero AND cod_mov = otros_mov.cod_mov
|
|
|
|
RETURN
|
|
END IF
|
|
|
|
INPUT ARRAY movi2 FROM s_movi1.*
|
|
ON KEY (F10)
|
|
LET p_act =arr_curr()
|
|
LET scr_l = scr_line()
|
|
|
|
LET descripcion= movi2[p_act].descrip_esp
|
|
LET unidad_med = movi2[p_act].unidad_med
|
|
|
|
CALL medidas()
|
|
DISPLAY movi2[p_act].cantidad_2 TO s_movi1[scr_l].cantidad_2
|
|
ON KEY(CONTROL-W)
|
|
CALL busca_material()
|
|
LET movi2[p_act].cod_n = datos_mt[idx].cod_n
|
|
LET movi2[p_act].cod_grupo = datos_mt[idx].cod_grupo
|
|
LET movi2[p_act].cod_tipo = datos_mt[idx].cod_tipo
|
|
LET movi2[p_act].cod_sec = datos_mt[idx].cod_sec
|
|
LET movi2[p_act].descrip_esp = datos_mt[idx].descrip_esp
|
|
LET movi2[p_act].unidad_med = datos_mt[idx].unidad_med
|
|
|
|
DISPLAY movi2[p_act].cod_n TO s_movi1.cod_n
|
|
DISPLAY movi2[p_act].cod_grupo TO s_movi1.cod_grupo
|
|
DISPLAY movi2[p_act].cod_tipo TO s_movi1.cod_tipo
|
|
DISPLAY movi2[p_act].cod_sec TO s_movi1.cod_sec
|
|
DISPLAY movi2[p_act].descrip_esp TO s_movi1.descrip_esp
|
|
BEFORE ROW
|
|
LET p_act = arr_curr()
|
|
LET scr_l = scr_line()
|
|
|
|
AFTER FIELD cod_sec
|
|
IF movi2[p_act].cod_n IS NOT NULL AND
|
|
movi2[p_act].cod_grupo IS NOT NULL and
|
|
movi2[p_act].cod_tipo IS NOT NULL AND
|
|
movi2[p_act].cod_sec IS NOT NULL THEN
|
|
|
|
FOR idx = 1 TO arr_count()
|
|
IF idx != p_act THEN
|
|
IF movi2[idx].cod_n = movi2[p_act].cod_n AND
|
|
movi2[idx].cod_grupo = movi2[p_act].cod_grupo AND
|
|
movi2[idx].cod_tipo = movi2[p_act].cod_tipo AND
|
|
movi2[idx].cod_sec = movi2[p_act].cod_sec THEN
|
|
LET numero_msg = 21
|
|
CALL msg(numero_msg)
|
|
LET p_act = p_act - 1
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
END IF
|
|
END FOR
|
|
|
|
SELECT a.descrip_esp,a.unidad_med INTO descrip1,descrip2
|
|
FROM intb00001 a, intb00002 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.cod_n = movi2[p_act].cod_n AND
|
|
a.cod_grupo = movi2[p_act].cod_grupo AND
|
|
a.cod_tipo = movi2[p_act].cod_tipo AND
|
|
a.cod_sec = movi2[p_act].cod_sec AND a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
LET movi2[p_act].descrip_esp = descrip1
|
|
LET movi2[p_act].unidad_med = descrip2 clipped
|
|
|
|
DISPLAY movi2[p_act].descrip_esp TO s_movi1[scr_l].descrip_esp
|
|
DISPLAY movi2[p_act].unidad_med TO s_movi1[scr_l].unidad_med
|
|
END IF
|
|
|
|
AFTER FIELD cantidad_2
|
|
IF movi2[p_act].cod_n IS NOT NULL AND
|
|
movi2[p_act].cod_grupo IS NOT NULL and
|
|
movi2[p_act].cod_tipo IS NOT NULL AND
|
|
movi2[p_act].cod_sec IS NOT NULL THEN
|
|
|
|
IF movi2[p_act].cantidad_2 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cantidad_2
|
|
END IF
|
|
LET chequea.existe = 0
|
|
SELECT sum(cantidad_2) INTO chequea.existe FROM intb00006
|
|
WHERE cod_n = movi2[p_act].cod_n and
|
|
cod_grupo = movi2[p_act].cod_grupo and
|
|
cod_tipo = movi2[p_act].cod_tipo and
|
|
cod_sec = movi2[p_act].cod_sec AND status_t IS NULL
|
|
|
|
IF status_m = "2" THEN
|
|
IF movi2[p_act].cantidad_2 > chequea.existe THEN
|
|
LET numero_msg = 30
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
END IF
|
|
END IF
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
DELETE FROM intb00018 WHERE documento = tmpnumero AND cod_mov = otros_mov.cod_mov
|
|
RETURN
|
|
END IF
|
|
|
|
PROMPT "Toda la Informacion Esta Correcta? (S/N)" FOR CHAR opc
|
|
|
|
SELECT MAX(a.num_doc) INTO ultimo_numero
|
|
FROM intb00006 a WHERE a.cod_mov = otros_mov.cod_mov
|
|
|
|
IF ultimo_numero IS NULL THEN
|
|
LET ultimo_numero = 0
|
|
END IF
|
|
|
|
LET otros_mov.num_doc = ultimo_numero + 1
|
|
DISPLAY BY NAME otros_mov.num_doc
|
|
|
|
IF OPC = "S" or OPC = "s" THEN
|
|
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
|
|
doble_on,doble_off,comp_on,comp_off,
|
|
doce,normal,archivo,copia
|
|
|
|
|
|
START REPORT formu46 TO archivo
|
|
|
|
|
|
BEGIN WORK
|
|
FOR idx = 1 TO arr_count()
|
|
|
|
IF movi2[idx].cod_n IS NOT NULL AND
|
|
movi2[idx].cod_grupo IS NOT NULL and
|
|
movi2[idx].cod_tipo IS NOT NULL AND
|
|
movi2[idx].cod_sec IS NOT NULL AND
|
|
movi2[idx].cantidad_2 IS NOT NULL THEN
|
|
|
|
IF status_m = 2 THEN
|
|
LET movi2[idx].cantidad_2 = movi2[idx].cantidad_2 * -1
|
|
END IF
|
|
|
|
INSERT INTO intb00006
|
|
(num_doc,fecha,cod_mov,cod_n,cod_grupo,cod_tipo,cod_Sec,cantidad_2,
|
|
bodega,us_Crea,fech_crea,num_emp,depto_a )
|
|
VALUES (otros_mov.num_doc,otros_mov.fecha,
|
|
otros_mov.cod_mov,movi2[idx].cod_n,movi2[idx].cod_grupo,
|
|
movi2[idx].cod_tipo,movi2[idx].cod_sec,
|
|
movi2[idx].cantidad_2,
|
|
otros_mov.bodega,SUSER_NAME(),GETDATE(),pnum_emp,datos1.depto_a)
|
|
IF STATUS < 0 THEN
|
|
|
|
ROLLBACK WORK
|
|
CALL fgl_winmessage("Error","ERROR INSERTANDO INFORMACION","STOP")
|
|
EXIT PROGRAM
|
|
END IF
|
|
OUTPUT TO REPORT formu46(otros_mov.num_doc,otros_mov.fecha,
|
|
otros_mov.cod_mov,otros_mov.descrip_mov,
|
|
nombre_d,
|
|
movi2[idx].*)
|
|
END IF
|
|
END FOR
|
|
IF insertamedida = 'S' THEN
|
|
UPDATE intb00018 set documento = otros_mov.num_doc
|
|
WHERE documento = tmpnumero AND cod_mov = otros_mov.cod_mov
|
|
IF STATUS < 0 THEN
|
|
|
|
ROLLBACK WORK
|
|
CALL fgl_winmessage("Error","ERROR ACTUALIZANDO TABLA MEDIDAS","STOP")
|
|
EXIT PROGRAM
|
|
END IF
|
|
|
|
END IF
|
|
COMMIT WORK
|
|
FINISH REPORT formu46
|
|
RUN imprime
|
|
|
|
{
|
|
SELECT a.* FROM intb00023 a WHERE a.cod_mov = otros_mov.cod_mov
|
|
IF STATUS = NOTFOUND THEN
|
|
INSERT INTO intb00023(num_doc,cod_mov)
|
|
VALUES (otros_mov.num_doc,otros_mov.cod_mov)
|
|
END IF
|
|
UPDATE intb00023 SET num_doc = otros_mov.num_doc
|
|
WHERE @cod_mov = otros_mov.cod_mov
|
|
}
|
|
LET numero_msg = 1
|
|
CALL msg(numero_msg)
|
|
CLEAR FORM
|
|
END IF
|
|
END FUNCTION
|
|
|
|
REPORT formu46(x,xnombre_d,z)
|
|
|
|
DEFINE x RECORD
|
|
num_doc LIKE iptb00006.num_doc,
|
|
fecha LIKE iptb00006.fecha,
|
|
cod_mov LIKE intb00005.cod_mov,
|
|
descrip_mov CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE z RECORD
|
|
cod_n LIKE intb00003.cod_n,
|
|
cod_grupo LIKE intb00003.cod_grupo,
|
|
cod_tipo LIKE intb00003.cod_tipo,
|
|
cod_sec LIKE intb00003.cod_sec,
|
|
cantidad_2 LIKE intb00006.cantidad_2,
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
descrip_esp LIKE intb00001.descrip_esp
|
|
END RECORD,
|
|
xancho1,xlargo1,xespesor1,xancho2,xlargo2,xespesor2,xmedida1,xmedida2,
|
|
total_medida1,total_medida2 DEC(12,4),
|
|
xcodigo_bloque CHAR(12),xnombre_d CHAR(30)
|
|
|
|
DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(2)
|
|
|
|
|
|
OUTPUT
|
|
LEFT MARGIN 0
|
|
|
|
ORDER BY x.num_doc,z.cod_sec
|
|
FORMAT
|
|
|
|
BEFORE GROUP OF x.num_doc
|
|
LET doble = ASCII 14
|
|
LET doble_of = ASCII 20
|
|
LET negras = ASCII 27, ASCII 69
|
|
LET negras_off = ASCII 27, ASCII 70
|
|
|
|
LET doce = ASCII 27, ASCII 77
|
|
LET normal = ASCII 27, ASCII 80
|
|
|
|
PRINT comp_on
|
|
PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED
|
|
PRINT COLUMN 71,"No. ",doble,x.num_doc using "<<<<<<"
|
|
PRINT COLUMN 30, x.cod_mov using "&&"," ",x.descrip_mov CLIPPED,
|
|
COLUMN 71, x.fecha using "dd/mm/yy"
|
|
|
|
PRINT COLUMN 1, "DEPARTAMENTO: ",datos1.depto_a," ",xnombre_d
|
|
PRINT COLUMN 1, "OPERADOR : ",pnum_emp,"-",nombre," ",apellido
|
|
PRINT COLUMN 1,
|
|
"------------------------------------------------------------------------------",
|
|
"-------------"
|
|
PRINT COLUMN 68, "CANTIDAD"
|
|
|
|
PRINT COLUMN 2,doble, "PRODUCTO",doble_of clipped,
|
|
#COLUMN 61, "ORDENADA",
|
|
COLUMN 61, "ENTREGADA"
|
|
|
|
PRINT COLUMN 1,
|
|
"------------------------------------------------------------------------------",
|
|
|
|
"-------------"
|
|
SKIP 1 LINES
|
|
|
|
ON EVERY ROW
|
|
PRINT COLUMN 2, z.cod_n using "&","-",
|
|
COLUMN 4, z.cod_grupo using "&","-",
|
|
COLUMN 6, z.cod_tipo using "&&","-",
|
|
COLUMN 9, z.cod_sec using "&&&",
|
|
COLUMN 17, z.descrip_esp clipped," ",
|
|
z.unidad_med,
|
|
#COLUMN 63, z.cantidad_1 using "###,###,###.##",
|
|
COLUMN 63, z.cantidad_2 using "###,###.####"
|
|
IF insertamedida = 'S' THEN
|
|
PRINT COLUMN 2, "=========","========================================","==========================================="
|
|
PRINT COLUMN 2, " CODIGO "," MEDIDAS RECIBIDAS |"," MEDIDAS ENVIADAS |"
|
|
PRINT COLUMN 2, "=========","========================================","==========================================="
|
|
PRINT COLUMN 2, " ANCHO LARGO ESPES ",z.unidad_med," |"," ANCHO LARGO ESPES MEDIDA"
|
|
DECLARE busca_medida CURSOR FOR
|
|
SELECT a.codigo_bloque,a.ancho1,a.largo1,a.espesor1,a.medida1,
|
|
a.ancho2,a.largo2,a.espesor2,a.medida2
|
|
INTO xcodigo_bloque,xancho1,xlargo1,xespesor1,xmedida1,
|
|
xancho2,xlargo2,xespesor2,xmedida2
|
|
FROM intb00018 a
|
|
WHERE a.cod_n = z.cod_n and
|
|
a.cod_grupo = z.cod_grupo and
|
|
a.cod_tipo = z.cod_tipo and
|
|
a.cod_Sec = z.cod_Sec and
|
|
a.documento =x.num_doc and
|
|
a.cod_mov = x.cod_mov
|
|
|
|
LET total_medida1 = 0
|
|
LET total_medida2 = 0
|
|
FOREACH busca_medida
|
|
PRINT COLUMN 2,xcodigo_bloque," ",xancho1 USING "###.####", 2 spaces,
|
|
xlargo1 USING "###.####", 2 spaces,
|
|
xespesor1 USING "###.####", 2 spaces,
|
|
xmedida1 USING "#,###.####", 3 spaces,
|
|
xancho2 USING "###.####",2 spaces,
|
|
xlargo2 USING "###.####", 2 spaces,
|
|
xespesor2 USING "###.####", 2 spaces,
|
|
xmedida2 USING "#,###.####"
|
|
LET total_medida1 = xmedida1 + total_medida1
|
|
LET total_medida2 = xmedida2 + total_medida2
|
|
|
|
END FOREACH
|
|
PRINT COLUMN 45,"==========",
|
|
COLUMN 90,"=========="
|
|
PRINT COLUMN 45, total_medida1 USING "#,###.####",
|
|
COLUMN 90, total_medida2 USING "#,###.####"
|
|
|
|
END IF
|
|
PAGE TRAILER
|
|
PRINT COLUMN 1, "------------------",
|
|
COLUMN 22, "------------------",
|
|
COLUMN 45, "------------------",
|
|
COLUMN 65, "------------------"
|
|
|
|
PRINT COLUMN 5, "Entregado Por",
|
|
COLUMN 24, "Recibido Por",
|
|
COLUMN 48, "Aprobado Por",
|
|
COLUMN 68, "Aprobado Por"
|
|
|
|
PRINT normal
|
|
END REPORT
|
|
FUNCTION medidas()
|
|
DEFINE arrmedida DYNAMIC ARRAY OF RECORD
|
|
codigo_bloque CHAR(25),
|
|
ancho1 DEC(12,5),
|
|
largo1 DEC(12,5),
|
|
espesor1 DEC(12,5),
|
|
medida1 DEC(12,5),
|
|
ancho2 DEC(12,5),
|
|
largo2 DEC(12,5),
|
|
espesor2 DEC(12,5),
|
|
medida2 DEC(12,5),
|
|
cantidad DEC(12,5)
|
|
END RECORD,
|
|
total_medida DEC(12,5),
|
|
sidx SMALLINT
|
|
|
|
OPEN WINDOW prfmwd012 AT 5,3 WITH FORM "infmwd012" ATTRIBUTE (BORDER)
|
|
|
|
DISPLAY BY NAME descripcion,medida,movi2[p_act].cod_n,movi2[p_act].cod_grupo,movi2[p_act].cod_tipo,
|
|
movi2[p_act].cod_sec
|
|
|
|
SELECT UNIQUE a.documento FROM intb00018 a WHERE
|
|
a.documento = tmpnumero AND
|
|
a.cod_mov = otros_mov.cod_mov AND
|
|
a.cod_n = movi2[p_act].cod_n and
|
|
a.cod_grupo = movi2[p_act].cod_grupo and
|
|
a.cod_tipo = movi2[p_act].cod_tipo and
|
|
a.cod_sec = movi2[p_act].cod_sec
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
LET modifica = "S"
|
|
DECLARE busca_m CURSOR FOR
|
|
SELECT a.codigo_bloque,a.ancho1,a.largo1,a.espesor1,a.medida1,
|
|
a.ancho2,a.largo2,a.espesor2,a.medida2,a.cantidad
|
|
FROM intb00018 a
|
|
WHERE a.documento = tmpnumero AND
|
|
a.cod_mov = otros_mov.cod_mov AND
|
|
a.cod_n = movi2[p_act].cod_n and
|
|
a.cod_grupo = movi2[p_act].cod_grupo and
|
|
a.cod_tipo = movi2[p_act].cod_tipo and
|
|
a.cod_sec = movi2[p_act].cod_sec
|
|
LET idx = 1
|
|
FOREACH busca_m INTO arrmedida[idx].*
|
|
IF arrmedida[idx].cantidad < 0 THEN
|
|
LET arrmedida[idx].cantidad = arrmedida[idx].cantidad * -1
|
|
END IF
|
|
LET idx = idx +1
|
|
END FOREACH
|
|
CALL set_count(idx-1)
|
|
ELSE
|
|
LET modifica = "N"
|
|
SELECT MAX(numero) INTO tmpnumero FROM cttb00016
|
|
IF tmpnumero IS NULL THEN
|
|
LET tmpnumero = 9999999
|
|
END IF
|
|
LET tmpnumero = tmpnumero + 1
|
|
INSERT INTO cttb00016 values (SUSER_NAME(),tmpnumero,GETDATE())
|
|
FOR idx = 1 TO 10
|
|
LET arrmedida[idx].ancho1 = 0
|
|
LET arrmedida[idx].largo1 = 0
|
|
LET arrmedida[idx].espesor1 = 0
|
|
LET arrmedida[idx].ancho2 = 0
|
|
LET arrmedida[idx].largo2 = 0
|
|
LET arrmedida[idx].espesor2 = 0
|
|
END FOR
|
|
END IF
|
|
|
|
|
|
INPUT ARRAY arrmedida WITHOUT DEFAULTS FROM sdespiece.*
|
|
BEFORE ROW
|
|
LET idx = arr_curr()
|
|
LET sidx = scr_line()
|
|
AFTER FIELD codigo_bloque
|
|
IF status_m = 2 THEN
|
|
IF arrmedida[idx].codigo_bloque IS NOT NULL THEN
|
|
SELECT a.codigo_bloque FROM intb00018 a
|
|
WHERE a.codigo_bloque = arrmedida[idx].codigo_bloque
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
NEXT FIELD codigo_bloque
|
|
END IF
|
|
END IF
|
|
END IF
|
|
AFTER FIELD cantidad
|
|
IF arrmedida[idx].espesor1 = 0 THEN
|
|
LET arrmedida[idx].medida1 = arrmedida[idx].ancho1 * arrmedida[idx].largo1
|
|
END IF
|
|
|
|
IF arrmedida[idx].espesor1 <> 0 THEN
|
|
LET arrmedida[idx].medida1 = arrmedida[idx].ancho1 * arrmedida[idx].largo1 *
|
|
arrmedida[idx].espesor1
|
|
END IF
|
|
IF arrmedida[idx].espesor2 = 0 THEN
|
|
LET arrmedida[idx].medida2 = arrmedida[idx].ancho2 * arrmedida[idx].largo2
|
|
END IF
|
|
IF arrmedida[idx].espesor2 <> 0 THEN
|
|
LET arrmedida[idx].medida2 = arrmedida[idx].ancho2 * arrmedida[idx].largo2 *
|
|
arrmedida[idx].espesor2
|
|
END IF
|
|
|
|
DISPLAY arrmedida[idx].medida1 TO sdespiece[sidx].medida1
|
|
DISPLAY arrmedida[idx].medida2 TO sdespiece[sidx].medida2
|
|
|
|
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
EXIT INPUT
|
|
END IF
|
|
|
|
END INPUT
|
|
IF int_flag THEN
|
|
CLOSE WINDOW prfmwd012
|
|
RETURN
|
|
END IF
|
|
LET total_medida = 0
|
|
IF modifica = "N" THEN
|
|
FOR idx =1 TO arr_count()
|
|
IF arrmedida[idx].codigo_bloque IS NOT NULL THEN
|
|
IF status_m = "2" THEN
|
|
IF arrmedida[idx].cantidad > 0 THEN
|
|
LET arrmedida[idx].cantidad = arrmedida[idx].cantidad * -1
|
|
END IF
|
|
IF arrmedida[idx].medida1 > 0 THEN
|
|
LET arrmedida[idx].medida1 = arrmedida[idx].medida1*-1
|
|
END IF
|
|
END IF
|
|
|
|
INSERT INTO intb00018 (documento,cod_mov,fecha,codigo_bloque,
|
|
cod_n,cod_grupo,cod_tipo,cod_sec,ancho1,largo1,
|
|
espesor1,medida1,largo2,ancho2,espesor2,medida2,cantidad)
|
|
|
|
VALUES (tmpnumero,otros_mov.cod_mov,otros_mov.fecha,arrmedida[idx].codigo_bloque,
|
|
movi2[p_act].cod_n,movi2[p_act].cod_grupo,movi2[p_act].cod_tipo,
|
|
movi2[p_act].cod_sec,
|
|
arrmedida[idx].ancho1,arrmedida[idx].largo1,
|
|
arrmedida[idx].espesor1,arrmedida[idx].medida1,
|
|
arrmedida[idx].largo2,arrmedida[idx].ancho2,arrmedida[idx].espesor2,
|
|
arrmedida[idx].medida2,arrmedida[idx].cantidad)
|
|
LET total_medida = arrmedida[idx].medida1 + total_medida
|
|
LET insertamedida = 'S'
|
|
END IF
|
|
END FOR
|
|
ELSE
|
|
DELETE FROM intb00018
|
|
WHERE documento = tmpnumero AND cod_n = movi2[p_act].cod_n and
|
|
cod_grupo = movi2[p_act].cod_grupo and
|
|
cod_tipo = movi2[p_act].cod_tipo and
|
|
cod_sec = movi2[p_act].cod_sec
|
|
|
|
FOR idx =1 TO arr_count()
|
|
IF arrmedida[idx].codigo_bloque IS NOT NULL THEN
|
|
IF status_m = "2" THEN
|
|
IF arrmedida[idx].cantidad > 0 THEN
|
|
LET arrmedida[idx].cantidad = arrmedida[idx].cantidad * -1
|
|
LET arrmedida[idx].cantidad = arrmedida[idx].medida1 * -1
|
|
END IF
|
|
END IF
|
|
|
|
INSERT INTO intb00018 VALUES (tmpnumero,otros_mov.cod_mov,otros_mov.fecha,arrmedida[idx].codigo_bloque,
|
|
movi2[p_act].cod_n,movi2[p_act].cod_grupo,movi2[p_act].cod_tipo,
|
|
movi2[p_act].cod_sec,
|
|
arrmedida[idx].ancho1,arrmedida[idx].largo1,
|
|
arrmedida[idx].espesor1,arrmedida[idx].medida1,
|
|
arrmedida[idx].largo2,arrmedida[idx].ancho2,arrmedida[idx].espesor2,
|
|
arrmedida[idx].medida2,arrmedida[idx].cantidad)
|
|
LET total_medida = arrmedida[idx].medida1 + total_medida
|
|
LET insertamedida = 'S'
|
|
END IF
|
|
END FOR
|
|
END IF
|
|
LET movi2[p_act].cantidad_2 = total_medida
|
|
CLOSE WINDOW prfmwd012
|
|
END FUNCTION |