RECALCUTHSUM R08 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
RECALCUTHSUM_R08 - это функция из справочника [[R266]] | RECALCUTHSUM_R08 - это функция из справочника [[R266]] | ||
| + | |||
| + | Пересчитать цены на сырье по выделенным документам [[UTH]] | ||
| + | |||
| + | = Текст программы = | ||
| + | |||
| + | local ga, sr, i, uth2 | ||
| + | |||
| + | ga := GetArea() | ||
| + | sr := SelRows( GetForm( ga ) ) | ||
| + | |||
| + | if IsEmpty( sr ) | ||
| + | Message( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' ) | ||
| + | return | ||
| + | endif | ||
| + | |||
| + | if !YesNo( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false ) | ||
| + | return | ||
| + | endif | ||
| + | |||
| + | for i := 1 to Len( sr ) | ||
| + | ( ga )->( DbGoTo( sr[i] ) ) | ||
| + | uth2 := OpenChildDoc( 'UTH', '2', ( ga )->RGNUM ) | ||
| + | if ( uth2 )->DREFL2 = 'R08 ' | ||
| + | ( uth2 )->ALLPRICE := R473PRICE_WO_SUPPL( ( uth2 )->DANAL2, ( uth2 )->DATDOC ) | ||
| + | endif | ||
| + | next | ||
| + | |||
| + | [[MakePrvs]]( ga,, 3 ) | ||
= Смотрите также = | = Смотрите также = | ||
Версия 08:24, 19 октября 2016
RECALCUTHSUM_R08 - это функция из справочника R266
Пересчитать цены на сырье по выделенным документам UTH
Текст программы
local ga, sr, i, uth2
ga := GetArea()
sr := SelRows( GetForm( ga ) )
if IsEmpty( sr )
Message( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' )
return
endif
if !YesNo( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false )
return
endif
for i := 1 to Len( sr )
( ga )->( DbGoTo( sr[i] ) )
uth2 := OpenChildDoc( 'UTH', '2', ( ga )->RGNUM )
if ( uth2 )->DREFL2 = 'R08 '
( uth2 )->ALLPRICE := R473PRICE_WO_SUPPL( ( uth2 )->DANAL2, ( uth2 )->DATDOC )
endif
next
MakePrvs( ga,, 3 )
