GHC CEX — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 6: | Строка 6: | ||
r130_kod - код кассы | 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 ) | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 08:20, 4 сентября 2017
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 )
