FILL AND DANCE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «FILL_AND_DANCE - это процедура из справочника R266 Заполнить документ AND "Сырьевая себестоимос…») |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| (не показано 13 промежуточных версий этого же участника) | |||
| Строка 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]] | ||
Текущая версия на 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 )
