FILL AND DANCE - История изменений

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

2017-05-04T12:41:43Z

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

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

2017-04-10T08:42:17Z

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

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

2017-04-10T08:41:29Z

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

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

2017-04-10T08:41:00Z

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

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

2017-04-10T08:39:21Z

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

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

2017-04-10T08:38:59Z

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

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

2017-04-10T08:38:51Z

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

Hisava в 08:38, 10 апреля 2017

2017-04-10T08:38:35Z

Hisava в 08:38, 10 апреля 2017

2017-04-10T08:38:18Z

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

2017-04-10T08:37:38Z

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

@@ Строка 11: / Строка 11: @@
 = Текст программы =
-parameters data
+ parameters data
   local name, tmp_path, sql

@@ Строка 35: / Строка 35: @@
     // Получение расхода сырья
     // Получение выработки
-    sql := [ [[Delete]] From [[DOCP]]] + Ret_f_ext( data ) + [ Where KINDDOC = 'AND' and DATDOC = '] + SqlDate( data ) + [' and ( LVLNUM = '2' or  LVLNUM = '3' or  LVLNUM = '4' ) ]
+    sql := [ [[Delete]] From [[DOCP]]] + [[Ret_f_ext]]( data ) + [ Where KINDDOC = '[[AND]]' and DATDOC = '] + [[SqlDate]]( data ) + [' and ( LVLNUM = '2' or  LVLNUM = '3' or  LVLNUM = '4' ) ]
-    SimpleSql( sql, OpdataPath )
+    [[SimpleSql]]( sql, OpdataPath )
-    if YesNo( 'Перезаписать цены сырья в справочнике R569 на основании R573 ?', false )
+    if [[YesNo]]( 'Перезаписать цены сырья в справочнике [[R569]] на основании [[R573]] ?', false )
-      FILL_R569_2( data, name, tmp_path )
+      [[FILL_R569_2]]( data, name, tmp_path )
     endif
-    if YesNo( 'Добавить шапку, выработку и расход сырья?', false )
+    if [[YesNo]]( 'Добавить шапку, выработку и расход сырья?', false )
-      FILL_AND_DANCE_01( data, name, tmp_path )
+      [[FILL_AND_DANCE_01]]( data, name, tmp_path )
-      if !YesNo( 'Продолжить?', false )
+      if ![[YesNo]]( 'Продолжить?', false )
         return
       endif
@@ Строка 51: / Строка 51: @@
   else
-    FILL_AND_DANCE_01( data, name, tmp_path )
+    [[FILL_AND_DANCE_01]]( data, name, tmp_path )
   endif
-  FILL_AND_DANCE_02( data, name, tmp_path )
+  [[FILL_AND_DANCE_02]]( data, name, tmp_path )
 = Смотрите также =

@@ Строка 35: / Строка 35: @@
     // Получение расхода сырья
     // Получение выработки
-    sql := [ [[Delete]] From DOCP] + Ret_f_ext( data ) + [ Where KINDDOC = 'AND' and DATDOC = '] + SqlDate( data ) + [' and ( LVLNUM = '2' or  LVLNUM = '3' or  LVLNUM = '4' ) ]
+    sql := [ [[Delete]] From [[DOCP]]] + Ret_f_ext( data ) + [ Where KINDDOC = 'AND' and DATDOC = '] + SqlDate( data ) + [' and ( LVLNUM = '2' or  LVLNUM = '3' or  LVLNUM = '4' ) ]
     SimpleSql( sql, OpdataPath )

@@ Строка 31: / Строка 31: @@
   if UserKod = 342
     // Предварительная подготовка
-    // Заполнение справочника R569
+    // Заполнение справочника [[R569]]
     // Добавление шапки
     // Получение расхода сырья
     // Получение выработки
-    sql := [ Delete From DOCP] + Ret_f_ext( data ) + [ Where KINDDOC = 'AND' and DATDOC = '] + SqlDate( data ) + [' and ( LVLNUM = '2' or  LVLNUM = '3' or  LVLNUM = '4' ) ]
+    sql := [ [[Delete]] From DOCP] + Ret_f_ext( data ) + [ Where KINDDOC = 'AND' and DATDOC = '] + SqlDate( data ) + [' and ( LVLNUM = '2' or  LVLNUM = '3' or  LVLNUM = '4' ) ]
     SimpleSql( sql, OpdataPath )

@@ Строка 23: / Строка 23: @@
   endif
-  if Empty( data )
+  if [[Empty]]( data )
-    data := Date() - 1
+    data := [[Date]]() - 1
   endif
-  WriteTxtFile( { Date() + ' ' + Time() + ' начало заполнения документа AND за ' + data }, name, tmp_path, true )
+  [[WriteTxtFile]]( { [[Date]]() + ' ' + [[Time]]() + ' начало заполнения документа AND за ' + data }, name, tmp_path, true )
   if UserKod = 342

@@ Строка 20: / Строка 20: @@
   if [[DirectoryExists]]( tmp_path )
   else
-    CreateDir( tmp_path, true )
+    [[CreateDir]]( tmp_path, true )
   endif

@@ Строка 18: / Строка 18: @@
   tmp_path := 'j:\1\'
-  if DirectoryExists( tmp_path )
+  if [[DirectoryExists]]( tmp_path )
   else
     CreateDir( tmp_path, true )

@@ Строка 2: / Строка 2: @@
   Заполнить документ [[AND]] "Сырьевая себестоимость готовой продукции"
 = Пример =
   [[FILL_AND_DANCE]]( data )
 = Текст программы =

@@ Строка 1: / Строка 1: @@
-FILL_AND_DANCE - это процедура из справочника [[R266]]
+[[FILL_AND_DANCE]] - это процедура из справочника [[R266]]
-Заполнить документ AND "Сырьевая себестоимость готовой продукции"
+ Заполнить документ [[AND]] "Сырьевая себестоимость готовой продукции"
-−
-FILL_AND_DANCE( data )
 data - дата формирования документа
 = Текст программы =

← Предыдущая		Версия 08:37, 10 апреля 2017
Строка 55:		Строка 55:

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