CLOSEPRODREPS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Смотрите также) |
Hisava (обсуждение | вклад) м (→Текст програмы) |
||
| Строка 25: | Строка 25: | ||
// сырье | // сырье | ||
code_m := GetParam( 'RPT_CODE_M', 'PROD', ~Task_anal := R10_KOD ) | code_m := GetParam( 'RPT_CODE_M', 'PROD', ~Task_anal := R10_KOD ) | ||
| − | AddReps( DtoS( _date ) + shift, code_m, false, true ) | + | [[AddReps]]( DtoS( _date ) + shift, code_m, false, true ) |
group := SeekRef('R206', code_m, 'CODEGROUP', 1 ) | group := SeekRef('R206', code_m, 'CODEGROUP', 1 ) | ||
IsLockRps( DtoS( _date ) + shift, R10_KOD, group, true ) | IsLockRps( DtoS( _date ) + shift, R10_KOD, group, true ) | ||
// продукция | // продукция | ||
rpt_code_p := GetParam( 'RPT_CODE_P', 'PROD', ~Task_anal := R10_KOD ) | rpt_code_p := GetParam( 'RPT_CODE_P', 'PROD', ~Task_anal := R10_KOD ) | ||
| − | AddReps( DtoS( _date ) + shift, rpt_code_p, false, true ) | + | [[AddReps]]( DtoS( _date ) + shift, rpt_code_p, false, true ) |
group := SeekRef( 'R206', rpt_code_p, 'CODEGROUP', 1 ) | group := SeekRef( 'R206', rpt_code_p, 'CODEGROUP', 1 ) | ||
IsLockRps( DtoS( _date )+shift, R10_KOD, group, true ) | IsLockRps( DtoS( _date )+shift, R10_KOD, group, true ) | ||
Версия 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 )
