Версия 11:36, 13 февраля 2017

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

RET_BAR_KOD(bar_code, name, nds)

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

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

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