Галактика в вопросах и ответах

Код: Выделить всё

.function IsKassaPrihod(wTip : word) : boolean;
begin
  case wTip of
    7,17 :
     IsKassaPrihod := true;
  else
     IsKassaPrihod := false;
  end;
end.

Код: Выделить всё

#include MCOriginCounry.vih

Код: Выделить всё

  LogStrToFile('Exp.txt', 'Hello' + Chr(9) + 'Bye');

Код: Выделить всё

  tDogovor.cMc == tMc.nRecMc

Код: Выделить всё

  _loop tDogovor {
//    тут выводится договор 
    _loop tMc {
       // а тут МЦ привязанные к нему
    }
  }