Показать сообщение отдельно
Старый 11.12.2006, 10:37   #4  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Тфу .... А бывает так - писал писал письмо и стукнуло по голове . Так вот проблема решилась совсем простейшим способом . После вызова классы копирования , просто проверил ешё раз новые записи в форме InvetJournalTransfer :

Код:
void clicked()
{
   InventJournalTable  invJTbl;
   TextBuffer          buffer;
   InventJournalTrans  invJTrf;
   Str                 cStr,cStr1;
   Args                a = new Args();
   Int                 journalTypeId;
   Real                n,z;

   buffer = new TextBuffer();
   buffer.fromClipboard();
   if ( buffer.subStr(1,12) == "InventSumRec" )
   {
      if ( box::yesNo( "Iklijuoti is atminties ?", DialogButton::Ok, "Klausimas" ) )
      {
         invJTbl       = journalFormTrans.JournalTableData().journalTable();
         journalTypeId = invJTbl.journalType;
         cStr1         = strfmt("%1",journalTypeId);

         z = InventJournalTrans::lastLineNum(invJTbl.JournalId); // сколько запицей перед копированием ;

         a.record(invJTbl);
         a.parm(strfmt("%1",journalTypeId));
         a.caller(journalFormTrans);

         new Menufunction(menuItemActionStr(InventJournalCopyInventSum), MenuItemType::Action).run(a);  // класса копирования 

         n = InventJournalTrans::lastLineNum(invJTbl.JournalId); // 
         if ( n > z ) // есть ли новых записей 
         {
            while select inventJournalTrans where inventJournalTrans.JournalId == invJTbl.JournalId
            {
               if ( inventJournalTrans.LineNum > z )
                  inventJournalTrans.validateWrite();
            }
            invJTbl.NumOfLines = round(n,0);
            InventJournalTrans_ds.research();
         }
      }
   }
}
Работает всё хорошо ... Простите если я занял много времени с своими размышлениями ...

С ыважением , Римантас