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/ipdir/ipfmcs004.per
+58
View File
@@ -0,0 +1,58 @@
{
===============================================================================
FORMULARIO : IPFMCS004
OBJETIVO : CAPTURAR CODIGOS DE PRODUCTOS PARA BUSCAR
SU EXISTENCIA.
DISENO : JUAN F. SOTO
FECHA : AGOSTO 1997
ASESOR : JOSE ALFREDO PAULINO
===============================================================================
}
SCHEMA smarmotech
LAYOUT (TEXT="CONSULTA EXISTENCIAS",STYLE="basic")
GRID
{
<G >
Fecha [fe ] INVENTARIO [inv ]
Productos [a ]-[b ]-[c ]-[d ] [a1 ]
<g >
<t >
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
}
end
END
tables
iptb00002,intb00001
attributes
COMBOBOX inv = formonly.inventario,INCLUDE=("MATERIA PRIMA","PRODUCTOS TERMINADOS");
a = iptb00002.cod_n,
comments = "Digite el nivel del Productos";
b = iptb00002.cod_grupo,autonext,
comments = "Digite el grupo del Productos";
c = iptb00002.cod_tipo,autonext,
comments = "Digite el tipo del Productos";
d = iptb00002.cod_sec,autonext,
comments = "Digite la secuencia del Productos";
a1 = formonly.descrip_esp,scroll;
e = formonly.cod_n1,TITLE="PRODUCTO";
f = formonly.cod_grupo1;
g = formonly.cod_tipo1;
h = formonly.cod_sec1;
f008 = formonly.existencia,TITLE="EXISTENCIA";
k = formonly.descrip_esp1,TITLE="DESCRIPCION";
l = intb00001.unidad_med;
DATEEDIT fe = formonly.fech_fi type date,format = "dd/mm/yyyy";
instructions
delimiters " "
screen record consart[7] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
unidad_med,existencia)
end