Impresion de opciones de cocina una por linea

[javier.carrillo]

Buenas Javier,

Si, esto lo podrías hacer más eficiente en la pestaña código del fastreport, en el evento ONBEFOREPRINT del campo que contiene los datos (en mi formato es el Memo5) inserta este código:

procedure Memo5OnBeforePrint(Sender: TfrxComponent);
var
cadena: string;
cnt: integer;
begin
cadena:= <Detalle1x."nota">;
for cnt:=1 to length(cadena) do
      begin
      if cadena[cnt] = '*' then cadena[cnt]:= ''+ #13 + #10;
      end;
Memo5.text:=Memo5.text + cadena;
end;

Luego en los datos elimina las notas para que no se repitan.