UTH TO STR — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м
 
(не показаны 3 промежуточные версии этого же участника)
Строка 1: Строка 1:
UTH_TO_STR - это программа из справочника [[R266]]
+
[[UTH_TO_STR]] - это программа из справочника [[R266]]
 
+
  Вернуть информацию о покупке номенклатуры строкой в виде
UTH_TO_STR(refl, kod,  data,  party := false)
+
 
+
Вернуть информацию о покупке номенклатуры строкой в виде
+
 
+
 
  номер накладной "от" дата накладной ( код поставщика ) поставщик
 
  номер накладной "от" дата накладной ( код поставщика ) поставщик
 +
[[UTH_TO_STR]](refl,  kod,  data,  party := false)
  
 
за последние 6 месяцев
 
за последние 6 месяцев
Строка 16: Строка 13:
  
 
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
 
 
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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

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

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

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

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

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

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

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

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

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

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

Функции Delphi