jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

Browse Source
This commit is contained in:
jsoto
2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTOS/indir/inprrp038.4gl
+288
View File
@@ -0,0 +1,288 @@
{
-------------------------------------------------------------------------------
PROGRAMA : INPRRP038
OBJETIVO : CATALOGO DE MATERIA PRIMA VALORIZADO AL REAL
PROGRAMADOR : Juan F. Soto
FECHA REALIZACION : Junio 7, 1996.
-------------------------------------------------------------------------------
}
GLOBALS
"inprgb000.4gl"
DEFINE fecha3 DATE
FUNCTION inprrp038()
DEFINE idx_c SMALLINT
DEFINE salir CHAR(1)
DEFINE mes CHAR(2)
DEFINE materia RECORD
cod_n LIKE intb00002.cod_n,
cod_grupo LIKE intb00002.cod_grupo,
cod_tipo LIKE intb00002.cod_tipo,
cod_sec LIKE intb00002.cod_sec,
descrip_esp LIKE intb00001.descrip_esp,
unidad_med LIKE intb00001.unidad_med,
existencia LIKE intb00006.cantidad_2,
costo LIKE intb00013.costo_st
END RECORD,
cod smallint
DEFINE select_cost CHAR(1000)
DEFINE costos RECORD
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
fecha CHAR(2),
costo LIKE intb00013.costo_st
END RECORD
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 21
CLEAR SCREEN
OPEN FORM infmrp038 FROM "infmrp038"
DISPLAY FORM infmrp038
CALL pantalla()
DISPLAY "inprrp038" AT 4,3
DISPLAY "Catalogo de Materia Prima" AT 6,27
IF status < 0 THEN
CALL integridad()
IF bandera = 1 THEN
LET bandera = 0
RETURN
END IF
END IF
LET tipo_papel = 1
CALL msgrp000(tipo_papel)
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
INPUT BY NAME decide,fecha3
AFTER FIELD fecha3
IF fecha3 is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fecha3
END IF
AFTER FIELD decide
IF decide IS NULL THEN
NEXT FIELD decide
END IF
END INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
CONSTRUCT criterio ON b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec
FROM cod_n,cod_grupo,cod_tipo,cod_sec
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
LET select_cost =
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,max(a.fecha_lq), ",
" a.costo_lq ",
"FROM cttb00013 a,intb00002 c ",
"WHERE ( a.cod_n = 1 AND 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 ",
" c.status_t is null ",
"GROUP BY 1,2,3,4,6 ORDER BY 1,2,3,4 "
DISPLAY "<< Estoy Buscando Los Costos de las Materias Primas >>"
AT 19,14 ATTRIBUTE (REVERSE)
PREPARE busca_costo FROM select_cost
DECLARE material_costo SCROLL CURSOR FOR busca_costo
OPEN material_costo
DISPLAY " "
AT 19,14
IF decide = "A" THEN
LET SELEC =
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp, ",
" b.unidad_med,SUM(c.cantidad_2) ",
"FROM intb00002 a, intb00001 b,intb00006 c ",
"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 = 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 ",
" c.fecha <= ? AND c.status_t is null AND ",
" a.status_t is NULL AND b.status_t is NULL AND ",
criterio clipped,
" GROUP BY 1,2,3,4,5,6 ",
" ORDER BY 5"
ELSE
LET SELEC =
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp, ",
" b.unidad_med,SUM(c.cantidad_2) ",
"FROM intb00002 a, intb00001 b,intb00006 c ",
"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 = 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 ",
" c.fecha <= ? AND c.status_t is null AND ",
" a.status_t is NULL AND b.status_t is NULL AND ",
criterio clipped,
" GROUP BY 1,2,3,4,5,6 ",
" ORDER BY 1,2,3,4"
END IF
DISPLAY "<< Estoy Buscando Las Materias Primas >>"
AT 19,14 ATTRIBUTE (REVERSE)
PREPARE busca FROM selec
DECLARE accion CURSOR FOR busca
OPEN accion USING fecha3
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
START REPORT inrp38 TO "C:\\archivo"
WHILE status != notfound
FETCH accion INTO materia.*
IF status = notfound THEN
EXIT WHILE
END IF
LET salir = "N"
LET idx_c = 1
WHILE salir != "S"
FETCH ABSOLUTE idx_c material_costo INTO costos.*
IF status = notfound THEN
LET idx_c = 1
LET salir = "S"
EXIT WHILE
END IF
LET idx_c = idx_c + 1
IF costos.cod_n = materia.cod_n AND
costos.cod_grupo = materia.cod_grupo AND
costos.cod_tipo = materia.cod_tipo AND
costos.cod_sec = materia.cod_sec THEN
LET materia.costo = costos.costo
LET salir = "S"
END IF
IF salir = "S" THEN
LET idx_c = 1
EXIT WHILE
END IF
END WHILE
OUTPUT TO REPORT inrp38(materia.*)
END WHILE
FINISH REPORT inrp38
CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
REPORT inrp38(x)
DEFINE x RECORD
cod_n LIKE intb00002.cod_n,
cod_grupo LIKE intb00002.cod_grupo,
cod_tipo LIKE intb00002.cod_tipo,
cod_sec LIKE intb00002.cod_sec,
descrip_esp LIKE intb00001.descrip_esp,
unidad_med LIKE intb00001.unidad_med,
existencia LIKE intb00006.cantidad_2,
costo LIKE intb00013.costo_st
END RECORD
DEFINE l SMALLINT
DEFINE doble_on CHAR(2)
DEFINE doble_off CHAR(2)
DEFINE negrillas_on CHAR(2)
DEFINE negrillas_off CHAR(2)
DEFINE comp_on CHAR(3)
DEFINE comp_off CHAR(3)
DEFINE doce CHAR(2)
DEFINE hora CHAR(5)
DEFINE varia CHAR(19)
OUTPUT
LEFT MARGIN 0
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 doce = ASCII 27, ASCII 77
LET hora = time
LET lj = (97 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT doce
PRINT COLUMN 1, "inprrp038",
COLUMN lj, p_companias.nombre CLIPPED,
COLUMN 90, "Pag. ",pageno using "###"
PRINT COLUMN 25, " Sistema de Inventario de Materia Prima",
COLUMN 90, today using "dd/mm/yyyy"
PRINT COLUMN 25, " Catalogo de Materia Prima",
COLUMN 90, hora
PRINT COLUMN 25, " Valorizacion Al Ultimo Precio Real"
IF decide = "N" THEN
LET varia = "N u m e r i c o" clipped
ELSE
LET varia = "A l f a b e t i c o"
END IF
LET l = (95 - LENGTH(varia)) / 2
PRINT COLUMN l, varia
PRINT COLUMN 1, "--------------------------------------------------",
"-------------------------------------------------"
PRINT COLUMN 57, "Existencia",
COLUMN 74, "Costo"
PRINT COLUMN 17, "Materiales",
COLUMN 55, "Al ", fecha3 using "dd/mm/yyyy",
COLUMN 75, "Real",
COLUMN 90, "Valor"
PRINT COLUMN 1, "--------------------------------------------------",
"-------------------------------------------------"
ON EVERY ROW
PRINT COLUMN 1, x.cod_n USING "&","-",x.cod_grupo USING "&","-",
x.cod_tipo USING "&&","-",x.cod_sec USING "&&&",
COLUMN 15, x.descrip_esp," ",
x.unidad_med,
column 55, x.existencia USING "##,###,###.##",
COLUMN 69, x.costo USING "##,###.####",
COLUMN 85, x.existencia * x.costo USING "##,###,###.####"
ON LAST ROW
SKIP 1 LINE
PRINT COLUMN 85, "---------------"
PRINT COLUMN 3, "Total de Registros Impresos = ", count(*) USING "####",
COLUMN 85, SUM(x.existencia * x.costo) USING "##,###,###.####"
PRINT COLUMN 85, "==============="
PRINT COLUMN comp_off
END REPORT