FILL AND DANCE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 11: | Строка 11: | ||
= Текст программы = | = Текст программы = | ||
| − | parameters data | + | parameters data |
local name, tmp_path, sql | 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 | 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 | ||
| Строка 51: | Строка 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 ) |
= Смотрите также = | = Смотрите также = | ||
Текущая версия на 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 )
