Main.frm

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Main 
   ClientHeight    =   11025
   ClientLeft      =   6045
   ClientTop       =   6330
   ClientWidth     =   15270
   OleObjectBlob   =   "Main.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Leftt, Income, Outcome, Balance, LastName, Namess As String

Function SetCaption(Fil, Side)
''Protect
If Side = 1 Then

End If
''unprotect
If Side = -1 Then

End If
End Function

Private Sub Block_Button_Click()
BlockIt.Show
End Sub

Private Sub GenerateNextMonth_Click()
On Error GoTo ExceptionControl:
If DateTime.Month(DateTime.Date) <> NMonth Then
    b = MsgBox(NextMonth & " ещё не наступил (или уже прошёл :-D)", vbOKOnly, "Внимание")
    Exit Sub
End If

Query.NoButton.SetFocus
Query.Msg_label.Caption = "После перехода на новый месяц будет невозможно " & SwitchToLastMonth.Caption & ". Продолжаем?"
Query.Show
If Query.OK.Value = True Then
    ProcessFile WorkersBase, "SaveClose"
    ArcMonth = CMonth - 1
    ArcYear = CYear
    If ArcMonth = 0 Then
        ArcMonth = 12
        ArcYear = CYear - 1
    End If

    ArcName = Path + "Archive\Valid\" & MNameEng(ArcMonth) & "_" & ArcYear
    ArcFiles = Path + "lWorkers.xls"
    
    RunCommand (Archiver & " a " & ArcKey & " " & ArcName & " " & ArcFiles)
     
    Destination = Path & "lWorkers.xls"
    Source = Path & WorkersBase
    FileCopy Source, Destination

    Workbooks.Open FileName:=Path + WorkersBase

    Windows(WorkersBase).Activate
 
    Sheets("Каталог").Select
    CYear = Cells(1, 3).Value
    CMonth = Cells(2, 3).Value
    Cells(2, 3).Value = Cells(2, 3).Value + 1
    If CMonth = 12 Then
        Cells(2, 3).Value = 1
        Cells(1, 3).Value = Cells(1, 3).Value + 1
    End If
  
    CYear = Cells(1, 3).Value
    CMonth = Cells(2, 3).Value
    Cells(2, 2).Value = MName(CMonth)
    
    Cells(1, 6).Value = Cells(2, 6).Value
    Cells(2, 6).Value = ""
    
    For i = FirstWorkersSheet To ActiveWorkbook.Sheets.Count
        Sheets(i).Select
        Cells(2, 10).Value = Cells(1, 10).Value
        Cells(1, 1).ClearContents
        Range("b6:k284").ClearContents
        Range(Columns(13), Columns(22)).ClearContents
        Range(Rows(6), Rows(284)).EntireRow.Hidden = True
    Next
    ReportExit = True
    MainInit
End If

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/GenerateNextMonth_Click()"
Exception.Show
End Sub

Sub DropSensitiveData()
On Error GoTo ExceptionControl:
    Sheets("АвансовыйОтчёт").Select
    Range(Rows(7), Rows(1000)).ClearContents
    Sheets("Производство").Select
    Range(Rows(7), Rows(1000)).ClearContents
    Sheets("Отчёт").Select
    Range(Rows(7), Rows(1000)).ClearContents
    Sheets("Каталог").Select

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/DropSensitiveData()"
Exception.Show
End Sub

Sub DoneForNow(ByVal CloseBase As Boolean)
On Error GoTo ExceptionControl:
If AdminMode Then
    Windows(WorkersBase).Activate
    DropSensitiveData
    ProcessFile WorkersBase, "SaveClose"
    PushBase = "push.xls"
    Destination = Path & PushBase
    Source = Path & WorkersBase
    FileCopy Source, Destination

    ArcName = Path & "push.7z"
    Kill (ArcName)
    ArcFiles = Path & PushBase & " " & Path & "index-c.xls"
    RunCommand (Archiver & " a " & ExchangeKey & " " & ArcName & " " & ArcFiles)
    RunCommand (Archiver & " rn " & ExchangeKey & " " & ArcName & " index-c.xls index.xls")
    Kill (Path & PushBase)
    
    If CloseBase Then
        ArcName = Path + "Archive\LastState.7z"
        ArcFiles = Path + "*Workers.xls"
        RunCommand (Archiver & " a " & ArcKey & " " & ArcName & " " & ArcFiles)
        RunCommand "ftp -v -s:" & Path & "ftp_server_send_all " & FtpStorageName, False
    Else
        RunCommand "ftp -v -s:" & Path & "ftp_server_send " & FtpStorageName, False
    End If
End If

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/DoneForNow()"
Exception.Show
End Sub

Private Sub Reports_Button_Click()
With Reports
    .CDay_Box.Clear
    For i = 1 To MDays(CMonth)
        .CDay_Box.AddItem (i)
    Next
        .CDay_Box.Value = 1

    .Mark_Chooser.Clear
    .Mark_Chooser.AddItem ("Все")
    .Mark_Chooser.AddItem ("Выделенные")
    .Mark_Chooser.AddItem ("Без выделения")
    .Mark_Chooser.Value = "Без выделения"

    .Show
End With
End Sub

Private Sub RunTC_Button_Click()
BlockIt.Pass = PinAdmin
BlockIt.PassOK = False
BlockIt.AdminOverrides = False
BlockIt.SupervisorOverrides = False
BlockIt.Password_Box.SetFocus
BlockIt.Show
If BlockIt.PassOK Then a = Shell("c:\Program Files\WINCMD\totalcmd.exe", vbMaximizedFocus)
End Sub

Private Sub SaveAndClose_Click()
On Error GoTo ExceptionControl:
DoneForNow (True)
Windows("Index.xls").Close (SaveChanges = xlDoNotSaveChanges)
Main.Hide
Application.Quit

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/SaveAndClose_Click()"
Exception.Show
End Sub

Private Sub SaveState_Click()
DoneForNow (False)
MainInit
End Sub

Private Sub SwitchToLastMonth_Click()
On Error Resume Next
If LMMode Then
    LastWorkersDay = 0
    If AdminMode Then
        Windows(WorkersBase).Activate
        DropSensitiveData
        ProcessFile "lWorkers.xls", "SaveClose"
        ArcName = Path & "lm.7z"
        ArcFiles = Path & "lWorkers.xls"
        RunCommand (Archiver & " a " & ExchangeKey & " " & ArcName & " " & ArcFiles)
    Else
        Windows(WorkersBase).Activate
        ActiveWorkbook.Close SaveChanges:=False
        Kill (Path & WorkersBase)
    End If
Else
    LastWorkersDay = 31
    If Not AdminMode Then
        ArcFiles = "lWorkers.xls"
        ArcName = Path & "lm.7z"
        RunCommand ("ftp -v -s:" & Path & "ftp_client_get_lm " & FtpStorageName)
        RunCommand (Archiver & " e -y " & ExchangeKey & " " & ArcName & " -o" & Path & " " & ArcFiles)
        Kill (ArcName)
    End If
    Workbooks.Open FileName:=Path & "lWorkers.xls"
End If
ReportExit = True
MainInit
End Sub

Private Sub InitWorkers()
On Error GoTo ExceptionControl:
Main.Top = 0
Main.Left = 0
Windows(WorkersBase).Activate
With Workers
    ExtChange = True
    .CDay_Box.Clear
    For i = 1 To MDays(CMonth)
        .CDay_Box.AddItem (i)
    Next
    If LastWorkersDay <> 0 Then
        .CDay_Box.Value = LastWorkersDay
    Else
        .CDay_Box.Value = DateTime.Day(DateTime.Date)
    End If
    If .CDay_Box.Value > MDays(CMonth) Then .CDay_Box.Value = MDays(CMonth)
    ExtChange = False

    .Label_FullDate.Caption = GetDayName(.CDay_Box.Value) & ", " & .CDay_Box.Value & " " & MName(CMonth, True)

    .IncomeLabel.Caption = "Заработано за " & MName(CMonth)
    .OutComeLabel.Caption = "Выдано за " & MName(CMonth)
    .LeftLabel.Caption = "Остаток за " & MName(LMonth)

    .ScanWorkers
    .ScanJobs

    If LMMode Then
        .LastMonth_Label.Visible = True
        .MakeReadOnly_Chk.Visible = False
    Else
        .LastMonth_Label.Visible = False
        .MakeReadOnly_Chk.Visible = True
    End If
End With

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/InitWorkers()"
Exception.Show
End Sub

Private Sub Workers_Button_Click()
On Error GoTo ExceptionControl:
MainReInit
If AdminMode Then
        
    ArcFiles = "pull.xls"
    RunCommand ("ftp -v -s:" & Path & "ftp_server_get " & FtpStorageName)
    ArcName = Path + "pull.7z"
    RunCommand (Archiver & " e -y " & ExchangeKey & " " & ArcName & " -o" & Path & " " & ArcFiles)
    
    PullOnServer

    InitWorkers
    With Workers
        .WorkersTreeHolder.Visible = True
        .RealName_Box.Value = ""
        .NameChooser.Value = ""
        .RealName_Box.Value = .WorkersTree.Nodes(CInt(.WorkersTree.Tag) + 1).Text
        .NameChooser.Value = .WorkersTree.Nodes(CInt(.WorkersTree.Tag) + 1).Key
        .WorkersTree.Nodes(CInt(.WorkersTree.Tag) + 1).Selected = True
        .WorkersTreeHolder.Visible = False
        .Show
    End With
Else
    If Not LMMode Then
        Windows(WorkersBase).Activate
        Sheets("Каталог").Select
        ReferenceTokens = Cells(2, 6).Value

        ArcFiles = "push.xls index.xls"
        ArcName = Path & "push.7z"
        RunCommand ("ftp -v -s:" & Path & "ftp_client_get " & FtpStorageName)
        RunCommand (Archiver & " e -y " & ExchangeKey & " " & ArcName & " -o" & Path & " " & ArcFiles)
        
        PushBase = "push.xls"
        Destination = Path & "tWorkers.xls"
        Source = Path & PushBase

        If Not IsOpened("push.xls") Then Workbooks.Open FileName:=Path + PushBase
        Windows(PushBase).Activate
        Sheets("Каталог").Select

        If (Cells(1, 6).Value = ReferenceTokens) Or (Cells(2, 6).Value = ReferenceTokens) Then
            ActiveWorkbook.Close SaveChanges:=False
            Windows(WorkersBase).Activate
            ActiveWorkbook.Close SaveChanges:=False
            FileCopy Source, Destination
            MainReInit
        Else
            ActiveWorkbook.Close
            Windows(WorkersBase).Activate
        End If
    End If
    InitWorkers
    With Workers
        .MakeReadOnly_Chk.Visible = False
        If LMMode Then
            .Apply_Button.Enabled = False
            .Clear_Button.Enabled = False
            .Delete_Button.Enabled = False
            .ChooseMate_Button.Enabled = False
            .Select_Button.Enabled = False
        End If
        .Show
    End With
End If

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/Workers_Button_Click()"
Exception.Show
End Sub

Private Sub Setup_Button_Click()
On Error GoTo ExceptionControl:
With Setup
    .ScanWorkers (WorkersBase)
    .ScanWCats
    .ScanJobs
    .ScanOrgs
    .ScanJCats
    .ScanOCats
    .NameChooser.Value = .WorkersTree.Nodes(CInt(.WorkersTree.Tag) + 1).Key
    .jID.Value = CutZ(.JobsTree.Nodes(CInt(.JobsTree.Tag) + 1).Key)
    .oID.Value = CutZ(.OrgsTree.Nodes(CInt(.OrgsTree.Tag) + 1).Key)
    .cCatChooser.Value = .cCatChooser.List(1)
    .jCatChooser.Value = .jCatChooser.List(1)
    .oCatChooser.Value = .oCatChooser.List(1)
    .Show
End With

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/Setup_Button_Click()"
Exception.Show
End Sub

Private Sub Chamber_Button_Click()
On Error GoTo ExceptionControl:

FiltersReady = 0
With Orders
    .CDay_Box.Clear
    .Day_Filter.Clear
    .Day_Filter.AddItem ("Все")

    For i = 1 To MDays(CMonth)
        .CDay_Box.AddItem (i)
        .Day_Filter.AddItem (i)
    Next
    .CDay_Box.Value = DateTime.Day(DateTime.Date)
    .Day_Filter.Value = "Все"

    .Dol_Chooser.Clear
    .Dol_Chooser.AddItem ("Все")
    .Dol_Chooser.AddItem ("Долги")
    .Dol_Chooser.Value = "Долги"

    .Opl_Chooser.Clear
    .Opl_Chooser.AddItem ("Все")
    .Opl_Chooser.AddItem ("нал")
    .Opl_Chooser.AddItem ("б/н")
    .Opl_Chooser.Value = "б/н"

    .Opl_Chooser_w.Clear
    .Opl_Chooser_w.AddItem ("нал")
    .Opl_Chooser_w.AddItem ("б/н")
    .Opl_Chooser_w.Value = "б/н"

    .RoundType.Clear
    .RoundType.AddItem ("в большую сторону")
    .RoundType.AddItem ("в меньшую сторону")
    .RoundType.Value = "в большую сторону"

    .Label_FullDate.Caption = GetDayName(.CDay_Box.Value) & ", " & .CDay_Box.Value & " " & MName(CMonth, True)

    .ScanOrgs (WorkersBase)
    .ScanJobs
    .ScanOCats
    FiltersReady = 1
    .Region_Filter.Value = "Все"

    .OrgName_Box.Value = .OrgsTree.Nodes(CInt(.OrgsTree.Tag) + 1).Text
    .oID.Value = CutZ(.OrgsTree.Nodes(CInt(.OrgsTree.Tag) + 1).Key)

    .OrgsTreeHolder.Visible = True
    .OrgsTree.Nodes(CInt(Orders.OrgsTree.Tag) + 1).Selected = True
    .oCat.Value = CutZ(Orders.OrgsTree.SelectedItem.Parent.Key)
    .OrgsTreeHolder.Visible = False

'If LastPerson <> "" Then Workers.NameChooser.Value = LastPerson Else _
'                         Workers.NameChooser.Value = Workers.NameChooser.List(0)

    .Show
End With

Exit Sub
ExceptionControl:
Exception.Error_Box.Value = "Form/Chamber_Button_Click()"
Exception.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
BlockIt.Pass = PinAdmin
BlockIt.AdminOverrides = False
BlockIt.SupervisorOverrides = False
BlockIt.PassOK = False
BlockIt.Password_Box.SetFocus
BlockIt.Show
If BlockIt.PassOK = False And CloseMode = 0 Then Cancel = 1
End Sub