This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-18 10:18:19 +02:00
parent 292b241fd1
commit aa9ac2bf1b
2 changed files with 9 additions and 9 deletions

View File

@@ -1089,7 +1089,7 @@
<value>Cyan</value> <value>Cyan</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -1113,7 +1113,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -1367,7 +1367,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>
@@ -1429,7 +1429,7 @@
<value>Aqua</value> <value>Aqua</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
@@ -1531,7 +1531,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value> <value>Dateien</value>
@@ -1962,7 +1962,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@@ -2073,7 +2073,7 @@
<value>5</value> <value>5</value>
</data> </data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib"> <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>90</value> <value>90</value>
@@ -2145,7 +2145,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabPageVariant.Text" xml:space="preserve"> <data name="TabPageVariant.Text" xml:space="preserve">
<value>Vorgängervarianten</value> <value>Vorgängervarianten</value>

View File

@@ -21,7 +21,7 @@ Public Class frmNewVariant
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
RelinkFiles = 1 RelinkFiles = 1
End If End If
Dim SQL = String.Format("PRPMO_CREATE_VARIANT {0},'{1}','{2}','{3}','{4}'", CURRENT_RECORD_ID, USER_USERNAME, cmbReason.Text, txtComment.Text, RelinkFiles) Dim SQL = String.Format("EXEC PRPMO_CREATE_VARIANT {0},'{1}','{2}','{3}','{4}'", CURRENT_RECORD_ID, USER_USERNAME, cmbReason.Text, txtComment.Text, RelinkFiles)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper) Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
CURRENT_RECORD_ID = ClassDatabase.Execute_Scalar(sel) CURRENT_RECORD_ID = ClassDatabase.Execute_Scalar(sel)