PARAMETERS r_n,for_s
PUBLIC for_send
for_send=for_s
DODEFAULT()
SET DELETED ON
SET DATE GERMAN
SET CENTURY ON
	ThisForm.TxtRegNumb.Value=''
	IF r_n==''
	ThisForm.TxtRegNumb.SetFocus()
	ELSE
	ThisForm.TxtRegNumb.Value=ALLTRIM(r_n)
	thisform.txtRegNumb.KeyPress(13)
	ENDIF

CREATE CURSOR cPoint (PointNumb C(9), PointSod C(254), DateOut D(8), DateNew D(8), ;
      DateFact D(8), DateCansel D(8), TabMark N(6), FioMark C(30), PointRem C(254))
CREATE CURSOR cPointIsp (PointNumb C(9), DateOut D(8), DateNew D(8), DateFact D(8), ;
      DateCansel D(8), TabMark N(6), PointRem C(254))
      PUBLIC cRab

 
      DO FORM frm_Print_regKard NAME frmPrint WITH cRegNumb,0
      frmPrint.Visible=.f.
      frmPrint.Refresh()
      RELEASE frmPrint

SET OLEOBJECT ON
TRY 
  tmpSheet = createobject('excel.application')
  XLApp = tmpSheet.application
  XLApp.visible = .F.		&& F
  full_path=cPathExe+'Report\xls_pech_upoln.xls'
  IF for_send=1
    COPY FILE (full_path) TO PathTmp+nRegNumb+'.xls'
    XLApp.WorkBooks.open(PathTmp+nRegNumb+'.xls')
  ELSE
    XLApp.WorkBooks.open(full_path)
  ENDIF
  XLSheet = XLApp.ActiveSheet
  SET DATE GERMAN 
  WITH thisform 
    XLApp.sheets("Лист2").cells(4,2).value=ALLTRIM(nLeadFio)
    XLApp.sheets("Лист2").cells(5,2).value=ALLTRIM(nAutorFio)+', № телефона: '+LEFT(nAutorPhone,2)+'-'+RIGHT(nAutorPhone,2)
    XLApp.sheets("Лист1").select
    XLApp.cells(1,3).Value=nRegNumb
    IF ThisForm.IkPz=1 
	  XLApp.cells(1,11).Value='ПЗ'
    ENDIF
    XLApp.cells(2,2).Value=ALLTRIM(nDocName)+" №"+ALLTRIM(nDocNumb)+" от "+DTOC(nDocDate)+" "+ALLTRIM(nDocTitle)
    XLApp.cells(4,2).Value=ALLTRIM(nIspFio)
    XLApp.cells(4,7).Value=ALLTRIM(nIspNaStruct)
    XLApp.cells(4,10).Value=nTabIspolnit
    XLApp.cells(6,2).Value=ALLTRIM(nKurFio)
    XLApp.cells(6,7).Value=ALLTRIM(nKurNaStruct)
    XLApp.cells(6,10).Value=nTabKurator
    SELECT cPoint
    SET DELETED ON
    COUNT TO kol_zap
    GO TOP 
    XLApp.sheets("Лист2").select
    XLApp.Range(XLApp.Sheets("Лист2").cells(1,1),XLApp.Sheets("Лист2").cells(1,10)).Select 
    XLApp.Selection.Copy
    XLApp.sheets("Лист1").select
    FOR i=1 TO kol_zap
      XLApp.Range(XLApp.Sheets("Лист1").cells(10+i-1,1),XLApp.Sheets("Лист1").cells(10+i-1,10)).Select
      XLApp.ActiveSheet.Paste
      XLApp.Sheets("Лист1").cells(10+i-1,1).Value=ALLTRIM(cPoint.PointNumb)
      XLApp.Sheets("Лист1").cells(10+i-1,2).Value=cPoint.DateOut
      IF !EMPTY(cPoint.DateNew)
        XLApp.Sheets("Лист1").cells(10+i-1,4).Value=cPoint.DateNew
      ENDIF 
      IF !EMPTY(cPoint.DateFact)
        XLApp.Sheets("Лист1").cells(10+i-1,6).Value=cPoint.DateFact
      ENDIF 
      IF !EMPTY(cPoint.DateCansel)
        XLApp.Sheets("Лист1").cells(10+i-1,7).Value=cPoint.DateCansel
      ENDIF
      IF !EMPTY(cPoint.TabMark)
        XLApp.Sheets("Лист1").cells(10+i-1,8).Value=ALLTRIM(cPoint.FioMark)+' т/н '+ALLTRIM(STR(cPoint.TabMark))
      ENDIF 
      XLApp.Sheets("Лист1").cells(10+i-1,9).Value=ALLTRIM(cPoint.PointRem)
      SKIP 
    ENDFOR
    XLApp.sheets("Лист2").select
    XLApp.Range(XLApp.Sheets("Лист2").cells(4,1),XLApp.Sheets("Лист2").cells(6,2)).Select
    XLApp.Selection.Copy
    XLApp.sheets("Лист1").select
    XLApp.Range(XLApp.Sheets("Лист1").cells(10+kol_zap+1,1),XLApp.Sheets("Лист1").cells(10+kol_zap+3,2)).Select
    XLApp.ActiveSheet.Paste
    GO TOP 
    XLApp.sheets("Лист2").select
    XLApp.Range(XLApp.Sheets("Лист2").cells(3,1),XLApp.Sheets("Лист2").cells(3,10)).Select
    XLApp.Selection.Copy
    XLApp.sheets("Лист1").select
    FOR i=1 TO kol_zap
      XLApp.Range(XLApp.Sheets("Лист1").cells(10+kol_zap+3+i,1),XLApp.Sheets("Лист1").cells(10+kol_zap+3+i,10)).Select
      XLApp.ActiveSheet.Paste
      XLApp.Sheets("Лист1").cells(10+kol_zap+3+i,1).Value=ALLTRIM(cPoint.PointNumb)+' '+ALLTRIM(cPoint.PointSod)
      stroka=XLApp.Sheets("Лист1").cells(10+kol_zap+3+i,1).Value
      XLApp.Sheets("Лист1").Rows(10+kol_zap+3+i).Select
      kol_simv=LEN(stroka)
       IF kol_simv>118 AND kol_simv<236
        XLApp.Selection.RowHeight = 2.5*XLApp.Selection.RowHeight
      ELSE 
        IF  kol_simv>=236
          XLApp.Selection.RowHeight = 3.5*XLApp.Selection.RowHeight
        ENDIF 
      ENDIF 
      SKIP 
    ENDFOR
  XLApp.Range(XLApp.cells(10+2*kol_zap+6,1),XLApp.cells(10+2*kol_zap+6,1)).Select
  ENDWITH
  IF for_send=1
    XLApp.DisplayAlerts=.f.
    XLApp.ActiveWorkbook.Save()
    XLApp.Quit
    SET OLEOBJECT ON
    SET DATE GERMAN 
    IF nEmail>' '
     *komu='IvcEtd@transistor.com.by'
     komu=ALLTRIM(nEmail)
      failik=PathTmp+nRegNumb+'.xls'
      nomer=nRegNumb
      send_ready=.t.
      TRY 
        tmpApplicat= createobject('NovellGroupWareSession')
        GWApp = tmpApplicat.application
        GWRootAccount = GWApp.Login('','')
        GWFolders = GWRootAccount.AllFolders
        GWMessage=GWFolders.item[1].Messages.Add('uaski')
        WITH GWMessage
          TRY 
            .Attachments.Add(failik)
            .FromText='УАСКИ'
            .ReplyRequested=0
            .NotifyWhenOpened=0
            .NotifyWhenDeleted=0
            .BodyText.PlainText='На вас выписана новая ИК р/н:('+nomer+')'
            .Subject.PlainText='УАСКИ'
            CATCH TO oException WHEN .t. 
            MESSAGEBOX('Проверьте имя файла прикрепления: '+failik)
            send_ready=.f.
          ENDTRY
          TRY
            .Recipients.Add(komu)
            IF send_ready
              outMail=.Send()
              outMail.Delete()
            ENDIF 
            CATCH TO oException WHEN .t. 
            MESSAGEBOX('Не могу отправить письмо: '+komu)
          ENDTRY 
        ENDWITH 
        catch TO oExcept WHEN .t.
        MESSAGEBOX('Пожалуйста установите GroupWise'+CHR(10)+CHR(13);
                  +'Письмо:('+komu+') не отправлено'+CHR(10)+CHR(13);
                  +'Имя файла с ИК:('+failik+')')
      ENDTRY 
    ENDIF  
  ELSE
    _vfp.AutoYield=.f.
    XLApp.visible = .t. 
    XLApp.Sheets("Лист1").PrintPreview
    XLApp.DisplayAlerts=.f. 
    XLApp.Quit
  ENDIF 
  CATCH TO oExcept WHEN .t.
  MESSAGEBOX(SYS(2018))
ENDTRY 

RETURN
thisform.Release()

      DO FORM frm_Print_regKard NAME frmPrint WITH cRegNumb,0
      frmPrint.Visible=.f.
      frmPrint.Refresh()
      RELEASE frmPrint

frmPrint.Release()

XLApp.Sheets("Лист1").PrintPreview
MessageBox('Test')

CLOSE TABLES ALL 
CLEAR EVENTS 
QUIT

CLOSE TABLES ALL 
CLEAR EVENTS 
QUIT

          IF oPers.CleanUp()
  	 oPerS.Cleanup2
	 RELEASE oPers	
          ENDIF

ON SHUTDOWN DO release_app

PROCEDURE release_app
m.ans=MESSAGEBOX('Вы действительно желаете выйти из программы??',36,'Определитесь!')
	IF m.ans=6
		CLOSE TABLES all
		CLEAR EVENTS 
		quit
	ENDIF 
RETURN

LOCAL lnForm, lnFormToClose
* Заремлено на отладку
if .F.
 IF getmessage(QUIT_MESS,3+32+0,QUIT_CAPT) <> 6 THEN
 	RETURN .F.
 ENDIF	
endif 

LOCAL loForm

THIS.lQuitting = .T.
FOR EACH loForm IN application.Forms
	IF TYPE("loForm") == "O" AND loForm.Baseclass == "Form"
	
		IF !loForm.QueryUnload()

		ENDIF
		loForm.Release()
	ENDIF
ENDFOR
RETURN .T.

_screen.caption = this.cOldMainWindowCaption
CLEAR EVENTS
SET SYSMENU TO DEFAULT
POP KEY   &&EON
this.ShowToolBars()
this.lIsClean = .T.

LOCAL nPos
 _Screen.HIDE()
_Screen.BackColor=16777215
FOR nPos = 1 TO ALEN(This.aToolBars, 1)
  IF This.aToolBars[nPos,2]
    SHOW WINDOW (This.aToolBars[nPos,1])
  ENDIF
ENDFOR

This.DoMenu(This.cMainMenu)
DO WHILE .T.
	
	READ EVENTS
	IF THIS.Cleanup()
		THIS.Cleanup2
		EXIT
	ENDIF
ENDDO

IF !This.lIsClean
  This.CleanUp()
ENDIF
IF gnHandle>0
=SQLDISCONNECT(gnHandle)
ENDIF