jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
83 lines
4.1 KiB
Plaintext
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
|