CLOSEPRODREPS — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 5 промежуточных версий этого же участника)
Строка 1: Строка 1:
 
[[CLOSEPRODREPS]] - это программа из справочника [[R266]]
 
[[CLOSEPRODREPS]] - это программа из справочника [[R266]]
 
+
Сформировать ( переформировать ) движение сырья и закрыть производственный отчет
Сформировать ( переформировать ) движение сырья и закрыть производственный отчет
+
[[CLOSEPRODREPS]]( _date,  shift,  R10_KOD )
  
 
_date - дата
 
_date - дата
Строка 8: Строка 8:
  
 
R10_KOD - код производства из справочника "Подразделения R10"
 
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, 27 )
+
  [[CLOSEPRODREPS]]( Date(), 1, 504 )
 
+
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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

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

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

CLOSEPRODREPS( _date, shift, R10_KOD )

_date - дата

shift - смена

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

Примеры

CLOSEPRODREPS( Date(), 1, 27 )
CLOSEPRODREPS( Date(), 1, 504 )

Смотрите также

Полезные функции

Функции Delphi