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

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

Текущая версия на 13:53, 27 марта 2020

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

Переформировать проводки

MAKE_ALL_FOR_GHC_1( r20_codes, data )

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

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

Функции Delphi

Источник — «https://wiki.sftserv.ru/index.php?title=MAKE_ALL_FOR_GHC_1&oldid=38028»