Ассоциация ЭБНИТ    ИРБИС-корпорация    Вики-Ирбис    Online/CHM справка Ирбис   
АРМ Комплектатор :  ИРБИС Irbis
 
выходная форма подобно TKS2PW
Пользователь: kharlamova_n (IP-адрес скрыт)
Дата: 18, January, 2020 07:44

Ирбис64+ версия 2018.1 Хотели создать выходную форму подобную TKS2PW (КСУ выбытия), но добавить столбцы. Не смогли найти, в какой таблице fst определяется поле 180. В файле TKS2PW.pft есть строки:
\cell }
\pard \widctlpar\intbl {\qr \fs16 'if p(v180)then if val(v180^i)>0 then f(val(v180^i,' 0'),0,0)fi fi
'
\cell }
\pard \widctlpar\intbl {\qr \fs16 'if p(v180)then if val(v180^j)>0 then f(val(v180^j,' 0'),0,0)fi fi
'
Это столбцы Наименование (v180^i) и Экземпляры (v180^j). Нужно добавить столбцы Наименование на каз.яз. (v180^l) и Экземпляры на каз.яз. (v180^m)
Вопрос: где можно описать v180^l и v180^m ?

Re: выходная форма подобно TKS2PW
Пользователь: kharlamova_n (IP-адрес скрыт)
Дата: 25, January, 2020 12:35

Я не прошу создать новую выходную форму, раз вы говорите, что это не входит в сопровождение, но указать, где задаются переменные, я думаю, входит в сопровождение. Просьба ответить в любом случае.

Re: выходная форма подобно TKS2PW
Пользователь: ochagova (IP-адрес скрыт)
Дата: 27, January, 2020 11:49

Поле 180 определено в файле rks2.fst, который работает при пополнении записи КСУ по записям указанной БД каталога. Т.Е. поле 180^I строится по формату:

if (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/

Читается примерно так:
Считаем наименования не NJ, не SPEC_NJ, при условии совпадения КСУ, при условии, что кол-во списанных (^X) за вычетом кол-ва переданных (^Z) больше чем 0. Проверка выполняется по полю 940, которое должно формироваться в процессе списания (не Руками!).

В вашем случае, видимо, это поле пусто (приложите запись), т.к. у вас NJ.



Извините, только зарегистрированные пользователи могут писать в этом форуме.
This forum powered by Phorum.