database smarmotech
screen size 24 by 80
{

 Orden  [f000  ] Tipo  [a0] Fecha [f001    ] Via [a2              ]   
 Codigo Suplidor       [f2][f003] [a1                            ] 
 Puerto [p4  ] [p2                             ] Cierre [n]
 Pago   [m]                 Fecha [f009    ] Enviada [l] Fecha [f008    ] 
\g-----------------------------------------------------------------------------\g
 Requi.      Codigo       Cantidad                       Precio          Valor
\g-----------------------------------------------------------------------------\g
[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
  Descripcion [d1                                            ]
} 
end
tables
cotb00014, cotb00015,cotb00024,
cotb00001
attributes
f000 = cotb00014.num_oc,autonext,noentry;
a0 = cotb00014.tipo,upshift,autonext,noentry;
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yy",noentry;
f2 = cotb00014.cod_sp,autonext,noentry;
f003 = cotb00014.cod_sp_sec,autonext,noentry;
a1   = cotb00001.nom_sp,noentry;
a2   = cotb00014.via,noentry;
l    = cotb00014.enviada, noentry;
f008 = cotb00014.fech_enviada, format = "dd/mm/yy",noentry;
m    = cotb00014.pago, noentry;
f009 = cotb00014.fech_pago, format = "dd/mm/yy",noentry;
n    = cotb00014.cierre, noentry;
p4   = formonly.cod_pt,noentry;
p2   = formonly.descrip3,noentry;

r1   = cotb00015.num_req,noentry,
comments =
"Precione  Ctrl-B Busca Descripcion";
c1   = formonly.codigo,noentry;
c2   = cotb00015.cantidad,right,noentry;
p1   = cotb00015.precio,right,noentry;
v1   = formonly.valor,right,noentry;
d1   = formonly.descrip5,noentry;
instructions
  delimiters " "
   screen record cs_orden[4] (num_req,codigo,cantidad,
                              precio,valor)
end