$
$ Накладная на отпуск (утвержденная форма)
$ Ver 1.04
$ ---------------------------------------------------------
$ (c) 2000-2004 Alexander Petrushev
$ ---------------------------------------------------------
$
$DOS
$PAGEHEIGHT 102
$
$EXPR #SUM=0
$EXPR #N=0
$EXPR #QTY=0
$EXPR #NDS=0
$EXPR #NP=0
$EXPR #SNDS=0
$EXPR #TOTAL=0
$
$ ---------------------------------------------------------
$ CMD Chr(27)+"@"+Chr(27)+"P"+Chr(15)
$
@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # # \ <"Грузоотправитель:";<[Name] & IIf(IsNothing([Address]),"",", " & [Address]) & IIf(IsNothing([Phone]),"",", тел. " & [Phone]);"Форма по ОКУД";"0330212"
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # \ <"р/с " & [BankAccount] & ", " & [Bank];"по ОКПО"
Структурное подразделение: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Вид деятельности по ОКДП \ <[StockFullName]
Грузополучатель: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ по ОКПО         \ <[OrderPayerName] & IIf(IsNothing([OrderPayerAddress]),"",", " & [OrderPayerAddress])
Поставщик: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ номер _______ \ <[Name] & IIf(IsNothing([Address]),"",", " & [Address])
Плательщик: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ дата _______ \ <[OrderPayerName]
Основание: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Транспортная накладная номер _______ \ " "
                                                                                                                            дата _______       
ТОВАРНАЯ НАКЛАДНАЯ No. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Вид операции _______ \ <CStr([InvoiceNumber]) & " от " & A2O(fuRusDate([InvoiceDate])) & IIf(NZ([BillNumber])=0,""," (к сч.-фактуре No. " & [BillNumber] & " от " & IIf(IsNothing([BillDate]),"________",A2O(fuRusDate([BillDate]))) & ")")
________________________________________________________________________________________________________________________________________
No.│Товар                                            │К│Ед.измер.│В│ Количество │Масса│Кол-во│  Цена   │Сумма без│  Н Д С     │ Сумма   
п/п│наименование,                                    │о│ на-│код │и│ одно│ мест │брут-│(масса│         │учета НДС│% │  сумма  │ с НДС   
   │характеристики, сорт                             │д│ им.│ОКЕИ│д│место│/штук │то   │нетто)│руб.,коп.│руб.,коп.│  │руб.,коп.│руб.,коп.
─1─┼──────────────────────2──────────────────────────┼3┼──4─┼──5─┼6┼──7──┼───8──┼──9──┼──10──┼────11───┼────12───┼13┼────14───┼────15───
$DETAIL
$ add/remove IR v
$EXPR #PriceNDS=([PriceR]*(100/(100+[ProductNDS])))*100/(100+[MoneyTax])
$EXPR #QPriceNDS=#PriceNDS*[ProductQty]
$EXPR #PriceMT=[PriceR]*100/(100+[MoneyTax])
$EXPR #QPriceMT=#PriceMT*[ProductQty]
$EXPR #QNP=[PriceR]*(1-100/(100+[MoneyTax]))*[ProductQty]
$EXPR #SUM=#SUM+#QPriceNDS
$EXPR #N=#N+1
$EXPR #QTY=#QTY+[ProductQty]
$EXPR #NDS=#NDS+#QPriceMT-#QPriceNDS
$EXPR #SNDS=#SNDS+#QPriceMT
$EXPR #NP=#NP+#QNP
$EXPR #TOTAL=#TOTAL+[PriceR]*[ProductQty]
$
@@@│@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@│ │@@@@│    │ │@@@@@│@@@@@@│@@@@@│@@@@@@│@@@@@@@@@│@@@@@@@@@│@@│@@@@@@@@@│@@@@@@@@@ \ _
_
#N;<rfProductName([ProductCode],[ProductName]);[ProductUnit];N1([ProductQtyInPack]);>PackAndQty([ProductQty],[ProductQtyInPack],-1);" ";[ProductQty];_
Format(IR1(#PriceNDS),"0.00");_
Format(IR1(#QPriceNDS),"0.00");_
[ProductNDS];_
Format(#QPriceMT-IR1(#QPriceNDS),"0.00");_
Format(#QPriceMT,"0.00");_
Format(#QNP,"0.00")
$ENDDETAIL
$
$EXPR #M_SUM_NO_NP=IR1(#TOTAL-#NP)
$EXPR #M_SUM_NO_NDS=IR1(#M_SUM_NO_NP-#NDS)
───┴─────────────────────────────────────────────────┴─┴────┴────┴─┴─────┴──────┴─────┼──────┼─────────┼─────────┼──┼─────────┼─────────
                                                                    Всего по накладной│@@@@@@│       --│@@@@@@@@@│--│@@@@@@@@@│@@@@@@@@@ \ _
#QTY;Format(#M_SUM_NO_NDS,"0.00");Format((#NDS),"0.00");Format(#M_SUM_NO_NP,"0.00");Format(#NP,"0.00")
$ #QTY;Format(IR1(#SUM),"0.00");Format(#SNDS-IR1(#SUM),"0.00");Format(#SNDS,"0.00");Format(#NP,"0.00")
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@└──────┴─────────┴─────────┴──┴─────────┴───────── \ _
<"Товарная накладная содержит " & A2O(fuDescription(#N)) & "."
Всего мест _________. Масса: нетто __________ брутто ___________. Приложения (паспорта, сертификаты  и т.д.) на ________________ листах.
Всего отпущено на сумму # руб. # коп. (#) \ Int(#TOTAL);Mid(Format(#TOTAL-Int(#TOTAL),"Standard"),3);A2O(fuRoubleSum(#TOTAL))
                                                                  По доверенности No._______ от ____________ выданной __________________
      Отпуск разрешил @@@@@@@@@@@ ____________ @@@@@@@@@@@@@@@@@@ ______________________________________________________________________ \ >A2O(GetDefaultValue("reOrder_I_1C", "Job1Title"));<A2O(GetDefaultValue("reOrder_I_1C", "Job1Name"))

      Главный (старший) бухгалтер ____________ @@@@@@@@@@@@@@@@@@                   Груз принял ____________ ____________ ______________ \ <A2O(GetDefaultValue("reOrder_I_1C", "Job2Name"))

Отпуск груза произвел @@@@@@@@@@@ ____________ @@@@@@@@@@@@@@@@@@ Груз получил (грузополучатель)____________ ____________ ______________ \ >A2O(GetDefaultValue("reOrder_I_1C", "Job3Title"));<A2O(GetDefaultValue("reOrder_I_1C", "Job3Name"))
М.П. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ М.П. "____" ___________ @@@@ г.                                        \ <A2O(fuRusDate([InvoiceDate])) & " г.";Year([InvoiceDate])