28 lines
587 B
Plaintext
28 lines
587 B
Plaintext
DATABASE marmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Descuentos
|
|
\g---------------------------\g
|
|
Codigo Porciento Cantidad
|
|
\g---------------------------\g
|
|
[i ] [j ] [c ]
|
|
[i ] [j ] [c ]
|
|
[i ] [j ] [c ]
|
|
[i ] [j ] [c ]
|
|
[i ] [j ] [c ]
|
|
[i ] [j ] [c ]
|
|
}
|
|
end
|
|
|
|
tables
|
|
vetb00002
|
|
attributes
|
|
i = formonly.codigo,noentry;
|
|
j = formonly.porc,noentry;
|
|
c = formonly.valor,noentry;
|
|
instructions
|
|
screen record s_desc[6] (codigo,porc,valor)
|
|
delimiters " "
|
|
end
|
|
|