UTH TO STR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 16: | Строка 16: | ||
party - вернуть только номер партии ( по умолчанию, false ) | 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 | ||
= Смотрите также = | = Смотрите также = | ||
Версия 12:10, 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
