transactionaddedit.frm

This application i made for handle simple finance this project using VB 6.0, SQL Server 2000 wit

      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Dibayarkan &Kepada:"
      Height          =   195
      Index           =   2
      Left            =   225
      TabIndex        =   4
      Top             =   1845
      Width           =   1770
   End
   Begin VB.Label lblForm 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "&Tanggal:"
      Height          =   195
      Index           =   1
      Left            =   225
      TabIndex        =   2
      Top             =   1470
      Width           =   750
   End
   Begin VB.Label lblForm 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Nomor &Bukti:"
      Height          =   195
      Index           =   0
      Left            =   225
      TabIndex        =   0
      Top             =   1095
      Width           =   1140
   End
End
Attribute VB_Name = "frmTransactionAddEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public sMenu As SelectedSubMenu
Private lx As MSComctlLib.ListItem

Public unloaded As Boolean

Private Sub btnCancel_Click()

  Call Unload(Me)

End Sub

Private Sub btnSave_Click()

  btnSave.Enabled = False

  If (Not (ValidSave())) Then
    btnSave.Enabled = True
    Exit Sub
  End If

  Select Case (frmTransaction.sMenu)
  Case (SelectedSubMenu.Add)

    If (ExistCode(Trim(txtBukti.Text))) Then
      Call Message(Replace(LoadResString(3), "@n", "Nomor Bukti"))
      btnSave.Enabled = True
      Exit Sub
    End If

    Call SaveHeader(False, Trim(txtBukti.Text), Trim(txtKepada.Text), CStr(Format(dtTanggal.Value, DATEFORMAT)), lstBayar.ListIndex, Trim(txtBank.Text), IIf(txtNoCek.Enabled, Trim(txtNoCek.Text), ""), CStr(Format(dtCek.Value, DATEFORMAT)), lstCur.ListIndex)
    Call SaveDetail

  Case (SelectedSubMenu.Edit)
    Call SaveHeader(True, Trim(txtBukti.Text), Trim(txtKepada.Text), CStr(Format(dtTanggal.Value, DATEFORMAT)), lstBayar.ListIndex, Trim(txtBank.Text), IIf(txtNoCek.Enabled, Trim(txtNoCek.Text), ""), CStr(Format(dtCek.Value, DATEFORMAT)), lstCur.ListIndex)

  End Select

  btnSave.Enabled = True
  Call Unload(Me)

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

  unloaded = True
  Call Unload(frmTransactionDetailAddEdit)

End Sub

Private Sub Form_Load()

  unloaded = False

  dtTanggal.Value = Now
  dtCek.Value = Now

  Call FillPaymentType
  Call FillCurrency

  Call SetHeader

  Select Case (frmTransaction.sMenu)
  Case (SelectedSubMenu.Add)
    ihdForm.Text = "Add"

  Case (SelectedSubMenu.Edit)

    ihdForm.Text = "Edit"
    txtBukti.Enabled = False
    btnCancel.Caption = "Close"

    With frmTransaction.lvTransaction.SelectedItem
      txtBukti.Text = .Text
      dtTanggal.Value = CDate(.ListSubItems(1).Text)
      txtKepada.Text = .ListSubItems(2).Text
      lstBayar.Text = .ListSubItems(3).Text
      txtBank.Text = IndexString(.Tag, 0)
      txtNoCek.Text = IndexString(.Tag, 1)

      If (IndexString(.Tag, 2) = "-1") Then
        dtCek.Value = Now
      Else
        dtCek.Value = CDate(IndexString(.Tag, 2))
      End If

      lstCur.Text = IndexString(.Tag, 3)
    End With

    Call TransactionViewDetail(frmTransaction.lvTransaction.SelectedItem.Text)
    Call CountList

  End Select

  Call ResetMenu

End Sub

Private Sub FillPaymentType()

  With lstBayar
    Call .Clear
    Call .AddItem("Tunai")
    Call .AddItem("Transfer")
    Call .AddItem("Cek")
    Call .AddItem("BG")
    .ListIndex = 0
  End With

End Sub

Private Sub FillCurrency()

  With lstCur
    Call .Clear
    Call .AddItem("Rupiah (Rp)")
    Call .AddItem("Dollar ($)")
    .ListIndex = 0
  End With

End Sub

Private Sub SetHeader()

  With lvDetail.ColumnHeaders
    Call .Add(, , "No", 40)
    Call .Add(, , "Uraian", 170)
    Call .Add(, , "Kode Account", 100)
    Call .Add(, , "WorkOrder", 100)
    Call .Add(, , "Kode Area", 80)
    Call .Add(, , "Debet", 120, ListColumnAlignmentConstants.lvwColumnRight)
    Call .Add(, , "Kredit", 120, ListColumnAlignmentConstants.lvwColumnRight)
  End With

End Sub

Private Sub lstBayar_Click()

  If (Not (lstBayar.ListIndex = 2)) Then
    txtNoCek.Enabled = False
    dtCek.Enabled = False
  Else
    txtNoCek.Enabled = True
    dtCek.Enabled = True
  End If

End Sub

Private Sub txtBukti_GotFocus()

  Call TextFocus(txtBukti, True, False)

End Sub

Private Sub txtBukti_KeyPress(KeyAscii As Integer)

   If KeyAscii <> 13 Then
    
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
   End If

End Sub

Private Sub txtKepada_GotFocus()

  Call TextFocus(txtKepada, True, False)

End Sub

Private Sub txtBank_GotFocus()

  Call TextFocus(txtBank, True, False)

End Sub

Private Sub txtNoCek_GotFocus()

  Call TextFocus(txtNoCek, True, False)

End Sub

Private Sub lvDetail_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

  If (Button = 2) Then

    sMenu = SelectedSubMenu.None

    Call PopupMenu(mdiDefault.mnTransDetail)
    Call ShowSelectedForm

  End If

End Sub

Private Sub lvDetail_KeyDown(KeyCode As Integer, Shift As Integer)

  If ((KeyCode = 93) Or ((Shift = 1) And (KeyCode = 121))) Then

    sMenu = SelectedSubMenu.None

    Call PopupMenu(mdiDefault.mnTransDetail, , lvDetail.Left + 5, lvDetail.Top + 10)
    Call ShowSelectedForm

  End If

End Sub

Private Sub ResetMenu()

  If (lvDetail.ListItems.Count = 0) Then
    mdiDefault.mnSubTransDetail(1).Enabled = False
    mdiDefault.mnSubTransDetail(2).Enabled = False
  Else
    mdiDefault.mnSubTransDetail(1).Enabled = True
    mdiDefault.mnSubTransDetail(2).Enabled = True
  End If

End Sub

Private Sub ShowSelectedForm()

  If (sMenu = SelectedSubMenu.None) Then
    Exit Sub
  End If

  Select Case (sMenu)
  Case (SelectedSubMenu.Add)
    Call frmTransactionDetailAddEdit.Show(1, mdiDefault)

  Case (SelectedSubMenu.Delete)

    Select Case (frmTransaction.sMenu)
    Case (SelectedSubMenu.Add)
      Call lvDetail.ListItems.Remove(lvDetail.SelectedItem.Index)

    Case (SelectedSubMenu.Edit)
      Call DetailRemove(IndexString(lvDetail.SelectedItem.Tag, 0))

    End Select

    Call lvDetail.SetFocus

  Case (SelectedSubMenu.Edit)
    Call frmTransactionDetailAddEdit.Show(1, mdiDefault)

  End Select

  Call ResetMenu
  Call CountList
  Call ResetNumList

End Sub

Private Function ValidSave() As Boolean

  exString = ""

  If (EmptyString(txtBukti.Text)) Then
    Call ErrorStringAdd("- Nomor Bukti harus diisi.")
  Else
    If (Len(Trim(txtBukti.Text)) < 12) Then
      Call ErrorStringAdd("- Nomor Bukti harus 12 karakter.")
    End If
  End If

  If (EmptyString(txtKepada.Text)) Then
    Call ErrorStringAdd("- Dibayarkan harus diisi.")
  End If

  If (lstBayar.ListIndex = 2) Then
    If (EmptyString(txtNoCek.Text)) Then
      Call ErrorStringAdd("- Nomor Cek harus diisi.")
    End If
  End If

  If (lvDetail.ListItems.Count = 0) Then
    Call ErrorStringAdd("- Tabel transaksi harus diisi.")
  End If

  ValidSave = (ValidationString(exString))

End Function

Private Sub TransactionViewDetail(nKode As String)
On Error GoTo NoDetail

  comm.CommandText = "TransactionViewDetail"
  comm.CommandType = CommandTypeEnum.adCmdStoredProc

  Call comm.Parameters.Append(comm.CreateParameter("@code", DataTypeEnum.adChar, , 12, nKode))

  Call conn.Open
  comm.ActiveConnection = conn

    Set rs = comm.Execute()

    Do While (Not (rs.EOF()))
      Set lx = lvDetail.ListItems.Add(, , , , 1)
        Call lx.ListSubItems.Add(, , CStr(rs("Uraian")))
        Call lx.ListSubItems.Add(, , CStr(rs("IdAccount")))
        Call lx.ListSubItems.Add(, , CStr(rs("WorkOrder")))
        Call lx.ListSubItems.Add(, , CStr(rs("IdArea")))
        Call lx.ListSubItems.Add(, , CStr(Format(rs("Debet"), INTNUMFORMAT)))
        Call lx.ListSubItems.Add(, , CStr(Format(rs("Kredit"), INTNUMFORMAT)))

      lx.Tag = CStr(rs("Idx")) & "