GHC CEX — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 9: | Строка 9: | ||
parameters data, r130_kod | parameters data, r130_kod | ||
if Empty( r130_kod ) | if Empty( r130_kod ) | ||
| − | r130_kod := [[CHOICEREFR]]( 'R130', 'KOD', { 'KOD', 'PNAME' } ) | + | r130_kod := [[CHOICEREFR]]( '[[R130]]', 'KOD', { 'KOD', 'PNAME' } ) |
endif | endif | ||
| − | if Empty( data ) | + | if [[Empty]]( data ) |
| − | data := DATE() | + | data := [[DATE]]() |
endif | endif | ||
local cex1, flt, shift | local cex1, flt, shift | ||
| − | shift := DtoS( data ) + '1' | + | shift := [[DtoS]]( data ) + '1' |
| − | cex1 := OPENCHILDDOC( 'CEX', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data ) ) | + | 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 | + | flt := [ KINDDOC = '[[CEX]]' and LVLNUM = '1' and KSHIFT = '] + shift + [' and KREFL1 = '[[R130]]' and KANAL1 = ] + r130_kod |
| − | ( cex1 )->( SetFilter( flt ) ) | + | ( cex1 )->( [[SetFilter]]( flt ) ) |
| − | ( cex1 )->( Refresh() ) | + | ( cex1 )->( [[Refresh]]() ) |
| − | ( cex1 )->( DbGoTop() ) | + | ( cex1 )->( [[DbGoTop]]() ) |
| − | MAKEPRVS( ( cex1 )->( GetArea() ),, 2 ) | + | [[MAKEPRVS]]( ( cex1 )->( [[GetArea]]() ),, 2 ) |
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 08:21, 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 )
