Текущая версия на 15:10, 11 января 2020

CLOSEPRODREPS - это программа из справочника R266

Сформировать ( переформировать ) движение сырья и закрыть производственный отчет

CLOSEPRODREPS( _date, shift, R10_KOD )

_date - дата

shift - смена

R10_KOD - код производства из справочника "Подразделения R10"

Примеры

CLOSEPRODREPS( Date(), 1, 27 )

CLOSEPRODREPS( Date(), 1, 504 )

@@ Строка 8: / Строка 8: @@
 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 )