Files
MBS/PROYECTOS/ipdir - 21102021/ipfmmt044_1.per
T

83 lines
4.1 KiB
Plaintext

database smarmotech
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\gDocumento Numero [f000 ] Compania [r][c4 ] \g|\g
\g|\gCodigo Movimiento [m ] [m1 ] \g|\g
\g|\gFactura [fact ] Transportista [tr][tr1 ][des ] \g|\g
\g|\gTarifa [t ][t1 ] Placa [pl ] \g|\g
\g|\gfecha[f001 ]Bodega :[p1 ] Orden Pedido [oc ] \g|\g
\g|\gDetalle [det ] \g|\g
\g|\gCliente:[cl]-[cl1 ][nom ] \g|\g
\g|\gDepartamento:[dep ][nomd ] \g|\g
\g|\gCodigo Mov[cd1][des2 ]Entrada[ent1 ] \g|\g
\gb------------------------------------------------------------------------------------d\g
Cantidad Und Cantidad
Codigo Unidades Afectar Med Pendiente D e s c r i p c i o n
\g--------------------------------------------------------------------------------------\g
[a ][b ][c ][d ][f03 ][f02 ][p ][f04 ][k ]
[a ][b ][c ][d ][f03 ][f02 ][p ][f04 ][k ]
[a ][b ][c ][d ][f03 ][f02 ][p ][f04 ][k ]
[a ][b ][c ][d ][f03 ][f02 ][p ][f04 ][k ]
[a ][b ][c ][d ][f03 ][f02 ][p ][f04 ][k ]
[a ][b ][c ][d ][f03 ][f02 ][p ][f04 ][k ]
[a ][b ][c ][d ][f03 ][f02 ][p ][f04 ][k ]
\g--------------------------------------------------------------------------------------\g
}
end
tables
iptb00006,
intb00001,
cotb00001
attributes
det = iptb00006.detalle;
cl = iptb00006.cod_sp,autonext;
cl1 = iptb00006.cod_sp_sec,autonext;
nom = formonly.descrip4,noentry;
pl = iptb00006.placa,autonext,comments =
"Digite placa del vehiculo que transporta la mercancia";
fact = formonly.fact_no,autonext,comments =
"Introducir Numero de Factura de Ventas";
tr = iptb00006.cod_transp,autonext,comments =
"Introduzca Codigo Transportista";
tr1 = iptb00006.sec_transp,autonext,comments =
"Introduzca Codigo Transportista";
des = formonly.descrip2,noentry;
t = iptb00006.cod_tarifa,comments =
"Introduzca Codigo Tarifa",autonext;
oc = iptb00006.conduce_no,
comments = "Digite le numero de orden de Corte";
t1 = formonly.descrip1,noentry;
f000 = iptb00006.num_doc,noentry;
r = iptb00006.cod_cia,autonext,include = (1 to 2), comments =
"01 - MARMOTECH ";
ent1 = formonly.entrada,comments = "Digite Entrada Almacen";
cd1 = formonly.cod_mov1,comments = "Digite codigo movimiento entrada";
des2 = formonly.descrip_mov1,noentry;
dep = formonly.departamento;
nomd = formonly.nombre_depto,noentry;
c4 = formonly.nombre_cia,noentry;
f001 = iptb00006.fecha, format = "dd/mm/yyyy",autonext,
comments = "Digite Fecha Documento";
a = iptb00006.cod_n,autonext,
comments = "Digite el NIVEL o Presione CTRL-W Para Ayuda";
b = iptb00006.cod_grupo,autonext,
comments = "Digite el GRUPO o Presione CTRL-W Para Ayuda";
c = iptb00006.cod_tipo,autonext,
comments = "Digite el TIPO o Presione CTRL-W Para Ayuda";
d = iptb00006.cod_sec,autonext,
comments = "Digite la SECUENCIA o Presione CTRL-W Para Ayuda ";
f03 = iptb00006.cantidad_1,autonext;
f02 = formonly.cantidad_2,noentry;
f04 = formonly.cantidad_p,noentry;
k = intb00001.descrip_esp,noentry;
p = intb00001.unidad_med,noentry;
p1 = iptb00006.bodega,autonext;
m = iptb00006.cod_mov,autonext,autonext,
comments = "Digite codigo del movimiento";
m1 = formonly.descrip_mov, noentry;
INSTRUCTIONS
SCREEN RECORD s_movi1[7] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
cantidad_2,cantidad_p,unidad_med,descrip_esp)
end