Enumeración de venta

[morey]

Perfecto, muy buena idea para hacer el modulo, aunque pascal no tiene la función mod?
valor:=<Detalle1x."id_venta">;
begin
valor:=valor mod 30;
end;
memo48.text:=inttostr(valor);