116 lines
5.1 KiB
Plaintext
116 lines
5.1 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------
|
|
FORMULARIO : VEFMMT001
|
|
OBJETIVO : Este programa captura la factura comercial (VEPRMT001)
|
|
REALIZADO POR : Ing. Juan Fco. Soto.
|
|
FECHA : Enero 12,1993.
|
|
MODIFICADO POR: Victor Gomez C.
|
|
FECHA : Saturday, 07 July, 2001
|
|
OBJETIVO : Registrar el descuento por cada producto a facturar.
|
|
Se utilizaran los campos cantidad_2 y bonificacion de la tabla
|
|
vetb00003
|
|
--------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
[p2 ]
|
|
|
|
Compania:[p1]Ventas:[t][e8 ]Ubicac.:[l ][g1 ]
|
|
Factura :[f1 ] Fecha:[fef ]
|
|
Cliente :[c1]-[c2 ]Balance:[fk1 ]Sub-total :[f10 ]
|
|
Nombre :[n1 ] Descuento : [f11 ]
|
|
Direccion :[d1 ] ITBIS :[f12 ]
|
|
Ciudad :[c01 ]NCF[ncf ]Total :[f13 ]
|
|
Prima US[pri ] % Descuento[po1 ] [nom ]
|
|
Condicion Orden Fecha Conduce Fecha ITBIS
|
|
[co][co2 ][or1 ][feo ][co01 ][feco ][f16 ]
|
|
Vendedor Transportista [nom3 ]
|
|
[ve1 ][n2 ][tr][tr1 ]Tarifa[f ][dt ]
|
|
Fecha Embarque:[fe ] Placa :[pl1 ] [dt1 ]
|
|
Producto Descripcion Cantidad Precio Desc Monto
|
|
[a |b |c |d ][des ][und][ca ][pr ][por][mo ]
|
|
[a |b |c |d ][des ][und][ca ][pr ][por][mo ]
|
|
[a |b |c |d ][des ][und][ca ][pr ][por][mo ]
|
|
[a |b |c |d ][des ][und][ca ][pr ][por][mo ]
|
|
}
|
|
tables
|
|
vetb00002,
|
|
vetb00003,
|
|
iptb00006
|
|
attributes
|
|
ncf = formonly.kncf;
|
|
g1 = formonly.descrip1,noentry;
|
|
p1 = vetb00002.cod_cia,autonext,include = (2);
|
|
p2 = formonly.compania,noentry;
|
|
t = vetb00002.ventas,autonext,include = ("1","2","3"),
|
|
comments = " 1- LOCAL 2- EXPORTACION ";
|
|
l = vetb00002.zona,autonext,picture="###",
|
|
comments = "Entre Zona o Pais del Cliente o Presione Ctrl-W";
|
|
f1 = vetb00002.factura,noentry;
|
|
fef = vetb00002.fecha_factura,format = "dd/mm/yyyy";
|
|
c1 = vetb00002.tipo_cliente,autonext,include = ("12","14"),
|
|
comments = "Digite Codigo Cliente o Presione Ctrl-E Para Crear y/o Buscar";
|
|
c2 = vetb00002.sec_cliente,autonext,
|
|
comments = "Digite Codigo Cliente o Presione Ctrl-E Para Crear y/o Buscar";
|
|
n1 = formonly.nombre;
|
|
d1 = formonly.direccion;
|
|
c01 = formonly.ciudad;
|
|
co = vetb00002.cond_pago,autonext,
|
|
comments = "Digite el Codigo de la Condicion o Presione Ctrl-W Para Ayuda";
|
|
po1 = formonly.porc_desc,noentry;
|
|
nom = formonly.nombre_desc,noentry;
|
|
co2 = formonly.descrip,noentry;
|
|
pri = vetb00002.prima_us,noentry;
|
|
or1 = vetb00002.orden,autonext;
|
|
feo = vetb00002.fecha_orden,format = "dd/mm/yyyy",
|
|
comments = "Digite La Fecha de La Orden";
|
|
co01= vetb00002.conduce,autonext,required;
|
|
feco = vetb00002.fecha_conduce,format = "dd/mm/yyyy",
|
|
comments = "Digite La Fecha del Conduce";
|
|
f16 = vetb00002.porc_itbi,noentry;
|
|
ve1 = vetb00002.sec_vend,autonext,
|
|
comments = "Digite Codigo Vendedor o Presione Ctrl-W Para Ayuda";
|
|
n2 = formonly.nombre_vend,noentry;
|
|
tr = iptb00006.cod_transp,autonext,
|
|
comments = "Digite el Codigo del transportista o Presione Ctrl-W Para Ayuda";
|
|
tr1 = iptb00006.sec_transp,autonext,
|
|
comments = "Digite el Codigo del transportista o Presione Ctrl-W Para Ayuda";
|
|
nom3 = formonly.nombre_tran,noentry;
|
|
fe = vetb00002.fecha_embarque,format = "dd/mm/yyyy";
|
|
pl1 = formonly.placa_transp,autonext,upshift;
|
|
f = formonly.cod_tarifa,autonext,comments =
|
|
"Digite Codigo Tarifa apagar al transportista";
|
|
dt = formonly.descrip5,noentry;
|
|
dt1 = formonly.descrip6,noentry;
|
|
|
|
f10 = formonly.sub_total,noentry;
|
|
f11 = formonly.desc_valor,noentry;
|
|
f12 = formonly.itbi,noentry;
|
|
f13 = formonly.total_fact,noentry;
|
|
e8 = formonly.nombre_tipo,noentry;
|
|
|
|
a = vetb00003.cod_n,autonext,
|
|
comments =
|
|
"Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
b = vetb00003.cod_grupo,autonext,
|
|
comments = "Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
c = vetb00003.cod_tipo,autonext,
|
|
comments = "Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
d = vetb00003.cod_sec,autonext,
|
|
comments = "Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
des = formonly.descrip_esp,noentry;
|
|
und = formonly.unidad_med,noentry;
|
|
ca = vetb00003.cantidad,autonext,comments=
|
|
"Digite Cantidad a Facturar a ARTICULO";
|
|
pr = vetb00003.precio;
|
|
por = vetb00003.cantidad_2, comments =
|
|
"Digite el porciento a descontar a este ARTICULO";
|
|
mo = formonly.monto_fact,noentry;
|
|
fk1 = formonly.ch_balance,noentry;
|
|
instructions
|
|
delimiters " "
|
|
screen record s_fact[4](cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,unidad_med,
|
|
cantidad,precio,cantidad_2,monto_fact)
|
|
end
|