CLOSEPRODREPS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Примеры) |
Hisava (обсуждение | вклад) м (→Текст програмы) |
||
| Строка 17: | Строка 17: | ||
local code_m, rpt_code_p, group | local code_m, rpt_code_p, group | ||
| − | if Type( 'cur_prod_anal' ) = 'U' | + | if [[Type]]( 'cur_prod_anal' ) = 'U' |
Global cur_prod_anal | Global cur_prod_anal | ||
endif | endif | ||
Версия 12:23, 25 января 2017
CLOSEPRODREPS - это программа из справочника R266
Сформировать ( переформировать ) движение сырья и закрыть производственный отчет
CLOSEPRODREPS( _date, shift, R10_KOD )
_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 )
CLOSEPRODREPS( Date(), 1, 504 )
