jpeguero
efdf8953dd
- 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).
54 lines
2.3 KiB
Plaintext
54 lines
2.3 KiB
Plaintext
database smarmotech
|
|
|
|
screen size 24 by 80
|
|
{
|
|
|
|
\gp--------------------------------------------------------------------------q\g
|
|
\g|\gDocumento Numero [f000 ] Orden de Compras [ti][l ] \g|\g
|
|
\g|\gFecha [f001 ] \g|\g
|
|
\g|\gSuplidor [p1][f013] [a1 ] Bodega: [p2] \g|\g
|
|
\gb--------------------------------------------------------------------------d\g
|
|
C A N T I D A D
|
|
Codigo Devuelta Ordenada Unidad D e s c r i p c i o n
|
|
\g------------------------------------------------------------------------------\g
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
\g------------------------------------------------------------------------------\g
|
|
|
|
}
|
|
end
|
|
tables
|
|
intb00006,
|
|
intb00001,
|
|
cotb00001
|
|
attributes
|
|
f000 = intb00006.num_doc,autonext,
|
|
comments = "Digite Numero Documento";
|
|
l = intb00006.orden_compra,autonext,
|
|
comments = "Digite El Numero De La Orden de Compras";
|
|
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
|
comments = "Digite Fecha Documento";
|
|
p2 = intb00006.bodega,autonext;
|
|
p1 = intb00006.cod_sp,noentry;
|
|
f013 = intb00006.cod_sp_sec,noentry;
|
|
ti = intb00006.tipo,autonext,include = ("01","02","03","04"),comments =
|
|
"Digite tipo 01-Generales 02-Rov-Ltd. 03-Locales 04-Miscelanas";
|
|
a = intb00006.cod_n,noentry;
|
|
b = intb00006.cod_grupo,noentry;
|
|
c = intb00006.cod_tipo,noentry;
|
|
d = intb00006.cod_sec,noentry;
|
|
f02 = intb00006.cantidad_1,autonext,
|
|
comments = "Digite La Cantidad Ordenada";
|
|
f03 = intb00006.cantidad_2,noentry;
|
|
k = intb00001.descrip_esp,noentry,autonext;
|
|
p = intb00001.unidad_med,noentry,autonext;
|
|
a1 = cotb00001.nom_sp,noentry;
|
|
INSTRUCTIONS
|
|
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
|
cantidad_2,unidad_med,descrip_esp)
|
|
end
|