Не запускается макрос. При компиляции опредеятся ошибка.

• Не запускается макрос. При компиляции опредеятся ошибка. ( Anubis5722  14.01.2015 21:45 )
  Оценка:4(2)

  Ошибка при компиляции программы. Правильно ли я понимаю элементы кода? Свое понимание буду отражать в скобках.
  
  

  /*
     Выборка данных из документа для формирования
           Ордера - распоряжения
     24.01.2002 2:39PM SIE
  */
  Import "Out2Word.ext"; (в этой строке при компиляции указывается ошибка)
  (Этот файл имеется в папке, где и сам файл макроса или надо прописать в кавычках полный путь к файлу Out2Word.ext. В этой сторке происходит подключение справочника форм печати )
  record d (arhdoc); (Здесь указывается, что данные берутся из архивного документа)
  
  MACRO PutPlat(rec)   /* Т_о_ч_к_а  в_х_о_д_а */
     Var obW:Out2Word;
     if (valtype(rec)==1) setbuff(d,rec);
     else                 copy (d,rec);
     end;
  
     obW.CreateWordDocument("\\\10.0.0.2\bank\RS55\Mac\sample175",False); (Создание записи в документе MS Word, в скобках указывается путь к этому файлу)
     obW.FindAndReplace("#01",d.Numb_Document);         /* Номер распоряжение */ 
     obW.FindAndReplace("#02",d.Receiver);              /* Получатель */ (Здесь указывается имя поля, данные которого необходимо отобразить в документе Word)
     obW.FindAndReplace("#03",d.Account_Payer);         /* Дт Счета */
     obW.FindAndReplace("#04",d.Real_Receiver);         /* Кт счета */
     obW.FindAndReplace("#05",String(d.Sum:f));         /* сумма */
     obW.FindAndReplace("#06",d.Account_Receiver);      /* Счет получателя */
     obW.FindAndReplace("#07",d.CorAcc_Receiver);       /* Кор-Счет получателя */
     obW.FindAndReplace("#08",d.MFO_Receiver);          /* Кор-Счет получателя */
     obW.FindAndReplace("#09",d.Ground);                /* Основание */
     obW.FindAndReplace("#10",d.Shifr_Oper);           /* Вид операции */
     obW.FindAndReplace("#11","");                     /* Назн.плат  */
     obW.FindAndReplace("#12",d.Pay_Date);             /* Срок платежа */
     obW.FindAndReplace("#13",d.Payment);              /* Очер.плат */
     obW.FindAndReplace("#14","");                     /* № гр. банка */
     obW.FindAndReplace("#15",{curdate});              /* Дата распоряжения */
     obW.ShowDocument;
     exit(1); /* чтобы User не лицезрел пустой экран */
  End;
  

  
  >> Ответить
  • RE: ошибка компиляции.. ( Евгений Гуцу  15.01.2015 11:53 )
    Оценка:5(1)

    Да, можно прописать полный путь, тогда импортируемый макрос подхватится. Правильнее конечно указать путь к папке польз. макросов в параметре USERMACRODIR реестра настроек (поищите, это в п/с "Системный сервис") - тогда макросы будут находиться без указания полного пути.
    Кстати, путь к шаблону уорд тоже кривой - каждый слэш должен дублироваться, а там впереди почему-то 3 слэша, далее все по одному. Слэш - служебный символ для rsl.
    >> Ответить
    • программирование RS ( Anubis5722  15.01.2015 18:02 )
      Оценка:5(1)

      Спасибо, еще один момент, можно ли скачать систему RS-bank, чтобы изучать программирование дома?
      >> Ответить
      • Законно - нет ) ( Ltybc  16.01.2015 09:10 )
        Оценка:5(1)

        РС проверяет лицензию через хасп, так что разве что пробрасывать канал от банка до дома, на что никто не пойдет.
        Можно поработать с устаревшей rsl32.exe - самостоятельной копией Оболочки RSL, которая позволит с файлами поработать или там интерфейс разработать.
        >> Ответить