UTH TO STR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 26: | Строка 26: | ||
for i := 0 to 6 | for i := 0 to 6 | ||
| − | sql := [ Select NUMDOC, DATDOC, KANAL1, Left( ] + SqlField( 'NATTR12',, 'sql_char' )+ [, 30 ) PARTY From DOCS] + Ret_f_ext( data,, -i ) + [ ; | + | sql := [ Select NUMDOC, DATDOC, KANAL1, [[Left]]( ] + SqlField( 'NATTR12',, 'sql_char' )+ [, 30 ) PARTY From [[DOCS]]] + [[Ret_f_ext]]( data,, -i ) + [ ; |
Where KINDDOC = 'UTH' and LVLNUM = '2' and DATDOC <= '] + SqlDate( data ) + [' and KREFL1 = 'R01 ' and KANAL1 > 0 and DREFL2 = '] + refl + [' and DANAL2 = ] + kod + [ ; | Where KINDDOC = 'UTH' and LVLNUM = '2' and DATDOC <= '] + SqlDate( data ) + [' and KREFL1 = 'R01 ' and KANAL1 > 0 and DREFL2 = '] + refl + [' and DANAL2 = ] + kod + [ ; | ||
Order by DATDOC DESC ] | Order by DATDOC DESC ] | ||
Версия 12:11, 3 ноября 2016
UTH_TO_STR - это программа из справочника R266
UTH_TO_STR(refl, kod, data, party := false)
Вернуть информацию о покупке номенклатуры строкой в виде
номер накладной "от" дата накладной ( код поставщика ) поставщик
за последние 6 месяцев
refl - справочник номенклатуры
kod - код номенклатуры
data - дата накладной
party - вернуть только номер партии ( по умолчанию, false )
Текст программы
parameters refl, kod, data, party := false
local sql, aa, fld, i
fld := { 'NUMDOC', 'DATDOC', 'KANAL1', 'PARTY' }
for i := 0 to 6
sql := [ Select NUMDOC, DATDOC, KANAL1, Left( ] + SqlField( 'NATTR12',, 'sql_char' )+ [, 30 ) PARTY From DOCS] + Ret_f_ext( data,, -i ) + [ ;
Where KINDDOC = 'UTH' and LVLNUM = '2' and DATDOC <= '] + SqlDate( data ) + [' and KREFL1 = 'R01 ' and KANAL1 > 0 and DREFL2 = '] + refl + [' and DANAL2 = ] + kod + [ ;
Order by DATDOC DESC ]
aa := SqlToArr( sql, fld )
if !IsEmpty( aa )
result := aa[1,1] + ' от ' + aa[1,2] + ' ( ' + aa[1,3] + ' ) ' + RealName( 'R01', aa[1,3] )
if party
result := aa[1,4]
endif
return
endif
next
