if (FileExists(sFileName)) then
begin
    sTableMap := RunParams.ParamByName('TableMap').AsString;
    sAfterPost := RunParams.ParamByName('AfterPost').AsString;
    sTagPart := RunParams.ParamByName('TagPart').AsString;
    dsPost.SQLScript.Add(Format('delete from R3IMPREG where IDOCFILE = ''%s''; ',[edFileName.Text]));
    dsPost.SQLScript.Add(Format('insert into R3IMPREG (id,idocfile,pdate,owner) values(newid(),''%s'',current_date,''%s''); ',[FName,UserName]));
    sSQL := XMLToInsertSQL(sFileName,sTableMap);
    dsPost.SQLScript.Add(sSQL);
    if sAfterPost <> '' then
    dsPost.SQLScript.Add(Format('execute procedure %s(''%s'',''%s'',''%s''); ',[sAfterPost,FName,UserName,sTagPart]));
        dsPost.ApplyUpdates(- 1 );
end;

    for i := 0  to m.Lines.Count- 1  do
    begin

      if Copy(m.Lines[i], 23 , 8 )='00000000' then continue;
      dt.Append;
      dt.FieldByName('TRAID').AsString := Copy(m.Lines[i], 23 , 8 );
      dt.FieldByName('BOLNR').AsString := Copy(m.Lines[i], 49 , 8 );
      dt.FieldByName('PDATE').AsString := Copy(m.Lines[i], 61 , 2 )
        + '.' + Copy(m.Lines[i], 63 , 2 ) + '.2008';
      dt.FieldByName('SDATE').AsString := Copy(m.Lines[i], 57 , 2 )
        + '.' + Copy(m.Lines[i], 59 , 2 ) + '.2008';

      dt.FieldByName('CRGWT').AsString := Copy(m.Lines[i], 67 , 8 );
      dt.FieldByName('CRGCODE').AsString := Copy(m.Lines[i], 97 , 5 );
      dt.FieldByName('DELAM').AsString := Copy(m.Lines[i], 113 , 6 );
      dt.FieldByName('CTOKPO').AsString := Copy(m.Lines[i], 131 , 8 );

      dt.Post;
    end;

  if OpenDialog.Execute then
  begin
    edFile.Text := ExtractFileName(OpenDialog.FileName);
    Scripter.Script.LoadFromFile(GetUnitsDir + '2iscra.pl');
    Scripter.Run;
    m.Lines.Clear;
    m.Lines.LoadFromFile(OpenDialog.FileName);
  end;

$inputfile = "DUAL";
$inputfile =~ m![^/\\]+$!;
$outputfile = $`."out.log";

    if( -f $inputfile ){
        open( LOGFILE, "<". $inputfile) or die (" $!");
    }

    #die ($vcl->ShowMessage(" $!")) unless( $outputfile );
    open( OUT, ">". $outputfile) or die (" $!");
    
    while(<LOGFILE>)
    {
        #ИНН  9999999999 
       s/(Плательщик1=|Получатель1=)\s*ИНН\s+\d+\s+(.+)$/$ 1 $ 2 /;
       s/^(Дата[^=]*|СрокПлатежа)= 00 \. 00 \. 0000 /$ 1 = 01 . 01 . 1976 /;
       s/\./,/g if (/Сумма|Всего|Остаток/ and /\d\.\d/);

      print OUT $_;
    }   
 
    close LOGFILE;
    close OUT;
    rename($outputfile,$inputfile);

function Execute(var ActionResult; Action);
var
  B: TMDBrowserItems;
  BI: TMDBrowserItem;
  ds,tds: TISADOClientDataSet;
  TmpFile,TagFile: string;
  v: OleVariant;
  P: TParams;
begin
    B := TMDBrowserItems(RunParams.ParamByName('_MDBrowserItems_').Value);
    BI :=  B.Items[ 0 ];
    ds := BI.DataSet;
    if ((ds.SQLScript.Text = '') or (RunParams.ParamByName('SENDTO').AsString = '')) then
    begin
       ActionResult := false;
       exit;
    end;

    tds := TISADOClientDataSet.Create(nil);
    tds.RemoteServer := GetBrokerEntry;
    tds.ProviderName := 'TOutBoxNew';
    tds.SysFields.IDFieldName := 'ID';
    tds.SysFields.GuidKey := true;

    tds.Open;

    tds.Append;
    tds.FindField('PARTITION').AsString := 'OUTBOX';
    tds.FindField('POSTDATE').AsDateTime := Now();
    tds.FindField('FROMTO').AsString := RunParams.ParamByName('SENDTO').AsString;
    tds.FindField('PRNAME').AsString := ds.ProviderName;
    tds.FindField('LOGIN').AsString := GetBrokerEntry.UserName;
    tds.FindField('TAGPRNAME').AsString := '';
    tds.Post;
    TmpFile := GetAppDataDir + ds.ProviderName + '.sql';

    ds.SQLScript.SaveToFile(TmpFile);

    TagFile := '\TRANSIT\' + tds.FindField('ID').AsString + '.sql';

    if GetBrokerEntry.SavePublicFile(TmpFile,TagFile) then
      tds.ApplyUpdates(- 1 );
end;

<?xml version="1.0"?>
<ZSHETP><IDOC BEGIN="1">
<EDI_DC40 SEGMENT="1">
<TABNAM>EDI_DC40</TABNAM>
<MANDT> 030 </MANDT>
<DOCNUM> 0000000000286013 </DOCNUM>
<DOCREL> 620 </DOCREL>
<STATUS> 30 </STATUS>
<DIRECT> 1 </DIRECT>
<SKIP....>
и т.д.и т.п.

    
dsPost.SQLScript.Add(Format('delete from R3IMPREG where IDOCFILE = ''%s''; ',[edFileName.Text]));