GHC CEX

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

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

GHC_CEX( data, r130_kod )

data - дата

r130_kod - код кассы

Текст

parameters data, r130_kod
if Empty( r130_kod )
  r130_kod := CHOICEREFR( 'R130', 'KOD', { 'KOD', 'PNAME' } )
endif
if Empty( data )
  data := DATE()
endif
local cex1, flt, shift
shift := DtoS( data ) + '1'
cex1 := OPENCHILDDOC( 'CEX', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data )  )
flt := [ KINDDOC = 'CEX' and LVLNUM = '1' and KSHIFT = '] + shift + [' and KREFL1 = 'R130' and KANAL1 = ] + r130_kod
( cex1 )->( SetFilter( flt ) )
( cex1 )->( Refresh() )
( cex1 )->( DbGoTop() )
MAKEPRVS( ( cex1 )->( GetArea() ),, 2 )

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

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

Функции Delphi

CEX