AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_13.11_Final

Browse Source
This commit is contained in:
SchreiberM
2015-11-13 15:51:25 +01:00
parent 9f80eb5a3d
commit 365e92e98b
21 changed files with 619 additions and 355 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
app/DD-Record-Organiser/ClassOfficeTemplate.vb
View File

@@ -4,7 +4,7 @@ Public Class ClassOfficeTemplate
Try
Dim sql_Template As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & Template_ID
Dim DT_TEMPLATE As System.Data.DataTable = ClassDatabase.Return_Datatable(sql_Template)
Dim sql_patterns As String = "select * from TBPMO_TEMPLATE_PATTERN where TEMPL_ENT_ID = (SELECT GUID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND TEMPLATE_ID = " & Template_ID & ")"
Dim sql_patterns As String = String.Format("select * from TBPMO_TEMPLATE_PATTERN where TEMPLATE_ENT_ID = (SELECT GUID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = {0} AND TEMPLATE_ID = {1})", CURRENT_FORM_ID, Template_ID)
Dim DT_PATTERNS As System.Data.DataTable = ClassDatabase.Return_Datatable(sql_patterns)
If IsNothing(DT_PATTERNS) Then
@@ -13,7 +13,7 @@ Public Class ClassOfficeTemplate
End If
Dim Original_Vorlage As String = DT_TEMPLATE.Rows(0).Item("TEMPLATE_PATH")
Dim DOCTYPE_ID As Integer = ClassDatabase.Execute_Scalar("SELECT DOCTYPE_ID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND TEMPLATE_ID = " & Template_ID)
Dim DOCTYPE_ID As Integer = ClassDatabase.Execute_Scalar("SELECT DOCTYPE_ID FROM TBPMO_TEMPLATE WHERE GUID = " & Template_ID, True)
If System.IO.File.Exists(Original_Vorlage) = False Then
MsgBox("Achtung: die Vorlage " & vbNewLine & Original_Vorlage & vbNewLine & "existiert nicht!", MsgBoxStyle.Critical)
@@ -48,27 +48,27 @@ Public Class ClassOfficeTemplate
'Fixed Value ist gefüllt
Dim fvalue As String = patternrow.Item("FIXED_VALUE").ToString.ToUpper
If fvalue <> "" Then
If fvalue.Contains("@") Then
If fvalue.Contains("CONTROLID") Then
Dim Control_ID = fvalue.Replace("@CONTROLID:", "")
Try
If CInt(Control_ID) Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Get Value for Control-ID: " & Control_ID.ToString, False)
Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
If Not IsNothing(value_akt) Then
cc.Range.Text = value_akt.ToString
Else
ClassLogger.Add("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!", True)
End If
End If
Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message, True)
End Try
' If fvalue.Contains("@") Then
'If fvalue.Contains("CONTROLID") Then
Dim Control_ID = fvalue '.Replace("@CONTROLID:", "")
Try
If CInt(Control_ID) Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Get Value for Control-ID: " & Control_ID.ToString, False)
Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
If Not IsNothing(value_akt) Then
cc.Range.Text = value_akt.ToString
Else
ClassLogger.Add("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!", True)
End If
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(">> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString
End If
Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message, True)
End Try
'End If
'Else
' If LogErrorsOnly = False Then ClassLogger.Add(">> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
' cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString
'End If
End If
Else 'Kein Fixed Value, also wohl eher sql-result
If Not IsDBNull(patternrow.Item("CONNECTION_ID")) Then
@@ -89,6 +89,7 @@ Public Class ClassOfficeTemplate
'doc.Bookmarks().Item("Produktion").Range.Text = "Testproduktion"
doc.SaveAs(tempdoc)
TEMP_FILES.Add(tempdoc)
'doc.Close()
'speichern / drucken
'doc.SaveAs("c:\Proforma.doc")