MAKE ALL FOR GHC 3

Материал из Фабиус wiki
Версия от 11:11, 3 октября 2017; Hisava (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

Сформировать отчеты

MAKE_ALL_FOR_GHC_3( r20_codes, data )

Текст

parameters r20_codes, data
local i, r130_kod, msg, task_num, shift
shift := DTOS( data ) + '1'
for i := 1 to len( r20_codes )
  r130_kod := SeekRef( 'R130', r20_codes[i], 'KOD', 4 )
  if Empty( r130_kod )
    loop
  endif
  try
    WaitMsg( RealName( 'R130', r130_kod, true ), msg )
    task_num := GETTASKNUM( 'SHOP', r20_codes[i] )
    Set_TaskName( 'SHOP', task_num )
    TASKNUM := task_num
    TASKNAME := 'SHOP'
    ADDREPS( shift, 'KASSAPRV5', false, true )
    ADDREPS( shift, 'SHOP15', false, true )
    ADDREPS( shift, 'BUYER2', false, true )
  finally
    HideMsg( msg )
  end
next

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

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

Функции Delphi