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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Примеры)
Строка 40: Строка 40:
  
 
  CloseProdReps( Date(), 1, 27 )
 
  CloseProdReps( Date(), 1, 27 )
 +
 +
CLOSEPRODREPS( Date(), 1, 504 )
  
 
= Смотрите также =
 
= Смотрите также =

Версия 15:49, 29 декабря 2016

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 )

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

Функции Delphi

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