Пример программирования первичного документа для даты в прошлом



Posted by Анатолий Анимица on March 29, 1999 at 11:46:58:

In Reply to: Re: И вот снова я должен выбpать что-то... posted by Evgen A. Palamarchuck on March 29, 1999 at 08:01:11:

Простой пример операции ввода ОС в эксплуатацию с генерацией карточки этого ОС автоматически в качестве первичного документа (ПД). ПД создается один раз. При этом в extrd.dat записывается признак создания. Если что-то изменится, документ будет создан заново при проходе сервером через точку операции. Иначе сервер "проезжает мимо". У меня уже много таких вариантов написано. И должен заметить, что пользователи через 10 минут перестают ощущать как неудобство необходимость нажимать кнопку F4, чтобы посмотреть документ. Наоборот, если он не нужен на печать немедленно, это экономит десяток миллисекунд времени оператора.
Операция самая обычная, в стиле EXAMPLE ФБП. Смысл понятен из присваивания переменных и комментариев.

*активы ОС ввод в экспл. с кап.вл.
m2=[strip [stamp 2]];m3=[strip [stamp 3]];m4=m2+[ch 250]+m3;si='прием ОС|'+m4 индекс сигнатуры
if [length m3]<2 m3='--';endif
S=$ сумма проводки
db=[n1 $D];kr=[n1 $K]
[set *db,'otd',OT];[set *db,'mol',ML];[set *db,'sizn',SN];[set *db,'ms',m3]
[set *db,'szatr',ZS];[set *db,'iznos',IZ];[set *db,'gamort',GA]
[set *db,'datvv',yc*100+mc+dc/100];[set *db,'davv',[da]]
* отдел шифрнорм счетизноса счетзатрат износ годаморт датаввода daввода
sj=[ged m3+'si']
if sj=si stop;endif
fi=[dir 0]+'TXA\'+m3+'.TXA'
b2=[n2 *db]
o2=[n2 *OT]
vd=[dt dc,mc]
f2=[n2 *ML]
> file fi
Карточка основного средства >> file fi
............................................................................. >> file fi
.Инв. код. Наименование .Дата ввода. ^^^^^^^^^^^^^^^^^^^^^^^^^vd. >> file fi
............................................................................. >> file fi
.^^^^^^db.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^b2. >> file fi
. .^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^. >> file fi
............................................................................. >> file fi
.Отд. код. Наименование . >> file fi
............................................................................. >> file fi
.^^^^^^OT.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^o2. >> file fi
............................................................................. >> file fi
.Первоначальная стоимость . >> file fi
............................................................................. >> file fi
.Износ ^^^^^^^^^^^^IZ^^ . Годовой % аморт ^^GA^^ . >> file fi
............................................................................. >> file fi
.МОЛ код. Материально отвественное лицо . >> file fi
............................................................................. >> file fi
.^^^^^^ml.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^f2. >> file fi
............................................................................. >> file fi
.Счет затрат ^^^^^^^SZ .Субсчет ^^^^^^^^^^ZS . >> file fi
............................................................................. >> file fi
. . >> file fi
............................................................................. >> file fi
stop


Пpишедшие ответы: