database marmotech   
screen size 24 by 80
{
Orden No.[f000  ]  Tipo Orden [a0]  Fecha [f001    ] No. Proforma [f005      ]
Codigo Suplidor    [f2][f003] [a1                                           ] 
Codigo de Pago [f4][a8                            ] Via [a2][h         ] 
Enviada  [l]  Fecha[f008    ]  Pago [m]  Fecha Pago [f009    ]  Cierre [n] 
Puerto [p1 ][p2                        ] Codigo Moneda [cm  ][dem            ]
\g-------------------------------------------------------------------------
Requisicion  Codigo     Cantidad  ESB  Number      Precio        Valor
\g-------------------------------------------------------------------------
[re    ][a         ][f3         ][f5          ][f6          ][f7          ]
[re    ][a         ][f3         ][f5          ][f6          ][f7          ]
[re    ][a         ][f3         ][f5          ][f6          ][f7          ]
Descripcion  [des                           ]                 Unidad [f8 ]
N.A.B.  [F9         ]        Nomenclatura [k                             ]
}
end
tables
cotb00005, cotb00006,
intb00001, cotb00008,
cotb00014, cotb00024,
cotb00001, cotb00015
attributes
re   = cotb00006.num_req,autonext,comments =
       "Digite Numero de Requisicion o Presione Ctrl-w Para Busqueda";
a    = formonly.codigo,noentry; 
des  = intb00001.descrip_esp,noentry;
f8   = intb00001.unidad_med,noentry;
k    = formonly.descrip1,noentry;    
f3   = cotb00008.cantidad,noentry;
f5   = cotb00015.num_parte,upshift,comments =
       "Presione Ctrl-w Para Busqueda de Entregas Parciales";
f9   = cotb00005.cod_nab,noentry;
f6   = cotb00008.precio,noentry;
f7   = formonly.valor,noentry;
f000 = cotb00014.num_oc,noentry;
a0 = cotb00014.tipo,upshift,autonext,
     include = ("01","02","03","04"),
     comments ="01=Generales, 02=Rov-Ltd, 03=Locales, 04=Miscelaneas";
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yy",
       comments ="Digite la fecha de elaboracion de la orden";
f005 = cotb00014.num_pr,autonext,
       comments ="Digite el numero de la proforma o cotizacion";
f2 = cotb00014.cod_sp,autonext,
       comments = 
"Digite el codigo del suplidor o Presione Ctrl-W para busqueda";
f003 = cotb00014.cod_sp_sec,autonext,
     comments =
"Digite la secuencia del suplidor o Presione Ctrl-W para busqueda";
a1   = cotb00001.nom_sp,noentry;
f4   = cotb00014.term_sp,autonext,
       comments =
"Digite el termino de pago o Presione Ctrl-W para busqueda";
a8   = cotb00024.descrip_term,noentry;
a2   = cotb00014.via,autonext,include = ("01","02","03"),
       comments ="Digite 01 = Martitima, 02 = Aerea, 03 = Terrestre";
h    = formonly.nom_via,noentry;
l    = cotb00014.enviada,autonext,upshift, 
       comments = "Digite S o N";
f008 = cotb00014.fech_enviada, format = "dd/mm/yy";
m    = cotb00014.pago,autonext,upshift, 
       comments = "Digite S o N";
f009 = cotb00014.fech_pago, format = "dd/mm/yy";
n    = cotb00014.cierre,autonext,upshift; 
p1   = formonly.cod_pt,autonext, comments =
"Digite el puerto de embarque o Presione Ctrl-W para busqueda";
p2   = formonly.nombre_p,noentry;
cm   = formonly.cod_mon,autonext, comments =
"Digite el Codigo de la moneda o Presione Ctrl-W para busqueda";
dem  = formonly.nombre_mon,noentry;
instructions
    screen record consart[3] (num_req,codigo,cantidad,num_parte,precio,valor)
end