MAKE ALL FOR GHC 1

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

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

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

Функции Delphi