{
--------------------------------------------------------------------------
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 smarmotech
screen size 24 by 80
{
     Conduce[pp     ][p2                                                 ]
Tipo Factura[tipo          ][dtipo                                       ]                       
Compania:[p1]Ventas:[t][e8          ]Ubicac.:[l  ][g1                    ]
Factura :[f1    ]  NCF:[knc     ]De[kq    ]             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    Cotizacion Fecha     ITBIS
[co][co2                       ][or1   ][feo       ][co01  ][feco      ][f16   ]
Vendedor                           Transportista [nom3                         ]
[ve1 ][n2                           ][tr][tr1 ]Tarifa[f ][dt               ]
Fecha Embarque:[fe         ]FT Comercial:[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
kq   = formonly.porcentaje_n;
pp   = formonly.pconduce;
knc  = formonly.kncf;
tipo = formonly.codigodgii;
dtipo = formonly.descripcion;
g1  = formonly.descrip1,noentry;
p1  = vetb00002.cod_cia,autonext,include = (1 to 5);
p2  = formonly.compania,noentry;
t   = vetb00002.ventas,autonext,include = ("1","2","3","4"),
comments = "       1- LOCAL    2- EXPORTACION   4-EXPORTACION EUROS";
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,
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 = formonly.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