CLOSEPRODREPS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст програмы) |
||
| Строка 11: | Строка 11: | ||
= Текст програмы = | = Текст програмы = | ||
| − | + | 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 | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 15:33, 27 июля 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
