ACTUAL LIFETIME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 16: | Строка 16: | ||
[[Файл:20-01-2017 8-46-14.png]] | [[Файл:20-01-2017 8-46-14.png]] | ||
| + | |||
| + | = Текст = | ||
| + | |||
| + | parameters r143_kod, data | ||
| + | |||
| + | local in_datdoc, dm, years, months | ||
| + | |||
| + | // r143_kod := 3857 | ||
| + | // data := Date() | ||
| + | |||
| + | in_datdoc := SeekRef( 'R143', r143_kod, 'OLD_INDDT', 1 ) | ||
| + | |||
| + | if Empty( in_datdoc ) | ||
| + | in_datdoc := SeekRef( 'R143', r143_kod, 'INDATDOC', 1 ) | ||
| + | endif | ||
| + | |||
| + | dm := DiffMonth( in_datdoc, data ) | ||
| + | |||
| + | // фактический срок эксплуатауции ( лет, месяцев ) | ||
| + | |||
| + | years := Int( dm[1] / 12 ) | ||
| + | months := dm[1] - years * 12 | ||
| + | |||
| + | result := years + ', ' + months | ||
= Смотрите также = | = Смотрите также = | ||
Версия 08:48, 20 января 2017
ACTUAL_LIFETIME - это программа из справочника R266
Фактический срок эксплуатации основного средства
Возвращает количество лет, месяцев
ACTUAL_LIFETIME( r143_kod, data )
r143_kod - код основного средства
data - дата, для которой необходимо установить фактический срок эксплуатации
Пример
ACTUAL_LIFETIME( 1, DATE() )
Текст
parameters r143_kod, data local in_datdoc, dm, years, months // r143_kod := 3857 // data := Date() in_datdoc := SeekRef( 'R143', r143_kod, 'OLD_INDDT', 1 ) if Empty( in_datdoc ) in_datdoc := SeekRef( 'R143', r143_kod, 'INDATDOC', 1 ) endif dm := DiffMonth( in_datdoc, data ) // фактический срок эксплуатауции ( лет, месяцев ) years := Int( dm[1] / 12 ) months := dm[1] - years * 12 result := years + ', ' + months
