Текущая версия на 08:24, 28 сентября 2021

UTH_TO_STR - это программа из справочника R266

Вернуть информацию о покупке номенклатуры строкой в виде
номер накладной "от" дата накладной ( код поставщика ) поставщик

UTH_TO_STR(refl, kod, data, party := false)

за последние 6 месяцев

refl - справочник номенклатуры

kod - код номенклатуры

data - дата накладной

party - вернуть только номер партии ( по умолчанию, false )

Смотрите также

@@ Строка 13: / Строка 13: @@
 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
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]