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

Версия 15:20, 11 января 2020

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

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

RET_BAR_KOD( bar_code, name, nds )

bar_code - штрихкод

name - наименование номенклатуры

@@ Строка 8: / Строка 8: @@
 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]]