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
[e|f|g  |h   ][a2                        ][b2 ][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     ]
                                       Total Ventas [f19        ] 
}
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,autonext,comments = "Control-W Busca CLientes";
f003 = vetb00004.sec_cliente,required,comments = "Control-W Busca CLientes";
b1   = vetb00004.nombre,reverse,noentry;
a    = prtb00012.direccion,upshift,
       comments = "Digite la DIRECCION correcta del cliente";
b    = prtb00012.telefono,picture = "###-###-####",autonext,
       comments = "Digite el numero de TELEFONO con su codigo de Area";
c    = prtb00012.fax,picture = "###-###-####,autonext",
       comments = "Digite el numero de FAX con su codigo de Area";
d    = prtb00012.cond_pago,comments =
       "Digite la CONDICION de Pago";
f20  = formonly.descrip_p,noentry;
fe   = prtb00012.fecha_entrega,format = "dd/mm/yyyy",
       comments = "Digite la FECHA DE ENTREGA de la Orden";
f09  = formonly.balance,noentry;
v1 = prtb00012.sec_vend,comments = "Control-W Para Buscar Vendedores";
ve = formonly.nombre_vend,reverse,noentry;

e   = prtb00013.cod_n,autonext;
f   = prtb00013.cod_grupo,autonext;
g   = prtb00013.cod_tipo;
h   = prtb00013.cod_sec,
      comments = "Digite el Codigo del Producto";
a2  = formonly.descrip_esp,noentry;
b2   = prtb00013.bisel,UPSHIFT,INCLUDE = ("DBN","SDN"),comments =
      "Digite DBN o SDN";
f22 = prtb00013.cantidad,
      comments = "Digite la Cantidad ";
f10 = prtb00013.precio,
      comments = "Digite el Precio";
f9  = prtb00013.descuento;
f11 = formonly.total_p type Decimal(8,2),noentry;
 
f12  = formonly.sub_total,noentry;
f13  = prtb00012.cantidad_i,comments =
       "Digite la cantidad de Metros en Instalacion de Topes";
f14  = prtb00012.precio_i,comments =
       "Digite el precio de Instalacion de Tope";
un   = formonly.unidad_med,noentry;
f15  = prtb00012.cantidad_mo,comments =
       "Digite la cantidad de Metro a instalar"; 
f16  = prtb00012.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;
f19  = formonly.total_v,noentry;
instructions
  screen record s_pedido[1] 
  (cod_n, cod_grupo, cod_tipo, cod_sec, descrip_esp, bisel, 
   cantidad, precio, descuento, total_p)
end