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