Files
MBS/PROYECTO/cpdir/cpfmwd003.per
T

37 lines
1.3 KiB
Plaintext

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