{
--------------------------------------------------------------------------
FORMULARIO    : VEFMMT036
OBJETIVO      : Este programa captura la factura PLAN RANCHERO (veprmt036)
REALIZADO POR : Ing. Jose Alfredo Paulino.
FECHA         : Diciembre 23, 1996.
--------------------------------------------------------------------------
}
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                  ]                 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   Cantidad   Unidades   Despacho Existencia Precio         Monto
[a][b][c ][d  ][ca       ][uni       ][de1    ][ex     ][pr        ][mo        ]
[a][b][c ][d  ][ca       ][uni       ][de1    ][ex     ][pr        ][mo        ]
[a][b][c ][d  ][ca       ][uni       ][de1    ][ex     ][pr        ][mo        ]
[a][b][c ][d  ][ca       ][uni       ][de1    ][ex     ][pr        ][mo        ]
[des                             ]
}
tables
 vetb00002,
 vetb00003,
 iptb00006
attributes
g1  = formonly.descrip1,noentry;
p1  = vetb00002.cod_cia,autonext,include = (1 to 2),
comments = "Digite 01- Ray-o-vac    02- Distribuidora";
p2  = formonly.compania,noentry;
t   = vetb00002.ventas,autonext,include = ("1"),
comments = "       1- LOCAL    ";
l   = vetb00002.zona,autonext,
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-W Para Ayuda";
c2  = vetb00002.sec_cliente,autonext,
comments = "Digite Codigo Cliente o Presione Ctrl-W Para Ayuda";
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,autonext,comments =
"Digite Porciento descuento si la factura es local, Cargos si es de exportacion";
nom  = formonly.nombre_desc,reverse;
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;
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 de la Pila o Ctrl-W Para Ayuda";
b  = vetb00003.cod_grupo,autonext,
comments = "Digite Codigo de la Pila o Ctrl-W Para Ayuda";
c  = vetb00003.cod_tipo,autonext,
comments = "Digite Codigo de la Pila o Ctrl-W Para Ayuda";
d  = vetb00003.cod_sec,autonext,
comments = "Digite Codigo de la Pila o Ctrl-W Para Ayuda";
des = formonly.descrip2,noentry;
ca = vetb00003.cantidad,autonext;
uni = formonly.unidades,noentry;
de1 = formonly.despacho,autonext,comments =
"Digite Cantidad de Cajas a despachar para este ARTICULO";
ex  = formonly.existencia,noentry;
pr = vetb00003.precio,noentry; 
mo = formonly.monto_fact,noentry;
fk1 = formonly.ch_balance,noentry;
instructions
     screen record s_fact[4](cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,unidades,
                             despacho,existencia,precio, monto_fact)
 delimiters " "
end