// Обнуляем файл ZayavkiRezultat.tro (Файл с данными об успешно отправленных транзакциях)
 Set QuikZayavka=##class(%FileCharacterStream).%New()
 Set QuikZayavka.Filename="C:\ObmenVB\ZayavkiRezultat.tro"
 Set QuikZayavkawww="Первая запись, иначе потом глюки"
 do QuikZayavka.WriteLine(QuikZayavkawww)
 do QuikZayavka.SaveStream()
 

      s file=##class(%File).%New("C:\ObmenVB\ZayavkiRezultat.tro")
      s sc=file.Open("R")
      while 'file.AtEnd
      {
        Set Stroka=file.ReadLine()
        if (Stroka="")||(Stroka=" ")||(Stroka="Первая запись, иначе потом глюки") {Goto EndZaprosRTO}
        if StrNr>0
          {
          Set id=$p(Stroka,";",1) // получаем TRANS_ID=2;
          Set id2=$Extract(id,1,9) // получаем TRANS_ID=
          if id2="TRANS_ID=" {Set id3=$Extract(id,10,100)} // 2
          if id3=QuitMojNomerZayavki
          {
            Set id=$p(Stroka,";",2) // получаем STATUS=0;
            Set id2=$Extract(id,1,7) // получаем STATUS=
            if id2="STATUS=" {Set id3=$Extract(id,8,100)} // 3
            if id3=0 
            {
              Set NomerMMVB=50
              Set www=$ZT(aaa)_(($PIECE($ZTIMESTAMP,",",2))#1)_"  Заявка на сделку ("_QiukOPERATION_") отправлена по цене "_QuikPRICE_" в количестве "_KolvoZayavka_" шт"
            do History.WriteLine(www)
            do History.SaveStream()
            }
            if id3=4 // «4» - транзакция не выполнена торговой системой, код ошибки торговой системы будет указан в поле «DESCRIPTION», 
            {

      s file=##class(%File).%New("C:\ObmenVB\ZayavkiRezultat.tro")
      s sc=file.Open("R")
      while 'file.AtEnd
      {
        Set Stroka=file.ReadLine()
        if (Stroka="")||(Stroka=" ")||(Stroka="Первая запись, иначе потом глюки") {Goto EndZaprosRTO}
        if StrNr>0
          {
          Set id=$p(Stroka,";",1) // получаем TRANS_ID=2;
          Set id2=$Extract(id,1,9) // получаем TRANS_ID=
          if id2="TRANS_ID=" {Set id3=$Extract(id,10,100)} // 2
          if id3=QuitMojNomerZayavki
          {
            Set id=$p(Stroka,";",2) // получаем STATUS=0;
            Set id2=$Extract(id,1,7) // получаем STATUS=
            if id2="STATUS=" {Set id3=$Extract(id,8,100)} // 3
            if id3=0 
            {
              Set NomerMMVB=50
              Set www=$ZT(aaa)_(($PIECE($ZTIMESTAMP,",",2))#1)_"  Заявка на сделку ("_QiukOPERATION_") отправлена по цене "_QuikPRICE_" в количестве "_KolvoZayavka_" шт"
            do History.WriteLine(www)
            do History.SaveStream()
            }
            if id3=4 // «4» - транзакция не выполнена торговой системой, код ошибки торговой системы будет указан в поле «DESCRIPTION», 
            {
              Set NomerMMVB=4500
              .........

 s file=##class(%File).%New("C:\ObmenVB\ZayavkiRezultat.tro")
 s sc=file.Open("RK\CP1251\")