EXPORTTOCAS - История изменений

Hisava в 07:10, 15 сентября 2021

2021-09-15T07:10:19Z

Hisava: /* Текст */

2017-06-14T12:27:16Z

‎Текст

Hisava в 12:20, 14 июня 2017

2017-06-14T12:20:21Z

Hisava в 12:10, 14 июня 2017

2017-06-14T12:10:40Z

Hisava: /* Смотрите также */

2017-06-14T12:08:31Z

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

Hisava в 12:08, 14 июня 2017

2017-06-14T12:08:04Z

Hisava: Новая страница: «= Смотрите также = Полезные функции Функции Delphi»

2017-06-14T12:06:31Z

Новая страница: «= Смотрите также = Полезные функции Функции Delphi»

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

= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]

@@ Строка 2: / Строка 2: @@
   Выгрузка изделий и товаров на весы CAS
 [[EXPORTTOCAS]]()
 = Смотрите также =
 [[Выгрузить изделия и товары на весы CAS]]

@@ Строка 18: / Строка 18: @@
     [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _0, _1 ) ] + sql, ReflisPath )
     // r08
-    sql := [ Select TOP 100 PERCENT 'R08', KOD From [[R08]] Where KODED = ] + r09_kod + [ Order by KOD ]
+    sql := [ Select TOP 100 PERCENT '[[R08]]', KOD From [[R08]] Where KODED = ] + r09_kod + [ Order by KOD ]
   //  sql := [ Select TOP 1 'R08', KOD From R08 Where KODED = ] + r09_kod + [ Order by KOD ]
-    SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _0, _1 ) ] + sql, ReflisPath )
+    [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _0, _1 ) ] + sql, ReflisPath )
-    ( _ )->( DbGoTop() )
+    ( _ )->( [[DbGoTop]]() )
-    while !( _ )->( eof() )
+    while !( _ )->( [[eof]]() )
-      WaitMsg( a_s( ( _ )->_1 ) , msg )
+      [[WaitMsg]]( [[a_s]]( ( _ )->_1 ) , msg )
-      ( _ )->_2 := Left( RealName( ( _ )->_0, ( _ )->_1 ), 20 )
+      ( _ )->_2 := [[Left]]( [[RealName]]( ( _ )->_0, ( _ )->_1 ), 20 )
-      ( _ )->_3 := SUBSTR( RealName( ( _ )->_0, ( _ )->_1 ), 21, 20 )
+      ( _ )->_3 := [[SUBSTR]]( [[RealName]]( ( _ )->_0, ( _ )->_1 ), 21, 20 )
       ( _ )->_4 := 10 * 0
       ( _ )->_5 := 10
-      if ( _ )->_0 = 'R11 '
+      if ( _ )->_0 = '[[R11]] '
         ( _ )->_6 := 22
         ( _ )->_7 := ( _ )->_1 + 100000
       else
-        // у товаров PLU совпадает с кодом в справочнике R08
+        // у товаров PLU совпадает с кодом в справочнике [[R08]]
         ( _ )->_6 := 21
         ( _ )->_7 := ( _ )->_1
       endif
-      ( _ )->( DbSkip() )
+      ( _ )->( [[DbSkip]]() )
     end
-    ( _ )->( DbGoTop() )
+    ( _ )->( [[DbGoTop]]() )
     fld := { '_1', '_2', '_3', '_4', '_5', '_6', '_22', '_7' }
-    sql := [ Select _1, _2, _3, _4, _5, _6, Left( _2, 2 ) _22,  _7 From ] + TmpFilePath( _ )
+    sql := [ Select _1, _2, _3, _4, _5, _6, [[Left]]( _2, 2 ) _22,  _7 From ] + [[TmpFilePath]]( _ )
-    aa := SqlToArr( sql, fld )
+    aa := [[SqlToArr]]( sql, fld )
   finally
-    CloseTable( _ )
+    [[CloseTable]]( _ )
-    HideMsg( msg )
+    [[HideMsg]]( msg )
   end
-  ip_scales := GetPrm( 'IP_SCALES', 'SHOPOPER', 1 )
+  ip_scales := [[GetPrm]]( 'IP_SCALES', 'SHOPOPER', 1 )
-  EXPORTTOSCALESCAS( ip_scales, 20304, aa )
+  [[EXPORTTOSCALESCAS]]( ip_scales, 20304, aa )
   // ExportToScales( { 1,,,, ip_scales, 1111, 2000, 500 }, aa )
-  Message( 'Изделия и товары успешно выгружены на весы' )
+  [[Message]]( 'Изделия и товары успешно выгружены на весы' )
   // EXPORTTOSCALESCAS( "192.168.234.202", 20304, { { 4202, "Томаты", "пальчиковые", 68.35, 10, 21, "АЯ47", 1 } } )
   // _0 справочник
@@ Строка 59: / Строка 59: @@
   // _6 код группы товаров
   // _7 PLU
 = Смотрите также =
 [[Выгрузить изделия и товары на весы CAS]]

@@ Строка 8: / Строка 8: @@
   local fld, _, r09_kod, aa, sql, msg, ip_scales
   fld := ' _0,C,4; _1,N,6; _2,C,20; _3,C,20; _4,N,14,4; _5,N,5; _6,N,5; _7,N,6; '
-  // возвращаем код кг из справочника R09
+  // возвращаем код кг из справочника [[R09]]
   r09_kod := [[R09_KOD_KG]]()
   try
-    WaitMsg( 'Подготовка справочника изделий и товаров', msg )
+    [[WaitMsg]]( 'Подготовка справочника изделий и товаров', msg )
-    _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
+    _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
     // r11
-    sql := [ Select TOP 100 PERCENT 'R11', KOD From R11 Where KODED = ] + r09_kod + [ Order by KOD ]
+    sql := [ Select TOP 100 PERCENT '[[R11]]', KOD From [[R11]] Where KODED = ] + r09_kod + [ Order by KOD ]
   //  sql := [ Select TOP 1 'R11', KOD From R11 Where KODED = ] + r09_kod + [ Order by KOD ]
-    SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _0, _1 ) ] + sql, ReflisPath )
+    [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _0, _1 ) ] + sql, ReflisPath )
     // r08
-    sql := [ Select TOP 100 PERCENT 'R08', KOD From R08 Where KODED = ] + r09_kod + [ Order by KOD ]
+    sql := [ Select TOP 100 PERCENT 'R08', KOD From [[R08]] Where KODED = ] + r09_kod + [ Order by KOD ]
   //  sql := [ Select TOP 1 'R08', KOD From R08 Where KODED = ] + r09_kod + [ Order by KOD ]
     SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _0, _1 ) ] + sql, ReflisPath )

@@ Строка 2: / Строка 2: @@
   Выгрузка изделий и товаров на весы CAS
 [[EXPORTTOCAS]]()
 = Смотрите также =
 [[Выгрузить изделия и товары на весы CAS]]

@@ Строка 3: / Строка 3: @@
 [[EXPORTTOCAS]]()
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]