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/irdir/irfmcs001.per
+73
View File
@@ -0,0 +1,73 @@
{----------------------------------------------------------------------------
AUTOR: JUAN FCO SOTO
FECHA:
DECRIPCION: FORMATO DE PANTALLA PARA EL REPORTE DE ENTRADA
MODIFICA: ING. JOSE ALFREDO PAULINO
FECHA: 15 DE OCTUBRE DEL 1992
DESCRIPCION: ADAPTACION PARA SISTEMA DE INVENTARIO DE HERRAMIENTAS
----------------------------------------------------------------------------
}
database smarmotech
screen size 24 by 80
{
Tipo Movimiento:[t ][t1 ]Doc. No. [f00 ]
\gp-------------------------------------------------------------------------q\g
\g|\gSuplidor:[p1]-[f01 ][a ] Orden de Compra:[f02 ] \g|\g
\gp-------------------------------------------------------------------------q\g
\g|\gConduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ] \g|\g
\gb-------------------------------------------------------------------------d\g
C A N T I D A D Exceso o
Codigo Ordenada Recibida Diferencia Maquina
\gp---------------------------------------------------------------------------q\g
[b ] [f06 ][f07 ][c ] [ma ]
Descripcion: [g ] Unidad: [f08]
[b ] [f06 ][f07 ][c ] [ma ]
Descripcion: [g ] Unidad: [f08]
[b ] [f06 ][f07 ][c ] [ma ]
Descripcion: [g ] Unidad: [f08]
\gb---------------------------------------------------------------------------d\g
}
end
tables
irtb00006,
cotb00001,
irtb00002,
irtb00005
attributes
ma = irtb00006.maquina,noentry;
f00 = irtb00006.num_doc,
comments =
"Digite el Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
p1 = irtb00006.cod_sp,picture = "##",autonext,
comments = "Digite el Codigo del Suplidor";
f01 = irtb00006.cod_sp_sec,picture = "####",
comments = "Digite el Codigo del Suplidor";
f02 = irtb00006.orden_compra,
comments = "Digite el Numero de la Orden de Compras";
f03 = irtb00006.conduce_no,
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04 = irtb00006.fact_no,
comments = "Digite el Numero de la Factura del Suplidor";
f05 = formonly.fecha type date,format = "dd/mm/yy",
comments = "Digite la Fecha Correspondiente al Documento";
f06 = irtb00006.cantidad_1,
comments = "Digite la Cantidad Pedida ";
f07 = irtb00006.cantidad_2,
comments = "Digite la Cantidad Llegada desde el Suplidor";
f08 = irtb00002.unidad_med,noentry;
a = cotb00001.nom_sp,noentry;
b = formonly.codigo,noentry;
c = formonly.diferencia, noentry;
g = irtb00002.descrip_esp,noentry;
t = irtb00006.cod_mov,autonext,
comments =
"Digite Codigo Movimiento de Entrada (01 - Local 02 - Exterior)",
include = (1 to 2);
t1 = irtb00005.descrip_mov,noentry;
INSTRUCTIONS
screen record s_movi1[3] (codigo,cantidad_1,cantidad_2,diferencia,
descrip_esp,unidad_med,maquina)
delimiters " "
end