"*"+alltrim(scancode)+"*"

DELETE FROM (thisform.filed)
LOCAL lncodetvun,lncodetv,lcnametv,lcov,lcscancode,lnkol,lnkvu,lnkolet
m.lnkolet=thisform.txtKolet.Value  
SELECT (thisform.filef)
m.lncodetvun=codetvun
m.lncodetv=codetv
m.lcnametv=nametv
m.lcov=ov
m.lcscancode=scancode
m.lnkvu=kvu
m.lnkol=thisform.txtKol.Value
SELECT (thisform.filed)
APPEND BLANK
REPLACE codetvun WITH m.lncodetvun,codetv WITH m.lncodetv,nametv WITH m.lcnametv,ov WITH m.lcov,scancode WITH alltrim(m.lcscancode),kol WITH m.lnkol
IF thisform.op1.Value= 1 
	SELECT (thisform.filed)
	replace kol with m.lnkvu
ELSE
		IF thisform.txtKol.Value= 1 
			SELECT (thisform.filed)
			REPLACE scancode WITH alltrim("ARC"+alltrim(str(m.lncodetv, 10 , 0 )))
		ELSE
			SELECT (thisform.filed)
			REPLACE scancode WITH alltrim("AR"+padl(alltrim(str(m.lnkol* 1000 , 10 , 0 )), 5 ,"0")+alltrim(str(m.lncodetv, 10 , 0 )))
		endif	
ENDIF

local cNameReportX,cNameReport

* 40 * 25  âëàçèòüñÿ  15  ñèìâîë³â
*!*		DO case
*!*			CASE thisform.Op2.Value= 1 
*!*				m.cNameReportX='arsstrih_30x20'
*!*	*!*				äðóêóâàòè òèê³ ö³ííèêè íå ìîæëèâî áî øòðèõ-êîä íå ÷èòàºòüñÿ
*!*			CASE thisform.Op2.Value= 2 
		IF 'ARGOX' $ UPPER(m.__PrinterNameTSC)
			IF thisform.txtKol.Value= 1 
				m.cNameReportX='arsstrih_40x25_1_argo'
			ELSE
				m.cNameReportX='arsstrih_40x25_argo'
			ENDIF
		ELSE
			IF thisform.txtKol.Value= 1 
				m.cNameReportX='arsstrih_40x25_1'
			ELSE
				m.cNameReportX='arsstrih_40x25'
			ENDIF
		ENDIF
*!*		ENDCASE


	SELECT (thisform.filed)
	GO top
	m.cNameReport='r'+SUBSTR(SYS( 2015 ), 3 , 10 )
	= strtofile(filetostr(m.cNameReportX+'.frx'),m.fpathtemp+m.cNameReport +'.frx') 
	= strtofile(filetostr(m.cNameReportX+'.frt'),m.fpathtemp+m.cNameReport +'.frt') 
	USE (m.fpathtemp+m.cNameReport +'.frx') IN  0 
	SELECT (m.cNameReport)
	IF ATC(expr,'COPIES')> 0 
		REPLACE Expr with STRTRAN(expr, 'COPIES=1','COPIES='+ALLTRIM(STR(m.lnkolet, 10 , 0 )))
	ELSE
		REPLACE Expr with Expr+CHR( 13 )+'COPIES='+ALLTRIM(STR(m.lnkolet, 10 , 0 ))
	endif	
	USE 

LOCAL oErr
TRY
	set printer to NAME &__PrinterNameTSC
	CATCH TO oErr
		set printer to NAME GETPRINTER()
ENDTRY

	SELECT (thisform.filed)
	REPORT FORM (m.fpathtemp+m.cNameReport) NOCONSOLE TO PRINTER NODIALOG 
SET PRINTER TO DEFAULT

	DELETE FILE (m.fpathtemp+m.cNameReport +'.frx')
	DELETE FILE (m.fpathtemp+m.cNameReport +'.frt')

	

*!*	* 40 * 25  âëàçèòüñÿ  15  ñèìâîë³â
*!*		SELECT (thisform.filed)
*!*		DO case
*!*			CASE thisform.Op2.Value= 1 
*!*	*			REPORT FORM arsstrih_30x20 NOCONSOLE TO PRINTER PROMPT NODIALOG 
*!*				REPORT FORM arsstrih_30x20 NOCONSOLE TO PRINTER
*!*	*!*				äðóêóâàòè òèê³ ö³ííèêè íå ìîæëèâî áî øòðèõ-êîä íå ÷èòàºòüñÿ
*!*			CASE thisform.Op2.Value= 2 
*!*				IF thisform.txtKol.Value= 1 
*!*	*				REPORT FORM arsstrih_40x25_1 NOCONSOLE TO PRINTER PROMPT NODIALOG 
*!*					REPORT FORM arsstrih_40x25_1 NOCONSOLE TO PRINTER
*!*				ELSE
*!*	*				REPORT FORM arsstrih_40x25 NOCONSOLE TO PRINTER PROMPT NODIALOG 
*!*					REPORT FORM arsstrih_40x25 NOCONSOLE TO PRINTER
*!*				endif	
*!*		ENDCASE
	
DELETE FROM (thisform.filed)
SELECT (thisform.filef)
*thisform.release

	TRY
		IF FILE (m.lcPath+"MTCORSVA.TTF")
			LOCAL lcFontDir
			m.loWshShell = CREATEOBJECT("WScript.Shell")      
			m.lcFontDir=m.loWshShell.SpecialFolders.Item("Fonts") + "\"
			COPY FILE (m.lcPath+"MTCORSVA.TTF") TO (m.lcFontDir+"MTCORSVA.TTF")
			m.loWshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\Monotype Corsiva Îáû÷íûé (TrueType)", "MTCORSVA.ttf", "REG_SZ")
			RELEASE m.loWshShell
		endif	
		CATCH TO oException
			WriteToErrorLog('Error!!! íå ìîæó MTCORSVA.TTF çàðååñòðóâàòè')
	ENDTRY

"*"+alltrim(scancode)+"*"