diff --git a/WISAG_PM_REPORT.sln b/WISAG_PM_REPORT.sln
new file mode 100644
index 0000000..ff16de0
--- /dev/null
+++ b/WISAG_PM_REPORT.sln
@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.27703.2018
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WISAG_PM_REPORT", "WISAG_PM_REPORT\WISAG_PM_REPORT.vbproj", "{2F07AD56-B8BF-40EC-B19E-D714CE8F5191}"
+EndProject
+Global
+ GlobalSection(SolutionConfigurationPlatforms) = preSolution
+ Debug|Any CPU = Debug|Any CPU
+ Release|Any CPU = Release|Any CPU
+ EndGlobalSection
+ GlobalSection(ProjectConfigurationPlatforms) = postSolution
+ {2F07AD56-B8BF-40EC-B19E-D714CE8F5191}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {2F07AD56-B8BF-40EC-B19E-D714CE8F5191}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {2F07AD56-B8BF-40EC-B19E-D714CE8F5191}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {2F07AD56-B8BF-40EC-B19E-D714CE8F5191}.Release|Any CPU.Build.0 = Release|Any CPU
+ EndGlobalSection
+ GlobalSection(SolutionProperties) = preSolution
+ HideSolutionNode = FALSE
+ EndGlobalSection
+ GlobalSection(ExtensibilityGlobals) = postSolution
+ SolutionGuid = {0990A84F-90CB-4E08-B7A5-83B7BA6D2C85}
+ EndGlobalSection
+EndGlobal
diff --git a/WISAG_PM_REPORT/App.config b/WISAG_PM_REPORT/App.config
new file mode 100644
index 0000000..78940d3
--- /dev/null
+++ b/WISAG_PM_REPORT/App.config
@@ -0,0 +1,59 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd
+
+
+ \\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\GDP\TEMP
+
+
+ select DISTINCT DOC_ID from VWCUST_RPTPM_UNION WHERE DOC_ID NOT IN (SELECT DocID FROM TBCUST_PM_RPT_CREATED)
+
+
+ T:\Software\Anwendungen - Portable\Grafik-Programme\PDFTKCommand\pdftk.exe
+
+
+ _CC
+
+
+ \\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\GDP
+
+
+ 380
+
+
+ 720
+
+
+
+
\ No newline at end of file
diff --git a/WISAG_PM_REPORT/Form1.Designer.vb b/WISAG_PM_REPORT/Form1.Designer.vb
new file mode 100644
index 0000000..d747735
--- /dev/null
+++ b/WISAG_PM_REPORT/Form1.Designer.vb
@@ -0,0 +1,1394 @@
+
+Partial Class Form1
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wird vom Windows Form-Designer benötigt.
+ Private components As System.ComponentModel.IContainer
+
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+ Me.MyDataset = New WISAG_PM_REPORT.MyDataset()
+ Me.VWCUST_RPTPM_UNIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+ Me.VWCUST_RPTPM_UNIONTableAdapter = New WISAG_PM_REPORT.MyDatasetTableAdapters.VWCUST_RPTPM_UNIONTableAdapter()
+ Me.TableAdapterManager = New WISAG_PM_REPORT.MyDatasetTableAdapters.TableAdapterManager()
+ Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+ Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
+ Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
+ Me.TimerMinute = New System.Windows.Forms.Timer(Me.components)
+ Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+ Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
+ Me.txtDocID = New System.Windows.Forms.ToolStripTextBox()
+ Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+ Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+ Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
+ Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+ Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+ Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
+ Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
+ Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
+ Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
+ Me.DocumentViewer1 = New DevExpress.XtraPrinting.Preview.DocumentViewer()
+ Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+ Me.TextBox3 = New System.Windows.Forms.TextBox()
+ Me.Button1 = New System.Windows.Forms.Button()
+ Me.txtPDFTKRun = New System.Windows.Forms.TextBox()
+ Me.TextBox2 = New System.Windows.Forms.TextBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.TextBox1 = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
+ Me.VWCUST_RPTPM_UNIONDataGridView = New System.Windows.Forms.DataGridView()
+ Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn15 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn16 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn17 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn18 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DataGridViewTextBoxColumn19 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.VWCUST_RPTPM_INV_RPT_STAMPBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+ Me.VWCUST_RPTPM_INV_RPT_STAMPTableAdapter = New WISAG_PM_REPORT.MyDatasetTableAdapters.VWCUST_RPTPM_INV_RPT_STAMPTableAdapter()
+ Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components)
+ Me.PreviewBar2 = New DevExpress.XtraPrinting.Preview.PreviewBar()
+ Me.PrintPreviewStaticItem1 = New DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem()
+ Me.verticalSpaceItem = New DevExpress.XtraBars.BarStaticItem()
+ Me.ProgressBarEditItem1 = New DevExpress.XtraPrinting.Preview.ProgressBarEditItem()
+ Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar()
+ Me.PrintPreviewBarItem1 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.PrintPreviewStaticItem2 = New DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem()
+ Me.ZoomTrackBarEditItem1 = New DevExpress.XtraPrinting.Preview.ZoomTrackBarEditItem()
+ Me.RepositoryItemZoomTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemZoomTrackBar()
+ Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
+ Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
+ Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
+ Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
+ Me.bbiDocumentMap = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiParameters = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiThumbnails = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiFind = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiHighlightEditingFields = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiCustomize = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiOpen = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiSave = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiPrint = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiPrintDirect = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiPageSetup = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiEditPageHF = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiScale = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiHandTool = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiMagnifier = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiZoomOut = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiZoom = New DevExpress.XtraPrinting.Preview.ZoomBarEditItem()
+ Me.PrintPreviewRepositoryItemComboBox1 = New DevExpress.XtraPrinting.Preview.PrintPreviewRepositoryItemComboBox()
+ Me.bbiZoomIn = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiShowFirstPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiShowPrevPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiShowNextPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiShowLastPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiMultiplePages = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiFillBackground = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiWatermark = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiExportFile = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiSendFile = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.bbiClosePreview = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.miFile = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem()
+ Me.miView = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem()
+ Me.miPageLayout = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem()
+ Me.miPageLayoutFacing = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.miPageLayoutContinuous = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem()
+ Me.miToolbars = New DevExpress.XtraBars.BarToolbarsListItem()
+ Me.miBackground = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem()
+ Me.PrintPreviewBarCheckItem1 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem2 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem3 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem4 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem5 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem6 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem7 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem8 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem9 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem10 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem11 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem12 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem13 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem14 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem15 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem16 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
+ Me.VWCUST_STAMPBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+ Me.VWCUST_STAMPTableAdapter = New WISAG_PM_REPORT.MyDatasetTableAdapters.VWCUST_STAMPTableAdapter()
+ CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.VWCUST_RPTPM_UNIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.StatusStrip1.SuspendLayout()
+ Me.ToolStrip1.SuspendLayout()
+ CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.XtraTabControl1.SuspendLayout()
+ Me.XtraTabPage1.SuspendLayout()
+ Me.XtraTabPage2.SuspendLayout()
+ Me.XtraTabPage3.SuspendLayout()
+ CType(Me.VWCUST_RPTPM_UNIONDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.VWCUST_RPTPM_INV_RPT_STAMPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.PrintPreviewRepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.VWCUST_STAMPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'MyDataset
+ '
+ Me.MyDataset.DataSetName = "MyDataset"
+ Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+ '
+ 'VWCUST_RPTPM_UNIONBindingSource
+ '
+ Me.VWCUST_RPTPM_UNIONBindingSource.DataMember = "VWCUST_RPTPM_UNION"
+ Me.VWCUST_RPTPM_UNIONBindingSource.DataSource = Me.MyDataset
+ '
+ 'VWCUST_RPTPM_UNIONTableAdapter
+ '
+ Me.VWCUST_RPTPM_UNIONTableAdapter.ClearBeforeFill = True
+ '
+ 'TableAdapterManager
+ '
+ Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+ Me.TableAdapterManager.Connection = Nothing
+ Me.TableAdapterManager.UpdateOrder = WISAG_PM_REPORT.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+ '
+ 'StatusStrip1
+ '
+ Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2})
+ Me.StatusStrip1.Location = New System.Drawing.Point(0, 779)
+ Me.StatusStrip1.Name = "StatusStrip1"
+ Me.StatusStrip1.Size = New System.Drawing.Size(1007, 22)
+ Me.StatusStrip1.TabIndex = 13
+ Me.StatusStrip1.Text = "StatusStrip1"
+ '
+ 'ToolStripStatusLabel1
+ '
+ Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
+ Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(36, 17)
+ Me.ToolStripStatusLabel1.Text = "None"
+ '
+ 'ToolStripStatusLabel2
+ '
+ Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
+ Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(116, 17)
+ Me.ToolStripStatusLabel2.Text = "Timer: 3 min; 06-23h"
+ '
+ 'TimerMinute
+ '
+ Me.TimerMinute.Enabled = True
+ Me.TimerMinute.Interval = 180000
+ '
+ 'ToolStrip1
+ '
+ Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.txtDocID, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripSeparator2, Me.ToolStripButton3, Me.ToolStripButton6})
+ Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+ Me.ToolStrip1.Name = "ToolStrip1"
+ Me.ToolStrip1.Size = New System.Drawing.Size(1007, 25)
+ Me.ToolStrip1.TabIndex = 14
+ Me.ToolStrip1.Text = "ToolStrip1"
+ '
+ 'ToolStripLabel1
+ '
+ Me.ToolStripLabel1.Name = "ToolStripLabel1"
+ Me.ToolStripLabel1.Size = New System.Drawing.Size(42, 22)
+ Me.ToolStripLabel1.Text = "DocID:"
+ '
+ 'txtDocID
+ '
+ Me.txtDocID.Name = "txtDocID"
+ Me.txtDocID.Size = New System.Drawing.Size(100, 25)
+ '
+ 'ToolStripButton1
+ '
+ Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+ Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.ToolStripButton1.Name = "ToolStripButton1"
+ Me.ToolStripButton1.Size = New System.Drawing.Size(101, 22)
+ Me.ToolStripButton1.Text = "Test für DocID"
+ '
+ 'ToolStripSeparator1
+ '
+ Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+ Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+ '
+ 'ToolStripButton4
+ '
+ Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
+ Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.ToolStripButton4.Name = "ToolStripButton4"
+ Me.ToolStripButton4.Size = New System.Drawing.Size(172, 22)
+ Me.ToolStripButton4.Text = "create Ergebnisbericht Only"
+ '
+ 'ToolStripButton2
+ '
+ Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+ Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.ToolStripButton2.Name = "ToolStripButton2"
+ Me.ToolStripButton2.Size = New System.Drawing.Size(159, 22)
+ Me.ToolStripButton2.Text = "create StampReport Only"
+ '
+ 'ToolStripSeparator2
+ '
+ Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+ Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
+ '
+ 'ToolStripButton3
+ '
+ Me.ToolStripButton3.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.ToolStripButton3.CheckOnClick = True
+ Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
+ Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.ToolStripButton3.Name = "ToolStripButton3"
+ Me.ToolStripButton3.Size = New System.Drawing.Size(101, 22)
+ Me.ToolStripButton3.Text = "DEBUG MODE"
+ '
+ 'ToolStripButton6
+ '
+ Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
+ Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.ToolStripButton6.Name = "ToolStripButton6"
+ Me.ToolStripButton6.Size = New System.Drawing.Size(97, 22)
+ Me.ToolStripButton6.Text = "Create Image"
+ '
+ 'XtraTabControl1
+ '
+ Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.XtraTabControl1.Location = New System.Drawing.Point(0, 25)
+ Me.XtraTabControl1.Name = "XtraTabControl1"
+ Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
+ Me.XtraTabControl1.Size = New System.Drawing.Size(1007, 754)
+ Me.XtraTabControl1.TabIndex = 15
+ Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage3})
+ '
+ 'XtraTabPage1
+ '
+ Me.XtraTabPage1.Controls.Add(Me.DocumentViewer1)
+ Me.XtraTabPage1.Name = "XtraTabPage1"
+ Me.XtraTabPage1.Size = New System.Drawing.Size(1001, 726)
+ Me.XtraTabPage1.Text = "Ansicht Bericht"
+ '
+ 'DocumentViewer1
+ '
+ Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.DocumentViewer1.IsMetric = True
+ Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
+ Me.DocumentViewer1.Name = "DocumentViewer1"
+ Me.DocumentViewer1.Size = New System.Drawing.Size(1001, 726)
+ Me.DocumentViewer1.TabIndex = 0
+ '
+ 'XtraTabPage2
+ '
+ Me.XtraTabPage2.Controls.Add(Me.TextBox3)
+ Me.XtraTabPage2.Controls.Add(Me.Button1)
+ Me.XtraTabPage2.Controls.Add(Me.txtPDFTKRun)
+ Me.XtraTabPage2.Controls.Add(Me.TextBox2)
+ Me.XtraTabPage2.Controls.Add(Me.Label3)
+ Me.XtraTabPage2.Controls.Add(Me.TextBox1)
+ Me.XtraTabPage2.Controls.Add(Me.Label2)
+ Me.XtraTabPage2.Controls.Add(Me.Label1)
+ Me.XtraTabPage2.Name = "XtraTabPage2"
+ Me.XtraTabPage2.Size = New System.Drawing.Size(1001, 726)
+ Me.XtraTabPage2.Text = "Weiteres"
+ '
+ 'TextBox3
+ '
+ Me.TextBox3.Location = New System.Drawing.Point(14, 30)
+ Me.TextBox3.Name = "TextBox3"
+ Me.TextBox3.ReadOnly = True
+ Me.TextBox3.Size = New System.Drawing.Size(570, 21)
+ Me.TextBox3.TabIndex = 9
+ Me.TextBox3.Text = Global.WISAG_PM_REPORT.My.MySettings.Default.CONCAT_TEMPFolder
+ '
+ 'Button1
+ '
+ Me.Button1.Location = New System.Drawing.Point(590, 190)
+ Me.Button1.Name = "Button1"
+ Me.Button1.Size = New System.Drawing.Size(75, 31)
+ Me.Button1.TabIndex = 8
+ Me.Button1.Text = "Run"
+ Me.Button1.UseVisualStyleBackColor = True
+ '
+ 'txtPDFTKRun
+ '
+ Me.txtPDFTKRun.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.WISAG_PM_REPORT.My.MySettings.Default, "PDFTK_TEST", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+ Me.txtPDFTKRun.Location = New System.Drawing.Point(14, 190)
+ Me.txtPDFTKRun.Multiline = True
+ Me.txtPDFTKRun.Name = "txtPDFTKRun"
+ Me.txtPDFTKRun.Size = New System.Drawing.Size(570, 122)
+ Me.txtPDFTKRun.TabIndex = 7
+ Me.txtPDFTKRun.Text = Global.WISAG_PM_REPORT.My.MySettings.Default.PDFTK_TEST
+ '
+ 'TextBox2
+ '
+ Me.TextBox2.Location = New System.Drawing.Point(14, 141)
+ Me.TextBox2.Name = "TextBox2"
+ Me.TextBox2.ReadOnly = True
+ Me.TextBox2.Size = New System.Drawing.Size(570, 21)
+ Me.TextBox2.TabIndex = 6
+ Me.TextBox2.Text = Global.WISAG_PM_REPORT.My.MySettings.Default.Path2PDFTK
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(11, 125)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(41, 13)
+ Me.Label3.TabIndex = 5
+ Me.Label3.Text = "PDF TK"
+ '
+ 'TextBox1
+ '
+ Me.TextBox1.Location = New System.Drawing.Point(14, 69)
+ Me.TextBox1.Multiline = True
+ Me.TextBox1.Name = "TextBox1"
+ Me.TextBox1.ReadOnly = True
+ Me.TextBox1.Size = New System.Drawing.Size(570, 53)
+ Me.TextBox1.TabIndex = 4
+ Me.TextBox1.Text = Global.WISAG_PM_REPORT.My.MySettings.Default.oSQLGetDocId
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Location = New System.Drawing.Point(11, 53)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(138, 13)
+ Me.Label2.TabIndex = 3
+ Me.Label2.Text = "Current SQL (in AppConfig)"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Location = New System.Drawing.Point(11, 13)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(131, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Temp-Path (in AppConfig)"
+ '
+ 'XtraTabPage3
+ '
+ Me.XtraTabPage3.Controls.Add(Me.VWCUST_RPTPM_UNIONDataGridView)
+ Me.XtraTabPage3.Name = "XtraTabPage3"
+ Me.XtraTabPage3.Size = New System.Drawing.Size(1001, 726)
+ Me.XtraTabPage3.Text = "Debug Ergebnisansicht"
+ '
+ 'VWCUST_RPTPM_UNIONDataGridView
+ '
+ Me.VWCUST_RPTPM_UNIONDataGridView.AllowUserToAddRows = False
+ Me.VWCUST_RPTPM_UNIONDataGridView.AllowUserToDeleteRows = False
+ Me.VWCUST_RPTPM_UNIONDataGridView.AutoGenerateColumns = False
+ Me.VWCUST_RPTPM_UNIONDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.VWCUST_RPTPM_UNIONDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12, Me.DataGridViewTextBoxColumn13, Me.DataGridViewTextBoxColumn14, Me.DataGridViewTextBoxColumn15, Me.DataGridViewTextBoxColumn16, Me.DataGridViewTextBoxColumn17, Me.DataGridViewTextBoxColumn18, Me.DataGridViewTextBoxColumn19})
+ Me.VWCUST_RPTPM_UNIONDataGridView.DataSource = Me.VWCUST_RPTPM_UNIONBindingSource
+ Me.VWCUST_RPTPM_UNIONDataGridView.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.VWCUST_RPTPM_UNIONDataGridView.Location = New System.Drawing.Point(0, 0)
+ Me.VWCUST_RPTPM_UNIONDataGridView.Name = "VWCUST_RPTPM_UNIONDataGridView"
+ Me.VWCUST_RPTPM_UNIONDataGridView.ReadOnly = True
+ Me.VWCUST_RPTPM_UNIONDataGridView.Size = New System.Drawing.Size(1001, 726)
+ Me.VWCUST_RPTPM_UNIONDataGridView.TabIndex = 0
+ '
+ 'DataGridViewTextBoxColumn1
+ '
+ Me.DataGridViewTextBoxColumn1.DataPropertyName = "GroupTypeID"
+ Me.DataGridViewTextBoxColumn1.HeaderText = "GroupTypeID"
+ Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+ Me.DataGridViewTextBoxColumn1.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn2
+ '
+ Me.DataGridViewTextBoxColumn2.DataPropertyName = "GroupType"
+ Me.DataGridViewTextBoxColumn2.HeaderText = "GroupType"
+ Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+ Me.DataGridViewTextBoxColumn2.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn3
+ '
+ Me.DataGridViewTextBoxColumn3.DataPropertyName = "DOC_ID"
+ Me.DataGridViewTextBoxColumn3.HeaderText = "DOC_ID"
+ Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
+ Me.DataGridViewTextBoxColumn3.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn4
+ '
+ Me.DataGridViewTextBoxColumn4.DataPropertyName = "KreditorNummer"
+ Me.DataGridViewTextBoxColumn4.HeaderText = "KreditorNummer"
+ Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
+ Me.DataGridViewTextBoxColumn4.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn5
+ '
+ Me.DataGridViewTextBoxColumn5.DataPropertyName = "KreditorName_Lang"
+ Me.DataGridViewTextBoxColumn5.HeaderText = "KreditorName_Lang"
+ Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
+ Me.DataGridViewTextBoxColumn5.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn6
+ '
+ Me.DataGridViewTextBoxColumn6.DataPropertyName = "KreditorName"
+ Me.DataGridViewTextBoxColumn6.HeaderText = "KreditorName"
+ Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
+ Me.DataGridViewTextBoxColumn6.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn7
+ '
+ Me.DataGridViewTextBoxColumn7.DataPropertyName = "RechnungNr"
+ Me.DataGridViewTextBoxColumn7.HeaderText = "RechnungNr"
+ Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
+ Me.DataGridViewTextBoxColumn7.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn8
+ '
+ Me.DataGridViewTextBoxColumn8.DataPropertyName = "Referenz"
+ Me.DataGridViewTextBoxColumn8.HeaderText = "Referenz"
+ Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
+ Me.DataGridViewTextBoxColumn8.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn9
+ '
+ Me.DataGridViewTextBoxColumn9.DataPropertyName = "Nettobetrag"
+ Me.DataGridViewTextBoxColumn9.HeaderText = "Nettobetrag"
+ Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
+ Me.DataGridViewTextBoxColumn9.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn10
+ '
+ Me.DataGridViewTextBoxColumn10.DataPropertyName = "Bruttobetrag"
+ Me.DataGridViewTextBoxColumn10.HeaderText = "Bruttobetrag"
+ Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
+ Me.DataGridViewTextBoxColumn10.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn11
+ '
+ Me.DataGridViewTextBoxColumn11.DataPropertyName = "Zahlungsziel"
+ Me.DataGridViewTextBoxColumn11.HeaderText = "Zahlungsziel"
+ Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11"
+ Me.DataGridViewTextBoxColumn11.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn12
+ '
+ Me.DataGridViewTextBoxColumn12.DataPropertyName = "Mandant"
+ Me.DataGridViewTextBoxColumn12.HeaderText = "Mandant"
+ Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12"
+ Me.DataGridViewTextBoxColumn12.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn13
+ '
+ Me.DataGridViewTextBoxColumn13.DataPropertyName = "Mandant Name"
+ Me.DataGridViewTextBoxColumn13.HeaderText = "Mandant Name"
+ Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13"
+ Me.DataGridViewTextBoxColumn13.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn14
+ '
+ Me.DataGridViewTextBoxColumn14.DataPropertyName = "Kostenstelle"
+ Me.DataGridViewTextBoxColumn14.HeaderText = "Kostenstelle"
+ Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14"
+ Me.DataGridViewTextBoxColumn14.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn15
+ '
+ Me.DataGridViewTextBoxColumn15.DataPropertyName = "Erhalten wann"
+ Me.DataGridViewTextBoxColumn15.HeaderText = "Erhalten wann"
+ Me.DataGridViewTextBoxColumn15.Name = "DataGridViewTextBoxColumn15"
+ Me.DataGridViewTextBoxColumn15.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn16
+ '
+ Me.DataGridViewTextBoxColumn16.DataPropertyName = "Belegdatum"
+ Me.DataGridViewTextBoxColumn16.HeaderText = "Belegdatum"
+ Me.DataGridViewTextBoxColumn16.Name = "DataGridViewTextBoxColumn16"
+ Me.DataGridViewTextBoxColumn16.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn17
+ '
+ Me.DataGridViewTextBoxColumn17.DataPropertyName = "FG_Email"
+ Me.DataGridViewTextBoxColumn17.HeaderText = "FG_Email"
+ Me.DataGridViewTextBoxColumn17.Name = "DataGridViewTextBoxColumn17"
+ Me.DataGridViewTextBoxColumn17.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn18
+ '
+ Me.DataGridViewTextBoxColumn18.DataPropertyName = "FG_Freigabe"
+ Me.DataGridViewTextBoxColumn18.HeaderText = "FG_Freigabe"
+ Me.DataGridViewTextBoxColumn18.Name = "DataGridViewTextBoxColumn18"
+ Me.DataGridViewTextBoxColumn18.ReadOnly = True
+ '
+ 'DataGridViewTextBoxColumn19
+ '
+ Me.DataGridViewTextBoxColumn19.DataPropertyName = "FG_Wann"
+ Me.DataGridViewTextBoxColumn19.HeaderText = "FG_Wann"
+ Me.DataGridViewTextBoxColumn19.Name = "DataGridViewTextBoxColumn19"
+ Me.DataGridViewTextBoxColumn19.ReadOnly = True
+ '
+ 'VWCUST_RPTPM_INV_RPT_STAMPBindingSource
+ '
+ Me.VWCUST_RPTPM_INV_RPT_STAMPBindingSource.DataMember = "VWCUST_RPTPM_INV_RPT_STAMP"
+ Me.VWCUST_RPTPM_INV_RPT_STAMPBindingSource.DataSource = Me.MyDataset
+ '
+ 'VWCUST_RPTPM_INV_RPT_STAMPTableAdapter
+ '
+ Me.VWCUST_RPTPM_INV_RPT_STAMPTableAdapter.ClearBeforeFill = True
+ '
+ 'DocumentViewerBarManager1
+ '
+ Me.DocumentViewerBarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.PreviewBar2})
+ Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlTop)
+ Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlBottom)
+ Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlLeft)
+ Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlRight)
+ Me.DocumentViewerBarManager1.DocumentViewer = Me.DocumentViewer1
+ Me.DocumentViewerBarManager1.Form = Me
+ Me.DocumentViewerBarManager1.ImageStream = CType(resources.GetObject("DocumentViewerBarManager1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
+ Me.DocumentViewerBarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.PrintPreviewStaticItem1, Me.verticalSpaceItem, Me.ProgressBarEditItem1, Me.PrintPreviewBarItem1, Me.PrintPreviewStaticItem2, Me.ZoomTrackBarEditItem1, Me.bbiDocumentMap, Me.bbiParameters, Me.bbiThumbnails, Me.bbiFind, Me.bbiHighlightEditingFields, Me.bbiCustomize, Me.bbiOpen, Me.bbiSave, Me.bbiPrint, Me.bbiPrintDirect, Me.bbiPageSetup, Me.bbiEditPageHF, Me.bbiScale, Me.bbiHandTool, Me.bbiMagnifier, Me.bbiZoomOut, Me.bbiZoom, Me.bbiZoomIn, Me.bbiShowFirstPage, Me.bbiShowPrevPage, Me.bbiShowNextPage, Me.bbiShowLastPage, Me.bbiMultiplePages, Me.bbiFillBackground, Me.bbiWatermark, Me.bbiExportFile, Me.bbiSendFile, Me.bbiClosePreview, Me.miFile, Me.miView, Me.miBackground, Me.miPageLayout, Me.miPageLayoutFacing, Me.miPageLayoutContinuous, Me.miToolbars, Me.PrintPreviewBarCheckItem1, Me.PrintPreviewBarCheckItem2, Me.PrintPreviewBarCheckItem3, Me.PrintPreviewBarCheckItem4, Me.PrintPreviewBarCheckItem5, Me.PrintPreviewBarCheckItem6, Me.PrintPreviewBarCheckItem7, Me.PrintPreviewBarCheckItem8, Me.PrintPreviewBarCheckItem9, Me.PrintPreviewBarCheckItem10, Me.PrintPreviewBarCheckItem11, Me.PrintPreviewBarCheckItem12, Me.PrintPreviewBarCheckItem13, Me.PrintPreviewBarCheckItem14, Me.PrintPreviewBarCheckItem15, Me.PrintPreviewBarCheckItem16, Me.PrintPreviewBarCheckItem17, Me.PrintPreviewBarCheckItem18, Me.PrintPreviewBarCheckItem19})
+ Me.DocumentViewerBarManager1.MaxItemId = 60
+ Me.DocumentViewerBarManager1.PreviewBar = Nothing
+ Me.DocumentViewerBarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1, Me.RepositoryItemZoomTrackBar1, Me.PrintPreviewRepositoryItemComboBox1})
+ Me.DocumentViewerBarManager1.StatusBar = Me.PreviewBar2
+ Me.DocumentViewerBarManager1.TransparentEditorsMode = DevExpress.Utils.DefaultBoolean.[True]
+ '
+ 'PreviewBar2
+ '
+ Me.PreviewBar2.BarName = "Status Bar"
+ Me.PreviewBar2.CanDockStyle = DevExpress.XtraBars.BarCanDockStyle.Bottom
+ Me.PreviewBar2.DockCol = 0
+ Me.PreviewBar2.DockRow = 0
+ Me.PreviewBar2.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom
+ Me.PreviewBar2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PrintPreviewStaticItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.verticalSpaceItem, True), New DevExpress.XtraBars.LinkPersistInfo(Me.ProgressBarEditItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PrintPreviewBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PrintPreviewStaticItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.ZoomTrackBarEditItem1)})
+ Me.PreviewBar2.OptionsBar.AllowQuickCustomization = False
+ Me.PreviewBar2.OptionsBar.DrawDragBorder = False
+ Me.PreviewBar2.OptionsBar.UseWholeRow = True
+ Me.PreviewBar2.Text = "Statusleiste"
+ '
+ 'PrintPreviewStaticItem1
+ '
+ Me.PrintPreviewStaticItem1.Border = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+ Me.PrintPreviewStaticItem1.Caption = "keine"
+ Me.PrintPreviewStaticItem1.Id = 0
+ Me.PrintPreviewStaticItem1.LeftIndent = 1
+ Me.PrintPreviewStaticItem1.Name = "PrintPreviewStaticItem1"
+ Me.PrintPreviewStaticItem1.RightIndent = 1
+ Me.PrintPreviewStaticItem1.Type = "PageOfPages"
+ '
+ 'verticalSpaceItem
+ '
+ Me.verticalSpaceItem.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+ Me.verticalSpaceItem.Enabled = False
+ Me.verticalSpaceItem.Id = 1
+ Me.verticalSpaceItem.Name = "verticalSpaceItem"
+ Me.verticalSpaceItem.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInRuntime
+ '
+ 'ProgressBarEditItem1
+ '
+ Me.ProgressBarEditItem1.Edit = Me.RepositoryItemProgressBar1
+ Me.ProgressBarEditItem1.EditHeight = 12
+ Me.ProgressBarEditItem1.EditWidth = 150
+ Me.ProgressBarEditItem1.Id = 2
+ Me.ProgressBarEditItem1.Name = "ProgressBarEditItem1"
+ Me.ProgressBarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+ '
+ 'RepositoryItemProgressBar1
+ '
+ Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1"
+ '
+ 'PrintPreviewBarItem1
+ '
+ Me.PrintPreviewBarItem1.Caption = "Stoppen"
+ Me.PrintPreviewBarItem1.Command = DevExpress.XtraPrinting.PrintingSystemCommand.StopPageBuilding
+ Me.PrintPreviewBarItem1.Enabled = False
+ Me.PrintPreviewBarItem1.Hint = "Stoppen"
+ Me.PrintPreviewBarItem1.Id = 3
+ Me.PrintPreviewBarItem1.Name = "PrintPreviewBarItem1"
+ Me.PrintPreviewBarItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+ '
+ 'PrintPreviewStaticItem2
+ '
+ Me.PrintPreviewStaticItem2.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
+ Me.PrintPreviewStaticItem2.Border = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+ Me.PrintPreviewStaticItem2.Caption = "100%"
+ Me.PrintPreviewStaticItem2.Id = 4
+ Me.PrintPreviewStaticItem2.Name = "PrintPreviewStaticItem2"
+ Me.PrintPreviewStaticItem2.TextAlignment = System.Drawing.StringAlignment.Far
+ Me.PrintPreviewStaticItem2.Type = "ZoomFactor"
+ '
+ 'ZoomTrackBarEditItem1
+ '
+ Me.ZoomTrackBarEditItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
+ Me.ZoomTrackBarEditItem1.Edit = Me.RepositoryItemZoomTrackBar1
+ Me.ZoomTrackBarEditItem1.EditValue = 90
+ Me.ZoomTrackBarEditItem1.EditWidth = 140
+ Me.ZoomTrackBarEditItem1.Enabled = False
+ Me.ZoomTrackBarEditItem1.Id = 5
+ Me.ZoomTrackBarEditItem1.Name = "ZoomTrackBarEditItem1"
+ Me.ZoomTrackBarEditItem1.Range = New Integer() {10, 500}
+ '
+ 'RepositoryItemZoomTrackBar1
+ '
+ Me.RepositoryItemZoomTrackBar1.Alignment = DevExpress.Utils.VertAlignment.Center
+ Me.RepositoryItemZoomTrackBar1.AllowFocused = False
+ Me.RepositoryItemZoomTrackBar1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+ Me.RepositoryItemZoomTrackBar1.Maximum = 180
+ Me.RepositoryItemZoomTrackBar1.Name = "RepositoryItemZoomTrackBar1"
+ '
+ 'barDockControlTop
+ '
+ Me.barDockControlTop.CausesValidation = False
+ Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
+ Me.barDockControlTop.Manager = Me.DocumentViewerBarManager1
+ Me.barDockControlTop.Size = New System.Drawing.Size(1007, 0)
+ '
+ 'barDockControlBottom
+ '
+ Me.barDockControlBottom.CausesValidation = False
+ Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.barDockControlBottom.Location = New System.Drawing.Point(0, 801)
+ Me.barDockControlBottom.Manager = Me.DocumentViewerBarManager1
+ Me.barDockControlBottom.Size = New System.Drawing.Size(1007, 26)
+ '
+ 'barDockControlLeft
+ '
+ Me.barDockControlLeft.CausesValidation = False
+ Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
+ Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
+ Me.barDockControlLeft.Manager = Me.DocumentViewerBarManager1
+ Me.barDockControlLeft.Size = New System.Drawing.Size(0, 801)
+ '
+ 'barDockControlRight
+ '
+ Me.barDockControlRight.CausesValidation = False
+ Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
+ Me.barDockControlRight.Location = New System.Drawing.Point(1007, 0)
+ Me.barDockControlRight.Manager = Me.DocumentViewerBarManager1
+ Me.barDockControlRight.Size = New System.Drawing.Size(0, 801)
+ '
+ 'bbiDocumentMap
+ '
+ Me.bbiDocumentMap.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.bbiDocumentMap.Caption = "Dokumentenübersicht"
+ Me.bbiDocumentMap.Command = DevExpress.XtraPrinting.PrintingSystemCommand.DocumentMap
+ Me.bbiDocumentMap.Enabled = False
+ Me.bbiDocumentMap.Hint = "Dokumentenübersicht"
+ Me.bbiDocumentMap.Id = 6
+ Me.bbiDocumentMap.Name = "bbiDocumentMap"
+ '
+ 'bbiParameters
+ '
+ Me.bbiParameters.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.bbiParameters.Caption = "Parameter"
+ Me.bbiParameters.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Parameters
+ Me.bbiParameters.Enabled = False
+ Me.bbiParameters.Hint = "Parameter"
+ Me.bbiParameters.Id = 7
+ Me.bbiParameters.Name = "bbiParameters"
+ '
+ 'bbiThumbnails
+ '
+ Me.bbiThumbnails.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.bbiThumbnails.Caption = "Miniaturansicht"
+ Me.bbiThumbnails.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Thumbnails
+ Me.bbiThumbnails.Enabled = False
+ Me.bbiThumbnails.Hint = "Miniaturansicht"
+ Me.bbiThumbnails.Id = 8
+ Me.bbiThumbnails.Name = "bbiThumbnails"
+ '
+ 'bbiFind
+ '
+ Me.bbiFind.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.bbiFind.Caption = "Suchen"
+ Me.bbiFind.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Find
+ Me.bbiFind.Enabled = False
+ Me.bbiFind.Hint = "Suchen"
+ Me.bbiFind.Id = 9
+ Me.bbiFind.Name = "bbiFind"
+ '
+ 'bbiHighlightEditingFields
+ '
+ Me.bbiHighlightEditingFields.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.bbiHighlightEditingFields.Caption = "Formularfelder"
+ Me.bbiHighlightEditingFields.Command = DevExpress.XtraPrinting.PrintingSystemCommand.HighlightEditingFields
+ Me.bbiHighlightEditingFields.Enabled = False
+ Me.bbiHighlightEditingFields.Hint = "Formularfelder hervorheben"
+ Me.bbiHighlightEditingFields.Id = 10
+ Me.bbiHighlightEditingFields.Name = "bbiHighlightEditingFields"
+ '
+ 'bbiCustomize
+ '
+ Me.bbiCustomize.Caption = "Anpassen"
+ Me.bbiCustomize.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Customize
+ Me.bbiCustomize.Enabled = False
+ Me.bbiCustomize.Hint = "Anpassen"
+ Me.bbiCustomize.Id = 11
+ Me.bbiCustomize.Name = "bbiCustomize"
+ '
+ 'bbiOpen
+ '
+ Me.bbiOpen.Caption = "Öffnen"
+ Me.bbiOpen.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Open
+ Me.bbiOpen.Enabled = False
+ Me.bbiOpen.Hint = "Ein Dokument öffnen"
+ Me.bbiOpen.Id = 12
+ Me.bbiOpen.Name = "bbiOpen"
+ '
+ 'bbiSave
+ '
+ Me.bbiSave.Caption = "Speichern"
+ Me.bbiSave.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Save
+ Me.bbiSave.Enabled = False
+ Me.bbiSave.Hint = "Speichert das Dokument"
+ Me.bbiSave.Id = 13
+ Me.bbiSave.Name = "bbiSave"
+ '
+ 'bbiPrint
+ '
+ Me.bbiPrint.Caption = "&Drucken..."
+ Me.bbiPrint.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Print
+ Me.bbiPrint.Enabled = False
+ Me.bbiPrint.Hint = "Drucken"
+ Me.bbiPrint.Id = 14
+ Me.bbiPrint.Name = "bbiPrint"
+ '
+ 'bbiPrintDirect
+ '
+ Me.bbiPrintDirect.Caption = "D&rucken"
+ Me.bbiPrintDirect.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PrintDirect
+ Me.bbiPrintDirect.Enabled = False
+ Me.bbiPrintDirect.Hint = "Sofort drucken"
+ Me.bbiPrintDirect.Id = 15
+ Me.bbiPrintDirect.Name = "bbiPrintDirect"
+ '
+ 'bbiPageSetup
+ '
+ Me.bbiPageSetup.Caption = "Sei&teneinstellungen..."
+ Me.bbiPageSetup.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageSetup
+ Me.bbiPageSetup.Enabled = False
+ Me.bbiPageSetup.Hint = "Seiteneinstellungen"
+ Me.bbiPageSetup.Id = 16
+ Me.bbiPageSetup.Name = "bbiPageSetup"
+ '
+ 'bbiEditPageHF
+ '
+ Me.bbiEditPageHF.Caption = "Kopf- und Fußzeile"
+ Me.bbiEditPageHF.Command = DevExpress.XtraPrinting.PrintingSystemCommand.EditPageHF
+ Me.bbiEditPageHF.Enabled = False
+ Me.bbiEditPageHF.Hint = "Kopf- und Fußzeile"
+ Me.bbiEditPageHF.Id = 17
+ Me.bbiEditPageHF.Name = "bbiEditPageHF"
+ '
+ 'bbiScale
+ '
+ Me.bbiScale.ActAsDropDown = True
+ Me.bbiScale.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown
+ Me.bbiScale.Caption = "Skalierung"
+ Me.bbiScale.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Scale
+ Me.bbiScale.Enabled = False
+ Me.bbiScale.Hint = "Skalierung"
+ Me.bbiScale.Id = 18
+ Me.bbiScale.Name = "bbiScale"
+ '
+ 'bbiHandTool
+ '
+ Me.bbiHandTool.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.bbiHandTool.Caption = "Hand"
+ Me.bbiHandTool.Command = DevExpress.XtraPrinting.PrintingSystemCommand.HandTool
+ Me.bbiHandTool.Enabled = False
+ Me.bbiHandTool.Hint = "Hand"
+ Me.bbiHandTool.Id = 19
+ Me.bbiHandTool.Name = "bbiHandTool"
+ '
+ 'bbiMagnifier
+ '
+ Me.bbiMagnifier.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.bbiMagnifier.Caption = "Lupe"
+ Me.bbiMagnifier.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Magnifier
+ Me.bbiMagnifier.Enabled = False
+ Me.bbiMagnifier.Hint = "Lupe"
+ Me.bbiMagnifier.Id = 20
+ Me.bbiMagnifier.Name = "bbiMagnifier"
+ '
+ 'bbiZoomOut
+ '
+ Me.bbiZoomOut.Caption = "Verkleinern"
+ Me.bbiZoomOut.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ZoomOut
+ Me.bbiZoomOut.Enabled = False
+ Me.bbiZoomOut.Hint = "Verkleinern"
+ Me.bbiZoomOut.Id = 21
+ Me.bbiZoomOut.Name = "bbiZoomOut"
+ '
+ 'bbiZoom
+ '
+ Me.bbiZoom.Caption = "Zoom"
+ Me.bbiZoom.Edit = Me.PrintPreviewRepositoryItemComboBox1
+ Me.bbiZoom.EditValue = "100%"
+ Me.bbiZoom.EditWidth = 70
+ Me.bbiZoom.Enabled = False
+ Me.bbiZoom.Hint = "Zoom"
+ Me.bbiZoom.Id = 22
+ Me.bbiZoom.Name = "bbiZoom"
+ '
+ 'PrintPreviewRepositoryItemComboBox1
+ '
+ Me.PrintPreviewRepositoryItemComboBox1.AutoComplete = False
+ Me.PrintPreviewRepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+ Me.PrintPreviewRepositoryItemComboBox1.DropDownRows = 11
+ Me.PrintPreviewRepositoryItemComboBox1.Name = "PrintPreviewRepositoryItemComboBox1"
+ '
+ 'bbiZoomIn
+ '
+ Me.bbiZoomIn.Caption = "Vergrößern"
+ Me.bbiZoomIn.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ZoomIn
+ Me.bbiZoomIn.Enabled = False
+ Me.bbiZoomIn.Hint = "Vergrößern"
+ Me.bbiZoomIn.Id = 23
+ Me.bbiZoomIn.Name = "bbiZoomIn"
+ '
+ 'bbiShowFirstPage
+ '
+ Me.bbiShowFirstPage.Caption = "Erste Seite"
+ Me.bbiShowFirstPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowFirstPage
+ Me.bbiShowFirstPage.Enabled = False
+ Me.bbiShowFirstPage.Hint = "Erste Seite"
+ Me.bbiShowFirstPage.Id = 24
+ Me.bbiShowFirstPage.Name = "bbiShowFirstPage"
+ '
+ 'bbiShowPrevPage
+ '
+ Me.bbiShowPrevPage.Caption = "Vorhergehende Seite"
+ Me.bbiShowPrevPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowPrevPage
+ Me.bbiShowPrevPage.Enabled = False
+ Me.bbiShowPrevPage.Hint = "Vorhergehende Seite"
+ Me.bbiShowPrevPage.Id = 25
+ Me.bbiShowPrevPage.Name = "bbiShowPrevPage"
+ '
+ 'bbiShowNextPage
+ '
+ Me.bbiShowNextPage.Caption = "Nächste Seite"
+ Me.bbiShowNextPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowNextPage
+ Me.bbiShowNextPage.Enabled = False
+ Me.bbiShowNextPage.Hint = "Nächste Seite"
+ Me.bbiShowNextPage.Id = 26
+ Me.bbiShowNextPage.Name = "bbiShowNextPage"
+ '
+ 'bbiShowLastPage
+ '
+ Me.bbiShowLastPage.Caption = "Letzte Seite"
+ Me.bbiShowLastPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowLastPage
+ Me.bbiShowLastPage.Enabled = False
+ Me.bbiShowLastPage.Hint = "Letzte Seite"
+ Me.bbiShowLastPage.Id = 27
+ Me.bbiShowLastPage.Name = "bbiShowLastPage"
+ '
+ 'bbiMultiplePages
+ '
+ Me.bbiMultiplePages.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown
+ Me.bbiMultiplePages.Caption = "Mehrere Seiten"
+ Me.bbiMultiplePages.Command = DevExpress.XtraPrinting.PrintingSystemCommand.MultiplePages
+ Me.bbiMultiplePages.Enabled = False
+ Me.bbiMultiplePages.Hint = "Mehrere Seiten"
+ Me.bbiMultiplePages.Id = 28
+ Me.bbiMultiplePages.Name = "bbiMultiplePages"
+ '
+ 'bbiFillBackground
+ '
+ Me.bbiFillBackground.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown
+ Me.bbiFillBackground.Caption = "&Farbe..."
+ Me.bbiFillBackground.Command = DevExpress.XtraPrinting.PrintingSystemCommand.FillBackground
+ Me.bbiFillBackground.Enabled = False
+ Me.bbiFillBackground.Hint = "Hintergrund"
+ Me.bbiFillBackground.Id = 29
+ Me.bbiFillBackground.Name = "bbiFillBackground"
+ '
+ 'bbiWatermark
+ '
+ Me.bbiWatermark.Caption = "&Wasserzeichen..."
+ Me.bbiWatermark.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Watermark
+ Me.bbiWatermark.Enabled = False
+ Me.bbiWatermark.Hint = "Wasserzeichen"
+ Me.bbiWatermark.Id = 30
+ Me.bbiWatermark.Name = "bbiWatermark"
+ '
+ 'bbiExportFile
+ '
+ Me.bbiExportFile.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown
+ Me.bbiExportFile.Caption = "Dokument exportieren..."
+ Me.bbiExportFile.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportFile
+ Me.bbiExportFile.Enabled = False
+ Me.bbiExportFile.Hint = "Dokument exportieren..."
+ Me.bbiExportFile.Id = 31
+ Me.bbiExportFile.Name = "bbiExportFile"
+ '
+ 'bbiSendFile
+ '
+ Me.bbiSendFile.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown
+ Me.bbiSendFile.Caption = "Sende E-Mail..."
+ Me.bbiSendFile.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendFile
+ Me.bbiSendFile.Enabled = False
+ Me.bbiSendFile.Hint = "Sende E-Mail..."
+ Me.bbiSendFile.Id = 32
+ Me.bbiSendFile.Name = "bbiSendFile"
+ '
+ 'bbiClosePreview
+ '
+ Me.bbiClosePreview.Caption = "B&eenden"
+ Me.bbiClosePreview.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ClosePreview
+ Me.bbiClosePreview.Enabled = False
+ Me.bbiClosePreview.Hint = "Druckvorschau schließen"
+ Me.bbiClosePreview.Id = 33
+ Me.bbiClosePreview.Name = "bbiClosePreview"
+ '
+ 'miFile
+ '
+ Me.miFile.Caption = "&Datei"
+ Me.miFile.Command = DevExpress.XtraPrinting.PrintingSystemCommand.File
+ Me.miFile.Id = 34
+ Me.miFile.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbiPageSetup), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiPrint), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiPrintDirect), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiExportFile, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiSendFile), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiClosePreview, True)})
+ Me.miFile.Name = "miFile"
+ '
+ 'miView
+ '
+ Me.miView.Caption = "&Ansicht"
+ Me.miView.Command = DevExpress.XtraPrinting.PrintingSystemCommand.View
+ Me.miView.Id = 35
+ Me.miView.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.miPageLayout, True), New DevExpress.XtraBars.LinkPersistInfo(Me.miToolbars, True)})
+ Me.miView.Name = "miView"
+ '
+ 'miPageLayout
+ '
+ Me.miPageLayout.Caption = "&Seiten Layout"
+ Me.miPageLayout.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageLayout
+ Me.miPageLayout.Id = 37
+ Me.miPageLayout.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.miPageLayoutFacing), New DevExpress.XtraBars.LinkPersistInfo(Me.miPageLayoutContinuous)})
+ Me.miPageLayout.Name = "miPageLayout"
+ '
+ 'miPageLayoutFacing
+ '
+ Me.miPageLayoutFacing.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.miPageLayoutFacing.Caption = "Einzeln"
+ Me.miPageLayoutFacing.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageLayoutFacing
+ Me.miPageLayoutFacing.Enabled = False
+ Me.miPageLayoutFacing.GroupIndex = 100
+ Me.miPageLayoutFacing.Id = 38
+ Me.miPageLayoutFacing.Name = "miPageLayoutFacing"
+ '
+ 'miPageLayoutContinuous
+ '
+ Me.miPageLayoutContinuous.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check
+ Me.miPageLayoutContinuous.Caption = "Fortlaufend"
+ Me.miPageLayoutContinuous.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageLayoutContinuous
+ Me.miPageLayoutContinuous.Enabled = False
+ Me.miPageLayoutContinuous.GroupIndex = 100
+ Me.miPageLayoutContinuous.Id = 39
+ Me.miPageLayoutContinuous.Name = "miPageLayoutContinuous"
+ '
+ 'miToolbars
+ '
+ Me.miToolbars.Caption = "Bars"
+ Me.miToolbars.Id = 40
+ Me.miToolbars.Name = "miToolbars"
+ '
+ 'miBackground
+ '
+ Me.miBackground.Caption = "&Hintergrund"
+ Me.miBackground.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Background
+ Me.miBackground.Id = 36
+ Me.miBackground.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbiFillBackground), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiWatermark)})
+ Me.miBackground.Name = "miBackground"
+ '
+ 'PrintPreviewBarCheckItem1
+ '
+ Me.PrintPreviewBarCheckItem1.BindableChecked = True
+ Me.PrintPreviewBarCheckItem1.Caption = "PDF Dokument"
+ Me.PrintPreviewBarCheckItem1.Checked = True
+ Me.PrintPreviewBarCheckItem1.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportPdf
+ Me.PrintPreviewBarCheckItem1.Enabled = False
+ Me.PrintPreviewBarCheckItem1.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem1.Hint = "PDF Dokument"
+ Me.PrintPreviewBarCheckItem1.Id = 41
+ Me.PrintPreviewBarCheckItem1.Name = "PrintPreviewBarCheckItem1"
+ '
+ 'PrintPreviewBarCheckItem2
+ '
+ Me.PrintPreviewBarCheckItem2.Caption = "HTML Dokument"
+ Me.PrintPreviewBarCheckItem2.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportHtm
+ Me.PrintPreviewBarCheckItem2.Enabled = False
+ Me.PrintPreviewBarCheckItem2.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem2.Hint = "HTML Dokument"
+ Me.PrintPreviewBarCheckItem2.Id = 42
+ Me.PrintPreviewBarCheckItem2.Name = "PrintPreviewBarCheckItem2"
+ '
+ 'PrintPreviewBarCheckItem3
+ '
+ Me.PrintPreviewBarCheckItem3.Caption = "MHT Dokument"
+ Me.PrintPreviewBarCheckItem3.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportMht
+ Me.PrintPreviewBarCheckItem3.Enabled = False
+ Me.PrintPreviewBarCheckItem3.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem3.Hint = "MHT Dokument"
+ Me.PrintPreviewBarCheckItem3.Id = 43
+ Me.PrintPreviewBarCheckItem3.Name = "PrintPreviewBarCheckItem3"
+ '
+ 'PrintPreviewBarCheckItem4
+ '
+ Me.PrintPreviewBarCheckItem4.Caption = "Rich Text Dokument"
+ Me.PrintPreviewBarCheckItem4.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportRtf
+ Me.PrintPreviewBarCheckItem4.Enabled = False
+ Me.PrintPreviewBarCheckItem4.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem4.Hint = "Rich Text Dokument"
+ Me.PrintPreviewBarCheckItem4.Id = 44
+ Me.PrintPreviewBarCheckItem4.Name = "PrintPreviewBarCheckItem4"
+ '
+ 'PrintPreviewBarCheckItem5
+ '
+ Me.PrintPreviewBarCheckItem5.Caption = "Word 2007 Dokument"
+ Me.PrintPreviewBarCheckItem5.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportDocx
+ Me.PrintPreviewBarCheckItem5.Enabled = False
+ Me.PrintPreviewBarCheckItem5.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem5.Hint = "Word 2007 Dokument"
+ Me.PrintPreviewBarCheckItem5.Id = 45
+ Me.PrintPreviewBarCheckItem5.Name = "PrintPreviewBarCheckItem5"
+ '
+ 'PrintPreviewBarCheckItem6
+ '
+ Me.PrintPreviewBarCheckItem6.Caption = "Excel Dokument"
+ Me.PrintPreviewBarCheckItem6.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportXls
+ Me.PrintPreviewBarCheckItem6.Enabled = False
+ Me.PrintPreviewBarCheckItem6.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem6.Hint = "Excel Dokument"
+ Me.PrintPreviewBarCheckItem6.Id = 46
+ Me.PrintPreviewBarCheckItem6.Name = "PrintPreviewBarCheckItem6"
+ '
+ 'PrintPreviewBarCheckItem7
+ '
+ Me.PrintPreviewBarCheckItem7.Caption = "Excel 2007 Dokument"
+ Me.PrintPreviewBarCheckItem7.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportXlsx
+ Me.PrintPreviewBarCheckItem7.Enabled = False
+ Me.PrintPreviewBarCheckItem7.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem7.Hint = "Excel 2007 Dokument"
+ Me.PrintPreviewBarCheckItem7.Id = 47
+ Me.PrintPreviewBarCheckItem7.Name = "PrintPreviewBarCheckItem7"
+ '
+ 'PrintPreviewBarCheckItem8
+ '
+ Me.PrintPreviewBarCheckItem8.Caption = "CSV Dokument"
+ Me.PrintPreviewBarCheckItem8.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportCsv
+ Me.PrintPreviewBarCheckItem8.Enabled = False
+ Me.PrintPreviewBarCheckItem8.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem8.Hint = "CSV Dokument"
+ Me.PrintPreviewBarCheckItem8.Id = 48
+ Me.PrintPreviewBarCheckItem8.Name = "PrintPreviewBarCheckItem8"
+ '
+ 'PrintPreviewBarCheckItem9
+ '
+ Me.PrintPreviewBarCheckItem9.Caption = "Text Dokument"
+ Me.PrintPreviewBarCheckItem9.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportTxt
+ Me.PrintPreviewBarCheckItem9.Enabled = False
+ Me.PrintPreviewBarCheckItem9.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem9.Hint = "Text Dokument"
+ Me.PrintPreviewBarCheckItem9.Id = 49
+ Me.PrintPreviewBarCheckItem9.Name = "PrintPreviewBarCheckItem9"
+ '
+ 'PrintPreviewBarCheckItem10
+ '
+ Me.PrintPreviewBarCheckItem10.Caption = "Graphisches Dokument"
+ Me.PrintPreviewBarCheckItem10.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportGraphic
+ Me.PrintPreviewBarCheckItem10.Enabled = False
+ Me.PrintPreviewBarCheckItem10.GroupIndex = 2
+ Me.PrintPreviewBarCheckItem10.Hint = "Graphisches Dokument"
+ Me.PrintPreviewBarCheckItem10.Id = 50
+ Me.PrintPreviewBarCheckItem10.Name = "PrintPreviewBarCheckItem10"
+ '
+ 'PrintPreviewBarCheckItem11
+ '
+ Me.PrintPreviewBarCheckItem11.BindableChecked = True
+ Me.PrintPreviewBarCheckItem11.Caption = "PDF Dokument"
+ Me.PrintPreviewBarCheckItem11.Checked = True
+ Me.PrintPreviewBarCheckItem11.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendPdf
+ Me.PrintPreviewBarCheckItem11.Enabled = False
+ Me.PrintPreviewBarCheckItem11.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem11.Hint = "PDF Dokument"
+ Me.PrintPreviewBarCheckItem11.Id = 51
+ Me.PrintPreviewBarCheckItem11.Name = "PrintPreviewBarCheckItem11"
+ '
+ 'PrintPreviewBarCheckItem12
+ '
+ Me.PrintPreviewBarCheckItem12.Caption = "MHT Dokument"
+ Me.PrintPreviewBarCheckItem12.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendMht
+ Me.PrintPreviewBarCheckItem12.Enabled = False
+ Me.PrintPreviewBarCheckItem12.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem12.Hint = "MHT Dokument"
+ Me.PrintPreviewBarCheckItem12.Id = 52
+ Me.PrintPreviewBarCheckItem12.Name = "PrintPreviewBarCheckItem12"
+ '
+ 'PrintPreviewBarCheckItem13
+ '
+ Me.PrintPreviewBarCheckItem13.Caption = "Rich Text Dokument"
+ Me.PrintPreviewBarCheckItem13.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendRtf
+ Me.PrintPreviewBarCheckItem13.Enabled = False
+ Me.PrintPreviewBarCheckItem13.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem13.Hint = "Rich Text Dokument"
+ Me.PrintPreviewBarCheckItem13.Id = 53
+ Me.PrintPreviewBarCheckItem13.Name = "PrintPreviewBarCheckItem13"
+ '
+ 'PrintPreviewBarCheckItem14
+ '
+ Me.PrintPreviewBarCheckItem14.Caption = "Word 2007 Dokument"
+ Me.PrintPreviewBarCheckItem14.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendDocx
+ Me.PrintPreviewBarCheckItem14.Enabled = False
+ Me.PrintPreviewBarCheckItem14.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem14.Hint = "Word 2007 Dokument"
+ Me.PrintPreviewBarCheckItem14.Id = 54
+ Me.PrintPreviewBarCheckItem14.Name = "PrintPreviewBarCheckItem14"
+ '
+ 'PrintPreviewBarCheckItem15
+ '
+ Me.PrintPreviewBarCheckItem15.Caption = "Excel Dokument"
+ Me.PrintPreviewBarCheckItem15.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendXls
+ Me.PrintPreviewBarCheckItem15.Enabled = False
+ Me.PrintPreviewBarCheckItem15.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem15.Hint = "Excel Dokument"
+ Me.PrintPreviewBarCheckItem15.Id = 55
+ Me.PrintPreviewBarCheckItem15.Name = "PrintPreviewBarCheckItem15"
+ '
+ 'PrintPreviewBarCheckItem16
+ '
+ Me.PrintPreviewBarCheckItem16.Caption = "Excel 2007 Dokument"
+ Me.PrintPreviewBarCheckItem16.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendXlsx
+ Me.PrintPreviewBarCheckItem16.Enabled = False
+ Me.PrintPreviewBarCheckItem16.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem16.Hint = "Excel 2007 Dokument"
+ Me.PrintPreviewBarCheckItem16.Id = 56
+ Me.PrintPreviewBarCheckItem16.Name = "PrintPreviewBarCheckItem16"
+ '
+ 'PrintPreviewBarCheckItem17
+ '
+ Me.PrintPreviewBarCheckItem17.Caption = "CSV Dokument"
+ Me.PrintPreviewBarCheckItem17.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendCsv
+ Me.PrintPreviewBarCheckItem17.Enabled = False
+ Me.PrintPreviewBarCheckItem17.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem17.Hint = "CSV Dokument"
+ Me.PrintPreviewBarCheckItem17.Id = 57
+ Me.PrintPreviewBarCheckItem17.Name = "PrintPreviewBarCheckItem17"
+ '
+ 'PrintPreviewBarCheckItem18
+ '
+ Me.PrintPreviewBarCheckItem18.Caption = "Text Dokument"
+ Me.PrintPreviewBarCheckItem18.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendTxt
+ Me.PrintPreviewBarCheckItem18.Enabled = False
+ Me.PrintPreviewBarCheckItem18.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem18.Hint = "Text Dokument"
+ Me.PrintPreviewBarCheckItem18.Id = 58
+ Me.PrintPreviewBarCheckItem18.Name = "PrintPreviewBarCheckItem18"
+ '
+ 'PrintPreviewBarCheckItem19
+ '
+ Me.PrintPreviewBarCheckItem19.Caption = "Graphisches Dokument"
+ Me.PrintPreviewBarCheckItem19.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendGraphic
+ Me.PrintPreviewBarCheckItem19.Enabled = False
+ Me.PrintPreviewBarCheckItem19.GroupIndex = 1
+ Me.PrintPreviewBarCheckItem19.Hint = "Graphisches Dokument"
+ Me.PrintPreviewBarCheckItem19.Id = 59
+ Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19"
+ '
+ 'VWCUST_STAMPBindingSource
+ '
+ Me.VWCUST_STAMPBindingSource.DataMember = "VWCUST_STAMP"
+ Me.VWCUST_STAMPBindingSource.DataSource = Me.MyDataset
+ '
+ 'VWCUST_STAMPTableAdapter
+ '
+ Me.VWCUST_STAMPTableAdapter.ClearBeforeFill = True
+ '
+ 'Form1
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(1007, 827)
+ Me.Controls.Add(Me.XtraTabControl1)
+ Me.Controls.Add(Me.ToolStrip1)
+ Me.Controls.Add(Me.StatusStrip1)
+ Me.Controls.Add(Me.barDockControlLeft)
+ Me.Controls.Add(Me.barDockControlRight)
+ Me.Controls.Add(Me.barDockControlBottom)
+ Me.Controls.Add(Me.barDockControlTop)
+ Me.Name = "Form1"
+ Me.Text = "Report-Generator (beta) - AutoMode"
+ CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.VWCUST_RPTPM_UNIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.StatusStrip1.ResumeLayout(False)
+ Me.StatusStrip1.PerformLayout()
+ Me.ToolStrip1.ResumeLayout(False)
+ Me.ToolStrip1.PerformLayout()
+ CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.XtraTabControl1.ResumeLayout(False)
+ Me.XtraTabPage1.ResumeLayout(False)
+ Me.XtraTabPage2.ResumeLayout(False)
+ Me.XtraTabPage2.PerformLayout()
+ Me.XtraTabPage3.ResumeLayout(False)
+ CType(Me.VWCUST_RPTPM_UNIONDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.VWCUST_RPTPM_INV_RPT_STAMPBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.PrintPreviewRepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.VWCUST_STAMPBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents VWCUST_RPTPM_UNIONBindingSource As BindingSource
+ Friend WithEvents MyDataset As MyDataset
+ Friend WithEvents VWCUST_RPTPM_UNIONTableAdapter As MyDatasetTableAdapters.VWCUST_RPTPM_UNIONTableAdapter
+ Friend WithEvents TableAdapterManager As MyDatasetTableAdapters.TableAdapterManager
+ Friend WithEvents StatusStrip1 As StatusStrip
+ Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
+ Friend WithEvents TimerMinute As Timer
+ Friend WithEvents ToolStrip1 As ToolStrip
+ Friend WithEvents ToolStripLabel1 As ToolStripLabel
+ Friend WithEvents txtDocID As ToolStripTextBox
+ Friend WithEvents ToolStripButton1 As ToolStripButton
+ Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
+ Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
+ Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+ Friend WithEvents DocumentViewer1 As DevExpress.XtraPrinting.Preview.DocumentViewer
+ Friend WithEvents Label1 As Label
+ Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+ Friend WithEvents TextBox1 As TextBox
+ Friend WithEvents Label2 As Label
+ Friend WithEvents TextBox2 As TextBox
+ Friend WithEvents Label3 As Label
+ Friend WithEvents VWCUST_RPTPM_INV_RPT_STAMPBindingSource As BindingSource
+ Friend WithEvents VWCUST_RPTPM_INV_RPT_STAMPTableAdapter As MyDatasetTableAdapters.VWCUST_RPTPM_INV_RPT_STAMPTableAdapter
+ Friend WithEvents ToolStripButton2 As ToolStripButton
+ Friend WithEvents txtPDFTKRun As TextBox
+ Friend WithEvents Button1 As Button
+ Friend WithEvents ToolStripButton3 As ToolStripButton
+ Friend WithEvents TextBox3 As TextBox
+ Friend WithEvents ToolStripButton4 As ToolStripButton
+ Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+ Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+ Friend WithEvents DocumentViewerBarManager1 As DevExpress.XtraPrinting.Preview.DocumentViewerBarManager
+ Friend WithEvents bbiDocumentMap As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiParameters As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiThumbnails As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiFind As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiHighlightEditingFields As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiCustomize As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiOpen As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiSave As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiPrint As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiPrintDirect As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiPageSetup As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiEditPageHF As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiScale As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiHandTool As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiMagnifier As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiZoomOut As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiZoom As DevExpress.XtraPrinting.Preview.ZoomBarEditItem
+ Friend WithEvents PrintPreviewRepositoryItemComboBox1 As DevExpress.XtraPrinting.Preview.PrintPreviewRepositoryItemComboBox
+ Friend WithEvents bbiZoomIn As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiShowFirstPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiShowPrevPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiShowNextPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiShowLastPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiMultiplePages As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiFillBackground As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiWatermark As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiExportFile As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiSendFile As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents bbiClosePreview As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents PreviewBar2 As DevExpress.XtraPrinting.Preview.PreviewBar
+ Friend WithEvents PrintPreviewStaticItem1 As DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem
+ Friend WithEvents verticalSpaceItem As DevExpress.XtraBars.BarStaticItem
+ Friend WithEvents ProgressBarEditItem1 As DevExpress.XtraPrinting.Preview.ProgressBarEditItem
+ Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar
+ Friend WithEvents PrintPreviewBarItem1 As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents PrintPreviewStaticItem2 As DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem
+ Friend WithEvents ZoomTrackBarEditItem1 As DevExpress.XtraPrinting.Preview.ZoomTrackBarEditItem
+ Friend WithEvents RepositoryItemZoomTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemZoomTrackBar
+ Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
+ Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
+ Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
+ Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
+ Friend WithEvents miFile As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem
+ Friend WithEvents miView As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem
+ Friend WithEvents miPageLayout As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem
+ Friend WithEvents miPageLayoutFacing As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents miPageLayoutContinuous As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem
+ Friend WithEvents miToolbars As DevExpress.XtraBars.BarToolbarsListItem
+ Friend WithEvents miBackground As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem
+ Friend WithEvents PrintPreviewBarCheckItem1 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem2 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem3 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem4 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem5 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem6 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem7 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem8 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem9 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem10 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem11 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem12 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem13 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem14 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem15 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem16 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem17 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem18 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents PrintPreviewBarCheckItem19 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
+ Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage
+ Friend WithEvents VWCUST_RPTPM_UNIONDataGridView As DataGridView
+ Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn11 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn12 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn13 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn14 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn15 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn16 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn17 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn18 As DataGridViewTextBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn19 As DataGridViewTextBoxColumn
+ Friend WithEvents VWCUST_STAMPBindingSource As BindingSource
+ Friend WithEvents VWCUST_STAMPTableAdapter As MyDatasetTableAdapters.VWCUST_STAMPTableAdapter
+ Friend WithEvents ToolStripButton6 As ToolStripButton
+ Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
+End Class
diff --git a/WISAG_PM_REPORT/Form1.resx b/WISAG_PM_REPORT/Form1.resx
new file mode 100644
index 0000000..70f792e
--- /dev/null
+++ b/WISAG_PM_REPORT/Form1.resx
@@ -0,0 +1,227 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ 17, 17
+
+
+ 127, 17
+
+
+ 394, 17
+
+
+ 656, 17
+
+
+ 829, 17
+
+
+ 946, 17
+
+
+ 1067, 17
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACrSURBVDhPY/j27dt/IH7/9evXhvfv3wswkApABgTM8Pm/
+ /txa8gwCGWDRZQLGZBmEbABZBhEwgCDG6oXNmzf/j4yM/O/k5IQXww1AdjKID5L88P4jXoxiAEgjzK/4
+ DGhubgFjEBtuAHog4TLg1s3bYHEQjWIAOsBlALLtIEyUAefPXwCzjx45CqZhthNtAAiDbAXxkW0nyQB0
+ v5NsAC5M0ABiME4DiMff/gMA5YhPSShFYD4AAAAASUVORK5CYII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALySURBVDhPpdLrT1tlHMBx/o/FzcXFZNGss6AY1AWRO8hl
+ 4DoupWuBduVYoEAZm5uIQCjIgDBuwizaAmEKymUhhDCzrUSuLdu4lAyYrhO8zKBRsxgIfj30ifLGxBc+
+ ye/NSb6f55Lj97/X1OLP2Ee8tA+sU9t9j3JHD5ar5UhNRRgb8zA25XK2PgedNRtdlZ4zlZm09Ley+fg7
+ fIDVsYr99p98fBNKe6DZVU3dZAUfTLxP5c1LlN24wKWxcxSPmDEPmkhsjqPCVoPjepcAzG3guL3rA0o6
+ kQMLhm4N+q4MsrrUaO1pqG0qNJ2pGPqyULUl43TPcdnWIACpETneoX18F1PLjm/HvbVwf9M3TtfXDH7p
+ 8X3LvHaG+Po3cXtWaOvqEIC2epvW0T+oH94mw/rkH+DfVkaPmoiqcFxLHhptzQJIOP871s9/o6z3CbGW
+ LR9wcayYcyMFFAznYhqQMPYb0H+a5ZvgsmDmFpeoabksgBDjD7zj+IVC26+cMGz8JxBUEsT03QVKa8sE
+ EKT1YvrwJ7KvbOGfvo5lJI/8IQnpCznqy0TXq0Hdnc7pT1Qk2ZIJNAfylXuewveKBKBMW0Pb8D0q648c
+ TVjGPCxiw14sP9revVPsKSR3JhPXkYjSFMDErAt9oUEAzyV5SKrcIOrdTQ5HzoudPxOxuiddxLa3iO9I
+ IKo1luM5/jhnZsmQNAJ4JuYOERe9nCj2cuCNaRH3yvHese2nfceOaxdx2JVIFDlKbk3NkKpPE8DBiDlC
+ Sr7hNYuXp8Jm5Z3/vrMcf7Qfh8pxcEMoz0sKbk1Oc0qnEsChKBfK7FVelB7wdIybhKZ4omujeb0ihJeL
+ glCYlCgkJcfeVsjzAscMCpzTszJwSgCHY93U9W0yNCH/dfMbrDzYwLP+7f6sPWJ51cuSPIv3H7Ky5uX6
+ +A1Oqk8KYNQ5RWXrVYpraskvL8V4IR9dkZ70XA0pxlQStUmEq8J5NfYVAkNfwj/4OM8GHOGsOVsG/Pz+
+ AkjbVHdeA2eyAAAAAElFTkSuQmCC
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABdSURBVDhPtY5BCsAwCAT3bf7/L20uXhssBMSYoILCEAPu
+ KKSY+avwh6XkQ0QpXMH7jBBXwdrgERJEuArk1djwmum/wAvpmfQFJYEN6b5PYAdPfZ8gwlGQYRNUAIAJ
+ He+r3Wp/V0QAAAAASUVORK5CYII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD/SURBVDhPlZK7DcIwFEU9AiMwAgUFJUpNpGySNiyQgi4d
+ RSQmQIzABvRAwQApDMqvNFzLz3nYDihPulJk5x7nyBFd1ymkrutH27aJmDooJ/uNOl2OGvSBnJumWZjt
+ /4PSarfUcUAHKeUMz2PxAAGQxH4URV4mAQjylC9bRjxASKHv+3kIgHUL4MVfASDLtqosS32ABSB0jXjG
+ KW4IcLveVRzHqqoqfMVaQ/gQECXXmQPzPNdXbmrDjDnzMgXrpjYM3OAIV+6cpulXuSgK/wvgBDc4wtV1
+ JhUTaW+CBkS48ZMoo858QA6VKdg3r4YHJ8AtVA46u2NuwP6+TnxnIcQbslEjsjqi7CwAAAAASUVORK5C
+ YII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+ YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+ 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+ bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+ VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+ c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+ Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+ mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+ kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+ TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+
+
+
+ 17, 56
+
+
+ 335, 56
+
+
+ 647, 56
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOC4xLCBWZXJzaW9uPTE4LjEu
+ NS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
+ ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
+
+
+
+ 865, 56
+
+
+ 1088, 56
+
+
\ No newline at end of file
diff --git a/WISAG_PM_REPORT/Form1.vb b/WISAG_PM_REPORT/Form1.vb
new file mode 100644
index 0000000..5da1996
--- /dev/null
+++ b/WISAG_PM_REPORT/Form1.vb
@@ -0,0 +1,612 @@
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Database
+Imports System.IO
+Imports System.ComponentModel
+Imports GdPicture14
+
+Public Class Form1
+ Dim MyLogger As LogConfig
+ Dim Logger As Logger
+ Dim MySQLSDB As MSSQLServer
+ Dim MyFreigabebericht As String
+ Dim MyStempel As String
+ Dim MyOriginStamped As String
+ Dim MyEndResult As String
+ Dim DEBUG As Boolean = False
+ Dim GDPICTURE_LICENSE As String
+
+ Private _licenseManager As New GdPicture14.LicenseManager()
+
+ Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
+ MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath & "\log", Nothing, "Digital Data", "WISAGErgReport")
+ Logger = MyLogger.GetLogger()
+ MySQLSDB = New MSSQLServer(MyLogger, My.Settings.CONF_SQLSERVER,)
+ If MySQLSDB.DBInitialized = False Then
+ MsgBox("Could not initialize database. Check the ConfigString My.Settings.CONF_SQLSERVER!", MsgBoxStyle.Critical)
+ Me.Close()
+ End If
+ Dim oSql = "Select * from TBDD_3RD_PARTY_MODULES"
+ Dim oDT As DataTable = MySQLSDB.GetDatatable(oSql)
+ For Each oROW As DataRow In oDT.Rows
+ If oROW.Item("NAME") = "GDPICTURE" Then
+ Try
+ GDPICTURE_LICENSE = oROW.Item("LICENSE")
+ _licenseManager.RegisterKEY(GDPICTURE_LICENSE)
+ Catch ex As Exception
+ Logger.Error(ex)
+ End Try
+
+ End If
+ Next
+ Me.TimerMinute.Start()
+ txtDocID.Text = My.Settings.MyDocID
+ End Sub
+ Dim Run_Active As Boolean = False
+ Private Sub TimerMinute_Tick(sender As Object, e As EventArgs) Handles TimerMinute.Tick
+ Logger.Debug($"Tick---Hour: {My.Computer.Clock.LocalTime.Hour}")
+ If DEBUG = True Then Exit Sub
+ If Run_Active = True Then Exit Sub
+ If My.Computer.Clock.LocalTime.Hour > 6 And My.Computer.Clock.LocalTime.Hour < 23 Then
+ Try
+ Dim oDT As DataTable = MySQLSDB.GetDatatable(My.Settings.oSQLGetDocId)
+ If Not IsNothing(oDT) Then
+ If oDT.Rows.Count > 0 Then
+ Run_Active = True
+ For Each oRow As DataRow In oDT.Rows
+ Dim oSQL = $"select count(*) from VWCUST_RPTPM_INV_RPT_STAMP_CHECK WHERE docID = {oRow.Item(0).ToString}"
+ If MySQLSDB.GetScalarValue(oSQL) >= 1 Then
+ Create_Report(oRow.Item(0).ToString, 0)
+ Else
+ Logger.Info($"ATTENTION - No FinalFreigabe for DocID: {oRow.Item(0).ToString}")
+ End If
+ Next
+ End If
+ ToolStripStatusLabel1.Text = $"Last Run: {Now.ToString}"
+ Run_Active = False
+ End If
+ Catch ex As Exception
+ Run_Active = False
+ End Try
+
+ Else
+ ToolStripStatusLabel1.Text = $"In Sleep Mode 19-06: {Now.ToString}"
+ End If
+
+
+ End Sub
+ Sub Create_Report(DocID As String, ReportOption As Integer)
+ MyFreigabebericht = ""
+ MyStempel = ""
+ MyOriginStamped = ""
+ Logger.Info($"Trying to create report for DocID: {DocID}...")
+ Dim errortext As String
+ Try
+ If DEBUG = True Then
+ DocumentViewer1.DocumentSource = Nothing
+ End If
+
+ ' Me.MyDataset.VWCUST_RPTPM_UNION.Clear()
+ ' VWCUST_RPTPM_UNIONTableAdapter.Connection.ConnectionString = My.Settings.CONF_SQLSERVER
+
+
+ ' Me.VWCUST_RPTPM_UNIONTableAdapter.Fill(Me.MyDataset.VWCUST_RPTPM_UNION, DocID)
+ ' Logger.Debug($"---VWCUST_RPTPM_UNION.Rows.Count = [{MyDataset.VWCUST_RPTPM_UNION.Rows.Count}]!---")
+ ' If Me.MyDataset.VWCUST_RPTPM_UNION.Rows.Count = 0 Then
+ ' Logger.Debug($"no rows for UnionView VWCUST_RPTPM_UNION for DocID {DocID}")
+ ' Logger.Debug("My.Settings.CONF_SQLSERVER: " & My.Settings.CONF_SQLSERVER)
+ ' Dim oSQL = $"SELECT GroupTypeID, GroupType, DOC_ID, KreditorNummer, KreditorName_Lang, KreditorName, RechnungNr, Referenz, Nettobetrag, Bruttobetrag, Zahlungsziel, Mandant, [Mandant Name], Kostenstelle, [Erhalten wann], Belegdatum,
+ ' FG_Email, FG_Freigabe, FG_Wann, WHO, [WHEN], DELEGATION
+ 'FROM VWCUST_RPTPM_UNION
+ 'WHERE (DOC_ID = {DocID}) AND (LEN(RechnungNr) > 0)"
+ ' Dim oCHECKDT As DataTable = MySQLSDB.GetDatatable(oSQL)
+ ' Dim oMsg
+ ' If oCHECKDT.Rows.Count <> 0 Then
+ ' Logger.Debug("Now trying to add rows from regular select row by row...")
+ ' Try
+ ' For Each oRow As DataRow In oCHECKDT.Rows
+ ' MyDataset.VWCUST_RPTPM_UNION.ImportRow(oRow)
+ ' Next
+ ' MyDataset.VWCUST_RPTPM_UNION.AcceptChanges()
+ ' Logger.Debug($"Added {MyDataset.VWCUST_RPTPM_UNION.Rows.Count} rows!!")
+ ' Catch ex As Exception
+ ' Logger.Debug($"Ups: Unexpected error in Adding rows row by row: {ex.Message}")
+ ' Logger.Warn($"Unexpected error in Adding rows row by row: {ex.Message}")
+ ' End Try
+
+ ' If Me.MyDataset.VWCUST_RPTPM_UNION.Rows.Count <> 0 Then
+ ' oMsg = $"...BUT REGULAR SELECT [{oSQL}] returned {oCHECKDT.Rows.Count} rows!!!!"
+ ' Logger.Warn(oMsg)
+ ' End If
+ ' Else
+ ' Logger.Warn($"no rows for UnionView VWCUST_RPTPM_UNION for DocID {DocID}")
+ ' Logger.Debug("My.Settings.CONF_SQLSERVER: " & My.Settings.CONF_SQLSERVER)
+ ' End If
+ ' If DEBUG = True And Me.MyDataset.VWCUST_RPTPM_UNION.Rows.Count = 0 Then
+ ' If oCHECKDT.Rows.Count <> 0 Then
+ ' MsgBox($"No rows for UnionView VWCUST_RPTPM_UNION for DocID {DocID}! " & vbNewLine & oMsg)
+ ' Else
+ ' MsgBox($"No rows for UnionView VWCUST_RPTPM_UNION for DocID {DocID}")
+ ' End If
+ ' Exit Sub
+ ' End If
+ 'End If
+ Catch ex As Exception
+ If DEBUG = True Then
+ MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in 1:")
+ End If
+ Logger.Error(ex)
+ Exit Sub
+ End Try
+ Try
+ Dim report As New XtraReport2()
+ report.ReportPrintOptions.PrintOnEmptyDataSource = False
+ report.FilterString = "DocID = " + DocID
+ 'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
+ report.CreateDocument(False)
+ If DEBUG = True Then
+ DocumentViewer1.DocumentSource = report
+ End If
+
+ Dim oMyErgebnisbericht As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, DocID & "_ERPT.pdf")
+ If File.Exists(oMyErgebnisbericht) Then
+ Try
+ File.Delete(oMyErgebnisbericht)
+ Catch ex As Exception
+ If DEBUG = True Then
+ MsgBox($"Could not delete existing Reportfile: {oMyErgebnisbericht}", MsgBoxStyle.Critical)
+ End If
+ Exit Sub
+ End Try
+ End If
+ report.ExportToPdf(oMyErgebnisbericht)
+
+ If File.Exists(oMyErgebnisbericht) Then
+ If ReportOption = 1 Then
+ Exit Sub
+ End If
+ MyFreigabebericht = oMyErgebnisbericht
+ Dim oOriginFile As String
+ Dim osql = $"select dbo.FNDD_GET_WINDREAM_FILE_PATH ({DocID},1)"
+ oOriginFile = MySQLSDB.GetScalarValue(osql)
+ If File.Exists(oOriginFile) = False Then
+ Logger.Warn($"File {oOriginFile} is not existing. Check the pathconfiguration!")
+ Exit Sub
+ End If
+
+ If Not IsNothing(oOriginFile) Then
+ If File.Exists(My.Settings.Path2PDFTK) Then
+
+ If Create_MyStempel(DEBUG, DocID) = True Then
+ 'Jetzt Stempeln des OriginakBeleges mit dem Stamp-Report
+ Dim oStampedResult = CreateStampedPDF(oOriginFile, DocID)
+
+ If oStampedResult <> "" Then
+ If Concat_Files(DocID, oOriginFile) = True Then
+ If DEBUG Then
+ MsgBox($"The ResultReport has been created: {MyEndResult}", MsgBoxStyle.Information)
+ End If
+ If DEBUG = False Then
+ Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID) VALUES ({Convert.ToInt64(DocID)})"
+ MySQLSDB.ExecuteNonQuery(oInsert)
+ End If
+ Logger.Info($"Concatted file [{oStampedResult}] created!")
+
+ End If
+ End If
+ End If
+ End If
+ Else
+ Logger.Warn("OriginFile is nothing!!")
+ If DEBUG Then
+ MsgBox("OriginFile is nothing", MsgBoxStyle.Critical)
+ End If
+ End If
+
+
+
+
+ End If
+
+ Catch ex As Exception
+ errortext = "ex.message: " & ex.Message & vbNewLine & "ex.StackTrace: " & ex.StackTrace.ToString & vbNewLine & "ex.InnerException: " & ex.InnerException.Message
+ If DEBUG = True Then
+ MsgBox(errortext, MsgBoxStyle.Critical, "Error in 2:")
+ Clipboard.SetText(errortext)
+ End If
+ Logger.Error(ex)
+ End Try
+ End Sub
+ Private Function Create_MyStempel(istest As Boolean, DocID As String)
+ MyStempel = ""
+ Logger.Info($"Trying to create Stampreport for DocID: {DocID}...")
+ Dim errortext As String
+ Try
+ If istest = True Then
+ DocumentViewer1.DocumentSource = Nothing
+ End If
+
+
+ Catch ex As Exception
+ If istest = True Then
+ MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in 1:")
+ End If
+ Logger.Error(ex)
+ Return False
+ End Try
+ Try
+ Dim myReport As New RptStampIcon()
+ myReport.ReportPrintOptions.PrintOnEmptyDataSource = False
+ myReport.FilterString = "DocID = " + DocID
+ 'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
+ myReport.CreateDocument(False)
+ If istest = True Then
+ DocumentViewer1.DocumentSource = myReport
+ End If
+
+ Dim oTempStempel As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, DocID & "_Stamp.jpg")
+ If File.Exists(oTempStempel) Then
+ Try
+ File.Delete(oTempStempel)
+ Catch ex As Exception
+ If istest = True Then
+ MsgBox($"Could not delete existing Reportfile: {oTempStempel}", MsgBoxStyle.Critical)
+ End If
+ Return False
+ End Try
+ End If
+ 'myReport.ExportToPdf(oTempStempel)
+ Dim oExportOptions As New DevExpress.XtraPrinting.ImageExportOptions
+ oExportOptions.Resolution = 400
+ oExportOptions.Format = Imaging.ImageFormat.Jpeg
+ oExportOptions.ExportMode = DevExpress.XtraPrinting.ImageExportMode.SingleFile
+ myReport.ExportToImage(oTempStempel, oExportOptions)
+
+
+ If File.Exists(oTempStempel) Then
+ MyStempel = oTempStempel
+ Logger.Info($"Stampreport created for DocID: {DocID}!")
+ If istest = True Then
+ MsgBox($"Stampreport [{oTempStempel}] created for DocID [{DocID}]!", MsgBoxStyle.Information)
+ End If
+ Return True
+ Else
+ MyStempel = ""
+ Return False
+ End If
+
+ Catch ex As Exception
+ errortext = "ex.message: " & ex.Message & vbNewLine & "ex.StackTrace: " & ex.StackTrace.ToString & vbNewLine & "ex.InnerException: " & ex.InnerException.Message
+ If istest = True Then
+ MsgBox(errortext, MsgBoxStyle.Critical, "Error in Create_StampReport:")
+ Clipboard.SetText(errortext)
+ End If
+ Logger.Error(ex)
+ Return False
+ End Try
+ End Function
+ Private Function CreateStampedPDF(oOriginFile As String, DocID As Integer)
+ Try
+ Logger.Info($"Trying to create stamp on OriginWMFile for DocID: {DocID}...")
+ Logger.Debug($"Now in CreateStampedPDF")
+ Dim myProcess As New Process
+ Dim ProcID
+ myProcess.StartInfo.FileName = My.Settings.Path2PDFTK
+ myProcess.StartInfo.CreateNoWindow = False
+
+ 'Dim oOutputFile As String
+ 'oOutputFile = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix
+ 'oOutputFile = Path.Combine(My.Settings.CONCAT_TEMPFolder, oOutputFile + "_BG.pdf")
+
+ Dim oStampedOriginWithPicture As String
+ oStampedOriginWithPicture = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix
+ oStampedOriginWithPicture = Path.Combine(My.Settings.CONCAT_TEMPFolder, oStampedOriginWithPicture + "_StampedOriginal.pdf")
+
+
+ 'Using oBackPDF As New GdPicturePDF
+ ' If oBackPDF.LoadFromFile(oOriginFile, False) = GdPictureStatus.OK Then
+ ' Using oOverlayPDF As New GdPicturePDF
+ ' If oOverlayPDF.LoadFromFile(MyStempel, False) = GdPictureStatus.OK Then
+ ' oBackPDF.DrawPage(oOverlayPDF, 1, 0, 0, oBackPDF.GetPageWidth, oBackPDF.GetPageHeight)
+ ' oBackPDF.SaveToFile(oOutputFile1, True)
+ ' End If
+ ' End Using
+ ' End If
+ 'End Using
+ Dim oGdPicturePDF As New GdPicturePDF()
+ Dim oGdPictureImaging As New GdPictureImaging()
+ 'Creating a new empty PDF document.
+ If oGdPicturePDF.LoadFromFile(oOriginFile, False) = GdPictureStatus.OK Then
+ Dim oYDistance = oGdPicturePDF.GetPageHeight
+ 'Just to remind you that units are set to points and the origin is set to bottom left by default.
+ 'Loading an image from a file.
+ Dim imageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(MyStempel)
+ If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then
+ 'Adding an image as a resource into the PDF document - we decided not to draw the image in this moment.
+ Dim imageResName As String = oGdPicturePDF.AddImageFromGdPictureImage(imageID, False, False)
+
+ If System.IO.File.Exists(oStampedOriginWithPicture) Then
+ System.IO.File.Delete(oStampedOriginWithPicture)
+ End If
+ Dim oStempelHEight = oGdPictureImaging.GetHeight(imageID) / 5
+ oYDistance = (oYDistance - oStempelHEight) - 10
+ 'Drawing the image resource onto the current page and saving the PDF document.
+ If (oGdPicturePDF.GetStat() <> GdPictureStatus.OK) OrElse
+ (oGdPicturePDF.DrawImage(imageResName, My.Settings.XDistance, oYDistance, oGdPictureImaging.GetWidth(imageID) / 5, oGdPictureImaging.GetHeight(imageID) / 5) <> GdPictureStatus.OK) OrElse
+ (oGdPicturePDF.SaveToFile(oStampedOriginWithPicture) <> GdPictureStatus.OK) Then
+ Logger.Warn("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString())
+ 'MessageBox.Show("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ Return ""
+ End If
+ 'Releasing the image.
+ oGdPictureImaging.ReleaseGdPictureImage(imageID)
+
+
+ Else
+ Logger.Warn("The image can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString())
+ Return ""
+ 'MessageBox.Show("The image can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End If
+ oGdPicturePDF.CloseDocument()
+ Else
+ Logger.Warn("The new PDF document can't be created. Error: " + oGdPicturePDF.GetStat().ToString())
+ 'MessageBox.Show("The new PDF document can't be created. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ Return ""
+ End If
+ oGdPictureImaging.Dispose()
+ oGdPicturePDF.Dispose()
+
+
+
+ '###### OLD VERSION WITH PDF TK
+
+ 'Dim _argument As String = """" & oOriginFile & """" & " background " & """" & MyStempel & """" _
+ ' & " output " & """" & oOutputFile & """"
+
+ 'myProcess.StartInfo.Arguments = _argument
+ 'Logger.Debug("Arguments: " & _argument)
+ 'myProcess.Start()
+ 'ProcID = myProcess.Id
+
+ 'Dim p As Process
+ 'p = Process.GetProcessById(ProcID)
+
+ Dim sw As Stopwatch = New Stopwatch()
+ 'sw.Start()
+
+ 'Do While p.HasExited = False
+
+ ' If sw.Elapsed.TotalSeconds = 30 Then
+ ' Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
+ ' ElseIf sw.Elapsed.TotalMinutes = 1 Then
+ ' Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
+ ' Exit Do
+ ' End If
+ 'Loop
+ Dim oSuccess As Boolean = True
+ 'Logger.Debug("...process has exited: ")
+ 'sw.Stop()
+ sw.Start()
+ Logger.Debug("Waiting for file: " & oStampedOriginWithPicture)
+
+ Do While File.Exists(oStampedOriginWithPicture) = False
+ If sw.Elapsed.TotalSeconds = 30 Then
+ Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture)
+ ElseIf sw.Elapsed.TotalMinutes = 1 Then
+ Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture)
+ oSuccess = False
+ Exit Do
+ End If
+
+ Loop
+ sw.Stop()
+ Try
+ File.Delete(MyStempel)
+ Logger.Debug($"Deleted StempelFile [{MyStempel}]!")
+ Catch ex As Exception
+ Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
+ End Try
+ If oSuccess = True Then
+ MyOriginStamped = oStampedOriginWithPicture
+ Return oStampedOriginWithPicture
+ Else
+ MyOriginStamped = ""
+ Return ""
+ End If
+
+
+ Catch ex As Exception
+ Logger.Error(ex) '("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)")
+ Return ""
+ End Try
+
+ End Function
+ Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+ My.Settings.Save()
+ If txtDocID.Text = "" Then Exit Sub
+ DEBUG = True
+ MyLogger.Debug = True
+ Create_Report(txtDocID.Text, 0)
+ End Sub
+
+ Private Function Concat_Files(DocID As String, oOriginFile As String)
+ Dim oConcatSuccessfull As Boolean = True
+ Try
+
+ Dim oFile2Concat As String = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix
+ oFile2Concat = Path.Combine(My.Settings.Path_ConcattedFile, oFile2Concat + ".pdf")
+ If File.Exists(My.Settings.Path2PDFTK) Then
+ If File.Exists(oFile2Concat) Then
+ Try
+ File.Delete(oFile2Concat)
+ Catch ex As Exception
+ Logger.Warn($"Could not delete ConcattedFile {oFile2Concat}: {ex.Message}")
+ Return False
+ End Try
+
+ End If
+ Try
+ Dim myProcess As New Process
+ Dim ProcID
+ myProcess.StartInfo.FileName = My.Settings.Path2PDFTK
+ myProcess.StartInfo.CreateNoWindow = False
+
+ Dim _argument As String = """" & MyOriginStamped & """" & " " & """" & MyFreigabebericht & """"
+
+ myProcess.StartInfo.Arguments = _argument & " cat output " & oFile2Concat
+ Logger.Debug("Arguments: " & _argument & " cat output " & oFile2Concat)
+ myProcess.Start()
+ ProcID = myProcess.Id
+
+ Dim p As Process
+ p = Process.GetProcessById(ProcID)
+
+ Dim sw As Stopwatch = New Stopwatch()
+ sw.Start()
+
+ Do While p.HasExited = False
+
+ If sw.Elapsed.TotalSeconds = 30 Then
+ Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
+ ElseIf sw.Elapsed.TotalMinutes = 1 Then
+ Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
+ Exit Do
+ End If
+ Loop
+ Logger.Debug("...process has exited: ")
+ sw.Stop()
+ Logger.Debug("Waiting for file: " & oFile2Concat)
+ sw.Start()
+ Do While File.Exists(oFile2Concat) = False
+ If sw.Elapsed.TotalSeconds = 30 Then
+ Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & oFile2Concat)
+ ElseIf sw.Elapsed.TotalMinutes = 1 Then
+ Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & oFile2Concat)
+ oConcatSuccessfull = False
+ Exit Do
+ End If
+
+ Loop
+ sw.Stop()
+ If oConcatSuccessfull = True Then
+ MyEndResult = oFile2Concat
+ End If
+ Try
+ File.Delete(MyOriginStamped)
+ Logger.Debug($"Deleted file [{MyOriginStamped}]!")
+ File.Delete(MyFreigabebericht)
+ Logger.Debug($"Deleted file [{MyFreigabebericht}]!")
+ Catch ex As Exception
+ Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
+ End Try
+ Return oConcatSuccessfull
+
+ Catch ex As Exception
+ Logger.Error(ex) '("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)")
+ Return False
+ End Try
+
+
+ Else
+ Logger.Warn("pdftk is not existing")
+ Return False
+ End If
+ Catch ex As Exception
+
+ End Try
+ End Function
+
+ Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+ If txtDocID.Text = "" Then Exit Sub
+ My.Settings.Save()
+ Create_MyStempel(True, txtDocID.Text)
+ End Sub
+
+ Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+ My.Settings.Save()
+ End Sub
+
+ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+ Dim myProcess As New Process
+ Dim ProcID
+ myProcess.StartInfo.FileName = My.Settings.Path2PDFTK
+ myProcess.StartInfo.CreateNoWindow = True
+
+ Dim _argument As String = txtPDFTKRun.Text
+
+ myProcess.StartInfo.Arguments = _argument
+ Logger.Debug("Arguments: " & _argument)
+ myProcess.Start()
+ ProcID = myProcess.Id
+
+ Dim p As Process
+ p = Process.GetProcessById(ProcID)
+
+ Dim sw As Stopwatch = New Stopwatch()
+ sw.Start()
+
+ Do While p.HasExited = False
+
+ If sw.Elapsed.TotalSeconds = 30 Then
+ Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
+ ElseIf sw.Elapsed.TotalMinutes = 1 Then
+ Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
+ Exit Do
+ End If
+ Loop
+ Logger.Debug("...process has exited: ")
+ sw.Stop()
+
+ End Sub
+
+ Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+
+ If ToolStripButton3.CheckState = CheckState.Checked Then
+ DEBUG = True
+ ToolStripButton3.BackColor = Color.Yellow
+ MyLogger.Debug = True
+ Me.Text = "Report-Generator (beta) in DebugMode - all Automatic stopped"
+
+ Else
+ DEBUG = False
+ MyLogger.Debug = False
+ ToolStripButton3.BackColor = Color.WhiteSmoke
+ Me.Text = "Report-Generator (beta) - AutoMode"
+ End If
+ If My.Settings.CONF_SQLSERVER.Contains("_TEST") Then
+ Me.Text &= " - TESTSystem"
+ End If
+ My.Settings.Save()
+ End Sub
+
+ Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
+ If txtDocID.Text = "" Then Exit Sub
+ My.Settings.Save()
+ DEBUG = True
+ MyLogger.Debug = True
+ Create_Report(txtDocID.Text, 1)
+ End Sub
+
+ Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs)
+ Dim report As New RpStampTable()
+ report.ReportPrintOptions.PrintOnEmptyDataSource = False
+ report.FilterString = "DocID = " + txtDocID.Text
+ 'report.DocID.Value = txtDocID.Text
+ 'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
+ report.CreateDocument(False)
+ If DEBUG = True Then
+ DocumentViewer1.DocumentSource = report
+ End If
+ End Sub
+
+ Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
+ Dim report As New RptStampIcon()
+ report.ReportPrintOptions.PrintOnEmptyDataSource = False
+ report.FilterString = "DocID = " + txtDocID.Text
+ 'report.DocID.Value = txtDocID.Text
+ 'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
+ report.CreateDocument(False)
+ If DEBUG = True Then
+ DocumentViewer1.DocumentSource = report
+ End If
+ End Sub
+End Class
diff --git a/WISAG_PM_REPORT/My Project/Application.Designer.vb b/WISAG_PM_REPORT/My Project/Application.Designer.vb
new file mode 100644
index 0000000..616998d
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/Application.Designer.vb
@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.42000
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
+ ' or if you encounter build errors in this file, go to the Project Designer
+ ' (go to Project Properties or double-click the My Project node in
+ ' Solution Explorer), and make changes on the Application tab.
+ '
+ Partial Friend Class MyApplication
+
+ _
+ Public Sub New()
+ MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+ Me.IsSingleInstance = false
+ Me.EnableVisualStyles = true
+ Me.SaveMySettingsOnExit = true
+ Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+ End Sub
+
+ _
+ Protected Overrides Sub OnCreateMainForm()
+ Me.MainForm = Global.WISAG_PM_REPORT.Form1
+ End Sub
+ End Class
+End Namespace
diff --git a/WISAG_PM_REPORT/My Project/Application.myapp b/WISAG_PM_REPORT/My Project/Application.myapp
new file mode 100644
index 0000000..1243847
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/Application.myapp
@@ -0,0 +1,11 @@
+
+
+ true
+ Form1
+ false
+ 0
+ true
+ 0
+ 0
+ true
+
diff --git a/WISAG_PM_REPORT/My Project/AssemblyInfo.vb b/WISAG_PM_REPORT/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..080c156
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+
+
+
+
+
+
+
+
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+' Hauptversion
+' Nebenversion
+' Buildnummer
+' Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' übernehmen, indem Sie "*" eingeben:
+'
+
+
+
diff --git a/WISAG_PM_REPORT/My Project/Resources.Designer.vb b/WISAG_PM_REPORT/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..80ce796
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/Resources.Designer.vb
@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.42000
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''
+ _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''
+ _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("WISAG_PM_REPORT.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''
+ _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set(ByVal value As Global.System.Globalization.CultureInfo)
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/WISAG_PM_REPORT/My Project/Resources.resx b/WISAG_PM_REPORT/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/Resources.resx
@@ -0,0 +1,117 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/WISAG_PM_REPORT/My Project/Settings.Designer.vb b/WISAG_PM_REPORT/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..a1875f1
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/Settings.Designer.vb
@@ -0,0 +1,184 @@
+'------------------------------------------------------------------------------
+'
+' Dieser Code wurde von einem Tool generiert.
+' Laufzeitversion:4.0.30319.42000
+'
+' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+' der Code erneut generiert wird.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ _
+ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+
+ _
+ Public Property MyDocID() As String
+ Get
+ Return CType(Me("MyDocID"),String)
+ End Get
+ Set
+ Me("MyDocID") = value
+ End Set
+ End Property
+
+ _
+ Public ReadOnly Property MySSConnectionString() As String
+ Get
+ Return CType(Me("MySSConnectionString"),String)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CONF_SQLSERVER() As String
+ Get
+ Return CType(Me("CONF_SQLSERVER"),String)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CONCAT_TEMPFolder() As String
+ Get
+ Return CType(Me("CONCAT_TEMPFolder"),String)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property oSQLGetDocId() As String
+ Get
+ Return CType(Me("oSQLGetDocId"),String)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Path2PDFTK() As String
+ Get
+ Return CType(Me("Path2PDFTK"),String)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Concatted_File_Suffix() As String
+ Get
+ Return CType(Me("Concatted_File_Suffix"),String)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Path_ConcattedFile() As String
+ Get
+ Return CType(Me("Path_ConcattedFile"),String)
+ End Get
+ End Property
+
+ _
+ Public Property PDFTK_TEST() As String
+ Get
+ Return CType(Me("PDFTK_TEST"),String)
+ End Get
+ Set
+ Me("PDFTK_TEST") = value
+ End Set
+ End Property
+
+ _
+ Public ReadOnly Property XDistance() As Integer
+ Get
+ Return CType(Me("XDistance"),Integer)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property YDistance() As Integer
+ Get
+ Return CType(Me("YDistance"),Integer)
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ _
+ Friend Module MySettingsProperty
+
+ _
+ Friend ReadOnly Property Settings() As Global.WISAG_PM_REPORT.My.MySettings
+ Get
+ Return Global.WISAG_PM_REPORT.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/WISAG_PM_REPORT/My Project/Settings.settings b/WISAG_PM_REPORT/My Project/Settings.settings
new file mode 100644
index 0000000..7dfd0bc
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/Settings.settings
@@ -0,0 +1,44 @@
+
+
+
+
+
+
+
+
+ <?xml version="1.0" encoding="utf-16"?>
+<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString>
+ <ProviderName>System.Data.SqlClient</ProviderName>
+</SerializableConnectionString>
+ Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd
+
+
+ Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd
+
+
+ \\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\GDP\TEMP
+
+
+ select DISTINCT DOC_ID from VWCUST_RPTPM_UNION WHERE DOC_ID NOT IN (SELECT DocID FROM TBCUST_PM_RPT_CREATED)
+
+
+ T:\Software\Anwendungen - Portable\Grafik-Programme\PDFTKCommand\pdftk.exe
+
+
+ _CC
+
+
+ \\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\GDP
+
+
+
+
+
+ 380
+
+
+ 720
+
+
+
\ No newline at end of file
diff --git a/WISAG_PM_REPORT/My Project/licenses.licx b/WISAG_PM_REPORT/My Project/licenses.licx
new file mode 100644
index 0000000..7a41ac2
--- /dev/null
+++ b/WISAG_PM_REPORT/My Project/licenses.licx
@@ -0,0 +1,3 @@
+DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraPrinting.Preview.DocumentViewer, DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
diff --git a/WISAG_PM_REPORT/MyDataset.Designer.vb b/WISAG_PM_REPORT/MyDataset.Designer.vb
new file mode 100644
index 0000000..f85e864
--- /dev/null
+++ b/WISAG_PM_REPORT/MyDataset.Designer.vb
@@ -0,0 +1,4780 @@
+'------------------------------------------------------------------------------
+'
+' Dieser Code wurde von einem Tool generiert.
+' Laufzeitversion:4.0.30319.42000
+'
+' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+' der Code erneut generiert wird.
+'
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+
+
+'''
+'''Represents a strongly typed in-memory cache of data.
+'''
+ _
+Partial Public Class MyDataset
+ Inherits Global.System.Data.DataSet
+
+ Private tableVWCUST_RPTPM_UNION As VWCUST_RPTPM_UNIONDataTable
+
+ Private tableVWCUST_RPTPM_UNION1 As VWCUST_RPTPM_UNION1DataTable
+
+ Private tableVWCUST_RPTPM_INV_RPT_STAMP As VWCUST_RPTPM_INV_RPT_STAMPDataTable
+
+ Private tableVWCUST_STAMP As VWCUST_STAMPDataTable
+
+ Private tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable
+
+ Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.BeginInit
+ Me.InitClass
+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+ AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
+ Me.EndInit
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context, false)
+ If (Me.IsBinarySerialized(info, context) = true) Then
+ Me.InitVars(false)
+ Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
+ Return
+ End If
+ Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
+ If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+ ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+ If (Not (ds.Tables("VWCUST_RPTPM_UNION")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_RPTPM_UNIONDataTable(ds.Tables("VWCUST_RPTPM_UNION")))
+ End If
+ If (Not (ds.Tables("VWCUST_RPTPM_UNION1")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_RPTPM_UNION1DataTable(ds.Tables("VWCUST_RPTPM_UNION1")))
+ End If
+ If (Not (ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_RPTPM_INV_RPT_STAMPDataTable(ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")))
+ End If
+ If (Not (ds.Tables("VWCUST_STAMP")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_STAMPDataTable(ds.Tables("VWCUST_STAMP")))
+ End If
+ If (Not (ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")) Is Nothing) Then
+ MyBase.Tables.Add(New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable(ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")))
+ End If
+ Me.DataSetName = ds.DataSetName
+ Me.Prefix = ds.Prefix
+ Me.Namespace = ds.Namespace
+ Me.Locale = ds.Locale
+ Me.CaseSensitive = ds.CaseSensitive
+ Me.EnforceConstraints = ds.EnforceConstraints
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
+ Else
+ Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+ End If
+ Me.GetSerializationData(info, context)
+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
+ End Sub
+
+ _
+ Public ReadOnly Property VWCUST_RPTPM_UNION() As VWCUST_RPTPM_UNIONDataTable
+ Get
+ Return Me.tableVWCUST_RPTPM_UNION
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWCUST_RPTPM_UNION1() As VWCUST_RPTPM_UNION1DataTable
+ Get
+ Return Me.tableVWCUST_RPTPM_UNION1
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWCUST_RPTPM_INV_RPT_STAMP() As VWCUST_RPTPM_INV_RPT_STAMPDataTable
+ Get
+ Return Me.tableVWCUST_RPTPM_INV_RPT_STAMP
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWCUST_STAMP() As VWCUST_STAMPDataTable
+ Get
+ Return Me.tableVWCUST_STAMP
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FNCUST_PM_GET_RPT_STAMP_FOR_DocID() As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable
+ Get
+ Return Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID
+ End Get
+ End Property
+
+ _
+ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
+ Get
+ Return Me._schemaSerializationMode
+ End Get
+ Set
+ Me._schemaSerializationMode = value
+ End Set
+ End Property
+
+ _
+ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
+ Get
+ Return MyBase.Tables
+ End Get
+ End Property
+
+ _
+ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
+ Get
+ Return MyBase.Relations
+ End Get
+ End Property
+
+ _
+ Protected Overrides Sub InitializeDerivedDataSet()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataSet
+ Dim cln As MyDataset = CType(MyBase.Clone,MyDataset)
+ cln.InitVars
+ cln.SchemaSerializationMode = Me.SchemaSerializationMode
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function ShouldSerializeTables() As Boolean
+ Return false
+ End Function
+
+ _
+ Protected Overrides Function ShouldSerializeRelations() As Boolean
+ Return false
+ End Function
+
+ _
+ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
+ If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
+ Me.Reset
+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+ ds.ReadXml(reader)
+ If (Not (ds.Tables("VWCUST_RPTPM_UNION")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_RPTPM_UNIONDataTable(ds.Tables("VWCUST_RPTPM_UNION")))
+ End If
+ If (Not (ds.Tables("VWCUST_RPTPM_UNION1")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_RPTPM_UNION1DataTable(ds.Tables("VWCUST_RPTPM_UNION1")))
+ End If
+ If (Not (ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_RPTPM_INV_RPT_STAMPDataTable(ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")))
+ End If
+ If (Not (ds.Tables("VWCUST_STAMP")) Is Nothing) Then
+ MyBase.Tables.Add(New VWCUST_STAMPDataTable(ds.Tables("VWCUST_STAMP")))
+ End If
+ If (Not (ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")) Is Nothing) Then
+ MyBase.Tables.Add(New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable(ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")))
+ End If
+ Me.DataSetName = ds.DataSetName
+ Me.Prefix = ds.Prefix
+ Me.Namespace = ds.Namespace
+ Me.Locale = ds.Locale
+ Me.CaseSensitive = ds.CaseSensitive
+ Me.EnforceConstraints = ds.EnforceConstraints
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
+ Else
+ Me.ReadXml(reader)
+ Me.InitVars
+ End If
+ End Sub
+
+ _
+ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
+ Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
+ stream.Position = 0
+ Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
+ End Function
+
+ _
+ Friend Overloads Sub InitVars()
+ Me.InitVars(true)
+ End Sub
+
+ _
+ Friend Overloads Sub InitVars(ByVal initTable As Boolean)
+ Me.tableVWCUST_RPTPM_UNION = CType(MyBase.Tables("VWCUST_RPTPM_UNION"),VWCUST_RPTPM_UNIONDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWCUST_RPTPM_UNION) Is Nothing) Then
+ Me.tableVWCUST_RPTPM_UNION.InitVars
+ End If
+ End If
+ Me.tableVWCUST_RPTPM_UNION1 = CType(MyBase.Tables("VWCUST_RPTPM_UNION1"),VWCUST_RPTPM_UNION1DataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWCUST_RPTPM_UNION1) Is Nothing) Then
+ Me.tableVWCUST_RPTPM_UNION1.InitVars
+ End If
+ End If
+ Me.tableVWCUST_RPTPM_INV_RPT_STAMP = CType(MyBase.Tables("VWCUST_RPTPM_INV_RPT_STAMP"),VWCUST_RPTPM_INV_RPT_STAMPDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWCUST_RPTPM_INV_RPT_STAMP) Is Nothing) Then
+ Me.tableVWCUST_RPTPM_INV_RPT_STAMP.InitVars
+ End If
+ End If
+ Me.tableVWCUST_STAMP = CType(MyBase.Tables("VWCUST_STAMP"),VWCUST_STAMPDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWCUST_STAMP) Is Nothing) Then
+ Me.tableVWCUST_STAMP.InitVars
+ End If
+ End If
+ Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID = CType(MyBase.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID"),FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID) Is Nothing) Then
+ Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID.InitVars
+ End If
+ End If
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.DataSetName = "MyDataset"
+ Me.Prefix = ""
+ Me.Namespace = "http://tempuri.org/MyDataset.xsd"
+ Me.EnforceConstraints = true
+ Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
+ Me.tableVWCUST_RPTPM_UNION = New VWCUST_RPTPM_UNIONDataTable()
+ MyBase.Tables.Add(Me.tableVWCUST_RPTPM_UNION)
+ Me.tableVWCUST_RPTPM_UNION1 = New VWCUST_RPTPM_UNION1DataTable()
+ MyBase.Tables.Add(Me.tableVWCUST_RPTPM_UNION1)
+ Me.tableVWCUST_RPTPM_INV_RPT_STAMP = New VWCUST_RPTPM_INV_RPT_STAMPDataTable()
+ MyBase.Tables.Add(Me.tableVWCUST_RPTPM_INV_RPT_STAMP)
+ Me.tableVWCUST_STAMP = New VWCUST_STAMPDataTable()
+ MyBase.Tables.Add(Me.tableVWCUST_STAMP)
+ Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID = New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable()
+ MyBase.Tables.Add(Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID)
+ End Sub
+
+ _
+ Private Function ShouldSerializeVWCUST_RPTPM_UNION() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWCUST_RPTPM_UNION1() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWCUST_RPTPM_INV_RPT_STAMP() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWCUST_STAMP() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeFNCUST_PM_GET_RPT_STAMP_FOR_DocID() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
+ If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
+ Me.InitVars
+ End If
+ End Sub
+
+ _
+ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim ds As MyDataset = New MyDataset()
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any.Namespace = ds.Namespace
+ sequence.Items.Add(any)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+
+ _
+ Public Delegate Sub VWCUST_RPTPM_UNIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_RPTPM_UNIONRowChangeEvent)
+
+ _
+ Public Delegate Sub VWCUST_RPTPM_UNION1RowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_RPTPM_UNION1RowChangeEvent)
+
+ _
+ Public Delegate Sub VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent)
+
+ _
+ Public Delegate Sub VWCUST_STAMPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_STAMPRowChangeEvent)
+
+ _
+ Public Delegate Sub FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler(ByVal sender As Object, ByVal e As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent)
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class VWCUST_RPTPM_UNIONDataTable
+ Inherits Global.System.Data.TypedTableBase(Of VWCUST_RPTPM_UNIONRow)
+
+ Private columnGroupTypeID As Global.System.Data.DataColumn
+
+ Private columnGroupType As Global.System.Data.DataColumn
+
+ Private columnDOC_ID As Global.System.Data.DataColumn
+
+ Private columnKreditorNummer As Global.System.Data.DataColumn
+
+ Private columnKreditorName_Lang As Global.System.Data.DataColumn
+
+ Private columnKreditorName As Global.System.Data.DataColumn
+
+ Private columnRechnungNr As Global.System.Data.DataColumn
+
+ Private columnReferenz As Global.System.Data.DataColumn
+
+ Private columnNettobetrag As Global.System.Data.DataColumn
+
+ Private columnBruttobetrag As Global.System.Data.DataColumn
+
+ Private columnZahlungsziel As Global.System.Data.DataColumn
+
+ Private columnMandant As Global.System.Data.DataColumn
+
+ Private columnMandant_Name As Global.System.Data.DataColumn
+
+ Private columnKostenstelle As Global.System.Data.DataColumn
+
+ Private columnErhalten_wann As Global.System.Data.DataColumn
+
+ Private columnBelegdatum As Global.System.Data.DataColumn
+
+ Private columnFG_Email As Global.System.Data.DataColumn
+
+ Private columnFG_Freigabe As Global.System.Data.DataColumn
+
+ Private columnFG_Wann As Global.System.Data.DataColumn
+
+ Private columnWHO As Global.System.Data.DataColumn
+
+ Private columnWHEN As Global.System.Data.DataColumn
+
+ Private columnDELEGATION As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "VWCUST_RPTPM_UNION"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property GroupTypeIDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnGroupTypeID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property GroupTypeColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnGroupType
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DOC_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDOC_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KreditorNummerColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKreditorNummer
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KreditorName_LangColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKreditorName_Lang
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KreditorNameColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKreditorName
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property RechnungNrColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnRechnungNr
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ReferenzColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnReferenz
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property NettobetragColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnNettobetrag
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property BruttobetragColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnBruttobetrag
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ZahlungszielColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnZahlungsziel
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnMandant
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Mandant_NameColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnMandant_Name
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KostenstelleColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKostenstelle
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Erhalten_wannColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnErhalten_wann
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnBelegdatum
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FG_EmailColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFG_Email
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FG_FreigabeColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFG_Freigabe
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FG_WannColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFG_Wann
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WHOColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWHO
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WHENColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWHEN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DELEGATIONColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDELEGATION
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_RPTPM_UNIONRow
+ Get
+ Return CType(Me.Rows(index),VWCUST_RPTPM_UNIONRow)
+ End Get
+ End Property
+
+ _
+ Public Event VWCUST_RPTPM_UNIONRowChanging As VWCUST_RPTPM_UNIONRowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_UNIONRowChanged As VWCUST_RPTPM_UNIONRowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_UNIONRowDeleting As VWCUST_RPTPM_UNIONRowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_UNIONRowDeleted As VWCUST_RPTPM_UNIONRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddVWCUST_RPTPM_UNIONRow(ByVal row As VWCUST_RPTPM_UNIONRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddVWCUST_RPTPM_UNIONRow( _
+ ByVal GroupTypeID As Integer, _
+ ByVal GroupType As String, _
+ ByVal DOC_ID As Long, _
+ ByVal KreditorNummer As String, _
+ ByVal KreditorName_Lang As String, _
+ ByVal KreditorName As String, _
+ ByVal RechnungNr As String, _
+ ByVal Referenz As String, _
+ ByVal Nettobetrag As String, _
+ ByVal Bruttobetrag As String, _
+ ByVal Zahlungsziel As String, _
+ ByVal Mandant As String, _
+ ByVal Mandant_Name As String, _
+ ByVal Kostenstelle As String, _
+ ByVal Erhalten_wann As String, _
+ ByVal Belegdatum As String, _
+ ByVal FG_Email As String, _
+ ByVal FG_Freigabe As String, _
+ ByVal FG_Wann As String, _
+ ByVal WHO As String, _
+ ByVal _WHEN As String, _
+ ByVal DELEGATION As String) As VWCUST_RPTPM_UNIONRow
+ Dim rowVWCUST_RPTPM_UNIONRow As VWCUST_RPTPM_UNIONRow = CType(Me.NewRow,VWCUST_RPTPM_UNIONRow)
+ Dim columnValuesArray() As Object = New Object() {GroupTypeID, GroupType, DOC_ID, KreditorNummer, KreditorName_Lang, KreditorName, RechnungNr, Referenz, Nettobetrag, Bruttobetrag, Zahlungsziel, Mandant, Mandant_Name, Kostenstelle, Erhalten_wann, Belegdatum, FG_Email, FG_Freigabe, FG_Wann, WHO, _WHEN, DELEGATION}
+ rowVWCUST_RPTPM_UNIONRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowVWCUST_RPTPM_UNIONRow)
+ Return rowVWCUST_RPTPM_UNIONRow
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As VWCUST_RPTPM_UNIONDataTable = CType(MyBase.Clone,VWCUST_RPTPM_UNIONDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New VWCUST_RPTPM_UNIONDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnGroupTypeID = MyBase.Columns("GroupTypeID")
+ Me.columnGroupType = MyBase.Columns("GroupType")
+ Me.columnDOC_ID = MyBase.Columns("DOC_ID")
+ Me.columnKreditorNummer = MyBase.Columns("KreditorNummer")
+ Me.columnKreditorName_Lang = MyBase.Columns("KreditorName_Lang")
+ Me.columnKreditorName = MyBase.Columns("KreditorName")
+ Me.columnRechnungNr = MyBase.Columns("RechnungNr")
+ Me.columnReferenz = MyBase.Columns("Referenz")
+ Me.columnNettobetrag = MyBase.Columns("Nettobetrag")
+ Me.columnBruttobetrag = MyBase.Columns("Bruttobetrag")
+ Me.columnZahlungsziel = MyBase.Columns("Zahlungsziel")
+ Me.columnMandant = MyBase.Columns("Mandant")
+ Me.columnMandant_Name = MyBase.Columns("Mandant Name")
+ Me.columnKostenstelle = MyBase.Columns("Kostenstelle")
+ Me.columnErhalten_wann = MyBase.Columns("Erhalten wann")
+ Me.columnBelegdatum = MyBase.Columns("Belegdatum")
+ Me.columnFG_Email = MyBase.Columns("FG_Email")
+ Me.columnFG_Freigabe = MyBase.Columns("FG_Freigabe")
+ Me.columnFG_Wann = MyBase.Columns("FG_Wann")
+ Me.columnWHO = MyBase.Columns("WHO")
+ Me.columnWHEN = MyBase.Columns("WHEN")
+ Me.columnDELEGATION = MyBase.Columns("DELEGATION")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnGroupTypeID = New Global.System.Data.DataColumn("GroupTypeID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnGroupTypeID)
+ Me.columnGroupType = New Global.System.Data.DataColumn("GroupType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnGroupType)
+ Me.columnDOC_ID = New Global.System.Data.DataColumn("DOC_ID", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDOC_ID)
+ Me.columnKreditorNummer = New Global.System.Data.DataColumn("KreditorNummer", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKreditorNummer)
+ Me.columnKreditorName_Lang = New Global.System.Data.DataColumn("KreditorName_Lang", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKreditorName_Lang)
+ Me.columnKreditorName = New Global.System.Data.DataColumn("KreditorName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKreditorName)
+ Me.columnRechnungNr = New Global.System.Data.DataColumn("RechnungNr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnRechnungNr)
+ Me.columnReferenz = New Global.System.Data.DataColumn("Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnReferenz)
+ Me.columnNettobetrag = New Global.System.Data.DataColumn("Nettobetrag", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnNettobetrag)
+ Me.columnBruttobetrag = New Global.System.Data.DataColumn("Bruttobetrag", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnBruttobetrag)
+ Me.columnZahlungsziel = New Global.System.Data.DataColumn("Zahlungsziel", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnZahlungsziel)
+ Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnMandant)
+ Me.columnMandant_Name = New Global.System.Data.DataColumn("Mandant Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnMandant_Name)
+ Me.columnKostenstelle = New Global.System.Data.DataColumn("Kostenstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKostenstelle)
+ Me.columnErhalten_wann = New Global.System.Data.DataColumn("Erhalten wann", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnErhalten_wann)
+ Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnBelegdatum)
+ Me.columnFG_Email = New Global.System.Data.DataColumn("FG_Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFG_Email)
+ Me.columnFG_Freigabe = New Global.System.Data.DataColumn("FG_Freigabe", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFG_Freigabe)
+ Me.columnFG_Wann = New Global.System.Data.DataColumn("FG_Wann", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFG_Wann)
+ Me.columnWHO = New Global.System.Data.DataColumn("WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWHO)
+ Me.columnWHEN = New Global.System.Data.DataColumn("WHEN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ Me.columnWHEN.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "WHENColumn")
+ Me.columnWHEN.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnWHEN")
+ Me.columnWHEN.ExtendedProperties.Add("Generator_UserColumnName", "WHEN")
+ MyBase.Columns.Add(Me.columnWHEN)
+ Me.columnDELEGATION = New Global.System.Data.DataColumn("DELEGATION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDELEGATION)
+ Me.columnGroupTypeID.AllowDBNull = false
+ Me.columnGroupType.AllowDBNull = false
+ Me.columnGroupType.MaxLength = 250
+ Me.columnKreditorNummer.MaxLength = 255
+ Me.columnKreditorName_Lang.MaxLength = 255
+ Me.columnKreditorName.MaxLength = 255
+ Me.columnRechnungNr.MaxLength = 128
+ Me.columnReferenz.MaxLength = 512
+ Me.columnNettobetrag.MaxLength = 30
+ Me.columnBruttobetrag.MaxLength = 30
+ Me.columnZahlungsziel.MaxLength = 30
+ Me.columnMandant.MaxLength = 128
+ Me.columnMandant_Name.MaxLength = 64
+ Me.columnKostenstelle.MaxLength = 128
+ Me.columnErhalten_wann.MaxLength = 30
+ Me.columnBelegdatum.MaxLength = 30
+ Me.columnFG_Email.MaxLength = 2147483647
+ Me.columnFG_Freigabe.MaxLength = 2147483647
+ Me.columnFG_Wann.MaxLength = 2147483647
+ Me.columnWHO.AllowDBNull = false
+ Me.columnWHO.MaxLength = 100
+ Me.columnWHEN.AllowDBNull = false
+ Me.columnWHEN.MaxLength = 19
+ Me.columnDELEGATION.AllowDBNull = false
+ Me.columnDELEGATION.MaxLength = 250
+ End Sub
+
+ _
+ Public Function NewVWCUST_RPTPM_UNIONRow() As VWCUST_RPTPM_UNIONRow
+ Return CType(Me.NewRow,VWCUST_RPTPM_UNIONRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New VWCUST_RPTPM_UNIONRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(VWCUST_RPTPM_UNIONRow)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.VWCUST_RPTPM_UNIONRowChangedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNIONRowChanged(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.VWCUST_RPTPM_UNIONRowChangingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNIONRowChanging(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.VWCUST_RPTPM_UNIONRowDeletedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNIONRowDeleted(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.VWCUST_RPTPM_UNIONRowDeletingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNIONRowDeleting(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveVWCUST_RPTPM_UNIONRow(ByVal row As VWCUST_RPTPM_UNIONRow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As MyDataset = New MyDataset()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "VWCUST_RPTPM_UNIONDataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class VWCUST_RPTPM_UNION1DataTable
+ Inherits Global.System.Data.TypedTableBase(Of VWCUST_RPTPM_UNION1Row)
+
+ Private columnFG_TYP As Global.System.Data.DataColumn
+
+ Private columnDocID As Global.System.Data.DataColumn
+
+ Private columnEmail As Global.System.Data.DataColumn
+
+ Private columnFreigabe As Global.System.Data.DataColumn
+
+ Private columnWann As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "VWCUST_RPTPM_UNION1"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property FG_TYPColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFG_TYP
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDocID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnEmail
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FreigabeColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFreigabe
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WannColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWann
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_RPTPM_UNION1Row
+ Get
+ Return CType(Me.Rows(index),VWCUST_RPTPM_UNION1Row)
+ End Get
+ End Property
+
+ _
+ Public Event VWCUST_RPTPM_UNION1RowChanging As VWCUST_RPTPM_UNION1RowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_UNION1RowChanged As VWCUST_RPTPM_UNION1RowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_UNION1RowDeleting As VWCUST_RPTPM_UNION1RowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_UNION1RowDeleted As VWCUST_RPTPM_UNION1RowChangeEventHandler
+
+ _
+ Public Overloads Sub AddVWCUST_RPTPM_UNION1Row(ByVal row As VWCUST_RPTPM_UNION1Row)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddVWCUST_RPTPM_UNION1Row(ByVal FG_TYP As String, ByVal DocID As Integer, ByVal Email As String, ByVal Freigabe As String, ByVal Wann As Date) As VWCUST_RPTPM_UNION1Row
+ Dim rowVWCUST_RPTPM_UNION1Row As VWCUST_RPTPM_UNION1Row = CType(Me.NewRow,VWCUST_RPTPM_UNION1Row)
+ Dim columnValuesArray() As Object = New Object() {FG_TYP, DocID, Email, Freigabe, Wann}
+ rowVWCUST_RPTPM_UNION1Row.ItemArray = columnValuesArray
+ Me.Rows.Add(rowVWCUST_RPTPM_UNION1Row)
+ Return rowVWCUST_RPTPM_UNION1Row
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As VWCUST_RPTPM_UNION1DataTable = CType(MyBase.Clone,VWCUST_RPTPM_UNION1DataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New VWCUST_RPTPM_UNION1DataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnFG_TYP = MyBase.Columns("FG_TYP")
+ Me.columnDocID = MyBase.Columns("DocID")
+ Me.columnEmail = MyBase.Columns("Email")
+ Me.columnFreigabe = MyBase.Columns("Freigabe")
+ Me.columnWann = MyBase.Columns("Wann")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnFG_TYP = New Global.System.Data.DataColumn("FG_TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFG_TYP)
+ Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDocID)
+ Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnEmail)
+ Me.columnFreigabe = New Global.System.Data.DataColumn("Freigabe", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFreigabe)
+ Me.columnWann = New Global.System.Data.DataColumn("Wann", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWann)
+ Me.columnFG_TYP.AllowDBNull = false
+ Me.columnFG_TYP.DefaultValue = CType("",String)
+ Me.columnFG_TYP.MaxLength = 2
+ Me.columnEmail.MaxLength = 26
+ Me.columnFreigabe.MaxLength = 2
+ End Sub
+
+ _
+ Public Function NewVWCUST_RPTPM_UNION1Row() As VWCUST_RPTPM_UNION1Row
+ Return CType(Me.NewRow,VWCUST_RPTPM_UNION1Row)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New VWCUST_RPTPM_UNION1Row(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(VWCUST_RPTPM_UNION1Row)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.VWCUST_RPTPM_UNION1RowChangedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNION1RowChanged(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.VWCUST_RPTPM_UNION1RowChangingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNION1RowChanging(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.VWCUST_RPTPM_UNION1RowDeletedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNION1RowDeleted(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.VWCUST_RPTPM_UNION1RowDeletingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_UNION1RowDeleting(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveVWCUST_RPTPM_UNION1Row(ByVal row As VWCUST_RPTPM_UNION1Row)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As MyDataset = New MyDataset()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "VWCUST_RPTPM_UNION1DataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class VWCUST_RPTPM_INV_RPT_STAMPDataTable
+ Inherits Global.System.Data.TypedTableBase(Of VWCUST_RPTPM_INV_RPT_STAMPRow)
+
+ Private columnSTATE As Global.System.Data.DataColumn
+
+ Private columnWHO As Global.System.Data.DataColumn
+
+ Private columnDocID As Global.System.Data.DataColumn
+
+ Private columnCREATED_WHEN As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "VWCUST_RPTPM_INV_RPT_STAMP"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSTATE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WHOColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWHO
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDocID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCREATED_WHEN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_RPTPM_INV_RPT_STAMPRow
+ Get
+ Return CType(Me.Rows(index),VWCUST_RPTPM_INV_RPT_STAMPRow)
+ End Get
+ End Property
+
+ _
+ Public Event VWCUST_RPTPM_INV_RPT_STAMPRowChanging As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_INV_RPT_STAMPRowChanged As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_INV_RPT_STAMPRowDeleting As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
+
+ _
+ Public Event VWCUST_RPTPM_INV_RPT_STAMPRowDeleted As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddVWCUST_RPTPM_INV_RPT_STAMPRow(ByVal row As VWCUST_RPTPM_INV_RPT_STAMPRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddVWCUST_RPTPM_INV_RPT_STAMPRow(ByVal STATE As String, ByVal WHO As String, ByVal DocID As Long, ByVal CREATED_WHEN As Date) As VWCUST_RPTPM_INV_RPT_STAMPRow
+ Dim rowVWCUST_RPTPM_INV_RPT_STAMPRow As VWCUST_RPTPM_INV_RPT_STAMPRow = CType(Me.NewRow,VWCUST_RPTPM_INV_RPT_STAMPRow)
+ Dim columnValuesArray() As Object = New Object() {STATE, WHO, DocID, CREATED_WHEN}
+ rowVWCUST_RPTPM_INV_RPT_STAMPRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowVWCUST_RPTPM_INV_RPT_STAMPRow)
+ Return rowVWCUST_RPTPM_INV_RPT_STAMPRow
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As VWCUST_RPTPM_INV_RPT_STAMPDataTable = CType(MyBase.Clone,VWCUST_RPTPM_INV_RPT_STAMPDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New VWCUST_RPTPM_INV_RPT_STAMPDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnSTATE = MyBase.Columns("STATE")
+ Me.columnWHO = MyBase.Columns("WHO")
+ Me.columnDocID = MyBase.Columns("DocID")
+ Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSTATE)
+ Me.columnWHO = New Global.System.Data.DataColumn("WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWHO)
+ Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDocID)
+ Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCREATED_WHEN)
+ Me.columnSTATE.MaxLength = 20
+ Me.columnWHO.MaxLength = 100
+ End Sub
+
+ _
+ Public Function NewVWCUST_RPTPM_INV_RPT_STAMPRow() As VWCUST_RPTPM_INV_RPT_STAMPRow
+ Return CType(Me.NewRow,VWCUST_RPTPM_INV_RPT_STAMPRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New VWCUST_RPTPM_INV_RPT_STAMPRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(VWCUST_RPTPM_INV_RPT_STAMPRow)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowChangedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowChanged(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowChangingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowChanging(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowDeletedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowDeleted(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowDeletingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowDeleting(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveVWCUST_RPTPM_INV_RPT_STAMPRow(ByVal row As VWCUST_RPTPM_INV_RPT_STAMPRow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As MyDataset = New MyDataset()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "VWCUST_RPTPM_INV_RPT_STAMPDataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class VWCUST_STAMPDataTable
+ Inherits Global.System.Data.TypedTableBase(Of VWCUST_STAMPRow)
+
+ Private columnFG_TYP As Global.System.Data.DataColumn
+
+ Private columnDocID As Global.System.Data.DataColumn
+
+ Private columnEmail As Global.System.Data.DataColumn
+
+ Private columnFreigabe As Global.System.Data.DataColumn
+
+ Private columnWann As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "VWCUST_STAMP"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property FG_TYPColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFG_TYP
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDocID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnEmail
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FreigabeColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFreigabe
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WannColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWann
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_STAMPRow
+ Get
+ Return CType(Me.Rows(index),VWCUST_STAMPRow)
+ End Get
+ End Property
+
+ _
+ Public Event VWCUST_STAMPRowChanging As VWCUST_STAMPRowChangeEventHandler
+
+ _
+ Public Event VWCUST_STAMPRowChanged As VWCUST_STAMPRowChangeEventHandler
+
+ _
+ Public Event VWCUST_STAMPRowDeleting As VWCUST_STAMPRowChangeEventHandler
+
+ _
+ Public Event VWCUST_STAMPRowDeleted As VWCUST_STAMPRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddVWCUST_STAMPRow(ByVal row As VWCUST_STAMPRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddVWCUST_STAMPRow(ByVal FG_TYP As String, ByVal DocID As Integer, ByVal Email As String, ByVal Freigabe As String, ByVal Wann As Date) As VWCUST_STAMPRow
+ Dim rowVWCUST_STAMPRow As VWCUST_STAMPRow = CType(Me.NewRow,VWCUST_STAMPRow)
+ Dim columnValuesArray() As Object = New Object() {FG_TYP, DocID, Email, Freigabe, Wann}
+ rowVWCUST_STAMPRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowVWCUST_STAMPRow)
+ Return rowVWCUST_STAMPRow
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As VWCUST_STAMPDataTable = CType(MyBase.Clone,VWCUST_STAMPDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New VWCUST_STAMPDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnFG_TYP = MyBase.Columns("FG_TYP")
+ Me.columnDocID = MyBase.Columns("DocID")
+ Me.columnEmail = MyBase.Columns("Email")
+ Me.columnFreigabe = MyBase.Columns("Freigabe")
+ Me.columnWann = MyBase.Columns("Wann")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnFG_TYP = New Global.System.Data.DataColumn("FG_TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFG_TYP)
+ Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDocID)
+ Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnEmail)
+ Me.columnFreigabe = New Global.System.Data.DataColumn("Freigabe", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFreigabe)
+ Me.columnWann = New Global.System.Data.DataColumn("Wann", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWann)
+ Me.columnFG_TYP.AllowDBNull = false
+ Me.columnFG_TYP.MaxLength = 2
+ Me.columnDocID.AllowDBNull = false
+ Me.columnEmail.AllowDBNull = false
+ Me.columnEmail.MaxLength = 26
+ Me.columnFreigabe.MaxLength = 2
+ End Sub
+
+ _
+ Public Function NewVWCUST_STAMPRow() As VWCUST_STAMPRow
+ Return CType(Me.NewRow,VWCUST_STAMPRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New VWCUST_STAMPRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(VWCUST_STAMPRow)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.VWCUST_STAMPRowChangedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_STAMPRowChanged(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.VWCUST_STAMPRowChangingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_STAMPRowChanging(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.VWCUST_STAMPRowDeletedEvent) Is Nothing) Then
+ RaiseEvent VWCUST_STAMPRowDeleted(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.VWCUST_STAMPRowDeletingEvent) Is Nothing) Then
+ RaiseEvent VWCUST_STAMPRowDeleting(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveVWCUST_STAMPRow(ByVal row As VWCUST_STAMPRow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As MyDataset = New MyDataset()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "VWCUST_STAMPDataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable
+ Inherits Global.System.Data.TypedTableBase(Of FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+
+ Private columnDocID As Global.System.Data.DataColumn
+
+ Private columnSTATE As Global.System.Data.DataColumn
+
+ Private columnWHO As Global.System.Data.DataColumn
+
+ Private columnCREATED_WHEN As Global.System.Data.DataColumn
+
+ Private columnCOMMENT As Global.System.Data.DataColumn
+
+ Private columnSequentialOrder As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "FNCUST_PM_GET_RPT_STAMP_FOR_DocID"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDocID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSTATE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WHOColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWHO
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCREATED_WHEN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCOMMENT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property SequentialOrderColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSequentialOrder
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
+ Get
+ Return CType(Me.Rows(index),FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+ End Get
+ End Property
+
+ _
+ Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanging As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
+
+ _
+ Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanged As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
+
+ _
+ Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleting As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
+
+ _
+ Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleted As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(ByVal row As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(ByVal DocID As Long, ByVal STATE As String, ByVal WHO As String, ByVal CREATED_WHEN As Date, ByVal COMMENT As String) As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
+ Dim rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow = CType(Me.NewRow,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+ Dim columnValuesArray() As Object = New Object() {DocID, STATE, WHO, CREATED_WHEN, COMMENT, Nothing}
+ rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+ Return rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable = CType(MyBase.Clone,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnDocID = MyBase.Columns("DocID")
+ Me.columnSTATE = MyBase.Columns("STATE")
+ Me.columnWHO = MyBase.Columns("WHO")
+ Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN")
+ Me.columnCOMMENT = MyBase.Columns("COMMENT")
+ Me.columnSequentialOrder = MyBase.Columns("SequentialOrder")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDocID)
+ Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSTATE)
+ Me.columnWHO = New Global.System.Data.DataColumn("WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWHO)
+ Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCREATED_WHEN)
+ Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCOMMENT)
+ Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSequentialOrder)
+ Me.columnSTATE.MaxLength = 20
+ Me.columnWHO.MaxLength = 100
+ Me.columnCOMMENT.MaxLength = 500
+ Me.columnSequentialOrder.AutoIncrement = true
+ Me.columnSequentialOrder.AutoIncrementSeed = -1
+ Me.columnSequentialOrder.AutoIncrementStep = -1
+ Me.columnSequentialOrder.AllowDBNull = false
+ Me.columnSequentialOrder.ReadOnly = true
+ End Sub
+
+ _
+ Public Function NewFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow() As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
+ Return CType(Me.NewRow,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangedEvent) Is Nothing) Then
+ RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanged(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangingEvent) Is Nothing) Then
+ RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanging(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeletedEvent) Is Nothing) Then
+ RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleted(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeletingEvent) Is Nothing) Then
+ RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleting(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(ByVal row As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As MyDataset = New MyDataset()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
+ '''
+ '''Represents strongly named DataRow class.
+ '''
+ Partial Public Class VWCUST_RPTPM_UNIONRow
+ Inherits Global.System.Data.DataRow
+
+ Private tableVWCUST_RPTPM_UNION As VWCUST_RPTPM_UNIONDataTable
+
+ _
+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
+ MyBase.New(rb)
+ Me.tableVWCUST_RPTPM_UNION = CType(Me.Table,VWCUST_RPTPM_UNIONDataTable)
+ End Sub
+
+ _
+ Public Property GroupTypeID() As Integer
+ Get
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeIDColumn),Integer)
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeIDColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property GroupType() As String
+ Get
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeColumn),String)
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property DOC_ID() As Long
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.DOC_IDColumn),Long)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOC_ID in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.DOC_IDColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property KreditorNummer() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KreditorNummerColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KreditorNummer in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.KreditorNummerColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property KreditorName_Lang() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KreditorName_LangColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KreditorName_Lang in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.KreditorName_LangColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property KreditorName() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KreditorNameColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KreditorName in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.KreditorNameColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property RechnungNr() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.RechnungNrColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungNr in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.RechnungNrColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Referenz() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.ReferenzColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Referenz in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.ReferenzColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Nettobetrag() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.NettobetragColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettobetrag in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.NettobetragColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Bruttobetrag() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.BruttobetragColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bruttobetrag in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.BruttobetragColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Zahlungsziel() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.ZahlungszielColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.ZahlungszielColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Mandant() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.MandantColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.MandantColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Mandant_Name() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.Mandant_NameColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant Name in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.Mandant_NameColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Kostenstelle() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KostenstelleColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kostenstelle in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.KostenstelleColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Erhalten_wann() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.Erhalten_wannColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erhalten wann in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.Erhalten_wannColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property Belegdatum() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.BelegdatumColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.BelegdatumColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property FG_Email() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.FG_EmailColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FG_Email in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.FG_EmailColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property FG_Freigabe() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.FG_FreigabeColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FG_Freigabe in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.FG_FreigabeColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property FG_Wann() As String
+ Get
+ Try
+ Return CType(Me(Me.tableVWCUST_RPTPM_UNION.FG_WannColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FG_Wann in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableVWCUST_RPTPM_UNION.FG_WannColumn) = value
+ End Set
+ End Property
+
+