database marmotech   
screen
{

    Orden_no [oc        ] Fecha Orden [fe      ]  Valor Orden [tt          ]
    Suplidor [c1]-[c2  ] [c3                             ]
 \g--------------------------------------------------------------------------\g
  Articulo                                 Cantidad     Precio    Valor 
 \g--------------------------------------------------------------------------\g
  [cod       ][b4                      ][ca         ][pr       ][va          ]
  [cod       ][b4                      ][ca         ][pr       ][va          ]
  [cod       ][b4                      ][ca         ][pr       ][va          ]
  [cod       ][b4                      ][ca         ][pr       ][va          ]
}
end
tables
cptb00001
cotb00015
attributes
oc = cptb00001.orden_no,noentry;
fe = cptb00001.fecha_orig,noentry,format="dd/mm/yy";
c1 = cptb00001.cod_sp,noentry;
c2 = cptb00001.cod_sp_sec,noentry;
c3 = formonly.nom_sup,noentry,color=yellow;

cod= formonly.codigo;
b4 = formonly.descripcion,noentry,color=yellow;
ca = cotb00015.cantidad,noentry;
pr = cotb00015.precio,noentry;
va = formonly.valor type decimal(12,2),noentry;

tt = formonly.total_v type decimal(12,2),noentry;
instructions
   screen record ordenes[4](codigo,descripcion,cantidad,precio,valor)
delimiters " "
end