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

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

Версия 11:38, 10 апреля 2017

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

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

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

Пример

FILL_AND_DANCE( 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