MAKE ALL FOR GHC 3 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 2: | Строка 2: | ||
Сформировать отчеты | Сформировать отчеты | ||
[[MAKE_ALL_FOR_GHC_3]]( r20_codes, data ) | [[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
