CLOSEPRODREPS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст програмы) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[CLOSEPRODREPS]] - это программа из справочника [[R266]] | [[CLOSEPRODREPS]] - это программа из справочника [[R266]] | ||
| − | + | Сформировать ( переформировать ) движение сырья и закрыть производственный отчет | |
| − | Сформировать ( переформировать ) движение сырья и закрыть производственный отчет | + | [[CLOSEPRODREPS]]( _date, shift, R10_KOD ) |
| − | + | ||
| − | + | ||
_date - дата | _date - дата | ||
| Строка 10: | Строка 8: | ||
R10_KOD - код производства из справочника "Подразделения R10" | R10_KOD - код производства из справочника "Подразделения R10" | ||
| − | + | = Текст = | |
| − | = Текст | + | |
| − | + | ||
parameters _date, shift, R10_KOD | parameters _date, shift, R10_KOD | ||
| Строка 36: | Строка 32: | ||
IsLockRps( DtoS( _date )+shift, R10_KOD, group, true ) | IsLockRps( DtoS( _date )+shift, R10_KOD, group, true ) | ||
endif | endif | ||
| − | |||
= Примеры = | = Примеры = | ||
| + | [[CLOSEPRODREPS]]( Date(), 1, 27 ) | ||
| − | + | [[CLOSEPRODREPS]]( Date(), 1, 504 ) | |
| − | + | ||
| − | + | ||
| − | + | ||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 15:44, 26 июля 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 )
