CLOSEPRODREPS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Смотрите также) |
||
| Строка 40: | Строка 40: | ||
= Смотрите также = | = Смотрите также = | ||
| + | |||
| + | [[Функции Delphi]] | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 12:05, 12 сентября 2016
CloseProdReps - это программа из справочника R266
Сформировать ( переформировать ) движение сырья и закрыть производственный отчет
_date - дата
shift - смена
R10_KOD - код производства из справочника "Подразделения R10"
Текст програмы
parameters _date, shift, R10_KOD
local code_m, rpt_code_p, group
if Type( 'cur_prod_anal' ) = 'U'
Global cur_prod_anal
endif
cur_prod_anal := R10_KOD
// AddReps - формирует отчет
if !Empty( _date ) and !Empty( shift ) and !Empty( R10_KOD )
// сырье
code_m := GetParam( 'RPT_CODE_M', 'PROD', ~Task_anal := R10_KOD )
AddReps( DtoS( _date ) + shift, code_m, false, true )
group := SeekRef('R206', code_m, 'CODEGROUP', 1 )
IsLockRps( DtoS( _date ) + shift, R10_KOD, group, true )
// продукция
rpt_code_p := GetParam( 'RPT_CODE_P', 'PROD', ~Task_anal := R10_KOD )
AddReps( DtoS( _date ) + shift, rpt_code_p, false, true )
group := SeekRef( 'R206', rpt_code_p, 'CODEGROUP', 1 )
IsLockRps( DtoS( _date )+shift, R10_KOD, group, true )
endif
Примеры
CloseProdReps( Date(), 1, 27 )
