UTH TO STR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Смотрите также) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | UTH_TO_STR - это программа из справочника [[R266]] | + | [[UTH_TO_STR]] - это программа из справочника [[R266]] |
| − | + | Вернуть информацию о покупке номенклатуры строкой в виде | |
| − | + | ||
| − | + | ||
| − | Вернуть информацию о покупке номенклатуры строкой в виде | + | |
| − | + | ||
номер накладной "от" дата накладной ( код поставщика ) поставщик | номер накладной "от" дата накладной ( код поставщика ) поставщик | ||
| + | [[UTH_TO_STR]](refl, kod, data, party := false) | ||
за последние 6 месяцев | за последние 6 месяцев | ||
| Строка 16: | Строка 13: | ||
party - вернуть только номер партии ( по умолчанию, false ) | party - вернуть только номер партии ( по умолчанию, false ) | ||
| − | + | = Текст = | |
| − | = Текст | + | |
| − | + | ||
parameters refl, kod, data, party := false | parameters refl, kod, data, party := false | ||
| Строка 38: | Строка 33: | ||
endif | endif | ||
next | next | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 08:22, 26 июня 2017
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
