database marmotech
screen size 24 by 80
{
Orden No. [f000       ]   Fecha Oc.: [f001      ]
Cliente   [f0|f003]       [b1                                      ]
Vendedor  [v1  ] [ve                            ]  
Direccion [a                                                       ]
Telefono  [b         ]  Fax [c         ]        Fecha de Entrega [fe        ]
Condiciones [d    ] [f20                     ]  Balance         [f09         ]
\g--------------------------------------------------------------------------\g
  Codigo           Descripcion   Bisel   Cant.   Precio   Desc.      Total
\g--------------------------------------------------------------------------\g
  [e|f|g  |h   ] [a2                ][b   ][f22   ][f10    ][f9  ] [f11       ]
                                               Total de Material [f12         ]  
                   Instalacion Tope Cantidad     [f13     ] Precio [f14     ]
                   Mano Obra [un  ] Cantidad     [f15     ] Precio [f16     ]
                                    Transporte   [f17     ] Itbis  [f18     ]
}
end
tables
prtb00012,vetb00004,prtb00013
attributes
f000 = prtb00012.num_oc,noentry;
f001 = prtb00012.fecha_oc,required,format="dd/mm/yyyy";
f0   = prtb00012.tipo_cliente,required,comments = "Control-W Busca CLientes";
f003 = vetb00004.sec_cliente,required,comments = "Control-W Busca CLientes";
b1   = vetb00004.nombre,reverse,noentry;
a    = prtb00012.direccion,upshift;
b    = prtb00012.telefono;
c    = prtb00012.fax;
d    = prtb00012.cond_pago,comments =
       "Digite la Condicion de Pago";
f20  = formonly.descrip_p,noentry;
fe = prtb00012.fecha_entrega,format = "dd/mm/yyyy";
f09  = formonly.balance,noentry;
v1 = prtb00012.sec_vend,comments = "Control-W Para Buscar Vendedores";
ve = formonly.nombre_vend,reverse,noentry;

e   = prtb00013.cod_n;
f   = prtb00013.cod_grupo;
g   = prtb00013.cod_tipo;
h   = prtb00013.cod_sec;
a2  = formonly.descrip_esp,noentry;
b   = prtb00013.bisel,UPSHIFT,INCLUDE = ("DBN","SDN"),comments =
      "Digite DBN o SDN";
f22 = formonly.cantidad type Decimal(5,2);
f10 = formonly.precio type Decimal(5,2);
f9  = formonly.descuento type Decimal(3,2);
f11 = formonly.total_p type Decimal(8,2),noentry;
 
f12  = formonly.sub_total,noentry;
f13  = prtb00013.cantidad_i,comments =
       "Digite la cantidad de Metros en Instalacion de Topes";
f14  = prtb00013.precio_i,comments =
       "Digite el precio de Instalacion de Tope";
un   = formonly.unidad_med,noentry;
f15  = prtb00013.cantidad_mo,comments =
       "Digite la cantidad de Metro a instalar"; 
f16  = prtb00013.precio_mo,comments =
       "Digite el precio por Metro de Instalacion";
f17  = prtb00012.transporte,comments =
       "Digite el Costo del Transporte del Producto";
f18  = prtb00012.itbis,noentry;
instructions
  screen record s_pedido[1] 
  (cod_n, cod_grupo, cod_tipo, cod_sec, descrip_esp, bisel, 
   cantidad, precio, descuento, total_p)
end