ACTUAL LIFETIME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 26: | Строка 26: | ||
// data := Date() | // data := Date() | ||
| − | in_datdoc := SeekRef( 'R143', r143_kod, 'OLD_INDDT', 1 ) | + | in_datdoc := [[SeekRef]]( '[[R143]]', r143_kod, 'OLD_INDDT', 1 ) |
if Empty( in_datdoc ) | if Empty( in_datdoc ) | ||
Версия 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
