This commit is contained in:
SchreiberM
2016-12-09 10:23:42 +01:00
parent 481e767a99
commit 30a6c6b9fb
35 changed files with 1449 additions and 3454 deletions

View File

@@ -48,7 +48,7 @@ Public Class frmNewVariant
Private Sub frmNewVariant_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim sel = String.Format("SELECT * FROM TBPMO_ENTITY_VARIANT_REASONS WHERE ENTITY_ID = {0}", CURRENT_FORM_ID)
Dim sel = String.Format("SELECT * FROM TBPMO_ENTITY_VARIANT_REASONS WHERE ENTITY_ID = {0}", CURRENT_ENTITY_ID)
DT_REASONS = ClassDatabase.Return_Datatable(sel)
cmbReason.DataSource = DT_REASONS
cmbReason.DisplayMember = DT_REASONS.Columns("REASON_CODE").ColumnName