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).
64 lines
2.8 KiB
Plaintext
64 lines
2.8 KiB
Plaintext
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 ] Bodega [d ]\g|\g
|
|
\gb-------------------------------------------------------------------------d\g
|
|
C A N T I D A D Exceso o
|
|
Codigo Ordenada Recibida Diferencia
|
|
\gp---------------------------------------------------------------------------q\g
|
|
[b ] [f06 ][f07 ][c ]
|
|
Descripcion: [g ] Unidad: [f08]
|
|
[b ] [f06 ][f07 ][c ]
|
|
Descripcion: [g ] Unidad: [f08]
|
|
[b ] [f06 ][f07 ][c ]
|
|
Descripcion: [g ] Unidad: [f08]
|
|
\gb---------------------------------------------------------------------------d\g
|
|
}
|
|
end
|
|
tables
|
|
|
|
intb00006,
|
|
cotb00001,
|
|
intb00001,
|
|
intb00005
|
|
attributes
|
|
f00 = intb00006.num_doc,
|
|
comments =
|
|
"Digite el Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
|
|
p1 = intb00006.cod_sp,picture = "##",autonext,
|
|
comments = "Digite el Codigo del Suplidor";
|
|
f01 = intb00006.cod_sp_sec,picture = "####",
|
|
comments = "Digite el Codigo del Suplidor";
|
|
f02 = intb00006.orden_compra,
|
|
comments = "Digite el Numero de la Orden de Compras";
|
|
f03 = intb00006.conduce_no,
|
|
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
|
f04 = intb00006.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 = intb00006.cantidad_1,
|
|
comments = "Digite la Cantidad Pedida ";
|
|
f07 = intb00006.cantidad_2,
|
|
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
|
f08 = intb00001.unidad_med,noentry;
|
|
a = cotb00001.nom_sp,noentry;
|
|
b = formonly.codigo,noentry;
|
|
c = formonly.diferencia, noentry;
|
|
g = intb00001.descrip_esp,noentry;
|
|
d = intb00006.bodega,noentry;
|
|
t = intb00006.cod_mov,autonext,
|
|
comments =
|
|
"Digite Codigo Movimiento de Entrada (34 - Exterior 35 - Local )",
|
|
include = (34 to 35);
|
|
t1 = intb00005.descrip_mov,noentry;
|
|
INSTRUCTIONS
|
|
screen record s_movi1[3] (codigo,cantidad_1,cantidad_2,diferencia,
|
|
descrip_esp,unidad_med)
|
|
delimiters " "
|
|
end
|