RET BAR KOD - История изменений

Hisava в 12:22, 11 января 2020

2020-01-11T12:22:58Z

Hisava: Отмена правки 37378, сделанной участником Hisava (обс.)

2020-01-11T12:22:46Z

Отмена правки 37378, сделанной участником Hisava (обс.)

Hisava в 12:20, 11 января 2020

2020-01-11T12:20:21Z

Hisava в 07:23, 27 июля 2017

2017-07-27T07:23:24Z

Hisava: /* Текст программы */

2017-02-13T08:36:46Z

‎Текст программы

Hisava: /* Текст программы */

2016-12-09T06:38:06Z

‎Текст программы

Hisava: /* Текст программы */

2016-12-09T06:37:54Z

‎Текст программы

Hisava в 09:13, 3 ноября 2016

2016-11-03T09:13:55Z

Hisava: /* Текст программы */

2016-07-18T06:48:50Z

‎Текст программы

Hisava: Новая страница: «RET_BAR_KOD -это программа из справочника R266 RET_BAR_KOD(bar_code, name, nds) Вернуть код номенклатуры и…»

2016-07-18T06:48:39Z

Новая страница: «RET_BAR_KOD -это программа из справочника R266 RET_BAR_KOD(bar_code, name, nds) Вернуть код номенклатуры и…»

Новая страница

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

RET_BAR_KOD(bar_code, name, nds)

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

bar_code - штрихкод

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

nds - НДС

= Текст программы =

@@ Строка 8: / Строка 8: @@
 nds - НДС
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 8: / Строка 8: @@
 nds - НДС
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
-RET_BAR_KOD -это программа из справочника [[R266]]
+[[RET_BAR_KOD]] - это программа из справочника [[R266]]
+ Вернуть код номенклатуры из справочника [[R08]] по указанному штрихкоду
-RET_BAR_KOD(bar_code,  name,  nds)
+[[RET_BAR_KOD]]( bar_code,  name,  nds )
-−
-Вернуть код номенклатуры из справочника R08 по указанному штрихкоду
 bar_code - штрихкод
@@ Строка 10: / Строка 8: @@
 nds - НДС
 = Текст =
-= Текст программы =
-−
   parameters bar_code, name, nds
@@ Строка 47: / Строка 43: @@
     result := kod
   endif
 = Смотрите также =
 [[Функции Delphi]]

@@ Строка 35: / Строка 35: @@
     try
-      r08 := [[OpenKlsf]]( 'R08' )
+      r08 := [[OpenKlsf]]( '[[R08]]' )
       ( r08 )->( [[DbAppend]]() )
       ( r08 )->KOD := kod

@@ Строка 36: / Строка 36: @@
     try
       r08 := [[OpenKlsf]]( 'R08' )
-      ( r08 )->( DbAppend() )
+      ( r08 )->( [[DbAppend]]() )
       ( r08 )->KOD := kod
       ( r08 )->PNAME := name
       ( r08 )->PRODNDS := nds
       ( r08 )->BAR_CODE := bar_code
-      ( r08 )->( Refresh() )
+      ( r08 )->( [[Refresh]]() )
     finally
-      CloseKlsf( r08 )
+      [[CloseKlsf]]( r08 )
     end
     result := kod

@@ Строка 13: / Строка 13: @@
 = Текст программы =
-parameters 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 + [' ]
+  sql := [ Select KOD From [[R08]] Where BAR_CODE = '] + bar_code + [' ]
-  result := SqlToArr( sql,, ReflisPath )
+  result := [[SqlToArr]]( sql,, ReflisPath )
-  if Empty( result )
+  if [[Empty]]( result )
-    sql := [ Select MAX( KOD ) From R08 ]
+    sql := [ Select [[MAX]]( KOD ) From [[R08]] ]
-    kod := SqlToArr( sql,, ReflisPath )
+    kod := [[SqlToArr]]( sql,, ReflisPath )
     if kod = 99999
       kod := 1
-      auto_id := SeekRef( 'R08', kod, 'AUTO_ID', 1 )
+      auto_id := [[SeekRef]]( '[[R08]]', kod, 'AUTO_ID', 1 )
-      while !Empty( auto_id )
+      while ![[Empty]]( auto_id )
         kod := kod + 1
-        auto_id := SeekRef( 'R08', kod, 'AUTO_ID', 1 )
+        auto_id := [[SeekRef]]( '[[R08]]', kod, 'AUTO_ID', 1 )
       end
     else
@@ Строка 35: / Строка 35: @@
     try
-      r08 := OpenKlsf( 'R08' )
+      r08 := [[OpenKlsf]]( 'R08' )
       ( r08 )->( DbAppend() )
       ( r08 )->KOD := kod

← Предыдущая		Версия 09:13, 3 ноября 2016
Строка 47:		Строка 47:
	result := kod		result := kod
	endif		endif
		+
		+	= Смотрите также =
		+
		+	[[Функции Delphi]]
		+
		+	[[Полезные функции]]

← Предыдущая		Версия 06:48, 18 июля 2016
Строка 12:		Строка 12:

	= Текст программы =		= Текст программы =
		+
		+	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