³@ORIENTATION=0 PAPERSIZE=1  Courier New*SUBSTR(ALLTRIM(factsel->buyaddress),46,45)BTahoma8!empty(allt(SUBSTR(ALLTRIM(factsel->buyaddress),39,38))) wpernameBTahomaUSERNAME+' '+':'+'کاربر'B TitrRESFCASHwpertelTahomaRESFTEL .and. val(wpercode)<>01iif(empty(wboncode),wpercode,wboncode)+' : '+'كد'Tahomaval(wpercode)<>0ALLT(STR(WSUMENT,12))BTahomawpeik+' '+':'+'كد پيك'Tahoma !empty(wpeik) wtabledeskB Titr"d:\art_report\dollar1.gif" RESFDOLLARRESADDRBTahoma!empty(RESADDR)(ALLT(TRANS(UNITPRICE*ENT,'999,999,999'))BTahoma RESFTOMAN "قيمت كل""@J"B Zar " شرح كالا ""@J"B Zar"مقدار""@J"B Zar ALLT(DESC)BTahoma0,ALLT(STR(ENT,6,2)),ALLT(STR(ENT,6)))BTahoma!allt(trans(deduce,'999,999,999'))BTahomadeduce>0allt(trans(tax,'999,999,999'))BTahomatax>0 "ارزش افزوده""@J"B Titrçatr(int((wwsum+dishprice+service-deduce-e1+tax-factsel.nround)/10))+' '+'تومان'+' '+IIF(MOD(wwsum+dishprice+service-deduce-e1+tax-factsel.nround,10)>0,ATR(mod(wwsum+dishprice+service-deduce-e1+tax-factsel.nround,10))+' '+'ريال','')B Titr RESFTOMANuiif(empty(subs(allt(respos),1,45)),'','*')+' '+subs(allt(respos),1,45)+' '+iif(empty(subs(allt(respos),1,45)),'','*')BTahomaRESFTITR":تلفن""@J"TahomaRESFTEL .and. val(wpercode)<>0 "پيش پرداخت""@J"B Titrallt(trans(e1,'999,999,999'))BTahomae1>0 ":خريدار""@J"B Titrxiif(empty(subs(allt(respos),46,45)),'','*')+' '+subs(allt(respos),46,45)+' '+iif(empty(subs(allt(respos),46,45)),'','*') BTahomaRESFTITR":""@J"Nazanin":""@J"Nazanin":""@J"Nazanin.iif(type('resttitr')='C',alltrim(resttitr),'')BTahomaRESFTITR"allt(trans(service,'999,999,999'))BTahoma service>0":""@J"Nazanin"تخفيف""@J"B Titr allt(trans(wwsum,'999,999,999'))BTahoma"جمع كل""@J"B Titr":""@J"Nazanin"©""@I"Arial"سرويس""@J"B TitrRESTELBTahoma!empty(RESADDR)iif(servplace>0,.T.,.F.)wservBTahomaiif(servplace>0,.T.,.F.))SUBSTR(ALLTRIM(factsel->buyaddress),1,45)BTahoma7!empty(allt(SUBSTR(ALLTRIM(factsel->buyaddress),1,38)))Vallt(trans(wwsum-deduce-e1+service+dishprice-k1+tax-factsel.nround,'999,999,999,999'))BTahoma "قابل پرداخت""@J"B Titr":""@J"Nazanin;iif(RESROUND=0,'','رند'+' '+allt(str(RESROUND))+' '+'ريال') Courier New"®""@I"Arial allt(RESOWN) B YekanRESFNAMEOIIF(RIGHT('000'+ALLTRIM(STR(FACTNO,10)),3)='000','500',ALLTRIM(STR(FACTNO,10)))B Titralltrim(str(FACTNO,10))Arialallt(Ffactdate)B Yekan"سود شما از خريد""@J"B Titrdeduce+totded>0":""@J"Nazanindeduce+totded>0,allt(trans(deduce+totded,'999,999,999,999'))BTahomadeduce+totded>0val(wpercode)<>00"Aryana Software www.artpos.ir نرم افزار آريانا""@I"Arial RESTBARFILE  RESTBARCODELEFT(TIME(),5)B YekanROOZ(st(allt(Ffactdate)))B Yekan"شماره""@J"B TitrRESLOGO!empty(RESLOGO)wwsum unitprice*ent0WSUMENTENT0totded (unitprice2*ent)-(unitprice*ent)0 Courier NewBTahomaB TitrTahomaBTahomaB TitrBTahomaB ZarB ZarBTahomaNazaninArial Courier NewB YekanB TitrArialB YekanB TitrNazaninB Yekandataenvironment}Top = 220 Left = 1 Width = 520 Height = 200 Visible = .F. TabStop = .F. DataSource = .NULL. Name = "Dataenvironment" ORIENTATION=0 PAPERSIZE=1  Courier New*SUBSTR(ALLTRIM(factsel->buyaddress),45,45)BTahoma8!empty(allt(SUBSTR(ALLTRIM(factsel->buyaddress),39,38)))wpernameBTahomaUSERNAME+' '+':'+'کاربر'B TitrRESFCASHwpertelTahomaRESFTEL .and. val(wpercode)<>01iif(empty(wboncode),wpercode,wboncode)+' : '+'كد'Tahomaval(wpercode)<>0ALLT(STR(WSUMENT,12))BTahomawpeik+' '+':'+'كد پيك'Tahoma !empty(wpeik) wtabledeskB Titr"d:\art_report\dollar1.gif" RESFDOLLARRESADDRBTahoma!empty(RESADDR)(ALLT(TRANS(UNITPRICE*ENT,'999,999,999'))BTahoma RESFTOMAN "قيمت كل""@J"B Zar " شرح كالا ""@J"B Zar"مقدار""@J"B Zar ALLT(DESC)BTahoma0,ALLT(STR(ENT,6,2)),ALLT(STR(ENT,6)))BTahoma!allt(trans(deduce,'999,999,999'))BTahomadeduce>0allt(trans(tax,'999,999,999'))BTahomatax>0 "ارزش افزوده""@J"B Titrçatr(int((wwsum+dishprice+service-deduce-e1+tax-factsel.nround)/10))+' '+'تومان'+' '+IIF(MOD(wwsum+dishprice+service-deduce-e1+tax-factsel.nround,10)>0,ATR(mod(wwsum+dishprice+service-deduce-e1+tax-factsel.nround,10))+' '+'ريال','')B Titr RESFTOMANuiif(empty(subs(allt(respos),1,45)),'','*')+' '+subs(allt(respos),1,45)+' '+iif(empty(subs(allt(respos),1,45)),'','*')BTahomaRESFTITR":تلفن""@J"TahomaRESFTEL .and. val(wpercode)<>0 "پيش پرداخت""@J"B Titrallt(trans(e1,'999,999,999'))BTahomae1>0 ":خريدار""@J"B Titrxiif(empty(subs(allt(respos),46,45)),'','*')+' '+subs(allt(respos),46,45)+' '+iif(empty(subs(allt(respos),46,45)),'','*') BTahomaRESFTITR":""@J"Nazanin":""@J"Nazanin":""@J"Nazanin.iif(type('resttitr')='C',alltrim(resttitr),'')BTahomaRESFTITR"allt(trans(service,'999,999,999'))BTahoma service>0":""@J"Nazanin"تخفيف""@J"B Titr allt(trans(wwsum,'999,999,999'))BTahoma"جمع كل""@J"B Titr":""@J"Nazanin"©""@I"Arial"سرويس""@J"B TitrRESTELBTahoma!empty(RESADDR)iif(servplace>0,.T.,.F.)wservBTahomaiif(servplace>0,.T.,.F.))SUBSTR(ALLTRIM(factsel->buyaddress),1,45)BTahoma7!empty(allt(SUBSTR(ALLTRIM(factsel->buyaddress),1,38)))Vallt(trans(wwsum-deduce-e1+service+dishprice-k1+tax-factsel.nround,'999,999,999,999'))BTahoma "قابل پرداخت""@J"B Titr":""@J"Nazanin;iif(RESROUND=0,'','رند'+' '+allt(str(RESROUND))+' '+'ريال') Courier New"®""@I"Arial allt(RESOWN) B YekanRESFNAMEOIIF(RIGHT('000'+ALLTRIM(STR(FACTNO,10)),3)='000','500',ALLTRIM(STR(FACTNO,10)))B Titralltrim(str(FACTNO,10))Arialallt(Ffactdate)B Yekan"سود شما از خريد""@J"B Titrdeduce+totded>0":""@J"Nazanindeduce+totded>0,allt(trans(deduce+totded,'999,999,999,999'))BTahomadeduce+totded>0val(wpercode)<>00"Aryana Software www.artpos.ir نرم افزار آريانا""@I"Arial RESTBARFILE  RESTBARCODELEFT(TIME(),5)B YekanROOZ(st(allt(Ffactdate)))B Yekan"شماره""@J"B TitrRESLOGO!empty(RESLOGO)wwsum unitprice*ent0WSUMENTENT0totded (unitprice2*ent)-(unitprice*ent)0 Courier NewBTahomaB TitrTahomaBTahomaB TitrBTahomaB ZarB ZarBTahomaNazaninArial Courier NewB YekanB TitrArialB YekanB TitrNazaninB Yekandataenvironment}Top = 220 Left = 1 Width = 520 Height = 200 Visible = .F. TabStop = .F. DataSource = .NULL. Name = "Dataenvironment"