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

View File

@ -21,7 +21,7 @@ Public Class frmNewVariant
If result = MsgBoxResult.Yes Then
RelinkFiles = 1
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
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)