MAKE ALL FOR GHC 1 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 12: | Строка 12: | ||
endif | endif | ||
try | try | ||
| − | cex1 := OPENCHILDDOC( 'CEX', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data ) ) | + | cex1 := [[OPENCHILDDOC]]( 'CEX', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data ) ) |
flt := [ KINDDOC = 'CEX' and LVLNUM = '1' and DREFL1 = 'R02 ' and KSHIFT = '] + shift + [' and KREFL1 = 'R130' and KANAL1 = ] + r130_kod | flt := [ KINDDOC = 'CEX' and LVLNUM = '1' and DREFL1 = 'R02 ' and KSHIFT = '] + shift + [' and KREFL1 = 'R130' and KANAL1 = ] + r130_kod | ||
( cex1 )->( SetFilter( flt ) ) | ( cex1 )->( SetFilter( flt ) ) | ||
| Строка 22: | Строка 22: | ||
end | end | ||
next | next | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 08:41, 29 сентября 2017
MAKE_ALL_FOR_GHC_1 - это программа из справочника R266
Переформировать проводки
MAKE_ALL_FOR_GHC_1( r20_codes, data )
Текст
parameters r20_codes, data
local i, r130_kod, cex1, flt, 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
cex1 := OPENCHILDDOC( 'CEX', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data ) )
flt := [ KINDDOC = 'CEX' and LVLNUM = '1' and DREFL1 = 'R02 ' and KSHIFT = '] + shift + [' and KREFL1 = 'R130' and KANAL1 = ] + r130_kod
( cex1 )->( SetFilter( flt ) )
( cex1 )->( Refresh() )
( cex1 )->( DbGoTop() )
MAKEPRVS( ( cex1 )->( GetArea() ),, 2 )
finally
( cex1 )->( CloseForm( GetForm( GetArea() ) ) )
end
next
