MAKE ALL FOR GHC 3 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «= Смотрите также = Полезные функции Функции Delphi»)
 
м
 
(не показана одна промежуточная версия этого же участника)
Строка 1: Строка 1:
 +
[[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]]
 
[[Функции Delphi]]

Текущая версия на 11:11, 3 октября 2017

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