[ecfisa]

Hola Taburiente.

Luego decirte que unos de mis muchos problema es precisamente incluir en los ficheros que genero los datos que tu me has omitido

Correcto, pero ¿ De donde salen esos datos ? por que en el archivo que adjuntaste, LISTADO_FICHERO.txt, no existen y de la nada no se pueden fabricar...

Ahora, si se trata sólo de poner la cadena textualmente, bastaría con agregarlo en la línea:

Código Delphi [-]
...
      while (Pos('.afp',Linea)=0)and(Pos('-',Linea)=0) do
      begin
        Writeln(Destino, 'MP  1  1  XXX' +Linea); // aquí se agrega la cadena 
        Readln(Origen, Linea);
      end;
...

Al código anterior.


Un saludo.