108 lines
4.7 KiB
Plaintext
108 lines
4.7 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------
|
|
FORMULARIO : CCFMCS002
|
|
OBJETIVO : Pantalla para consultar la factura comercial (CCPRCS002)
|
|
REALIZADO POR : Tadeo A. Ferreras.
|
|
FECHA : Mayo 27,1993.
|
|
--------------------------------------------------------------------------
|
|
}
|
|
database smarmotech
|
|
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 ] 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 ]
|
|
ARTICULOS Descripcion Cantidad Precio Monto
|
|
[a][b][c ][d ][des ][und][ca ][pr ][mo ]
|
|
[a][b][c ][d ][des ][und][ca ][pr ][mo ]
|
|
[a][b][c ][d ][des ][und][ca ][pr ][mo ]
|
|
[a][b][c ][d ][des ][und][ca ][pr ][mo ]
|
|
}
|
|
tables
|
|
vetb00002,
|
|
vetb00003,
|
|
iptb00006
|
|
attributes
|
|
g1 = formonly.descrip1,noentry;
|
|
p1 = vetb00002.cod_cia,autonext,include = (1 to 2);
|
|
p2 = formonly.compania,noentry;
|
|
t = vetb00002.ventas,autonext,include = ("1","2"),
|
|
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/yy",noentry;
|
|
c1 = vetb00002.tipo_cliente,autonext,
|
|
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;
|
|
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/yy",
|
|
comments = "Digite La Fecha de La Orden";
|
|
co01= vetb00002.conduce,autonext;
|
|
feco = vetb00002.fecha_conduce,format = "dd/mm/yy",
|
|
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/yy";
|
|
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;
|
|
mo = formonly.monto_fact,noentry;
|
|
fk1 = formonly.ch_balance,noentry;
|
|
instructions
|
|
screen record s_fact[4](cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
|
|
unidad_med,cantidad,precio,monto_fact)
|
|
delimiters " "
|
|
end
|