FILL AND DANCE — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м (Текст программы)
 
(не показано 9 промежуточных версий этого же участника)
Строка 1: Строка 1:
FILL_AND_DANCE - это процедура из справочника [[R266]]
+
[[FILL_AND_DANCE]] - это процедура из справочника [[R266]]
  
Заполнить документ AND "Сырьевая себестоимость готовой продукции"
+
Заполнить документ [[AND]] "Сырьевая себестоимость готовой продукции"
  
FILL_AND_DANCE( data )
+
= Пример =
 +
 
 +
[[FILL_AND_DANCE]]( data )
  
 
data - дата формирования документа
 
data - дата формирования документа
Строка 9: Строка 11:
 
= Текст программы =
 
= Текст программы =
  
parameters data
+
parameters data
 
   
 
   
 
  local name, tmp_path, sql
 
  local name, tmp_path, sql
Строка 16: Строка 18:
 
  tmp_path := 'j:\1\'
 
  tmp_path := 'j:\1\'
 
   
 
   
  if DirectoryExists( tmp_path )
+
  if [[DirectoryExists]]( tmp_path )
 
  else
 
  else
   CreateDir( tmp_path, true )
+
   [[CreateDir]]( tmp_path, true )
 
  endif
 
  endif
 
   
 
   
  if Empty( data )
+
  if [[Empty]]( data )
   data := Date() - 1
+
   data := [[Date]]() - 1
 
  endif
 
  endif
 
   
 
   
  WriteTxtFile( { Date() + ' ' + Time() + ' начало заполнения документа AND за ' + data }, name, tmp_path, true )
+
  [[WriteTxtFile]]( { [[Date]]() + ' ' + [[Time]]() + ' начало заполнения документа AND за ' + data }, name, tmp_path, true )
 
   
 
   
 
  if UserKod = 342
 
  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 )
+
   [[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
 
   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
 
       return
 
     endif
 
     endif
Строка 49: Строка 51:
 
   
 
   
 
  else
 
  else
   FILL_AND_DANCE_01( data, name, tmp_path )
+
   [[FILL_AND_DANCE_01]]( data, name, tmp_path )
 
  endif
 
  endif
 
   
 
   
  FILL_AND_DANCE_02( data, name, tmp_path )
+
  [[FILL_AND_DANCE_02]]( data, name, tmp_path )
  
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
 +
 +
[[Функции Delphi]]
 +
 
[[AND]]
 
[[AND]]

Текущая версия на 15:41, 4 мая 2017

FILL_AND_DANCE - это процедура из справочника R266

Заполнить документ AND "Сырьевая себестоимость готовой продукции"

Пример

FILL_AND_DANCE( data )

data - дата формирования документа

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

parameters data

local name, tmp_path, sql

name := 'Fill_and_dance.txt'
tmp_path := 'j:\1\'

if DirectoryExists( tmp_path )
else
  CreateDir( tmp_path, true )
endif

if Empty( data )
  data := Date() - 1
endif

WriteTxtFile( { Date() + ' ' + Time() + ' начало заполнения документа AND за ' + data }, name, tmp_path, true )

if UserKod = 342
  // Предварительная подготовка
  // Заполнение справочника 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' ) ]
  SimpleSql( sql, OpdataPath )

  if YesNo( 'Перезаписать цены сырья в справочнике R569 на основании R573 ?', false )
    FILL_R569_2( data, name, tmp_path )
  endif

  if YesNo( 'Добавить шапку, выработку и расход сырья?', false )
    FILL_AND_DANCE_01( data, name, tmp_path )

    if !YesNo( 'Продолжить?', false )
      return
    endif
  endif

else
  FILL_AND_DANCE_01( data, name, tmp_path )
endif

FILL_AND_DANCE_02( data, name, tmp_path )

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

Полезные функции

Функции Delphi

AND