контрольная сумма
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный гость
- Сообщения: 85
- Зарегистрирован: 23 апр 2008, 14:08
- Откуда: г.Уфа МУП Уфаводоканал
решила пользоваться интерфейсом ObjPlPorSimple
например, номер автоматически сгенерирует...
вот только я не поняла как получить текущий дескриптор...
например, номер автоматически сгенерирует...
вот только я не поняла как получить текущий дескриптор...
Код: Выделить всё
Function PlPor_GetNewNumber (_TiDkGal : Word; _TiDk : Word; _Descr : TDESCR; _DatVip : Date) : TNODOK;
Возвращает очередной номер платежного документа
Да здравствует разум! Да сгинет маразм!
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
Из настроек - откуда же еще.
Сначала ищите код настройкм.
На нужной - ctrl+F4 - tdefinision.code(синоним tunedef) (по F3 выберите - влом галку запускать
). Дальше полученное значение используете в sgettune('????'). Функции по работе с настройками где то описаны в доке, но не в vipprogr.chm. Скорей всего в txo.pdf.
Сначала ищите код настройкм.
На нужной - ctrl+F4 - tdefinision.code(синоним tunedef) (по F3 выберите - влом галку запускать

-
- Постоянный гость
- Сообщения: 85
- Зарегистрирован: 23 апр 2008, 14:08
- Откуда: г.Уфа МУП Уфаводоканал
Как ни странно, но2. Ну и не забудьте тогда следить за soprhoz и basefin. Тем он и хуже, что в первом варианте за правильностью связей следит галка, а во втором вам придется самим - что впрочем не очень сложно имея под рукой журнал
Код: Выделить всё
piPlPor.PlPor_Fill(bufPlPor, TIDKGAL, TIDK, DATVIP,0);
bufPlPor.NODOK:=NODOK;
bufPlPor.NAMEPL1:=NAMEPL1;
bufPlPor.NAMEPL2:=NAMEPL2;
bufPlPor.NAMEPL3:=NAMEPL3;
bufPlPor.NAMEPL4:=NAMEPL4;
bufPlPor.SUMPLAT:=SUMPLAT;
bufPlPor.cplat:=CPLAT;
bufPlPor.cpol:=CPOL;
nrec_my:=piPlPor.PlPor_Insert(bufPlPor);
Для того чтобы создать к ней BASEFIN и SOPRHOZ - надо будет подключать интерфейс F_SoprHoz???????
Да здравствует разум! Да сгинет маразм!
-
- Постоянный гость
- Сообщения: 85
- Зарегистрирован: 23 апр 2008, 14:08
- Откуда: г.Уфа МУП Уфаводоканал
Код: Выделить всё
Function PlPor_Insert (bufPlPor : TPlPor) : Comp;
Добавление PlPor, с проверкой корректности и формированием SoprHoz

Да здравствует разум! Да сгинет маразм!