Код: Выделить всё
.begin
itog:=0;
end.
Ш
.{
^
@@@@@@@@@ ОРДЕР № ^
от ^
.if SKLORDER01
Основание : ^
.if SKLORDER02
.else
.end
.else
.end
Склад : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
--------------T-----------------------------T---------T------------------T---------------T-----------------
Номенклатурный│ Материальные ценности │ Единица │ Количество │ Цена │ Стоимость
номер │ │измерения│ │ @~@@@@@@@@@@@ │ @~@@@@@@@@@@@
--------------+-----------------------------+---------+------------------+---------------+-----------------
.{
.{
&&&&&&&&&&&&&& @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@ &'&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&& &'&&&&&&&&&&&&&&&
.begin
if ed='кг' itog := itog + double(kol);
end.
.}
.}
-----------------------------------------------------------------------------------------------------------
Итого : &'&&&&&&&&&&&&&.&&& кг &&&&&&&&&&&&&&&&& руб
.begin
sender := '_____________________';
recipient := '_____________________';
localSklOrder.GetFirst SklOrder where ((SklOrderRec == SklOrder.nRec));
if (localSklOrder.SklOrder.vidOrder = 0) // приходный
{
if (Mol = '')
then sender := '_____________________'
else sender := Mol;
}
if (localSklOrder.SklOrder.vidOrder = 1) // расходный
{
if (Mol = '')
then recipient := '_____________________'
else recipient := Mol;
}
end.
Принял :^ Сдал :^
.{
.}
.}
.endform