RECALCUTHSUM R08 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| (не показано 5 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | RECALCUTHSUM_R08 - это функция из справочника [[R266]] | + | [[RECALCUTHSUM_R08]] - это функция из справочника [[R266]] |
| − | + | Пересчитать цены на сырье по выделенным документам [[UTH]] | |
| − | Пересчитать цены на сырье по выделенным документам [[UTH]] | + | [[RECALCUTHSUM_R08]]() |
| − | + | = Текст = | |
| − | = Текст | + | |
| − | + | ||
local ga, sr, i, uth2 | local ga, sr, i, uth2 | ||
ga := [[GetArea]]() | ga := [[GetArea]]() | ||
| − | sr := SelRows( GetForm( ga ) ) | + | sr := [[SelRows]]( [[GetForm]]( ga ) ) |
| − | if IsEmpty( sr ) | + | if [[IsEmpty]]( sr ) |
| − | Message( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' ) | + | [[Message]]( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' ) |
return | return | ||
endif | endif | ||
| − | if !YesNo( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false ) | + | if ![[YesNo]]( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false ) |
return | return | ||
endif | endif | ||
| − | for i := 1 to Len( sr ) | + | for i := 1 to [[Len]]( sr ) |
| − | ( ga )->( DbGoTo( sr[i] ) ) | + | ( ga )->( [[DbGoTo]]( sr[i] ) ) |
| − | uth2 := OpenChildDoc( 'UTH', '2', ( ga )->RGNUM ) | + | uth2 := [[OpenChildDoc]]( '[[UTH]]', '2', ( ga )->RGNUM ) |
if ( uth2 )->DREFL2 = 'R08 ' | if ( uth2 )->DREFL2 = 'R08 ' | ||
| − | ( uth2 )->ALLPRICE := R473PRICE_WO_SUPPL( ( uth2 )->DANAL2, ( uth2 )->DATDOC ) | + | ( uth2 )->ALLPRICE := [[R473PRICE_WO_SUPPL]]( ( uth2 )->DANAL2, ( uth2 )->DATDOC ) |
endif | endif | ||
next | next | ||
| Строка 30: | Строка 28: | ||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Текущая версия на 15:50, 17 июля 2017
RECALCUTHSUM_R08 - это функция из справочника R266
Пересчитать цены на сырье по выделенным документам UTH
RECALCUTHSUM_R08()
Текст
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 )
