{
--------------------------------------------------------------------------
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