UTH TO STR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 27: | Строка 27: | ||
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 ] | ||
| − | aa := SqlToArr( sql, fld ) | + | aa := [[SqlToArr]]( sql, fld ) |
| − | if !IsEmpty( aa ) | + | if ![[IsEmpty]]( aa ) |
| − | result := aa[1,1] + ' от ' + aa[1,2] + ' ( ' + aa[1,3] + ' ) ' + RealName( 'R01', aa[1,3] ) | + | result := aa[1,1] + ' от ' + aa[1,2] + ' ( ' + aa[1,3] + ' ) ' + [[RealName]]( 'R01', aa[1,3] ) |
if party | if party | ||
result := aa[1,4] | result := aa[1,4] | ||
Версия 12:16, 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
