UTH TO STR

Материал из Фабиус wiki
Версия от 12:16, 3 ноября 2016; Hisava (обсуждение | вклад) (Текст программы)

Перейти к: навигация, поиск

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

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

Функции Delphi

Полезные функции