MainWindow.vb

Imports SalesInvoice.globalVars

Imports System.Data.SqlServerCe
Imports System.Globalization
Imports System.Resources
Imports System.Threading
Imports System.IO
Imports System.GC

Public Class MainWindow

    Dim prevLang As String
    Dim dataFromDB
    Private Property CultureInfo As CultureInfo

    Sub OpenDatabase()
        Try
            con = New SqlCeConnection("Data Source=""" & Application.StartupPath & "\databases\" & currentDatabase & """")
            con.Open()
        Catch ex As Exception
            MsgBox(rm.GetString("msgGeneralError") & vbNewLine & rm.GetString("msgDatabaseError"))
            Application.Exit()
        End Try
    End Sub
    Private Sub MainWindow_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus
        If Not prevLang Is asSettings.Settings.Item("lang").Value Then
            setLanguage()
        End If
    End Sub
    Sub loadRecents()
        Ribbon1.OrbDropDown.RecentItems.Clear()
        Dim files() As String
        If Directory.Exists(Application.StartupPath & "\receipts") Then
            files = Directory.GetFiles(Application.StartupPath & "\receipts", "*.pdf", SearchOption.TopDirectoryOnly)
            For Each FileName As String In files
                Dim r As New RibbonOrbRecentItem()
                r.Text = Path.GetFileName(FileName)
                AddHandler r.Click, AddressOf OpenRecent
                Ribbon1.OrbDropDown.RecentItems.Add(r)
            Next
        End If
    End Sub
    Sub OpenRecent(sender As Object, e As EventArgs)
        Dim btn = DirectCast(sender, RibbonOrbRecentItem)
        Dim print As New PrintingWindow
        print.PdfViewer1.LoadFromFile(Application.StartupPath & "\receipts\" & btn.Text)
        print.ShowDialog()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Application.EnableVisualStyles()
        prevLang = asSettings.Settings.Item("lang").Value
        'Me.Text = "Records of the sale of undeclared activities - " & currentDatabase & " - Sales "
        Me.Text = rm.GetString("titleMain") & " - " & currentDatabase & " - " & rm.GetString("titleSales")
        Me.CenterToScreen()
        checkAllSettings()
        setLanguage()
        loadRecents()
    End Sub
    Public Sub setLanguage()
        Me.Text = rm.GetString("titleMain") & " - " & currentDatabase & " - " & rm.GetString("titleSales")
        RibbonMainTab.Text = rm.GetString("lbMainTab")

        RibbonNewPanel.Text = rm.GetString("lbNew")
        NewClientBtn.Text = rm.GetString("lbAddClient")
        NewItemBtn.Text = rm.GetString("lbAddItem")
        NewReceiptBtn.Text = rm.GetString("lbNewReceipt")

        RibbonDatabasePanel.Text = rm.GetString("lbDatabase")
        ShowClientsBtn.Text = rm.GetString("lbShowClients")
        ShowItemsBtn.Text = rm.GetString("lbShowItems")
        ShowReceiptsBtn.Text = rm.GetString("lbShowReceipts")

        RibbonSettingsBtn.Text = rm.GetString("lbSettings")
        RibbonInfoBtn.Text = rm.GetString("lbInfo")
        RaportsTab.Text = rm.GetString("lbRaports")

        RibbonExitBtn.Text = rm.GetString("lbExit")


        repItems.Text = rm.GetString("lbItems")
        repCategories.Text = rm.GetString("lbCategory")
        repMonth.Text = rm.GetString("lbMonthly")
        repRange.Text = rm.GetString("lbInRange")
        RaportsVar.Text = rm.GetString("lbRaportsVar")
        RaportsRanged.Text = rm.GetString("lbRaportsRange")


    End Sub

    Sub checkAllSettings()
        'If asSettings.Settings.Item("enable_scanner_service").Value.ToLower = "true" Then
        '    Dim proc As New System.Diagnostics.Process()
        '    If fileExists(".\bin\BarcodeScannerListener.exe") Then proc = Process.Start(".\bin\BarcodeScannerListener.exe", "")
        'End If
    End Sub
    Sub updateConnection()
        Try
            con = New SqlCeConnection("Data Source=""" & Application.StartupPath & ".\databases\" & currentDatabase & """")
            con.Open()
        Catch ex As Exception
            MsgBox(rm.GetString("msgGeneralError") & vbNewLine & rm.GetString("msgDatabaseError"))
            Application.Exit()
        End Try
    End Sub
    Private Sub NewClientBtn_Click(sender As Object, e As EventArgs) Handles NewClientBtn.Click
        AddClientWindow.ShowDialog()
    End Sub
    Private Sub NewReceiptBtn_Click(sender As Object, e As EventArgs) Handles NewReceiptBtn.Click
        AddReceiptWindow.ShowDialog()
    End Sub
    Private Sub ToolStripStatusLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel1.Click
        Dim id = MainGridView.CurrentRow.Cells("id").Value

        cmd = New SqlCeCommand("DELETE FROM " & currentSet & " WHERE id= " & id, con)
        If con.State = ConnectionState.Closed Then con.Open()
        cmd.ExecuteNonQuery()
        updateDataView()
        con.Close()
    End Sub

    Private Sub RibbonOrbMenuItem4_Click(sender As Object, e As EventArgs) Handles RibbonExitBtn.Click
        Me.Close()
    End Sub

    Private Sub RibbonButton1_Click(sender As Object, e As EventArgs) Handles RibbonSettingsBtn.Click
        Dim old = currentDatabase
        OptionsAndDatabaseWindow.StartPosition = FormStartPosition.CenterParent
        OptionsAndDatabaseWindow.ShowDialog(Me)
        If Not old.ToString.Equals(currentDatabase.ToString) Then
            MainGridView.DataSource = Nothing
            MainGridView.Rows.Clear()
            Me.Text = rm.GetString("titleMain") & " - " & currentDatabase & " - " & rm.GetString("titleSales")
            updateConnection()
        End If
    End Sub
    Private Sub RibbonButton9_Click(sender As Object, e As EventArgs) Handles NewItemBtn.Click
        AddItemWindow.ShowDialog()
    End Sub

    Private Sub RibbonButton11_Click(sender As Object, e As EventArgs) Handles ShowItemsBtn.Click
        currentSet = "items"
        'cmd = New SqlCeCommand("select items.id,name,code,category_name,service,amount,price from items inner join items_categories on items.category = items_categories.id", con)
        cmd = New SqlCeCommand("SELECT items.id,items.name,items.price,categories.name from items inner join categories on items.category = categories.id", con)
        updateDataView()

        MainGridView.Columns(0).HeaderText = rm.GetString("lbCode")
        MainGridView.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
        MainGridView.Columns(1).HeaderText = rm.GetString("lbItemName")

        MainGridView.Columns(3).HeaderText = rm.GetString("lbCategory")
        MainGridView.Columns(2).HeaderText = rm.GetString("lbPrice")
        MainGridView.Sort(MainGridView.Columns(0), System.ComponentModel.ListSortDirection.Ascending)


    End Sub
    Private Sub ShowReceiptsBtn_Click(sender As Object, e As EventArgs) Handles ShowReceiptsBtn.Click
        currentSet = "receipts"
        cmd = New SqlCeCommand("select clients.name,receipt_id,date from receipts inner join clients on clients.id = receipts.client_id", con)
        updateDataView()

        MainGridView.Columns(0).HeaderText = rm.GetString("lbClient")
        MainGridView.Columns(1).HeaderText = rm.GetString("lbDocumentNo")
        MainGridView.Columns(2).HeaderText = rm.GetString("lbDate")
        MainGridView.Sort(MainGridView.Columns(1), System.ComponentModel.ListSortDirection.Descending)

    End Sub
    Private Sub ShowClientsBtn_Click(sender As Object, e As EventArgs) Handles ShowClientsBtn.Click
        currentSet = "clients"
        cmd = New SqlCeCommand("select id,name,phone,identificator from Clients", con)
        updateDataView()

        MainGridView.Columns(0).HeaderText = rm.GetString("lbID")
        MainGridView.Columns(1).HeaderText = rm.GetString("lbItemName")
        MainGridView.Columns(2).HeaderText = rm.GetString("lbPhone")
        MainGridView.Columns(3).HeaderText = rm.GetString("lbIdData")
        For i = 0 To 3
            MainGridView.Columns(i).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
        Next
        MainGridView.Sort(MainGridView.Columns(1), System.ComponentModel.ListSortDirection.Ascending)


    End Sub
    Sub updateDataView()

        Select Case currentSet
            Case "items"
                cmd = New SqlCeCommand("SELECT items.id,items.name,items.price,categories.name from items inner join categories on items.category = categories.id", con)
            Case "clients"
                cmd = New SqlCeCommand("select id,name,phone,identificator from Clients", con)
            Case "receipts"
                cmd = New SqlCeCommand("select clients.name,receipt_id,ddate from receipts inner join clients on clients.id = receipts.client_id", con)
        End Select
        If con.State = ConnectionState.Closed Then con.Open()
        cmd.ExecuteNonQuery()

        myDA = New SqlCeDataAdapter(cmd)
        myDataSet = New DataSet()

        myDA.Fill(myDataSet, currentSet)
        MainGridView.DataSource = myDataSet.Tables(currentSet).DefaultView

        con.Close()
        MainGridView.Focus()
    End Sub
    Private Sub RibbonButton6_Click(sender As Object, e As EventArgs) Handles RibbonInfoBtn.Click
        Informations.ShowDialog()
    End Sub
    Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MainGridView.CellDoubleClick
        If currentSet = "receipts" Then
            currentSet = "receipts_data"
            Dim index As String = MainGridView.CurrentRow.Cells(1).Value
            Dim client As String = MainGridView.CurrentRow.Cells(0).Value
            cmd = New SqlCeCommand("SELECT  items.name, receipts_data.amount, units.name, items.price, items.price * receipts_data.amount AS suma " & _
                                    "FROM receipts_data " & _
                                    "INNER JOIN items ON items.id = receipts_data.code " & _
                                    "INNER JOIN units ON items.unit = units.id " & _
                                    "WHERE receipts_data.receipt_id = '" & index & "' ", con)

            updateDataView()
            MainGridView.Columns(0).HeaderText = rm.GetString("lbItemName")
            MainGridView.Columns(1).HeaderText = rm.GetString("lbAmount")
            MainGridView.Columns(2).HeaderText = rm.GetString("lbUnit")
            MainGridView.Columns(3).HeaderText = rm.GetString("lbPrice")
            MainGridView.Columns(4).HeaderText = rm.GetString("lbCost")
            con.Close()
        End If
        If currentSet = "items" Then
            If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
                Dim selectedRow = MainGridView.Rows(e.RowIndex)
                Dim itemDetails As New ItemDetails(selectedRow.Cells(0).Value)
                itemDetails.ShowDialog()
            End If
        End If
        If currentSet = "clients" Then
            If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
                Dim selectedRow = MainGridView.Rows(e.RowIndex)
                Dim clientDetails As New ClientDetails(selectedRow.Cells(0).Value)
                clientDetails.ShowDialog()
            End If
        End If
    End Sub
    Private Sub RibbonOrbMenuItem2_Click(sender As Object, e As EventArgs)
        FirstRunWizard.Show()
    End Sub

    Private Sub MainGridView_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles MainGridView.RowPostPaint
        ' This fragment of code belongs to: devcomponents
        ' Source: https://www.devcomponents.com/kb2/?p=1230
        '

        Dim dg As DataGridView = DirectCast(sender, DataGridView)
        ' Current row record
        Dim rowNumber As String = (e.RowIndex + 1).ToString()

        ' Format row based on number of records displayed by using leading zeros
        While rowNumber.Length < dg.RowCount.ToString().Length
            rowNumber = "0" & rowNumber
        End While

        ' Position text
        Dim size As SizeF = e.Graphics.MeasureString(rowNumber, Me.Font)
        If dg.RowHeadersWidth < CInt(size.Width + 20) Then
            dg.RowHeadersWidth = CInt(size.Width + 20)
        End If

        ' Use default system text brush
        Dim b As Brush = SystemBrushes.ControlText

        ' Draw row number
        e.Graphics.DrawString(rowNumber, dg.Font, b, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
    End Sub

    Private Sub MainWindow_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        OpenDatabase()
    End Sub

    Private Sub repRange_Click(sender As Object, e As EventArgs) Handles repRange.Click
        Using chooseDate = New ReportsRange
            If DialogResult.OK = chooseDate.ShowDialog() Then
                Dim report As New CustomReportGenerator("customRange", chooseDate.MonthCalendar1.SelectionStart, chooseDate.MonthCalendar1.SelectionEnd)
                report.ShowDialog()
            End If
        End Using
    End Sub

    Private Sub repItems_Click(sender As Object, e As EventArgs) Handles repItems.Click
        Dim report As New CustomReportGenerator("items")
        report.ShowDialog()
    End Sub

    Private Sub repCategories_Click(sender As Object, e As EventArgs) Handles repCategories.Click
        Dim report As New CustomReportGenerator("categories")
        report.ShowDialog()
    End Sub

    Private Sub repMonth_Click(sender As Object, e As EventArgs) Handles repMonth.Click
        Dim report As New CustomReportGenerator("monthly")
        report.Show()
    End Sub

    Private Sub MainGridView_MouseDown(sender As Object, e As MouseEventArgs) Handles MainGridView.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If currentSet = "receipts" Then
                Dim hit As DataGridView.HitTestInfo = MainGridView.HitTest(e.X, e.Y)
                MainGridView.CurrentCell = MainGridView.Rows(hit.RowIndex).Cells(1)
                Dim printBtn As New ToolStripMenuItem()
                printBtn.Text = rm.GetString("lbPrint")
                ContextMenuStrip1.Items.Clear()
                ContextMenuStrip1.Items.Add(printBtn)
                AddHandler printBtn.Click, AddressOf PrintBtnHandler
                ContextMenuStrip1.Show(MousePosition.X, MousePosition.Y)
            End If
        End If
    End Sub
    Sub PrintBtnHandler(sender As Object, e As EventArgs)
        Dim srcCell = MainGridView.SelectedCells(0).RowIndex()
        Dim receiptNo = MainGridView.Rows(srcCell).Cells(1).Value
        Dim genRec As New GenerateReceipt(receiptNo)
        genRec.generateReceipt()
        genRec.PreviewReceipt()

    End Sub

    Private Sub MainWindow_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        con.Close()
        Me.Dispose()
        'Application.Exit()
    End Sub

    Private Sub GCTimer_Tick(sender As Object, e As EventArgs) Handles GCTimer.Tick
        Dim before As Long = GC.GetTotalMemory(False)
        GC.Collect()
        Dim after As Long = GC.GetTotalMemory(False)
        Dim res As Integer = (before - after) / 1024
        StatusGC.Text = "Released: " & res & "kB"
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles TimeTimer.Tick
        StatusTime.Text = TimeOfDay.ToString("hh:mm:ss") & " " & Date.Now().ToShortDateString
    End Sub
End Class