Вывод даты в ЛИК в по номеру акта
Пользователь:
artgonch (IP-адрес скрыт)
Дата: 27, May, 2013 13:18
Здравствуйте.
Версия И64, 2009-1.
Обнаружили, что в форме TABIUW при получении ЛИК по номеру акта форма в первой колонке не выводит дату. А хотелось бы. Вот что я добавил в файл TABIUW.pft:
'
\trowd \trqc\trgaph108\trleft-108
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx1100\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx2200\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx3000\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx3700\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx6497\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx7205\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx7914\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx9190\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15
\cellx9846
\pard \ql\widctlpar\intbl {'
if s(v215^y)=''then
(if &unifor('Av991^b#1')=v910^y then v910^c*6.2|.|,v910^c*4 else
if p(v910) then if 'C U 2 7':v910^a then else
if &unifor('Av991#1'):v910^u and &unifor('Av991#1'):v910^d then
ref(L('KSU='&unifor('Av991^a#1')),v88^b*6.2|.|,v88^b*4.2|.|,v88^b*2.2),
'\par ' else
if &unifor('Av991#1'):v910^u then if &unifor('Av991#1'):'^b' then else
ref(L('KSU='&unifor('Av991^a#1')),v88^b*6.2|.|,v88^b*4.2|.|),
'\par 'fi fi,
if &unifor('Av991#1'):v910^d then if &unifor('Av991#1'):'^a'then else
ref(L('KSU='v910^u),v88^b*6.2|.|,v88^b*4.2|.|,v88^b*2.2|(|v88^a|)|),
'\par 'fi fi fi fi fi fi)fi,
'\cell }
\pard \ql\widctlpar\intbl {'
(if p(v910) then
if 'C U 2 7':v910^a or p(v910^4) then else
if &unifor('Av991^a#1')=v910^u and &unifor('Av991^b#1')=v910^d
or &unifor('Av991^c#1')=v910^y and &unifor('Av991^b#1')=v910^d
or &unifor('Av991^b#1')='' and (&unifor('Av991^a#1')=v910^u or &unifor('Av991^c#1')=v910^y)
or &unifor('Av991^a#1')='' and &unifor('Av991^c#1')='' and &unifor('Av991^b#1')=v910^d
then v910^b*2,if a(v910^b)then v910^h fi'\par '
fi fi fi),
'\cell }
\pard \ql\widctlpar\intbl {'
(if p(v910) then
if 'C U 2 7':v910^a or p(v910^4) then else
if &unifor('Av991^a#1')=v910^u and &unifor('Av991^b#1')=v910^d
or &unifor('Av991^c#1')=v910^y and &unifor('Av991^b#1')=v910^d
or &unifor('Av991^b#1')='' and (&unifor('Av991^a#1')=v910^u or &unifor('Av991^c#1')=v910^y)
or &unifor('Av991^a#1')='' and &unifor('Av991^c#1')='' and &unifor('Av991^b#1')=v910^d
then v910^d'\par '
fi fi fi),
'\cell }
\pard \ql\widctlpar\intbl {''\cell }
\pard \ql\widctlpar\intbl {'
v461^x| |,v461^c,if p(v461) then"; "v200^v,if p(v200^v) then": "d200^a fi else
,v700^a," "v700^b," "d700,v200^a, " "v923^h"; "v200^v fi,(if p(v225) and 'a'='b' then'. -('v225^a,if
p(v225^a)then"; "v225^v fi')'fi),if p(v210^c) then" - "v210^A ": ",v210^C, ' - ' v215^a,v215^1 fi
'\cell }
\pard \qc\widctlpar\intbl {'v210^d'\cell }
\pard \qc\widctlpar\intbl {'v906'\cell }
\pard \qr\widctlpar\intbl {'
(if p(v910) then
if 'C U 2 7':v910^a or p(v910^4) then else
if &unifor('Av991^a#1')=v910^u and &unifor('Av991^b#1')=v910^d
or &unifor('Av991^c#1')=v910^y and &unifor('Av991^b#1')=v910^d
or &unifor('Av991^b#1')='' and (&unifor('Av991^a#1')=v910^u or &unifor('Av991^c#1')=v910^y)
or &unifor('Av991^a#1')='' and &unifor('Av991^c#1')='' and &unifor('Av991^b#1')=v910^d
then
if s(v910^e)<>''then f(val(v910^e,' 0'),0,2) else
if val(&unifor('Av10^d#1'))>0 then f(val(&unifor('Av10^d#1'),' 0'),0,2)
else &unifor('Av10^d#1')
fi fi'\par '
fi fi fi),
'\cell }
\pard \qc\widctlpar\intbl {''\cell }
\pard \widctlpar\intbl {\b \row }\pard \qc\widctlpar'
Однако столбец по-прежнему остается пустым. Условие, по-видимому, выполняется, потому что если я ставлю там безусловный литерал, то он в столбец выходит.
Помогите разобраться.
Заранее спасибо.