Windows Analysis Report
DNTT-v3.1.xlsb.xlsx

Attribute VB_Name = "FrmAbout"
Attribute VB_Base = "0{3135DB52-F0C7-4305-9B4A-568E7549DCE3}{D779E037-C670-4C83-9214-AF5051E2C423}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False


Option Explicit

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub Frame2_Click()

End Sub

Private Sub Label11_Click()

End Sub

Private Sub Label13_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub UserForm_Initialize()
FrmAbout.Label11 = ProductCode
FrmAbout.Label8 = MyVersion
FrmAbout.Label13 = LastUpdate
FrmAbout.Caption = Logo
FrmAbout.TextBox1.Locked = True
End Sub

Attribute VB_Name = "FrmMain"
Attribute VB_Base = "0{23C0EA65-10EF-416C-871C-DF1E5C275BDE}{E6045F88-120E-4013-B768-7A7F8810883F}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Option Explicit
Dim TB As String, i As Integer, j As Integer
Dim iRow As Long

Private Sub cmbHinhThucTT_Change()
Dim MyControl As Variant
MyControl = Array(CmbMaKH, CmbTenKH, txtSoTK, txtNganHang)

    If cmbHinhThucTT.Text = Sheet3.[O20] Then
        For i = 0 To 3
            MyControl(i).BackColor = 14737632
            MyControl(i).Text = ""
        Next
    Else
        For i = 0 To 3
            MyControl(i).Locked = False
            MyControl(i).BackColor = 8454143
        Next
    End If
End Sub

Private Sub CmbMaKH_Change()
On Error Resume Next
If CmbMaKH.Text <> "" Then
    CmbTenKH.Text = Application.VLookup(CmbMaKH.Text, Sheet3.Range("O28:P100"), 2, 0)
    txtSoTK.Text = Application.VLookup(CmbMaKH.Text, Sheet3.Range("O28:Q100"), 3, 0)
    txtNganHang.Text = Application.VLookup(CmbMaKH.Text, Sheet3.Range("O28:R100"), 4, 0)
End If
End Sub

Private Sub CmdCopy_Click()
Application.ScreenUpdating = False

FrmMain.txtNgayGD.Text = Format(Now, "dd/mm/yyyy hh:mm:ss")
FrmMain.txtSoGiaoDich.Text = Application.Max(Sheet1.Range("A7:A10000")) + 1
FrmMain.txtSoTien.Text = ""

FrmMain.CmdSave.Enabled = True
FrmMain.cmdUpdate.Enabled = False
FrmMain.CmdCopy.Enabled = False
FrmMain.CmdPrint.Enabled = False

lblTip.Caption = Sheet1.[P8]

Application.ScreenUpdating = True
End Sub

Private Sub cmdNew_Click()
Dim MyControl As Variant

MyControl = Array(txtSoGiaoDich, txtNgayGD, txtNguoiDN, txtDV, txtNoidungTT, txtSoTien, cmbHinhThucTT, txtChungTuKemTheo,             CmbMaKH, CmbTenKH, txtSoTK, txtNganHang, txtNgayInPhieu)

    For i = 0 To 12
        MyControl(i).Text = ""
    Next

FrmMain.txtNgayGD.Text = Format(Now, "dd/mm/yyyy hh:mm:ss")
FrmMain.txtSoGiaoDich.Text = Application.Max(Sheet1.Range("A7:A10000")) + 1
FrmMain.txtNguoiDN.Text = Sheet3.[O23]
FrmMain.txtDV.Text = Sheet3.[O24]
FrmMain.CmdSave.Enabled = True
FrmMain.cmdUpdate.Enabled = False
FrmMain.CmdCopy.Enabled = False
FrmMain.CmdPrint.Enabled = False

lblTip.Caption = Sheet1.[P6]              'Goi 

End Sub

Private Sub cmdPrint_Click()
Application.ScreenUpdating = False

Dim MyControl As Variant


txtNgayInPhieu.Text = Format(Now, "dd/mm/yyyy hh:mm:ss")

Call FrmMain.cmdUpdate_Click

MyControl = Array(CInt(txtSoGiaoDich), txtNgayGD, txtNguoiDN, txtDV, txtNoidungTT, txtSoTien, cmbHinhThucTT, txtChungTuKemTheo,             CmbMaKH, CmbTenKH, txtSoTK, txtNganHang, txtNgayInPhieu)

Sheets("Print").Range("X1").Resize(, 13) = MyControl
    
Call Main.HideRow
    
Sheet3.PrintOut

lblTip.Caption = Sheet1.[P9]

Application.ScreenUpdating = True
End Sub

Private Sub CmdSave_Click()
    
Dim MyControl As Variant
Dim j As Integer

'KIEM TRA TRUOC KHI SAVE
MyControl = Array(txtSoGiaoDich, txtNgayGD, txtNguoiDN, txtDV, txtNoidungTT, txtSoTien, cmbHinhThucTT, txtChungTuKemTheo,             CmbMaKH, CmbTenKH, txtSoTK, txtNganHang)
            
    j = IIf(cmbHinhThucTT.Text = Sheet3.[O20], 7, 11)   'Neu la Tien mat, skip kiem tra rong cc  lin quan den NH
    For i = 0 To j                                      'Kiem tra cac  da dc nhap du thng tin hay chua ?
        If MyControl(i).Text = "" Then
           TB = "B" & ChrW(7841) & "n ch" & ChrW(432) & "a nh" & ChrW(7853) & "p " & ChrW(273) & ChrW(7911) & " thng tin vo cc . Ki" & ChrW(7875) & "m tra l" & ChrW(7841) & "i nh"
           Application.Assistant.DoAlert "Thng bo", TB, 0, 4, 0, 0, 0
           MyControl(i).SetFocus
           Exit Sub
        End If
    Next
    
    If IsNumeric(Me.txtSoTien) = False Or Me.txtSoTien.Value < 0 Then
        TB = "Ban phai nhap SO NGUYEN DUONG nh !"
        Application.Assistant.DoAlert "Thng bo", TB, 0, 4, 0, 0, 0
        Me.txtSoTien.SetFocus
        Exit Sub
    End If
    
    Sheets("NhatKy").Range("A65536").End(xlUp).Offset(1, 0).Resize(, 12) = MyControl     'Do lai du lieu vao cc Control trn Form
    Sheets("NhatKy").Range("A65536").End(xlUp) = 1 * Sheets("NhatKy").Range("A65536").End(xlUp) 'Chuyen So giao dich tu text sang Number
    Sheets("NhatKy").Range("F65536").End(xlUp) = 1 * Sheets("NhatKy").Range("F65536").End(xlUp) 'Chuyen So tien tu text sang Number
    TB = ChrW(272) & " l" & ChrW(432) & "u d" & ChrW(7919) & " li" & ChrW(7879) & "u thnh cng"
    Application.Assistant.DoAlert "Thng bo", TB, 0, 4, 0, 0, 0

'    For i = 1 To 12                 'Save xong th xa du lieu trong cac Controls
'        MyControl(i).Value = ""
'    Next

    With Sheets("NhatKy") 'Update lai List
        iRow = .Range("A65536").End(xlUp).Row
        .Range("A4:M" & iRow).Name = "VungDL"
        FrmMain.lstMain.RowSource = "VungDL"
    End With

    FrmMain.lstMain.ListIndex = FrmMain.lstMain.ListCount - 1
    
FrmMain.CmdSave.Enabled = False 'Khng cho bam SAVE thm nua
FrmMain.cmdUpdate.Enabled = True
FrmMain.CmdPrint.Enabled = True
FrmMain.CmdCopy.Enabled = True

lblTip.Caption = Sheet1.[P7]

End Sub

Sub cmdUpdate_Click()
Application.ScreenUpdating = False

Dim MyControl As Variant, MyControl2 As Variant

'KIEM TRA TRUOC KHI UPDATE
MyControl = Array(txtSoGiaoDich, txtNgayGD, txtNguoiDN, txtDV, txtNoidungTT, txtSoTien, cmbHinhThucTT, txtChungTuKemTheo,             CmbMaKH, CmbTenKH, txtSoTK, txtNganHang)
            
    j = IIf(cmbHinhThucTT.Text = Sheet3.[O20], 7, 11) 'Neu la Tien mat, bo kiem tra rong cc  lin quan den NH
    For i = 0 To j                'Kiem tra cac  da dc nhap du thng tin hay chua ?
        If MyControl(i).Text = "" Then
           TB = "B" & ChrW(7841) & "n ch" & ChrW(432) & "a nh" & ChrW(7853) & "p " & ChrW(273) & ChrW(7911) & " thng tin vo cc . Ki" & ChrW(7875) & "m tra l" & ChrW(7841) & "i nh"
           Application.Assistant.DoAlert "Thng bo", TB, 0, 4, 0, 0, 0
           MyControl(i).SetFocus
           Exit Sub
        End If
    Next
    
    If IsNumeric(Me.txtSoTien) = False Or Me.txtSoTien.Value < 0 Then
        TB = "Ban phai nhap SO NGUYEN DUONG nh !"
        Application.Assistant.DoAlert "Thng bo", TB, 0, 4, 0, 0, 0
        Me.txtSoTien.SetFocus
        Exit Sub
    End If
    
    MyControl2 = Array(CInt(txtSoGiaoDich), txtNgayGD, txtNguoiDN, txtDV, txtNoidungTT, txtSoTien, cmbHinhThucTT, txtChungTuKemTheo,             CmbMaKH, CmbTenKH, txtSoTK, txtNganHang, txtNgayInPhieu)

    Range("VungDL").Offset(lstMain.ListIndex).Resize(1, 13).Value = MyControl2
    
'    TB = ChrW(272) & " update l" & ChrW(7841) & "i d" & ChrW(7919) & " li" & ChrW(7879) & "u"
'    Application.Assistant.DoAlert "Thng bo", TB, 0, 4, 0, 0, 0
    
'    For i = 0 To 11
'        Me.MyControl2(i).Text = ""
'    Next

lblTip.Caption = Sheet1.[P5]

Application.ScreenUpdating = True
End Sub

Private Sub Image1_Click()
Unload Me
End Sub

Private Sub Image2_Click()
FrmAbout.Show
End Sub

Private Sub Label2_Click()
FrmMain.txtSoGiaoDich.Locked = False
End Sub

Private Sub Label3_Click()
FrmMain.txtNguoiDN.Locked = False
End Sub

Private Sub Label4_Click()
FrmMain.txtDV.Locked = False
End Sub

Private Sub lstMain_Change()

Dim MyControl As Variant
Dim i As Long

MyControl = Array(txtSoGiaoDich, txtNgayGD, txtNguoiDN, txtDV, txtNoidungTT, txtSoTien, cmbHinhThucTT, txtChungTuKemTheo,             CmbMaKH, CmbTenKH, txtSoTK, txtNganHang, txtNgayInPhieu)

    For i = 0 To 12
        MyControl(i).Text = ""
        MyControl(i).Text = lstMain.List(, i)
    Next

    txtNgayGD = Format(txtNgayGD, "dd/mm/yyyy hh:mm:ss")
    txtNgayInPhieu = Format(txtNgayInPhieu, "dd/mm/yyyy hh:mm:ss")


FrmMain.CmdSave.Enabled = False
FrmMain.cmdUpdate.Enabled = True
FrmMain.CmdCopy.Enabled = True
FrmMain.CmdPrint.Enabled = True

End Sub


Private Sub txtSoTien_Change()
txtSoTien.Text = Format(txtSoTien.Text, "#,###")
End Sub

Private Sub UserForm_Initialize()
Dim MyControl As Variant
Dim iRow As Long

Application.WindowState = xlMaximized
    Me.Top = 0: Me.Left = 0
    Me.Width = Application.Width
    Me.Height = Application.Height
FrmMain.Caption = Logo

MyControl = Array(txtSoGiaoDich, txtNgayGD, txtNguoiDN, txtDV, txtNoidungTT, txtSoTien, cmbHinhThucTT, txtChungTuKemTheo,             CmbMaKH, CmbTenKH, txtSoTK, txtNganHang, txtNgayInPhieu)
  
    'Call Main.LocVaTaoName
    
    With Sheets("NhatKy") 'Update lai List
        iRow = .Range("A65536").End(xlUp).Row
        .Range("A4:M" & iRow).Name = "VungDL"
        FrmMain.lstMain.RowSource = "VungDL"
    End With

lstMain.ListIndex = lstMain.ListCount - 1       'Chon dong cuoi cua ListBox
lblTip.Caption = Sheet1.[P4]
Frame1.Caption = Sheet1.[P3]
'Me.cmdSave.Enabled = False                      'Disable nt SAVE
End Sub

Attribute VB_Name = "Log"
Option Explicit
Public Const MyVersion As String = "v3.0"
Public Const LastUpdate As String = "21/7/2020"
Public Const ProductCode As String = "TDL04-DNTT"
Public Const Logo As String = ProductCode & " " & MyVersion & " - " & LastUpdate


Sub OpenAlertEmail()

On Error GoTo Thoat

Dim EmailMsg, EmailConf As Object
Dim EmailFields As Variant

Set EmailMsg = CreateObject("CDO.Message") 'CDO (Collaboration Data Objects) -Make sure you have the 'CDO For Windows' Library Selected
Set EmailConf = CreateObject("CDO.Configuration")
Set EmailFields = EmailConf.Fields
     With EmailFields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.acsv.com.vn"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'Mail acsv thi port la 587; Gmail: 465
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Dung mail acsv thi bo dong nay
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "reminder@acsv.com.vn"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Abcd.1234"
        .Update
     End With
     
     With EmailMsg
            .bodypart.Charset = "utf-8"
        Set .Configuration = EmailConf
            .to = "long.tran@acsv.com.vn"
            .From = """DNTT"" <reminder@acsv.com.vn>"
            .Subject = Logo & " [by " & Environ$("username") & " - at " & Environ$("computername") & "]"
            .HTMLBody = "File DNTT dang duoc mo voi thong tin nhu sau:" & "<BR>" & "<BR>" &             "+ User: " & Environ$("username") & "<BR>" &             "+ Computer: " & Environ$("computername") & "<BR>" &             "+ File located at: " & ThisWorkbook.FullName & "<BR>" &             "+ Time: " & Now & "<BR>" &             "+ Product Code: " & ProductCode & "<BR>" &             "+ Version: " & MyVersion
            .Send

        End With
Thoat:
    Set EmailMsg = Nothing
    Set EmailConf = Nothing
    Set EmailFields = Nothing
End Sub

Attribute VB_Name = "Main"
Option Explicit

Sub LoadData()

Application.ScreenUpdating = False
Application.EnableEvents = False

On Error GoTo Thoat
Dim Maxx As Integer
Maxx = Application.WorksheetFunction.Max(Sheet1.Range("A3:A2000"))

If Sheet6.[I5] > Maxx Then
    Dim TB As String
    TB = "M s" & ChrW(7889) & " ti li" & ChrW(7879) & "u b" & ChrW(7841) & "n duy" & ChrW(7879) & "t v" &         ChrW(432) & ChrW(7907) & "t qu s" & ChrW(7889) & " " & ChrW(273) & "ang c. Vui lng duy" & ChrW(7879) & "t s" &         ChrW(7889) & " nh" & ChrW(7887) & " h" & ChrW(417) & "n nh !"
        Application.Assistant.DoAlert Logo, TB, 0, 4, 0, 0, 0

    Sheet6.[I5] = Maxx

Else

    With Sheets("Welcome")
        .Unprotect
        .[E23] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 2, 0)        'Ngy
        .[E7] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 3, 0)        'Nguoi DN
        .[G7] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 4, 0)         'Bo phan
        .[E9] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 5, 0)        'Noi dung TT
        .[E11] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 6, 0)        'So tien
        .[G11] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 7, 0)        'Hnh thuc TT
        .[E15] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 8, 0)        'Chung tu km theo
        .[G23] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 9, 0)        'Thoi gian in phieu
        .[E17] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 11, 0)       'M KH
        .[G17] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 12, 0)       'S TK
        .[E21] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 13, 0)       'Ngn hng
        .[E19] = Application.VLookup(.[I5], Sheet1.[A3:O2000], 14, 0)       'Ten Cty
        .Protect
    End With
    
Sheet6.CmdPrint.Enabled = True
Sheet6.CmdSave.Enabled = True

End If

Thoat:
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Sub HideRow()

'On Error Resume Next
    Sheet3.Unprotect
    
    If Sheet3.[AD1] = Sheet3.[O20] Then    'Neu tien mat
        Sheet3.Rows("14:16").EntireRow.Hidden = True
    Else
        Sheet3.Rows("14:16").EntireRow.Hidden = False
    End If
    
    Sheet3.Protect

End Sub

Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True


'Private Sub Worksheet_Activate()
'Dim TB As String
'TB = "Sheet nay chi xem du lieu tong hop. Khong nhap lieu vao day"
'Application.Assistant.DoAlert Logo, TB, 0, 4, 0, 0, 0
'
'Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
'Sheet1.EnableSelection = xlNoRestrictions
'End Sub
'
'Private Sub Worksheet_Deactivate()
'Sheet1.Unprotect
'End Sub

Attribute VB_Name = "Sheet3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Control = "CmdMenu, 1, 0, MSForms, CommandButton"

Private Sub CmdMenu_Click()
FrmMain.Show
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet3.Protect
End Sub

Attribute VB_Name = "Sheet4"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Sheet6"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Control = "CmdAbout, 46, 0, MSForms, CommandButton"
Attribute VB_Control = "CmdPrint, 7, 1, MSForms, CommandButton"
Attribute VB_Control = "CmdSave, 6, 2, MSForms, CommandButton"
Attribute VB_Control = "cmdNew, 4, 3, MSForms, CommandButton"
Option Explicit
Dim TB As String

Private Sub CmdAbout_Click()
FrmAbout.Show
End Sub

Private Sub cmdPrint_Click()

Application.ScreenUpdating = False
Application.EnableEvents = False

Dim RngData As Range, MyRng As Range
    Set RngData = Sheet6.Range("E7,G7,E9,E11,G11,E15")
    
    For Each MyRng In RngData.Cells
        If MyRng = "" Then
            TB = "B" & ChrW(7841) & "n ch" & ChrW(432) & "a nh" & ChrW(7853) & "p thng tin cho : " & MyRng.Offset(0, -1).Value
            Application.Assistant.DoAlert Logo, TB, 0, 4, 0, 0, 0
            MyRng.Select
            Set RngData = Nothing
            Exit Sub
        End If
    Next MyRng

    Call Main.HideRow
    Application.Calculation = xlCalculationAutomatic
    'Sheet3.PrintOut
    TB = "Da gui thng tin Debit ra my in "
    Application.Assistant.DoAlert Logo, TB, 0, 4, 0, 0, 0

    Sheet6.Unprotect
    Sheet6.[G23] = Now
    Call CmdSave_Click
    'ActiveWorkbook.Close SaveChanges:=True
Set RngData = Nothing

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$E$17" Then
        Sheet6.Unprotect
        [E19] = Application.VLookup([E17], Sheet3.Range("O28:R100"), 2, 0)
        [G17] = Application.VLookup([E17], Sheet3.Range("O28:R100"), 3, 0)
        [G17] = CStr([G17])
        [E21] = Application.VLookup([E17], Sheet3.Range("O28:R100"), 4, 0)
        Sheet6.Protect
    End If

End Sub

Private Sub cmdNew_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False

With Sheet6
    .Unprotect
    .Range("E9:G9,E11,G11,E15:G15,E17,G17,E19:G19,E21:G21,G23").ClearContents
    .[I5] = 1 + Application.WorksheetFunction.Max(Sheet1.Range("A3:A2000"))
    .[E23] = Now
    Rows("17:22").EntireRow.Hidden = False
    
    Sheet6.CmdSave.Enabled = True
    Sheet6.CmdPrint.Enabled = False
    .Protect
    .[E9].Select
End With

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Private Sub CmdSave_Click()

Application.ScreenUpdating = False
Application.EnableEvents = False
Dim RngData As Range, MyRng As Range

Dim ShS As Worksheet, ShD As Worksheet
Set ShS = ThisWorkbook.Sheets("Welcome")
Set ShD = ThisWorkbook.Sheets("NhatKy")

Set RngData = ShS.Range("E7,G7,E9,E11,G11")
    
    For Each MyRng In RngData.Cells
        If MyRng = "" Then
            TB = "B" & ChrW(7841) & "n ch" & ChrW(432) & "a nh" & ChrW(7853) & "p thng tin cho : " & MyRng.Offset(0, -1)
            Application.Assistant.DoAlert Logo, TB, 0, 4, 0, 0, 0
            MyRng.Select
            GoTo Thoat
        End If
    Next MyRng
ShD.Unprotect
Dim Check As Integer
Check = Application.WorksheetFunction.CountIf(ShD.[$A$3:$A$2000], ShS.[I5])

If Check > 0 Then               'Da ton tai ma so ny trong danh sch - Thuc hien UPDATE
    Dim Vitri As Integer
    Vitri = Application.Match(Sheet6.[I5], Sheet1.[A3:A2000], 0) - 1
    
    ShD.Range("A3").Offset(Vitri, 1) = ShS.[E23]   'Ngy tao phieu
    ShD.Range("A3").Offset(Vitri, 2) = ShS.[E7]    'Nguoi DN
    ShD.Range("A3").Offset(Vitri, 3) = ShS.[G7]    'Bo phan
    ShD.Range("A3").Offset(Vitri, 4) = ShS.[E9]    'Noi dung DN
    ShD.Range("A3").Offset(Vitri, 5) = ShS.[E11]   'So tien
    ShD.Range("A3").Offset(Vitri, 6) = ShS.[G11]   'Hinh thuc TT
    ShD.Range("A3").Offset(Vitri, 7) = ShS.[E15]   'Chung tu kem theo
    ShD.Range("A3").Offset(Vitri, 8) = ShS.[G23]   'Thoi gian in phieu
    
    ShD.Range("A3").Offset(Vitri, 10) = ShS.[E17]  'M TK khach hng
    ShD.Range("A3").Offset(Vitri, 11) = ShS.[G17]  'So TK
    ShD.Range("A3").Offset(Vitri, 12) = ShS.[E21]  'Tn Ngan hng
    ShD.Range("A3").Offset(Vitri, 13) = ShS.[E19]  'Tn khch hng

Else                            'Chua  ton tai ma so ny trong danh sch - Thuc hien SAVE moi

    ShD.Range("A5000").End(xlUp).Offset(1, 0) = ShS.[I5]    'So phieu moi
    ShD.Range("A5000").End(xlUp).Offset(0, 1) = ShS.[E23]   'Thoi gian tao phieu
    ShD.Range("A5000").End(xlUp).Offset(0, 2) = ShS.[E7]    'Nguoi DN
    ShD.Range("A5000").End(xlUp).Offset(0, 3) = ShS.[G7]    'Don vi
    ShD.Range("A5000").End(xlUp).Offset(0, 4) = ShS.[E9]    'Noi dung DN
    ShD.Range("A5000").End(xlUp).Offset(0, 5) = ShS.[E11]   'So tien
    ShD.Range("A5000").End(xlUp).Offset(0, 6) = ShS.[G11]   'Hinh thuc TT
    ShD.Range("A5000").End(xlUp).Offset(0, 7) = ShS.[E15]   'Chung tu kem theo
    'ShD.Range("A5000").End(xlUp).Offset(0, 8) = ShS.[G23]   'Gio in phieu
    
    ShD.Range("A5000").End(xlUp).Offset(0, 10) = ShS.[E17]  'M TK khch hng
    ShD.Range("A5000").End(xlUp).Offset(0, 11) = ShS.[G17]  'So TK
    ShD.Range("A5000").End(xlUp).Offset(0, 12) = ShS.[H19]  'Tn Ngn hng
    ShD.Range("A5000").End(xlUp).Offset(0, 13) = ShS.[E19]  'Tn khch hng
       
End If
Sheet6.CmdSave.Enabled = False

Thoat:
Set ShD = Nothing
Set ShD = Nothing
Set RngData = Nothing

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_Open()
Call Log.OpenAlertEmail
FrmMain.Show
End Sub