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

Hisava: /* Текст */

2017-05-11T06:26:03Z

‎Текст

Hisava в 06:24, 11 мая 2017

2017-05-11T06:24:32Z

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

2017-05-11T06:21:48Z

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

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

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

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

@@ Строка 3: / Строка 3: @@
 [[EXPORTTOSHTRIHPRINT2]]()
 = Текст =
-  if !YesNo( 'Выгрузить собственную продукцию на весы ?', false )
+  if ![[YesNo]]( 'Выгрузить собственную продукцию на весы ?', false )
     return
   endif
@@ Строка 10: / Строка 10: @@
   fld := ' _1,N,6; _2,C,20; _3,C,20; _4,N,14,4; _5,N,5; _6,N,5; '
-  sql := [ Select KOD From R09 Where KOD_OKEI = '166' ]
+  sql := [ Select KOD From [[R09]] Where KOD_OKEI = '166' ]
   try
-    WaitMsg( 'Подготовка справочника изделий', msg )
+    [[WaitMsg]]( 'Подготовка справочника изделий', msg )
-    r09_kod := SqlToArr( sql,, ReflisPath )
+    r09_kod := [[SqlToArr]]( sql,, ReflisPath )
-    _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
+    _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
-    sql := [ Select TOP 100 PERCENT KOD From R11 Where KODED = ] + r09_kod + [ Order by KOD ]
+    sql := [ Select TOP 100 PERCENT KOD From [[R11]] Where KODED = ] + r09_kod + [ Order by KOD ]
-    SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1 ) ] + sql, ReflisPath )
+    [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _1 ) ] + sql, ReflisPath )
-    ( _ )->( DbGoTop() )
+    ( _ )->( [[DbGoTop]]() )
-    while !( _ )->( eof() )
+    while !( _ )->( [[eof]]() )
-      ( _ )->_2 := Left( RealName( 'R11', ( _ )->_1 ), 20 )
+      ( _ )->_2 := [[Left]]( [[RealName]]( '[[R11]]', ( _ )->_1 ), 20 )
-      ( _ )->_3 := SUBSTR( RealName( 'R11', ( _ )->_1 ), 21, 20 )
+      ( _ )->_3 := [[SUBSTR]]( [[RealName]]( '[[R11]]', ( _ )->_1 ), 21, 20 )
       ( _ )->_4 := 10
-      ( _ )->_5 := SeekRef( 'R11', ( _ )->_1, 'SHELF_LIFE', 1 )
+      ( _ )->_5 := [[SeekRef]]( '[[R11]]', ( _ )->_1, 'SHELF_LIFE', 1 )
       ( _ )->_6 := 21
-      ( _ )->( DbSkip() )
+      ( _ )->( [[DbSkip]]() )
     end
-    ( _ )->( DbGoTop() )
+    ( _ )->( [[DbGoTop]]() )
     fld := { '_1', '_2', '_3', '_4', '_5', '_6' }
-    sql := [ Select _1, _2, _3, _4, _5, _6 From ] + TmpFilePath( _ )
+    sql := [ Select _1, _2, _3, _4, _5, _6 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 )
-  ExportToScales( { 1,,,, ip_scales, 1111, 2000, 500 }, aa )
+  [[ExportToScales]]( { 1,,,, ip_scales, 1111, 2000, 500 }, aa )
-  Message( 'Изделия успешно выгружены на весы' )
+  [[Message]]( 'Изделия успешно выгружены на весы' )
   // _1 код изделия
@@ Строка 55: / Строка 55: @@
   // http://wiki.sftserv.ru/index.php/ExportToScales
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]