Re: Докомплектование
Пользователь:
Дунаевская С.М. (IP-адрес скрыт)
Дата: 25, March, 2005 18:02
За это (замена поля 910) в autoin.gbl от 5.10.2004 (обновление версии 20041d3) отвечает оператор:
REP
910
F
if &unifor('Av920#1')='KSU'then else (if p(v910) then v910,if s(v910^b,v910^h)<>''then if &unifor('IPRIVATE,KSU,')<>''then if p(v910^c) and v910^c<>&unifor('3') and val(v910^c) < val(&unifor('DCMPL,!KSU=',&unifor('IPRIVATE,KSU,'),'!,v88^b')) then else if a(v910^u) then'^U'&unifor('IPRIVATE,KSU,') fi,if a(v910^y) and &unifor('IPRIVATE,NA,')<>''then'^Y'&unifor('IPRIVATE,NA,') fi,if a(v910^c) and &unifor('IPRIVATE,KSU,')<>''then'^C'ref(L('KSU='&unifor('IPRIVATE,KSU,')),v88^b) fi,fi,if a(v910^9) then if ref(L('SZKSU='&unifor('IPRIVATE,KSU,')),v62^6)<>'' then if p(v910^u) and v910^u=&unifor('IPRIVATE,KSU,') or a(v910^u) then'^9'ref(L('SZKSU='&unifor('IPRIVATE,KSU,')),v62^6) fi fi fi fi fi fi/) fi/
XXXXXXXXXXXXXXXXXXX
Алгоритм следующий: если в поле 910 нет 910^u (КСУ), то проверяется дата ввода этого экземпляра (910^c), если она не равна текущей дате (<>&unifor('3')), то она сравнивается с датой ввода записи КСУ, установленной в настройке (88^b в записи КСУ) и, если дата экз-ра меньше даты ввода КСУ, поле 910 не пополняется.
Отсюда следует, что для того, чтобы экземпляр, не имеющий КСУ, не был отнесен к обрабатываемой партии, необходимо, чтобы дата его ввода присутствовала обязательно и была бы меньше даты ввода записи КСУ обрабатываемой партии.