Версия 11:37, 10 апреля 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