RET BAR KOD — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 6 промежуточных версий этого же участника)
Строка 1: Строка 1:
RET_BAR_KOD -это программа из справочника [[R266]]
+
[[RET_BAR_KOD]] - это программа из справочника [[R266]]
 
+
  Вернуть код номенклатуры из справочника [[R08]] по указанному штрихкоду
RET_BAR_KOD(bar_code, name,  nds)
+
[[RET_BAR_KOD]]( bar_code, namends )
 
+
  bar_code - штрихкод
Вернуть код номенклатуры из справочника R08 по указанному штрихкоду
+
name - наименование номенклатуры
 
+
nds - НДС
bar_code - штрихкод
+
 
+
name - наименование номенклатуры
+
 
+
nds - НДС
+
 
+
= Текст программы =
+
 
+
parameters bar_code, name, nds
+
+
local sql, kod, auto_id, r08
+
+
sql := [ Select KOD From R08 Where BAR_CODE = '] + bar_code + [' ]
+
result := SqlToArr( sql,, ReflisPath )
+
   
+
if Empty( result )
+
  sql := [ Select MAX( KOD ) From R08 ]
+
  kod := SqlToArr( sql,, ReflisPath )
+
  if kod = 99999
+
    kod := 1
+
    auto_id := SeekRef( 'R08', kod, 'AUTO_ID', 1 )
+
    while !Empty( auto_id )
+
      kod := kod + 1
+
      auto_id := SeekRef( 'R08', kod, 'AUTO_ID', 1 )
+
    end
+
  else
+
    kod := kod + 1
+
  endif
+
   
+
  try
+
    r08 := OpenKlsf( 'R08' )
+
    ( r08 )->( DbAppend() )
+
    ( r08 )->KOD := kod
+
    ( r08 )->PNAME := name
+
    ( r08 )->PRODNDS := nds
+
    ( r08 )->BAR_CODE := bar_code
+
    ( r08 )->( Refresh() )
+
  finally
+
    CloseKlsf( r08 )
+
  end
+
  result := kod
+
endif
+
 
+
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

Текущая версия на 15:22, 11 января 2020

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

Вернуть код номенклатуры из справочника R08 по указанному штрихкоду

RET_BAR_KOD( bar_code, name, nds )

bar_code - штрихкод
name - наименование номенклатуры
nds - НДС

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

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

Функции Delphi