$
$ ‘ç¥â-ä ªâãà  (ã⢥ত¥­­ ï ä®à¬ )
$ Ver 2.06 (¡¥§ ­ «®£  á ¯à®¤ ¦, ¡¥§ "®­ ¦¥", ­®¢ë¥ ¯®¤¯¨á¨)
$ ---------------------------------------------------------
$ (c) 2001-2004 Alexander Petrushev
$ ---------------------------------------------------------
$ standard page height for dotmatrix printer
$
$ PAGEHEIGHT 62
$
$ HPLJ6P
$PAGEHEIGHT 102
$
$DOS
$
$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)
$
C—…’-”€Š’“�€ No. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@ (1)  \ <IIf(NZ([BillNumber])=0,"____",[BillNumber]) & " ®â " & IIf(IsNothing([BillDate]),"________",A2O(fuRusDate([BillDate])));>Chr(91) & [InvoiceNumber] & Chr(93)
�த ¢¥æ: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (2)  \ <[Name]
€¤à¥á: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (2a) \ <[Address] & IIf(IsNothing([Phone]),"",", ⥫. " & [Phone])
ˆ��/Š�� ¯à®¤ ¢æ : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (2¡) \ <[INN];<[OrderPayerINN]
ƒà㧮®â¯à ¢¨â¥«ì ¨ ¥£®  ¤à¥á: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (3)  \ <[Name] & " " & [Address]
ƒà㧮¯®«ãç â¥«ì ¨ ¥£®  ¤à¥á: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (4)  \ <[OrderPayerName] & IIf(IsNothing([OrderPayerAddress]),"",", " & [OrderPayerAddress])
Š ¯« â¥¦­®-à áç¥â­®¬ã ¤®ªã¬¥­âã @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (5)  \ <IIf(IsNothing([OrderMoneyDocumentNumber]),"","No." & [OrderMoneyDocumentNumber] & " ") & IIf(IsNothing([OrderDateMoneyIncome]),"","®â " & A2O(fuRusDate([OrderDateMoneyIncome])))
�®ªã¯ â¥«ì: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (6)  \ <[OrderPayerName]
€¤à¥á: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (6 ) \ <[OrderPayerAddress] & IIf(IsNothing([OrderPayerPhone]),"",", ⥫. " & [OrderPayerPhone])
ˆ��/Š�� ¯®ªã¯ â¥«ï: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ (6¡) \ <[OrderPayerINN]
________________________________________________________________________________________________________________________________________
� ¨¬¥­®¢ ­¨¥ ⮢ à                     ³…¤¨-³Š®«¨- ³–¥­      ³C⮨¬®áâ쳂  ³� -³‘㬬     ³‘⮨¬®áâ쳑âà ­    ³�®¬¥à                 
(®¯¨á ­¨¥ ¢ë¯®«­¥­­ëå à ¡®â,           ³­¨æ ³ç¥á⢮³(â à¨ä)  ³â®¢ à®¢  ³â®¬³«®-³­ «®£    ³â®¢ à®¢  ³¯à®¨á宦-³£à㧮¢®© â ¬®¦¥­­®©   
®ª § ­­ëå ãá«ã£)                       ³¨§- ³      ³§  ¥¤¨­¨-³(à ¡®â,  ³ç¨-³£®-³         ³(à ¡®â,  ³¤¥­¨ï    ³¤¥ª« à æ¨¨            
                                       ³¬¥- ³      ³æã ¨§¬¥- ³ãá«ã£),  ³á«¥³¢ ï³         ³ãá«ã£)   ³         ³                      
                                       ³à¥- ³      ³à¥­¨ï    ³¢á¥£® ¡¥§³ ª-³áâ ´         ³á ãç¥â®¬ ³         ³                      
                                       ³­¨ï ³      ³         ³­ «®£    ³æ¨§³¢ª ³         ³­ «®£    ³         ³                      
$                                        ³    ³      ³àã¡.,ª®¯.³àã¡.,ª®¯.³   ³ % ³àã¡.,ª®¯.³àã¡.,ª®¯.³         ³                      
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ1ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ2ÄÅÄÄÄ3ÄÄÅÄÄÄÄ4ÄÄÄÄÅÄÄÄÄ5ÄÄÄÄÅÄ6ÄÅÄ7ÄÅÄÄÄÄ8ÄÄÄÄÅÄÄÄÄ9ÄÄÄÄÅÄÄÄÄ10ÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ11ÄÄÄÄÄÄÄÄÄÄÄÄ
$DETAIL
$ add/remove IR to have old formula
$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]
$
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@³@@@@³@@@@@@³@@@@@@@@@³@@@@@@@@@³@@@³@@@³@@@@@@@@@³@@@@@@@@@³@@@@@@@@@³@@@@@@@@@@@@@@@@@@@@@@@@@@ \ _
_
<[ProductName];_
Mid([ProductUnit] & " ",1,4);[ProductQty];_
Format(IR1(#PriceNDS),"0.00");_
Format(IR1(#QPriceNDS),"0.00");0;_
>[ProductNDS] & "%";_
Format(#QPriceMT-IR1(#QPriceNDS),"0.00");_
Format(#QPriceMT,"0.00");_
<A2O(Mid(Lat2Rus([Country]) & " ",1,9));<IIf(IsNothing([Declaration]),"         ---",[Declaration])
$ENDDETAIL
$
$EXPR #M_SUM_NO_NP=IR1(#TOTAL-#NP)
$EXPR #M_SUM_NO_NDS=IR1(#M_SUM_NO_NP-#NDS)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@³@@@@@@@@@³@@@³ @@³@@@@@@@@@³@@@@@@@@@³ \ _
<"‚ᥣ® ª ®¯« â¥ (àã¡.,ª®¯.)";Format(#M_SUM_NO_NDS,"0.00");0;"--";Format((#NDS),"0.00");Format(#M_SUM_NO_NP,"0.00")
$IF (#NP>0)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄ´
� «®£ á ¯à®¤ ¦                                                                           ³@@@@@@@@@³ \ Format(#NP,"0.00")
ˆâ®£® (¢ª«îç ï ­ «®£ á ¯à®¤ ¦)                                                           ³@@@@@@@@@³ \ Format(#TOTAL,"0.00")
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÙ
$ENDIF
$IF (#NP=0)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÅÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÙ
$ENDIF
�㪮¢®¤¨â¥«ì ®à£ ­¨§ æ¨¨ (¯®¤¯¨áì) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@³ ƒ«. ¡ã壠«â¥à (¯®¤¯¨áì) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ \ >"(”.ˆ.Ž) " & ConvertNulls(A2O(GetDefaultValue("reOrder", "Leader")),"___________");>"(”.ˆ.Ž) " & ConvertNulls(A2O(GetDefaultValue("reOrder", "Accountant")),"___________")
ˆ­¤¨¢¨¤. ¯à¥¤¯à¨­¨¬ â¥«ì (¯®¤¯¨áì)
�ਬ.: 1-ë© íª§¥¬¯«ïà - ¯®ªã¯ â¥«î,
       2-®© íª§¥¬¯«ïà - ¯à®¤ ¢æã.