From 6123cba9d186c5236fe9ee6ec2766ad45f4e3fe6 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Fri, 4 Sep 2015 08:13:16 +0200 Subject: [PATCH] MS 04.09.2015 2 --- app - Kopie/DD-Record-Organiser.sln | 132 + .../DD-Record-Organiser/AboutBox1.Designer.vb | 178 + .../DD-Record-Organiser/AboutBox1.resx | 609 + app - Kopie/DD-Record-Organiser/AboutBox1.vb | 26 + app - Kopie/DD-Record-Organiser/App.config | 50 + .../ClassControlBuilder.vb | 1384 + .../ClassControlCommands.vb | 502 + .../ClassControlCommandsUI.vb | 827 + .../ClassControlProperties.vb | 532 + .../DD-Record-Organiser/ClassControlValues.vb | 393 + .../DD-Record-Organiser/ClassDatabase.vb | 206 + .../DD-Record-Organiser/ClassDragDrop.vb | 177 + app - Kopie/DD-Record-Organiser/ClassEmail.vb | 49 + .../DD-Record-Organiser/ClassEncryption.vb | 68 + .../DD-Record-Organiser/ClassFormCommands.vb | 111 + .../ClassFunctionCommands.vb | 131 + .../ClassFunctionCommandsUI.vb | 226 + .../DD-Record-Organiser/ClassHelper.vb | 78 + .../ClassImport_Windream.vb | 90 + .../DD-Record-Organiser/ClassLayout.vb | 187 + .../DD-Record-Organiser/ClassLogger.vb | 206 + .../ClassOfficeTemplate.vb | 116 + .../DD-Record-Organiser/ClassSQLEditor.vb | 61 + .../DD-Record-Organiser/ClassWindream.vb | 1593 + .../DD-Record-Organiser.vbproj | 1023 + .../DD_DMSDataSet.Designer.vb | 41642 ++++++++++++++++ .../DD-Record-Organiser/DD_DMSDataSet.vb | 8 + .../DD-Record-Organiser/DD_DMSDataSet.xsc | 277 + .../DD-Record-Organiser/DD_DMSDataSet.xsd | 4541 ++ .../DD-Record-Organiser/DD_DMSDataSet.xss | 285 + .../DD_DMSDataSet1.Designer.vb | 41141 +++++++++++++++ .../DD_DMSDataSetCalendar.Designer.vb | 3398 ++ .../DD_DMSDataSetCalendar.xsc | 9 + .../DD_DMSDataSetCalendar.xsd | 314 + .../DD_DMSDataSetCalendar.xss | 13 + .../DD_DMSDataSetMenuDesigner.Designer.vb | 3036 ++ .../DD_DMSDataSetMenuDesigner.xsc | 9 + .../DD_DMSDataSetMenuDesigner.xsd | 301 + .../DD_DMSDataSetMenuDesigner.xss | 1 + .../DD_ECMAdmin.Designer.vb | 3333 ++ .../DD-Record-Organiser/DD_ECMAdmin.xsc | 63 + .../DD-Record-Organiser/DD_ECMAdmin.xsd | 342 + .../DD-Record-Organiser/DD_ECMAdmin.xss | 26 + .../ModuleHelperMethods.vb | 263 + .../DD-Record-Organiser/ModuleMySettings.vb | 228 + .../ModuleRuntimeVariables.vb | 32 + .../My Project/Application.Designer.vb | 38 + .../My Project/Application.myapp | 10 + .../My Project/AssemblyInfo.vb | 35 + .../My Project/Resources.Designer.vb | 1353 + .../My Project/Resources.resx | 508 + .../My Project/Settings.Designer.vb | 204 + .../My Project/Settings.Settings | 44 + .../My Project/app.manifest | 58 + .../My Project/licenses.licx | 14 + .../My Project/licenses.licx.bak | 1 + .../Resources/005_Task_32x42_72.png | Bin 0 -> 1638 bytes .../112_RefreshArrow_Blue_24x24_72.png | Bin 0 -> 1139 bytes .../112_RefreshArrow_Blue_24x24_721.png | Bin 0 -> 1139 bytes .../Resources/138_PushPin_32x42_72.png | Bin 0 -> 1169 bytes .../Resources/138_PushPin_32x42_721.png | Bin 0 -> 1169 bytes .../Resources/138_PushPin_48x48_72.png | Bin 0 -> 1721 bytes .../Resources/1532_Flag_Blue.ico | Bin 0 -> 73804 bytes .../Resources/AddMark_10580.png | Bin 0 -> 175 bytes .../Resources/AddTable_5632.png | Bin 0 -> 228 bytes .../Resources/AddressEnvelope_16xLG.png | Bin 0 -> 195 bytes .../Resources/CheckBox_669.png | Bin 0 -> 229 bytes .../Resources/Checkbox.PNG | Bin 0 -> 584 bytes .../Resources/Close_16xLG.png | Bin 0 -> 206 bytes .../Resources/ComboBox_672.png | Bin 0 -> 220 bytes .../Configuredatasetwithwizard_8450.png | Bin 0 -> 314 bytes .../Resources/DateOrTimePicker_675.png | Bin 0 -> 229 bytes .../DD-Record-Organiser/Resources/Delete1.ico | Bin 0 -> 22486 bytes .../Resources/Einstellungen3.ico | Bin 0 -> 22486 bytes .../Resources/Einstellungen5.ico | Bin 0 -> 2238 bytes .../Resources/Einstellungen6.ico | Bin 0 -> 1406 bytes .../Resources/Excel_25ixel.jpg | Bin 0 -> 591 bytes .../Resources/Files_7954.png | Bin 0 -> 256 bytes .../DD-Record-Organiser/Resources/Filter.png | Bin 0 -> 3526 bytes .../Resources/FilteredObject_13400_16x.png | Bin 0 -> 261 bytes .../DD-Record-Organiser/Resources/Go.png | Bin 0 -> 3218 bytes .../Resources/GroupBox_680.png | Bin 0 -> 151 bytes .../DD-Record-Organiser/Resources/HomeHS.png | Bin 0 -> 619 bytes .../Resources/Home_5699_32.bmp | Bin 0 -> 1078 bytes .../Resources/ImageListControl_683.png | Bin 0 -> 242 bytes .../Resources/Label_684.png | Bin 0 -> 296 bytes .../DD-Record-Organiser/Resources/Link.png | Bin 0 -> 533 bytes .../Resources/ListBox_686_24.bmp | Bin 0 -> 822 bytes .../DD-Record-Organiser/Resources/Men1.ico | Bin 0 -> 1406 bytes .../DD-Record-Organiser/Resources/Men2.ico | Bin 0 -> 1406 bytes .../DD-Record-Organiser/Resources/Men3.ico | Bin 0 -> 1406 bytes .../DD-Record-Organiser/Resources/Men4.ico | Bin 0 -> 1406 bytes .../DD-Record-Organiser/Resources/Men5.ico | Bin 0 -> 1406 bytes .../DD-Record-Organiser/Resources/Men6.ico | Bin 0 -> 1406 bytes .../Resources/Monitor_Screen_16xLG.png | Bin 0 -> 179 bytes .../Resources/PropertyGridEditorPart_6041.png | Bin 0 -> 173 bytes .../Resources/Property_501.png | Bin 0 -> 292 bytes .../Resources/RadioButton_701.png | Bin 0 -> 299 bytes .../Resources/Table_748.png | Bin 0 -> 178 bytes .../Resources/Task_16xMD.png | Bin 0 -> 352 bytes .../Resources/TextBox_708.png | Bin 0 -> 207 bytes .../Resources/UserInterfaceEditor_5845.png | Bin 0 -> 290 bytes .../UserInterfaceEditor_5845_32x.png | Bin 0 -> 412 bytes .../Resources/WMI_Task_21x.png | Bin 0 -> 293 bytes .../Resources/Works Finished (nonXP).ico | Bin 0 -> 9158 bytes .../Resources/action_Cancel_16xLG.png | Bin 0 -> 517 bytes .../Resources/action_Cancel_16xLG1.png | Bin 0 -> 517 bytes .../Resources/action_add_16xLG.png | Bin 0 -> 164 bytes .../Resources/action_add_16xMD.png | Bin 0 -> 173 bytes .../DD-Record-Organiser/Resources/add.png | Bin 0 -> 733 bytes .../DD-Record-Organiser/Resources/add1.png | Bin 0 -> 331 bytes .../Resources/application_form.png | Bin 0 -> 467 bytes .../Resources/arrow_Forward_16xLG.png | Bin 0 -> 369 bytes .../Resources/arrow_Next_16xLG_color.png | Bin 0 -> 263 bytes .../Resources/arrow_left.png | Bin 0 -> 450 bytes .../Resources/arrow_refresh.png | Bin 0 -> 685 bytes .../Resources/arrow_right.png | Bin 0 -> 349 bytes .../Resources/arrow_switch.png | Bin 0 -> 683 bytes .../Resources/benutzer3.ico | Bin 0 -> 22486 bytes .../Resources/brainpool.png | Bin 0 -> 9255 bytes .../DD-Record-Organiser/Resources/brick.png | Bin 0 -> 452 bytes .../Resources/brick_go.png | Bin 0 -> 790 bytes .../DD-Record-Organiser/Resources/bricks.png | Bin 0 -> 825 bytes .../Resources/bug_edit.png | Bin 0 -> 873 bytes .../Resources/bug_edit1.png | Bin 0 -> 873 bytes .../Resources/calendar.png | Bin 0 -> 675 bytes .../Resources/calendar_add.png | Bin 0 -> 723 bytes .../DD-Record-Organiser/Resources/cmb.PNG | Bin 0 -> 669 bytes .../Resources/color_wheel.png | Bin 0 -> 892 bytes .../DD-Record-Organiser/Resources/cube.ico | Bin 0 -> 23558 bytes .../Resources/database.png | Bin 0 -> 390 bytes .../Resources/database_add.png | Bin 0 -> 658 bytes .../Resources/database_connect.png | Bin 0 -> 763 bytes .../Resources/database_delete.png | Bin 0 -> 659 bytes .../Resources/database_edit.png | Bin 0 -> 767 bytes .../Resources/database_error.png | Bin 0 -> 682 bytes .../Resources/database_gear.png | Bin 0 -> 468 bytes .../Resources/database_go.png | Bin 0 -> 698 bytes .../Resources/database_go1.png | Bin 0 -> 698 bytes .../Resources/database_key.png | Bin 0 -> 764 bytes .../Resources/database_lightning.png | Bin 0 -> 775 bytes .../Resources/database_link.png | Bin 0 -> 679 bytes .../Resources/database_refresh.png | Bin 0 -> 770 bytes .../Resources/database_save.png | Bin 0 -> 755 bytes .../Resources/database_table.png | Bin 0 -> 726 bytes .../DD-Record-Organiser/Resources/delete.png | Bin 0 -> 715 bytes .../DD-Record-Organiser/Resources/dtp.PNG | Bin 0 -> 897 bytes .../DD-Record-Organiser/Resources/dtp1.PNG | Bin 0 -> 897 bytes .../Resources/email_edit.png | Bin 0 -> 756 bytes .../DD-Record-Organiser/Resources/eye.png | Bin 0 -> 750 bytes .../DD-Record-Organiser/Resources/f1.ico | Bin 0 -> 29926 bytes .../DD-Record-Organiser/Resources/f2.ico | Bin 0 -> 29926 bytes .../DD-Record-Organiser/Resources/f3.ico | Bin 0 -> 29926 bytes .../DD-Record-Organiser/Resources/f5.ico | Bin 0 -> 29926 bytes .../DD-Record-Organiser/Resources/f6.ico | Bin 0 -> 29926 bytes .../Resources/flag_green.png | Bin 0 -> 672 bytes .../Resources/folder_Open_16xLG.png | Bin 0 -> 277 bytes .../Resources/folder_Open_32xLG.png | Bin 0 -> 355 bytes .../Resources/folder_Open_32xMD.png | Bin 0 -> 375 bytes .../Resources/folder_go.png | Bin 0 -> 694 bytes .../Resources/folder_star.png | Bin 0 -> 755 bytes .../Resources/grid_Data_16xMD.png | Bin 0 -> 153 bytes .../Resources/handdrawn_arrow_right_green.png | Bin 0 -> 14056 bytes .../Resources/handdrawn_user-admin.png | Bin 0 -> 24080 bytes .../DD-Record-Organiser/Resources/ico6078.ico | Bin 0 -> 1406 bytes .../DD-Record-Organiser/Resources/ico858.ico | Bin 0 -> 1078 bytes .../DD-Record-Organiser/Resources/key_go.png | Bin 0 -> 744 bytes .../DD-Record-Organiser/Resources/lbl.PNG | Bin 0 -> 577 bytes .../Resources/lightbulb.png | Bin 0 -> 645 bytes .../Resources/note_delete.png | Bin 0 -> 631 bytes .../Resources/page_copy.png | Bin 0 -> 393 bytes .../Resources/page_excel.png | Bin 0 -> 684 bytes .../Resources/page_refresh.png | Bin 0 -> 858 bytes .../Resources/page_white_office.png | Bin 0 -> 779 bytes .../Resources/refresh_16xLG.png | Bin 0 -> 407 bytes .../DD-Record-Organiser/Resources/save.bmp | Bin 0 -> 1334 bytes .../DD-Record-Organiser/Resources/save1.bmp | Bin 0 -> 1334 bytes .../Resources/save_16xLG.png | Bin 0 -> 206 bytes .../Resources/save_16xLG1.png | Bin 0 -> 206 bytes .../Resources/shield_go.png | Bin 0 -> 775 bytes .../DD-Record-Organiser/Resources/table.png | Bin 0 -> 274 bytes .../Resources/table_add.png | Bin 0 -> 663 bytes .../Resources/table_refresh.png | Bin 0 -> 795 bytes .../Resources/table_relationship.png | Bin 0 -> 663 bytes .../DD-Record-Organiser/Resources/txt.PNG | Bin 0 -> 531 bytes .../Resources/userAccounts.bmp | Bin 0 -> 776 bytes .../Resources/user_16xLG.png | Bin 0 -> 284 bytes .../Resources/user_green.png | Bin 0 -> 722 bytes .../Resources/user_suit.png | Bin 0 -> 748 bytes .../frmCalendar.Designer.vb | 555 + .../DD-Record-Organiser/frmCalendar.resx | 144 + .../DD-Record-Organiser/frmCalendar.vb | 79 + .../frmConfig_Basic.Designer.vb | 415 + .../DD-Record-Organiser/frmConfig_Basic.resx | 500 + .../DD-Record-Organiser/frmConfig_Basic.vb | 138 + .../frmConfiguration_Basic.Designer.vb | 198 + .../frmConfiguration_Basic.resx | 120 + .../frmConfiguration_Basic.vb | 79 + .../frmConnections.Designer.vb | 664 + .../DD-Record-Organiser/frmConnections.resx | 363 + .../DD-Record-Organiser/frmConnections.vb | 247 + .../frmConstructorDesigner.Designer.vb | 993 + .../frmConstructorDesigner.resx | 427 + .../frmConstructorDesigner.vb | 163 + .../frmCustomAppointment.Designer.vb | 226 + .../frmCustomAppointment.resx | 120 + .../frmCustomAppointment.vb | 93 + .../frmDD_EMAIL_ACCOUNT.Designer.vb | 565 + .../frmDD_EMAIL_ACCOUNT.resx | 686 + .../frmDD_EMAIL_ACCOUNT.vb | 41 + .../frmDokumentart_Konfig.Designer.vb | 1560 + .../frmDokumentart_Konfig.resx | 479 + .../frmDokumentart_Konfig.vb | 305 + .../frmDokumentart_NameConvention.designer.vb | 348 + .../frmDokumentart_NameConvention.resx | 141 + .../frmDokumentart_NameConvention.vb | 86 + .../frmForm_Constructor.designer.vb | 1343 + .../frmForm_Constructor.resx | 1768 + .../frmForm_Constructor.vb | 2468 + .../frmForm_Constructor_OLD.designer.vb | 1342 + .../frmForm_Constructor_OLD.resx | 1751 + .../frmForm_Constructor_OLD.vb | 2459 + .../frmForm_Input.Designer.vb | 547 + .../DD-Record-Organiser/frmForm_Input.resx | 232 + .../DD-Record-Organiser/frmForm_Input.vb | 562 + .../frmForm_Overview.Designer.vb | 693 + .../DD-Record-Organiser/frmForm_Overview.resx | 719 + .../DD-Record-Organiser/frmForm_Overview.vb | 406 + .../frmLevel_Designer.Designer.vb | 360 + .../frmLevel_Designer.resx | 132 + .../DD-Record-Organiser/frmLevel_Designer.vb | 665 + .../frmLogRecord.Designer.vb | 493 + .../DD-Record-Organiser/frmLogRecord.resx | 234 + .../DD-Record-Organiser/frmLogRecord.vb | 72 + .../DD-Record-Organiser/frmLogin.Designer.vb | 131 + app - Kopie/DD-Record-Organiser/frmLogin.resx | 120 + app - Kopie/DD-Record-Organiser/frmLogin.vb | 22 + .../DD-Record-Organiser/frmMain.Designer.vb | 499 + app - Kopie/DD-Record-Organiser/frmMain.resx | 1815 + app - Kopie/DD-Record-Organiser/frmMain.vb | 521 + .../frmMenuDesigner.Designer.vb | 759 + .../DD-Record-Organiser/frmMenuDesigner.resx | 282 + .../DD-Record-Organiser/frmMenuDesigner.vb | 87 + .../frmNewKombiForm.Designer.vb | 113 + .../DD-Record-Organiser/frmNewKombiForm.resx | 120 + .../DD-Record-Organiser/frmNewKombiForm.vb | 37 + .../frmObjecttypeConfig.Designer.vb | 482 + .../frmObjecttypeConfig.resx | 231 + .../frmObjecttypeConfig.vb | 90 + .../frmQuickAccessManager.Designer.vb | 275 + .../frmQuickAccessManager.resx | 141 + .../frmQuickAccessManager.vb | 86 + .../frmQuickEdit.Designer.vb | 432 + .../DD-Record-Organiser/frmQuickEdit.resx | 203 + .../DD-Record-Organiser/frmQuickEdit.vb | 572 + .../frmQuickInput.Designer.vb | 221 + .../DD-Record-Organiser/frmQuickInput.resx | 182 + .../DD-Record-Organiser/frmQuickInput.vb | 94 + .../frmRecord_Changes.Designer.vb | 318 + .../frmRecord_Changes.resx | 179 + .../DD-Record-Organiser/frmRecord_Changes.vb | 13 + .../frmSQLEditor.Designer.vb | 526 + .../DD-Record-Organiser/frmSQLEditor.resx | 138 + .../DD-Record-Organiser/frmSQLEditor.vb | 287 + .../frmTaskOverview.designer.vb | 284 + .../DD-Record-Organiser/frmTaskOverview.resx | 141 + .../DD-Record-Organiser/frmTaskOverview.vb | 79 + .../frmTaskmanagement.designer.vb | 1438 + .../frmTaskmanagement.resx | 491 + .../DD-Record-Organiser/frmTaskmanagement.vb | 208 + .../frmTool_ControlDesigner.Designer.vb | 289 + .../frmTool_ControlDesigner.resx | 120 + .../frmTool_ControlDesigner.vb | 141 + .../frmTool_ControlProperties.Designer.vb | 115 + .../frmTool_ControlProperties.resx | 126 + .../frmTool_ControlProperties.vb | 403 + .../frmUserKonfig.Designer.vb | 1080 + .../DD-Record-Organiser/frmUserKonfig.resx | 775 + .../DD-Record-Organiser/frmUserKonfig.vb | 193 + .../frmUserKonfig_AddUsers.Designer.vb | 196 + .../frmUserKonfig_AddUsers.resx | 536 + .../frmUserKonfig_AddUsers.vb | 129 + .../frmWD_EntityImport.Designer.vb | 371 + .../frmWD_EntityImport.resx | 173 + .../DD-Record-Organiser/frmWD_EntityImport.vb | 269 + .../frmWD_Index_Dokart.Designer.vb | 358 + .../frmWD_Index_Dokart.resx | 603 + .../DD-Record-Organiser/frmWD_Index_Dokart.vb | 328 + .../frmWF_TaskEditor.Designer.vb | 634 + .../DD-Record-Organiser/frmWF_TaskEditor.resx | 630 + .../DD-Record-Organiser/frmWF_TaskEditor.vb | 249 + .../frmWiedervorlage.Designer.vb | 1216 + .../DD-Record-Organiser/frmWiedervorlage.resx | 731 + .../DD-Record-Organiser/frmWiedervorlage.vb | 331 + .../frmwindreamView_Config.Designer.vb | 54 + .../frmwindreamView_Config.resx | 120 + .../frmwindreamView_Config.vb | 11 + app - Kopie/Setup/Setup.isl | 5727 +++ app - Kopie/Setup/Setup.isproj | 37 + app - Kopie/SetupWiX/Product.wxs | 172 + app - Kopie/SetupWiX/SetupWiX.wixproj | 48 + .../My Project/Application.Designer.vb | 13 + .../My Project/Application.myapp | 10 + .../My Project/AssemblyInfo.vb | 34 + .../My Project/Resources.Designer.vb | 62 + .../My Project/Resources.resx | 117 + .../My Project/Settings.Designer.vb | 73 + .../My Project/Settings.settings | 7 + .../SnapPanelControl/SnapPanel.Designer.vb | 29 + app - Kopie/SnapPanelControl/SnapPanel.vb | 56 + .../SnapPanelControl/SnapPanelControl.vbproj | 123 + .../DD_ECMAdmin.Designer.vb | 3333 ++ app/DD-Record-Organiser/DD_ECMAdmin.xsc | 63 + app/DD-Record-Organiser/DD_ECMAdmin.xsd | 342 + app/DD-Record-Organiser/DD_ECMAdmin.xss | 26 + app/DD-Record-Organiser/Resources/Go.png | Bin 0 -> 3218 bytes .../frmConstructorDesigner.Designer.vb | 995 + .../frmConstructorDesigner.resx | 427 + .../frmConstructorDesigner.vb | 164 + .../frmNewKombiForm.Designer.vb | 113 + app/DD-Record-Organiser/frmNewKombiForm.resx | 120 + app/DD-Record-Organiser/frmNewKombiForm.vb | 37 + 322 files changed, 170389 insertions(+) create mode 100644 app - Kopie/DD-Record-Organiser.sln create mode 100644 app - Kopie/DD-Record-Organiser/AboutBox1.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/AboutBox1.resx create mode 100644 app - Kopie/DD-Record-Organiser/AboutBox1.vb create mode 100644 app - Kopie/DD-Record-Organiser/App.config create mode 100644 app - Kopie/DD-Record-Organiser/ClassControlBuilder.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassControlCommands.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassControlCommandsUI.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassControlProperties.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassControlValues.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassDatabase.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassDragDrop.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassEmail.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassEncryption.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassFormCommands.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassFunctionCommands.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassFunctionCommandsUI.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassHelper.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassImport_Windream.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassLayout.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassLogger.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassOfficeTemplate.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassSQLEditor.vb create mode 100644 app - Kopie/DD-Record-Organiser/ClassWindream.vb create mode 100644 app - Kopie/DD-Record-Organiser/DD-Record-Organiser.vbproj create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSet.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSet.vb create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsc create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsd create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xss create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsc create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsd create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xss create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsc create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsd create mode 100644 app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xss create mode 100644 app - Kopie/DD-Record-Organiser/DD_ECMAdmin.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsc create mode 100644 app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsd create mode 100644 app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xss create mode 100644 app - Kopie/DD-Record-Organiser/ModuleHelperMethods.vb create mode 100644 app - Kopie/DD-Record-Organiser/ModuleMySettings.vb create mode 100644 app - Kopie/DD-Record-Organiser/ModuleRuntimeVariables.vb create mode 100644 app - Kopie/DD-Record-Organiser/My Project/Application.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/My Project/Application.myapp create mode 100644 app - Kopie/DD-Record-Organiser/My Project/AssemblyInfo.vb create mode 100644 app - Kopie/DD-Record-Organiser/My Project/Resources.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/My Project/Resources.resx create mode 100644 app - Kopie/DD-Record-Organiser/My Project/Settings.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/My Project/Settings.Settings create mode 100644 app - Kopie/DD-Record-Organiser/My Project/app.manifest create mode 100644 app - Kopie/DD-Record-Organiser/My Project/licenses.licx create mode 100644 app - Kopie/DD-Record-Organiser/My Project/licenses.licx.bak create mode 100644 app - Kopie/DD-Record-Organiser/Resources/005_Task_32x42_72.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_72.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_721.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/138_PushPin_32x42_72.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/138_PushPin_32x42_721.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/138_PushPin_48x48_72.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/1532_Flag_Blue.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/AddMark_10580.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/AddTable_5632.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/AddressEnvelope_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/CheckBox_669.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Checkbox.PNG create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Close_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/ComboBox_672.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Configuredatasetwithwizard_8450.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/DateOrTimePicker_675.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Delete1.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Einstellungen3.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Einstellungen5.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Einstellungen6.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Excel_25ixel.jpg create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Files_7954.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Filter.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/FilteredObject_13400_16x.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Go.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/GroupBox_680.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/HomeHS.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Home_5699_32.bmp create mode 100644 app - Kopie/DD-Record-Organiser/Resources/ImageListControl_683.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Label_684.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Link.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/ListBox_686_24.bmp create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Men1.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Men2.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Men3.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Men4.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Men5.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Men6.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Monitor_Screen_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/PropertyGridEditorPart_6041.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Property_501.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/RadioButton_701.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Table_748.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Task_16xMD.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/TextBox_708.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/UserInterfaceEditor_5845.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/UserInterfaceEditor_5845_32x.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/WMI_Task_21x.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/Works Finished (nonXP).ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/action_Cancel_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/action_Cancel_16xLG1.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/action_add_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/action_add_16xMD.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/add.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/add1.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/application_form.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/arrow_Forward_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/arrow_Next_16xLG_color.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/arrow_left.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/arrow_refresh.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/arrow_right.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/arrow_switch.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/benutzer3.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/brainpool.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/brick.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/brick_go.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/bricks.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/bug_edit.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/bug_edit1.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/calendar.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/calendar_add.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/cmb.PNG create mode 100644 app - Kopie/DD-Record-Organiser/Resources/color_wheel.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/cube.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_add.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_connect.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_delete.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_edit.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_error.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_gear.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_go.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_go1.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_key.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_lightning.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_link.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_refresh.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_save.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/database_table.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/delete.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/dtp.PNG create mode 100644 app - Kopie/DD-Record-Organiser/Resources/dtp1.PNG create mode 100644 app - Kopie/DD-Record-Organiser/Resources/email_edit.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/eye.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/f1.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/f2.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/f3.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/f5.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/f6.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/flag_green.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/folder_Open_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/folder_Open_32xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/folder_Open_32xMD.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/folder_go.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/folder_star.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/grid_Data_16xMD.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/handdrawn_arrow_right_green.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/handdrawn_user-admin.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/ico6078.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/ico858.ico create mode 100644 app - Kopie/DD-Record-Organiser/Resources/key_go.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/lbl.PNG create mode 100644 app - Kopie/DD-Record-Organiser/Resources/lightbulb.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/note_delete.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/page_copy.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/page_excel.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/page_refresh.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/page_white_office.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/refresh_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/save.bmp create mode 100644 app - Kopie/DD-Record-Organiser/Resources/save1.bmp create mode 100644 app - Kopie/DD-Record-Organiser/Resources/save_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/save_16xLG1.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/shield_go.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/table.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/table_add.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/table_refresh.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/table_relationship.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/txt.PNG create mode 100644 app - Kopie/DD-Record-Organiser/Resources/userAccounts.bmp create mode 100644 app - Kopie/DD-Record-Organiser/Resources/user_16xLG.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/user_green.png create mode 100644 app - Kopie/DD-Record-Organiser/Resources/user_suit.png create mode 100644 app - Kopie/DD-Record-Organiser/frmCalendar.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmCalendar.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmCalendar.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConfig_Basic.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConfig_Basic.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmConfig_Basic.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConnections.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConnections.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmConnections.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConstructorDesigner.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmConstructorDesigner.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmConstructorDesigner.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmCustomAppointment.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmCustomAppointment.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmCustomAppointment.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Constructor.designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Constructor.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Constructor.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Input.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Input.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Input.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Overview.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Overview.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmForm_Overview.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmLevel_Designer.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmLevel_Designer.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmLevel_Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmLogRecord.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmLogRecord.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmLogRecord.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmLogin.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmLogin.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmLogin.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmMain.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmMain.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmMain.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmMenuDesigner.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmMenuDesigner.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmMenuDesigner.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmNewKombiForm.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmNewKombiForm.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmNewKombiForm.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickAccessManager.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickAccessManager.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickAccessManager.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickEdit.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickEdit.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickEdit.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickInput.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickInput.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmQuickInput.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmRecord_Changes.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmRecord_Changes.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmRecord_Changes.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmSQLEditor.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmSQLEditor.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmSQLEditor.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTaskOverview.designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTaskOverview.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmTaskOverview.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTaskmanagement.designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTaskmanagement.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmTaskmanagement.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmUserKonfig.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmUserKonfig.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmUserKonfig.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWD_EntityImport.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWD_EntityImport.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmWD_EntityImport.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWiedervorlage.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmWiedervorlage.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmWiedervorlage.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmwindreamView_Config.Designer.vb create mode 100644 app - Kopie/DD-Record-Organiser/frmwindreamView_Config.resx create mode 100644 app - Kopie/DD-Record-Organiser/frmwindreamView_Config.vb create mode 100644 app - Kopie/Setup/Setup.isl create mode 100644 app - Kopie/Setup/Setup.isproj create mode 100644 app - Kopie/SetupWiX/Product.wxs create mode 100644 app - Kopie/SetupWiX/SetupWiX.wixproj create mode 100644 app - Kopie/SnapPanelControl/My Project/Application.Designer.vb create mode 100644 app - Kopie/SnapPanelControl/My Project/Application.myapp create mode 100644 app - Kopie/SnapPanelControl/My Project/AssemblyInfo.vb create mode 100644 app - Kopie/SnapPanelControl/My Project/Resources.Designer.vb create mode 100644 app - Kopie/SnapPanelControl/My Project/Resources.resx create mode 100644 app - Kopie/SnapPanelControl/My Project/Settings.Designer.vb create mode 100644 app - Kopie/SnapPanelControl/My Project/Settings.settings create mode 100644 app - Kopie/SnapPanelControl/SnapPanel.Designer.vb create mode 100644 app - Kopie/SnapPanelControl/SnapPanel.vb create mode 100644 app - Kopie/SnapPanelControl/SnapPanelControl.vbproj create mode 100644 app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb create mode 100644 app/DD-Record-Organiser/DD_ECMAdmin.xsc create mode 100644 app/DD-Record-Organiser/DD_ECMAdmin.xsd create mode 100644 app/DD-Record-Organiser/DD_ECMAdmin.xss create mode 100644 app/DD-Record-Organiser/Resources/Go.png create mode 100644 app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb create mode 100644 app/DD-Record-Organiser/frmConstructorDesigner.resx create mode 100644 app/DD-Record-Organiser/frmConstructorDesigner.vb create mode 100644 app/DD-Record-Organiser/frmNewKombiForm.Designer.vb create mode 100644 app/DD-Record-Organiser/frmNewKombiForm.resx create mode 100644 app/DD-Record-Organiser/frmNewKombiForm.vb diff --git a/app - Kopie/DD-Record-Organiser.sln b/app - Kopie/DD-Record-Organiser.sln new file mode 100644 index 0000000..7b7b308 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser.sln @@ -0,0 +1,132 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2013 +VisualStudioVersion = 12.0.21005.1 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD-Record-Organiser", "DD-Record-Organiser\DD-Record-Organiser.vbproj", "{BDCC148B-4C84-4A48-80CF-4C56057294E0}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SnapPanelControl", "SnapPanelControl\SnapPanelControl.vbproj", "{9B1BBAC7-F595-43BA-8B54-CF2B595847CD}" +EndProject +Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "Setup", "Setup\Setup.isproj", "{D4EAF721-063A-4FF4-8585-440DBBA88C18}" + ProjectSection(ProjectDependencies) = postProject + {BDCC148B-4C84-4A48-80CF-4C56057294E0} = {BDCC148B-4C84-4A48-80CF-4C56057294E0} + EndProjectSection +EndProject +Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWiX", "SetupWiX\SetupWiX.wixproj", "{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + CD_ROM|Any CPU = CD_ROM|Any CPU + CD_ROM|Mixed Platforms = CD_ROM|Mixed Platforms + CD_ROM|x86 = CD_ROM|x86 + Debug|Any CPU = Debug|Any CPU + Debug|Mixed Platforms = Debug|Mixed Platforms + Debug|x86 = Debug|x86 + DVD-5|Any CPU = DVD-5|Any CPU + DVD-5|Mixed Platforms = DVD-5|Mixed Platforms + DVD-5|x86 = DVD-5|x86 + Release|Any CPU = Release|Any CPU + Release|Mixed Platforms = Release|Mixed Platforms + Release|x86 = Release|x86 + SingleImage|Any CPU = SingleImage|Any CPU + SingleImage|Mixed Platforms = SingleImage|Mixed Platforms + SingleImage|x86 = SingleImage|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|x86.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Any CPU.Build.0 = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|x86.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Any CPU.ActiveCfg = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Any CPU.Build.0 = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|x86.ActiveCfg = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|x86.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|x86.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Any CPU.Build.0 = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|x86.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Any CPU.ActiveCfg = Release|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Any CPU.Build.0 = Release|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|x86.ActiveCfg = Release|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|x86.ActiveCfg = Debug|Any CPU + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|Any CPU.ActiveCfg = CD_ROM + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|Any CPU.Build.0 = CD_ROM + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|Mixed Platforms.ActiveCfg = CD_ROM + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|x86.ActiveCfg = CD_ROM + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|Any CPU.ActiveCfg = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|Any CPU.Build.0 = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|Mixed Platforms.ActiveCfg = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|x86.ActiveCfg = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|Any CPU.ActiveCfg = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|Any CPU.Build.0 = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|Mixed Platforms.ActiveCfg = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|x86.ActiveCfg = DVD-5 + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|Any CPU.ActiveCfg = SingleImage + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|Any CPU.Build.0 = SingleImage + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|Mixed Platforms.ActiveCfg = SingleImage + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|x86.ActiveCfg = SingleImage + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|Any CPU.ActiveCfg = SingleImage + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|Any CPU.Build.0 = SingleImage + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|Mixed Platforms.ActiveCfg = SingleImage + {D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|x86.ActiveCfg = SingleImage + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Any CPU.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.Build.0 = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|x86.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|x86.Build.0 = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|Any CPU.ActiveCfg = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|Mixed Platforms.Build.0 = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|x86.ActiveCfg = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|x86.Build.0 = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|Any CPU.ActiveCfg = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|Mixed Platforms.Build.0 = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|x86.ActiveCfg = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|x86.Build.0 = Debug|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|Any CPU.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|Mixed Platforms.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|Mixed Platforms.Build.0 = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|x86.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|x86.Build.0 = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|Any CPU.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|Mixed Platforms.Build.0 = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|x86.ActiveCfg = Release|x86 + {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/app - Kopie/DD-Record-Organiser/AboutBox1.Designer.vb b/app - Kopie/DD-Record-Organiser/AboutBox1.Designer.vb new file mode 100644 index 0000000..4c415ba --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/AboutBox1.Designer.vb @@ -0,0 +1,178 @@ + _ +Partial Class AboutBox1 + 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 + + Friend WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel + Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox + Friend WithEvents LabelProductName As System.Windows.Forms.Label + Friend WithEvents LabelVersion As System.Windows.Forms.Label + Friend WithEvents LabelCompanyName As System.Windows.Forms.Label + Friend WithEvents TextBoxDescription As System.Windows.Forms.TextBox + Friend WithEvents OKButton As System.Windows.Forms.Button + Friend WithEvents LabelCopyright As System.Windows.Forms.Label + + '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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutBox1)) + Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel() + Me.LogoPictureBox = New System.Windows.Forms.PictureBox() + Me.LabelProductName = New System.Windows.Forms.Label() + Me.LabelVersion = New System.Windows.Forms.Label() + Me.LabelCopyright = New System.Windows.Forms.Label() + Me.LabelCompanyName = New System.Windows.Forms.Label() + Me.TextBoxDescription = New System.Windows.Forms.TextBox() + Me.OKButton = New System.Windows.Forms.Button() + Me.TableLayoutPanel.SuspendLayout() + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TableLayoutPanel + ' + Me.TableLayoutPanel.ColumnCount = 2 + Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.0!)) + Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.0!)) + Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0) + Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0) + Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1) + Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2) + Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3) + Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4) + Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 5) + Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel.Location = New System.Drawing.Point(9, 9) + Me.TableLayoutPanel.Name = "TableLayoutPanel" + Me.TableLayoutPanel.RowCount = 6 + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.Size = New System.Drawing.Size(396, 258) + Me.TableLayoutPanel.TabIndex = 0 + ' + 'LogoPictureBox + ' + Me.LogoPictureBox.Dock = System.Windows.Forms.DockStyle.Fill + Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"), System.Drawing.Image) + Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3) + Me.LogoPictureBox.Name = "LogoPictureBox" + Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 6) + Me.LogoPictureBox.Size = New System.Drawing.Size(124, 252) + Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.LogoPictureBox.TabIndex = 0 + Me.LogoPictureBox.TabStop = False + ' + 'LabelProductName + ' + Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelProductName.Location = New System.Drawing.Point(136, 0) + Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelProductName.Name = "LabelProductName" + Me.LabelProductName.Size = New System.Drawing.Size(257, 17) + Me.LabelProductName.TabIndex = 0 + Me.LabelProductName.Text = "Produktname" + Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelVersion + ' + Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelVersion.Location = New System.Drawing.Point(136, 25) + Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelVersion.Name = "LabelVersion" + Me.LabelVersion.Size = New System.Drawing.Size(257, 17) + Me.LabelVersion.TabIndex = 0 + Me.LabelVersion.Text = "Version" + Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelCopyright + ' + Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelCopyright.Location = New System.Drawing.Point(136, 50) + Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelCopyright.Name = "LabelCopyright" + Me.LabelCopyright.Size = New System.Drawing.Size(257, 17) + Me.LabelCopyright.TabIndex = 0 + Me.LabelCopyright.Text = "Copyright" + Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelCompanyName + ' + Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelCompanyName.Location = New System.Drawing.Point(136, 75) + Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelCompanyName.Name = "LabelCompanyName" + Me.LabelCompanyName.Size = New System.Drawing.Size(257, 17) + Me.LabelCompanyName.TabIndex = 0 + Me.LabelCompanyName.Text = "Firmenname" + Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TextBoxDescription + ' + Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBoxDescription.Location = New System.Drawing.Point(136, 103) + Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(6, 3, 3, 3) + Me.TextBoxDescription.Multiline = True + Me.TextBoxDescription.Name = "TextBoxDescription" + Me.TextBoxDescription.ReadOnly = True + Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.TextBoxDescription.Size = New System.Drawing.Size(257, 123) + Me.TextBoxDescription.TabIndex = 0 + Me.TextBoxDescription.TabStop = False + Me.TextBoxDescription.Text = resources.GetString("TextBoxDescription.Text") + ' + 'OKButton + ' + Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.OKButton.Location = New System.Drawing.Point(318, 232) + Me.OKButton.Name = "OKButton" + Me.OKButton.Size = New System.Drawing.Size(75, 23) + Me.OKButton.TabIndex = 0 + Me.OKButton.Text = "&OK" + ' + 'AboutBox1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.OKButton + Me.ClientSize = New System.Drawing.Size(414, 276) + Me.Controls.Add(Me.TableLayoutPanel) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "AboutBox1" + Me.Padding = New System.Windows.Forms.Padding(9) + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "AboutBox1" + Me.TableLayoutPanel.ResumeLayout(False) + Me.TableLayoutPanel.PerformLayout() + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/app - Kopie/DD-Record-Organiser/AboutBox1.resx b/app - Kopie/DD-Record-Organiser/AboutBox1.resx new file mode 100644 index 0000000..aae5af0 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/AboutBox1.resx @@ -0,0 +1,609 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + iVBORw0KGgoAAAANSUhEUgAAAHgAAAEGCAIAAAAhWcaAAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AABvkklEQVR4Xu29B1hUd9r+z3X939+7bzax + RQWmnZmhS++9i4KCXRRRsKGoiKKIKIJKlSrSpTdpioWmYm9gLzEao4kliTGmZ3ez6767yb7/+3u+M8fD + DBiTTVE33+u5cKSe85n73M/9nJk5oyEsE4rKRaIKkbhKLKmVMPUM08hIW6Ty3XL5PrlOl45Ot47uEV3d + 47p6J/X0TrGFG8f09I7o6Xbr6u7X1W3X1d2nq7NbR2enjk6zjk6jjk69jk6djixDxsxhRJailJSUy5cv + f/vtt3/729/+/ve//+///u8//vGPf/7zn999993333//L3b936u+WNBlInG5WFIhkVRKmCpGWiOV1kpl + O2TyJrm8RS5vlevs1dHt1NU9oAuy4Esoo46yrA+xn8dX29RY1+joVOvI0mXMbEZkIUpPT7958+Zf/vKX + v/71r0+ePPlPw60BylA0Bc1UMgR0lVRWLZPVyuR1cnm9XKeBBdeio9OqA+US/Xbp6h7UJYi5UrLW3aOr + s6sPa3mVXF4pl6ZKJTMlQmNhYWHhhx9++B+Im4B+SrlSSblaJq+Rk6qVwwQIsh06hHiTkvheljjgwjoA + HQXWuAOojbSqsa6Qy8vl0o1SyWSJUEfY0NDwpz/96T8KtwYoiysUoEFZWk1AP6Vcq/O0OOIgCI4qxEEZ + hRucZeMbVFiXyeWlcmY1I/YRR0REHDlyhMP9ynu3hrhMLCmXMBWsnCtZOdcoQPehzBVwqxCHL+9mXQXW + Acq0uPaIgwDfybEulcu3y+WFcmYRI7IXbdmy5c6dO3zcYK2CW7GlL/nSEBeLxaWENaFcJUPJq+WkBgLN + lYqlgPguHXi0gjgKN2DZtD2qsC6Ry4vlsmSZZLpEqC9samr6+uuvgZtLJq+etDXEOWLJNglTxDAljLRM + KquQySoJa3DpUyqUuepX4LAUShzGwrVH3B+1PNbFcnkRK+0oRuwpXr9+/ZUrV4D7z3/+80DGrdjkl3Np + iNPF4gyxJEPC5DDSPKmsSCYrkREzLSdpAfnsuYir44ZBgy8sBaDhIVwUqevLulAuL5AjcUtmkUxSX1// + 5ZdffvPNNxQ337hfdmlriFPFkjQJs4VhMhhplhQl2yqTb2MRwExBHFCApur5NK6CWylwUmDNtcdqnT6s + 8+WyPBmzihF7iTds2HDjxo2vvvqKc5JXQ9oa4mSxJEXCpDFgLU2XSjOkskyZLJstEM9jD3Ae8efSOB83 + tW/gpkV1ja/Csvms8+SybTJpmlQSKBEaCPfs2fPFF1/06yQvqbQ1JIkSJplhUhjMFNhP2RYZZjnCmsNN + ieezRMDl+QWujhuKpqy5KMJjDVHjD8lyZMwyRuQkysrK+vjjj+EkNJO87NJmQScx0mQpqRSpLE1GiuLO + YHFnKXHnyMBCxVJ+QOAq3k1x0+JYVypZw6y3KVhLN0jF/mKBUNDb2/v555+rS/ulCyQaoMyBlqXIFJXK + w60u8FwWN9D8NNwoyho3KGscIiqs2T/EzGaEo4QtLS2ffvrpyy5tAvqpnDnQfNwDCRx+UvBj/EQdN0RN + WdPYh7sNvw2NEaxx9FDWsBFH0bZt2x4/fsyXtnrWVuzQi7o0xIvFTDxhrUqZX8/G3de+f1jdYM3H3S/r + 3Kespeuk4jEkaN+6deuzzz7jAsnLZSMazs7OAgOByE0kni5mljOqiPnF95OB1P08ZsKXNj01iI/qrJUG + QlinSCVTJAKJ4PTp05A2AgmytoqNvOCsNerq6vLz82NiYoKCghwdHUVWIom/hAljZBvVQNN6hrqpd2O8 + Biy0OHXcHGsV3FzRcaY/1ihi2YbC9vb2Tz755KWzEY2dO3e2trbuZhfSa3Z29pIlS8aMGSMyF0nGSZhF + jCxRjTVKHTdHBMmERu/nNG7OSVC4MbCuUVCAyEKEARLJDx2S2ghNIy84a42Ojo7Ozs6urq79+/fjBhYk + 09bWBpkvX76cELcWSSZLmEg1V+GchOIGaw53zg8ZtwprDjetZ7NeTk77FRcXP3z4EDZC00i/lq3YxRdj + aRw5cuTo0aPH2IUbhw8fPnTo0MGDByl3QIfGFyxYIJQJxR5iJlTNUp5h3NRJIG32tMkPS5uPm2Y+yhpD + o7Ix0sKwLnIR5eTkfPjhh8+2bMVevgBL4yy7zp07h4+YDs6cOXPq1KkTJ06AO+4DDjrC7IYNGyZOnEgE + Pl0iXaMWujnc/6a0KW58fCZr6Vop7vjU1NQPPviAb9kvbHvUeOutt65fv46P165du3r16uXLly9dunT+ + /HlwB3R0eUCH0kG8u7sbxHNzc0NDQ4UmQskECROl9JNnJ26+tNVdm8+aj5vPuogd0Pmss2TSOKnYW5yY + mPjgwYNHjx4h+am3xxeHtcadO3feU6533333nXfeuXnzJtCD+5UrVy5evAjoUDqInzx5EjKHt4B4RUUF + eiYyAIkoK1ncYP08rg1qz2kj6qwxyHCgUWAdLxX7iDdu3Hj//n2uPapHkReBtcZHygW/w2GILb537x6g + 3759m4MOpUPmFy5cgMw54tA4un9kZCTBHSCRrpI+ZT2QtGkgeR4b4XDjBjejq7DGr82USRPIOJOQkIAt + p+2RiyIvFGsNqAAHHTwON7CV8DtIA9wp9Lt373JKf/vttzniVONwFfj4jh07IiIihKZCyVSJdL3ytJQK + a07anI30G/74oLliv6Q491TIDo3qrH3EmzZtgkSw5VwUeaFYa8DX0LKxWfiI29hEQAd6DjqUDhOkMqfE + OY2jhfb09KB5QuBVVVVhYWEiWxEzh3USPmsVG6FjJOaa57FsWvh8NY81F/hY0IQ1PMRbnJycDGXwWSP2 + vSCsNXC3cwsJCQanAp0qncqcTxyughYKH+cEfvz48YKCghkzZoi9xMxS5lmsn23ZKpRpUdY4DnA09Msa + vdFDnJGRAdZc7HtxWGvQjcBCKsJtxH4kJEDH9nHQ4XrYaCpzSpy6Chop31IgcOonSUlJxLgnS6Qb2EcS + ONZ9LZs8fPOc7ZGCpmYN1jgaMMhwIYRjHSMVOYvy8vLef//9F421Bv4wXdgIrH6hQ+l84pzGqY9D4Ldu + 3bpx4waCCsWNXIixfunSpSInETltMjBrNLc+7ZEPGvUM1jRc01+CYkGjkDhFdqLy8vJnsP5NZhkNevfS + hS3A6he6OnG4CnYDAZYKHDvG+QmHG6FbqCuUTJLAQ38G1spPEtbw92JeCFGKmrBeyojMRc3NzSqssf2/ + IWsNxb/KRYljUeIUugpxzlXg41TgaJuIVnBw+IkK7q6uLkRAsQvr2j8Xa5g1WNNwzYUQjnWGjFnACA2E + Bw4c4Fir55BfmbUqaP7iiFPofOJwFb7AsRvUwVVwUzNB+s7OzhaOEjJBjAK0OmvEvudhrfwMAa0eQiho + yjqIEUgEuKdfENbPAs2tfomrCJzvJ3zc8G60SkyYLS0tmN3F48Qka3Ogfyxr3mcIa3wnQkiBsjHyRI0/ + IZkoiYqKQrvGltDMhy2kcyM2HruAffnVWD8XaG5xxPsVOPUT7AynburdaJVIJpcvX0YKjI2NRTBgIlhp + q7PmPEQlh3CK7pc1QgjXGDnW6TJpolQ8WpySkqLOGvr4lVn/ONB0cbixgJsTOB83NRN4N22VNAhS487J + yRGaC5m5DAE9EGv4L0DzZ/T+QCvMWqUx0l/Iilq6RiqyJyEEdzYmANz36Cj03BNljY0Ha7pHit37ZdZP + Ac0tDjffTzjc1LuxY0gmCILYT+okmHHq6upIGgmUPAXNZ50nU+Tr5xC1gjXfrHmiRjHhjNBI2NHRgb+O + uxypFAoAazQYbCq2GVuOXXihQdPFqqGPn1Dc1LtpMsExiz2EcSN0U2l3dnbOmzdPMkGCA/wpawqam2XY + GV0BlA+6L2sCul+zZkVNWKMxCgTwLsoadzx6CXSALfzVWP8MoOlSx821Ss644SQIAJD27du3IW0E7RUr + VojHiskASUFzoqYzOsyXa4wqoFHqrPlmTX8hCxqxEk04Pj4erQImhvsbW6ISrn9ps/7ZQNNFWWNR1hQ3 + 30lUpI38t379erGXWBqrxnqr8jwf9+xhFdAojrV6su4ravx+kYOorKwMdzD+NKwMW8IFvl+hMf7MoOlS + kTbnJNgrOAkOW07aOJahssTERLGrmIlmFKwpaI41/HcgUaOUrAloLllTA6G/TSlqZjEj1BceOnQIAZ8L + 1/wQgq3FNr9MoLGwuSq4qZOgBUHa1LVp/sOxjD1PT08nsW81y5oTNQohhG/W3KMBaqAVrKmB5PMMhIqa + Pd8imSbBmIpcj4OJH0J+hcb4S4Gmi8OtLm3q2jSQUBvB9EhOQoE1QKuYNVhXsAYCsj/ImqY9voEoRS3d + LBW7i5Ev0Y25EMI1xl/UrH9Z0HRR1nxpU9fm2wgGCkRdwhq6hofwRa1iIBS0Cm6ONcxa3UB4omaWkbTX + 1tZ2/fp19GSVxsiZ9UsJGosIu6+0qY1g92iHpHMNVJaZmSl2E0vXSZ+CRvGnGGB9JmuFgaCL8hOIUtSy + NPJSsCVLlmB0oo2xX7P+2UX9K4Gmi7LmpA0bgYiojcArcRSDNVSWmppKckg8jzUMhCZrGAhogi997kd/ + oBWsYSBIIHSEAWjKmhW1dJMUvXfr1q0YnWBZOJhg1r/0FPOrgsZSYc23EewqTX5ojxs3bhT7ismTiTnW + XNqjBsI9p6lf1pyBYIShP04NhAUNUZNxUU948OBB5Ev+FPPLGcivDRoLW09x822Es2yuPUZHR0smSp6C + huEqDYR0RSrqgVkrDIQ7B8J1RRY0MZAJktWrV1+8eJFOMVyy/oUM5DcATRdlDdVwrGnyo+0Ruw2thYeH + S2byWEPUynGR0ARi+gRUvocoQStYw9ZVuqJS1GSEsRZVVlZiNKfJGn3il0t7vxloLI419gesueRHUzZY + nz59WqgrZBYwCtBU1DAQ2hUBl3uyb3+sFaKG29BYrSZqZjYze/bsc+fOIVkj83Bp75cwkN8SNBafNfZK + nTVymNBCSJ51RllTUXNdEZTpqwWeYSAqXZGKmj4VIlmGWI1ZCQaCtPeLGshvDBrrB1lXVFSIXEWKEMKJ + msZq8KUvzlBhrQT9tCvyZ0VO1KnsXC4jcznSnoqB/LwjzG8PGgv7gMWxxu6psE5OThb7ixWg1UXNveKo + P9YKA0FX7FfUqTLEm/Xr1/MNBA2ZP8Jgq/59A3khQGNR1hBOv6yx80uXLoWlElLgxT1ZkoqagqasBzIQ + Oiv2K+pI8tKY1tZWlQRCR5ifqyu+KKCxnsEaOeTkyZNCYyGzgiGgqXtw8QOIm9iCjTxb1PQESF/QshSZ + JECycuXKnp4eJBB6vok7BwJRcwbyioDGUmHN+TXN17W1tWQ6xxSTy7oHN5RDyPTFz882EBr1+KKm7pEi + k66SCk3IlZ7Onz9PzzfRcyBcV/z3Rf1igcbqlzXN11BZQkKCZJqEgMZETgfFSjbnATH/Zc9qoElXhKhL + lPOLuqgnSZYtW3bmzJlnd8VXBzQWZc31RrDGBEFn9Bs3bpBkHcEoQLOnqglHmAYotyhZ/6CoaabmgZZG + E1HX19efPXv2GV3xJ4v6RQSNxWeNPeRmdEisubkZaQ9oFKC5lgjEO1nW9LoJHGiONSdqdadmX4mDiR+i + xpREuyJ3Yo/Oiv+mqF9Q0FjYH8hHhTWSAPY8Pj6emcEQ0LBpuAfXEvnXXunPQFRFzeU8FjRxaiNhY2Nj + b28vPbGnPiv+ZFG/uKCxONaQEnYSu4odRoNCNgARHOwENLIH3KOaJQvEu5Ss+00gVNT8TE1bIuseRNT+ + 5Flkp06dunDhAn9WpKKmUe+nifqFBo3FZ42Dl7KGxDAuiseIiagBmjv1QUG3sqxVDERF1PT0KUD3FTWz + nBHqCPfu3ase9f5NUb/ooLEoa+yeSmMMDw9nwhkCGjaN7AGa1D12s6y5C2X9oKh5oFHi0eK4uDjEdhr1 + fi5RvwSgsfisObPu7OwUOYlAioCmNg27YEE/vdjeQKLGj9CzH1xLVLoHE8aMGzfu6NGjiHo/o6hfDtBY + 2CuuMVIDQfCC9JgQhlgBQMOmafag1++kF5F8hqiL2PPUai0RhfsvMzPz5xX1ywSab9Z0ikHmFVmKMCsS + cJxN08sv04ujPkPU2/sOLzzQTBAza9asn1fULw1oLMpaxaxTU1MlMyVPQbM2TUCzF0d9KmoKWsmagC5X + 5jw195CuI8NLVVUVFbV6/PgJmfplAo3FsYamYNbQFw5tobFQmiQloMGRgqYXW0bBQAYSdSU7vAzQEiXj + Sc6DqBE/uEzNDYr8sx+KLfuh9ZKBxgJrFQOBn0pmSBSg2VkcfAnljh8SNcyd3xL57hFOnunb3d1NMzU3 + KPLPfvwo93gpQfMNBAkEhzaOdGAiEOnYgn4I0F0s64FEzbVEgEZL7OseKJEDuZrksWPH6KBIz36onNJ7 + fvd4+UBj8Q2EJhA4NTObISg50PBoepH2NqWoOdBK1kTUaIncqY++oCXTJHPnzj106BA9+3Hjxg16Sg8R + np6n/lEt8aUEjYV94xvIpUuXED/kW9m3fgBoBA8Kmr7LAxV1vzkPLZGbElXcI4o8nNja2nr8+HHEG/pU + mwcPHqAl8h98eU5Rv8SgOQOhIwzJ1IsYolwKGsEDoOm7PLSzosZ9oC5qtERMiZx78ECjxC7kigmHDx+G + qOl56oFynmKzBl4vK2gsFVEfOXJE5CwiLZEPupt99xLcgKibBmiJpbxA3dc9mBlMcHDwwYMHT5w4oT68 + /KiW+HKD5kRNu2JYWBgTw6iCPszqGk7dMnBL5AJ135BHTpzKhDt37lTPeT+2Jb7EoLE41rQrNjQ0SAIk + xCUoaLjzIfJWSIR1F/vuMAO1ROoeajaNwjgO90BLRM7jWiJ99umPco+XGzQW9pAaCESN/RfqCuG2itMd + FPRR8oZTRNrI1LQlqoOGe9DJhZ734IFG9ggNDT1w4AC/JVL3QEt8/inxpQetImqojwljyMBCrQOgj+np + nWDf1quTbYl896CsqXtwk4uKTS8nk0tHRwdaIn3ott8p8dUHjYU95EQN3Yldxbot7LkODvQpwpo4NVpi + v+6B7EEnl37dw0qUm5uLKfHkyZPclNhvoFZsUH/rFQHNF/WsWbNkybKnoI/r6Z1mC6JGzhvIPTC50LOm + aqAl4yTLly/fv38/nRKvXr3KD9Sce2AbniHqVwE0Fl/U+fn5TAhDhu/9CtD6p/UNTxsSUe9XugcHmrKG + e5SxF4vsz6aZuUxAQEBnZycXqLkTp8/vHuRSP4qbL/PiixpHt8hBRIIHRhWAPqFncNrA+IwxcOO/A7qH + Ssjj2bQ0ViqUk0fH/x33eEVAY2FHsKtQFvSFKQOHPzHlwwQ05GzWYwbWUPez3IMLeX1Bo3DPpaWlUfeg + z7D5se6h8Yw74eVaVNTYW+wzehezgCFyPkI6IRBb9lpa9FgQUVP34INmWStC3kA2HSAJDw+n7qGePZ5n + ciGgXxlRY1+oe8BJxW5i8satCNEsaKteK9uztiZnTBTu0e95j3KeTfcFzcwnj9i2tbXx3aPfyWVA0D8Y + AF+ihR3hWuL48eMRJGjkgG+AsuM5R+AmLRHj+EAhj2/TPNDSGKmAEbS0tNDJ5dy5c2+99dbt27f55z2e + bdMaz7bwl2sBNCfquLg40KGd0LzH3OGcg+t5V7CGX5NxXMWmWdaqNs0DjUKazs7OhnscOXIE7qH+UADu + 3WfYtMazLfylW5yooT5Mz/ANkIVBO5138rzo6XHBA9DhHuRZH2qgSchDmh6gH4pHi1etWtXe3k4fClA/ + a/psmyagXzH3gG6wUziuRZYivQPEoK17rSHn0ZdG+1zygbRJ9tjL2rQKaIgaaXpr//2QCWSCgoJg09xZ + 0+vXr/cb8voHzTnLK8Oac4+pU6fql+jDoO3O2kHL4y6NC7gcgBskeyDkDZSm6Uv11UGHM56ennv37uVC + 3rVr11Rsmjs9rdgU3tKgzvJKtsT4+Hi9dXrUNyDniVcmTr061feSL9CTkAeb5oNmWRObpv1QLXhI15N+ + 2NTUxIU8+tya57Rpcv3oZ7fLl25hJ7Ev2GFAkQfJkTfgG+ALyjPfmjn5ymS4B7HpgdL0M/qhOXl7tJ9m + 0xrPeU7k5VrYF0gHwYBxYoAVdjH+8vjAa4Eh10PAGv+FTZMnjP1gP+wLGtkcYYZv0/xZ/NlpWoO7H/r9 + 8ku6sCOQFQ5kgUjgsMfB+6I3fGP29dkLbyyc+/ZcmDUyH3kcQP3sEu2HmA/7A435MCwsbN++fZxNP3+a + 1kC75H/51WBNQUM9oaGhdoV2IDv92vT5N+Yve2fZkneWTLs6jYS8TrYf8kGzrNEPSfAAaPTDvgmPmc1M + mTJlz549NE3TRxHVT3r0D5rv4q9SS6TusXnzZus4a8g5+Hpw+Dvhq99djQp9O5TY9IEB+iHmQwQPmvBU + QC9h3N3dd+/e3dHRwdm0ysO1A/VDDfUTfa+MqLE7dXV15nPNIed5b89bcWvF+jvr496Lg6i9LnrpHdEj + j4s/I3ioJTzpWqmZmdmuXbtg09zDteiHd+/e/cF+qEE1/+qJGnuBfQELo7FGkPOim4tibsckvp+YfDc5 + +t1oBGpM52Q+7Bc0fVhLLeHJkmVCXWFlZeVAYwvXD/sB/fDhw3/n+dUv7MIuYEfQpuTm8rnX5i5/Zzm0 + nH4vPft+dsJ7CUgg6If9Bw+wpglPHTSb8HJyclT64Z07d/hPNKUYVUH3+2QybKLi6y/zwl5ghx0dHUMO + h0DF0PK2B9uKPihKv5++4MYCMrYgeKiAZlk/TXjqoJ1EGzduRD/s6uqiz6qhDwJwwWOgfqjBXYzslRQ1 + 9mXy5MkhLSHx78VDy2UflVV9XFX4QWHkO5GYy8kgrpLwKOjSgaO0tzgqKgr9kD8fcqfxqF65uUSxHezS + 4NIJv2m+Gqyx/Tg6lyxZMqt4Vtq9tOIPi3c82rHz8c7qj6vj7sRhbCGDeL8JD1F6ANA0Sre2tvLnQ5VH + W7jgodgOdmnQpklFTTM1vUNega5IQeNID0wNzH2QC767H+/u/Kxz1+Nd4I6hXLd74Cg90MwSKJk5cyYN + HvTRlucMHhrcFfZ+3stTvCALu1BYWDhpzaTSj0qbP2k+8PmBo18e7fqsK+9B3pSrU0jCQ5TuFzSdWdRA + MyHkqQc7d+7kggf/YS0uVvQDGsrnnsv+M16e4gVZAN3U1DQ+bHztx7Xtn7Uf/+r42W/O4mPlw0pM5OSM + R7+gq9gn8vYLOowZPXo0QCN4cA9rPc+JafKes7/E5SlekIWNh+68Z3jDLg5/cRiUaUHdYTfC9E6xM4sK + aPY9nMmjtP2CjmCcnZ1bWlr4J6afJ+FpZGdn08tTcE+x5ke9l501thyKcxnnArvo+bqHAw11I3gYnjYk + J0v7A02e84gpXA20NEpqbW3d3NzMJTz6JLF+Ty31Ac0w5rh/+K8PfZW6IrYc+2XraktNgys4deztWJMz + JmQ4VANNTpYOBHqt1NTUlILmP1D7g6eWNMzMloSGhuJugf7pd9OuSLvni2Yg2IwfXIpvZRf+C6GZWZvx + KaOg7s3vb7bosSDPTlehjALoQuV5JRXQcVIDAwOA7jdKPwu0q2u9kVFgbGws7Yowdf71bX5RA8GhgzaC + bW1sbMzPz9+0adOKFStwr2PEQMNxcnKysLAwNDSUyWQSiUTILtzAf/FJfAnf4O3tPWnSJPxIZGQkYty2 + bdt27NiBeIsohV3ANmPhrxiMMuj9updfYI1x3KrXikzhKpRR6IcDgJZtlMnlcjTYfs/hqT+mpdhVFvQO + R8c8Pb3RGOFxCHAGgqSiYiD4sZ/MGr8HbQCRKC8vb/Xq1YGBgcBkbjxqrIdryNSJq8Pmpq1ZuT1lY0t+ + dnd1ydld9Tf2775/vOvx2aN/unz6ydvn//HOpe/fvYzCDfwXn8SX8A032prO1pV0F6S3JK/bHr0kNSx4 + VWDAHB+3sbaW5ga6GL7xh5YvX/7m8DczdmTUnak78uGRni97SH3Vk3Mvx67HjiiaPb9B6nlAJ8oYhgHo + gWaWZ4FG2dhslkqt6+rq6EMG1EBUEsiPMmv8FP489JWQkICEr6cjH+PuGh48Y0tMVMPW9FNNVcD0j3cu + /uv2lX+3bvT+6/Kx73u7vj/e+v2hhu87Kr9vLfy+IevvFZvvpq84GRNaP39ilLPxPDdzD1M5I9bynuw9 + d83cjds3xrTF2B2zk+9krz+B4nCjYB0FA4BOlolEIoBWP1kKgT5jOAToBrZ2WFquEov14Tt8A6EJ5DlH + GNyZyJXQ7KJFi3Tl8gAf7zWL5pelbj7RUPXxmUOqgH7GunXxX9dO/evCoe9Pt31/uPn7rqrvdxPW31Ul + fVca911B9KN1M55smfckefa9NRO753sVTrKLdBvlbSIaqvWHQT6DhgcPF6wVMAUMCRts6VSxoGm8S2aL + xxoOBq9THw77fZRWgYYF3eTq2khxm5qGzZs3D+5ODYTO5c82a9zGn9m+fXt4eLiJkeGsiQHQbHtZwb1j + Xao4ftF699K/rvf869KR73s6ibQP1H6/t+T75q3f1aZ9V77x0aa5T3LCWdbBTzZO/9uGSX+L9f/zau/z + c83K/WVRjlrehoNHav73IM9BI0JHCBOE9NmO0gypNFUqS1KyVhYFTYdD7jmPUGe/U7gCE0C7uTXzWY8a + FYyOxM3lOBa4sZJv1qCPv5GcnIy/OsHHe/PKZftKtj04cUB1/3/NeufCv946rWS9i7BuK/1+V/73OzIf + pUc8KV79JHfZk4yFT1LnPNk042/xU/4cM/bxSodHS60eLTJ7tND47Az9ojHixTYj7HRe/6+h/9+w8cO0 + FmhJNpD3TCOVRIpATyLWAUtEJqZT+LNBc6IkoHmsG52cyg0Np6xfv54bYbi0B9YQOH57XFyckYH+3OmT + ixI3XNjToLrDv34BMeR89SQo/+vcwe/PdCj8urPq+7bt3+3M+yQ35kll/JPtMU/yVjzJXkyknTTr2/hJ + j6PdH0XaP1rCsl4w6sP5RvfnGb0fatjkL13rqOmjP3jY8P8e4j5Ec7amZJ1Eii4G4hulaIb19fUAzU3h + 9HkH/NMd/YJu4bEmuB0dCw0M/BMTE+E71KzBGlEGbc1AX2/e9KllqZve7tr93S2SBFT3+WcvNEyi06MK + gif3ErUeaf7+UCOp7h3fd9d/f7CO6Be1v+b7rmqWb/n3+7Z/v7vo+10F/2zKebwt5knN5ifl65+URD/J + X0FsJH3+t0lBn8aNeQTWK5weLbV5tMgcuias5xrdCTF8d47hO8EGe/xl6x21xugNHjbsv4d6DdWap4Uc + jXxZW1uLfoiZhZvC6emOZ5xX0nB3363Gusnefque3pj09HRMmUlJSVpaWlN8x2Stj0bw+utbZ/9+A3nr + 4j+VkUsVzU+oqydJHwM10GnK/q46mTSxwujvtkZ+l7Xku/Sw71Lnf5cc+l1SyHeJs0ltDmZvzPkuOeS7 + lLnfpc0n35Ox+LvsZeRHtq38Ln8V+fGitd+VrPtHUezjlEUEcdHqJwVRT/Iin+QufZK16Nu0kE83BXyy + Hqw9CesIu0fhlo8WmjycPwq6fi/E8FawwY1ZBteD9K/O1G/wY1bajnSSv/Ffb/x/mpqaW7ZsaWhoQMKj + wyEd97jTHfS8kipoT8+Oflmbm6doatrpSqWRc2c3b8t8eKr707NHv7p44s9Xz/zt+rn//TdYkygG0dWn + f1cU8136ou82Bf1z3aR/Ro39Z6T3/y7z+HaJ+5/C3b5c7Pr5YtfHi1wfh7k8Wujy8UKXhwtdPlpACjfw + X9QnYS746meLXL9Y7Pp1uBt+6q9L3f++zP2fER7/XOFNfuEaf/zmJ2snfxrh82RT4JPEoCcpc56khTxJ + C0V9mzLr8Sb/T+J8P4n1eRTt8Wil86Pl9oT1ItOPF4x6EGp0d46C9VtB+ldm6l+coX8hUD/fUzhHb7iV + WDMgIACHOBeluSkcRz93uqMPaG/vQyzrPZS1i0ujrW21qWmJqUmRqXGCTOKSFbvq1sE9SBFg/dm5Y19f + OvmXaz0ca2ogz2ZN1Lozj+grZS7L1Ac4wAWMwOuDBc735zm/P9fpTqjTu6FO74Q63QxxuhHi9HaI4/U5 + jm/NcbzWX+Hz+Cq+B4Vvxk+h8OPvzXW6O8/p/nxn/Fr8ctwTn8xzuBto/M0Sx78uc/pbhOvfVnr9LXrM + 39aO/3PsuE/Wejxa40kUvdr9UZQr0TVYE8s2fzTf+MO5hPWd2YZU12AN0Oem6p3z1z800SzJWW+8gdDL + yysmJgZ9i5/w6MxCswMX0gD6KMu608Vll41NtZFRgYV5qb1tpatjHcrOKkVX6p4ZE/Vu9977x/d/fJqw + /ubSqR9gjc8caviuctN3aQsI2eVef1niTrECAZhSoADER3l19s9Q3D1B7wbcZ9dmWp+baPROqO2deXZ3 + 59t9sMD+UZjDZ4scvwi3e7TIGPolKoZHwzpo4TbRNWH9Ueio+yFGYA2/VrCepndhgsH1mVbXZlhemWFV + 5GUUYs7oCTTXrFmDxgj3+Oijj2DTcA/0Q+6MB1gD9HEPj257+z2mpjU2VjWOdrVuTjuUVY+ys0rTl3ul + rlp+u3vfgxP7H5059Pn545Q1pmE+6+9O7CH2mjofx+w/lnngcMZRzyeLPf95sT5PnZtmcWKC4aVga9SV + 2TbX5ti8HWJzM9T2Zqjl5Tn61+cYvDPH8L1QQ/gyHAP98FGYKaEcZv5ogemjecYfzyWs359NbOTtWQZX + p+tfnWx0c6bV24S11dWZ1pdnWNX5miy10bWUCmNjY48ePYpBD/MhHT64oVrD0XG/lWWrg91ed5cOT9d9 + Hi673JwaVFg72GQa6PgmRCy6c6gNrD/pOcxn/fe9pX/PXfG/66f8Y7kn4MI6AReH8C3WBDi4Kvv/q1XP + ZLMTE0ddmGVN62IwKUA/F2x2fKbuqUDdnhl652bqXZqlfy3Y4Ca8IsTw3lwj+MbDuaNAGUV1fXe24buw + kUCDG1OMb8+yfifI+u0gaxwuV2aAtfWlmTY7/c2jHPTtdMTwbrRHbtADa3iIhqN9p6fbodGeh709ur3c + 93u5tXm4tLo7N/bFvcPRLs9Qb2L0gpCrbc2U9Wf12V+lhH2zatyfwl0J3HmA60jg8pSrss+/SZ2eaHJq + sgkHmqszQaaHZ+gcmqZzZJrO0Wk6J6brnmahXwjSvxSkf32W/s1gA5gG+IIy6t4cwvr2DMM7gab3Z1u/ + F2zzbrDNjSCb60HWV2faXJ5pc3Gm7YWZtq0TLKMcDe11Jampqch8MGskEODWGO15jK2joz2PeHsc8nI/ + 4OXW7um6x925SYW1s0OZscHMReO9T6wIvLd0zAfznO7MdbgZYv/2bPtrsx2ukb1yuELKEaWyt79hnQwY + dWaqqQpl1KmZJoem6xyaqqxpOodZ4sen6Z6crntmmt65QD0kDWQ7OAZ8A9BJBRren2n2YYjN/Tk278+2 + BetbwTZvz7K5FmR7JciWsA6yOxdk1xJgudzBwEIuLigoQOaDtDnQlPVRsPb2OOjlBhsB6xaWNYvbsc7N + psLNcrspM104aHjl6FGnA23OBNr2zLDtnWl7Nsjuwiz7C7McLgU7XCb1ArE+Nt6wZ7q5CmXUyZnGfUDz + 6vBUnaNTdI5N0T05RfcMYsZ0PeQNEEc/vDHV4P5M84chNh+F2H4QYndvju17c2zfnW17M9juerDdlVl2 + F4PszgfZnZ1p1xtkVzPOYoGNgT4jQujmg+Zww0YOerl3sZbd6u5Q52Zd7mZR7Gpe5GJe5GxWZCqbLxoq + S3TSOTjF+uh0mxOBNqcJbvwBsLZXZ001zhX7VVL4zouzSJ2f5XAuyP5skH3PTFKnUTPsUKdm2J0MtDvB + K/wXhc/Tb8B34vt72Z/Fb8A9jd+GX6vcBnJ4HfbVOzvD8vwsaxQf9ImZRv2DnqLTPZnUock6hycT4sf5 + xCfqvTvD/P5smwdzbD8MsfsgxPZ+iN3dELs7c+xvzWYP7mD7S7PsLpBNsqP7kudjNs1cF6CPs3zpR441 + bKTby2mfp22jh1WNq0W5s3mJs1mxk1kRLQu9KOkIqwgLSeckq8NTbY5Ptzk1A+q2OzeTsKbSvhTseFmJ + lTLF54GD/nnAOh5odyTQ9tB02wPTbDqn2HSw1T7Fml9tk1VL5RvoT+HH90+16Z5GftvRQFvcJbgbyN02 + w6ZzjE7PTKveIKuzQVbn2KLQj84w7J6mRnmqTjcFPUlRwM0RPzFF99R4navTzNEJbwdbwzruz7F9EGL3 + INT+Xqj9+6EO74Y43Jjj8NZse+wyOODuP8OKBrtJQfctj2OjnfePtm/ztm31tNnpbtXgalnjYlHhbL7d + 0azE0ayYrSJbo0Q97dEzDLQrfIy7p9ocg7Rn2J6ZYdcL3MSniMTOBjlAbhTrsUA7PlMwouD2KWvvJOs9 + bO1+jqLfiR9Bcb+Bf09Q+vsCzJu8dQ5Oszg03eJooMWJGZanZlr2BBHuhwP1Dk6VH5wi7wZctvoFzRXF + fcRXfn6q+ZVAy7dmWN2cBdy278+xvRdifz/U4f5ch7tzHe+EON4Kcbg+x+EKYe1AWWP3+4IGYqcDo+3b + ve3avGwh572etrvdbXa5WTe5WtW5WFY7mZc59cU9igkSDhYlOunCRo5MswbuY9NQtvh4eBrB2jXVun2y + TRu78xQrBUp5tU602jXRaievWiYoqlmtuC+h+D+C34DCr+LuA45+s69xnbfO7klmqL2TzNummHdNteie + ZnEk0KJtqk77ZFnnZPn+KfIDU3jEp+gc7A80qQk6h311z06zOD/N4mIgGVjeCrK+Ocv29mzb90Ls7811 + uDfX8d5cTKdIX45vk9BFjmOwhtSUHq2KmFabh80+D5s97ta73K13ulrtcLGsdbao5OEmxM11V0pH2Cww + EdX5me2baLl7kiUiDtlt3CY7jxso61YWK0Wj4Bjws1bfO4Cirx1tUOOj3zLRbOckUrtY4qhdk0zqJjCN + /szOAOnuCdK2SbL2SbKuySzxyfKDk1A6tPqADtA54qffO9UCrM9Nt7ww3fLSDKtrSHizbN8JtrsTAvcg + oO/Nc8KMdpuMESTjwjbBmgVNjcJuH4fYA2VDQNPicLPSroe0n+I2J7htjdP1hBNGvvHmWjt53Tizen/z + hvEWDf4Wjf4WDQGWTQGW5KO/VVMAKVVAv1Cx92WZu071WMOGCaZNqIlmqGYW+o4JhhXjJZV+kio/SfU4 + yY7xTLM/Ib5voqx9oqxronz/RPlBWnzi/jrHxhkQ0IS15blplucDrS7OsL4SZPPWLLsbwXa35jjcCXV8 + f67jXbBG/GXnYYwUYK0x2qFtNEEMlyBFEXNFKCvL3Wavu81uNyLtJhfLOmeLakfzSkfzcgezMnuzUpSJ + PEI83DLQQJDpYVTua1bpZ17jZ143zqJ+vMWO8ZYN/paN/grcqlB+mcIfyrMXVfuNqvM3rQ8w3RFgCuKN + LPRqf73tfpLSsZIyX0m5b1/i46W7/aV7A2TtAbKuCfIDfNzjdI77G/UBPd3qfKD1RQwsQbbXSMKzvzkH + LdHxDjEQha7B+vocRw0v292etntQHqBsQ6sPayXodrYIbjebVlfrFmerRifLOkfgtqhyMK9wAHHzchvj + bF3hlJFvaIebM2VjzSp8zar9zGv9LOoJbsIa9atJu97PrNCZAWV+UeJl4+VFvuLiMeKSsZLtYxXEK0Dc + V1w5VlLjK2nwY3aOk+7xl7UFyDonKAR+wFd+YoJxz1QL1j0s4R4AfSHQ+sIMMhZenmV3dZYdIgeCxzsh + ju+GOkLRwE1Za3jY7PSwbYUzsNWHtTtbStBt7qTa3WxQ+1yt97hY7XKxanGybHC0qHcwr3EwB25Fmemt + lWq6+khHxNrrQtpVvpC2Rb/S/kVxV/uMKnGXq4CmVeQrLRgrLvQRF40hxREvGysuHyOuYKtqjKTel2ny + Y3aPl+71JwLvHCM7OdHkzBRzgO6dZnl2utU5FvTFGTaXZtpeCrK7Emx/NZjMyUgdN+Y4srjJCTWUhpt1 + ozsynM0uD5vdHGvWJRSgSdm2Aa6bDT6CcoerotpcrPc4W+1yJrgbHS12OFrUOZjXstBr7M0qjaSLhMNM + p+hpJ7sYVPqaq0sbuBv8rQrGmKd4msQ4G4XbGQZb6k001RltJHPSZ6x0GGOpWE8ikoqEYqFQKBCgcAP/ + xSfxJXwDvg3fjB/BD+LH8UvwqwrHmDeyoMs99cu89FQQo2r9TQp8Jfk+4vzRpAp8nhIvQfmIS33EZT7i + CtQYceUYSa2vpNGP2eUn3eslPTbR9NRk8zNTFazPBRLrgKIp6Muz7K/MskfYAOu3ZjvQ87SQ8y2ARmdD + nHCzbkGvA2t3ND0FaFJEvDZ7Xa1JsbfbXG3aQdnNthPF4XaxbmVxN7ECB/F6WrYm+friWdpD5EFGwgx3 + I0g7y9NkrZPRQhuDiaZyF33GiBGbmJg4OTn5+fkFBgYuWLAgMjJy3bp1SUlJWVlZeXl527dvr6ioqK6u + rmNXbW1tVVVVWVlZYWFhdnZ2SkpKXFxcVFTUokWLZs6cOX78eBcXF1NT01GM2NVA6iEeNsdcstZFP3u0 + ER905XjD/LFiDjRXwE1qtKh4tKhktHj7aIK7XIm7erSk2Ut+IMD0yESzE5PNT0+x6KGiBmj2jBIHGgn6 + ajBhjcjBnRbXQHJwtqhClnCzakajc7dpZVnvcVPw3UMpu7DlSlijONZdbFHi+1ysdysFDuJw8AbC3bLR + 3CiDEUwd9EeBePhQzZEj3N3dp06dunjx4vXr1+fk5FRWVoJdTU0NIALlDnY1sKuxsbFJuZr7Wy3sUvyH + t0pKSqKjo0dqj/Se7G3vZT9Se4SFXNvPWLLARp7gZrBtjE6/oEl5iwu8RWBd6C0q9u6L21Nc56nTOs64 + 3d/k4ASzo5PNTxLWVmcDrc/PsAFrgL40y56wZkFD11fZByKQOkgzxNCBfOZsUYGM7GrVCGm7Wu9ytd7N + IibFClYBegDW+9mixKnAdztY7rS1aLYybzI3a7Kw2Glt3WpqmiOTBY8caTBt2rTNmzeXlpaWl5cDMdQK + xPX19RxZkAK+nTt37mJXa2vrbnbtUa69AyzFl/fswTfHxsY6jXZKrU1FpVSnrExbOXvF7LGBYy2dLcWi + 1+303phmNmy1g2aeGuh8LxGqgC3gLlLiLnUX13nptfiN2uVnsme8SWeA2aFJ5senWJ4mrG3OzySn7gjo + YAKasGZBU9YoChqFMa/MyaLKyXKHs1UzGp2rdSt4sUVZP8WtZA0boaz3u9sdQLnZHnCy2W9n1WFl0WZl + 1WZj02Fn1+no2OXsvN/JiZSz8wFr6+36+gu0tEwnTZoUHx8PIUPFVL/gC7jAClKgtm/fvra2tnZ2dXR0 + dLKrS7n2qy3FF7q66HfOmjUrcHFgVnNWVlNWZmNmRkNGxo6M9Pr0LXVbZLGyodOGvu78+v/o/Y+e+DUf + w8HhtiMyPYUsaEKZlCcpylqhbhdx3WiDJt9RmDZ3jjNuHW+6L8D0wCTzo1MsT06z7p1hew6siajREgno + K0rQtDQcTAsczAodTIvsUWYlDuaVThb1zpaNcAD4wECslbgJa1fbTkfrTnvr/dZWB2xsjjg4HHd2PuHm + dtLV9TjKxeWoi8thlLMz+YhydT1ib7/DyGilWOzs4+OzatUquAcQU82CL8V64MCBgwcPdrPr0KFDhw8f + PsKuo+w6prbo5+n34JsdHBxicmLy9uZt27Mtd3dubmvu1l1bs3dmR9VGCdOFWrFaWlFaWiu0hgcNH+w9 + +DWT1xjh/3gbDA63HpHt8RT0U9woR1Gdj9GOsaMafI2b/cDaBKz3+Jt1TrQ4NMXqxDTrHsKanC6GexBd + s6fmcRtB8GTAKA170wI7kwJ700I7RRWzibgG9joA66e4naz32VnutbLYZw3Q9t0s3zNubr3u7mfZ6nVz + 63FzO+3mdsrNDV8iRenjhrv7CReXAxYWKTo6U0aOZObOnUsvdgZtgizFCnwnTpw4efLkqVOnTp8+febM + mZ6enl7lOstbik/19uIb8G3on9ZO1iX7S1DFXcVFnUWowo7CgraCaVXTBOkCQZxAe4229mq2orQJ8eDh + gz0Gv2bwmr7gtQDDodH2mnzW+e5QtLR2jFHdGMrapNnPpGW8aau/2Z4A87YJlgenWB2bRk4XnwXrIPtL + wfYIJKcnmXaP1T3mP+rMZAsNO5N8lK1JAcoO0AnrIjvTUsRh5Ae0NeBGqODjdrbeY2+5x9pij7nZbviD + o+NBF5cjLi7HWIigeRqI3d3PeXhcYOs8W4Q7ysPjjLJ62Or19Dzn4FBrbLyKYdypwOmbVIEXwAHi+fPn + L168eIldV65cuXr16rVr195SW/gkFr6K70Fumb5wevWJ6urj1VXHqiqPVlYcrag4UlF2qMy50lmUKRIm + CIXrhYJ1AkGsQBAj0I5mcS/V0lyg+ab/m2/YvDFo2P+zl74x1/zNTHchQOe5iLa76VT7GNX4jKobO6re + 17jRz6R5nOlOf7PWAPO9Eyz2TbTsmmJ1ZJoNnOTIRJPucYbdfvonJpj0TEX4c0ABdJ4tKbAmpWRNpG1v + hnmvli9tJ6vdtpa7Lc13w4Lhv05OUPEhFPUE1iWAG2olrMHX0/Oip+dlL68r7EfUJRQ+6eXVp7y9L48e + fcXL65yd3fZRo5ZKJE4IauhmsG9QA77r16+//fbbN2/efOedd26x6za77vAW/cy77Jo8eXJ8QXzT+abG + c42NZxsbzjbU99TXnakrP1luWG0ozhGLkkSijSJRgkgYT4gL1wkF0QLtZdpaYVpa87S0QrVGBo0c6jH0 + NaPX9IWvTRk1LN5aq8xDr2q0Uc2YUbVjCOh6XxPCerzZLn/z1gkWcJKmMYY7vHSbPOVtvkaHJlicnmbb + G2h/bob9+Rn2BLS+eLqtyTa21HE/lba9RZONebO5WYuNTZuDA/obENMioClrmC9bxBlgF2Dt6XkeZL29 + r3p7v+XtfX30aK7e8vG55uODj09rzJjrY8a8PXbsO6NHX3J0rDI2DpPJ3Dw9PSMiIpCajx8//t57791l + 17179+6z68GDBx+oLRi6jbMN+O55a8/ua7tbr7W2Xm3ddWVXy6WWtUfXSuukkq0S8RaxOEUsThaLE8Wi + zazAY4WC5QLBMoF2mLb2Am2t+Qrib45/8w3TN4Sv//d0I2Gykx6mTbCuG0tAQ9o1ow2qvPTK3WSVbrI6 + L/3msca7/a3aJ1p3T7Y5NtX21HS7nkD7syxrjWH/85qOwM/KaEt/uIm0rU2KLUzKTIyrrKxaHBzanJxI + inB2PsgWAe3iwikadcTN7aib2zHWhU/BHOAMlPXo0W/7+NwcM+bWmDHv0ho7ltYttnDjtq/vHT8/1Ht+ + fnd9fC6gXFx2WFltNDAIkkis/P39YSzIhbDvDz/88OHDhx+z69GjR5988gn9iJWZmRkSGdJ5u7Pjdkf7 + u+2kbrXvu7lv3419k7snM7WMJF8iyZJIMiWSDIlki0SSJhEniUVxIuEqoXC5ULBEIFgsECxiiS/U1p6v + rTlGE1OVl5eXrtbwyfqCBFtmu5u82JkpdJRsd5VVeurX+Rg3jbNsGWe509+q1d9qT4DVvgDr/ZNsj0yx + PTnN7kygPaStkeJqMF5HkxnpbKYXq2StwG1lnG82Kt/IMN/MrMzGptbOrtnBodXREaxhGoS1i0s3S5nK + mVP0UXf3Y2wdd3c/6el52sur19v7AswBsoVgKVBf3/dBEzVu3D227rP1gK0Pxo37cOzYG2PH3vTzu+Xn + d3vcuPd8fa+5u++0t081M5uvq+umrS1EgIMXY3RE/4SxfM6uL774AiNiRn1G973u7vvd+Hjw7kHU/vf2 + d93pst1vK62RMkUMk8cwuQyzlSHEsyTiNLFog0i0RiSKEokiRcAtXCYULhFqL9IeOX/kEKshBgYGGDhf + f/31YcOGCwa9PkFHM8lBp3q0ce0Y03pfs3pf80Y/C8J6vNUuBWvrvRNsOifaHp5iewKsp9tp5HmZ5HiO + mmkoFAwdNUq2mIK2Nt5mZpRrZJhralpsZVVua1vNVo2dXYODQ4uj414npw5n5y4XF7A+5OqKIpTd3Kic + FaA9PI6jPD0p6x5v73PwhDFjroKgr++7fn7vs2Q/HD/+o/HjH44f/8jf/1FAAOqTgIDHKEp//PgPAgI+ + mDDhg0mTPpoy5aPAwIdBQQ+Dgz+eNq3H37/J23uLo+MSc3N/XV0LOzu7gICAiRMnWmPKurGn672u/Xf3 + H7x3kOBGPejOuJ4h65IBtLREKi2UMvmMJE8izhULs4SCFIHmOs2Rq0YOXz58WPiwIWFD3pj3xushr/9x + 9h9fn/3G/4j+aGnpNG7czFmzli1ZEh8aGuXpGWAk0JpjKsvzgIeY7fAz3+Fn0TjOonm8FVjvBO4A6z0T + COv2iTbdk21hIxpFo03zvAnrxeaM5iCBnmi6mdHWUYZbTU0LLC2329hAy+U2NpUoJe46e/tmR8dWJ6c2 + lvUBV9duN7fDbAExLQVlCtrLC3XKy+uMt3evj8/5MWMujx37lq/vO7AI0Bw//kMW8eMJEz6bMOGLiRO/ + mDTpi8mT8fHjyZMfTZ36ybRpnwQGPp458/GsWZ/OmfPp3Lmfzp//aVjYZ0uXfhYZ+fnq1Z/Hxn4eF/d4 + zZprkZEH7e2D5kaHtd/uarvdue9W+9532nbf2NP6duuu67vGdI15o+KN17Nefz3t9deTSb2R9MagpEGD + Ng0avG7I4KjBgyOHDl325rBlw99cPnJEhObICG2t5cKRMwXDho2IiEhYtmxTRMTmyMjkqKjU1avTw8LW + entPsJOKIqz1a30J6IZxYG0J1s3+Vjv9rcF6N4u7bYLNgUm2GmVjTYt9COutnsazTZk//Nd/aWqOHjUq + ydq6FKUETVjb2lbZ2VXb2UHXtfb29Y6OLU5Oe1xcOlxdD7i5dbu7H3Z3P+LhcdTDA5SPeXoC8QlaLOiT + 3t6nvL1Pe3v3jB59dsyYC8Dt6/uWn987sAV///v+/g9Z1gTx1KlfBgZ+OWPGpzNnfhocDLifhYR8Nm/e + 5wsXfrFo0RdLl34REfHFihVfRkd/uW7dlwkJXyYmfrVly9fZ2V9nZn4oYnSL91ceeXj6yEenjjw8dfTj + U0cfnTrGlvVxO6ZFLqmQS0rlkhJS4iKZuFAmypWKUqXCjYwwTiJcKxHESARrJILVYpT2KvFIH21XVz/A + XbkybdWqtDVrstauzV63buuGDQWbNhUvXrze3X28r4F0k/OohnGWKMLa3xrFsW7xs2oaba1R4WsG1uke + xtPN5HpCLRjchAkTBAI7Q8OV1tZltADa1halYG1vX2NvX+vgANaNzs6tLi5tbm5d7u4HwRqgPT0p5eNe + XkDMp0xq9OjTbPX4+JxVqvuan9/NcePujB9/PyDg4YQJn06a9CVYz5jx+ezZn4eEfDl//pdhYV8tXvxV + RMRXUVHfREd/Exv7TVzcN5s2/Skl5U8ZGX/euvXPhYV/KSv7duXKxolzAo89OnPskzPHH5858bjn5Kc9 + J/HxcU/SrTTpIR2mQQkatZ1lXSgT58pEKVLRZkYYzwjXM8J1jDCW4YgPt9QKDFy8Zk1GTExWbOzW9evz + 4uMLN20qSU4uT0urycioz85unD8/Wl8oDLHQK/Exaxxv2QQD8bfe4WtV621V42lV7WFZ62GhUe1nvtrR + 0E1PguwZFxeXlpaWnJw8b9684cOlOjozLS23saJWsLazq7Szq7K3J6xZ0KgdTk7Nrq573Nw63N0PeHgc + 8vQ84uV1zMuLgPb2BmJafUD7+Jxhi+AeM+bc2LEXx4694uf39rhx744ff9ff/8MJEz6BgUyf/uWsWV+F + hn4dFvZ1ePg3K1b8KTr6T+vW/Sk+/k+JiX/esuXPOTl/KSj4trT026qqvzY2/s3PLzy5MuPkp70nP+s9 + 9fnZ02ydwu3PeidemCpt12HqdZgqHaacrTI5iog6h4KWijYoK05BXLBYMlyoBTmvW7ctLi4/IQEqLklM + rEhLq87M3JGT07xtW2t+/t6iorbU1Mrp0xe660qjbUdVeVlWuJMqd7eocDOvckeZacy21NUTC1esWJGb + m7t161Zko4yMjC1btqCh+/r6isUexsZrbW3LWEUDdAVY29tXOThUY5xzdKxzcgLoBmfnRheXXW5u+9zd + Oz08Dnp5HfbyOurtfdzbm7IGX1pUzk9LSRzeDeLnx4695Ot7lRL3978bEPARBD55MtT9VUgIwR0R8c2q + VYQ15JyaSkAXFX1bXv7Xurq/pqaedBnjvf/9I4TyZwrKtNo/6TI5ZSFt1WFqWdAVbBHWOpIiuThTJk6R + ihOlogS24tliiWtPFHt4+G/YkA8Vb9xYvHlzWWpqVXp6XXZ2U15ea2FhGyJPWdnBlJQDS5d2Tp3aaWWV + POIN7ck68kwHkzJXs3I3RVUCdFBQUFZWVlFREYaC/Pz8vLw8EMfKzs7G5+fPn6+pqaenN9vaOs/ODqDL + 7e0ButLBocrRscbRsdbJibBmQaOaXF13ubu3eXh0eXp2e3kd8fY+Nnr0idGjT7I1IG5UX40T4kqN34LG + AwKg8cewlMBAIvBFi75ZvvybNWuItIF769a/FBd/O2VK/Mq02BOPe0/0VTQq8sYq6SFdpkmHqdZhKtli + WRMDyZeLtwC0TJwoE2+k9ZS4pp1w9uxIVsWlyckQck1mZn1OTkt29p74+PYlS7oCAw/4+cEzD8A/nZx2 + 4fgGKIaZaactWm1mUOZqWu5mWuZGPmqUsQtTAAIpVgm7itkF+lhJSUnITAzjYWoaY29f4eAAyqQcHavB + 2tm51tm5ztkZrBvYF9CBdbObG8Xd6eXVzb6iQB23Kmh+KYn3wlWUMoeP3+DJ/DGVOaAvXkwsZdGiy6Ms + 7Wp7Wo9+3HvsUe+xT3qPc8Q/O+vS6yFt02F2qIFGS8yVi9NZ0Jtl4k282igTLmVGigToe/HxpdHRFUuX + Vs2ZUz1lSr2fX4uHx26kAGfnvc7OuIEAhlzQAMpwVPagL9XXjxQP0QrWl4MyLY0KdtGHOaqrq+nHmpoa + 7iMWPrl69WptbR19/Rk2NpmYj1FOTtVsEdYuLnUuLvUuLg3QtZJ1i7v7Lg+PfZ6enZ6exExY4seVrFXh + 9ls8mT+FrlT6O+PHk7gSEPAx7MXMLDVk1fIDD3oPPujt/qC3+8PeQx/1Hn7Ye+Rhb9LNLNFBPcEOHUGF + XFgmF5aSEuFjiUyYLxNskQlSZILNMkGCVDuelNYGqWacdOR66dAxIgODSe7uBc7ORXZ2SLq0iIXCPMEU + LYrappOTovAZOCq+ikPf1DRJIPAbyzBpdqMIaAqUPozU0NBAHzfiP8CBhdtY5eXlCxYsYBh7E5Mljo7l + Tk5Vzs6gzBXB7epaz76Kn7w2lL7My81tp7v7Hk/Pdi+vA97eh/rifl7itPjclQ6DLnrZw+OAVM+0sLOu + 697prntn9pPqUdT9Ho9jE99skr9ZKnuzQPZmnuzNfNnwPFJv5siGpcmGJkiHxkmHxkiHrpEOiWZ4JXlN + X0tHJ9zcPNXcPI2tDEvLLGvrbba2Rba2pax5AjT4tjg773R23sV+RDVB2g4OmDYQ0rZLpbNttYQx5gYa + QLxjx47Gxsbm5mb66EZbW1tHR0cX+ygGPfuOj1j4b2dnJxrmtGnTdHXHWlrGOjtXs1Xj4gLKtIi0WdYK + J1HipgJvg8C9vA56e/8UgasXRW9ktHrmsrCuuye77p5S1D1F5d2oEnUYDatihhYyQ7cxQ3OZoVtJDcmR + DEmXDN4kHhwnHrxWPHg1LRFXbwQK/vCHEcbGG0xM4k1NN5qZJVpYpFlaZlpZ5draltjZlTk41Dg5NYEv + rMPVda+r6z5kAfYG8u5OfIlVN8aOcn39ZTpDtTQ4xHv37m1vbwfNQ4cOHT169AS7zpw5c/r06Z6eHnrq + HZ85fvw4vpqYmCgS6RgaTrWxSaK4XVyAeyDi5IWLPOK7WeJdrIOThvnvEMd+MromeW1VLGjV8jseOLRZ + MnS7eGieeOg28dBc8dCtpIZkiYakiAbHCQfHCgevEQ5erVp/dNASCscbG69Xgk42N99iZZVtY5MPC2Z9 + Y4eLSwuba9sxRrCTRCebcTvc3PYig7HSxrRRgSNg1KjVGvAEqmJo9vDhw8eOHQPQs2fPXrhw4dKlS5cv + X77GnmXHxytXruC/58+f7+3txR0Aya9du1YiMRk1KtjOLl2pbg66Cm7qJxxuSpxYCo/4T9G4gcHK4MjF + fLhcVd7aKe00GVojGVrEglZSHpojHpIuGrKJBb1WFTFq0CLBHwQjdHXDjY3jTEwSTE03m5mlWFhAzvCN + YogUudbZucXFZTcou7sDMQaIg2wdYEFD3dA1LBtWXmJjk2ttnaGxb98+GEJ3dzd0CtkCMfgC640bN27d + uvXuu+/euXPnPXbhBj6Dz4M7oFPicHBkcIaxMDaeY2eX4ewM46b1o4i38lyF83EElR/wcchKz9Sq+EC9 + CmJaU06GDNvJDC0TD81Xk3OqaPAGVs4xqpRRr4/VHjHC1dh4HawDcjY1TYScWYPOg+2i16EH8uaGA8iy + +MhWp7s7DASujVGuwtER3wxDz7OxydGAMOEV8AT4w8WLF69evQqU4Pv+++8/ePCAnvbF+uijj3D7gw8+ + uH//PiX+9ttvQ+AQPn4QXXTZsmUMYzlq1Bxb2y083D9MnO8q6JweHnt5MlexclXourqLF65bqcKXVs27 + rfIus6G1kqHF/cl584ByRv2PwUipNFjpG5uUvpFjY1PAujNGB2x2KyIsTbEs37301ccuLki60Du8BSEY + JoPEAtDZGrCLkydPUiGDHRDfvXsXiAH3k08++eyzz+h5XroeP3788ccfgzhwQ+McbqgbZlJfX8/iNjUy + QgpM7IubloqVD9Q51aGrKJ1wx1Fs7eZe27NbBTEtIuddA8g5TTQ4Xjh4Xf9yfmOKYOhQaypnExPIGb6R + amGRwbZBUCN5A3MDpjN2QINNNyt3ATLH5+uxm4hkjo64S0rs7QsB2s4uVwOODEywgps3b0KqIEgRA+tX + X331zTff/OlPf/ozu3Dj66+//vLLL0Ef3wCNU3W/8847MBPcT7i38NvQXaOiosRifUPDiZaWa9VYczWQ + zNWhE+6svSCVP+UukUxfnbVRhS+tsneaiDv3K+cM0ZBEpZyjVSmjXrPSFIkmsXKOMzWFogE6CZHDyirT + xmarrS2aYREIgiPMgc21ZOOVO4L/wlgqnJzw1VKUknW+Bo59ODJgQaFwhkePHoEjEAPrX/7yl7/+9a9/ + U64nT57gv5Q4cH/66af4ZvzIvXv3cBzgfoLtwHxg3PB6ZJi4uLhx48bp6nqZmS1xcMjtS1mlVKCrKl2d + +6hR0WOmT26/fbTz7gmuuhSFsDF92E7JkNIfL+dZ2n8YMhyBDDkBf2LUqBhj41gTk/VmZvEWFpssLdNs + bLKgUBgCyxpdsdLJqZK3I7hNimWNrxLcDg7bHRyKNSBGOADsAoZAhQzZgiaY/v3vf6cvr8XCDbo43Pi2 + L774gpoJrAaeTp0EBwc1bjgSGmxmZuasWbNg30ZGgVZWcbxtGqj6sRcVvWM/RTL9tB3bOu8eV6+st4pE + 7QZDq0VDioVDtgmHbFXU4Gzh4HTh4EThoDjBoFjBoGjBoNW0tAetUtQfHUdoaXkYGCwxMFhmaLjcyGgl + cJuYrDUz22BuvtnSMgX5wdY2x94erAtZ1qUQL7CyfLld4FgrpA3W5ELdcAD4AJDRS/pAyNAvmIIvfXE+ + 1nfswn8pdHzDt99+i2+G9nHfcE6CwwIHx/Xr1znjprgxxMNPBAKhjo67icl8W9tU3mY9u1R6KUEvkwWF + rl7SefdYv+V22Hdoo3BIqWBIvmBIrmDIVsGQHFKDswSDUwSDNmgPWqc9aM1TuFy9Ear1h5HD8Mv19ReD + taEhWK8YNSrKxGSNmdl6c/ONFhZJ1tZb0Nns7LaxoLezoCllPmgU/cxTaWuADiQJH6B2AbVCsxQxyNJL + IPyf8lqV+C/HGnqn0oaPc05C+yRn3Cq4ESKzsrLmzp2LYUdPz8fUdLFaRPnhMjGJcfTxrjvb2vn+MfVa + c2HjiH3M0CrhkELBkG18ytqDt2gP3qw9aL3WoLVag1ZrDVqlWq+5DB850klPb6G+fhhlbWQUwYKOMTUl + oKFoGxsoeqvSPQBaXc78UrC2sUnVAGWYMt8u1Clzi7LmS7tfJ6HGrYKbjpfHjh1DmsQgmpycHBwcDOK6 + ut7QuI3NZrWt7KewhyMF0oTSLSp8uTI74DB0h2BIiWBIXl85Z2gPTtYeFKc1KFZr0BpVxKg35mn+QXso + w0zT01ugpwfQ4VC0kVGksfEqU1NYBzw60cqKejTkXADbZeVc/gzQ2CnsGroUdlODM2UVu2AV3IcyXfTz + fNy4bzgnwa/iUiAfN8yEejdaJZIJ5njEyoMHD2IuBfHQ0FC4ikzmCB+3sFhlb5+jssVc4bieHbVIBS5X + M0/PH7ZbOLSCNQ2+nDNZOW96ppxdh48Y4airC8oL9PUXsdYBOa+Eb5iarmPlnGxtnQ6DZuVMfYOT81PQ + 2HjsAnYEu4OdCgwMjImJKSwsJO+VxTflfoWsvlRYU9yQNn7VM3DTVolkQoMgpiT4CQSO6b+joyM3N3f5 + 8uUBAQFisR6sfNSoWZaWq+3ts7l9gLjcxvkOZBrbrpcyHUZD6wRDivvKOVswOF17cJKScr9yDlWR82JW + zstZOcegE1pYbGblnIlEbGfHyVkBGhuJTcUGY7Ox8WPHjl2wYMHmzZu5c861tbUaUCIOf1AeyC4GWkTY + ak7yDNy0VdIhHoESuZvzEypwODg9QYgknpaWFh4ejnQoEjEymQMiuYHBTKmeQWpdjgpfrlwOjxnaLBhS + ptYDIedU7UEJWoPWaQ2KUUVM6zUnuLMzT87wDch5hbFxNCvnBFbOW2xtFW3Q1jbTwmKticlCQ8MJ2Dxs + pI+PD45LJNqioiL+mWcMcfTkqOIdOn8sZW71i5satwpurlUiCNLcTc+ZUIHThgkH5xNva2traWnJzs5e + uXKlsbHxssRlbbfb2u50tN/pan/vQMd73R3vHep4/0jn+0cX9EYM2ysaWikYUsSaBkBzPRBy5npgtCpi + 1OvBI/8wYqhMNoOTs4HBUipn2gZNTVeNGhU+alSInt5kudxLIrEQChlXV9epU6cuWbIkKSmpvLxchSyF + y3/1Anlz359MmVvPgxutEsmEBkHkbs5POIFzDs4nDlcBcUz2syNnH/vkGOrIx0cOfXTo4IOD++/v77zb + 2f5ee961fFm7zqCaoYOKhg7KfXNQzvDBOSMGZ49EDUofOShZc9AGzUGxmoNiNPsixn9J/Y/N0BEj7KTS + iQwznmHGSCToXS5CoZ1AYKGtbaCpKdHT07OxsYFmZ86cGRERAU+AbKktAC5HlnvYhIPLvXoBiiHvCw46 + lJQC209d9Jc8Gzed4Pl+QgVOHRyzJSXOaRyukpKS4jvNt+Viy4lPT5x4TOr44+NP65PjY3rGCNoEmrWa + I7aPGF44/M28N4fmDh26dejgzMGDUge9kfDG67Gv/3HNH/8Y9cc/ruhbK//42qTX/t8b/08ikejq6uKg + sbKycnR09PLyQqtAKIJ9rVu3Lj09HUdVfn5+cXExfd0N9EsfkKJn8zmyu3bt4l63ALjt7e1QCY5OtH0N + KmQsBa1/e9HfpoKbSyY0d9Mxh/rJw4cPOQdXJw7V2LrYFrYXnvz0JIqw5oqFvvjaYvFhsWinSFgjFFYI + hWVCYalQuF0oKBYICgSCbIF2irZ2orb2Rm3teFJa8VpPK05ruN1wPz+/xYsXg+nSpUvRjWFT0dHR4JuQ + kIBElJGRgS5dUFBQVlZWWVkJxBAvlS3VLJ8sFn1dCIWLPo/jEkcn2r4G5aKA9PMt+mv5uLEobggcuFUE + DuKcpXDEsZV6hnrJFcmnPj916jNSJz87SYqFjtp6Z6vxcWPxHrGoXiSqEonKRU9BFwkEuQLtNG0CerOC + skqNnDoSngCfhTUB8YoVK1atWoU0tn79+o0bN4JyZmYmKMMoIGTc5RQx+AIuyGJRzdKH/ShZLO5FIbBB + HJc4OtH2CWgFm19gqeDmBE79hAocxCFwODhnKZQ4vBsIojOjT39xmtTnpwluWiz0A58ccOlxkXRKxE1i + cbVYXCkGaFGZSFQqEpYIhflC8jTRVIEgSSDYJBAkqJZ2pPZwk+Gw3cjISKgYiNesWRMbGxsfH5+YmIjY + w72iFEKGEUPC0C+FC7JoHmghVLMIqZQsfcAPUYrCxUGJYQ0dCGOEhgLJL7k43HyBc37COTi1FI74hg0b + lsQtOfPlGVJfkFIQZ6GjplycIj0kZXYxkjqJpEoirhCLy8XiMrFou0hUJBJtFQnThMJkoXCzULhRKNgo + UJQStOYYTfqSGRgF1tq1a/EXN23ahJYAU+aEDC+Giili8IVsqRugeaCFUM1yZOlrbRClEKhggPS1ILdv + 38Yx+muA5hZHXEXg6sShppDIkIP3Dire++DLHgVxJfSIGxE6J3Ske6RMA8NUM0wVI6mQSMolkjKJuEQs + zhOLMkSiNJEoSSTcJCS1sU9pz9MewYyAXUDCsGPkXzgygtqWLVtycnLQ9yBkeAXaHfobfcya8oVmKVb0 + D4oVmkVHAVnIlpKF71G4sEH0HnQgHKO/Kmi6ONx8gfOJYycDwwL3vb2v96teVM9X5E0mSCmhp72fZnrK + VNYukzZJpXVSCpqpIAXQkkKJJEciTheLUxUvURFt6lPCdUItB61Zs2bBJcAXKgbi1NRU3Lvbtm1DtKio + qIBXwIvR3IAYngvxgi91A4qVEyxGMJBFVAXZu3fvgix8j8KFDSLO4ujEMfobgOYWRxy4OeLYw0lzJiHM + PX3bFBY3B732Ya3DWQd5l1y2UyarZ5/BXyWVVpJiyhimhGG2MeTFKWkSSbIEoElt7lPak7R9fX0BF+0O + fKFiIKZegWiBaAw7RvgFYpgvJHzu3DnwBVy0Dc4KkEopVqpZzGKULLo6yFK4SFbo9uj5OEZ/S9Dc4ojD + DQOCAnac2XH267Oop6yVdfiLw6MvjNY5rCNvlcsaZbJamaxGJqsiJa2QSkul0gIpk8Uw6YwkVSJJ7KdE + i0Ra+lpwDBgxQgWMgqY3HEYIyPAK2DEiGowCKgZiGC7EC77QLOBSrGCKVEqxUs1iFuPIotMALjwQC90e + PR+u+EKApgs68p/hX3eqjlJWKQp68pXJusd0dfbqyJvk8nq5vFYur5HLq+WEdZlMWiRlchgmk2G2MEwK + wySplmSDROAiCAsLA18sGEVhYWFJSQm8ggoZHQ9ChhfDKKiK4Qzgy7cCjikWWjfFyieLTkPhwgaRr+CH + cMUXBTRGLGi57nQd93ZWiuKxnnN9ju5JXZ12HXlLH8rkXfEqZLISmWybTJollaaTt/WQJvcpJpmAFk0S + TZkyBaENiyKGV0DICMjUkREqIGT0OhgxjAIWAcOFeKkVcFhhBRzWgchi0d7Ddv1/vhCgsauTQyYTx1Ch + zKvFNxcbnDbQ7dAlb4y3Q/l+3uwbAZH3pt8ul+XLZNnsm6ekqVKmJVkoEegKEJDhxRQxFTJNb5g7YBdw + ZMQJCBlGjMwAFUO/1BAAF0wBlDLlY+2XLBYaD9vyyez924PGbs9YNKPlUosKWX6tvLVy1JlRul0s5Ubl + m3lzlMvk5I2ABng7XlrSNVKhvXD16tVAXFpaCsRIb2i8oIwxj6OMxIaUBsoQMvwXlKFfqlmKlQLFokzp + 4rByZLFo48Giu/lbgsYOoCOFrgxtu9mmQpZfMbdjyHt479clbyCmTrmcfWP6HJnira1SVRHTEvmK5s2b + B8T0lAWEDLtoYd9oE2MIAhzmDlBG30PTo08IgFFAxdAvRcwBpWsgrFiK3eu7fjPQaC+YFJYlLDv04JAK + WX6tu7NOlTJMg1Kukssr5ORd6bcS0+j3jelpSWZIBAIBcgV9yn1NTQ3SBVrfHvZdNkEZAx4cA5Q5LYMy + LBj+AFugiClWBUvlUuzMc6zfBjQaupGpUWxOrApWlQJl8x5z3QPPpLyNpQzTGIAys4gRGgkRlrkzyJQy + HAMx7hD79m2cL4My1TIoQ8iwCCCmfBWb/lPXbwAau+fk5ZRem66CVaUUjgHKu3V0mpSU6ZsNUsol7Fvw + PtuaV0lFdqK1a9fS147Qk5yUMgbr7u7uEydOICwjYyDGISMjwKH1US1TI4aQ/33KWL8qaKgDvWhC8ISy + g2UqWFUK3e+pY/SlTN5sEJS3y+V5P9QAE6Rib/HixYs5yrT77WLfIe/AgQM0L1++fBnDNMIyzRjofmh9 + nCn/LHLG+vVAo8msX79+YczCfdf3qWBVqfCb4SRjqPgyR5kNc+TNdyll9fd2VJYkgLwrPaUM06irq0Na + R16m5+GoNXMNED0DYRkxDi365zUNun4l0Bi3bJxsEgoTMN2pYFWpkOshhqcNSZL79ygzMxiBRIDZmm/N + iBlogAhzsGYMJufPn7/W3xsK/rymQdcvDhpbj2EX88j2/dtVmKrUkS+PkLf5P6WnmEqeTbnf9ylVFhPK + CA0UDRCLhjm+NR8/fhzj3xX2PXbv3r2L2Q+D3y9kGnT9sqBxeCJdrExe2XWnSwWrStU/qve55KN3XE+3 + vS9lNmP0T3mAyMyEMyIzUXx8PL8BqlgzUjOSDx2ykZphGpitfyHToEtje1HiL1HpqdHTpoz1muCRVpdy + 9OPDz65NN+ItjpkJ27UEDVra1ZraZZrapZraJZraxaS0Ckdq5Y3U2jpSa8tIzaQRmptHaG4coblhhGZc + PzViwZvDjAf7+DiHzJ4UOmfS3NAp8+dODVswfdHCGUvDgyIj5kStmBezeuG6teEJG5YlblyRlrw6c8ua + 7MzYbTlx+dviC/MSivI3FhdsKincrLJH/2b9IopubW01tzFflbrqB4WMQsCw6LHQPairu0dXp1ntPAZN + cs+nZRLmnETLly/ntMw1QEyA1JqRmmHNSM3UmmmeoxMgnU24wUSxMz/T6qPo0uIkWmUlycpKKd+OSkVV + lKLSKsrSKsu2oKrK0xVVkVFNKrOmMjM+LsLX121SyIRtu7cee3REtT7pU10POyac9ZccFglbBcJ6bWG1 + trBcW1imLSzVFm4nJSjWEhRoCXK1BBla2ila2kla2pu1tBO0tOO1BLQSnpZ2pOYI++Hj/EZHrVy8Kip8 + 9aqlMdERsWsjN8RFbUxYk5y4Lj0tPic7qSA/vbQkp7oyv2HH9p3NFXt313a0NR7o2nmoe/eRw3uPH207 + cbzz1InOM6f2nzl1oOf0wZ4zB3vPdPf2HDrbe/gc6uyR82ePXjh37ML5YxfPH7944cSliycvXzx1+dKp + K5dPX7185uqVnmtXet662vvWtbPXr527/ta5t6+ff/v6hZ9N0Qj8qampPpN8UqpSznxxRkW26lX0QZHX + Ra9+TFlFy5j9uKlk4O4nXScVe4kXLFjAhTluAkTM4Bpgb28vl5r7teafN2nw18+g6KyM9cFBE8xsTZYn + Ltt5pVlVxfxSannRlYVGRw2EbdrCJm1BjbagUilkTstFWoJ8LcFWLe10Te0UTYWW458WX9HaqzRHuAz3 + 9naLWrEoagXkvCR69bK1ayLi1q2M3xCduGltWmpcZsbmvG0pxYWZFWW5dTVFTQ2lu3dV79tT19XRdHD/ + zsOcnI91nDzRefpk14ul6AcPHhQVFVnaWy7fvLz5QrOKZvut5k+aJ16ZqHdajyRlzNZqpkwCBrRcxp6T + o2eLBp79UNL1UvFocUhISEVFBadlGubQKlRiBp1N+Cc0uNNGv5A1c+snKjotOXrWzABDU/15q0PLDm1X + Ve4AFXktwuy4iahDIGzWFtRqCSq1BGXaglJtAatiUiXagkItQZ6WIEtLO5XVcqKm9iZNvpZpUUVrRxEt + e3k6r4gMW7liMdyZWPOaZetiYc2rNiXEpCSvz0jfmJuTVJifXrY9uwrWXF/SQqy5pn3fjv2dzd0HdkHO + Rw/vPXYMcm6HO5862fVCKPrcuXNJSUn2rvYrklY09jaqCHagQkyGkPVP62OwVqSLhgFMGQGDnsVHDXzm + EyWNIb4cGhpKtYzFaZlGZvpMAXoKlB8zfunZpN/1vIrOz01YtmS2l6ej02iHFSnL63trjz06rCxV5arU + /MtziSO3s46sELKWoFRLsF1LAAmjqCkjYGzVEqQjYMCUNbU3a2pvhJZpqSpae5nmCLs3fXzcVywPo3Je + HbVkTfTStTHLYc2bEDOSYrekxudkJeZtS91enFlZvq2+trCpoax1J7HmzvaGg/tbug/sPHKIyBnufPxY + 28njHb+lopE6MzMz9Q31Zyyakbkj8+hHR1XU+ozacm8LiRYn+zpyXyH3MeVcXsAYICyjmOUM8nJ4eDg/ + Y/DHv66uLvrQFDb+6tWrdM7+iH2JHz9m/ArWzK0BFb0pYTmGKycHS0cv+yXxi0oOFh19dJhfz1Z04Xv5 + vj1jmENi4R5tYSOihZaggidkomVS2lxSVjVllXqqZa25I4ebDvP391kesRByZmPG4jWrl8TGLF+/bkVC + /OrEzYgZG7IyN27bipiRUV62tbamAKl5V0vFntaajrYGNmm0HDrYCjkfO7L32JF9cOcTx9t/VUVfvHgR + QQLG5+ztHL4uvGBfwcnHJ1V0+uza/Xj37OuzySMjh3R125QZmUYLdSGXk6SsOLOMqe+ZpoxiQsl5jOjo + aBUtc77MaZmezoeWucj8JftyVf6jU7+Olukiik5NXrU0PMh/vKe5maGDh+3cVSEZDVs6brcpzkX0FTJX + 6opu+aAp+EIQ7JjkihZtQb2WoEpLUM53ZKWQizS1CzW1t2lpZ/cV8lNTVimiZc2JI95khs4InLA8YkHk + 8oWw5qiVi6JXLVkbs4xoecOqpM0xqcnrMzM25m5NLirYUsZOgDvqiluaylt3VbfthTVjCGxGcD50cNfR + w3tQx4/uY+PzL6/owMBASwfLwIWBcXlxNSdqfvB8cb+179N9C28stDlro3eUPcnZytoxP1dwQuY9EKU4 + fUFNeeCkjJImSCUBEoFEsGXLFv55DDr70byMjDGQltUfaf01tUyXxrbdW9tu7eVOpPVTalqmReVc+n7J + 1HOTjY4YCDu0hTu1iIqr+6pYRcgFELKmdramFl/ICSr67VNaSzVHOL3p4my3aGEwq+UFKyPDVhEth69d + s2x9LLQclbiJajlhKyJzQVppSXZVxbZ6MgGWwZqVqZnIGUnjcDfnzsgbv5aiVbT5/JV9P3vylcnkkT14 + cfsPqLiPIz+3kFHMIkZkJ+Ie96Narq+vb2xspA+X0Nnv6NGjyMtcxlDRMndmjjub8SvLGUtDVb/q1VfI + ux60hF9eZH/SVtQtEOzREjRqCWo1BVWaRMWchHkqJkKGHUPIuZraWRDySK3kkVqJmlo/JGTUSJiybOjk + Sb4RS+dFLJun0HLUoujVS9auiVgfG0m0vDEmNUWp5fy07cVZVRW5dTWFjQ3bdzaV724l1tzV0bC/E0lD + IWcU3PnFVXTG/YxpV6dZ9lrqHSO5mAx4LcpE0a+KqR1XKjMyfQIGosVzCJlMfb5igeCpKfPDMj2/3NHR + 0d3dTc9jICzRZ35yeZlmjBdBy3T9sKIzb6VPPz/V/Jip8KA2kXCTlnatpnY1JKwpKNUUbGerBNVXxTRX + 5Glq52hqZ2gSFSdByCO1No3UShiptUETpY1SUzFKc/aI4ebDvD2dwxeHRCydq9DyioVEy4qMEZkQv4r4 + csq6zPQE9lRGamkJtLy1trqgkZxoLt+9q6ptT11H2w7I+UAXDc4kbMCd2WnwxVD0ia9OZN3PQhx2OudE + zrR181xYXcJ9VfzUjpErCthnxVE7xrD3zIyMIuliikSoL4yNjeWEzDfl3bt304BBH8bu7e2l5+ToeQz6 + /FrMfioZ47fVMl19FF30XsGSK4u9T3sYHtEXHlDqt05Tu0pTu0L5UN529tE8ImG2ipU3IORi1o7zWTvO + 5Ox4pNbmkVoboWJ+9aNozXkjhtu+6exsGxoyfemSkGVLQpcTLc9fuSJs9crFa6Ix+0VsWL9iY/yqpMS1 + W1LXZ2Vg9ksszN9Suj2rkvgytIzIXAYt79tT276vrpPIGUmjqfsAOa1xuHsXzRu/jaKLPyyOuhWF/OBw + zoE8AfmwLvHffexEN5B+n6Hi7XJ5ofI8Mp30YMcDn7WgRYQ8TSI0EkZFRfHTBZeUMfXtU14IEabMBYyb + N2/S54o/Yq+5RZ9iq56Xf1st06UhPKAl2KslQARuUIq3nCdepX77FPvgNNEybhSNVHjxVtaLVVQcryJk + rp4qWjNkxHCbYY4O1rNnTVkSPgdahi8vj5i3MnIBO/iFx6xZuj52+Ya4lZs3Ricnrd2SFpeduSkvl539 + tmdWlSu03NxY2rqTROa2vbWw5s72HQc6m9g5sJm682+s6H6Uqy5eWnwJ8xMFjcbUi59bxShEC8x7Qj3h + Kvad9tSFjHRBH/FDUj7CvgbtLHshxOvXr8OU7927x4Xlb/pe3uU3mf2evTQGlC2/WAkrisSJkdr5I7Vz + R2pnk+daEAmjIGGaKAZUMa/iNEdOGf7mqKFurvZzQ6YTIYfPYU157gqYciQJGGtWh8euXRbHBoykzWtS + kxEw4rdmb87fllxcmF62neTl+tqCxnr4cunuXdBy9b499IQGGQJRB4mc4c6KvPFbK1pFtvwaSMKIE5wR + c4nih6IxVxj2xO7igICAhIQElWihLuTDhw+fUF43lbsQIkz54+e4stkLtTRUxYvi65c+UahgpFY++1yh + rJFaaSO0ktn6YSNWLc2wEcPdhw3TGuLn67F4UXD44tnQ8jKY8rK5kcvmrVi+YNXKsOjVi2Njlq6LXR4P + U94UnZK4Np2YcgIbMDD4pVeUZVdXbSNaJhmjtJWcZa5ktQxrJnKmwZlk5xdU0er6RVXI5aVkriOnjDkX + 5iT8HEZMS7qKtWNDYVhYWGFhIWfHdNhDRqbRAvOeupBpurijvG7qs035BdQyXRp99FukqRAvfa5b5kjN + LSM0k0eQZ7wljtDaPEJr0withBFa8SO04kaoqHWg0lw2YsTYN4fpDHFxsZ01a+LiMAg5eMni2UuXzIlg + kzJMOWrlwuhVi9ZGL1m3NiI+bsXmjUjKa7akrsvM2LA1exNrymmlJGBg8MvbUVfQ1FCysxkZA+NfJay5 + bW8NtNzRVt/ZXs+e1iDZ+cVTtIp4ESHgv/SxO06/NEj80FynUkTFEyVCE2FwcHBaWhpVMT1lQe2YnrWg + wx4y8sGDB2m0UBcyPX3xed/rpr7gpqyyNLRyR2ohPGSM1ExjlcuKlzxjkz5pM2GEZrziiZpExfxSEy9X + IxcMH+41bJh0iJOjdeD08YsWBi0OmxW+KHgphBwesmwpmy4i56+CkFcvXrtmybpYCDlyU0JU8uaYtJTY + zPS4nOyNeblJRQUppcXp5WVZNZVba2vyGuoKqZZ3tZTDl6k1t+/FEFgLLbPuTAz6BVW0QrkoKJczX4j3 + uf2XX0wYIx4tFuoI586dm5mZ2a+KW1paWvu+dwMd9mhGfuuttxAtBhIy0oXKo9cvvpbp0iCy5ZSrFG+/ + 9QxFa64YMWLim8MshhgZ6Xp7Os2ZNTls4UxOyHDkZXDkpaErls9duWLBqqiFayDkmKVxEPKGFZsSWEdO + WZuRFrc1a+O23M2F+SklRWnlMOWKnJoqhOX8xvqi5saSnU3QchkiM9UykfO+2o59cGeEjRdf0T9JuVwx + 4YxkPDHiiRMnxsTEcBKmAx6XKODFnIq72HcVOHr0KLXjCxcu0Es10OsI0IxMo4W6kF/8dDHQ0lCR7TOK + L+eRi4cPHzdsmNmQIUMGubrYTp82buG8GWHzZ4QtCFoUFhS+aBaixdLw2cuWzomMmLsyct6qFQtXRy1a + uyZ83dqlG9ZHJGwg0SIlMXpLKufImwvykkuKtpRtz6gsz66u3FoPU64vbNpBtbydaHknsea9u2lqrkG9 + VIpWE+kzCkGCmcGIXcRCGbmObFxcHH+0oxLmjBi5mD6m19HRQb2YqvjMmTPnz5+/fPky344//PBD+iJ3 + 7joCNFq87ELm1nMpeuSCN4l+LYYM1RxsbWXiO8ZtTvCkBfMCF8wPXDg/kNhx2EyoeGk4UXHEspDIiNAV + kfOiVixYHRUWE70oNmbJhnVsQE6IStq8OjU5Jj11XVbGhtychLxczHsQclrZ9i0VpVnVFTl1Ndsa6vIb + dxRAyy1NVMul0PLuXeV7iZyr9u1BvUKKlsZKmbmMZJxEZCUSCAT0OshF7DU5IV6qXwQJzoU5Ce9TXhmO + Xrns+PHjSBS9vb3Ui69fv05VfO/evQ8++IDaMc0V9CE+DHvqGfnlFTK3+ih6ZMTwETOHDfceCvMdqjXY + 2FjPxdlmQoD3vNCp8+dOWzBv2oL50xcuCFyklPCSxUTFMOLlS6Fi1otXLohetTAmevG6tUviYpex6XhF + 0uZVKUmY9GKz0tfnZMXn5mws2JZYVJBcWgwhp1eWZVVX5tRWs6bMarm5Ab5cvLOpBFpuhZx3le8hSaPi + 5VY0YgMTSMIvUS4j+MHrIMN/aYrg9EvnOrhwd3c3lfAp9uJwMGLk4mvKd4N677334MXqKv4L+yYkfDt+ + lYTMLQ19XamVpbGHu92EAK+Q4Enz2BfmKcRLCvqdAf0uDpu5ZHHQEjZLREDCy0IQiqNWQMLzWQmTRLE+ + lk0U8cs3b1wJFacSFa/NSl+XnRnH2vHmovykksKU7cWp5SRaZLJCzq2vQVLOa6xHWC6ElluaiJZ3NpdA + y607kTQQnF8JRUOwfM1i0dhAlQvnpREY4kUKhnjhv9DvAfbKnNAvhjoECc6FOQlzRoxcjAGPXlyLRmNO + xfx0/EqqmL80FsyfBuWGLUAR8S5eSMQbvgjiZf13CfQ7m9Vv6MrIuatWzotetWDNKpolwuNil8SvXwYJ + w4gTN0WlJK1OS1mTnrY2M319dlZcbnZCfu6mwnzYcdL2otTSEuSKjKpyOHJ2bRUx5R2123bAlOvzmxqg + ZSJnquVdzUga2181RVO3hWZ3P991kCFeBOFz585R/V69ehVDHfT77rvvci788OFDhGJqxF+xb7iFXMwl + iv8cFfOXxtLwWcuWoIKXL5sdGYFBLmRlZGjUirmrqP+S8xJha9dAv4vj1i3ZsH5p/IaITfGRiRtXJpMs + sSotJXoLJLwlNjsDEt6wbWtC/raNBXmbiwqh4pRSYsdbKsvI62qrK7Ig5LrqrXU1udByQz3ryyRjFDY3 + FrWQUrjzq6loCBZuSzX7PNdBvnnzJiLE7du332evH0ktmAYJ7hJ8cGEqYRUj/k9TMX9prI5CbJi/ZvWC + mOiFsWvC1q1dtH6tUrxxyzbGR27eGJm4aUXy5qhU6DcZ+o3J2EKyRA5x4bhtOfF5ucjFmwrzEoupikuI + iivIq2vhyBk1lVk1ldl11TlIFztqiZZ31G1jtZzfhPGPuvN/gqJhtRd/zHWQIV5ECL5+YcFckFBx4f9k + CassjY0blm1KiNicsDxxY2TSJkxxMF9WvDDf1DXpqTGZ6WuzMmJzMtdtzVrPuvCG/NyEgm0bi/I3Fxcg + FydtL04pK0GlkdfVlqZXlqdXwZErM2urkC6IllFUyw11qDylO/+HKRpW+6Oug8z3X75+qYSh398l3O/S + SE+NzkiLztiyJnPLmqz0tdkZyA+xrHjhv8SCqX4L8jYVF0DCiSXkFYlJpcXkRbVlxI5TWTveAjumV+1Q + aLlaoeX6mq2o3xVN3v0Ni7otNEsnNypb2C6nXIQHFfFy/vu7fp9naeQS2cblbd2Ays+NL9iWUMBeV4gt + ouKSQhTiBH2BeErZ9hTWixVX7SBa5l2BhmSMKuTl3xWtpmi+YKlmVWSLpaJcLMXd9Pt67qVRmLcRRSXM + ipcU73XhimscoJ7nmkq/K3pARbMxQSFYLIVi2aW4L35fP8fS4CSscnUDZfV/BZrfFf2jFa0A/vv6hdfP + cJWw3xX9u6JfoPW7on9X9Ku1flf074p+tdbviv5d0a/S+r//+/8BPTxUq6Ub7iwAAAAASUVORK5CYII= + + + + Beschreibung: + +(Der Text für die Bezeichnung wird zur Laufzeit durch die Assemblyinformationen der Anwendung ersetzt. +Passen Sie die Assemblyinformationen der Anwendung im Anwendungsbereich des Projekt-Designers an.) + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/AboutBox1.vb b/app - Kopie/DD-Record-Organiser/AboutBox1.vb new file mode 100644 index 0000000..577c413 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/AboutBox1.vb @@ -0,0 +1,26 @@ +Public NotInheritable Class AboutBox1 + + Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + ' Legen Sie den Titel des Formulars fest. + Dim ApplicationTitle As String + If My.Application.Info.Title <> "" Then + ApplicationTitle = My.Application.Info.Title + Else + ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName) + End If + Me.Text = String.Format("Info {0}", ApplicationTitle) + ' Initialisieren Sie den gesamten Text, der im Infofeld angezeigt wird. + ' TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die + ' Projekteigenschaften (im Menü "Projekt") anpassen. + Me.LabelProductName.Text = My.Application.Info.ProductName + Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString) + Me.LabelCopyright.Text = My.Application.Info.Copyright + Me.LabelCompanyName.Text = My.Application.Info.CompanyName + Me.TextBoxDescription.Text = My.Application.Info.Description + End Sub + + Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click + Me.Close() + End Sub + +End Class diff --git a/app - Kopie/DD-Record-Organiser/App.config b/app - Kopie/DD-Record-Organiser/App.config new file mode 100644 index 0000000..8154e4a --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/App.config @@ -0,0 +1,50 @@ + + + + +
+ + + + + + + + + + + + *.db + + + *.* + + + + + + + + + + + + + + + + + + True + + + True + + + 764 + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/ClassControlBuilder.vb b/app - Kopie/DD-Record-Organiser/ClassControlBuilder.vb new file mode 100644 index 0000000..8ba9a8f --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassControlBuilder.vb @@ -0,0 +1,1384 @@ +Imports System.Windows.Forms + +Public Class ClassControlBuilder + Private _master_panel As Panel + Private _current_control As Control + Private _begin_location As Point + Private _end_location As Point + Private _mouse_down_handler As MouseEventHandler + Private _mouse_up_handler As MouseEventHandler + Private _mouse_move_handler As MouseEventHandler + Private _mouse_click_handler As EventHandler + Private _group_box_drag_drop_handler As DragEventHandler + Private _tool_tip As ToolTip + + Private binding1 As BindingSource + + Private OnRecordChangedName As String = "OnRecordChanged" + Private _events As System.ComponentModel.EventHandlerList = Nothing + + + + Protected ReadOnly Property Events() As System.ComponentModel.EventHandlerList + Get + If _events Is Nothing Then + _events = New System.ComponentModel.EventHandlerList + End If + Return _events + End Get + End Property + + ' +++ RecordChanged Event +++ + Public Custom Event OnRecordChanged As EventHandler + AddHandler(value As EventHandler) + Me.Events.AddHandler(OnRecordChangedName, value) + End AddHandler + + RemoveHandler(value As EventHandler) + Me.Events.RemoveHandler(OnRecordChangedName, value) + End RemoveHandler + + RaiseEvent(sender As Object, e As EventArgs) + CType(Me.Events(OnRecordChangedName), EventHandler).Invoke(sender, e) + End RaiseEvent + End Event + + ' ================================================================================== + ' Handler für alle Controls + ' ================================================================================== + Public Sub RecordChanged(sender As Object, ByVal e As EventArgs) + Dim onRecordChangedHandler As EventHandler = CType(Me.Events(OnRecordChangedName), EventHandler) + + If (onRecordChangedHandler IsNot Nothing) Then + onRecordChangedHandler.Invoke(sender, e) + End If + End Sub + + ' CheckedListBox hat andere Handler Signatur + Public Sub RecordChanged(sender As Object, ByVal e As DevExpress.XtraEditors.Controls.ItemCheckEventArgs) + Dim onRecordChangedHandler As EventHandler = CType(Me.Events(OnRecordChangedName), EventHandler) + + If (onRecordChangedHandler IsNot Nothing) Then + onRecordChangedHandler.Invoke(sender, e) + End If + End Sub + Public Sub OnTextBoxFocus(sender As Object, ByVal e As EventArgs) + Dim box As TextBox = sender + box.BackColor = Color.Lime + box.SelectAll() + End Sub + Public Sub OnTextBoxLostFocus(sender As Object, ByVal e As EventArgs) + Dim box As TextBox = sender + box.BackColor = Color.White + End Sub + Public Sub OnTextBoxTextChanged(sender As Object, ByVal e As EventArgs) + + End Sub + Public Sub OnComboBoxFocus(sender As Object, ByVal e As EventArgs) + Dim combo As ComboBox = sender + combo.BackColor = Color.Lime + End Sub + Public Sub OnComboBoxLostFocus(sender As Object, ByVal e As EventArgs) + Dim combo As ComboBox = sender + combo.BackColor = Color.White + End Sub + ' ================================================================================== + ' Mouse Up/Down/Move-Handler für LevelDesigner festlegen + ' RecordChanged-Handler für Constructor festlegen + ' ================================================================================== + Private Sub SetEventHandlers(control As Control) + If Not IsNothing(_mouse_down_handler) Then + AddHandler control.MouseDown, Me._mouse_down_handler + AddHandler control.MouseUp, Me._mouse_up_handler + AddHandler control.MouseMove, Me._mouse_move_handler + AddHandler control.Click, Me._mouse_click_handler + End If + + Dim type As String = control.GetType().Name + Dim eventArgs As New System.EventArgs + + Select Case type + Case "TextBox" + Dim textbox As TextBox = CType(control, TextBox) + AddHandler textbox.TextChanged, AddressOf RecordChanged + AddHandler textbox.GotFocus, AddressOf OnTextBoxFocus + AddHandler textbox.LostFocus, AddressOf OnTextBoxLostFocus + AddHandler textbox.TextChanged, AddressOf OnTextBoxTextChanged + + Case "ComboBox" + Dim combo As ComboBox = CType(control, ComboBox) + AddHandler combo.SelectedValueChanged, AddressOf RecordChanged + AddHandler combo.GotFocus, AddressOf OnComboBoxFocus + AddHandler combo.LostFocus, AddressOf OnComboBoxLostFocus + Case "RadioButton" + Dim radiobutton As RadioButton = CType(control, RadioButton) + AddHandler radiobutton.CheckedChanged, AddressOf RecordChanged + Case "CheckBox" + Dim checkbox As CheckBox = CType(control, CheckBox) + AddHandler checkbox.CheckedChanged, AddressOf RecordChanged + Case "PictureBox" + Dim picturebox As PictureBox = CType(control, PictureBox) + AddHandler picturebox.BackgroundImageChanged, AddressOf RecordChanged + Case "DateEdit" + Dim datetimepick As DevExpress.XtraEditors.DateEdit = CType(control, DevExpress.XtraEditors.DateEdit) + AddHandler datetimepick.DateTimeChanged, AddressOf RecordChanged + Case "ListBoxControl" + Dim listbox As DevExpress.XtraEditors.ListBoxControl = CType(control, DevExpress.XtraEditors.ListBoxControl) + AddHandler listbox.SelectedValueChanged, AddressOf RecordChanged + Case "CheckedListBoxControl" + Dim chklistbox As DevExpress.XtraEditors.CheckedListBoxControl = CType(control, DevExpress.XtraEditors.CheckedListBoxControl) + AddHandler chklistbox.ItemCheck, AddressOf RecordChanged + End Select + End Sub + + Private Sub SetDragDropHandler(groupbox As GroupBox) + If Not IsNothing(_group_box_drag_drop_handler) Then + AddHandler groupbox.DragDrop, Me._group_box_drag_drop_handler + AddHandler groupbox.DragEnter, AddressOf Me.GroupBoxDragEnter + End If + End Sub + + Private Sub GroupBoxDragEnter(sender As Object, e As DragEventArgs) + ' Check the format of the data being dropped. + If (e.Data.GetDataPresent(DataFormats.Text)) Then + ' Display the copy cursor. + e.Effect = DragDropEffects.Copy + Else + ' Display the no-drop cursor. + e.Effect = DragDropEffects.None + End If + End Sub + + Private Sub selectAll_Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim menu As ContextMenuStrip = item.Owner + Dim chklb As DevExpress.XtraEditors.CheckedListBoxControl = menu.SourceControl + + chklb.CheckAll() + End Sub + + Private Sub deselectAll_Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim menu As ContextMenuStrip = item.Owner + Dim chklb As DevExpress.XtraEditors.CheckedListBoxControl = menu.SourceControl + + chklb.UnCheckAll() + End Sub + + Private Sub itemAdd_Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim menu As ContextMenuStrip = item.Owner + Dim pb As PictureBox = menu.SourceControl + + Dim dialog As New OpenFileDialog() + dialog.Filter = "Bilddateien|*.png;*.jpg;*.jpeg" + + If dialog.ShowDialog() = DialogResult.OK Then + pb.BackgroundImageLayout = ImageLayout.Zoom + pb.BackgroundImage = CType(Drawing.Image.FromFile(dialog.FileName, True), Bitmap) + End If + End Sub + + Private Sub itemDel_Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim menu As ContextMenuStrip = item.Owner + Dim pb As PictureBox = menu.SourceControl + + Dim answer = MessageBox.Show("Wollen sie dieses Bild wirklich löschen?", "Bild löschen", MessageBoxButtons.YesNo) + + If answer = DialogResult.Yes Then + pb.BackgroundImage = Nothing + End If + End Sub + + Private Sub itemSave_Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim menu As ContextMenuStrip = item.Owner + Dim pb As PictureBox = menu.SourceControl + + If IsNothing(pb.BackgroundImage) Then + MsgBox("Kein Bild ausgewählt!", MsgBoxStyle.Exclamation) + Exit Sub + End If + + Dim dialog As New SaveFileDialog() + dialog.Filter = "PNG-Bilddateien|*.png|JPEG-Bilddateien|*.jpg" + Try + If dialog.ShowDialog() = DialogResult.OK Then + Dim filename As String = dialog.FileName + Dim ext As String = System.IO.Path.GetExtension(filename) + + Select Case ext + Case ".png" + pb.BackgroundImage.Save(filename, System.Drawing.Imaging.ImageFormat.Png) + Case ".jpg" + pb.BackgroundImage.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg) + End Select + End If + Catch ex As Exception + MsgBox("Fehler beim Speichern des Bildes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + ' +++ Panel Interaction +++ + Private Sub AddToPanel(control As Control) + _master_panel.Controls.Add(control) + End Sub + ' +++ GroupBox Interaction +++ + Private Sub AddToGroupBox(Parent As GroupBox, Child As Control) + Parent.Controls.Add(Child) + End Sub + + Private Sub RemoveFromPanel(control As Control) + Dim controls As Control.ControlCollection = Me._master_panel.Controls + controls.Remove(control) + End Sub + + ' +++ Constructor +++ + Public Sub New(MasterPanel As Panel, + MouseDownHandler As MouseEventHandler, + MouseUpHandler As MouseEventHandler, + MouseMoveHandler As MouseEventHandler, + MouseClickHandler As EventHandler, + GroupBoxDragDropHandler As DragEventHandler, + ToolTipControl As ToolTip) + + Me._master_panel = MasterPanel + Me._mouse_down_handler = MouseDownHandler + Me._mouse_up_handler = MouseUpHandler + Me._mouse_move_handler = MouseMoveHandler + Me._mouse_click_handler = MouseClickHandler + Me._group_box_drag_drop_handler = GroupBoxDragDropHandler + + Me._tool_tip = ToolTipControl + End Sub + + Public Sub New(MasterPanel As Panel, + ToolTipControl As ToolTip) + Me._master_panel = MasterPanel + Me._tool_tip = ToolTipControl + End Sub + + ' +++ Public Properties +++ + Public Property CurrentControl As Control + Get + Return Me._current_control + End Get + Set(control As Control) + Me._current_control = control + End Set + End Property + + Public Property BeginLocation As Point + Get + Return _begin_location + End Get + Set(value As Point) + _begin_location = value + End Set + End Property + + Public Property EndLocation As Point + Get + Return _end_location + End Get + Set(value As Point) + _end_location = value + End Set + End Property + + Public ReadOnly Property AllControls As Control.ControlCollection + Get + Return _master_panel.Controls + End Get + End Property + Public ReadOnly Property MasterPanel As Panel + Get + Return _master_panel + End Get + End Property + + ' ========================= + ' Textbox Format Handlers + ' ========================= + Private Sub AddTextHandler(control As TextBox, format As String) + If format = "Currency" Then + AddHandler control.TextChanged, AddressOf Textbox_Currency_Handler + ElseIf format = "Decimal" Then + AddHandler control.TextChanged, AddressOf TextBox_Decimal_Handler + End If + End Sub + + Private Sub AddComboHandler(control As ComboBox, format As String) + If format = "Currency" Then + AddHandler control.TextChanged, AddressOf Combo_Currency_Handler + ElseIf format = "Decimal" Then + AddHandler control.TextChanged, AddressOf Combo_Decimal_Handler + End If + AddHandler control.KeyUp, AddressOf AutoCompleteCombo_KeyUp + End Sub + + Private Sub Textbox_Currency_Handler(sender As Object, e As EventArgs) + Dim control As TextBox = DirectCast(sender, TextBox) + Dim value As Decimal + If Decimal.TryParse(control.Text.Trim(), value) Then + ' control.Text = value.ToString("c") + 'control.SelectionStart = control.SelectionStart + 1 + control.Text = FormatCurrency(control.Text) + End If + End Sub + + Private Sub TextBox_Decimal_Handler(sender As Object, e As EventArgs) + Dim control As TextBox = DirectCast(sender, TextBox) + Dim value As Decimal + If Decimal.TryParse(control.Text.Trim(), value) Then + control.Text = value.ToString("###,###") + End If + End Sub + + Private Sub Combo_Currency_Handler(sender As Object, e As EventArgs) + Dim control As ComboBox = DirectCast(sender, ComboBox) + Dim value As Decimal + If Decimal.TryParse(control.Text.Trim(), value) Then + control.Text = value.ToString("c") + control.SelectionStart = control.SelectionStart + 1 + End If + End Sub + + Private Sub Combo_Decimal_Handler(sender As Object, e As EventArgs) + Dim control As ComboBox = DirectCast(sender, ComboBox) + Dim value As Decimal + If Decimal.TryParse(control.Text.Trim(), value) Then + control.Text = value.ToString("###,###") + End If + End Sub + + ' +++ Public Helper Methods +++ + Public Function GetCursorPosition() As Point + Return Me._master_panel.PointToClient(Cursor.Position) + End Function + + Public Function GetControlByName(name As String) + For Each c In _master_panel.Controls + If c.name = name Then + Return c + End If + Next + Return Nothing + End Function + + Public Sub SetActiveColor(ActiveControl As Control) + Dim ActiveColor As Color = Color.DarkOrange + Dim CurrentType As String = ActiveControl.GetType.ToString + + Select Case CurrentType + Case "System.Windows.Forms.TextBox" + ActiveControl.BackColor = ActiveColor + Case "System.Windows.Forms.ComboBox" + ActiveControl.BackColor = ActiveColor + Case "System.Windows.Forms.Label" + ActiveControl.BackColor = ActiveColor + Case "System.Windows.Forms.CheckBox" + ActiveControl.BackColor = ActiveColor + Case "System.Windows.Forms.Button" + ActiveControl.BackColor = ActiveColor + Case "System.Windows.Forms.DataGridView" + Dim current As DataGridView = DirectCast(ActiveControl, DataGridView) + current.BackgroundColor = ActiveColor + Case "DevExpress.XtraEditors.DateEdit" + ActiveControl.BackColor = ActiveColor + Case "System.Window.Forms.GroupBox" + ActiveControl.BackColor = ActiveColor + Case "System.Windows.Forms.PictureBox" + ActiveControl.BackColor = ActiveColor + End Select + End Sub + + Public Sub ResetActiveColor(ActiveControl As Control) + For Each inctrl As Control In Me._master_panel.Controls + If inctrl.Name <> ActiveControl.Name Then + Dim Type As String = inctrl.GetType.ToString + Select Case Type + Case "System.Windows.Forms.TextBox" + inctrl.BackColor = Color.White + Case "System.Windows.Forms.ComboBox" + inctrl.BackColor = Color.White + Case "System.Windows.Forms.Label" + inctrl.BackColor = Color.Transparent + Case "System.Windows.Forms.CheckBox" + inctrl.BackColor = Color.Transparent + Case "System.Windows.Forms.DataGridView" + Dim ctrl As DataGridView = DirectCast(inctrl, DataGridView) + ctrl.BackgroundColor = SystemColors.ControlDark + Case "DevExpress.XtraEditors.DateEdit" + inctrl.BackColor = Color.White + Case "System.Windows.Forms.Button" + inctrl.BackColor = SystemColors.Control + Case "System.Windows.Forms.GroupBox" + inctrl.BackColor = SystemColors.Control + Case "System.Windows.Forms.PictureBox" + inctrl.BackColor = SystemColors.ControlDark + + For Each gbctrl As Control In inctrl.Controls + If gbctrl.Name <> ActiveControl.Name Then + Dim gbType As String = gbctrl.GetType.ToString + Select Case gbType + Case "System.Windows.Forms.TextBox" + gbctrl.BackColor = Color.White + Case "System.Windows.Forms.ComboBox" + gbctrl.BackColor = Color.White + Case "System.Windows.Forms.Label" + gbctrl.BackColor = Color.Transparent + Case "System.Windows.Forms.CheckBox" + gbctrl.BackColor = Color.Transparent + Case "System.Windows.Forms.DataGridView" + Dim ctrl As DataGridView = DirectCast(gbctrl, DataGridView) + ctrl.BackgroundColor = SystemColors.ControlDark + Case "DevExpress.XtraEditors.DateEdit" + gbctrl.BackColor = Color.White + Case "System.Windows.Forms.Button" + gbctrl.BackColor = SystemColors.Control + Case "System.Windows.Forms.PictureBox" + inctrl.BackColor = SystemColors.ControlDark + End Select + End If + Next + End Select + End If + Next + End Sub + + Public Sub SetAllActiveColor() + SetActiveColor(_current_control) + ' Remove Active Color from all other Controls + ResetActiveColor(_current_control) + End Sub + ' +++ Public Methods +++ + Public Sub ClearControls() + Me._master_panel.Controls.Clear() + End Sub + + Public Sub RemoveControl(name As String) + For Each ctrl As Control In Me._master_panel.Controls + If (name = ctrl.Name) Then + Me._master_panel.Controls.Remove(ctrl) + Exit Sub + End If + Next + End Sub + Public Sub AddLabel(name As String, + text As String, + x As Integer, + y As Integer, + fontfamily As String, + fontcolor As Integer, + fontsize As Integer, + fontstyle As Integer, + sqlcommand As String, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + + Try + Dim control As Label = New Label + Dim defaultSize As Size = New Size(200, 27) + + control.Name = name + control.Text = text + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.AutoSize = True + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = defaultSize + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + 'SQL-Command vorhanden also Ausführen des SQL + If sqlcommand.Length > 1 Then + Dim result = ClassDatabase.Execute_Scalar(sqlcommand) + If Not IsNothing(result) Then + If Not IsDBNull(result) Then + If Not IsNothing(result) Then + control.Text = result.ToString + End If + End If + End If + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, Label) + + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + + Catch ex As Exception + MsgBox("Error in AddLabel: " + vbNewLine + ex.Message) + End Try + + End Sub + + Public Sub AddTextBox(name As String, + x As Integer, + y As Integer, + fontfamily As String, + fontcolor As Integer, + fontsize As Integer, + fontstyle As Integer, + tabindex As Integer, + tabstop As Integer, + vwidth As Integer, + vheight As Integer, + multiline As Boolean, + read_only As Boolean, + format As String, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As New TextBox + Dim defaultSize As Size = New Size(200, 27) + + control.Name = name + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.TabIndex = tabindex + control.TabStop = tabstop + control.BorderStyle = BorderStyle.FixedSingle + control.ReadOnly = read_only + + AddTextHandler(DirectCast(control, Control), format) + + 'Console.WriteLine("setting tabindex of control " & name & " to " & tabindex) + + If multiline = True Then + control.Multiline = True + control.AcceptsReturn = True + control.AcceptsTab = True + End If + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + Me.SetEventHandlers(control) + + Me.CurrentControl = DirectCast(control, TextBox) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + + Catch ex As Exception + MsgBox("Error in AddTextBox: " + vbNewLine + ex.Message) + End Try + + + End Sub + Public Sub AddCheckBox(name As String, + text As String, + Checked As Boolean, + x As Integer, + y As Integer, + fontfamily As String, + fontcolor As Integer, + fontsize As Integer, + fontstyle As Integer, + tabindex As Integer, + tabstop As Boolean, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As New CheckBox + Dim defaultSize As Size = New Size(150, 27) + control.Checked = Checked + control.Name = name + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.Text = text + control.TabIndex = tabindex + control.TabStop = tabstop + control.AutoCheck = True + If _designMode = True Then + control.AutoCheck = False + control.Cursor = Cursors.Hand + Else + control.AutoCheck = True + End If + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, CheckBox) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + Catch ex As Exception + MsgBox("Error in AddCheckBox: " + vbNewLine + ex.Message) + End Try + + End Sub + Public Sub AddRadioButton(name As String, + text As String, + Checked As Boolean, + x As Integer, + y As Integer, + fontfamily As String, + fontcolor As Integer, + fontsize As Integer, + fontstyle As Integer, + tabindex As Integer, + tabstop As Boolean, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As New RadioButton + Dim defaultSize As Size = New Size(150, 27) + + control.Name = name + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.Text = text + control.TabIndex = tabindex + control.TabStop = tabstop + control.AutoCheck = True + control.Checked = Checked + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, RadioButton) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + Catch ex As Exception + MsgBox("Error in AddRadioButton: " + vbNewLine + ex.Message) + End Try + + End Sub + Public Sub AddComboBox(name As String, + x As Integer, + y As Integer, + fontfamily As String, + fontcolor As Integer, + fontsize As Integer, + fontstyle As Integer, + tabindex As Integer, + tabstop As Boolean, + vwidth As Integer, + vheight As Integer, + vformat As String, + _new As Boolean, + static_list As String, + sqlcommand As String, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As New ComboBox + Dim defaultSize As Size = New Size(120, 24) + + control.Name = name + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.TabIndex = tabindex + control.TabStop = tabstop + control.Parent = _master_panel + control.DropDownStyle = ComboBoxStyle.DropDown + control.FormattingEnabled = True + + AddComboHandler(control, vformat) + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + 'SQL-Command vorhanden also Ausführen des SQL + If sqlcommand.Length > 1 Then + Dim DT_Combobox As DataTable = ClassDatabase.Return_Datatable(sqlcommand) + If DT_Combobox Is Nothing = False Then + If DT_Combobox.Rows.Count > 0 Then + control.DataSource = DT_Combobox + control.DisplayMember = DT_Combobox.Columns(1).ColumnName + control.ValueMember = DT_Combobox.Columns(0).ColumnName + control.AutoCompleteMode = AutoCompleteMode.SuggestAppend + control.AutoCompleteSource = AutoCompleteSource.ListItems + End If + Dim iWidestWidth As Integer = 300 + For Each row As DataRow In DT_Combobox.Rows + 'Die BReite der DropDown-Lsit anpassen + Using g As Graphics = control.CreateGraphics + Console.WriteLine(g.MeasureString(row.Item(1).ToString, control.Font).Width + 30) + If g.MeasureString(row.Item(1).ToString, control.Font).Width + 30 > iWidestWidth Then + iWidestWidth = g.MeasureString(row.Item(1).ToString, control.Font).Width + 30 + End If + g.Dispose() + End Using + ' control.Items.Add(row.Item(0).ToString) + Next + If iWidestWidth > 300 Then + control.DropDownWidth = Math.Max(iWidestWidth, control.Width) + End If + + End If + End If + + ' Wenn statische liste vorhanden, werte splitten und einfügen + If static_list.Length > 0 Then + Dim items() As String = static_list.Split(";") + For Each item As String In items + control.Items.Add(item) + Next + End If + + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, ComboBox) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + Catch ex As Exception + MsgBox("Error in AddComboBox: " + vbNewLine + ex.Message) + End Try + + End Sub + Public Sub AutoCompleteCombo_KeyUp(ByVal cbo As ComboBox, ByVal e As KeyEventArgs) + ''Allow select keys without Autocompleting + Select Case e.KeyCode + Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down + Return + End Select + + Dim iFoundIndex As Integer + iFoundIndex = cbo.FindStringExact(cbo.Text) + 'cbo.SelectedIndex = iFoundIndex + Console.WriteLine(iFoundIndex.ToString) + 'Dim sTypedText As String + 'Dim iFoundIndex As Integer + 'Dim oFoundItem As Object + 'Dim sFoundText As String + 'Dim sAppendText As String + + + + ''Get the Typed Text and Find it in the list + 'sTypedText = cbo.Text + 'iFoundIndex = cbo.FindString(sTypedText) + + ''If we found the Typed Text in the list then Autocomplete + 'If iFoundIndex >= 0 Then + + ' 'Get the Item from the list (Return Type depends if Datasource was bound + ' ' or List Created) + ' oFoundItem = cbo.Items(iFoundIndex) + + ' 'Use the ListControl.GetItemText to resolve the Name in case the Combo + ' ' was Data bound + ' sFoundText = cbo.GetItemText(oFoundItem) + + ' 'Append then found text to the typed text to preserve case + ' sAppendText = sFoundText.Substring(sTypedText.Length) + ' cbo.Text = sTypedText & sAppendText + + ' 'Select the Appended Text + ' cbo.SelectionStart = sTypedText.Length + ' cbo.SelectionLength = sAppendText.Length + + 'End If + + End Sub + Public Sub AutoCompleteCombo_Leave(ByVal cbo As ComboBox) + Dim iFoundIndex As Integer + iFoundIndex = cbo.FindStringExact(cbo.Text) + cbo.SelectedIndex = iFoundIndex + End Sub + Public Sub AddDateTimePicker(name As String, + x As Integer, + y As Integer, + fontfamily As String, + fontsize As Integer, + fontstyle As Integer, + tabindex As Integer, + tabstop As Boolean, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As New DevExpress.XtraEditors.DateEdit + 'Dim control As New DateTimePicker + Dim defaultSize As Size = New Size(120, 24) + + control.Name = name + 'control.Format = DateTimePickerFormat.Short + 'control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + 'control.CalendarFont = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.TabIndex = tabindex + control.TabStop = tabstop + control.Parent = _master_panel + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + Me.SetEventHandlers(control) + 'Me.CurrentControl = DirectCast(control, DateTimePicker) + Me.CurrentControl = DirectCast(control, DevExpress.XtraEditors.DateEdit) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + Catch ex As Exception + MsgBox("Error in AddDateTimePicker: " + vbNewLine + ex.Message) + End Try + + End Sub + Public Sub AddDataGridView(name As String, + x As Integer, + y As Integer, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + + Dim control As New DataGridView + Dim column As New DataGridViewTextBoxColumn + Dim defaultSize = New Size(130, 150) + + control.Name = name + control.BackgroundColor = SystemColors.ControlDark + control.AllowUserToAddRows = False + control.AllowUserToDeleteRows = False + control.AllowUserToResizeColumns = False + control.AllowUserToResizeRows = False + control.Parent = _master_panel + + column.HeaderText = "" + column.Name = "column1" + control.Columns.Add(column) + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, DataGridView) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + End Sub + Public Sub AddPictureBox(name As String, + x As Integer, + y As Integer, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + + Dim control As New PictureBox + Dim defaultSize = New Size(200, 100) + Dim ctx As New ContextMenuStrip() + + Dim itemAdd As New ToolStripMenuItem() + Dim itemDel As New ToolStripMenuItem() + Dim itemSave As New ToolStripMenuItem() + + itemAdd.Text = "Bild auswählen.." + itemDel.Text = "Bild löschen" + itemSave.Text = "Bild speichern unter.." + + AddHandler itemAdd.Click, AddressOf itemAdd_Click + AddHandler itemDel.Click, AddressOf itemDel_Click + AddHandler itemSave.Click, AddressOf itemSave_Click + + ctx.Items.Add(itemAdd) + ctx.Items.Add(itemDel) + ctx.Items.Add(itemSave) + + control.Name = name + control.Parent = _master_panel + control.BorderStyle = BorderStyle.FixedSingle + control.ContextMenuStrip = ctx + control.BackgroundImage = My.Resources.ImageListControl_683 + control.BackgroundImageLayout = ImageLayout.Zoom + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, PictureBox) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + End Sub + Public Sub AddGroupBox(name As String, + Caption As String, + x As Integer, + y As Integer, + vwidth As Integer, + vheight As Integer, + backcolor As Integer, + fontcolor As Integer, + fontfamily As String, + fontsize As Integer, + fontstyle As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + + Dim control As New GroupBox + Dim defaultSize = New Size(200, 100) + + control.Name = name + control.Parent = _master_panel + control.Text = Caption + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.BackColor = IntToColor(backcolor) + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + control.AllowDrop = True + + Me.SetEventHandlers(control) + Me.SetDragDropHandler(control) + Me.CurrentControl = DirectCast(control, GroupBox) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + End Sub + Public Sub FunctionAddAppointment(name As String, + text As String, + x As Integer, + y As Integer, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As Button = New Button + Dim defaultSize As Size = New Size(200, 27) + + control.Name = name + control.Text = text + control.Tag = "ADDAPPOINTMENT" + control.TabStop = False + control.Image = My.Resources.calendar_add + control.ImageAlign = ContentAlignment.MiddleRight + control.TextAlign = ContentAlignment.MiddleLeft + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, Button) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + + Catch ex As Exception + MsgBox("Error in FunctionAddAppointment: " + vbNewLine + ex.Message) + End Try + + + End Sub + Public Sub FunctionAddFormData(name As String, + text As String, + x As Integer, + y As Integer, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As Button = New Button + Dim defaultSize As Size = New Size(30, 21) + + control.Name = name + control.Text = "" + control.Tag = "ADDFORMDATA" + control.TabStop = False + control.Image = My.Resources.add1 + + _tool_tip.SetToolTip(control, text) + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + If _designMode = True Then + control.Cursor = Cursors.Hand + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, Button) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + + Catch ex As Exception + MsgBox("Fehler: " + vbNewLine + ex.Message) + End Try + End Sub + Public Sub AddCheckedListBox(name As String, + x As Integer, + y As Integer, + fontfamily As String, + fontcolor As Integer, + fontsize As Integer, + fontstyle As Integer, + tabindex As Integer, + tabstop As Boolean, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + static_list As String, + sqlcommand As String, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As New DevExpress.XtraEditors.CheckedListBoxControl + Dim defaultSize As Size = New Size(180, 140) + + 'control.CheckOnClick = True + ' control.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Style3 + control.Name = name + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.TabIndex = tabindex + control.TabStop = tabstop + control.Parent = _master_panel + + Dim ctx As New ContextMenuStrip() + + Dim selectAll As New ToolStripMenuItem() + Dim deselectAll As New ToolStripMenuItem() + + selectAll.Text = "Alle auswählen" + deselectAll.Text = "Keine auswählen" + + AddHandler selectAll.Click, AddressOf selectAll_Click + AddHandler deselectAll.Click, AddressOf deselectAll_Click + + ctx.Items.Add(selectAll) + ctx.Items.Add(deselectAll) + + control.ContextMenuStrip = ctx + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + 'SQL-Command vorhanden? + If sqlcommand.Length > 1 Then + 'Ja also überprüfen ob parametrisiert?? + If Not sqlcommand.ToString.Contains("@") Then + 'SQL-Command vorhanden also Ausführen des SQL + Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(sqlcommand) + If DT_ListBox Is Nothing = False Then + If DT_ListBox.Rows.Count > 0 Then + control.DataSource = DT_ListBox + control.DisplayMember = DT_ListBox.Columns(1).ColumnName + control.ValueMember = DT_ListBox.Columns(0).ColumnName + End If + End If + End If + End If + + ' Wenn statische liste vorhanden, werte splitten und einfügen + If static_list.Length > 0 Then + Dim items() As String = static_list.Split(";") + For Each item As String In items + control.Items.Add(item) + Next + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + Catch ex As Exception + MsgBox("Error in AddCheckedListBox: " + vbNewLine + ex.Message) + End Try + End Sub + Public Sub AddListBox(name As String, + x As Integer, + y As Integer, + fontfamily As String, + fontcolor As Integer, + fontsize As Integer, + fontstyle As Integer, + tabindex As Integer, + tabstop As Boolean, + vwidth As Integer, + vheight As Integer, + _new As Boolean, + static_list As String, + sqlcommand As String, + Optional parent As GroupBox = Nothing, + Optional _designMode As Boolean = False) + Try + Dim control As New DevExpress.XtraEditors.ListBoxControl + Dim defaultSize As Size = New Size(180, 140) + + 'control.CheckOnClick = True + ' control.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Style3 + control.Name = name + control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle)) + control.ForeColor = IntToColor(fontcolor) + control.TabIndex = tabindex + control.TabStop = tabstop + control.Parent = _master_panel + + If _new And IsNothing(parent) Then + control.Location = Me.GetCursorPosition() + control.Size = defaultSize + ElseIf _new And Not IsNothing(parent) Then + Dim cursor = Me.GetCursorPosition() + + control.Location = New Point(cursor.X - parent.Location.X, + cursor.Y - parent.Location.Y) + Else + control.Location = New Point(x, y) + control.Size = New Size(vwidth, vheight) + End If + + 'SQL-Command vorhanden also Ausführen des SQL + If sqlcommand.Length > 1 Then + If Not sqlcommand.ToString.Contains("@") Then + 'SQL-Command vorhanden also Ausführen des SQL + Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(sqlcommand) + If DT_ListBox Is Nothing = False Then + If DT_ListBox.Rows.Count > 0 Then + control.DataSource = DT_ListBox + control.DisplayMember = DT_ListBox.Columns(1).ColumnName + control.ValueMember = DT_ListBox.Columns(0).ColumnName + End If + End If + End If + End If + + ' Wenn statische liste vorhanden, werte splitten und einfügen + If static_list.Length > 0 Then + Dim items() As String = static_list.Split(";") + For Each item As String In items + control.Items.Add(item) + Next + End If + + Me.SetEventHandlers(control) + Me.CurrentControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl) + If Not IsNothing(parent) Then + control.Parent = parent + Me.AddToGroupBox(parent, control) + Else + control.Parent = _master_panel + Me.AddToPanel(control) + End If + Catch ex As Exception + MsgBox("Error in AddListBox: " + vbNewLine + ex.Message) + End Try + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/ClassControlCommands.vb b/app - Kopie/DD-Record-Organiser/ClassControlCommands.vb new file mode 100644 index 0000000..f1962a3 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassControlCommands.vb @@ -0,0 +1,502 @@ +Public Class ClassControlCommands + ' +++ Helper Functions +++ + + 'Public Shared Function BoolToInt(bool As Boolean) As Integer + ' ' Wandelt einen Boolean Wert in einen Int um + ' Return IIf(bool, 1, 0) + 'End Function + + Public Shared Function ControlToTypeId(control As Control) As Integer + Dim CurrentType As String = control.GetType.ToString.ToUpper + + Select Case True + Case CurrentType.Contains("Label".ToUpper) + Return 1 + Case CurrentType.Contains("TextBox".ToUpper) + Return 2 + Case CurrentType.Contains("ComboBox".ToUpper) + Return 3 + Case CurrentType.Contains("DateTimePicker".ToUpper) + Return 4 + Case CurrentType.Contains("DevExpress.XtraEditors.DateEdit".ToUpper) + Return 4 + Case CurrentType.Contains("GroupBox".ToUpper) + Return 5 + Case CurrentType.Contains("PictureBox".ToUpper) + Return 6 + Case CurrentType.Contains("DataGridView".ToUpper) + Return 7 + Case CurrentType.Contains("CheckBox".ToUpper) + Return 10 + Case CurrentType.Contains("RadioButton".ToUpper) + Return 11 + Case CurrentType.Contains("Button".ToUpper) + If control.Tag = "ADDAPPOINTMENT" Then + Return 8 + ElseIf control.Tag = "ADDFORMDATA" Then + Return 9 + End If + Case CurrentType.Contains("CheckedListBoxControl".ToUpper) + Return 12 + Case CurrentType.Contains("ListBoxControl".ToUpper) + Return 13 + Case Else + Return -1 + End Select + End Function + + ' +++ Public Functions +++ + + Public Shared Function GetControlGuid(name As String) + Try + Return ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_CONTROL WHERE NAME = '" & name & "'") + Catch ex As Exception + Return -1 + End Try + End Function + + Public Shared Function InsertControl(control As Control) + Try + Dim SQL As String + + Dim NAME As String + Dim CONTROL_TYPE_ID As Integer + Dim PARENT_CONTROL_ID As Integer = 0 + Dim DEFVALUE As String = "" + + If (control.Parent.GetType().Name = "GroupBox") Then + Dim ParentID As Integer = GetControlID_for_Name(control.Parent.Name, CURRENT_FORM_ID) + PARENT_CONTROL_ID = ParentID + End If + + NAME = control.Name + CONTROL_TYPE_ID = ControlToTypeId(control) + + + ' SQL Befehl für CONTROL TABELLE + ' SQL_COMMAND_1 auf leeren String setzen + SQL = "INSERT TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_FORM_ID & ", " & CONTROL_TYPE_ID & ", 'False', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')" + + If ClassDatabase.Execute_non_Query(SQL) = True Then + SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL" + Dim GUID = ClassDatabase.Execute_Scalar(SQL) + + Return InsertControlScreen(GUID, control, CURRENT_FORM_ID) + Else + Throw New Exception() + End If + + Catch ex As Exception + MsgBox("Fehler beim Einfügen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function InsertControlScreen(guid As Integer, control As Control, CURRENT_FORM_ID As Integer) + Try + Dim CurrentType As String = control.GetType.ToString + Dim SQL As String + Dim X_LOC, Y_LOC, WIDTH, HEIGHT As Integer + Dim CONTROL_TEXT As String + + X_LOC = control.Location.X + Y_LOC = control.Location.Y + WIDTH = control.Width + HEIGHT = control.Height + CONTROL_TEXT = control.Text + + Dim TAB_INDEX + SQL = "SELECT MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & CURRENT_FORM_ID & ")" + TAB_INDEX = ClassDatabase.Execute_Scalar(SQL) + If Not TAB_INDEX Is Nothing Then + If IsDBNull(TAB_INDEX) Then + TAB_INDEX = 1 + Else + TAB_INDEX = CInt(TAB_INDEX) + 1 + End If + + Else + TAB_INDEX = 1 + End If + + SQL = "INSERT TBPMO_CONTROL_SCREEN (CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH, TAB_INDEX) VALUES (" & guid & ", 1, '" & CONTROL_TEXT & "', " & X_LOC & ", " & Y_LOC & ", " & HEIGHT & ", " & WIDTH & ", " & TAB_INDEX & ")" + + If ClassDatabase.Execute_non_Query(SQL) Then + Return True + Else + Throw New Exception() + End If + + Catch ex As Exception + MsgBox("Fehler beim Einfügen der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function UpdateControlPosition(ByVal x As Integer, ByVal y As Integer, control As Control) + Try + Dim CONTROL_ID = GetControlID_for_Name(control.Name, CURRENT_FORM_ID) + + 'If (ParentIsGroupBox(control)) Then + ' Console.WriteLine("Before:" & x & ":" & y) + ' x = x - control.Parent.Location.X + ' y = y - control.Parent.Location.Y + ' Console.WriteLine("After:" & x & ":" & y) + 'End If + + Dim SQL = "UPDATE TBPMO_CONTROL_SCREEN SET X_LOC = " & x & ", Y_LOC = " & y & ", CHANGED_WHO = '" & Environment.UserName & "' WHERE CONTROL_ID = " & CONTROL_ID + + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + Else + Throw New Exception() + End If + Catch ex As Exception + MsgBox("Fehler beim Aktualisieren der Elementposition:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function UpdateControl(control As Control, properties As Object) + Try + ' Nach Typ den Update Befehl anpassen + Dim CurrentType As String = control.GetType.Name + + Dim SQL As String + Dim NAME As String + Dim REQUIRED As Integer + Dim READ_ONLY As Integer + Dim CHANGED_WHO As String = Environment.UserName + Dim COL_NAME As String + Dim SQLCommand As String + Dim MULTILINE As Integer + Dim MASTER_DATA_ID As Integer + Dim DEFAULTVALUE As String + Dim FORMAT_TYPE As String + Dim SHOW_COLUMN As Integer + Dim STATIC_LIST As String + + NAME = properties.Name + + If propExists(properties, "Multiline") Then + MULTILINE = BoolToInt(properties.Multiline) + Else + MULTILINE = 0 + End If + + If propExists(properties, "ColumnTitle") Then + COL_NAME = properties.ColumnTitle + Else + COL_NAME = String.Empty + End If + + If CurrentType = "RadioButton" AndAlso propExistsWithType(properties, "DefaultValue", GetType(Boolean)) Then + DEFAULTVALUE = properties.DefaultValue + ElseIf CurrentType = "CheckBox" AndAlso propExistsWithType(properties, "DefaultValue", GetType(Boolean)) Then + DEFAULTVALUE = properties.DefaultValue + ElseIf propExists(properties, "DefaultValue") Then + DEFAULTVALUE = properties.DefaultValue + Else + DEFAULTVALUE = "" + End If + + If CurrentType = "TextBox" OrElse + CurrentType = "ComboBox" OrElse + CurrentType = "CheckBox" OrElse + CurrentType = "RadioButton" OrElse + CurrentType = "CheckedListBoxControl" OrElse + CurrentType = "ListBoxControl" Then + + SHOW_COLUMN = BoolToInt(properties.ShowColumn) + Else + SHOW_COLUMN = BoolToInt(True) + End If + + If CurrentType = "TextBox" AndAlso propExists(properties, "Format") Then + FORMAT_TYPE = properties.Format.ToString + ElseIf CurrentType = "ComboBox" AndAlso propExists(properties, "Format") Then + FORMAT_TYPE = properties.Format.ToString + Else + FORMAT_TYPE = EnumFormat.String.ToString + End If + + If propExists(properties, "IsRequired") Then + REQUIRED = BoolToInt(properties.IsRequired) + Else + REQUIRED = BoolToInt(False) + End If + + If propExists(properties, "IsReadOnly") Then + READ_ONLY = BoolToInt(properties.IsReadOnly) + Else + READ_ONLY = BoolToInt(False) + End If + + If propExists(properties, "SQLCommand") Then + Dim value As SQLValue = DirectCast(properties.SQLCommand, SQLValue) + SQLCommand = value.Value + 'Maskieren von Hochkommata damit der Insert angenommen wird + If SQLCommand.Contains("'") Then + SQLCommand = SQLCommand.Replace("'", "''") + End If + Else + SQLCommand = String.Empty + End If + + If propExists(properties, "StaticList") Then + STATIC_LIST = properties.StaticList + Else + STATIC_LIST = String.Empty + End If + + If propExists(properties, "MasterDataId") Then + MASTER_DATA_ID = properties.MasterDataId + Else + MASTER_DATA_ID = 0 + End If + + ' If CURRENT_CONTROL_ID isn't equal to ID in Properties Window, make it equal + If CURRENT_CONTROL_ID <> properties.ID Then + CURRENT_CONTROL_ID = properties.ID + End If + + SQL = "UPDATE TBPMO_CONTROL SET REQUIRED = " & REQUIRED & ", READ_ONLY = " & READ_ONLY & ", SHOW_COLUMN = " & SHOW_COLUMN & ", FORMAT_TYPE = '" & FORMAT_TYPE & "', DEFAULT_VALUE = '" & DEFAULTVALUE & "', NAME = '" & NAME & "', SQL_COMMAND_1 = '" & SQLCommand & "', CHANGED_WHO = '" & CHANGED_WHO & "', COL_NAME = '" & COL_NAME & "', MULTILINE = " & MULTILINE & ", MASTER_DATA_ID = " & MASTER_DATA_ID & ", STATIC_LIST = '" & STATIC_LIST & "' WHERE GUID = " & CURRENT_CONTROL_ID + + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return UpdateControlScreen(control, properties) + Else + Throw New Exception() + End If + Catch ex As Exception + MsgBox("Fehler beim Aktualisieren des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function UpdateControlScreen(control As Control, properties As Object) + Try + Dim SQL As String + Dim CurrentType As String = control.GetType.ToString + Dim X_LOC, Y_LOC As Integer + Dim HEIGHT, WIDTH As Integer + Dim CHANGED_WHO As String = Environment.UserName + Dim CONTROL_TEXT As String + Dim TAB_INDEX As Integer + Dim TAB_STOP As Integer + Dim FONT_FAMILY As String + Dim FONT_COLOR As Integer + Dim FONT_SIZE As Integer + Dim FONT_STYLE As Integer + Dim BACK_COLOR As Integer + + X_LOC = properties.Location.X + Y_LOC = properties.Location.Y + + HEIGHT = properties.Size.Height + WIDTH = properties.Size.Width + + If propExists(properties, "Font") Then + Dim f As Font = properties.Font + + FONT_FAMILY = f.FontFamily.Name + FONT_SIZE = CType(f.Size, Integer) + FONT_STYLE = CType(f.Style, Integer) + Else + FONT_FAMILY = "Segoe UI" + FONT_SIZE = 8 + FONT_STYLE = 0 + End If + + If propExists(properties, "FontColor") Then + Dim c As Color = properties.FontColor + FONT_COLOR = ColorToInt(c) + Else + Dim c As Color = Color.Black + FONT_COLOR = ColorToInt(c) + End If + + If propExists(properties, "TabIndex") Then + TAB_INDEX = properties.TabIndex + Else + TAB_INDEX = 0 + End If + + If propExists(properties, "TabStop") Then + TAB_STOP = BoolToInt(properties.TabStop) + Else + TAB_STOP = BoolToInt(False) + End If + + If propExists(properties, "Caption") Then + CONTROL_TEXT = properties.Caption + Else + CONTROL_TEXT = String.Empty + End If + + If propExists(properties, "BackColor") Then + BACK_COLOR = ColorToInt(properties.BackColor) + Else + BACK_COLOR = ColorToInt(SystemColors.Control) + End If + + SQL = "UPDATE TBPMO_CONTROL_SCREEN SET TAB_INDEX = " & TAB_INDEX & ", TAB_STOP = " & TAB_STOP & ", X_LOC = " & X_LOC & ", Y_LOC = " & Y_LOC & ", HEIGHT = " & HEIGHT & ", WIDTH = " & WIDTH & ", CONTROL_TEXT = '" & CONTROL_TEXT & "', CHANGED_WHO = '" & CHANGED_WHO & "', FONT_COLOR = " & FONT_COLOR & ", FONT_SIZE = " & FONT_SIZE & ", FONT_STYLE = " & FONT_STYLE & ", FONT_FAMILY = '" & FONT_FAMILY & "' , BACK_COLOR = " & BACK_COLOR & " WHERE CONTROL_ID = " & CURRENT_CONTROL_ID + + If ClassDatabase.Execute_non_Query(SQL) = True Then + If CurrentType.Contains("Button") Then + If control.Tag = "ADDAPPOINTMENT" Then + Dim ControlId = properties.ID + Dim FromDateId, ToDateId As Integer + Dim SubjectString, Subject2String, PlaceString, DescString As String + + If propExists(properties, "FromDate") And Not String.IsNullOrWhiteSpace(properties.FromDate) Then + FromDateId = GetControlID_for_Name(properties.FromDate, CURRENT_FORM_ID) + If FromDateId = -1 Then + Throw New Exception("Das Element für 'fromDate' mit dem Namen " & properties.FromDate & " existiert nicht!") + End If + End If + + If propExists(properties, "ToDate") And Not String.IsNullOrWhiteSpace(properties.ToDate) Then + ToDateId = GetControlID_for_Name(properties.ToDate, CURRENT_FORM_ID) + If ToDateId = -1 Then + Throw New Exception("Das Element für 'ToDate' mit dem Namen " & properties.ToDate & " existiert nicht!") + End If + End If + + If propExists(properties, "Subject") Then + SubjectString = properties.Subject + Else + SubjectString = String.Empty + End If + + If propExists(properties, "Subject2") Then + Subject2String = properties.Subject2 + Else + Subject2String = String.Empty + End If + + If propExists(properties, "Place") Then + PlaceString = properties.Place + Else + PlaceString = String.Empty + End If + + If propExists(properties, "Description") Then + DescString = properties.Description + Else + DescString = String.Empty + End If + + ClassFunctionCommands.UpdateAddAppointmentFunction(ControlId, FromDateId, ToDateId, SubjectString, Subject2String, PlaceString, DescString) + + ElseIf control.Tag = "ADDFORMDATA" Then + Dim ControlId = properties.ID + Dim FormID, ScreenID As Integer + + If propExists(properties, "FormID") And Not String.IsNullOrWhiteSpace(properties.FormID) Then + FormID = properties.FormID + End If + + If propExists(properties, "ScreenID") And Not String.IsNullOrWhiteSpace(properties.ScreenID) Then + ScreenID = properties.ScreenID + End If + + ClassFunctionCommands.UpdateAddFormDataFunction(ControlId, FormID, ScreenID) + End If + End If + Return True + Else + Throw New Exception() + End If + + Catch ex As Exception + MsgBox("Fehler beim Aktualisieren der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function DeleteControl() + Try + If CURRENT_CONTROL_ID = Nothing Then + MsgBox("Kein Element ausgewählt", MsgBoxStyle.Information) + End If + + If DeleteControlValues(CURRENT_CONTROL_ID) = True Then + If DeleteControlScreen(CURRENT_CONTROL_ID) = True Then + If ClassFunctionCommands.DeleteFunction(CURRENT_CONTROL_ID) = True Then + Dim SQL = "DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & CURRENT_CONTROL_ID + If ClassDatabase.Execute_non_Query(SQL) = True Then + SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + End If + Else + Return False + End If + End If + Else + Return False + End If + Else + Return False + End If + + Catch ex As Exception + MsgBox("Fehler beim Löschen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function DeleteControl(id As Integer) + Try + If DeleteControlValues(id) = True Then + If DeleteControlScreen(id) = True Then + If ClassFunctionCommands.DeleteFunction(id) = True Then + Dim SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & id + + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + Else + Throw New Exception() + End If + End If + End If + End If + + Catch ex As Exception + MsgBox("Fehler beim Löschen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + + Public Shared Function DeleteControlScreen(id As Integer) + Try + Dim SQL = "DELETE FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & id + + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + Else + Throw New Exception() + End If + Catch ex As Exception + MsgBox("Fehler beim Löschen der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function DeleteControlValues(id As Integer) + Try + Dim SQL = "DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & id + + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + Else + Throw New Exception() + End If + Catch ex As Exception + MsgBox("Fehler beim Löschen der Werte des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassControlCommandsUI.vb b/app - Kopie/DD-Record-Organiser/ClassControlCommandsUI.vb new file mode 100644 index 0000000..a0e0f83 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassControlCommandsUI.vb @@ -0,0 +1,827 @@ +Imports DD_Record_Organiser.ClassDatabase +Imports DD_Record_Organiser.ClassControlBuilder + + + +Public Class ClassControlCommandsUI + Private _CtrlBuilder As ClassControlBuilder + Private _AddAppointmentHandler As System.EventHandler + Private _AddFormDataHandler As System.EventHandler + Private _ContextMenuStrip As ContextMenuStrip + + Public IsInsert As Boolean = False + + ''' + ''' Erstellt eine neue Instanz der ClassControlCommandsUI Klasse + ''' + ''' Eine ControlBuilder Instanz + ''' Ein Delegate, der auf eine AddAppointment-Methode verweist, mit AddressOf verwenden + ''' Ein Delegate, der auf eine AddFormData-Methode verweist, mit AddressOf verwenden + ''' + Sub New(ControlBuilder As ClassControlBuilder, ContextMenuStrip As ContextMenuStrip, AddAppointmentDelegate As System.EventHandler, AddFormDataDelegate As System.EventHandler) + _CtrlBuilder = ControlBuilder + _ContextMenuStrip = ContextMenuStrip + _AddAppointmentHandler = AddAppointmentDelegate + _AddFormDataHandler = AddFormDataDelegate + End Sub + + Sub LoadControls(FormId As Integer) + _CtrlBuilder.ClearControls() + + Dim SQL As String = "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1" + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + + + + For Each dr As DataRow In DT.Rows + + Dim parent As GroupBox = Nothing + If (dr.Item("CONTROL_PARENT_ID") <> 0) Then + Dim parentname As String = GetName_for_ControlID(dr.Item("CONTROL_PARENT_ID"), FormId) + parent = _CtrlBuilder.GetControlByName(parentname) + End If + + Select Case dr.Item("CTRLTYPE_ID") + Case 1 ' Label + _CtrlBuilder.AddLabel(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CONTROL_SQLCOMMAND_1"), + False, + parent) + Case 2 ' TextBox + _CtrlBuilder.AddTextBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + dr.Item("CONTROL_MULTILINE"), + dr.Item("CONTROL_READ_ONLY"), + dr.Item("CONTROL_FORMAT_TYPE"), + False, + parent) + Case 3 ' ComboBox + _CtrlBuilder.AddComboBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + dr.Item("CONTROL_FORMAT_TYPE"), + False, + dr.Item("CONTROL_STATIC_LIST"), + dr.Item("CONTROL_SQLCOMMAND_1"), + parent) + Case 4 ' DateTimePicker + _CtrlBuilder.AddDateTimePicker(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent) + Case 5 ' GroupBox + _CtrlBuilder.AddGroupBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + dr.Item("CTRLSCR_BACK_COLOR"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + False, + parent) + Case 6 ' PictureBox + _CtrlBuilder.AddPictureBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent) + Case 7 ' DataGridView + _CtrlBuilder.AddDataGridView(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent) + Case 10 ' Checkbox + Dim Checked As Boolean = False + 'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then + ' Checked = False + 'Else + ' Checked = StrToBool(dr.Item("CONTROL_DEF_VALUE")) + 'End If + _CtrlBuilder.AddCheckBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + Checked, + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent) + Case 8 ' Function AddAppointment + _CtrlBuilder.FunctionAddAppointment(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent) + AddHandler _CtrlBuilder.CurrentControl.Click, _AddAppointmentHandler + Case 9 ' Function AddFormData + _CtrlBuilder.FunctionAddFormData(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent) + AddHandler _CtrlBuilder.CurrentControl.Click, _AddFormDataHandler + Case 11 ' RadioButton + Dim Checked As Boolean = False + 'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then + ' Checked = False + 'Else + ' Checked = StrToBool(dr.Item("CONTROL_DEF_VALUE")) + 'End If + _CtrlBuilder.AddRadioButton(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + Checked, + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent) + Case 12 'CheckedListBox + CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + dr.Item("CONTROL_STATIC_LIST"), + dr.Item("CONTROL_SQLCOMMAND_1"), + parent, + True) + Case 13 'CheckedListBox + CtrlBuilder.AddListBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + dr.Item("CONTROL_STATIC_LIST"), + dr.Item("CONTROL_SQLCOMMAND_1"), + parent, + True) + End Select + ' ContextMenuStrip zuweisen + ' MasterDataID im ContextMenuStrip Speichern + If dr.Item("CTRLSCR_MASTER_DATA_ID") <> 0 Then + _CtrlBuilder.CurrentControl.ContextMenuStrip = _ContextMenuStrip + _CtrlBuilder.CurrentControl.Tag = dr.Item("CTRLSCR_MASTER_DATA_ID") + End If + Next + End Sub + + Function DeleteRecord(RecordID As Integer) + Dim sql As String = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & RecordID & " OR RECORD2_ID = " & RecordID + If ClassDatabase.Execute_non_Query(sql) = True Then + sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = " & RecordID + If ClassDatabase.Execute_non_Query(sql) = True Then + sql = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & RecordID + If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record + sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & RecordID + If ClassDatabase.Execute_non_Query(sql) = True Then + Return True + End If + End If + End If + End If + + Return False + End Function + + + Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String + Dim ADDED_WHO As String = Environment.UserName + Dim RECORD_ID As Integer + + If IsInsert Then + If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Insert", False) + + ' Den Record erstellen + If CreateRecord(FormID) = False Then + IsInsert = False + Return "ERROR - INSERT RECORD NOT SUCCESSFUL" + End If + + ' Die eben erstellte RecordID holen + RECORD_ID = GetLastRecord() + + ' Wenn gegeben, foreignrecordID mit Record verknüpfen + If foreignRecordID > 0 Then + If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False) + ConnectRecord(foreignRecordID, RECORD_ID) + End If + + ' Für angegebene Control Typen den Wert speichern + InsertAllControls(FormID, RECORD_ID, _CtrlBuilder.AllControls) + + ' Status zurücksetzen + IsInsert = False + + NEW_RECORD_ID = RECORD_ID + CURRENT_RECORD_ID = RECORD_ID + Return "Neuer Datensatz eingefügt - " & Now + ElseIf IsInsert = False Then + If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False) + UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls) + + Return "Datensatz aktualisiert - " & Now + End If + End Function + + Private Sub InsertAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) + For Each ctrl As Control In controls + Dim CONTROL_ID As Integer = GetControlID_for_Name(ctrl.Name, FormID) + Dim CONTROL_VALUE As String = Nothing + + If TypeOf ctrl Is PictureBox Then + Dim id As Integer = GetControlID_for_Name(ctrl.Name, FormID) + UpsertImage(id, RecordID, ctrl.BackgroundImage) + Continue For + End If + + ' Control existiert + If CONTROL_ID <> -1 Then + CONTROL_VALUE = GetControlValue(ctrl) + End If + If TypeName(ctrl).ToString = "DateEdit" Then + CONTROL_VALUE = CDate(CONTROL_VALUE) + End If + 'If CONTROL_ID = 489 Then + ' Console.WriteLine(TypeName(ctrl)) + 'End If + ' Kein Bekanntes Control oder Groupbox + If IsNothing(CONTROL_VALUE) Then + If TypeOf ctrl Is GroupBox Then + InsertAllControls(FormID, RecordID, DirectCast(ctrl, GroupBox).Controls) + End If + Else + InsertControlValue(ctrl.Name, FormID, RecordID, CONTROL_VALUE) + End If + Next + End Sub + + Private Sub UpsertImage(ControlID As Integer, RecordID As Integer, image As Bitmap) + Dim existsSQL As String = "SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID + Dim exists = ClassDatabase.Execute_Scalar(existsSQL) + + If IsNothing(exists) Then + InsertImage(ControlID, RecordID, image) + Else + UpdateImage(ControlID, RecordID, image) + End If + End Sub + + Private Sub InsertImage(ControlID As Integer, RecordID As Integer, image As Bitmap) + Try + Dim bimage() As Byte + Dim SQL As String = "INSERT INTO TBPMO_CONTROL_IMAGE (CONTROL_ID, RECORD_ID, IMG, ADDED_WHO) VALUES (@CONTROL_ID, @RECORD_ID, @IMG, @ADDED_WHO)" + Dim conn As New SqlClient.SqlConnection(MyConnectionString) + Dim cmd As New SqlClient.SqlCommand(SQL, conn) + + If IsNothing(image) Then + DeleteImage(ControlID, RecordID) + Exit Sub + End If + + bimage = BitmapToByteArray(image) + + cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlID + cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordID + cmd.Parameters.Add("@RECORDID", SqlDbType.Int).Value = RecordID + cmd.Parameters.Add("@IMG", SqlDbType.VarBinary).Value = bimage + cmd.Parameters.Add("@ADDED_WHO", SqlDbType.VarChar).Value = Environment.UserName + + conn.Open() + cmd.ExecuteNonQuery() + conn.Close() + + LinkImage(ControlID, RecordID) + Catch ex As Exception + MsgBox("Error in InsertImage: ", ex.Message, vbCritical) + End Try + End Sub + + Private Sub LinkImage(ControlID As Integer, RecordID As Integer) + Try + Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID) + Dim ImageID As Integer = ClassDatabase.Execute_Scalar(SQL) + + SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID) + Dim valueExists = ClassDatabase.Execute_Scalar(SQL) + + Dim VALUE = "%%" & ImageID.ToString & "%%" + + If valueExists Then + SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", VALUE, ControlID, RecordID) + Else + SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (RECORD_ID, CONTROL_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", RecordID, ControlID, VALUE, Environment.UserName) + End If + + ClassDatabase.Execute_non_Query(SQL) + Catch ex As Exception + MsgBox("Error in LinkImage: " & vbNewLine & ex.Message) + End Try + End Sub + + Private Sub UpdateImage(ControlID As Integer, RecordID As Integer, image As Bitmap) + Try + Dim bimage() As Byte + Dim SQL As String = "UPDATE TBPMO_CONTROL_IMAGE SET IMG = @IMG, CHANGED_WHO = @CHANGED_WHO WHERE CONTROL_ID = @CONTROL_ID AND RECORD_ID = @RECORD_ID" + Dim conn As New SqlClient.SqlConnection(MyConnectionString) + Dim cmd As New SqlClient.SqlCommand(SQL, conn) + + If IsNothing(image) Then + DeleteImage(ControlID, RecordID) + Exit Sub + End If + + bimage = BitmapToByteArray(image) + + cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlID + cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordID + cmd.Parameters.Add("@RECORDID", SqlDbType.Int).Value = RecordID + cmd.Parameters.Add("@IMG", SqlDbType.VarBinary).Value = bimage + cmd.Parameters.Add("@CHANGED_WHO", SqlDbType.VarChar).Value = Environment.UserName + + conn.Open() + cmd.ExecuteNonQuery() + conn.Close() + + LinkImage(ControlID, RecordID) + Catch ex As Exception + MsgBox("Error in UpdateImage: ", ex.Message, vbCritical) + End Try + End Sub + + + Private Sub DeleteImage(ControlID As Integer, RecordID As Integer) + Try + ' Delete Image + Dim SQL = String.Format("DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID) + Dim result = ClassDatabase.Execute_non_Query(SQL) + + ' Delete Value + SQL = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID) + result = ClassDatabase.Execute_non_Query(SQL) + Catch ex As Exception + MsgBox("Fehler beim löschen des Bildes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub UpdateAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) + For Each ctrl As Control In controls + Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, RecordID) + Dim CONTROL_VALUE As String = Nothing + + If TypeOf ctrl Is PictureBox Then + Dim id As Integer = GetControlID_for_Name(ctrl.Name, FormID) + UpsertImage(id, RecordID, ctrl.BackgroundImage) + Continue For + End If + + ' Neues Control + If CONTROL_ID = -1 Then + CONTROL_VALUE = GetControlValue(ctrl) + + ' Kein Bekanntes Control oder Groupbox + If IsNothing(CONTROL_VALUE) Then + If TypeOf ctrl Is GroupBox Then + Dim ctrls As Control.ControlCollection = DirectCast(ctrl, GroupBox).Controls + + UpdateAllControls(FormID, RecordID, ctrls) + End If + Else + InsertControlValue(ctrl.Name, FormID, RecordID, CONTROL_VALUE) + End If + Else ' Control Updaten + CONTROL_VALUE = GetControlValue(ctrl) + ' Kein Bekanntes Control oder Groupbox + If IsNothing(CONTROL_VALUE) Then + If TypeOf ctrl Is GroupBox Then + Dim ctrls As Control.ControlCollection = DirectCast(ctrl, GroupBox).Controls + + UpdateAllControls(FormID, RecordID, ctrls) + End If + Else + UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE) + End If + End If + Next + End Sub + + Function GetControlValue(ctrl As Control) As String + Dim type = ctrl.GetType().Name + Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID) + + Select Case type + Case "TextBox" + Return DirectCast(ctrl, TextBox).Text + Case "ComboBox" + Return DirectCast(ctrl, ComboBox).Text + Case "CheckBox" + Return DirectCast(ctrl, CheckBox).Checked.ToString() + Case "RadioButton" + Return DirectCast(ctrl, RadioButton).Checked.ToString() + Case "DateEdit" + Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd") + Case "PictureBox" + + + + + 'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing + Case "CheckedListBoxControl" + Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl + chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl) + + 'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern + If (IsNothing(chklbx.DataSource)) Then + Dim result As New List(Of String) + Dim result_string As String + + For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In chklbx.CheckedItems + result.Add(item.Value) + Next + + result_string = String.Join(";", result) + + ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll + ' Überspringt den Rest der funktion + Return result_string + End If + + 'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt + 'Wenn nicht angehakt dann Record löschen + Dim index As Integer = 0 + For i As Integer = 0 To chklbx.ItemCount - 1 + Dim item = chklbx.GetItem(i) + Dim row As DataRowView = CType(item, DataRowView) + If chklbx.GetItemCheckState(i) = 0 Then + If CInt(row(0)) > 0 Then + 'Überprüfen ob es den Record gibt + Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) + If ClassDatabase.Execute_Scalar(SQL) = 1 Then + SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) + If ClassDatabase.Execute_non_Query(SQL) = True Then + If LogErrorsOnly = False Then ClassLogger.Add(">> TBPMO_RECORD_CONNECT-Eintrag nach Deselect CheckedListBox gelöscht", False) + End If + End If + End If + End If + Next + + 'Für jeden gecheckten Eintrag den Record der Stammentität mit dem selektierten linken + For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems + Dim row As DataRowView = CType(item, DataRowView) + Try + If CInt(row(0)) > 0 Then + Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) + If ClassDatabase.Execute_Scalar(SQL) = 0 Then + ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) + End If + + End If + Catch ex As Exception + ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True) + End Try + + Next + + + + 'In jedem Fall Nothing zurückgeben + Return Nothing + Case "ListBoxControl" + Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl) + Return listbox.SelectedValue + Case Else + Return Nothing + End Select + End Function + + Function InsertControlValue(ControlName As String, FormID As Integer, RecordID As Integer, Value As String) + Try + Dim ControlID = GetControlID_for_Name(ControlName, FormID) + Dim AddedWho = Environment.UserName + Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID) + Try + Select Case FORMAT_TYPE + Case "Currency" + If Not Value = String.Empty Then + Value = Decimal.Parse(Value, Globalization.NumberStyles.Currency).ToString + End If + + Case "Decimal" + If Not Value = String.Empty Then + Value = Decimal.Parse(Value, Globalization.NumberStyles.Integer) + End If + + End Select + Catch ex As Exception + ClassLogger.Add("Unerwarteter Fehler in Insert ConvertValue to Format'" & FORMAT_TYPE & "': " & ex.Message, True) + End Try + + If ControlID = 489 Then + Console.WriteLine(Value) + End If + + Dim SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & ControlID & ", " & RecordID & ", '" & Value & "', '" & AddedWho & "')" + Return ClassDatabase.Execute_non_Query(SQL, True) + Catch ex As Exception + ClassLogger.Add("Unerwarteter Fehler in InsertControlValue: " & ex.Message, True) + Return False + End Try + End Function + + Public Shared Function UpdateControlValue(ControlID As Integer, RecordID As Integer, Value As String) + Try + Dim CHANGED_WHO = Environment.UserName + Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID) + Try + If Not Value = String.Empty Then + Select Case FORMAT_TYPE + Case "Currency" + Value = Decimal.Parse(Value, Globalization.NumberStyles.Currency).ToString + Case "Decimal" + Value = Decimal.Parse(Value, Globalization.NumberStyles.Integer) + End Select + End If + + Catch ex As Exception + ClassLogger.Add("Unerwarteter Fehler in Update ConvertValue to Format'" & FORMAT_TYPE & "': " & ex.Message, True) + End Try + + Dim SQL As String = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & Value & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID + Return ClassDatabase.Execute_non_Query(SQL, True) + + Catch ex As Exception + ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True) + Return False + End Try + End Function + + Public Shared Function CreateRecord(FormID) + Dim ADDED_WHO As String = Environment.UserName + Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & ADDED_WHO & "', " & FormID & ")" + Return ClassDatabase.Execute_non_Query(SQL) + End Function + + Public Shared Function GetLastRecord() + Dim ADDED_WHO As String = Environment.UserName + Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & ADDED_WHO & "'" + Return ClassDatabase.Execute_Scalar(SQL, True) + End Function + + Public Shared Function ConnectRecord(foreignRecordID As Integer, recordID As Integer, Optional Comment As String = "") + Dim ADDED_WHO As String = Environment.UserName + Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & foreignRecordID & "," & recordID & ",'" & Comment & "','" & ADDED_WHO & "')" + If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False) + Return ClassDatabase.Execute_non_Query(SQL) + End Function + + 'Function SaveRecord_OLD(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String + ' Try + ' Dim SQL As String + ' Dim RECORD_ID As Integer + ' Dim ADDED_WHO As String = Environment.UserName + ' Dim CHANGED_WHO As String = Environment.UserName + + ' If IsInsert = True Then + ' If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Insert", False) + ' ' Create the record first + ' SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & ADDED_WHO & "', " & FormID & ")" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' IsInsert = False + ' Return "ERROR - INSERT RECORD NOT SUCCESSFUL" + ' End If + + ' ' Get last RecordID + ' SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & ADDED_WHO & "'" + ' RECORD_ID = ClassDatabase.Execute_Scalar(SQL) + ' 'Den Record Connecten + ' If foreignRecordID > 0 Then + ' If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False) + ' SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,ADDED_WHO) VALUES (" & foreignRecordID & "," & RECORD_ID & ",'" & ADDED_WHO & "')" + ' If LogErrorsOnly = False Then ClassLogger.Add(">> SQL: " & SQL, False) + ' ClassDatabase.Execute_non_Query(SQL) + ' End If + + ' 'ThisRecordID = RECORD_ID + ' 'MsgBox(formid) + + ' 'Save Each Value from Controls into CONTROL_VALUE + ' 'For Each ctrl As Control In pnl.Controls + ' Dim VALUE + ' For Each ctrl As Control In _CtrlBuilder.AllControls + ' Dim CONTROL_ID As Integer = GetControlID_for_Name(ctrl.Name, FormID) + ' If CONTROL_ID <> -1 And TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then + ' VALUE = ctrl.Text + ' 'If TypeOf ctrl Is ComboBox Then + ' ' Dim cmb = DirectCast(ctrl, ComboBox) + ' ' If cmb.DataSource Is Nothing = False Then + ' ' Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource) + ' ' Dim dt As DataTable = DirectCast(bs.DataSource, DataTable) + ' ' BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text) + ' ' ' MsgBox(dt.TableName.ToString & vbNewLine & cmb.DisplayMember.ToString) + ' ' End If + ' 'End If + + + ' ElseIf CONTROL_ID <> -1 And TypeOf ctrl Is CheckBox Then + ' 'If CONTROL_ID = -1 Then + ' Dim chk As CheckBox + ' chk = DirectCast(ctrl, CheckBox) + ' VALUE = chk.Checked + ' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID) + ' 'End If + ' ElseIf CONTROL_ID <> -1 And TypeOf ctrl Is RadioButton Then + ' Dim radio As RadioButton + ' radio = DirectCast(ctrl, RadioButton) + ' VALUE = radio.Checked + ' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID) + ' End If + ' 'Jetzt der Insert + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE(CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RECORD_ID & ", '" & VALUE & "', '" & ADDED_WHO & "')" + ' ClassDatabase.Execute_non_Query(SQL) + ' Next + ' ' Reset insert after INSERT + ' IsInsert = False + ' 'tsstatus_Detail_show(True, "Neuer Datensatz eingefügt - " & Now) + ' NEW_RECORD_ID = RECORD_ID + ' CURRENT_RECORD_ID = RECORD_ID + ' Return "Neuer Datensatz eingefügt - " & Now + ' Else + ' If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False) + ' For Each ctrl As Control In _CtrlBuilder.AllControls + ' Dim CONTROL_ID = GetControlID_for_RecordID(ctrl.Name, RecordID) + + ' Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID) + ' Console.WriteLine(CONTROL_ID.ToString & " - " & ctrl.Name) + + ' If CONTROL_ID = -1 And (TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox) Then + ' ' Trying to save a value for a new value + ' Dim VALUE = ctrl.Text + ' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID) + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!") + ' End If + + ' ElseIf TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then + + ' Dim VALUE = ctrl.Text + ' If value_akt <> VALUE Then + ' 'If TypeOf ctrl Is ComboBox Then + ' ' Dim cmb = DirectCast(ctrl, ComboBox) + ' ' If cmb.DataSource Is Nothing = False Then + ' ' Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource) + ' ' BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text) + ' ' End If + ' 'End If + + ' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!") + ' End If + ' End If + + ' ElseIf CONTROL_ID = -1 And (TypeOf ctrl Is DevExpress.XtraEditors.DateEdit) Then + ' Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit) + ' Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd") + ' CONTROL_ID = GetControlID_for_Name(date_ctrl.Name, FormID) + + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!") + ' End If + ' ElseIf TypeOf ctrl Is DevExpress.XtraEditors.DateEdit Then + ' Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit) + ' Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd") + ' If value_akt <> VALUE Then + ' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!") + ' End If + ' End If + ' ElseIf TypeOf ctrl Is CheckBox Then + ' If CONTROL_ID = -1 Then + ' Dim chk As CheckBox + ' chk = DirectCast(ctrl, CheckBox) + ' Dim VALUE = chk.Checked + ' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID) + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!") + ' End If + ' Else + ' Dim chk As CheckBox + ' chk = DirectCast(ctrl, CheckBox) + ' Dim VALUE = chk.Checked + ' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while update new value for Control " & ctrl.Name & "!") + ' End If + ' End If + ' ElseIf TypeOf ctrl Is RadioButton Then + + ' If CONTROL_ID = -1 Then + ' Dim radio As RadioButton = DirectCast(ctrl, RadioButton) + ' Dim VALUE As String = radio.Checked + ' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID) + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", " & VALUE & ", " & ADDED_WHO & ")" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!") + ' End If + ' Else + ' Dim radio As RadioButton = DirectCast(ctrl, RadioButton) + ' Dim value As String = radio.Checked + ' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID) + ' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & value & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while update new value for Control " & ctrl.Name & "!") + ' End If + ' End If + + ' End If + + ' Next + ' 'tsstatus_Detail_show(True, "Datensatz aktualisiert - " & Now) + ' Return "Datensatz aktualisiert - " & Now + ' End If + + ' Catch ex As Exception + ' MsgBox("Error in SaveRecord:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' IsInsert = False + ' Return "Error in SaveRecord" + ' End Try + 'End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassControlProperties.vb b/app - Kopie/DD-Record-Organiser/ClassControlProperties.vb new file mode 100644 index 0000000..6eacc7c --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassControlProperties.vb @@ -0,0 +1,532 @@ +Imports System.ComponentModel + +Module ClassControlProperties + ' +++++ ABSTRACT CLASSES +++++ + Public MustInherit Class BaseProperties + Private _id As Integer + Private _size As Size + Private _location As Point + Private _name As String + + + + + Public Property ID() As Integer + Get + Return _id + End Get + Set(value As Integer) + _id = value + End Set + End Property + + + + Public Property Size() As Size + Get + Return _size + End Get + Set(value As Size) + _size = value + End Set + End Property + + + + Public Property Location() As Point + Get + Return _location + End Get + Set(value As Point) + _location = value + End Set + End Property + + + + Public Property Name() As String + Get + Return _name + End Get + Set(value As String) + _name = value + End Set + End Property + End Class + + Public MustInherit Class CommonProperties + Inherits BaseProperties + + Private _id As Integer + ' Ansichtseinstellungen + Private _size As Size + Private _location As Point + Private _name As String = "" + Private _column_title = "" + ' Sonstige Einstellungen + Private _required As Boolean = False + Private _read_only As Boolean = False + ' Datenbank Einstellungen + Private _sql_connection As String = "" + Private _sql_command As String = "" + ' Schrift Einstellungen + Private _font As Font + Private _font_color As Color + + + + Public Property ColumnTitle() As String + Get + Return _column_title + End Get + Set(value As String) + _column_title = value + End Set + End Property + + + + Public Property IsRequired() As Boolean + Get + Return _required + End Get + Set(value As Boolean) + _required = value + End Set + End Property + + + + Public Property IsReadOnly() As Boolean + Get + Return _read_only + End Get + Set(value As Boolean) + _read_only = value + End Set + End Property + + + + Public Property SQLConnection() As SQLValue + Get + Return New SQLValue(_sql_connection) + End Get + Set(value As SQLValue) + _sql_connection = value.Value + End Set + End Property + + + + Public Property SQLCommand() As SQLValue + Get + Return New SQLValue(_sql_command) + End Get + Set(value As SQLValue) + _sql_command = value.Value + End Set + End Property + + + Public Property Font() As Font + Get + Return _font + End Get + Set(value As Font) + _font = value + End Set + End Property + + + + Public Property FontColor() As Color + Get + Return _font_color + End Get + Set(value As Color) + _font_color = value + End Set + End Property + + End Class + + Public MustInherit Class InputControlProperties + Inherits CommonProperties + Private _default_Value As String + Private _tab_index As Integer + Private _tab_stop As Boolean + Private _show_column As Boolean + + + + Public Property TabIndex() As Integer + Get + Return _tab_index + End Get + Set(value As Integer) + _tab_index = value + End Set + End Property + + + Public Property TabStop() As Boolean + Get + Return _tab_stop + End Get + Set(value As Boolean) + _tab_stop = value + End Set + End Property + + + Public Property DefaultValue() As String + Get + Return _default_Value + End Get + Set(value As String) + _default_Value = value + End Set + End Property + + + + Public Property ShowColumn() As Boolean + Get + Return _show_column + End Get + Set(value As Boolean) + _show_column = value + End Set + End Property + + End Class + + ' +++++ CONTROL CLASSES +++++ + + Public Class LabelProperties + Inherits CommonProperties + + Private _caption As String = "" + + + + + Public Overloads Property ColumnTitle() As String + Get + Return "" + End Get + Set(value As String) + '_column_title = value + End Set + End Property + + + + Public Property Caption() As String + Get + Return _caption + End Get + Set(value As String) + _caption = value + End Set + End Property + End Class + + Public Class TextBoxProperties + Inherits InputControlProperties + + Private _multiline As Boolean + Private _format As String + + + + Public Property Format() As EnumFormat + Get + Return _format + End Get + Set(value As EnumFormat) + _format = value + End Set + End Property + + + + Public Property Multiline() As Boolean + Get + Return _multiline + End Get + Set(value As Boolean) + _multiline = value + End Set + End Property + End Class + Public Class ComboBoxProperties + Inherits InputControlProperties + + Private _master_data_id As Integer + Private _static_list As String + Private _format As EnumFormat + + + + Public Property Format() As EnumFormat + Get + Return _format + End Get + Set(value As EnumFormat) + _format = value + End Set + End Property + + + Public Property MasterDataId() As Integer + Get + Return _master_data_id + End Get + Set(value As Integer) + _master_data_id = value + End Set + End Property + + + + Public Property StaticList() As String + Get + Return _static_list + End Get + Set(value As String) + _static_list = value + End Set + End Property + + End Class + Public Class DateTimePickerProperties + Inherits InputControlProperties + End Class + Public Class CheckBoxProperties + Inherits InputControlProperties + Private _caption As String = "" + Private _default_value As Boolean = False + + + + Public Property Caption() As String + Get + Return _caption + End Get + Set(value As String) + _caption = value + End Set + End Property + + + + Public Overloads Property DefaultValue As Boolean + Get + Return _default_value + End Get + Set(value As Boolean) + _default_value = value + End Set + End Property + End Class + + Public Class RadioButtonProperties + Inherits InputControlProperties + + Private _caption As String = "" + Private _default_value As Boolean = False + + + + + Public Property Caption() As String + Get + Return _caption + End Get + Set(value As String) + _caption = value + End Set + End Property + + + + Public Overloads Property DefaultValue As Boolean + Get + Return _default_value + End Get + Set(value As Boolean) + _default_value = value + End Set + End Property + End Class + + Public Class DataGridViewProperties + Inherits CommonProperties + End Class + Public Class PictureBoxProperties + Inherits CommonProperties + End Class + Public Class GroupBoxProperties + Inherits CommonProperties + Private _caption As String = "" + Private _back_color As Color + + + + Public Property Caption() As String + Get + Return _caption + End Get + Set(value As String) + _caption = value + End Set + End Property + + + + Public Property BackColor() As Color + Get + Return _back_color + End Get + Set(value As Color) + _back_color = value + End Set + End Property + End Class + + ' +++++ FUNCTION CLASSES +++++ + + Public Class FunctionAddAppointment + Inherits BaseProperties + + Private _caption As String + Private _subject As String + Private _subject2 As String + Private _from_date As String + Private _from_time As String + Private _to_date As String + Private _to_time As String + Private _place As String + Private _description As String + + + + Public Property Caption() As String + Get + Return _caption + End Get + Set(value As String) + _caption = value + End Set + End Property + + + + Public Property Subject() As String + Get + Return _subject + End Get + Set(value As String) + _subject = value + End Set + End Property + + + + Public Property Subject2() As String + Get + Return _subject2 + End Get + Set(value As String) + _subject2 = value + End Set + End Property + + + + Public Property Place() As String + Get + Return _place + End Get + Set(value As String) + _place = value + End Set + End Property + + + + Public Property Description() As String + Get + Return _description + End Get + Set(value As String) + _description = value + End Set + End Property + + + + Public Property FromDate() As String + Get + Return _from_date + End Get + Set(value As String) + _from_date = value + End Set + End Property + + + + Public Property ToDate() As String + Get + Return _to_date + End Get + Set(value As String) + _to_date = value + End Set + End Property + End Class + + Public Class FunctionAddFormData + Inherits BaseProperties + + Private _caption As String + Private _form_id As Integer + Private _screen_id As Integer + + + + Public Property Caption() As String + Get + Return _caption + End Get + Set(value As String) + _caption = value + End Set + End Property + + + + Public Property FormID() As Integer + Get + Return _form_id + End Get + Set(value As Integer) + _form_id = value + End Set + End Property + + + + Public Property ScreenID() As Integer + Get + Return _screen_id + End Get + Set(value As Integer) + _screen_id = value + End Set + End Property + End Class +End Module diff --git a/app - Kopie/DD-Record-Organiser/ClassControlValues.vb b/app - Kopie/DD-Record-Organiser/ClassControlValues.vb new file mode 100644 index 0000000..ca1c52f --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassControlValues.vb @@ -0,0 +1,393 @@ +Imports DevExpress.XtraEditors.Controls + +Public Class ClassControlValues + Private Shared Function LoadControlAutoValue(ControlID As Integer, RecordID As Integer, control As Control) As String + + If TypeOf control Is Label Then + Dim SQL As String = "SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID + Dim type As Integer = ClassDatabase.Execute_Scalar(SQL) + + ' Wenn kein/leerer Wert gefunden, suche nach einem SQL Command für Automatischen Wert + If type = 1 Then + Dim autoValue + SQL = "SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & ControlID + Dim result = ClassDatabase.Execute_Scalar(SQL) + result = result.Replace("@FORM_ID", CURRENT_FORM_ID) + result = result.Replace("@RECORD_ID", CURRENT_RECORD_ID) + result = result.Replace("@RECORDID", CURRENT_RECORD_ID) + result = result.Replace("@PARENTRECORD_ID", CURRENT_PARENTID) + ' Wenn das SQL Command leer ist, hat dieses Control kein SQL Command + ' Gib den ursprünlichen Text zurück + If result = "" Then + Return control.Text + Else + autoValue = ClassDatabase.Execute_Scalar(result) + + ' Wenn das SQL Command DBNull zurück gibt, + ' Überschreibe den alten Wert mit " " (Leerzeichen) + If IsDBNull(autoValue) Then + SQL = "SELECT CONTROL_TEXT FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & ControlID + Dim value = ClassDatabase.Execute_Scalar(SQL) + Return value + Else + Return autoValue + End If + End If + End If + + Return Nothing + End If + + End Function + + Public Shared Sub LoadControlValue(RecordID As Integer, ControlID As Integer, control As Control) + Try + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = " & RecordID & " and CONTROL_ID = " & ControlID, "LaodControlValue: ReturnValues") + If DT.Rows.Count = 0 Then + Dim autoValue = LoadControlAutoValue(ControlID, RecordID, control) + + If Not String.IsNullOrEmpty(autoValue) Then + control.Text = autoValue + End If + + Exit Sub + End If + + Dim result = DT.Rows(0).Item("VALUE") + '22.06.2015 + If Not IsDBNull(result) Then + Select Case DT.Rows(0).Item("CONTROL_TYPE_ID") + Case 1 'Label + Dim label As Label = DirectCast(control, Label) + Dim autoValue As String = LoadControlAutoValue(ControlID, RecordID, control) + If Not IsNothing(autoValue) Then + label.Text = autoValue + End If + Case 2 ' TextBox + Dim textbox As TextBox = DirectCast(control, TextBox) + textbox.Text = result + Case 10 ' CheckBox + Dim checkbox As CheckBox = DirectCast(control, CheckBox) + checkbox.Checked = CBool(result) + Case 11 'RadioButton + Dim radio As RadioButton = DirectCast(control, RadioButton) + radio.Checked = CBool(result) + Case 3 ' ComboBox + Dim combobox As ComboBox = DirectCast(control, ComboBox) + combobox.SelectedIndex = combobox.FindStringExact(result) + Case 4 'DateTimePicker + If result = "" Then + result = Now + End If + Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) + datepicker.DateTime = Date.Parse(result) + Case 13 ' Listbox + Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl) + listbox.SelectedIndex = listbox.FindStringExact(result) + Case Else + If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & DT.Rows(0).Item("CONTROL_TYPE_ID"), False) + 'MsgBox(DT.Rows(0).Item("CONTROL_TYPE_ID")) + End Select + Else + ClassLogger.Add(" >> Achtung, der Value für Control-ID: " & ControlID & " ist DBNull", False) + End If + + + Catch ex As Exception + MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Public Shared Sub LoadControlValues(RecordID As Integer, FormID As Integer, controls As Control.ControlCollection) + Try + Dim CONTROL_ID As Integer + + ClearControlValues(controls) + + For Each control As Control In controls + + 'Überhaupt Columns in Grid? + CONTROL_ID = GetControlID_for_RecordID(control.Name, RecordID) + If CONTROL_ID = -1 Then + CONTROL_ID = GetControlID_for_Name(control.Name, FormID) + End If + If LogErrorsOnly = False Then ClassLogger.Add(">> CONTROL_ID:" & CONTROL_ID, False) + ClearControlValue(control) + + If TypeOf control Is GroupBox Then + LoadControlValues(RecordID, FormID, DirectCast(control, GroupBox).Controls) + End If + + If TypeOf control Is PictureBox Then + LoadImage(RecordID, CONTROL_ID, control) + End If + + 'EINE CheckedListBoxControl + If TypeOf control Is DevExpress.XtraEditors.CheckedListBoxControl Then + If LogErrorsOnly = False Then ClassLogger.Add(">> control DevExpress.XtraEditors.CheckedListBoxControl", False) + Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl + chklbx = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl) + + Dim chklbSql As String = "SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID + chklbSql = ClassDatabase.Execute_Scalar(chklbSql) + If Not (chklbSql Is Nothing Or chklbSql = String.Empty) Then + If chklbSql.ToString.Contains("@") Then + chklbSql = chklbSql.ToString.Replace("@RECORDID", CURRENT_RECORD_ID) + chklbSql = chklbSql.ToString.Replace("@RECORD_ID", CURRENT_RECORD_ID) + chklbSql = chklbSql.ToString.Replace("@PARENTRECORD_ID", CURRENT_PARENTID) + If LogErrorsOnly = False Then ClassLogger.Add(">> SQL CheckedListBox: " & chklbSql, False) + 'SQL-Command vorhanden also Ausführen des SQL + Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(chklbSql, "LoadControlValues: CheckedListBox") + If DT_ListBox Is Nothing = False Then + chklbx.DataSource = DT_ListBox + Select Case DT_ListBox.Columns.Count + Case 2 + chklbx.DisplayMember = DT_ListBox.Columns(1).ColumnName + chklbx.ValueMember = DT_ListBox.Columns(0).ColumnName + Case 1 + chklbx.DisplayMember = DT_ListBox.Columns(0).ColumnName + chklbx.ValueMember = DT_ListBox.Columns(0).ColumnName + End Select + + End If + End If + + ElseIf (chklbSql = String.Empty) Then + ' Wenn keine SQL Command ein leerer String ist, + ' lade das Control ohne Datenbank, da es wahrscheinlich eine Static List ist + chklbSql = "SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID + Dim result As String = ClassDatabase.Execute_Scalar(chklbSql) + + If Not IsNothing(result) Then + If result.ToString <> String.Empty Then + Dim entries() As String = result.Split(";") + For Each entry As String In entries + Dim position = chklbx.FindStringExact(entry) + chklbx.SetItemCheckState(position, CheckState.Checked) + Next + End If + End If + + Continue For + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> chklbSql is nothing", False) + End If + + chklbx.UnCheckAll() + 'Recorddatensätze durchlaufen und überprüfen ob angehakt?? + Dim index As Integer = 0 + For i As Integer = 0 To chklbx.ItemCount - 1 + Dim item = chklbx.GetItem(i) + Dim row As DataRowView = CType(item, DataRowView) + If CInt(row(0)) > 0 Then + 'Überprüfen ob es den Record gibt + Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) + If ClassDatabase.Execute_Scalar(SQL) = 1 Then + chklbx.SetItemChecked(i, True) + End If + End If + + Next + ElseIf TypeOf control Is DevExpress.XtraEditors.ListBoxControl Then + If LogErrorsOnly = False Then ClassLogger.Add(">> control DevExpress.XtraEditors.ListBoxControl", False) + Dim lbx As DevExpress.XtraEditors.ListBoxControl + lbx = DirectCast(control, DevExpress.XtraEditors.ListBoxControl) + Dim lbSql As String = "SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID + lbSql = ClassDatabase.Execute_Scalar(lbSql) + If Not (lbSql Is Nothing Or lbSql = String.Empty) Then + If lbSql.ToString.Contains("@") Then + lbSql = lbSql.ToString.Replace("@RECORDID".ToUpper, CURRENT_RECORD_ID) + lbSql = lbSql.ToString.Replace("@RECORD_ID".ToUpper, CURRENT_RECORD_ID) + lbSql = lbSql.ToString.Replace("@PARENTRECORD_ID".ToUpper, CURRENT_PARENTID) + If LogErrorsOnly = False Then ClassLogger.Add(">> SQL ListBox: " & lbSql, False) + 'SQL-Command vorhanden also Ausführen des SQL + Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(lbSql, "LoadControlValues: ListBoxControl") + If DT_ListBox Is Nothing = False Then + lbx.DataSource = DT_ListBox + Select Case DT_ListBox.Columns.Count + Case 2 + lbx.DisplayMember = DT_ListBox.Columns(1).ColumnName + lbx.ValueMember = DT_ListBox.Columns(0).ColumnName + Case 1 + lbx.DisplayMember = DT_ListBox.Columns(0).ColumnName + lbx.ValueMember = DT_ListBox.Columns(0).ColumnName + End Select + If DT_ListBox.Columns.Count > 1 Then + + End If + + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> DT_ListBox is nothing", False) + End If + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> lbSql.ToString NOT Contains(@)", False) + End If + ElseIf (lbSql = String.Empty) Then + ' Wenn keine SQL Command ein leerer String ist, + ' lade das Control ohne Datenbank, da es wahrscheinlich eine Static List ist + LoadControlValue(RecordID, CONTROL_ID, control) + Continue For + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> lbSql is nothing", False) + End If + ElseIf CONTROL_ID <> -1 Then + 'If LogErrorsOnly = False Then ClassLogger.Add(">> LoadControlValues CONTROL_ID: " & CONTROL_ID, False) + LoadControlValue(RecordID, CONTROL_ID, control) + End If + Next + Catch ex As Exception + MsgBox("Unexpected Error in LoadControlValues:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Public Shared Sub LoadImage(RecordID As Integer, ControlID As Integer, control As Control) + Dim picbox As PictureBox = DirectCast(control, PictureBox) + Dim SQL As String = String.Format("SELECT IMG FROM TBPMO_CONTROL_IMAGE WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, ControlID) + Dim bimage As Byte() = ClassDatabase.Execute_Scalar(SQL) + + If Not IsNothing(bimage) Then + picbox.BackgroundImage = ByteArrayToBitmap(bimage) + picbox.BackgroundImageLayout = ImageLayout.Zoom + Else + picbox.BackgroundImage = Nothing + End If + End Sub + + Public Shared Sub ClearControlValues(controls As Control.ControlCollection) + For Each control In controls + If control.GetType().Name = "GroupBox" Then + Dim groupbox As GroupBox = control + ClearControlValues(groupbox.Controls) + Else + ClearControlValue(control) + End If + Next + End Sub + + Public Shared Sub ClearControlValue(control As Control) + Dim type = control.GetType().Name + + Select Case type + Case "TextBox" + DirectCast(control, TextBox).Text = String.Empty + Case "ComboBox" + Dim combo As ComboBox = DirectCast(control, ComboBox) + combo.SelectedIndex = -1 + combo.Text = String.Empty + Case "CheckBox" + DirectCast(control, CheckBox).Checked = False + Case "RadioButton" + DirectCast(control, RadioButton).Checked = False + Case "DateEdit" + DirectCast(control, DevExpress.XtraEditors.DateEdit).DateTime = Now + Case "PictureBox" + DirectCast(control, PictureBox).BackgroundImage = Nothing + Case "CheckedListBoxControl" + Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl) + If IsNothing(chklbx.DataSource) Then + chklbx.UnCheckAll() + End If + 'Case "ListBoxControl" + ' Dim lbx As DevExpress.XtraEditors.ListBoxControl + ' lbx = DirectCast(control, DevExpress.XtraEditors.ListBoxControl) + ' lbx.DataSource = Nothing + Case Else + + End Select + End Sub + + Public Shared Sub LoadDefaultValues(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) + Dim CONTROL_ID As Integer + + ' Zuerst alle Controls leeren + ClearControlValues(controls) + Dim i = 0 + For Each control As Control In controls + + CONTROL_ID = GetControlID_for_Name(control.Name, FormID) + If Not (TypeOf control Is Label) Then + i += 1 + End If + If TypeOf control Is GroupBox Then + LoadDefaultValues(FormID, RecordID, DirectCast(control, GroupBox).Controls) + ElseIf TypeOf control Is DevExpress.XtraEditors.CheckedListBoxControl Then + Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl + chklbx = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl) + chklbx.UnCheckAll() + End If + + If CONTROL_ID <> -1 Then + LoadDefaultValue(CONTROL_ID, RecordID, control) + End If + 'Den Focus auf das erste Steuerelement setzen + If i = 1 Then + control.Focus() + End If + + Next + End Sub + + Public Shared Sub LoadDefaultValue(ControlID As Integer, RecordID As Integer, control As Control) + Try + Dim SQL = "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & ControlID + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + Dim result = DT.Rows(0).Item("CONTROL_DEF_VALUE") + + Select Case DT.Rows(0).Item("CTRLTYPE_ID") + Case 2 ' TextBox + Dim textbox As TextBox = DirectCast(control, TextBox) + If IsDBNull(result) Then + textbox.Text = "" + Else + Dim vorgabe = result + 'Wenn der Default Wert über einen Select kommt + If vorgabe.ToString.ToLower.StartsWith("select") Then + vorgabe = result.Replace("@FORM_ID", CURRENT_FORM_ID) + vorgabe = vorgabe.Replace("@RECORD_ID", CURRENT_RECORD_ID) + vorgabe = vorgabe.Replace("@RECORDID", CURRENT_RECORD_ID) + vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENTID) + result = ClassDatabase.Execute_Scalar(vorgabe.ToString, True) + If IsNothing(vorgabe) Then + textbox.Text = "" + End If + End If + textbox.Text = result + + End If + Case 10 ' CheckBox + Dim checkbox As CheckBox = DirectCast(control, CheckBox) + checkbox.Checked = StrToBool(result) + Case 11 'RadioButton + Dim radio As RadioButton = DirectCast(control, RadioButton) + radio.Checked = StrToBool(result) + Case 3 ' ComboBox + Dim combobox As ComboBox = DirectCast(control, ComboBox) + If IsDBNull(result) Then + combobox.SelectedIndex = -1 + Else + combobox.SelectedIndex = combobox.FindStringExact(result) + End If + Case 4 'DateTimePicker + Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) + If IsDBNull(result) OrElse result = "" OrElse result = "False" Then + result = Now + End If + + datepicker.DateTime = result + End Select + + Catch ex As Exception + MsgBox("Unexpected Error in LoadDefaultValue:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Public Shared Function Get_Control_Value_for_ID(Control_ID As Integer, Record_ID As Integer) + Try + Return ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID, True) + Catch ex As Exception + MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassDatabase.vb b/app - Kopie/DD-Record-Organiser/ClassDatabase.vb new file mode 100644 index 0000000..e417c3b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassDatabase.vb @@ -0,0 +1,206 @@ +Imports Oracle.ManagedDataAccess.Client + +Public Class ClassDatabase + Private Shared connectionString As String + + Public Shared Function Init() + Try + connectionString = MyConnectionString + Dim SQLconnect As New SqlClient.SqlConnection + SQLconnect.ConnectionString = connectionString + SQLconnect.Open() + SQLconnect.Close() + If LogErrorsOnly = False Then ClassLogger.Add(" >> Database initiiert.") + Return True + Catch ex As Exception + ClassLogger.Add("Fehler bei DatabaseInit: " & ex.Message, True) + Return False + End Try + End Function + Public Shared Function GetConnectionString(id As Integer) + Dim connectionString As String = "" + Try + 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) + Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) + If DTConnection.Rows.Count = 1 Then + Select Case DTConnection.Rows(0).Item("SQL_PROVIDER") + Case "MS-SQLServer" + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Case "Oracle" + If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then + connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Else + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True" + End If + Case Else + ClassLogger.Add(" - ConnectionType nicht integriert", False) + MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") + End Select + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei GetConnectionString - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei GetConnectionString:") + End Try + Return connectionString + End Function + Public Shared Function Return_Datatable(Select_anweisung As String, Optional CallMethod As String = "") + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = connectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + MsgBox("Fehler bei Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung & vbNewLine & vbNewLine & "Call-Method: " & CallMethod, MsgBoxStyle.Critical) + ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message & "Call-Method: " & CallMethod, True) + If CallMethod <> "" Then ClassLogger.Add(">> Call-Method: " & CallMethod, False) + ClassLogger.Add(">> SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function + Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = ConString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Return_Datatable_CS: " & ex.Message, True) + ClassLogger.Add("#SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function + Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = connectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = ExecuteCMD + SQLcommand.ExecuteNonQuery() + SQLcommand.Dispose() + SQLconnect.Close() + Return True + Catch ex As Exception + If Userinput = True Then + MsgBox("Fehler bei Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) + + End If + ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True) + ClassLogger.Add("SQL: " & ExecuteCMD, False) + Return False + End Try + End Function + Public Shared Function Execute_Scalar(cmdscalar As String, Optional Userinput As Boolean = False) + Dim result + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = connectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = cmdscalar + result = SQLcommand.ExecuteScalar() + SQLcommand.Dispose() + SQLconnect.Close() + Return result + Catch ex As Exception + If Userinput = True Then + MsgBox("Fehler bei Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True) + ClassLogger.Add("SQL: " & cmdscalar, False) + Return Nothing + End Try + End Function + Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String) + Dim result + Try + Dim SQLconnect As New OracleConnection + Dim SQLcommand As New OracleCommand + SQLconnect.ConnectionString = OracleConnection + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = cmdscalar + result = SQLcommand.ExecuteScalar() + SQLcommand.Dispose() + SQLconnect.Close() + Return result + Catch ex As Exception + ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True) + ClassLogger.Add("#SQL: " & cmdscalar, False) + Return Nothing + End Try + End Function + Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New OracleConnection + Dim SQLcommand As OracleCommand + SQLconnect.ConnectionString = OracleConnection + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = ExecuteCMD + SQLcommand.ExecuteNonQuery() + SQLcommand.Dispose() + SQLconnect.Close() + Return True + Catch ex As Exception + If userInput = True Then + MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei OracleExecute_non_Query: " & ex.Message, True) + ClassLogger.Add("#SQL: " & ExecuteCMD, False) + + Return False + End Try + End Function + + Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New OracleConnection + Dim SQLcommand As OracleCommand + SQLconnect.ConnectionString = OracleConnection + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Oracle_Return_Datatable: " & ex.Message, True) + ClassLogger.Add("#SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassDragDrop.vb b/app - Kopie/DD-Record-Organiser/ClassDragDrop.vb new file mode 100644 index 0000000..f5dcce5 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassDragDrop.vb @@ -0,0 +1,177 @@ +Imports System.IO +Imports Microsoft.Office.Interop + +Public Class ClassDragDrop + Public Shared files_dropped As String() + Public Shared Function Drop_File(e As DragEventArgs) + Try + ClassLogger.Add(">> Drop_File", False) + files_dropped = Nothing + Dim oApp As New Outlook.Application + Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')" + ClassDatabase.Execute_non_Query(sql) + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + If LogErrorsOnly = False Then ClassLogger.Add(">> DataFormats.FileDrop", False) + Dim MyFiles() As String + Dim i As Integer + ' Assign the files to an array. + MyFiles = e.Data.GetData(DataFormats.FileDrop) + ' Loop through the array and add the files to the list. + For i = 0 To MyFiles.Length - 1 + + ReDim Preserve files_dropped(i) + files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i) + ' ListBox1.Items.Add(MyFiles(i)) + Next + Return files_dropped + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + If LogErrorsOnly = False Then ClassLogger.Add(">> Drop of OutlookMessage", False) + 'supports a drop of a Outlook message + Dim myobj As Object + + For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count + myobj = oApp.ActiveExplorer.Selection.Item(i) + + 'hardcode a destination path for testing + Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (myobj.Subject + ".msg").Replace(":", "")) + myobj.SaveAs(strFile) + ReDim Preserve files_dropped(i) + files_dropped(i) = "@OUTLOOKMESSAGE@" & strFile + + Next + Return files_dropped + ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then + If LogErrorsOnly = False Then ClassLogger.Add(">> FileGroupDescriptor/FileContents", False) + '// the first step here is to get the stbFileName + '// of the attachment and + '// build a full-path name so we can store it + '// in the temporary folder + '// + '// set up to obtain the aryFileGroupDescriptor + '// and extract the file name + Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream) + Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512] + stmInput.Read(aryFileGroupDescriptor, 0, 512) + '// used to build the stbFileName from the aryFileGroupDescriptor block + Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("") + '// this trick gets the stbFileName of the passed attached file + Dim intCnt As Integer = 76 + Do While aryFileGroupDescriptor(intCnt) <> 0 + stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE"))) + intCnt += 1 + Loop + stmInput.Close() + + Dim anhaenge = e.Data.GetDataPresent("FileContents") + 'Dim path As String = "C:\VBProjekte\Dateien" + '// put the zip file into the temp directory + Dim strOutFile As String = Path.GetTempPath() & stbFileName.ToString() + '// create the full-path name + '// + '// Second step: we have the file name. + '// Now we need to get the actual raw + '// data for the attached file and copy it to disk so we work on it. + '// + '// get the actual raw file into memory + Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email + If msInput Is Nothing = False Then + '// allocate enough bytes to hold the raw date + Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte + '// set starting position at first byte and read in the raw data + msInput.Position = 0 + msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32)) + '// create a file and save the raw zip file to it + Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) '; + fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length) + fsOutput.Close() ' // close the file + + Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile) + '// always good to make sure we actually created the file + If (finTemp.Exists = True) Then + 'MsgBox("Attachment File from Outlook created:" & vbNewLine & strOutFile) + ' lblFile.Text += "Attachment File from Outlook created" + Environment.NewLine + ReDim Preserve files_dropped(0) + files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile + If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False) + Return files_dropped + Else + ClassLogger.Add(">> Attachment File from Outlook could not be created", False) + 'lblFile.Text += "Attachment File from Outlook could not be created" + Environment.NewLine + End If + End If + Else + 'otherwise, do not handle + e.Effect = DragDropEffects.None + frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Other FileFormat") + If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False) + End If + + + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + + 'Drop eines Outlook Attachments + ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then + + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + + End If + + + Catch ex As Exception + MsgBox("Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical) + End Try + + + 'Else + ' Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + ' Dim filestype() As String + + ' filestype = e.Data.GetData(DataFormats.CommaSeparatedValue) + ' Dim sReader As New StreamReader(filestype(0)) + ' 'get the filename from the file without the path + ' Dim file_name As String = Path.GetFileName(filestype(0)) + + ' 'check the extension of the file + ' If Path.GetExtension(filestype(0)).ToLower() = ".xml" Then + ' 'Read the xml file + ' For Each path In files + ' 'ReadXMLFile(path) + ' Next + ' Else + ' 'warning about the file type + ' MessageBox.Show("Only XML files are supported!", "Warning!", _ + 'MessageBoxButtons.OK, _ + ' MessageBoxIcon.Warning) + ' End If + 'End If + + End Function + Public Shared Sub Drag_enter(e As DragEventArgs) + Try + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + e.Effect = DragDropEffects.All + If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... SimpleFileDrop", False) + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop") + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + 'handle a message dragged from Outlook + e.Effect = DragDropEffects.Copy + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... OutlookMessage") + If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False) + ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then + e.Effect = DragDropEffects.Copy + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook") + If LogErrorsOnly = True Then frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Attachment from Outlook") + Else + 'otherwise, do not handle + e.Effect = DragDropEffects.None + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat") + If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False) + End If + Catch ex As Exception + + End Try + + End Sub +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassEmail.vb b/app - Kopie/DD-Record-Organiser/ClassEmail.vb new file mode 100644 index 0000000..66e2349 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassEmail.vb @@ -0,0 +1,49 @@ +Imports System.Net.Mail +Public Class ClassEmail + Private Shared MailSSL As Boolean = False + Public Shared Function Send_EMail(MailEmpfaenger As String, MailBetreff As String, vBody As String, MAIL_SMTP As String, MAIL_USER As String, MAIL_PW As String, MAIL_FROM As String) + '#### E-MAIL NACHRICHT VERSENDEN + Try + If MAIL_SMTP <> "" And MAIL_USER <> "" Then + Dim empfaenger As String() + If MailEmpfaenger.Contains(";") Then + empfaenger = MailEmpfaenger.Split(";") + Else + ReDim Preserve empfaenger(0) + empfaenger(0) = MailEmpfaenger + End If + 'Für jeden Empfänger eine Neue Mail erzeugen + For Each _mailempfaenger As String In empfaenger + 'Neue Nachricht erzeugen: + Dim message As New MailMessage(MAIL_FROM, Trim(_mailempfaenger), MailBetreff, _ + "" & vBody & "
" & _ + "
Creation TimeStamp: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _ + My.Computer.Clock.LocalTime.ToLongTimeString & "") + ' create and add the attachment(s) */ + ' Dim Attachment As Attachment = New Attachment("E:\test\Frachkostenreport.txt") + 'message.Attachments.Add(Attachment) + With message + .IsBodyHtml = True + End With + + 'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen + Dim emailClient As New SmtpClient(MAIL_SMTP) + emailClient.EnableSsl = MailSSL + 'Email mit Authentifizierung + Dim SMTPUserInfo As New System.Net.NetworkCredential(MAIL_USER, MAIL_PW) ', My.Settings.vDomain) + emailClient.UseDefaultCredentials = False + emailClient.Credentials = SMTPUserInfo + emailClient.Port = 25 + '*Send the message */ + emailClient.Send(message) + Next + Return True + End If + Return True + Catch ex As Exception + MsgBox("Error in Send Email: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassEncryption.vb b/app - Kopie/DD-Record-Organiser/ClassEncryption.vb new file mode 100644 index 0000000..b0bfa39 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassEncryption.vb @@ -0,0 +1,68 @@ +Imports System.Security.Cryptography +Public Class ClassEncryption + Private TripleDes As New TripleDESCryptoServiceProvider + Sub New(ByVal key As String) + ' Initialize the crypto provider. + TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8) + TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8) + End Sub + + Private Function TruncateHash( + ByVal key As String, + ByVal length As Integer) As Byte() + + Dim sha1 As New SHA1CryptoServiceProvider + + ' Hash the key. + Dim keyBytes() As Byte = + System.Text.Encoding.Unicode.GetBytes(key) + Dim hash() As Byte = sha1.ComputeHash(keyBytes) + + ' Truncate or pad the hash. + ReDim Preserve hash(length - 1) + Return hash + End Function + Public Function EncryptData( + ByVal plaintext As String) As String + + ' Convert the plaintext string to a byte array. + Dim plaintextBytes() As Byte = + System.Text.Encoding.Unicode.GetBytes("!Didalog35452Heuchelheim=" & plaintext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the encoder to write to the stream. + Dim encStream As New CryptoStream(ms, + TripleDes.CreateEncryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + ' Use the crypto stream to write the byte array to the stream. + encStream.Write(plaintextBytes, 0, plaintextBytes.Length) + encStream.FlushFinalBlock() + + ' Convert the encrypted stream to a printable string. + Return Convert.ToBase64String(ms.ToArray) + End Function + 'Entschlüsselt die Zeichenfolge + Public Function DecryptData( + ByVal encryptedtext As String) As String + + ' Convert the encrypted text string to a byte array. + Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the decoder to write to the stream. + Dim decStream As New CryptoStream(ms, + TripleDes.CreateDecryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + ' Use the crypto stream to write the byte array to the stream. + decStream.Write(encryptedBytes, 0, encryptedBytes.Length) + decStream.FlushFinalBlock() + Dim result = System.Text.Encoding.Unicode.GetString(ms.ToArray) + result = result.Replace("!Didalog35452Heuchelheim=", "") + ' Convert the plaintext stream to a string. + Return result + End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassFormCommands.vb b/app - Kopie/DD-Record-Organiser/ClassFormCommands.vb new file mode 100644 index 0000000..614c3ea --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassFormCommands.vb @@ -0,0 +1,111 @@ +Public Class ClassFormCommands + + Public Shared Function LoadForm(guid) As DataTable + Try + Dim SQL As String = "SELECT NAME, LEVEL FROM TBPMO_FORM WHERE GUID = " & guid + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + + If DT.Rows.Count = 1 Then + Return DT + Else + Throw New Exception() + End If + Catch ex As Exception + MsgBox("Fehler beim Laden der Anzeigeeigenschaften der Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + + Public Shared Function LoadFormView(guid) As DataTable + Try + Dim SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + + If DT.Rows.Count = 1 Then + Return DT + Else + Throw New Exception() + End If + Catch ex As Exception + MsgBox("Fehler beim Laden der Formeigenschaften: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + + Public Shared Function SaveForm(guid As Integer, form_name As String, form_level As Integer, form_title As String, doc_view As Integer) + Try + Dim SQL As String + Dim NAME As String = form_name + Dim LEVEL As String = form_level + + SQL = "UPDATE TBPMO_FORM SET NAME = '" & NAME & "', LEVEL = " & LEVEL & "WHERE GUID = " & guid + + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return SaveFormView(guid, form_title, doc_view) + Else + Throw New Exception() + End If + + Catch ex As Exception + MsgBox("Fehler beim Speichern der Formeigenschaften: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function SaveFormView(guid As Integer, form_title As String, doc_view As Integer) + Try + Dim SQL As String + Dim TITLE As String = form_title + Dim DOCUMENT_VIEW As Integer = doc_view + + SQL = "UPDATE TBPMO_FORM_VIEW SET FORM_TITLE = '" & TITLE & "', DOCUMENT_VIEW = " & DOCUMENT_VIEW & " WHERE FORM_ID = " & guid + + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + Else + Throw New Exception() + End If + Catch ex As Exception + MsgBox("Fehler beim Speichern der Anzeigeeigenschaften der Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + + End Function + + Public Shared Function DeleteFormView(guid) + Try + Dim SQL As String = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE FORMVIEW_ID in (SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid & ")" + If ClassDatabase.Execute_non_Query(SQL) = False Then Return False + + SQL = "DELETE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid + If ClassDatabase.Execute_non_Query(SQL) = False Then + Return False + Else + Return True + End If + Catch ex As Exception + MsgBox("Fehler beim Löschen der Anzeigeeigenschaften der Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function DeleteFormControls(guid) + Try + Dim SQL As String = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & guid + + Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) + If dt.Rows.Count > 0 Then + For Each row As DataRow In dt.Rows + Dim controlid As Integer = row.Item(0) + CURRENT_CONTROL_ID = controlid + ClassControlCommands.DeleteControl() + + Next + End If + Return True + Catch ex As Exception + MsgBox("Fehler beim Löschen der FormControls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassFunctionCommands.vb b/app - Kopie/DD-Record-Organiser/ClassFunctionCommands.vb new file mode 100644 index 0000000..082717d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassFunctionCommands.vb @@ -0,0 +1,131 @@ +Public Class ClassFunctionCommands + 'Public Shared Function InsertFunction(ControlId As Integer) + ' Try + ' Dim SQL As String = "INSERT INTO TBPMO_FUNCTION_ADD_APPOINTMENT(CONTROL_ID) VALUES (" & ControlId & ")" + ' ClassDatabase.Execute_non_Query(SQL) + ' Return True + ' Catch ex As Exception + ' MsgBox("Fehler beim Anlegen der KalenderFunktion:" & vbNewLine & ex.Message) + ' Return False + ' End Try + 'End Function + + Public Shared Function InsertFunction(ControlId As Integer, Method As String) + Try + Dim SQL As String = "INSERT INTO TBPMO_FUNCTION_GENERAL (CONTROL_ID, METHOD) VALUES (" & ControlId & ", '" & Method & "')" + ClassDatabase.Execute_non_Query(SQL) + Return True + Catch ex As Exception + MsgBox("Fehler beim Anlegen der Funktion " & Method & ":" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + 'Public Shared Function UpdateFunction(ControlId As Integer, FromDateId As Integer, ToDateId As Integer, SubjectId As Integer) + ' Try + ' Dim SQL As String = "UPDATE TBPMO_FUNCTION_ADD_APPOINTMENT SET FROM_DATE = " & FromDateId & ", TO_DATE = " & ToDateId & ", SUBJECT = " & SubjectId & " WHERE CONTROL_ID = " & ControlId + ' ClassDatabase.Execute_non_Query(SQL) + ' Return True + ' Catch ex As Exception + ' MsgBox("Fehler beim Aktalisieren der KalenderFunktion:" & vbNewLine & ex.Message) + ' Return False + ' End Try + 'End Function + + Public Shared Function UpdateAddAppointmentFunction(ControlId As Integer, FromDateId As Integer, ToDateId As Integer, SubjectString As String, Subject2String As String, PlaceString As String, DescriptionString As String) + Try + Dim SQL As String = "UPDATE TBPMO_FUNCTION_GENERAL SET INTEGER1 = " & FromDateId & ", INTEGER2 = " & ToDateId & ", STRING1 = '" & SubjectString & "', STRING2 = '" & Subject2String & "', STRING3 = '" & PlaceString & "', STRING4 = '" & DescriptionString & "' WHERE CONTROL_ID = " & ControlId + If ClassDatabase.Execute_non_Query(SQL) = False Then + Throw New Exception("Datenbankfehler.") + End If + Return True + Catch ex As Exception + MsgBox("Error in UpdateAddAppointmentFunction:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function UpdateAddFormDataFunction(ControlId As Integer, FormId As Integer, ScreenId As Integer) + Try + Dim SQL As String = "UPDATE TBPMO_FUNCTION_GENERAL SET INTEGER1 = " & FormId & ", INTEGER2 = " & ScreenId & " WHERE CONTROL_ID = " & ControlId + If ClassDatabase.Execute_non_Query(SQL) = False Then + Throw New Exception("Datenbankfehler.") + End If + Return True + Catch ex As Exception + MsgBox("Error in UpdateAddFormDataFunction:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Shared Function LoadFunction(ControlId As Integer) As DataRow + Try + Dim SQL As String = "SELECT * FROM TBPMO_FUNCTION_GENERAL WHERE CONTROL_ID = " & ControlId + Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) + + If dt.Rows.Count = 1 Then + Return dt.Rows.Item(0) + Else + Throw New Exception("Funktion für " & ControlId & " wurde nicht gefunden") + End If + Catch ex As Exception + MsgBox("Fehler beim Empfangen der KalenderFunktion:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + + Public Shared Function DeleteFunction(ControlId As Integer) + Try + Dim SQL As String = "DELETE FROM TBPMO_FUNCTION_GENERAL WHERE CONTROL_ID = " & ControlId + ClassDatabase.Execute_non_Query(SQL) + Return True + Catch ex As Exception + MsgBox("Fehler beim Löschen der KalenderFunktion:" & vbNewLine & ex.Message) + End Try + End Function + + Public Shared Function InsertValue(ControlID As Integer, RecordID As Integer, Value As Object) + Try + Dim SQL As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE) VALUES({0}, {1}, '{2}')", ControlID, RecordID, Value) + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + Else : Return False + End If + Catch ex As Exception + MsgBox("Fehler bei InsertValue:" & vbNewLine & ex.Message) + Return False + End Try + End Function + + Public Shared Function UpdateValue(ControlID As Integer, RecordID As Integer, Value As Object) + Try + Dim SQL As String = String.Format("SELECT COUNT(*) FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID) + Dim ValueExists = ClassDatabase.Execute_Scalar(SQL) + + If ValueExists = 0 Then + Return InsertValue(ControlID, RecordID, Value) + Else + SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", Value, ControlID, RecordID) + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + Else : Return False + End If + End If + Catch ex As Exception + MsgBox("Fehler bei UpdateValue:" & vbNewLine & ex.Message) + Return False + End Try + End Function + + Public Shared Function GETCONTROL_ID_FOR_COL_NAME(FORM_ID As Integer, Column_Name As String) + Try + Dim SQL As String = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & FORM_ID & " AND COL_NAME = '" & Column_Name & "'" + Dim result = ClassDatabase.Execute_Scalar(SQL) + Return result + Catch ex As Exception + MsgBox("Error in GETCONTROL_ID_FOR_COL_NAME:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassFunctionCommandsUI.vb b/app - Kopie/DD-Record-Organiser/ClassFunctionCommandsUI.vb new file mode 100644 index 0000000..983a047 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassFunctionCommandsUI.vb @@ -0,0 +1,226 @@ +Imports DevExpress.XtraScheduler + +Public Class ClassFunctionCommandsUI + Shared Sub OpenFormData(ControlName As String, FormID As Integer) + Try + Dim ControlId As Integer = GetControlID_for_Name(ControlName, FormID) + + Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId) + + If IsDBNull(dr.Item("INTEGER1")) OrElse dr.Item("INTEGER1") = 0 Then + MsgBox("FormId ist nicht definiert für " & ControlName) + Exit Sub + End If + + If IsDBNull(dr.Item("INTEGER2")) OrElse dr.Item("INTEGER2") = 0 Then + MsgBox("ScreenId ist nicht definiert für " & ControlName) + Exit Sub + End If + + Dim newFormId As Integer = dr.Item("INTEGER1") + Dim newScreenId As Integer = dr.Item("INTEGER2") + + OpenFormInputFor(newFormId, newScreenId) + Catch ex As Exception + MsgBox("Error in OpenFormData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Shared Sub NewEditTaskAppointment(RecordID As Integer, ControlID As Integer, Subject As String, Description As String, DueDateTime As DateTime) + Try + Dim apt As Appointment = frmCalendar.SchedulerStorage1.CreateAppointment(AppointmentType.Normal) + Dim reminder As Reminder = apt.CreateNewReminder() + Dim SQL As String = "SELECT VALUE FROM VWPMO_VALUES where [RECORD_ID] = " & RecordID & " and [CONTROL_ID] = " & ControlID + reminder.AlertTime = DueDateTime + apt.Reminders.Add(reminder) + + Dim Value = ClassDatabase.Execute_Scalar(SQL) + If Value Is Nothing Then + apt.Subject = Subject & " - " & Value.ToString() + Else + apt.Subject = Subject + End If + + apt.Description = Description + apt.AllDay = True + apt.Start = DueDateTime + apt.End = DueDateTime + apt.CustomFields("RecordID") = RecordID + apt.CustomFields("ControlID") = ControlID + + frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + Catch ex As Exception + MsgBox("Error in NewEditTaskAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Shared Sub NewTaskAppointment(RecordID As Integer, ControlID As Integer, Subject As String, Description As String, DueDateTime As DateTime) + Dim apt As Appointment = frmCalendar.SchedulerStorage1.CreateAppointment(AppointmentType.Normal) + Dim reminder As Reminder = apt.CreateNewReminder() + Dim SQL As String = "SELECT VALUE FROM VWPMO_VALUES where [RECORD_ID] = " & RecordID & " and [CONTROL_ID] = " & ControlID + reminder.AlertTime = DueDateTime + apt.Reminders.Add(reminder) + + Dim Value = ClassDatabase.Execute_Scalar(SQL) + + apt.Subject = Subject & " - " & Value.ToString() + apt.Description = Description + apt.AllDay = True + apt.Start = DueDateTime + apt.End = DueDateTime + apt.CustomFields("RecordID") = RecordID + apt.CustomFields("ControlID") = ControlID + + frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + End Sub + + Shared Sub NewEditAppointment(ControlName As String, FormID As Integer, RecordID As Integer, PanelControls As Control.ControlCollection) + Try + Dim controlID = GetControlID_for_Name(ControlName, FormID) + + Dim SQL = "SELECT GUID FROM TBPMO_APPOINTMENTS WHERE CustomField1 = " & RecordID & " AND CustomField2 = " & controlID + Dim result = ClassDatabase.Execute_Scalar(SQL) + + If result Is Nothing Then + NewAppointment(ControlName, FormID, RecordID, PanelControls) + Else + EditAppointment(ControlName, FormID, RecordID) + End If + Catch ex As Exception + MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + + + Private Shared Function FindControlValue(ControlName As String, PanelControls As Control.ControlCollection) As String + If ControlName = Nothing Then + Return Nothing + Else + Dim from_ctrls() As Control = PanelControls.Find(ControlName, True) + Dim from_ctrl As Control + If from_ctrls.Length = 1 Then + from_ctrl = from_ctrls(0) + Return from_ctrl.Text + Else : Return Nothing + End If + End If + End Function + + Private Shared Sub NewAppointment(ControlName As String, FormID As Integer, RecordID As Integer, PanelControls As Control.ControlCollection) + Try + Dim ControlId As Integer = GetControlID_for_Name(ControlName, FormID) + Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId) + Dim apt As Appointment = frmCalendar.SchedulerStorage1.CreateAppointment(AppointmentType.Normal) + Dim FromDateName, ToDateName As String + Dim FromDateValue, ToDateValue As Date + Dim SubjectValue, Subject2Value, PlaceValue, DescValue As String + + Dim FromDateID As Object = dr.Item("INTEGER1") + Dim ToDateID As Object = dr.Item("INTEGER2") + + Dim SubjectString As Object = dr.Item("STRING1") + Dim Subject2String As Object = dr.Item("STRING2") + Dim PlaceString As Object = dr.Item("STRING3") + Dim DescString As Object = dr.Item("STRING4") + + If Not IsDBNull(FromDateID) Then + If FromDateID <> 0 Then + FromDateName = GetName_for_ControlID(FromDateID, FormID) + FromDateValue = Date.Parse(FindControlValue(FromDateName, PanelControls)) + apt.Start = FromDateValue + Else + apt.Start = Date.Now + End If + Else + apt.Start = Date.Now + End If + + If Not IsDBNull(ToDateID) Then + If ToDateID <> 0 Then + ToDateName = GetName_for_ControlID(ToDateID, FormID) + ToDateValue = Date.Parse(FindControlValue(ToDateName, PanelControls)) + apt.End = ToDateValue + Else + apt.End = Date.Now + End If + Else + apt.End = Date.Now + End If + + If Not IsDBNull(SubjectString) OrElse Not String.IsNullOrWhiteSpace(SubjectString) Then + SubjectValue = ReplacePlaceholders(SubjectString, RecordID, ControlName, PanelControls) + apt.Subject = SubjectValue + End If + + If Not IsDBNull(Subject2String) OrElse Not String.IsNullOrWhiteSpace(Subject2String) Then + Subject2Value = ReplacePlaceholders(Subject2String, RecordID, ControlName, PanelControls) + + If Not String.IsNullOrEmpty(Subject2Value) Then + apt.Subject = apt.Subject & " - " & Subject2Value + End If + + End If + + If Not IsDBNull(PlaceString) OrElse Not String.IsNullOrWhiteSpace(PlaceString) Then + PlaceValue = ReplacePlaceholders(PlaceString, RecordID, ControlName, PanelControls) + apt.Location = PlaceValue + End If + + If Not IsDBNull(DescString) OrElse Not String.IsNullOrWhiteSpace(DescString) Then + DescValue = ReplacePlaceholders(DescString, RecordID, ControlName, PanelControls) + apt.Description = DescValue + End If + + apt.AllDay = True + apt.CustomFields("RecordID") = RecordID + apt.CustomFields("ControlID") = ControlId + + frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + Catch ex As Exception + MsgBox("Fehler beim Laden der Termininformationen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Public Shared Function ReplacePlaceholders(str As String, RecordID As Integer, ControlName As String, PanelControls As Control.ControlCollection) + Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + Dim regexp As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + + Dim matches As System.Text.RegularExpressions.MatchCollection = regexp.Matches(str) + + If matches.Count = 0 Then + Return str + End If + + For Each match As System.Text.RegularExpressions.Match In matches + Dim ControlNameToReplace As String = match.Value.Substring(2, match.Value.Length - 3) + Dim ControlValue As String = FindControlValue(ControlNameToReplace, PanelControls) + + str = str.Replace(match.Value, ControlValue) + Next + + Return str + End Function + + Private Shared Sub EditAppointment(ControlName As String, FormID As Integer, RecordID As Integer) + Try + Dim controlID = GetControlID_for_Name(ControlName, FormID) + + ' Load All appointments first + frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES) + frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS) + + Dim apt As Appointment = frmCalendar.SchedulerStorage1.Appointments.Items.Find(Function(a As Appointment) + Return Convert.ToInt32(a.CustomFields("RecordID")).Equals(RecordID) And Convert.ToInt32(a.CustomFields("ControlID")).Equals(controlID) + End Function) + If apt IsNot Nothing Then + frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + End If + + Catch ex As Exception + MsgBox("Error in EditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassHelper.vb b/app - Kopie/DD-Record-Organiser/ClassHelper.vb new file mode 100644 index 0000000..225e77f --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassHelper.vb @@ -0,0 +1,78 @@ +Imports System.IO + +Public Class ClassHelper + Public Shared Function CheckDBNull(input As Object, back_Value As String) + If IsDBNull(input) Then + If back_Value = "String" Then + Return "" + Else + Return True + End If + Else + If back_Value = "String" Then + Return input.ToString + Else + Return False + End If + End If + End Function + Public Shared Function Get_TempFilename() + 'Eine tempfile generieren + Dim tempFilename = My.Computer.FileSystem.GetTempFileName() + 'Nur den Filenamen ohne Erweiterung + Dim tempName = Path.GetDirectoryName(tempFilename) & "\" & Path.GetFileNameWithoutExtension(tempFilename) + 'tempfile lsöchen + If My.Computer.FileSystem.FileExists(tempFilename) Then + My.Computer.FileSystem.DeleteFile(tempFilename) + End If + Return tempName + End Function + + Public Shared Function GetConnectionString(id As Integer) + Dim connectionString As String = "" + Try + 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) + Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_CONNECTION WHERE GUID = " & id) + If DTConnection.Rows.Count = 1 Then + Select Case DTConnection.Rows(0).Item("SQL_PROVIDER") + Case "MS-SQLServer" + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATABASE") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Case "Oracle" + If DTConnection.Rows(0).Item("COMMENT").ToString.Contains("without tnsnames") Then + connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + DTConnection.Rows(0).Item("DATABASE") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Else + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True" + End If + 'Dim conn As New OracleConnectionStringBuilder + + 'If chkOR_ohne_TNS.Checked Then + ' connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + ' DATABASETextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";" + 'Else + ' conn.DataSource = DATABASETextBox.Text + ' conn.UserID = USERNAMETextBox.Text + ' conn.Password = PASSWORDTextBox.Text + ' conn.PersistSecurityInfo = True + ' conn.ConnectionTimeout = 120 + ' connstr = conn.ConnectionString + 'End If + + + + 'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no; + + Case Else + ClassLogger.Add(" - ConnectionType nicht integriert", False) + MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") + End Select + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei GetConnectionString - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei GetConnectionString:") + + End Try + Return connectionString + End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassImport_Windream.vb b/app - Kopie/DD-Record-Organiser/ClassImport_Windream.vb new file mode 100644 index 0000000..4aaf07b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassImport_Windream.vb @@ -0,0 +1,90 @@ +Public Class ClassImport_Windream + Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer) + Try + Dim err As Boolean = False + + Dim DT_DOCTYPE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_ID) + If Not IsNothing(DT_DOCTYPE) Then + Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD") + Dim Dokart As String = DT_DOCTYPE.Rows(0).Item("BEZEICHNUNG") + ClassWindream._WDObjekttyp = DT_DOCTYPE.Rows(0).Item("OBJEKTTYP") + 'Die Datei nach windream importieren + Dim streamresult = ClassWindream.Stream_File(QuellDatei_Path, Targetpath) + If streamresult = True Then + Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & DOCTYPE_ID + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + Dim indexierung_erfolgreich As Boolean = False + If dt Is Nothing = False Then + If dt.Rows.Count > 0 Then + Dim Count As Integer = 0 + For Each row As DataRow In dt.Rows + Dim indexname = row.Item("INDEXNAME").ToString + Dim idxvalue = row.Item("VALUE") + If idxvalue.ToString.StartsWith("@") Then + Select Case idxvalue.ToString.ToUpper + Case "@RECORD-ID" + idxvalue = idxvalue.ToString.Replace("@Record-ID", CURRENT_RECORD_ID) + Case "@DOKART" + idxvalue = idxvalue.ToString.Replace("@Dokart", Dokart) + End Select + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - Indexvalue: " & idxvalue.ToString, False) + Count += 1 + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical) + err = True + Exit For + End If + 'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String + Next + If err = True Then + Return False + End If + 'den Entity-Key auslesen + sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')" + dt = ClassDatabase.Return_Datatable(sql) + If Not dt Is Nothing Then + If dt.Rows.Count = 1 Then + Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString + Dim idxvalue = CURRENT_FORM_ID + If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False) + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + err = True + MsgBox("Unexpected Error in indexing file Entity - See log", MsgBoxStyle.Critical) + Return False + End If + indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString + idxvalue = CURRENT_PARENTID + If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False) + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + err = True + MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) + Return False + End If + End If + End If + If indexierung_erfolgreich = True Then + Return True + Else + MsgBox("Es gab ein Problem bei der Indexierung der Datei. Bitte prüfen sie das Log!", MsgBoxStyle.Exclamation, "Achtung:") + Return False + End If + End If + End If + End If + Else + Return False + End If + + + + Catch ex As Exception + MsgBox("Unexpected error in Import_File ClassImport_windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + + End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassLayout.vb b/app - Kopie/DD-Record-Organiser/ClassLayout.vb new file mode 100644 index 0000000..f379ebf --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassLayout.vb @@ -0,0 +1,187 @@ +Imports System.Xml +Imports System.IO + +Public Class ClassWindowLocation + + Public Shared Sub LoadFormLocationSize(ByRef form As Form, FormID As Integer, ScreenID As Integer, Optional Prefix As String = "") + Try + Dim LayoutPath As String + If FormID = 99 Then + LayoutPath = Path.Combine(Application.UserAppDataPath(), Prefix & "-PositionSize.xml") + Else + LayoutPath = Path.Combine(Application.UserAppDataPath(), Prefix & "SCREEN" & ScreenID & "-FORM" & FormID & "-PositionSize.xml") + End If + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) + settings = layout.Load() + + If settings.Count = 0 Then + settings.Add(New ClassSetting("PositionX", form.Location.X)) + settings.Add(New ClassSetting("PositionY", form.Location.Y)) + settings.Add(New ClassSetting("Width", form.Size.Width)) + settings.Add(New ClassSetting("Height", form.Size.Height)) + layout.Save(settings) + End If + + For Each s As ClassSetting In settings + Dim x, y, w, h As Integer + + Select Case s._name + Case "PositionX" + x = Integer.Parse(s._value) + Case "PositionY" + y = Integer.Parse(s._value) + Case "Width" + w = Integer.Parse(s._value) + Case "Height" + h = Integer.Parse(s._value) + End Select + + If x = 5000 Then + Select Case Prefix + Case "frmTool_FormDesigner" + ClassLogger.Add(">> frmTool_FormDesigner - Maximize Eigenschaft Form wird nicht gesetzt.", False) + Case "frmTool_ControlProperties" + ClassLogger.Add(">> frmTool_ControlProperties - Maximize Eigenschaft Form wird nicht gesetzt.", False) + Case Else + form.WindowState = FormWindowState.Maximized + End Select + Else + If x > 0 Then + Select Case Prefix + Case "frmTool_FormDesigner" + form.Location = New Point(x, y) + Case "frmTool_ControlProperties" + form.Location = New Point(x, y) + Case Else + form.Location = New Point(x, y) + form.Size = New Size(w, h) + End Select + + End If + End If + + Next + Catch notFoundEx As System.IO.FileNotFoundException + ClassLogger.Add("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID) + Catch ex As Exception + MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Public Shared Sub SaveFormLocationSize(ByRef form As Form, FormID As Integer, ScreenID As Integer, Optional Prefix As String = "") + Try + Dim _path As String + If FormID = 99 Then + _path = Path.Combine(Application.UserAppDataPath(), Prefix & "-PositionSize.xml") + Else + _path = Path.Combine(Application.UserAppDataPath(), Prefix & "SCREEN" & ScreenID & "-FORM" & FormID & "-PositionSize.xml") + End If + Dim layout As ClassLayout = New ClassLayout(_path) + Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting) + Dim width As Integer + Dim height As Integer + Dim x As Integer + Dim y As Integer + If form.WindowState = FormWindowState.Maximized Then + width = 5000 + height = 5000 + x = 5000 + y = 5000 + Else + width = form.Size.Width + height = form.Size.Height + x = form.Location.X + y = form.Location.Y + End If + + settings.Add(New ClassSetting("PositionX", x)) + settings.Add(New ClassSetting("PositionY", y)) + settings.Add(New ClassSetting("Width", width)) + settings.Add(New ClassSetting("Height", height)) + + layout.Save(settings) + Catch notFoundEx As System.IO.FileNotFoundException + ClassLogger.Add("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID) + Catch ex As Exception + MsgBox("Error while saving Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + + End Sub + +End Class + + +'------------------------------------------------------------------- + +Public Class ClassSetting + Public _name As String + Public _value As String + + Public Sub New(name As String, value As String) + _name = name + _value = value + End Sub +End Class + +Public Class ClassLayout + Private _filename As String + Private _reader As XmlReader + Private _settings As XmlWriterSettings + + Public Sub New(filename As String) + _filename = filename + + _settings = New XmlWriterSettings() + _settings.Encoding = System.Text.Encoding.UTF8 + _settings.Indent = True + End Sub + + Public Sub Save(settings As System.Collections.Generic.List(Of ClassSetting)) + Dim w = XmlTextWriter.Create(_filename, _settings) + + w.WriteStartDocument() + w.WriteStartElement("Settings") + + For Each setting As ClassSetting In settings + w.WriteStartElement("Setting") + w.WriteAttributeString("name", setting._name) + w.WriteAttributeString("value", setting._value.ToString()) + w.WriteEndElement() + Next + + w.WriteEndElement() + w.WriteEndDocument() + + w.Dispose() + w.Close() + End Sub + + Public Function Load() As System.Collections.Generic.List(Of ClassSetting) + Dim Result As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting)() + + If Not File.Exists(_filename) Then + Return Result + End If + + _reader = XmlReader.Create(_filename) + + While _reader.Read() + If _reader.IsStartElement() Then + If _reader.Name = "Setting" Then + Dim name As String = _reader("name") + ' Dim value As Integer = Integer.Parse(_reader("value")) + Dim setting As ClassSetting = New ClassSetting(name, _reader("value")) 'value) + Result.Add(setting) + End If + End If + End While + + _reader.Dispose() + _reader.Close() + + Return Result + End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassLogger.vb b/app - Kopie/DD-Record-Organiser/ClassLogger.vb new file mode 100644 index 0000000..1f13ba0 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassLogger.vb @@ -0,0 +1,206 @@ +Imports System.IO +Public Class ClassLogger + Public Shared DateiSpeicherort As String = Nothing + Public Shared DateiPrefix As String = "" + Public Shared Datei As IO.File = Nothing + Public Shared logDateiname As String = "" + Private Shared StreamWriter As IO.StreamWriter = Nothing + Private Shared HasInformedAboutError As Boolean = False + ' eine Art Konstruktor + Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True) + ' initialisiert den Speicherort + ClassLogger.SetSpeicherort(speicherort) + ' wenn ein Prfix gesetzt wurde + If Not prefix = "" Then + ' initialisiert das Prefix + ClassLogger.SetPrefix(prefix) + End If + Dim str As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt" + Dim anz As Integer = 1 + Do While File.Exists(str) + Dim info As New FileInfo(str) + Dim length As Long = info.Length + If length > 5000000 Then + str = IO.Path.GetDirectoryName(str) + str = str & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt" + anz = anz + 1 + Else + Exit Do + End If + Loop + ClassLogger.logDateiname = str + If Not appendFile Then + ' der Versuch die Datei zu löschen + My.Computer.FileSystem.WriteAllText(ClassLogger.logDateiname, String.Empty, False) + End If + ' testen ob sich die Datei öffnen und beschreiben lässt + 'ClassNILogger.CheckIsLogWritable() + End Sub + + ' legt den Speicherort fest + Public Shared Sub SetSpeicherort(ByVal speicherort As String) + Dim folderlog = My.Application.Info.DirectoryPath & "\Log" + LOGPATH = folderlog + Dim folderinfo As New IO.DirectoryInfo(folderlog) + If folderinfo.Exists = False Then + Try + IO.Directory.CreateDirectory(folderlog) + Catch ex As Exception + 'kein Schreibrecht also Temppath + LOGPATH = Application.UserAppDataPath & "\Log" + Dim finfo As New IO.DirectoryInfo(LOGPATH) + If folderinfo.Exists = False Then + IO.Directory.CreateDirectory(LOGPATH) + End If + End Try + + End If + ClassLogger.DateiSpeicherort = LOGPATH + End Sub + + ' legt das Prefix für den Dateinamen fest + Public Shared Sub SetPrefix(ByVal prefix As String) + ClassLogger.DateiPrefix = prefix + End Sub + + Public Shared Sub Add(ByVal information As String, Optional ByVal ACHTUNG As Boolean = True) + If ClassLogger.OpenFile Then + Try + If ACHTUNG Then + ClassLogger.StreamWriter.WriteLine("#ACHTUNG# (" & System.DateTime.Now & "): " & information) + Else + ClassLogger.StreamWriter.WriteLine(information) + End If + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + Public Shared Sub Add(ByVal ex As Exception) + If ClassLogger.OpenFile Then + Try + ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")") + ClassLogger.StreamWriter.WriteLine("##### Fehler: " & ex.Message & " Source [" & ex.Source & "]") + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile() + Try + ' wenn ein Speicherort festgelegt wurde + If Not ClassLogger.DateiSpeicherort = Nothing Then + ' den Dateienamen definieren + Dim dateiname As String = ClassLogger.logDateiname + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + ' die Datei zum Schreiben öffnen + ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLogger.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + Catch ex As Exception + Return False + End Try + + End Function + + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String) + + Try + + ' wenn ein Speicherort festgelegt wurde + If Not DateiSpeicherort = Nothing And ClassLogger.CheckIsLogWritable() Then + + ' den Dateienamen definieren + Dim dateiname As String = ClassLogger.logDateiname + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + + ' die Datei zum Schreiben öffnen + ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLogger.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + + Catch ex As Exception + Return False + End Try + + End Function + + + ' schliesst die geöffnete Datei + Private Shared Sub CloseFile() + + ' wenn eine Datei geöffnet ist + If ClassLogger.StreamWriter IsNot Nothing Then + ' die Datei schliessen + ClassLogger.StreamWriter.Close() + ClassLogger.StreamWriter = Nothing + End If + End Sub + + + Public Shared Function CheckIsLogWritable() + + If ClassLogger.OpenFile Then + Try + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + Return False + End Try + Else + ClassLogger.ShowErrorMessage() + Return False + End If + + Return True + End Function + + + Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String) + + If ClassLogger.OpenFile(vDateiSpeicherort, vDateiPrefix) Then + Try + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + Return False + End Try + Else + ClassLogger.ShowErrorMessage() + Return False + End If + + Return True + End Function + + + Private Shared Sub ShowErrorMessage() + If Not ClassLogger.HasInformedAboutError Then + MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _ + vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf von " & My.Application.Info.ProductName & " nicht zu stören.", _ + MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei") + ClassLogger.HasInformedAboutError = True + End If + End Sub +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassOfficeTemplate.vb b/app - Kopie/DD-Record-Organiser/ClassOfficeTemplate.vb new file mode 100644 index 0000000..426f956 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassOfficeTemplate.vb @@ -0,0 +1,116 @@ +Imports Microsoft.Office.Interop.Word +Public Class ClassOfficeTemplate + Public Shared Function Open_Word_Template(Template_ID As Integer, Record_ID As Integer) + Try + Dim sql_Template As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & Template_ID + Dim DT_TEMPLATE As System.Data.DataTable = ClassDatabase.Return_Datatable(sql_Template) + Dim sql_patterns As String = "select * from TBPMO_TEMPLATE_ENTITY_PATTERN where TEMPL_ENT_ID = (SELECT GUID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND TEMPLATE_ID = " & Template_ID & ")" + Dim DT_PATTERNS As System.Data.DataTable = ClassDatabase.Return_Datatable(sql_patterns) + + If IsNothing(DT_PATTERNS) Then + MsgBox("Keine Patterns für diese Vorlage definiert. Bitte prüfen Sie die Konfiguration!", MsgBoxStyle.Critical) + Return False + End If + + Dim Original_Vorlage As String = DT_TEMPLATE.Rows(0).Item("TEMPLATE_PATH") + Dim DOCTYPE_ID As Integer = ClassDatabase.Execute_Scalar("SELECT DOCTYPE_ID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND TEMPLATE_ID = " & Template_ID) + + If System.IO.File.Exists(Original_Vorlage) = False Then + MsgBox("Achtung: die Vorlage " & vbNewLine & Original_Vorlage & vbNewLine & "existiert nicht!", MsgBoxStyle.Critical) + Return False + End If + Dim tempdoc = ClassHelper.Get_TempFilename & ".docx" + System.IO.File.Copy(Original_Vorlage, tempdoc) + + Dim word As New Microsoft.Office.Interop.Word.Application + Dim doc As Microsoft.Office.Interop.Word.Document + + doc = word.Documents.Open(tempdoc) + doc.Activate() + Dim _BuiltInProperties As Object = doc.BuiltInDocumentProperties + If Not _BuiltInProperties Is Nothing Then + '_BuiltInProperties("Title").Value = txtTitle.Text.Trim() + '_BuiltInProperties("Subject").Value = txtSubject.Text.Trim() + ' _BuiltInProperties("Author").Value = txtAuthor.Text.Trim() + '_BuiltInProperties("Manager").Value = txtManager.Text.Trim() + '_BuiltInProperties("Company").Value = txtCompany.Text.Trim() + _BuiltInProperties("Category").Value = DT_TEMPLATE.Rows(0).Item("TEMPLATE_NAME") + '_BuiltInProperties("Keywords").Value = txtKeyWords.Text.Trim() + _BuiltInProperties("Comments").Value = "RECORD_ID:" & CURRENT_RECORD_ID.ToString + End If + ' word.Visible = (True) 'Word sichtbar + + For Each cc In doc.ContentControls + If LogErrorsOnly = False Then ClassLogger.Add(">> Office-Pattern: " & cc.Tag, False) + For Each patternrow As System.Data.DataRow In DT_PATTERNS.Rows + If patternrow.Item("NAME_PATTERN").ToString.ToUpper = cc.tag.ToString.ToUpper Then + If Not IsDBNull(patternrow.Item("FIXED_VALUE")) Then + 'Fixed Value ist gefüllt + Dim fvalue As String = patternrow.Item("FIXED_VALUE").ToString.ToUpper + If fvalue <> "" Then + If fvalue.Contains("@") Then + If fvalue.Contains("CONTROLID") Then + Dim Control_ID = fvalue.Replace("@CONTROLID:", "") + Try + If CInt(Control_ID) Then + If LogErrorsOnly = False Then ClassLogger.Add(">> Get Value for Control-ID: " & Control_ID.ToString, False) + Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID) + If Not IsNothing(value_akt) Then + cc.Range.Text = value_akt.ToString + Else + ClassLogger.Add("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!", True) + End If + End If + Catch ex As Exception + ClassLogger.Add("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message, True) + End Try + End If + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False) + cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString + End If + End If + Else 'Kein Fixed Value, also wohl eher sql-result + If Not IsDBNull(patternrow.Item("CONNECTION_ID")) Then + If Not IsDBNull(patternrow.Item("SQL_COMMAND")) Then + + End If + + End If + End If + + End If + Next + Next cc + ' doc.ContentControls().Item("Name").Range.Text = "Schreiber" + 'Textmarken füllen + ' doc.().Item("Name").Range.Text = "Schreiber" + 'doc.Bookmarks().Item("Vorname").Range.Text = "Marlon" + 'doc.Bookmarks().Item("Produktion").Range.Text = "Testproduktion" + + doc.SaveAs(tempdoc) + 'doc.Close() + 'speichern / drucken + 'doc.SaveAs("c:\Proforma.doc") + 'doc.PrintOut() + doc.Close() + doc = Nothing + word.Quit() + + If ClassImport_Windream.Import_File(tempdoc, DOCTYPE_ID) = True Then + System.IO.File.Delete(tempdoc) + Process.Start(CURRENT_FILEIN_WD) + Return True + Else + MsgBox("Die Vorlage konnte nicht nach windream importiert werden. Die Datei wird dennoch geöffnet!", MsgBoxStyle.Exclamation) + Process.Start(tempdoc) + Return False + End If + Catch ex As Exception + ClassLogger.Add("Error in Open_Word_Template: " & ex.Message, True) + MsgBox("Unexpected Error in Open_Word_Template:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + Private Func +End Class diff --git a/app - Kopie/DD-Record-Organiser/ClassSQLEditor.vb b/app - Kopie/DD-Record-Organiser/ClassSQLEditor.vb new file mode 100644 index 0000000..5e38beb --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassSQLEditor.vb @@ -0,0 +1,61 @@ +Imports System.ComponentModel +Imports System.Drawing.Design +Imports System.Windows.Forms +Imports System.Windows.Forms.Design + +Public Class ClassSQLEditor + Inherits UITypeEditor + + Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle + 'Return MyBase.GetEditStyle(context) + Return UITypeEditorEditStyle.Modal + End Function + + Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object + 'Return MyBase.EditValue(context, provider, value) + Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + Dim SQLSTring As String = DirectCast(value, SQLValue).Value + + If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then + Using Form As New frmSQLEditor() + Form.Value = SQLSTring + + If svc.ShowDialog(Form) = DialogResult.OK Then + Dim sql As New SQLValue(Form.Value) + value = sql + End If + End Using + End If + + Return value + End Function +End Class + + _ + _ +Public Class SQLValue + Private _value As String + + Public Sub New(value As String) + Me.Value = value + End Sub + + Public Property Value As String + Get + Return _value + End Get + Set(value As String) + _value = value + End Set + End Property +End Class + +Public Class SQLTypeConverter + Inherits TypeConverter + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object + 'Return MyBase.ConvertTo(context, culture, value, destinationType) + Dim sqlvalue As SQLValue = DirectCast(value, SQLValue) + Return sqlvalue.Value + End Function +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/ClassWindream.vb b/app - Kopie/DD-Record-Organiser/ClassWindream.vb new file mode 100644 index 0000000..ea0a2de --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ClassWindream.vb @@ -0,0 +1,1593 @@ + +Imports WINDREAMLib +Imports WINDREAMLib.WMCOMEvent +Imports WINDREAMLib.WMEntity +Imports WINDREAMLib.WMObjectEditMode +Imports WINDREAMLib.WMSearchOperator +Imports WINDREAMLib.WMSearchRelation +Imports WMOBRWSLib +Imports WMOSRCHLib +Imports System.IO + +Public Class ClassWindream + +#Region "+++++ Konstanten +++++" + Const DEBUG = AUS + Const AUS = 0 + Const WINDREAM = 1 + Const VARIABLEN = 2 + Const WMObjectStreamOpenModeReadWrite = 2 + + Const WMObjectVariableValueTypeUndefined = 0 + Const WMObjectVariableValueTypeString = 1 + Const WMObjectVariableValueTypeInteger = 2 + Const WMObjectVariableValueTypeFloat = 3 + Const WMObjectVariableValueTypeBoolean = 4 + Const WMObjectVariableValueTypeDate = 5 + Const WMObjectVariableValueTypeFixedPoint = 6 + Const WMObjectVariableValueTypeTimeStamp = 7 + Const WMObjectVariableValueTypeCurrency = 8 + Const WMObjectVariableValueTypeTime = 9 + Const WMObjectVariableValueTypeVariant = 10 + Const WMObjectVariableValueTypeMask = &HFFF + Const WMObjectVariableValueFlagMask = &HFFFFF000 + Const WMObjectVariableValueTypeVector = &H1000 + Const WMObjectVariableValueTypeFulltext = &H2000 + Const WMObjectVariableValueTypeDefaultValue = &H4000 +#End Region + +#Region "+++++ Variablen +++++" + Public Shared oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht) + Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht) + Public Shared oBrowser As New WMOBRWSLib.ServerBrowser + Public Shared oDokumentTypen As WINDREAMLib.WMObjects + Private oController As New WMOSearchController + Public Shared _WDObjekttyp As String + Private Shared aktWMObject As WINDREAMLib.WMObject +#End Region + + +#Region "+++++ Allgemeine Methoden und Funktionen +++++" + + ''' + ''' Konstruktor für die windream-Klasse + ''' + ''' + Sub New() + ' wenn ein Fehler bei der Initialisierung auftrat + If Not ClassWindream.Init() Then + ' Nachricht ausgeben + MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung") + + ' das Programm "abschießen" + 'Process.GetCurrentProcess.Kill() + End If + End Sub + Public Function GetSearchDocuments(ByVal wdfLocation As String) + + If System.IO.File.Exists(wdfLocation) Then + + Try + Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1) + Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length) + + oController = New WMOSearchController + + Me.oController.CheckSearchProfile(wdfLocation.ToLower) + Dim suchTyp = Me.oController.SearchProfileTargetProgID + Dim ExSettings As Object + Dim oSearch As Object + ExSettings = Me.oController.SearchProfileExSettings + If ExSettings = 0 Then ExSettings = 7 + + Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch") + Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch") + Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch") + + '' Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments() + Select Case suchTyp.ToString.ToUpper + Case "WMOSRCH.WMQUICKSEARCH" + srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchQuick.WMSession) + + srchQuick.ClearSearch() + srchQuick.SearchProfilePath = ProfilePath + srchQuick.LoadSearchProfile(ProfileName) + + oSearch = srchQuick.GetSearch() + + Case "WMOSRCH.WMINDEXSEARCH" + srchIndex.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchIndex.WMSession) + + srchIndex.ClearSearch() + srchIndex.SearchProfilePath = ProfilePath + srchIndex.LoadSearchProfile(ProfileName) + + oSearch = srchIndex.GetSearch() + + Case "WMOSRCH.WMOBJECTTYPESEARCH" + srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchObjectType.WMSession) + + srchObjectType.ClearSearch() + srchObjectType.SearchProfilePath = ProfilePath + srchObjectType.LoadSearchProfile(ProfileName) + + oSearch = srchObjectType.GetSearch() + + Case Else + MsgBox("KEIN GÜLTIGER WINDREAM-SUCHTYP") + Return Nothing + End Select + Dim WMObjects As Object + WMObjects = oSearch.Execute + Return oSearch.execute + + Catch ex As Exception + ' bei einem Fehler einen Eintrag in der Logdatei machen + MsgBox("Error in GetSearchDocuments: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + + End If + + Return Nothing + + End Function + Public Function GetSearchDocuments_Objekttype(ByVal wdfLocation As String) + + If System.IO.File.Exists(wdfLocation) Then + + Try + Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1) + Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length) + + + + ' Me.oController.CheckSearchProfile(wdfLocation.ToLower) + ' Dim suchTyp = Me.oController.SearchProfileTargetProgID + 'Dim ExSettings As Object + Dim oSearch As Object + 'ExSettings = Me.oController.SearchProfileExSettings + 'If ExSettings = 0 Then ExSettings = 7 + + Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch") + + '' Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments() + + srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchObjectType.WMSession) + + srchObjectType.ClearSearch() + srchObjectType.SearchProfilePath = ProfilePath + srchObjectType.LoadSearchProfile(ProfileName) + + oSearch = srchObjectType.GetSearch() + + + Dim WMObjects As Object + WMObjects = oSearch.Execute + Return oSearch.execute + + Catch ex As Exception + ' bei einem Fehler einen Eintrag in der Logdatei machen + MsgBox("Error in GetSearchDocuments()" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + + End If + + Return Nothing + + End Function + + ''' + ''' Initialisiert die statische Klasse (Login, Session starten, usw.) + ''' + ''' Liefert True wenn das Anmelden erfolgreich war, sonst False + ''' + Public Shared Function Init() As Boolean + Try + Try + ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen + oSession = CreateObject("Windream.WMSession", GetCurrentServer) + If LogErrorsOnly = False Then ClassLogger.Add(">> windream-Server: '" & GetCurrentServer() & "'", False) + ' Connection-Objekt instanziieren + oConnect = CreateObject("Windream.WMConnect") + 'MsgBox("windrem init 'ed") + Catch ex As Exception + Return False + End Try + + ' wenn windream nicht angemeldet ist + If Not IsLoggedIn() Then + + ' Art der Anmeldung an windream festlegen + ' 0x0L (also 0) = Standard windream Benutzer + ' WM_ODULE_ID_DOCTYPEEDITOR_LIC = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.) + ' WM_MODULE_ID_INDEXSERVICE = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen + oConnect.ModuleID = 0 + + ' setzt die minimal erwartete windream-Version + oConnect.MinReqVersion = "3" + + ' -- Impersonifizierung nur möglich mit registry-eintrag -- + ' oConnect.UserName "\schulung\windream" + ' oConnect.Password "windream" + + ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen + oConnect.LoginSession(oSession) + If oSession.aLoggedin = False Then + MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden") + Return False + End If + + 'If My.Settings.vDetailLog Then + ' ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False) + 'End If + + ' AUSGABE VON SYSTEMINFORMATIONEN + ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) + ' oder Business-Edition (BE) aus + 'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _ + ' vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName")) + + 'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData + 'WMCtrl = New AISCONTROLDATACOMLib.AISControlData + + '' liefert die Versionsnummer des Clients + + 'MsgBox(WMCtrl.WMWorkstationBuildNo) + 'MsgBox(WMCtrl.W + '' liefert den Servernamen des angemeldeten windreams + 'MsgBox(WMCtrl.WMServerName) + + Try + oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False) + ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine + ' Ordnertypen ausgelesen werden + oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) + Catch ex As Exception + Return False + End Try + + End If + + Return True + + Catch ex As Exception + If Err.Number = -2147220985 Then + MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _ + "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version") + Else + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream") + End If + Return False + End Try + + End Function + +#End Region + + + +#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++" + + ''' + ''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte. + ''' + ''' Alle Objekttypen als WMObjects-Objekt + ''' + Public Shared Function GetObjecttypesAsObjects() As WMObjects + Try + + Return oDokumentTypen + + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen") + Return Nothing + End Try + End Function + + ''' + ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings. + ''' + ''' Array mit allen Objekttypen als Strings + ''' + Public Function GetObjecttypesAsStrings() As String() + + Try + Dim objektTypenStr(Me.oDokumentTypen.Count) As String + + For i As Integer = 0 To Me.oDokumentTypen.Count + objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName + Next + + Return objektTypenStr + + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String") + Return Nothing + End Try + + End Function + Public Function GetTypeOfIndex(ByVal indexname As String) As Integer + Try + Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) + Dim vType = oAttribute.getVariableValue("dwAttrType") + Return vType + Catch ex As Exception + Return Nothing + End Try + End Function + ''' + ''' Liefert alle Indexe eines Objekttypen. + ''' + ''' Name des Objekttyps + ''' Array mit allen Objekttyp zugeordneten Indexen als String + ''' + Public Shared Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String() + Try + Dim oObjectType As WMObject + Dim oIndexAttributes As WMObjectRelation + Dim oIndexAttribute As WMObject + Dim oIndex As WMObject + Dim oRelProperties As WMObjectRelationClass + + ' den Objekttyp laden + oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, Objecttype_name) + + ' Beziehung zu Indizes des Objekttyp auslesen + oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes") + + ' Array für Indizes vorbereiten + Dim aIndexNames(oIndexAttributes.Count - 1) As String + + ' alle Indizes durchlaufen + For j As Integer = 0 To oIndexAttributes.Count - 1 + + ' aktuellen Index auslesen + oIndexAttribute = oIndexAttributes.Item(j) + + ' Eigenschaften des Index auslesen + oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute") + + ' Index aus den Eigenschaften auslesen + oIndex = oRelProperties.Item(0) + + ' Indexname speichern + aIndexNames(j) = oIndex.aName + Next + + ' Indexarray zurückgeben + Return aIndexNames + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe") + Return Nothing + End Try + End Function + ''' + ''' Liefert einen Objekttyp als WMObject an Hand dessen Name. + ''' + ''' Name des Objekttyps + ''' Objekttyp als WMObject + ''' + Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject + Try + ' alle Objekttypen auslesen + Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) + + ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen + For Each oObjectType As WMObject In oObjectTypes + If oObjectType.aName = objekttypName Then + Return oObjectType + End If + Next + + Return Nothing + + Catch ex As Exception + MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden") + Return Nothing + End Try + End Function + + ''' + ''' Überprüft ob der angegebene Index im Objekttyp existiert + ''' + ''' Name des zu durchsuchenden Objekttyps + ''' Name des zu suchenden Indexes + ''' Liefert True wenn der Index im Objekttyp existiert, sonst False + ''' + Public Shared Function ExistIndexInObjekttyp(ByVal objekttyp As String, ByVal indexname As String) As Boolean + Try + Dim indexnamen() As String = GetIndicesByObjecttype(objekttyp) + + If indexnamen Is Nothing Then Return False + + For Each index As String In indexnamen + If index = indexname Then Return True + Next + + Catch ex As Exception + MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp") + End Try + + Return False + + End Function + +#End Region + + + +#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++" + + ''' + ''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist. + ''' + ''' Anmeldestatus als Boolean + ''' + Public Shared Function IsLoggedIn() As Boolean + Try + Return oSession.aLoggedin + Catch ex As Exception + MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung") + End Try + + Return False + End Function + + ''' + ''' Liefert den Servernamen an dem windream aktuell angemeldet ist. + ''' + ''' Servername als String + ''' + Public Shared Function GetCurrentServer() As String + Try + Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer + Catch ex As Exception + MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers") + End Try + + Return "" + End Function + + 'Public Function GetSharedCurrentServer() As String + ' Try + ' Return ClassWindream.oBrowser.GetCurrentServer + ' Catch ex As Exception + ' MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers") + ' End Try + + ' Return "" + 'End Function + + + ''' + ''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:') + ''' + ''' Laufwerksbuchstabe mit Doppelpunkt als String + ''' + 'Public Function GetWindreamDriveLetter() As String + + ' Try + ' Dim oControl As AISCONTROLDATACOMLib.AISControlData + ' Dim sDrive As String = "" + + ' oControl = New AISCONTROLDATACOMLib.AISControlData + + ' sDrive = oControl.GetStringValue(&H10040003) + + ' Return sDrive & ":" + + ' Catch ex As Exception + ' MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks") + ' End Try + + ' Return "" + 'End Function + + ''' + ''' Liefert den Typen eines Indexes als Integer. + ''' + ''' Name des zu überprüfenden Indexfeldes + ''' Liefert eine Zahl, die einen Typen beschreibt + ''' + + Public Function GetValuesfromAuswahlliste(ByVal _auswahlliste As String) As Object + Try + 'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) + 'Dim vType = oAttribute.getVariableValue("vItems") + 'Return vType + Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, _auswahlliste) + If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then + Dim Values = oChoiceList + Values = oChoiceList.GetVariableValue("vItems") + Dim anz As Integer = 0 + + For Each CLItem In Values + If oChoiceList.aName IsNot Nothing Then + anz += 1 + End If + Next + Dim strListe(anz - 1) + Dim zahl As Integer = 0 + For Each CLItem In Values + If oChoiceList.aName IsNot Nothing Then + strListe(zahl) = CLItem + zahl += 1 + End If + Next + Return strListe + Else + MsgBox("Auswahlliste: " & _auswahlliste & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:") + Return Nothing + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetValuesfromAuswahlliste:") + Return Nothing + End Try + End Function +#End Region + Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String) + aktWMObject = Nothing + If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then + My.Computer.FileSystem.CreateDirectory(zielpfad) + ClassLogger.Add(" - Zielverzeichnis neu erzeugt!", False) + End If + + Const STREAM_BinaryObject = "BinaryObject" + + If LogErrorsOnly = False Then ClassLogger.Add(" - Stream_File wurde gestartet", False) + Dim endgültigerDateiname As String = "" + ' Objekt für Datei und Zielverzeichnis anlegen + Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) + + If LogErrorsOnly = False Then ClassLogger.Add(" - Quelldatei gelesen", False) + + '######## + Dim Zielverzeichnis As String = zielpfad + endgültigerDateiname = Zielverzeichnis.Substring(2) & "\" & Quelldatei_Name + + If LogErrorsOnly = False Then ClassLogger.Add(" - Zielverzeichnis erzeugt", False) + If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then + If LogErrorsOnly = False Then ClassLogger.Add(" - targetPath exisitiert", False) + ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist + Dim dvr As New DriveInfo(vWLaufwerk & ":") + Dim freeSpace = dvr.TotalFreeSpace + + Dim info As New FileInfo(filenameQuelle) + ' Get length of the file. + Dim length As Long = info.Length + If freeSpace < length Then + MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") + Return -10 + End If + + If LogErrorsOnly = False Then ClassLogger.Add(" - Datei kopieren von " & filenameQuelle & " nach " & zielpfad.Substring(2) & "\" & Quelldatei_Name & ".", False) + Dim Connect + Dim Session + Dim WMObject + Dim aFileIO + Dim aWMStream + Dim wmbrwsr + Dim dmsServer As String + If LogErrorsOnly = False Then ClassLogger.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False) + Connect = CreateObject("Windream.WMConnect") + aFileIO = New WMOTOOLLib.WMFileIO + 'If My.Settings.DLL_WMOTOOL = "" Then + ' aFileIO = New WMOTOOLLib.WMFileIO + ' If LogErrorsOnly = False Then ClassLogger.Add(" - Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) + 'Else + ' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO + ' If LogErrorsOnly = False Then ClassLogger.Add(" - Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) + 'End If + + wmbrwsr = CreateObject("WMOBrws.ServerBrowser") + '================================================================== + ' get the current DMS-server to log in + '================================================================== + dmsServer = wmbrwsr.GetCurrentServer + '================================================================== + ' create a session + '================================================================== + Session = CreateObject("Windream.WMSession", dmsServer) + '================================================================== + ' login session + '================================================================== + Connect.LoginSession(Session) + Dim LoggedIn = Session.aLoggedin + If LoggedIn Then + If LogErrorsOnly = False Then ClassLogger.Add(" - Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False) + 'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'") + Else + ClassLogger.Add(" - Login on dms-Server failed", False) + ' MsgBox("Login failed. ") + End If + Const WMCOMEventWMSessionNeedIndex = 1 + + 'windream Objekte erstellen ohne Indexierungs-Event + Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False) + '================================================================== + ' check if files exist + '================================================================== + If LogErrorsOnly = False Then ClassLogger.Add(" - ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) + Dim wdFilexists As Boolean + If LogErrorsOnly = False Then ClassLogger.Add(" - Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) + wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) + + If wdFilexists = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" - Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) + Err.Clear() + '================================================================== + ' create an object + '================================================================== + WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") + 'MsgBox(Err.Description) + End If + ' MsgBox("Created file: " + endgültigerDateiname) + Else + ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen + If LogErrorsOnly = False Then ClassLogger.Add(" - Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) + Err.Clear() + '### Automatische Versionierung mit ~ (Tilde) ### + Dim version As Integer = 2 + Dim extension As String = Quelldatei_Name.Substring(Quelldatei_Name.LastIndexOf(".")) + Dim Stammname As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf(".")) + Dim neuername As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf(".")) + + Do While File.Exists("W:\" & neuername & extension) = True + If LogErrorsOnly = False Then ClassLogger.Add(" - Datei " & endgültigerDateiname & " ist vorhanden!", False) + neuername = Stammname & "~" & version + endgültigerDateiname = neuername & extension + version = version + 1 + Loop + WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - WMObject zugewiesen", False) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) + If WMObject IsNot Nothing Then + ' lock object for file system access (to change the file itself) + WMObject.lock() + ' set fileIO the local source file + aFileIO.bstrOriginalFileName = filenameQuelle + If Err.Number > 0 Then + 'MsgBox(Err.Number.ToString) + ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + ' MsgBox(Err.Description) + End If + ' open the windream object's file stream for writing + aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - oWMStream erzeugt", False) + ' give fileIO helper object the windream stream + aFileIO.aWMStream = aWMStream + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + ' let fileIO object import the original file into windream + aFileIO.ImportOriginal(True) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + ' MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - Inhalt der Datei konnte übertragen werden", False) + ' close the windream file stream + aWMStream.Close() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + ' save new windream object + WMObject.save() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return Err.Number + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - Datei konnte gespeichert werden", False) + ' unlock the windream object + WMObject.unlock() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist + Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname) + Dim length1 As Long = info2.Length + If LogErrorsOnly = False Then ClassLogger.Add(" - Length der Zieldatei: " & length1.ToString, False) + If length1 > 0 And Err.Number = 0 Then + If endgültigerDateiname.StartsWith("\") Then + If endgültigerDateiname.StartsWith("\\") Then + endgültigerDateiname = endgültigerDateiname.Replace("\\", "\") + Else + endgültigerDateiname = endgültigerDateiname + End If + Else + endgültigerDateiname = "\" & endgültigerDateiname + End If + CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname + ClassLogger.Add(" - Datei '" & CURRENT_FILEIN_WD & "' wurde erfolgreich importiert!", False) + aktWMObject = WMObject + Return True + Else + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + ClassLogger.Add(" FEHLER bei Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht- Überprüfen Sie Log-File") + Return False + End If + Else + Return False + End If + Else + If LogErrorsOnly = False Then ClassLogger.Add(" - targetPath exisitiert NICHT", False) + Return False + End If + + End Function + ''' + ''' Übergibt einer in windream gespeicherten Datei Indexwerte + ''' + ''' Name der zu indexierenden Datei + ''' neuer Name der zu indexierenden Datei + ''' Liefert True wenn das Indexieren erfolgreich war, sonst False + ''' + Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String) + Try + If LogErrorsOnly = False Then ClassLogger.Add(" - DateiIndexieren wurde aufgerufen", False) + WD_File = WD_File.Substring(2) + Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject + 'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString) + ' den Dokumenttyp schreiben + If LogErrorsOnly = False Then ClassLogger.Add(" ## Indexieren wird gestartet ##", False) + ' ein windream-Objekt der Datei anlegen + WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) + Try + ' die Datei sperren + WMObject.lock() + Catch ex As Exception + ' nichts tun (Datei ist bereits gesperrt) + End Try + + ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde + If WMObject.aObjectType.aName = "Standard" Then + + ' ihr den entsprechenden Dokumenttyp zuweisen + WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) + ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp + If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp wird gesetzt", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp war bereits gesetzt", False) + End If + + Try + WMObject.Save() + Catch ex As Exception + ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine + ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden + Return False + End Try + + Try + WMObject.unlock() + Catch ex As Exception + ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt + End Try + If LogErrorsOnly = False Then ClassLogger.Add(" - Datei wurde gespeichert / Unlock wurde durchgeführt", False) + ' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben + + If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp: " & _WDObjekttyp, False) + + + ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden + + Dim indexe As String = "" + + If LogErrorsOnly = False Then ClassLogger.Add(" - Indexname: '" & _Indexname & "'", False) + Dim werte = New ArrayList + If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then + If LogErrorsOnly = False Then ClassLogger.Add(" - Es handelt sich um ein Vektor-Feld", False) + + + 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt + If LogErrorsOnly = False Then ClassLogger.Add(" - Wert vor Überprüfung: " & _Value, False) + _Value = CheckIndexValue(_Value) + 'Ausstieg da Fehler in der Überprüfung + If _Value Is Nothing Then + Return False + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - Value für Indexierung: " & _Value, False) + werte.Add(_Value) + + If LogErrorsOnly = False Then ClassLogger.Add(" - Werte zu Array hinzugefügt!", False) + Else + 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt + If LogErrorsOnly = False Then ClassLogger.Add(" - Value vor Überprüfung: " & _Value, False) + _Value = CheckIndexValue(_Value) + 'Ausstieg da Fehler in der Überprüfung + If _Value Is Nothing Then + Return False + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - Value für Indexierung: " & _Value, False) + werte.Add(_Value) + + End If + + 'indexe &= indexname & " = " & werte & vbNewLine + 'Der Indexierungsvorgang + ' Dim indexErgebnis As ArrayList = Indexiere(filenameZiel, _Indexname, werte) + 'Me.singleInfoNode.Insert(0, Me.singleInfoNode(1)) + 'Me.singleInfoNode.Insert(0, Me.singleInfoNode(0)) + Dim arrIndex() As String = Nothing + Dim arrValue() As String = Nothing + ReDim Preserve arrIndex(0) + ReDim Preserve arrValue(0) + arrIndex(0) = _Indexname + arrValue(0) = _Value + Return RunIndexing(WMObject, arrIndex, arrValue) + + 'MsgBox(arr(0) & vbNewLine & indexe) + + Catch ex As Exception + ClassLogger.Add("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.") + ClassLogger.Add("Fehler: " & ex.Message) + ' Me.TreeNodeInfos.Add(temp) + Return False + End Try + End Function + Private Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object) + Dim vektInsState As Integer = 1 + Try + If Indizes IsNot Nothing And aValues IsNot Nothing Then + If Not oDocument.aLocked Then + oDocument.lock() + Dim i As Integer = 0 + Dim indexname As String + If aValues.Length = 1 And aValues(0) = "" Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert ist leer/Nothing - Keine Nachindexierung", False) + End If + ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde + If oDocument.aObjectType.aName <> _WDObjekttyp Then + ' ihr den entsprechenden Dokumenttyp zuweisen + oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) + ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp war bereits gesetzt", False) + End If + + Try + oDocument.Save() + Catch ex As Exception + ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine + ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden + Return False + End Try + + 'Jetzt jeden Indexwert durchlaufen + For Each aName As String In Indizes + indexname = aName + If LogErrorsOnly = False Then + ClassLogger.Add(" ", False) + ClassLogger.Add(" >> Indexierung von Index '" & indexname & "'", False) + End If + ' das entsprechende Attribut aus windream auslesen + Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i)) + ' den Variablentyp (String, Integer, ...) auslesen + Dim vType = oAttribute.getVariableValue("dwAttrType") + ' wenn in aValues an Position i ein Wert steht + If IsNotEmpty(aValues(i)) Then + Dim _int As Boolean = False + Dim _date As Boolean = False + Dim _dbl As Boolean = False + Dim _bool As Boolean = False + 'If indexname = "Tournr" Then + ' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString) + 'End If + + + 'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87") + Dim value = aValues(i) + Dim convertValue + Dim vektor As Boolean = False + 'Den Typ des Index-Feldes auslesen + 'MsgBox(value.GetType.ToString) + Select Case (vType) + 'Case WMObjectVariableValueTypeUndefined + Case WMObjectVariableValueTypeString + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeString", False) + convertValue = CStr(value) + Case WMObjectVariableValueTypeInteger + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False) + value = value.ToString.Replace(" ", "") + If IsNumeric(value) = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!", False) + End If + value = value.ToString.Replace(" ", "") + convertValue = CInt(value) + _int = True + Case WMObjectVariableValueTypeFloat + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) + value = value.ToString.Replace(" ", "") + convertValue = CDbl(value) + Case WMObjectVariableValueTypeFixedPoint + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False) + value = value.ToString.Replace(" ", "") + convertValue = CDbl(value) + _dbl = True + Case WMObjectVariableValueTypeBoolean + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False) + convertValue = CBool(value) + _bool = True + Case WMObjectVariableValueTypeDate + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeDate", False) + _date = True + 'Dim _date As Date = value + convertValue = value + Case WMObjectVariableValueTypeTimeStamp + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False) + convertValue = CDbl(value) + Case WMObjectVariableValueTypeCurrency + ClassLogger.Add(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False) + 'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden + Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value)) + convertValue = aValueWrapper + Case WMObjectVariableValueTypeTime + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTime", False) + 'If ((value)) Then + ' convertValue = CDate(value) + 'Else + ' convertValue = "" + 'End If + 'Dim _date As Date = value + convertValue = convertValue '*_date.ToShortTimeString + Case WMObjectVariableValueTypeFloat + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) + convertValue = CStr(value) + Case WMObjectVariableValueTypeVariant + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False) + convertValue = CStr(value) + Case WMObjectVariableValueTypeFulltext + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False) + convertValue = CStr(value) + Case 4097 + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4097 Vektor alphanumerisch", False) + 'Vektor alphanumerisch + vektor = True + Case 4098 + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4098 Vektor Numerisch", False) + 'Vektor Numerisch + vektor = True + Case 4099 + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4099 Vektor Kommazahl", False) + 'Vektor Kommazahl + vektor = True + Case 4101 + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4101 Vektor Date", False) + 'Vektor Kommazahl + vektor = True + Case 4103 + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4103 Vektor DateTime", False) + 'Vektor DateTime + vektor = True + Case 4107 + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4107 Integer 64bit", False) + vektor = True + Case 36865 + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 36865 Vektor alphanumerisch", False) + 'Vektor Kommazahl + vektor = True + Case Else + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes konnte nicht bestimmt werden!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch des Auslesens (vType): " & vType) + 'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else") + convertValue = "" + End Select + If vektor = False Then + If convertValue.ToString Is Nothing = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False) + End If + End If + '############################################################################################ + '####################### Der eigentliche Indexierungsvorgang ################################ + '############################################################################################ + If vektor = False Then + Try + If convertValue.ToString Is Nothing = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False) + If _int = True Then + convertValue = convertValue.ToString.Replace(" ", "") + oDocument.SetVariableValue(aName, CInt(convertValue)) + ElseIf _date = True Then + oDocument.SetVariableValue(aName, CDate(convertValue)) + ElseIf _bool Then + oDocument.SetVariableValue(aName, CBool(convertValue)) + ElseIf _dbl Then + convertValue = convertValue.ToString.Replace(" ", "") + oDocument.SetVariableValue(aName, CDbl(convertValue)) + Else + oDocument.SetVariableValue(aName, convertValue) + End If + 'Die Datei speichern + oDocument.Save() + If LogErrorsOnly = False Then + ClassLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False) + ClassLogger.Add("", False) + End If + Else + ClassLogger.Add(" >> Kein Indexwert vorhanden", False) + End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in SetVariableValue für Index '" & aName & "': " & ex.Message, True) + oDocument.Save() + oDocument.unlock() + Return False + End Try + + Else + + + + + + End If + Else + If LogErrorsOnly = False Then ClassLogger.Add(" >> Array der Indexwerte ist leer/Nothing - Keine Nachindexierung", False) + End If + i += 1 + + Next + oDocument.unlock() + If LogErrorsOnly = False Then + ClassLogger.Add(">> ...und Unlock durchgeführt)", False) + ClassLogger.Add("", False) + End If + Return True + Else + ClassLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False) + 'oDocument.unlock() + Return False + End If + End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in ClassNiWindream.RunIndexing " & ex.Message) + oDocument.Save() + oDocument.unlock() + Return False + End Try + End Function + Private Shared Function IsNotEmpty(ByVal aValue As Object) + + If aValue IsNot Nothing Then + Dim itsType As Type = aValue.GetType + If itsType Is GetType(String) Then + + If Not aValue = "" Then + Return True + End If + + Return False + Else + Return True + End If + Else + Return False + End If + + End Function + ''' + ''' Führt das eigendliche Indexieren aus + ''' + ''' Dateiname der zu indexierenden Datei + ''' Name des zu indexierenden Indexfeldes + ''' Der Wert/die Werte die dem Index zugewiesen werden sollen + ''' Liefert True wenn das Indexieren erfolgreich war, sonst False + ''' + Private Shared Function Indexiere(ByVal filenameZiel As String, ByVal index As String, ByVal werte As Object) + If LogErrorsOnly = False Then ClassLogger.Add(" - In Indexierungsvorgang für: " & filenameZiel, False) + Try + Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject") + 'MsgBox("Indexiere: " & vbNewLine & filenameZiel) + 'werte Is Nothing Or _ + ' überprüfen ob alle notwendigen Informationen angegeben wurden (sonst abbrechen) + If filenameZiel Is Nothing Or _ + filenameZiel = "" Or _ + index Is Nothing Or _ + index = "" Or _ + Not ExistIndexInObjekttyp(_WDObjekttyp, index) Then + If LogErrorsOnly = False Then ClassLogger.Add("=> Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.", False) + Return False + End If + + Dim fileExists As Boolean + + ' prüfen ob die zu indexierende Datei existiert + fileExists = My.Computer.FileSystem.FileExists(vWLaufwerk & ":" & filenameZiel) '_windream.GetWindreamDriveLetter + + Dim an As Integer = 0 + Do While My.Computer.FileSystem.FileExists(vWLaufwerk & ":" & filenameZiel) = False + If an > 500 Then + fileExists = False + Exit Do + Else + If LogErrorsOnly = False Then ClassLogger.Add(" Achtung: Datei exisitiert noch nicht: " & My.Computer.Clock.LocalTime, True) + End If + an = an + 1 + Loop + ' wenn die Datei existiert + If fileExists Then + WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel) + + ' eine Variable für den umgewandelten Indexwert anlegen (kein Typ, da noch unklar ist was reingeschrieben wird) + 'Dim convertValue = Nothing + + ' den Typ des Zielindexes auslesen + Dim TypDesIndexes As Integer + + Try + + ' ein windream-Objekt der Datei anlegen + WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel) + If LogErrorsOnly = False Then + ClassLogger.Add(" - windream-Objekt der Datei erzeugt", False) + ClassLogger.Add(" - Ziel: W:\" & filenameZiel, False) + End If + + 'Me.singleInfoNode.Add("Ziel: " & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel) + + Try + ' die Datei sperren + WMObject.lock() + + 'WMObject.LockFor(WINDREAMLib.WMObjectEditMode.WMObjectEditModeObject) + Catch ex As Exception + + End Try + + ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde + If WMObject.aObjectType.aName = "Standard" Then + ' ihr den entsprechenden Dokumenttyp zuweisen + WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) + ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp + End If + + + ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden + If werte Is Nothing Then + + Try + WMObject.Save() + WMObject.unlock() + Catch ex As Exception + + End Try + + Return Nothing + End If + + ' den Typ des Zielindexes auslesen + TypDesIndexes = GetTypeOfIndexAsIntByName(index) + + ' wenn es sich bei dem Index NICHT um ein Vektorfeld handelt + If TypDesIndexes < WMObjectVariableValueTypeVector Then + If LogErrorsOnly = False Then ClassLogger.Add(" - Bei dem Zielindex handelt es sich um einen Einzelindex.", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" Bei dem Zielindex handelt es sich um ein Vektorfeld.", False) + ' ein Backup der Indexwerte anlegen + Dim temp As Object = werte + ' und die eigendliche Variable zurücksetzen + werte = Nothing + ' dann soll nur der letzte Wert des Arrays übernommen werden, damit nicht versucht wird ein + ' Array in einen Einzelindex zu speichern + werte = temp + If LogErrorsOnly = False Then ClassLogger.Add(" - Array geleert und erneuert!", False) + End If + Catch ex As Exception + ClassLogger.Add("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.", False) + Return False + End Try + + + 'Try + ' den Typ des Zielindexes + If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des Indexes: " & TypDesIndexes.ToString, False) + Select Case (TypDesIndexes) + Case WMObjectVariableValueTypeUndefined ' zu klären !!!! + 'convertValue = vbEmpty + Case WMObjectVariableValueTypeString + ''Führende Nullen Entfernen + 'If werte.ToString.StartsWith("0") Then + ' Dim wert As String = CStr(CInt(werte.ToString)) + ' convertValue = wert + ' ClassLogger.Add(" - Führende Nullen wurden entfernt", False) + 'Else + ' Dim wert As String = CStr(CInt(werte.ToString)) + ' convertValue = wert + 'End If + 'If convertValue.ToString.Contains("~1") Then + ' convertValue = convertValue.ToString.Replace("~1", "") + 'End If + 'If convertValue.ToString.Contains("~2") Then + ' convertValue = convertValue.ToString.Replace("~2", "") + 'End If + 'If convertValue.ToString.Contains("~3") Then + ' convertValue = convertValue.ToString.Replace("~3", "") + 'End If + 'If convertValue.ToString.Contains("~4") Then + ' convertValue = convertValue.ToString.Replace("~4", "") + 'End If + + Case WMObjectVariableValueTypeInteger + ' convertValue = CInt(werte) + Case WMObjectVariableValueTypeFloat + werte = werte.ToString.Replace(".", ",") + 'convertValue = CDbl(werte) + + Case WMObjectVariableValueTypeBoolean + Try + ' convertValue = CBool(werte) + Catch ex As Exception + ' Nothing zuweisen damit SetVariableValue nicht ausgeführt wird + 'convertValue = Nothing + End Try + Case WMObjectVariableValueTypeDate + If (IsDate(werte)) Then + ' convertValue = CDate(werte) + Else + ' convertValue = vbEmpty + End If + + Case WMObjectVariableValueTypeFixedPoint + werte = werte.ToString.Replace(".", ",") + ' convertValue = CDbl(werte) + + Case WMObjectVariableValueTypeTimeStamp + Dim timestamp As Integer = GetTimestamp(werte) + If timestamp > 0 Then + ' convertValue = timestamp + Else + ' convertValue = vbEmpty + End If + + Case WMObjectVariableValueTypeCurrency + Dim aValue As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(werte) + ' convertValue = aValue + + Case WMObjectVariableValueTypeTime + If (IsDate(werte)) Then + ' convertValue = CDate(werte) ' ggf. aber nur die Zeit + Else + ' convertValue = vbEmpty + End If + + Case WMObjectVariableValueTypeVariant + ' convertValue = werte + + Case WMObjectVariableValueTypeMask ' zu klären !!!! + ' convertValue = vbEmpty + + Case WMObjectVariableValueFlagMask ' zu klären !!!! + ' convertValue = vbEmpty + + + Case WMObjectVariableValueTypeFulltext + 'convertValue = CStr(werte) + + Case WMObjectVariableValueTypeDefaultValue ' zu klären !!!! + ' convertValue = vbEmpty + + Case Else + ' wenn es sich um einen TypVektorIndex handelt + If TypDesIndexes >= 4096 And TypDesIndexes < 8192 Then + If LogErrorsOnly = False Then ClassLogger.Add("- Es handelt sich um einen Vektorindex", False) + Dim temp_arr As New ArrayList + + Select Case (TypDesIndexes - WMObjectVariableValueTypeVector) + 'VektorIndex vom Typ String 64' + Case 1 + If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 1", False) + For Each wert As Object In werte + 'Führende Nullen Entfernen + If werte.ToString.StartsWith("0") Then + Dim werteString As String = CStr(CInt(wert.ToString)) + wert = werteString + temp_arr.Add(CStr(wert)) + ClassLogger.Add("- Führende Nullen wurden entfernt", False) + Else + temp_arr.Add(CStr(wert)) + End If + + If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) + Next + Case WMObjectVariableValueTypeUndefined + ' convertValue = "" + + Case WMObjectVariableValueTypeString + If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 2", False) + For Each wert As Object In werte + 'Führende Nullen Entfernen + If werte.ToString.StartsWith("0") Then + wert = CInt(wert) + temp_arr.Add(CStr(wert)) + ClassLogger.Add("- Führende Nullen wurden entfernt", False) + Else + temp_arr.Add(CStr(wert)) + End If + If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) + Next + + Case WMObjectVariableValueTypeInteger + If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ Integer", False) + For Each wert As Object In werte + temp_arr.Add(CInt(wert)) + Next + + Case WMObjectVariableValueTypeFloat + For Each wert As Object In werte + wert = wert.ToString.Replace(".", ",") + temp_arr.Add(CDbl(wert)) + Next + + Case WMObjectVariableValueTypeBoolean + For Each wert As Object In werte + Try + temp_arr.Add(CBool(wert)) + Catch ex As Exception + ' Nothing zuweisen damit SetVariableValue nicht ausgeführt wird + temp_arr = Nothing + End Try + Next + + Case WMObjectVariableValueTypeDate + For Each wert As Object In werte + 'wert = + temp_arr.Add(CDate(wert)) + Next + + Case WMObjectVariableValueTypeFixedPoint + For Each wert As Object In werte + temp_arr.Add(CDbl(wert)) + Next + + Case WMObjectVariableValueTypeTimeStamp + For Each wert As Object In werte + temp_arr.Add(CInt(wert)) + Next + + Case WMObjectVariableValueTypeCurrency + For Each wert As Object In werte + Dim aValue As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(werte) + temp_arr.Add(aValue) + Next + + Case WMObjectVariableValueTypeTime + For Each wert As Object In werte + temp_arr.Add(CDate(wert)) + Next + + Case WMObjectVariableValueTypeVariant + ' dann bleiben alle Werte wie sie sind + + End Select + + If temp_arr.Count > 0 Then + If LogErrorsOnly = False Then ClassLogger.Add("- Einträge in temp_arr also Speichern des Arrays in convertValue", False) + ' convertValue = Nothing + ' convertValue = temp_arr.ToArray + Else + ' convertValue = vbEmpty + End If + If LogErrorsOnly = False Then ClassLogger.Add("- Werte erfolgreich konvertiert", False) + Else + ' convertValue = vbEmpty + End If + + End Select + + 'Catch ex As Exception + ' ' einen Hinweis über einen aufgetretenen Fehler an das Array für den TreeView-Log anhängen + ' ClassLogger.Add("Fehler bei Auswerten/Konvertieren des Typs!", ex.Message) + ' ' die Indexierungsinformationen für den TreeView-Log zurückgeben + ' Return False + 'End Try + + + ' Try + ' ***** Anmerkung: das Nachindexieren mit vbEmpty ist möglich (siehe oben) jedoch nicht ***** + ' ***** das Indexieren mit einem Nothing-Wert !!! ***** + ' wenn das Konvertieren soweit gut gelaufen ist (also kein Nothing-Wert zugewiesen wurde) + ' If (convertValue Is Nothing) = False Then + ' den konvertierten Indexwert dem entsprechenden Index zuweisen + WMObject.SetVariableValue(index, werte) + If LogErrorsOnly = False Then + ClassLogger.Add(" - den konvertierten Indexwert dem entsprechenden Index zuweisen", False) + ClassLogger.Add(" - Indexname: " & index.ToString, False) + ClassLogger.Add(" - Indexwert: " & werte.ToString, False) + End If + 'End If + + ' die Indexinformationen des Dokuments speichern + WMObject.Save() + If LogErrorsOnly = False Then ClassLogger.Add(" - die Indexinformationen des Dokuments speichern", False) + ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, + ' wenn eine Datei nicht gesperrt ist + Try + ' die Sperrung des Dokuments aufheben + WMObject.unlock() + If LogErrorsOnly = False Then ClassLogger.Add(" - die Sperrung des Dokuments aufheben", False) + Catch ex As Exception + ' nichts tun (Datei war nicht gesperrt) + End Try + + 'Catch ex As Exception + ' ' auch wenn ein Fehler aufgetreten ist muss das Dokument gespeichert werden, um den Dokumenttypen zu speichern + ' WMObject.Save() + + ' ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, + ' ' wenn eine Datei nicht gelocked ist + ' Try + ' WMObject.unlock() + ' Catch ex2 As Exception + ' ' nichts tun (Datei war nicht gesperrt) + ' End Try + + + ' ' Nachricht für den TreeView-Log + ' indexBeschreibung &= "konnte nicht indexiert werden" + ' ClassLogger.Add(" DATEI konnte nicht indexiert werden", True) + 'End Try + + + ' die Indexierungsinformationen für den TreeView-Log zurückgeben + Return True + Else + ' die Indexierungsinformationen für den TreeView-Log zurückgeben + ClassLogger.Add(" Hinweis: Die Datei hat zum Zeitpunkt der Indexierung noch nicht auf dem windream-Laufwerk existiert.", False) + End If + + Catch ex As Exception + ClassLogger.Add(" Hinweis: Unbekannter Fehler beim Indexieren der Datei.") + ClassLogger.Add(ex.Message) + Return False + End Try + + Return True + + End Function + + ''' + ''' Diese Funktion überprüft ob eine Variable ein Array ist, oder nicht. + ''' + ''' Variable die überprüft werden soll + ''' Liefert True wenn es sich um ein Array handelt, sonst False + ''' + Private Shared Function IsArray(ByVal arrayOrNot As Object) + + Dim arrayType As String = UCase(arrayOrNot.GetType.ToString) + + ' überprüft an welcher Stelle sich ein '['-Zeichen befindet + Dim position = InStr(arrayType, "[") + + ' existiert ein '['-Zeichen, so handelt es sich um ein Array (GetType wäre System.Object[]) + If Not position = 0 Then + Return True + Else + Return False + End If + End Function + + + ''' + ''' Diese Funktion überprüft ob eine Variable eine ArrayList ist, oder nicht. + ''' + ''' Variable die überprüft werden soll + ''' Liefert True wenn es sich um eine ArrayList handelt, sonst False + ''' + Private Shared Function IsArrayList(ByVal arrayOrNot As Object) + + Dim arrayType As String = UCase(arrayOrNot.GetType.ToString) + + ' überprüft an welcher Stelle sich ein '['-Zeichen befindet + Dim position = InStr(arrayType, "[") + + ' existiert ein '['-Zeichen, so handelt es sich um ein Array (GetType wäre System.Object[]) + If arrayOrNot.GetType.ToString = "System.Collections.ArrayList" Then + Return True + Else + Return False + End If + End Function + ''' + ''' Diese Funktion errechnet aus einem Datum den Unix-Timestamp + ''' + ''' Datum, für das der Timestamp errechnet werden soll + ''' Liefert den Timestamp als Integer + ''' + Private Shared Function GetTimestamp(ByVal FromDateTime As DateTime) As Integer + + If IsDate(FromDateTime) Then + Dim Startdate As DateTime = #1/1/1970# + Dim Spanne As TimeSpan + + ' vom Datum das Datum des "Beginns der Zeitrechnung" abziehen + Spanne = FromDateTime.Subtract(Startdate) + + ' die Zeitspanne in einen Integer umwandeln + Return CType(Math.Abs(Spanne.TotalSeconds()), Integer) + Else + Return 0 + End If + End Function + ''' + ''' Liefert den Typen eines Indexes als Integer. + ''' + ''' Name des zu überprüfenden Indexfeldes + ''' Liefert eine Zahl, die einen Typen beschreibt + ''' + Private Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer + Try + Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) + Dim vType = oAttribute.getVariableValue("dwAttrType") + Return vType + Catch ex As Exception + Return Nothing + End Try + End Function + Private Shared Function CheckIndexValue(ByVal input) + Try + 'Ersetzt die Versionierungen Tilde(~) und Klammern ((1)) + For i As Integer = 1 To 20 + If input.ToString.EndsWith("~" & i.ToString) Then + input = input.ToString.Replace("~" & i.ToString, "") + ElseIf input.ToString.EndsWith("(" & i.ToString & ")") Then + input = input.ToString.Replace("(" & i.ToString & ")", "") + End If + + Next + + Return input + Catch ex As Exception + ClassLogger.Add("Error in CheckIndexValue: " & ex.Message) + Return Nothing + End Try + + End Function +End Class diff --git a/app - Kopie/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app - Kopie/DD-Record-Organiser/DD-Record-Organiser.vbproj new file mode 100644 index 0000000..c5f55ef --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -0,0 +1,1023 @@ + + + + + Debug + AnyCPU + {BDCC148B-4C84-4A48-80CF-4C56057294E0} + WinExe + DD_Record_Organiser.My.MyApplication + DD_Record_Organiser + DD-Record-Organiser + 512 + WindowsForms + v4.5.1 + true + false + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + AnyCPU + true + full + true + true + bin\Debug\ + DD-Record-Organiser.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DD-Record-Organiser.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + My Project\app.manifest + + + Resources\cube.ico + + + + False + ..\..\3rdparty\lib\Windream\AxInterop.INDEXLib.dll + True + + + False + ..\..\3rdparty\lib\Windream\AxInterop.OBJECTLISTCONTROLLib.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.BonusSkins.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.Data.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.Office.v14.2.Core.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.Printing.v14.2.Core.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.RichEdit.v14.2.Core.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.Utils.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraBars.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraEditors.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraGrid.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraLayout.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraNavBar.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraPrinting.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraRichEdit.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraScheduler.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraScheduler.v14.2.Core.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraScheduler.v14.2.Extensions.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraTreeList.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraVerticalGrid.v14.2.dll + True + + + False + ..\..\3rdparty\lib\DevExpress 14.2\DevExpress.XtraWizard.v14.2.dll + True + + + ..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll + + + False + False + ..\..\3rdparty\lib\Windream\Interop.OBJECTLISTCONTROLLib.dll + True + + + False + False + ..\..\3rdparty\lib\Windream\Interop.WINDREAMLib.dll + True + + + ..\..\3rdparty\lib\Windream\Interop.WMOBRWSLib.dll + False + True + + + ..\..\3rdparty\lib\Windream\Interop.WMOSRCHLib.dll + False + True + + + ..\..\3rdparty\lib\Windream\Interop.WMOTOOLLib.dll + False + True + + + False + True + C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll + + + True + + + False + ..\..\3rdparty\lib\Oracle Managed Data Access\Oracle.ManagedDataAccess.dll + True + + + False + ..\..\lib\SnapPanelControl\SnapPanelControl.dll + True + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + AboutBox1.vb + + + Form + + + + + + + + + + + + + + + + + + + + + + DD_DMSDataSet.xsd + + + True + True + DD_DMSDataSetMenuDesigner.xsd + + + True + True + DD_ECMAdmin.xsd + + + frmConfiguration_Basic.vb + + + Form + + + frmConnections.vb + + + Form + + + frmConstructorDesigner.vb + + + Form + + + frmDD_EMAIL_ACCOUNT.vb + + + Form + + + frmForm_Constructor.vb + + + Form + + + frmForm_Constructor_OLD.vb + + + Form + + + frmLogin.vb + + + Form + + + frmLogRecord.vb + + + Form + + + frmNewKombiForm.vb + + + Form + + + frmQuickAccessManager.vb + + + Form + + + frmObjecttypeConfig.vb + + + Form + + + frmRecord_Changes.vb + + + Form + + + frmSQLEditor.vb + + + Form + + + frmUserKonfig_AddUsers.vb + + + Form + + + frmCustomAppointment.vb + + + Form + + + True + True + DD_DMSDataSet.xsd + + + True + True + DD_DMSDataSetCalendar.xsd + + + frmCalendar.vb + + + Form + + + frmDokumentart_Konfig.vb + + + Form + + + frmQuickEdit.vb + + + Form + + + frmForm_Overview.vb + + + Form + + + frmForm_Input.vb + + + Form + + + Form + + + frmMain.vb + Form + + + frmConfig_Basic.vb + + + Form + + + frmLevel_Designer.vb + + + Form + + + frmDokumentart_NameConvention.vb + + + Form + + + frmMenuDesigner.vb + + + Form + + + frmQuickInput.vb + + + Form + + + frmTaskmanagement.vb + + + Form + + + frmTaskOverview.vb + + + Form + + + frmTool_ControlProperties.vb + + + Form + + + frmTool_ControlDesigner.vb + + + Form + + + frmUserKonfig.vb + + + Form + + + frmWD_EntityImport.vb + + + Form + + + frmWD_Index_Dokart.vb + + + Form + + + frmWF_TaskEditor.vb + + + Form + + + frmWiedervorlage.vb + + + Form + + + frmwindreamView_Config.vb + + + Form + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.Settings + True + + + + + AboutBox1.vb + + + frmConfiguration_Basic.vb + + + frmConnections.vb + + + frmConstructorDesigner.vb + + + frmDD_EMAIL_ACCOUNT.vb + + + frmForm_Constructor.vb + + + frmForm_Constructor_OLD.vb + + + frmLogin.vb + + + frmLogRecord.vb + + + frmNewKombiForm.vb + + + frmQuickAccessManager.vb + + + frmObjecttypeConfig.vb + + + frmRecord_Changes.vb + + + frmSQLEditor.vb + + + frmUserKonfig_AddUsers.vb + + + frmCalendar.vb + + + frmCustomAppointment.vb + + + frmDokumentart_Konfig.vb + + + frmQuickEdit.vb + + + frmForm_Overview.vb + + + frmForm_Input.vb + + + frmMain.vb + Designer + + + frmConfig_Basic.vb + + + frmLevel_Designer.vb + + + frmDokumentart_NameConvention.vb + + + frmMenuDesigner.vb + + + frmQuickInput.vb + + + frmTaskmanagement.vb + + + frmTaskOverview.vb + + + frmTool_ControlProperties.vb + + + frmTool_ControlDesigner.vb + + + frmUserKonfig.vb + + + frmWD_EntityImport.vb + + + frmWD_Index_Dokart.vb + + + frmWF_TaskEditor.vb + + + frmWiedervorlage.vb + + + frmwindreamView_Config.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + DD_DMSDataSet.xsd + + + MSDataSetGenerator + Designer + DD_DMSDataSet1.Designer.vb + + + DD_DMSDataSet.xsd + + + DD_DMSDataSetCalendar.xsd + + + MSDataSetGenerator + DD_DMSDataSetCalendar.Designer.vb + Designer + + + DD_DMSDataSetCalendar.xsd + + + DD_DMSDataSetMenuDesigner.xsd + + + MSDataSetGenerator + DD_DMSDataSetMenuDesigner.Designer.vb + Designer + + + DD_DMSDataSetMenuDesigner.xsd + + + DD_ECMAdmin.xsd + + + Designer + MSDataSetGenerator + DD_ECMAdmin.Designer.vb + + + DD_ECMAdmin.xsd + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + False + Microsoft .NET Framework 4.5.1 %28x86 und x64%29 + true + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + false + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52} + 2 + 7 + 0 + primary + False + True + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.Designer.vb b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.Designer.vb new file mode 100644 index 0000000..de95fc8 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.Designer.vb @@ -0,0 +1,41642 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Ä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 DD_DMSDataSet + Inherits Global.System.Data.DataSet + + Private tableTBPMO_FORM As TBPMO_FORMDataTable + + Private tableVWPMO_CONTROL_SCREEN As VWPMO_CONTROL_SCREENDataTable + + Private tableTBPMO_FORM_VIEW As TBPMO_FORM_VIEWDataTable + + Private tableTBPMO_RECORD As TBPMO_RECORDDataTable + + Private tableVWPMO_DOKUMENTTYPES As VWPMO_DOKUMENTTYPESDataTable + + Private tableTBPMO_WD_FVIEW_DT_INDEX As TBPMO_WD_FVIEW_DT_INDEXDataTable + + Private tableTBPMO_WORKFLOW_TASK As TBPMO_WORKFLOW_TASKDataTable + + Private tableTBPMO_WORKFLOW_TASK_STATE As TBPMO_WORKFLOW_TASK_STATEDataTable + + Private tableVWPMO_GUI_ENTITY As VWPMO_GUI_ENTITYDataTable + + Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable + + Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable + + Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable + + Private tableVWPMO_FOLLOWING_TASKS As VWPMO_FOLLOWING_TASKSDataTable + + Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + Private tableTBPMO_WD_FORMVIEW_DOKTYPES As TBPMO_WD_FORMVIEW_DOKTYPESDataTable + + Private tableTBPMO_KONFIGURATION As TBPMO_KONFIGURATIONDataTable + + Private tableTBDD_USER As TBDD_USERDataTable + + Private tableTBPMO_FORM_TYPE As TBPMO_FORM_TYPEDataTable + + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable + + Private tableVWPMO_USERS_GROUPS As VWPMO_USERS_GROUPSDataTable + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + + Private tableTBWH_DOKART_MODULE As TBWH_DOKART_MODULEDataTable + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + Private tableTBPMO_WD_OBJECTTYPE As TBPMO_WD_OBJECTTYPEDataTable + + Private tableTBPMO_FILES_USER As TBPMO_FILES_USERDataTable + + Private tableVWPMO_WORKFLOW_FORM As VWPMO_WORKFLOW_FORMDataTable + + Private tableTBPMO_FOLLOW_UP_EMAIL As TBPMO_FOLLOW_UP_EMAILDataTable + + Private tableTBPMO_FOLLUPEMAIL_USER As TBPMO_FOLLUPEMAIL_USERDataTable + + Private tableTBPMO_RECORD_LOG_CONFIG As TBPMO_RECORD_LOG_CONFIGDataTable + + Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable + + Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable + + Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable + + Private tableTBPMO_CONNECTION As TBPMO_CONNECTIONDataTable + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_FORM_FV_ID As Global.System.Data.DataRelation + + Private relationFK_TTBPMO_WORKFLOW_FORM_WF_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_STATE_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 As Global.System.Data.DataRelation + + Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_AUTOM_DOCID1 As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FORM_FORM_TYPE_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As Global.System.Data.DataRelation + + 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("TBPMO_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM"))) + End If + If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN"))) + End If + If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW"))) + End If + If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD"))) + End If + If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES"))) + End If + If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE"))) + End If + If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_FORMDataTable(ds.Tables("TBPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("VWPMO_WF_USER_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_USER_ACTIVEDataTable(ds.Tables("VWPMO_WF_USER_ACTIVE"))) + End If + If (Not (ds.Tables("VWPMO_FOLLOWING_TASKS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_FOLLOWING_TASKSDataTable(ds.Tables("VWPMO_FOLLOWING_TASKS"))) + End If + If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"))) + End If + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"))) + End If + If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION"))) + End If + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE"))) + End If + If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) + End If + If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS"))) + End If + If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) + End If + If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE"))) + End If + If (Not (ds.Tables("TBPMO_FILES_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FILES_USERDataTable(ds.Tables("TBPMO_FILES_USER"))) + End If + If (Not (ds.Tables("VWPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WORKFLOW_FORMDataTable(ds.Tables("VWPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL"))) + End If + If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER"))) + End If + If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG"))) + End If + If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES"))) + End If + If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE"))) + End If + If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) + End If + If (Not (ds.Tables("TBPMO_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_CONNECTIONDataTable(ds.Tables("TBPMO_CONNECTION"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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 TBPMO_FORM() As TBPMO_FORMDataTable + Get + Return Me.tableTBPMO_FORM + End Get + End Property + + _ + Public ReadOnly Property VWPMO_CONTROL_SCREEN() As VWPMO_CONTROL_SCREENDataTable + Get + Return Me.tableVWPMO_CONTROL_SCREEN + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_VIEW() As TBPMO_FORM_VIEWDataTable + Get + Return Me.tableTBPMO_FORM_VIEW + End Get + End Property + + _ + Public ReadOnly Property TBPMO_RECORD() As TBPMO_RECORDDataTable + Get + Return Me.tableTBPMO_RECORD + End Get + End Property + + _ + Public ReadOnly Property VWPMO_DOKUMENTTYPES() As VWPMO_DOKUMENTTYPESDataTable + Get + Return Me.tableVWPMO_DOKUMENTTYPES + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WD_FVIEW_DT_INDEX() As TBPMO_WD_FVIEW_DT_INDEXDataTable + Get + Return Me.tableTBPMO_WD_FVIEW_DT_INDEX + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW_TASK() As TBPMO_WORKFLOW_TASKDataTable + Get + Return Me.tableTBPMO_WORKFLOW_TASK + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW_TASK_STATE() As TBPMO_WORKFLOW_TASK_STATEDataTable + Get + Return Me.tableTBPMO_WORKFLOW_TASK_STATE + End Get + End Property + + _ + Public ReadOnly Property VWPMO_GUI_ENTITY() As VWPMO_GUI_ENTITYDataTable + Get + Return Me.tableVWPMO_GUI_ENTITY + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW() As TBPMO_WORKFLOWDataTable + Get + Return Me.tableTBPMO_WORKFLOW + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW_FORM() As TBPMO_WORKFLOW_FORMDataTable + Get + Return Me.tableTBPMO_WORKFLOW_FORM + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WF_USER_ACTIVE() As VWPMO_WF_USER_ACTIVEDataTable + Get + Return Me.tableVWPMO_WF_USER_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property VWPMO_FOLLOWING_TASKS() As VWPMO_FOLLOWING_TASKSDataTable + Get + Return Me.tableVWPMO_FOLLOWING_TASKS + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WF_OVERVIEW_AUTHORITY() As VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Get + Return Me.tableVWPMO_WF_OVERVIEW_AUTHORITY + End Get + End Property + + _ + Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable + Get + Return Me.tableTBDD_DOKUMENTART + End Get + End Property + + _ + Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable + Get + Return Me.tableTBDD_EINGANGSARTEN + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable + Get + Return Me.tableTBDD_INDEX_AUTOM + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WD_FORMVIEW_DOKTYPES() As TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Get + Return Me.tableTBPMO_WD_FORMVIEW_DOKTYPES + End Get + End Property + + _ + Public ReadOnly Property TBPMO_KONFIGURATION() As TBPMO_KONFIGURATIONDataTable + Get + Return Me.tableTBPMO_KONFIGURATION + End Get + End Property + + _ + Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable + Get + Return Me.tableTBDD_USER + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_TYPE() As TBPMO_FORM_TYPEDataTable + Get + Return Me.tableTBPMO_FORM_TYPE + End Get + End Property + + _ + Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable + Get + Return Me.tableTBDD_USER_GROUPS + End Get + End Property + + _ + Public ReadOnly Property VWPMO_USERS_GROUPS() As VWPMO_USERS_GROUPSDataTable + Get + Return Me.tableVWPMO_USERS_GROUPS + End Get + End Property + + _ + Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable + Get + Return Me.tableTBDD_GROUPS_USER + End Get + End Property + + _ + Public ReadOnly Property TBWH_DOKART_MODULE() As TBWH_DOKART_MODULEDataTable + Get + Return Me.tableTBWH_DOKART_MODULE + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WD_OBJECTTYPE() As TBPMO_WD_OBJECTTYPEDataTable + Get + Return Me.tableTBPMO_WD_OBJECTTYPE + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FILES_USER() As TBPMO_FILES_USERDataTable + Get + Return Me.tableTBPMO_FILES_USER + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WORKFLOW_FORM() As VWPMO_WORKFLOW_FORMDataTable + Get + Return Me.tableVWPMO_WORKFLOW_FORM + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FOLLOW_UP_EMAIL() As TBPMO_FOLLOW_UP_EMAILDataTable + Get + Return Me.tableTBPMO_FOLLOW_UP_EMAIL + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FOLLUPEMAIL_USER() As TBPMO_FOLLUPEMAIL_USERDataTable + Get + Return Me.tableTBPMO_FOLLUPEMAIL_USER + End Get + End Property + + _ + Public ReadOnly Property TBPMO_RECORD_LOG_CONFIG() As TBPMO_RECORD_LOG_CONFIGDataTable + Get + Return Me.tableTBPMO_RECORD_LOG_CONFIG + End Get + End Property + + _ + Public ReadOnly Property VWPMO_RECORD_CHANGES() As VWPMO_RECORD_CHANGESDataTable + Get + Return Me.tableVWPMO_RECORD_CHANGES + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WF_ACTIVE() As VWPMO_WF_ACTIVEDataTable + Get + Return Me.tableVWPMO_WF_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable + Get + Return Me.tableTBDD_EMAIL_ACCOUNT + End Get + End Property + + _ + Public ReadOnly Property TBPMO_CONNECTION() As TBPMO_CONNECTIONDataTable + Get + Return Me.tableTBPMO_CONNECTION + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL + 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 DD_DMSDataSet = CType(MyBase.Clone,DD_DMSDataSet) + 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("TBPMO_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM"))) + End If + If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN"))) + End If + If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW"))) + End If + If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD"))) + End If + If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES"))) + End If + If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE"))) + End If + If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_FORMDataTable(ds.Tables("TBPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("VWPMO_WF_USER_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_USER_ACTIVEDataTable(ds.Tables("VWPMO_WF_USER_ACTIVE"))) + End If + If (Not (ds.Tables("VWPMO_FOLLOWING_TASKS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_FOLLOWING_TASKSDataTable(ds.Tables("VWPMO_FOLLOWING_TASKS"))) + End If + If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"))) + End If + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"))) + End If + If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION"))) + End If + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE"))) + End If + If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) + End If + If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS"))) + End If + If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) + End If + If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE"))) + End If + If (Not (ds.Tables("TBPMO_FILES_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FILES_USERDataTable(ds.Tables("TBPMO_FILES_USER"))) + End If + If (Not (ds.Tables("VWPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WORKFLOW_FORMDataTable(ds.Tables("VWPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL"))) + End If + If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER"))) + End If + If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG"))) + End If + If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES"))) + End If + If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE"))) + End If + If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) + End If + If (Not (ds.Tables("TBPMO_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_CONNECTIONDataTable(ds.Tables("TBPMO_CONNECTION"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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.tableTBPMO_FORM = CType(MyBase.Tables("TBPMO_FORM"),TBPMO_FORMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM) Is Nothing) Then + Me.tableTBPMO_FORM.InitVars + End If + End If + Me.tableVWPMO_CONTROL_SCREEN = CType(MyBase.Tables("VWPMO_CONTROL_SCREEN"),VWPMO_CONTROL_SCREENDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_CONTROL_SCREEN) Is Nothing) Then + Me.tableVWPMO_CONTROL_SCREEN.InitVars + End If + End If + Me.tableTBPMO_FORM_VIEW = CType(MyBase.Tables("TBPMO_FORM_VIEW"),TBPMO_FORM_VIEWDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_VIEW) Is Nothing) Then + Me.tableTBPMO_FORM_VIEW.InitVars + End If + End If + Me.tableTBPMO_RECORD = CType(MyBase.Tables("TBPMO_RECORD"),TBPMO_RECORDDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_RECORD) Is Nothing) Then + Me.tableTBPMO_RECORD.InitVars + End If + End If + Me.tableVWPMO_DOKUMENTTYPES = CType(MyBase.Tables("VWPMO_DOKUMENTTYPES"),VWPMO_DOKUMENTTYPESDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_DOKUMENTTYPES) Is Nothing) Then + Me.tableVWPMO_DOKUMENTTYPES.InitVars + End If + End If + Me.tableTBPMO_WD_FVIEW_DT_INDEX = CType(MyBase.Tables("TBPMO_WD_FVIEW_DT_INDEX"),TBPMO_WD_FVIEW_DT_INDEXDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WD_FVIEW_DT_INDEX) Is Nothing) Then + Me.tableTBPMO_WD_FVIEW_DT_INDEX.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW_TASK = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK"),TBPMO_WORKFLOW_TASKDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW_TASK) Is Nothing) Then + Me.tableTBPMO_WORKFLOW_TASK.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW_TASK_STATE = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK_STATE"),TBPMO_WORKFLOW_TASK_STATEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW_TASK_STATE) Is Nothing) Then + Me.tableTBPMO_WORKFLOW_TASK_STATE.InitVars + End If + End If + Me.tableVWPMO_GUI_ENTITY = CType(MyBase.Tables("VWPMO_GUI_ENTITY"),VWPMO_GUI_ENTITYDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_GUI_ENTITY) Is Nothing) Then + Me.tableVWPMO_GUI_ENTITY.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW = CType(MyBase.Tables("TBPMO_WORKFLOW"),TBPMO_WORKFLOWDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW) Is Nothing) Then + Me.tableTBPMO_WORKFLOW.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW_FORM = CType(MyBase.Tables("TBPMO_WORKFLOW_FORM"),TBPMO_WORKFLOW_FORMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW_FORM) Is Nothing) Then + Me.tableTBPMO_WORKFLOW_FORM.InitVars + End If + End If + Me.tableVWPMO_WF_USER_ACTIVE = CType(MyBase.Tables("VWPMO_WF_USER_ACTIVE"),VWPMO_WF_USER_ACTIVEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WF_USER_ACTIVE) Is Nothing) Then + Me.tableVWPMO_WF_USER_ACTIVE.InitVars + End If + End If + Me.tableVWPMO_FOLLOWING_TASKS = CType(MyBase.Tables("VWPMO_FOLLOWING_TASKS"),VWPMO_FOLLOWING_TASKSDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_FOLLOWING_TASKS) Is Nothing) Then + Me.tableVWPMO_FOLLOWING_TASKS.InitVars + End If + End If + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = CType(MyBase.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"),VWPMO_WF_OVERVIEW_AUTHORITYDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WF_OVERVIEW_AUTHORITY) Is Nothing) Then + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.InitVars + End If + End If + Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then + Me.tableTBDD_DOKUMENTART.InitVars + End If + End If + Me.tableTBDD_EINGANGSARTEN = CType(MyBase.Tables("TBDD_EINGANGSARTEN"),TBDD_EINGANGSARTENDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_EINGANGSARTEN) Is Nothing) Then + Me.tableTBDD_EINGANGSARTEN.InitVars + End If + End If + Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then + Me.tableTBDD_INDEX_AUTOM.InitVars + End If + End If + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = CType(MyBase.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"),TBPMO_WD_FORMVIEW_DOKTYPESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WD_FORMVIEW_DOKTYPES) Is Nothing) Then + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.InitVars + End If + End If + Me.tableTBPMO_KONFIGURATION = CType(MyBase.Tables("TBPMO_KONFIGURATION"),TBPMO_KONFIGURATIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_KONFIGURATION) Is Nothing) Then + Me.tableTBPMO_KONFIGURATION.InitVars + End If + End If + Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER) Is Nothing) Then + Me.tableTBDD_USER.InitVars + End If + End If + Me.tableTBPMO_FORM_TYPE = CType(MyBase.Tables("TBPMO_FORM_TYPE"),TBPMO_FORM_TYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_TYPE) Is Nothing) Then + Me.tableTBPMO_FORM_TYPE.InitVars + End If + End If + Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then + Me.tableTBDD_USER_GROUPS.InitVars + End If + End If + Me.tableVWPMO_USERS_GROUPS = CType(MyBase.Tables("VWPMO_USERS_GROUPS"),VWPMO_USERS_GROUPSDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_USERS_GROUPS) Is Nothing) Then + Me.tableVWPMO_USERS_GROUPS.InitVars + End If + End If + Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then + Me.tableTBDD_GROUPS_USER.InitVars + End If + End If + Me.tableTBWH_DOKART_MODULE = CType(MyBase.Tables("TBWH_DOKART_MODULE"),TBWH_DOKART_MODULEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_DOKART_MODULE) Is Nothing) Then + Me.tableTBWH_DOKART_MODULE.InitVars + End If + End If + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars + End If + End If + Me.tableTBPMO_WD_OBJECTTYPE = CType(MyBase.Tables("TBPMO_WD_OBJECTTYPE"),TBPMO_WD_OBJECTTYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WD_OBJECTTYPE) Is Nothing) Then + Me.tableTBPMO_WD_OBJECTTYPE.InitVars + End If + End If + Me.tableTBPMO_FILES_USER = CType(MyBase.Tables("TBPMO_FILES_USER"),TBPMO_FILES_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FILES_USER) Is Nothing) Then + Me.tableTBPMO_FILES_USER.InitVars + End If + End If + Me.tableVWPMO_WORKFLOW_FORM = CType(MyBase.Tables("VWPMO_WORKFLOW_FORM"),VWPMO_WORKFLOW_FORMDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WORKFLOW_FORM) Is Nothing) Then + Me.tableVWPMO_WORKFLOW_FORM.InitVars + End If + End If + Me.tableTBPMO_FOLLOW_UP_EMAIL = CType(MyBase.Tables("TBPMO_FOLLOW_UP_EMAIL"),TBPMO_FOLLOW_UP_EMAILDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FOLLOW_UP_EMAIL) Is Nothing) Then + Me.tableTBPMO_FOLLOW_UP_EMAIL.InitVars + End If + End If + Me.tableTBPMO_FOLLUPEMAIL_USER = CType(MyBase.Tables("TBPMO_FOLLUPEMAIL_USER"),TBPMO_FOLLUPEMAIL_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FOLLUPEMAIL_USER) Is Nothing) Then + Me.tableTBPMO_FOLLUPEMAIL_USER.InitVars + End If + End If + Me.tableTBPMO_RECORD_LOG_CONFIG = CType(MyBase.Tables("TBPMO_RECORD_LOG_CONFIG"),TBPMO_RECORD_LOG_CONFIGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_RECORD_LOG_CONFIG) Is Nothing) Then + Me.tableTBPMO_RECORD_LOG_CONFIG.InitVars + End If + End If + Me.tableVWPMO_RECORD_CHANGES = CType(MyBase.Tables("VWPMO_RECORD_CHANGES"),VWPMO_RECORD_CHANGESDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_RECORD_CHANGES) Is Nothing) Then + Me.tableVWPMO_RECORD_CHANGES.InitVars + End If + End If + Me.tableVWPMO_WF_ACTIVE = CType(MyBase.Tables("VWPMO_WF_ACTIVE"),VWPMO_WF_ACTIVEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WF_ACTIVE) Is Nothing) Then + Me.tableVWPMO_WF_ACTIVE.InitVars + End If + End If + Me.tableTBDD_EMAIL_ACCOUNT = CType(MyBase.Tables("TBDD_EMAIL_ACCOUNT"),TBDD_EMAIL_ACCOUNTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_EMAIL_ACCOUNT) Is Nothing) Then + Me.tableTBDD_EMAIL_ACCOUNT.InitVars + End If + End If + Me.tableTBPMO_CONNECTION = CType(MyBase.Tables("TBPMO_CONNECTION"),TBPMO_CONNECTIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_CONNECTION) Is Nothing) Then + Me.tableTBPMO_CONNECTION.InitVars + End If + End If + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"),TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars + End If + End If + Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = Me.Relations("FK_TBPMO_FORM_VIEW_FORM_ID") + Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID = Me.Relations("FK_TBPMO_WORKFLOW_FORM_FV_ID") + Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID = Me.Relations("FK_TTBPMO_WORKFLOW_FORM_WF_ID") + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID = Me.Relations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID") + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID = Me.Relations("FK_TBPMO_WORKFLOW_TASK_STATE_ID") + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 = Me.Relations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1") + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 = Me.Relations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1") + Me.relationFK_TBDD_DOKUMENTART_EINGID = Me.Relations("FK_TBDD_DOKUMENTART_EINGID") + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID") + Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID1") + Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = Me.Relations("FK_TBPMO_FORM_FORM_TYPE_ID") + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID") + Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID") + Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = Me.Relations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID") + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DD_DMSDataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DD_DMSDataSet.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBPMO_FORM = New TBPMO_FORMDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM) + Me.tableVWPMO_CONTROL_SCREEN = New VWPMO_CONTROL_SCREENDataTable() + MyBase.Tables.Add(Me.tableVWPMO_CONTROL_SCREEN) + Me.tableTBPMO_FORM_VIEW = New TBPMO_FORM_VIEWDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_VIEW) + Me.tableTBPMO_RECORD = New TBPMO_RECORDDataTable() + MyBase.Tables.Add(Me.tableTBPMO_RECORD) + Me.tableVWPMO_DOKUMENTTYPES = New VWPMO_DOKUMENTTYPESDataTable() + MyBase.Tables.Add(Me.tableVWPMO_DOKUMENTTYPES) + Me.tableTBPMO_WD_FVIEW_DT_INDEX = New TBPMO_WD_FVIEW_DT_INDEXDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WD_FVIEW_DT_INDEX) + Me.tableTBPMO_WORKFLOW_TASK = New TBPMO_WORKFLOW_TASKDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK) + Me.tableTBPMO_WORKFLOW_TASK_STATE = New TBPMO_WORKFLOW_TASK_STATEDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK_STATE) + Me.tableVWPMO_GUI_ENTITY = New VWPMO_GUI_ENTITYDataTable() + MyBase.Tables.Add(Me.tableVWPMO_GUI_ENTITY) + Me.tableTBPMO_WORKFLOW = New TBPMO_WORKFLOWDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW) + Me.tableTBPMO_WORKFLOW_FORM = New TBPMO_WORKFLOW_FORMDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_FORM) + Me.tableVWPMO_WF_USER_ACTIVE = New VWPMO_WF_USER_ACTIVEDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WF_USER_ACTIVE) + Me.tableVWPMO_FOLLOWING_TASKS = New VWPMO_FOLLOWING_TASKSDataTable() + MyBase.Tables.Add(Me.tableVWPMO_FOLLOWING_TASKS) + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY) + Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable() + MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART) + Me.tableTBDD_EINGANGSARTEN = New TBDD_EINGANGSARTENDataTable() + MyBase.Tables.Add(Me.tableTBDD_EINGANGSARTEN) + Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable() + MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM) + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES) + Me.tableTBPMO_KONFIGURATION = New TBPMO_KONFIGURATIONDataTable() + MyBase.Tables.Add(Me.tableTBPMO_KONFIGURATION) + Me.tableTBDD_USER = New TBDD_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER) + Me.tableTBPMO_FORM_TYPE = New TBPMO_FORM_TYPEDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_TYPE) + Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS) + Me.tableVWPMO_USERS_GROUPS = New VWPMO_USERS_GROUPSDataTable() + MyBase.Tables.Add(Me.tableVWPMO_USERS_GROUPS) + Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER) + Me.tableTBWH_DOKART_MODULE = New TBWH_DOKART_MODULEDataTable() + MyBase.Tables.Add(Me.tableTBWH_DOKART_MODULE) + Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR) + Me.tableTBPMO_WD_OBJECTTYPE = New TBPMO_WD_OBJECTTYPEDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WD_OBJECTTYPE) + Me.tableTBPMO_FILES_USER = New TBPMO_FILES_USERDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FILES_USER) + Me.tableVWPMO_WORKFLOW_FORM = New VWPMO_WORKFLOW_FORMDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WORKFLOW_FORM) + Me.tableTBPMO_FOLLOW_UP_EMAIL = New TBPMO_FOLLOW_UP_EMAILDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FOLLOW_UP_EMAIL) + Me.tableTBPMO_FOLLUPEMAIL_USER = New TBPMO_FOLLUPEMAIL_USERDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FOLLUPEMAIL_USER) + Me.tableTBPMO_RECORD_LOG_CONFIG = New TBPMO_RECORD_LOG_CONFIGDataTable() + MyBase.Tables.Add(Me.tableTBPMO_RECORD_LOG_CONFIG) + Me.tableVWPMO_RECORD_CHANGES = New VWPMO_RECORD_CHANGESDataTable() + MyBase.Tables.Add(Me.tableVWPMO_RECORD_CHANGES) + Me.tableVWPMO_WF_ACTIVE = New VWPMO_WF_ACTIVEDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WF_ACTIVE) + Me.tableTBDD_EMAIL_ACCOUNT = New TBDD_EMAIL_ACCOUNTDataTable() + MyBase.Tables.Add(Me.tableTBDD_EMAIL_ACCOUNT) + Me.tableTBPMO_CONNECTION = New TBPMO_CONNECTIONDataTable() + MyBase.Tables.Add(Me.tableTBPMO_CONNECTION) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) + Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_VIEW_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_VIEW.FORM_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_VIEW_FORM_ID) + Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_FORM_FV_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID) + Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID = New Global.System.Data.DataRelation("FK_TTBPMO_WORKFLOW_FORM_WF_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID) + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_RECORD_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID) + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_STATE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID) + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1) + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_STATE_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1) + Me.relationFK_TBDD_DOKUMENTART_EINGID = New Global.System.Data.DataRelation("FK_TBDD_DOKUMENTART_EINGID", New Global.System.Data.DataColumn() {Me.tableTBDD_EINGANGSARTEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_DOKUMENTART_EINGID) + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID) + Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID1) + Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_FORM_TYPE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.FORM_TYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_FORM_TYPE_ID) + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) + Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID) + Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) + End Sub + + _ + Private Function ShouldSerializeTBPMO_FORM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_CONTROL_SCREEN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_VIEW() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_RECORD() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_DOKUMENTTYPES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WD_FVIEW_DT_INDEX() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW_TASK() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_STATE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_GUI_ENTITY() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW_FORM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WF_USER_ACTIVE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_FOLLOWING_TASKS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WF_OVERVIEW_AUTHORITY() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WD_FORMVIEW_DOKTYPES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_KONFIGURATION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_TYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_USERS_GROUPS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_DOKART_MODULE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WD_OBJECTTYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FILES_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WORKFLOW_FORM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FOLLOW_UP_EMAIL() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FOLLUPEMAIL_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_RECORD_LOG_CONFIG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_RECORD_CHANGES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_CONNECTION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 TBPMO_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORMRowChangeEvent) + + _ + Public Delegate Sub VWPMO_CONTROL_SCREENRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_CONTROL_SCREENRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_VIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_VIEWRowChangeEvent) + + _ + Public Delegate Sub TBPMO_RECORDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORDRowChangeEvent) + + _ + Public Delegate Sub VWPMO_DOKUMENTTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_DOKUMENTTYPESRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOW_TASKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASKRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_STATERowChangeEvent) + + _ + Public Delegate Sub VWPMO_GUI_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_GUI_ENTITYRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOWRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_FORMRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WF_USER_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_USER_ACTIVERowChangeEvent) + + _ + Public Delegate Sub VWPMO_FOLLOWING_TASKSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_FOLLOWING_TASKSRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent) + + _ + Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) + + _ + Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent) + + _ + Public Delegate Sub TBPMO_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_KONFIGURATIONRowChangeEvent) + + _ + Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_TYPERowChangeEvent) + + _ + Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent) + + _ + Public Delegate Sub VWPMO_USERS_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_USERS_GROUPSRowChangeEvent) + + _ + Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) + + _ + Public Delegate Sub TBWH_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_DOKART_MODULERowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WD_OBJECTTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_OBJECTTYPERowChangeEvent) + + _ + Public Delegate Sub TBPMO_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FILES_USERRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WORKFLOW_FORMRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLOW_UP_EMAILRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLUPEMAIL_USERRowChangeEvent) + + _ + Public Delegate Sub TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_LOG_CONFIGRowChangeEvent) + + _ + Public Delegate Sub VWPMO_RECORD_CHANGESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RECORD_CHANGESRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent) + + _ + Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) + + _ + Public Delegate Sub TBPMO_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_CONNECTIONRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_FORMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnSHOW_FORM_CONSTRUCT As Global.System.Data.DataColumn + + Private columnFORM_TYPE_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property SHOW_FORM_CONSTRUCTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHOW_FORM_CONSTRUCT + End Get + End Property + + _ + Public ReadOnly Property FORM_TYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TYPE_ID + 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 TBPMO_FORMRow + Get + Return CType(Me.Rows(index),TBPMO_FORMRow) + End Get + End Property + + _ + Public Event TBPMO_FORMRowChanging As TBPMO_FORMRowChangeEventHandler + + _ + Public Event TBPMO_FORMRowChanged As TBPMO_FORMRowChangeEventHandler + + _ + Public Event TBPMO_FORMRowDeleting As TBPMO_FORMRowChangeEventHandler + + _ + Public Event TBPMO_FORMRowDeleted As TBPMO_FORMRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORMRow(ByVal row As TBPMO_FORMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORMRow(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID As TBPMO_FORM_TYPERow) As TBPMO_FORMRow + Dim rowTBPMO_FORMRow As TBPMO_FORMRow = CType(Me.NewRow,TBPMO_FORMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, Nothing} + If (Not (parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID) Is Nothing) Then + columnValuesArray(9) = parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID(0) + End If + rowTBPMO_FORMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORMRow) + Return rowTBPMO_FORMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORMDataTable = CType(MyBase.Clone,TBPMO_FORMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSHOW_FORM_CONSTRUCT = MyBase.Columns("SHOW_FORM_CONSTRUCT") + Me.columnFORM_TYPE_ID = MyBase.Columns("FORM_TYPE_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSHOW_FORM_CONSTRUCT = New Global.System.Data.DataColumn("SHOW_FORM_CONSTRUCT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHOW_FORM_CONSTRUCT) + Me.columnFORM_TYPE_ID = New Global.System.Data.DataColumn("FORM_TYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TYPE_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPARENT_ID.AllowDBNull = false + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnLEVEL.AllowDBNull = false + Me.columnLEVEL.DefaultValue = CType("0",String) + Me.columnLEVEL.MaxLength = 10 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSHOW_FORM_CONSTRUCT.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_FORMRow() As TBPMO_FORMRow + Return CType(Me.NewRow,TBPMO_FORMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORMRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowChanged(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORMRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowChanging(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowDeleted(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowDeleting(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORMRow(ByVal row As TBPMO_FORMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORMDataTable" + 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 VWPMO_CONTROL_SCREENDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_CONTROL_SCREENRow) + + Private columnCONTROL_ID As Global.System.Data.DataColumn + + Private columnCONTROL_NAME As Global.System.Data.DataColumn + + Private columnCONTROL_REQUIRED As Global.System.Data.DataColumn + + Private columnCONTROL_DEF_VALUE As Global.System.Data.DataColumn + + Private columnCONTROL_READ_ONLY As Global.System.Data.DataColumn + + Private columnCTRLTYPE_ID As Global.System.Data.DataColumn + + Private columnCTRLTYPE_NAME As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_NAME As Global.System.Data.DataColumn + + Private columnFORM_LEVEL As Global.System.Data.DataColumn + + Private columnSCREEN_ID As Global.System.Data.DataColumn + + Private columnSCREEN_NAME As Global.System.Data.DataColumn + + Private columnCTRLSCR_ID As Global.System.Data.DataColumn + + Private columnCTRLSCR_CAPTION As Global.System.Data.DataColumn + + Private columnCTRLSCR_X_LOC As Global.System.Data.DataColumn + + Private columnCTRLSCR_Y_LOC As Global.System.Data.DataColumn + + Private columnCTRLSCR_HEIGHT As Global.System.Data.DataColumn + + Private columnCTRLSCR_WIDTH As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_FAMILY As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_COLOR As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_SIZE As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_STYLE As Global.System.Data.DataColumn + + Private columnCTRLSCR_TAB_INDEX As Global.System.Data.DataColumn + + Private columnCTRLSCR_TAB_STOP As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_CONTROL_SCREEN" + 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 CONTROL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_ID + End Get + End Property + + _ + Public ReadOnly Property CONTROL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_NAME + End Get + End Property + + _ + Public ReadOnly Property CONTROL_REQUIREDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_REQUIRED + End Get + End Property + + _ + Public ReadOnly Property CONTROL_DEF_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_DEF_VALUE + End Get + End Property + + _ + Public ReadOnly Property CONTROL_READ_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_READ_ONLY + End Get + End Property + + _ + Public ReadOnly Property CTRLTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property CTRLTYPE_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLTYPE_NAME + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_NAME + End Get + End Property + + _ + Public ReadOnly Property FORM_LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_LEVEL + End Get + End Property + + _ + Public ReadOnly Property SCREEN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCREEN_ID + End Get + End Property + + _ + Public ReadOnly Property SCREEN_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCREEN_NAME + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_ID + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_CAPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_CAPTION + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_X_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_X_LOC + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_Y_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_Y_LOC + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_HEIGHT + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_WIDTH + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_FAMILYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_FAMILY + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_COLOR + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_SIZEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_SIZE + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_STYLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_STYLE + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_TAB_INDEX + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_TAB_STOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_TAB_STOP + 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 VWPMO_CONTROL_SCREENRow + Get + Return CType(Me.Rows(index),VWPMO_CONTROL_SCREENRow) + End Get + End Property + + _ + Public Event VWPMO_CONTROL_SCREENRowChanging As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Event VWPMO_CONTROL_SCREENRowChanged As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Event VWPMO_CONTROL_SCREENRowDeleting As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Event VWPMO_CONTROL_SCREENRowDeleted As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_CONTROL_SCREENRow(ByVal row As VWPMO_CONTROL_SCREENRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_CONTROL_SCREENRow( _ + ByVal CONTROL_ID As Integer, _ + ByVal CONTROL_NAME As String, _ + ByVal CONTROL_REQUIRED As Boolean, _ + ByVal CONTROL_DEF_VALUE As String, _ + ByVal CONTROL_READ_ONLY As Boolean, _ + ByVal CTRLTYPE_ID As Integer, _ + ByVal CTRLTYPE_NAME As String, _ + ByVal FORM_ID As Integer, _ + ByVal FORM_NAME As String, _ + ByVal FORM_LEVEL As String, _ + ByVal SCREEN_ID As Integer, _ + ByVal SCREEN_NAME As String, _ + ByVal CTRLSCR_ID As Integer, _ + ByVal CTRLSCR_CAPTION As String, _ + ByVal CTRLSCR_X_LOC As Double, _ + ByVal CTRLSCR_Y_LOC As Double, _ + ByVal CTRLSCR_HEIGHT As Short, _ + ByVal CTRLSCR_WIDTH As Short, _ + ByVal CTRLSCR_FONT_FAMILY As String, _ + ByVal CTRLSCR_FONT_COLOR As Long, _ + ByVal CTRLSCR_FONT_SIZE As Short, _ + ByVal CTRLSCR_FONT_STYLE As Short, _ + ByVal CTRLSCR_TAB_INDEX As Short, _ + ByVal CTRLSCR_TAB_STOP As Boolean) As VWPMO_CONTROL_SCREENRow + Dim rowVWPMO_CONTROL_SCREENRow As VWPMO_CONTROL_SCREENRow = CType(Me.NewRow,VWPMO_CONTROL_SCREENRow) + Dim columnValuesArray() As Object = New Object() {CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONTROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREEN_ID, SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLSCR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTRLSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, CTRLSCR_FONT_STYLE, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP} + rowVWPMO_CONTROL_SCREENRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_CONTROL_SCREENRow) + Return rowVWPMO_CONTROL_SCREENRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_CONTROL_SCREENDataTable = CType(MyBase.Clone,VWPMO_CONTROL_SCREENDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_CONTROL_SCREENDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") + Me.columnCONTROL_NAME = MyBase.Columns("CONTROL_NAME") + Me.columnCONTROL_REQUIRED = MyBase.Columns("CONTROL_REQUIRED") + Me.columnCONTROL_DEF_VALUE = MyBase.Columns("CONTROL_DEF_VALUE") + Me.columnCONTROL_READ_ONLY = MyBase.Columns("CONTROL_READ_ONLY") + Me.columnCTRLTYPE_ID = MyBase.Columns("CTRLTYPE_ID") + Me.columnCTRLTYPE_NAME = MyBase.Columns("CTRLTYPE_NAME") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_NAME = MyBase.Columns("FORM_NAME") + Me.columnFORM_LEVEL = MyBase.Columns("FORM_LEVEL") + Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") + Me.columnSCREEN_NAME = MyBase.Columns("SCREEN_NAME") + Me.columnCTRLSCR_ID = MyBase.Columns("CTRLSCR_ID") + Me.columnCTRLSCR_CAPTION = MyBase.Columns("CTRLSCR_CAPTION") + Me.columnCTRLSCR_X_LOC = MyBase.Columns("CTRLSCR_X_LOC") + Me.columnCTRLSCR_Y_LOC = MyBase.Columns("CTRLSCR_Y_LOC") + Me.columnCTRLSCR_HEIGHT = MyBase.Columns("CTRLSCR_HEIGHT") + Me.columnCTRLSCR_WIDTH = MyBase.Columns("CTRLSCR_WIDTH") + Me.columnCTRLSCR_FONT_FAMILY = MyBase.Columns("CTRLSCR_FONT_FAMILY") + Me.columnCTRLSCR_FONT_COLOR = MyBase.Columns("CTRLSCR_FONT_COLOR") + Me.columnCTRLSCR_FONT_SIZE = MyBase.Columns("CTRLSCR_FONT_SIZE") + Me.columnCTRLSCR_FONT_STYLE = MyBase.Columns("CTRLSCR_FONT_STYLE") + Me.columnCTRLSCR_TAB_INDEX = MyBase.Columns("CTRLSCR_TAB_INDEX") + Me.columnCTRLSCR_TAB_STOP = MyBase.Columns("CTRLSCR_TAB_STOP") + End Sub + + _ + Private Sub InitClass() + Me.columnCONTROL_ID = New Global.System.Data.DataColumn("CONTROL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_ID) + Me.columnCONTROL_NAME = New Global.System.Data.DataColumn("CONTROL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_NAME) + Me.columnCONTROL_REQUIRED = New Global.System.Data.DataColumn("CONTROL_REQUIRED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_REQUIRED) + Me.columnCONTROL_DEF_VALUE = New Global.System.Data.DataColumn("CONTROL_DEF_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_DEF_VALUE) + Me.columnCONTROL_READ_ONLY = New Global.System.Data.DataColumn("CONTROL_READ_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_READ_ONLY) + Me.columnCTRLTYPE_ID = New Global.System.Data.DataColumn("CTRLTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLTYPE_ID) + Me.columnCTRLTYPE_NAME = New Global.System.Data.DataColumn("CTRLTYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLTYPE_NAME) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_NAME = New Global.System.Data.DataColumn("FORM_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_NAME) + Me.columnFORM_LEVEL = New Global.System.Data.DataColumn("FORM_LEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_LEVEL) + Me.columnSCREEN_ID = New Global.System.Data.DataColumn("SCREEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCREEN_ID) + Me.columnSCREEN_NAME = New Global.System.Data.DataColumn("SCREEN_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCREEN_NAME) + Me.columnCTRLSCR_ID = New Global.System.Data.DataColumn("CTRLSCR_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_ID) + Me.columnCTRLSCR_CAPTION = New Global.System.Data.DataColumn("CTRLSCR_CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_CAPTION) + Me.columnCTRLSCR_X_LOC = New Global.System.Data.DataColumn("CTRLSCR_X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_X_LOC) + Me.columnCTRLSCR_Y_LOC = New Global.System.Data.DataColumn("CTRLSCR_Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_Y_LOC) + Me.columnCTRLSCR_HEIGHT = New Global.System.Data.DataColumn("CTRLSCR_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_HEIGHT) + Me.columnCTRLSCR_WIDTH = New Global.System.Data.DataColumn("CTRLSCR_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_WIDTH) + Me.columnCTRLSCR_FONT_FAMILY = New Global.System.Data.DataColumn("CTRLSCR_FONT_FAMILY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_FAMILY) + Me.columnCTRLSCR_FONT_COLOR = New Global.System.Data.DataColumn("CTRLSCR_FONT_COLOR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_COLOR) + Me.columnCTRLSCR_FONT_SIZE = New Global.System.Data.DataColumn("CTRLSCR_FONT_SIZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_SIZE) + Me.columnCTRLSCR_FONT_STYLE = New Global.System.Data.DataColumn("CTRLSCR_FONT_STYLE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_STYLE) + Me.columnCTRLSCR_TAB_INDEX = New Global.System.Data.DataColumn("CTRLSCR_TAB_INDEX", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_TAB_INDEX) + Me.columnCTRLSCR_TAB_STOP = New Global.System.Data.DataColumn("CTRLSCR_TAB_STOP", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_TAB_STOP) + Me.columnCONTROL_ID.AllowDBNull = false + Me.columnCONTROL_NAME.AllowDBNull = false + Me.columnCONTROL_NAME.MaxLength = 100 + Me.columnCONTROL_REQUIRED.AllowDBNull = false + Me.columnCONTROL_DEF_VALUE.MaxLength = 100 + Me.columnCONTROL_READ_ONLY.AllowDBNull = false + Me.columnCTRLTYPE_ID.AllowDBNull = false + Me.columnCTRLTYPE_NAME.AllowDBNull = false + Me.columnCTRLTYPE_NAME.MaxLength = 20 + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_NAME.AllowDBNull = false + Me.columnFORM_NAME.MaxLength = 100 + Me.columnFORM_LEVEL.AllowDBNull = false + Me.columnFORM_LEVEL.MaxLength = 10 + Me.columnSCREEN_ID.AllowDBNull = false + Me.columnSCREEN_NAME.AllowDBNull = false + Me.columnSCREEN_NAME.MaxLength = 100 + Me.columnCTRLSCR_ID.AllowDBNull = false + Me.columnCTRLSCR_CAPTION.AllowDBNull = false + Me.columnCTRLSCR_CAPTION.MaxLength = 100 + Me.columnCTRLSCR_X_LOC.AllowDBNull = false + Me.columnCTRLSCR_Y_LOC.AllowDBNull = false + Me.columnCTRLSCR_HEIGHT.AllowDBNull = false + Me.columnCTRLSCR_WIDTH.AllowDBNull = false + Me.columnCTRLSCR_FONT_FAMILY.AllowDBNull = false + Me.columnCTRLSCR_FONT_FAMILY.MaxLength = 50 + Me.columnCTRLSCR_FONT_COLOR.AllowDBNull = false + Me.columnCTRLSCR_FONT_SIZE.AllowDBNull = false + Me.columnCTRLSCR_FONT_STYLE.AllowDBNull = false + Me.columnCTRLSCR_TAB_INDEX.AllowDBNull = false + Me.columnCTRLSCR_TAB_STOP.AllowDBNull = false + End Sub + + _ + Public Function NewVWPMO_CONTROL_SCREENRow() As VWPMO_CONTROL_SCREENRow + Return CType(Me.NewRow,VWPMO_CONTROL_SCREENRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_CONTROL_SCREENRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_CONTROL_SCREENRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowChanged(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowChanging(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowDeleted(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowDeleting(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_CONTROL_SCREENRow(ByVal row As VWPMO_CONTROL_SCREENRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_CONTROL_SCREENDataTable" + 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 TBPMO_FORM_VIEWDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_VIEWRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSCREEN_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnWIDTH As Global.System.Data.DataColumn + + Private columnHEIGHT As Global.System.Data.DataColumn + + Private columnDIALOG As Global.System.Data.DataColumn + + Private columnMAXIMIZABLE As Global.System.Data.DataColumn + + Private columnMINIMIZABLE As Global.System.Data.DataColumn + + Private columnMAX_WIDTH As Global.System.Data.DataColumn + + Private columnMIN_WIDTH As Global.System.Data.DataColumn + + Private columnMAX_HEIGHT As Global.System.Data.DataColumn + + Private columnMIN_HEIGHT As Global.System.Data.DataColumn + + Private columnX_LOC As Global.System.Data.DataColumn + + Private columnY_LOC As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnIS_MDI_CHILD As Global.System.Data.DataColumn + + Private columnDOCUMENT_VIEW As Global.System.Data.DataColumn + + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn + + Private columnALLOW_DROP As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_VIEW" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property SCREEN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCREEN_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWIDTH + End Get + End Property + + _ + Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHEIGHT + End Get + End Property + + _ + Public ReadOnly Property DIALOGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDIALOG + End Get + End Property + + _ + Public ReadOnly Property MAXIMIZABLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMAXIMIZABLE + End Get + End Property + + _ + Public ReadOnly Property MINIMIZABLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMINIMIZABLE + End Get + End Property + + _ + Public ReadOnly Property MAX_WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMAX_WIDTH + End Get + End Property + + _ + Public ReadOnly Property MIN_WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMIN_WIDTH + End Get + End Property + + _ + Public ReadOnly Property MAX_HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMAX_HEIGHT + End Get + End Property + + _ + Public ReadOnly Property MIN_HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMIN_HEIGHT + End Get + End Property + + _ + Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnX_LOC + End Get + End Property + + _ + Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnY_LOC + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property IS_MDI_CHILDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIS_MDI_CHILD + End Get + End Property + + _ + Public ReadOnly Property DOCUMENT_VIEWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCUMENT_VIEW + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_SEARCH + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN1 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN2 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN3 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN4 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN5 + End Get + End Property + + _ + Public ReadOnly Property ALLOW_DROPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnALLOW_DROP + 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 TBPMO_FORM_VIEWRow + Get + Return CType(Me.Rows(index),TBPMO_FORM_VIEWRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_VIEWRowChanging As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Event TBPMO_FORM_VIEWRowChanged As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Event TBPMO_FORM_VIEWRowDeleting As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Event TBPMO_FORM_VIEWRowDeleted As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_VIEWRow(ByVal row As TBPMO_FORM_VIEWRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_VIEWRow( _ + ByVal SCREEN_ID As Integer, _ + ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID As TBPMO_FORMRow, _ + ByVal FORM_TITLE As String, _ + ByVal DESCRIPTION As String, _ + ByVal WIDTH As Short, _ + ByVal HEIGHT As Short, _ + ByVal DIALOG As Boolean, _ + ByVal MAXIMIZABLE As Boolean, _ + ByVal MINIMIZABLE As Boolean, _ + ByVal MAX_WIDTH As Short, _ + ByVal MIN_WIDTH As Short, _ + ByVal MAX_HEIGHT As Short, _ + ByVal MIN_HEIGHT As Short, _ + ByVal X_LOC As Double, _ + ByVal Y_LOC As Double, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal IS_MDI_CHILD As Boolean, _ + ByVal DOCUMENT_VIEW As Boolean, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal ALLOW_DROP As Boolean) As TBPMO_FORM_VIEWRow + Dim rowTBPMO_FORM_VIEWRow As TBPMO_FORM_VIEWRow = CType(Me.NewRow,TBPMO_FORM_VIEWRow) + Dim columnValuesArray() As Object = New Object() {Nothing, SCREEN_ID, Nothing, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IS_MDI_CHILD, DOCUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, ALLOW_DROP} + If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID(0) + End If + rowTBPMO_FORM_VIEWRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_VIEWRow) + Return rowTBPMO_FORM_VIEWRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_VIEWRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_VIEWRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_VIEWDataTable = CType(MyBase.Clone,TBPMO_FORM_VIEWDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_VIEWDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnWIDTH = MyBase.Columns("WIDTH") + Me.columnHEIGHT = MyBase.Columns("HEIGHT") + Me.columnDIALOG = MyBase.Columns("DIALOG") + Me.columnMAXIMIZABLE = MyBase.Columns("MAXIMIZABLE") + Me.columnMINIMIZABLE = MyBase.Columns("MINIMIZABLE") + Me.columnMAX_WIDTH = MyBase.Columns("MAX_WIDTH") + Me.columnMIN_WIDTH = MyBase.Columns("MIN_WIDTH") + Me.columnMAX_HEIGHT = MyBase.Columns("MAX_HEIGHT") + Me.columnMIN_HEIGHT = MyBase.Columns("MIN_HEIGHT") + Me.columnX_LOC = MyBase.Columns("X_LOC") + Me.columnY_LOC = MyBase.Columns("Y_LOC") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnIS_MDI_CHILD = MyBase.Columns("IS_MDI_CHILD") + Me.columnDOCUMENT_VIEW = MyBase.Columns("DOCUMENT_VIEW") + Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") + Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") + Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") + Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") + Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") + Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") + Me.columnALLOW_DROP = MyBase.Columns("ALLOW_DROP") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSCREEN_ID = New Global.System.Data.DataColumn("SCREEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCREEN_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWIDTH) + Me.columnHEIGHT = New Global.System.Data.DataColumn("HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHEIGHT) + Me.columnDIALOG = New Global.System.Data.DataColumn("DIALOG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDIALOG) + Me.columnMAXIMIZABLE = New Global.System.Data.DataColumn("MAXIMIZABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMAXIMIZABLE) + Me.columnMINIMIZABLE = New Global.System.Data.DataColumn("MINIMIZABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMINIMIZABLE) + Me.columnMAX_WIDTH = New Global.System.Data.DataColumn("MAX_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMAX_WIDTH) + Me.columnMIN_WIDTH = New Global.System.Data.DataColumn("MIN_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMIN_WIDTH) + Me.columnMAX_HEIGHT = New Global.System.Data.DataColumn("MAX_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMAX_HEIGHT) + Me.columnMIN_HEIGHT = New Global.System.Data.DataColumn("MIN_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMIN_HEIGHT) + Me.columnX_LOC = New Global.System.Data.DataColumn("X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnX_LOC) + Me.columnY_LOC = New Global.System.Data.DataColumn("Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnY_LOC) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnIS_MDI_CHILD = New Global.System.Data.DataColumn("IS_MDI_CHILD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIS_MDI_CHILD) + Me.columnDOCUMENT_VIEW = New Global.System.Data.DataColumn("DOCUMENT_VIEW", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCUMENT_VIEW) + Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) + Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) + Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) + Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) + Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) + Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) + Me.columnALLOW_DROP = New Global.System.Data.DataColumn("ALLOW_DROP", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnALLOW_DROP) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSCREEN_ID.AllowDBNull = false + Me.columnSCREEN_ID.DefaultValue = CType(1,Integer) + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_TITLE.AllowDBNull = false + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnDESCRIPTION.AllowDBNull = false + Me.columnDESCRIPTION.MaxLength = 300 + Me.columnDIALOG.AllowDBNull = false + Me.columnMAXIMIZABLE.AllowDBNull = false + Me.columnMINIMIZABLE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIS_MDI_CHILD.AllowDBNull = false + Me.columnDOCUMENT_VIEW.AllowDBNull = false + Me.columnWINDREAM_SEARCH.MaxLength = 300 + Me.columnSEARCH_PATTERN1.MaxLength = 50 + Me.columnSEARCH_PATTERN2.MaxLength = 50 + Me.columnSEARCH_PATTERN3.MaxLength = 50 + Me.columnSEARCH_PATTERN4.MaxLength = 50 + Me.columnSEARCH_PATTERN5.MaxLength = 50 + Me.columnALLOW_DROP.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_FORM_VIEWRow() As TBPMO_FORM_VIEWRow + Return CType(Me.NewRow,TBPMO_FORM_VIEWRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_VIEWRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_VIEWRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_VIEWRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowChanged(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_VIEWRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowChanging(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_VIEWRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowDeleted(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_VIEWRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowDeleting(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_VIEWRow(ByVal row As TBPMO_FORM_VIEWRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_VIEWDataTable" + 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 TBPMO_RECORDDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORDRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_RECORD" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_RECORDRow + Get + Return CType(Me.Rows(index),TBPMO_RECORDRow) + End Get + End Property + + _ + Public Event TBPMO_RECORDRowChanging As TBPMO_RECORDRowChangeEventHandler + + _ + Public Event TBPMO_RECORDRowChanged As TBPMO_RECORDRowChangeEventHandler + + _ + Public Event TBPMO_RECORDRowDeleting As TBPMO_RECORDRowChangeEventHandler + + _ + Public Event TBPMO_RECORDRowDeleted As TBPMO_RECORDRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_RECORDRow(ByVal row As TBPMO_RECORDRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_RECORDRow(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_RECORDRow + Dim rowTBPMO_RECORDRow As TBPMO_RECORDRow = CType(Me.NewRow,TBPMO_RECORDRow) + Dim columnValuesArray() As Object = New Object() {Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_RECORDRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RECORDRow) + Return rowTBPMO_RECORDRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORDRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORDRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_RECORDDataTable = CType(MyBase.Clone,TBPMO_RECORDDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_RECORDDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_RECORDRow() As TBPMO_RECORDRow + Return CType(Me.NewRow,TBPMO_RECORDRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_RECORDRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_RECORDRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_RECORDRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowChanged(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_RECORDRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowChanging(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_RECORDRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowDeleted(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_RECORDRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowDeleting(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_RECORDRow(ByVal row As TBPMO_RECORDRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_RECORDDataTable" + 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 VWPMO_DOKUMENTTYPESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_DOKUMENTTYPESRow) + + Private columnFORMVIEW_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnDOKUMENTTYPE_ID As Global.System.Data.DataColumn + + Private columnDOKUMENTTYPE As Global.System.Data.DataColumn + + Private columnPATH As Global.System.Data.DataColumn + + Private columnSHORTNAME As Global.System.Data.DataColumn + + Private columnOBJECT_TYPE As Global.System.Data.DataColumn + + Private columnFW_DOCTYPE_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_DOKUMENTTYPES" + 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 FORMVIEW_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORMVIEW_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property DOKUMENTTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOKUMENTTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property DOKUMENTTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOKUMENTTYPE + End Get + End Property + + _ + Public ReadOnly Property PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPATH + End Get + End Property + + _ + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORTNAME + End Get + End Property + + _ + Public ReadOnly Property OBJECT_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJECT_TYPE + End Get + End Property + + _ + Public ReadOnly Property FW_DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFW_DOCTYPE_ID + 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 VWPMO_DOKUMENTTYPESRow + Get + Return CType(Me.Rows(index),VWPMO_DOKUMENTTYPESRow) + End Get + End Property + + _ + Public Event VWPMO_DOKUMENTTYPESRowChanging As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Event VWPMO_DOKUMENTTYPESRowChanged As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Event VWPMO_DOKUMENTTYPESRowDeleting As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Event VWPMO_DOKUMENTTYPESRowDeleted As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_DOKUMENTTYPESRow(ByVal row As VWPMO_DOKUMENTTYPESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_DOKUMENTTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_ID As Integer, ByVal FORM_TITLE As String, ByVal DOKUMENTTYPE_ID As Integer, ByVal DOKUMENTTYPE As String, ByVal PATH As String, ByVal SHORTNAME As String, ByVal OBJECT_TYPE As String, ByVal FW_DOCTYPE_ID As Integer) As VWPMO_DOKUMENTTYPESRow + Dim rowVWPMO_DOKUMENTTYPESRow As VWPMO_DOKUMENTTYPESRow = CType(Me.NewRow,VWPMO_DOKUMENTTYPESRow) + Dim columnValuesArray() As Object = New Object() {FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PATH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID} + rowVWPMO_DOKUMENTTYPESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_DOKUMENTTYPESRow) + Return rowVWPMO_DOKUMENTTYPESRow + End Function + + _ + Public Function FindByDOKUMENTTYPE_ID(ByVal DOKUMENTTYPE_ID As Integer) As VWPMO_DOKUMENTTYPESRow + Return CType(Me.Rows.Find(New Object() {DOKUMENTTYPE_ID}),VWPMO_DOKUMENTTYPESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_DOKUMENTTYPESDataTable = CType(MyBase.Clone,VWPMO_DOKUMENTTYPESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_DOKUMENTTYPESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnDOKUMENTTYPE_ID = MyBase.Columns("DOKUMENTTYPE_ID") + Me.columnDOKUMENTTYPE = MyBase.Columns("DOKUMENTTYPE") + Me.columnPATH = MyBase.Columns("PATH") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") + Me.columnFW_DOCTYPE_ID = MyBase.Columns("FW_DOCTYPE_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnFORMVIEW_ID = New Global.System.Data.DataColumn("FORMVIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORMVIEW_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnDOKUMENTTYPE_ID = New Global.System.Data.DataColumn("DOKUMENTTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOKUMENTTYPE_ID) + Me.columnDOKUMENTTYPE = New Global.System.Data.DataColumn("DOKUMENTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOKUMENTTYPE) + Me.columnPATH = New Global.System.Data.DataColumn("PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPATH) + Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORTNAME) + Me.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECT_TYPE) + Me.columnFW_DOCTYPE_ID = New Global.System.Data.DataColumn("FW_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFW_DOCTYPE_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDOKUMENTTYPE_ID}, true)) + Me.columnFORMVIEW_ID.AllowDBNull = false + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_TITLE.AllowDBNull = false + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnDOKUMENTTYPE_ID.AllowDBNull = false + Me.columnDOKUMENTTYPE_ID.Unique = true + Me.columnDOKUMENTTYPE.AllowDBNull = false + Me.columnDOKUMENTTYPE.MaxLength = 50 + Me.columnPATH.AllowDBNull = false + Me.columnPATH.MaxLength = 250 + Me.columnSHORTNAME.AllowDBNull = false + Me.columnSHORTNAME.MaxLength = 50 + Me.columnOBJECT_TYPE.AllowDBNull = false + Me.columnOBJECT_TYPE.MaxLength = 100 + Me.columnFW_DOCTYPE_ID.AllowDBNull = false + End Sub + + _ + Public Function NewVWPMO_DOKUMENTTYPESRow() As VWPMO_DOKUMENTTYPESRow + Return CType(Me.NewRow,VWPMO_DOKUMENTTYPESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_DOKUMENTTYPESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_DOKUMENTTYPESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowChanged(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowChanging(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowDeleted(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowDeleting(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_DOKUMENTTYPESRow(ByVal row As VWPMO_DOKUMENTTYPESRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_DOKUMENTTYPESDataTable" + 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 TBPMO_WD_FVIEW_DT_INDEXDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FVIEW_DT_INDEXRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFW_DOCTYPE_ID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnINDEX_VALUE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WD_FVIEW_DT_INDEX" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FW_DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFW_DOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property INDEX_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEX_VALUE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WD_FVIEW_DT_INDEXRow + Get + Return CType(Me.Rows(index),TBPMO_WD_FVIEW_DT_INDEXRow) + End Get + End Property + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowChanging As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowChanged As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowDeleting As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowDeleted As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WD_FVIEW_DT_INDEXRow(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WD_FVIEW_DT_INDEXRow(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WD_FVIEW_DT_INDEXRow + Dim rowTBPMO_WD_FVIEW_DT_INDEXRow As TBPMO_WD_FVIEW_DT_INDEXRow = CType(Me.NewRow,TBPMO_WD_FVIEW_DT_INDEXRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WD_FVIEW_DT_INDEXRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_FVIEW_DT_INDEXRow) + Return rowTBPMO_WD_FVIEW_DT_INDEXRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FVIEW_DT_INDEXRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FVIEW_DT_INDEXRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WD_FVIEW_DT_INDEXDataTable = CType(MyBase.Clone,TBPMO_WD_FVIEW_DT_INDEXDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WD_FVIEW_DT_INDEXDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFW_DOCTYPE_ID = MyBase.Columns("FW_DOCTYPE_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnINDEX_VALUE = MyBase.Columns("INDEX_VALUE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFW_DOCTYPE_ID = New Global.System.Data.DataColumn("FW_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFW_DOCTYPE_ID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnINDEX_VALUE = New Global.System.Data.DataColumn("INDEX_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEX_VALUE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFW_DOCTYPE_ID.AllowDBNull = false + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 100 + Me.columnINDEX_VALUE.AllowDBNull = false + Me.columnINDEX_VALUE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WD_FVIEW_DT_INDEXRow() As TBPMO_WD_FVIEW_DT_INDEXRow + Return CType(Me.NewRow,TBPMO_WD_FVIEW_DT_INDEXRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WD_FVIEW_DT_INDEXRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WD_FVIEW_DT_INDEXRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowChanged(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowChanging(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowDeleted(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowDeleting(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WD_FVIEW_DT_INDEXRow(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WD_FVIEW_DT_INDEXDataTable" + 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 TBPMO_WORKFLOW_TASKDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_TASKRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW_TASK" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + 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 TBPMO_WORKFLOW_TASKRow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOW_TASKRow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOW_TASKRowChanging As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASKRowChanged As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASKRowDeleting As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASKRowDeleted As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOW_TASKRow(ByVal row As TBPMO_WORKFLOW_TASKRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOW_TASKRow(ByVal RECORD_ID As Integer, ByVal WF_ID As Integer, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal STATE_ID As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TITLE As String) As TBPMO_WORKFLOW_TASKRow + Dim rowTBPMO_WORKFLOW_TASKRow As TBPMO_WORKFLOW_TASKRow = CType(Me.NewRow,TBPMO_WORKFLOW_TASKRow) + Dim columnValuesArray() As Object = New Object() {Nothing, RECORD_ID, WF_ID, COMMENT, DUE_DATE, STATE_ID, ACTIVE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TITLE} + rowTBPMO_WORKFLOW_TASKRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOW_TASKRow) + Return rowTBPMO_WORKFLOW_TASKRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_TASKRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_TASKRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOW_TASKDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_TASKDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOW_TASKDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTITLE = MyBase.Columns("TITLE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnRECORD_ID.AllowDBNull = false + Me.columnWF_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 500 + Me.columnSTATE_ID.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + End Sub + + _ + Public Function NewTBPMO_WORKFLOW_TASKRow() As TBPMO_WORKFLOW_TASKRow + Return CType(Me.NewRow,TBPMO_WORKFLOW_TASKRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOW_TASKRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOW_TASKRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowChanged(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowChanging(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowDeleted(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowDeleting(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOW_TASKRow(ByVal row As TBPMO_WORKFLOW_TASKRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOW_TASKDataTable" + 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 TBPMO_WORKFLOW_TASK_STATEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_TASK_STATERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSTATE_DESC As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW_TASK_STATE" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_DESC + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + 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 TBPMO_WORKFLOW_TASK_STATERow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOW_TASK_STATERow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowChanging As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowChanged As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowDeleting As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowDeleted As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOW_TASK_STATERow(ByVal row As TBPMO_WORKFLOW_TASK_STATERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOW_TASK_STATERow(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COLOR As String) As TBPMO_WORKFLOW_TASK_STATERow + Dim rowTBPMO_WORKFLOW_TASK_STATERow As TBPMO_WORKFLOW_TASK_STATERow = CType(Me.NewRow,TBPMO_WORKFLOW_TASK_STATERow) + Dim columnValuesArray() As Object = New Object() {Nothing, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR} + rowTBPMO_WORKFLOW_TASK_STATERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOW_TASK_STATERow) + Return rowTBPMO_WORKFLOW_TASK_STATERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_TASK_STATERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_TASK_STATERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOW_TASK_STATEDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_TASK_STATEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOW_TASK_STATEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLOR = MyBase.Columns("COLOR") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_DESC) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSTATE_DESC.AllowDBNull = false + Me.columnSTATE_DESC.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLOR.MaxLength = 20 + End Sub + + _ + Public Function NewTBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow + Return CType(Me.NewRow,TBPMO_WORKFLOW_TASK_STATERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOW_TASK_STATERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOW_TASK_STATERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowChanged(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowChanging(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowDeleted(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowDeleting(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOW_TASK_STATERow(ByVal row As TBPMO_WORKFLOW_TASK_STATERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOW_TASK_STATEDataTable" + 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 VWPMO_GUI_ENTITYDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_GUI_ENTITYRow) + + Private columnID As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_GUI_ENTITY" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + 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 VWPMO_GUI_ENTITYRow + Get + Return CType(Me.Rows(index),VWPMO_GUI_ENTITYRow) + End Get + End Property + + _ + Public Event VWPMO_GUI_ENTITYRowChanging As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Event VWPMO_GUI_ENTITYRowChanged As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Event VWPMO_GUI_ENTITYRowDeleting As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Event VWPMO_GUI_ENTITYRowDeleted As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_GUI_ENTITYRow(ByVal row As VWPMO_GUI_ENTITYRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_GUI_ENTITYRow(ByVal Name As String, ByVal Title As String) As VWPMO_GUI_ENTITYRow + Dim rowVWPMO_GUI_ENTITYRow As VWPMO_GUI_ENTITYRow = CType(Me.NewRow,VWPMO_GUI_ENTITYRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Name, Title} + rowVWPMO_GUI_ENTITYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_GUI_ENTITYRow) + Return rowVWPMO_GUI_ENTITYRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_GUI_ENTITYDataTable = CType(MyBase.Clone,VWPMO_GUI_ENTITYDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_GUI_ENTITYDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnName = MyBase.Columns("Name") + Me.columnTitle = MyBase.Columns("Title") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnID.AutoIncrement = true + Me.columnID.AutoIncrementSeed = -1 + Me.columnID.AutoIncrementStep = -1 + Me.columnID.AllowDBNull = false + Me.columnID.ReadOnly = true + Me.columnName.AllowDBNull = false + Me.columnName.MaxLength = 100 + Me.columnTitle.AllowDBNull = false + Me.columnTitle.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_GUI_ENTITYRow() As VWPMO_GUI_ENTITYRow + Return CType(Me.NewRow,VWPMO_GUI_ENTITYRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_GUI_ENTITYRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_GUI_ENTITYRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_GUI_ENTITYRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowChanged(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_GUI_ENTITYRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowChanging(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_GUI_ENTITYRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowDeleted(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_GUI_ENTITYRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowDeleting(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_GUI_ENTITYRow(ByVal row As VWPMO_GUI_ENTITYRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_GUI_ENTITYDataTable" + 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 TBPMO_WORKFLOWDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOWRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WORKFLOWRow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOWRow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOWRowChanging As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOWRowChanged As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOWRowDeleting As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOWRowDeleted As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOWRow(ByVal row As TBPMO_WORKFLOWRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOWRow(ByVal TITLE As String, ByVal DESCRIPTION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOWRow + Dim rowTBPMO_WORKFLOWRow As TBPMO_WORKFLOWRow = CType(Me.NewRow,TBPMO_WORKFLOWRow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WORKFLOWRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOWRow) + Return rowTBPMO_WORKFLOWRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOWRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOWRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOWDataTable = CType(MyBase.Clone,TBPMO_WORKFLOWDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOWDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnDESCRIPTION.MaxLength = 250 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WORKFLOWRow() As TBPMO_WORKFLOWRow + Return CType(Me.NewRow,TBPMO_WORKFLOWRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOWRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOWRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOWRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowChanged(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOWRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowChanging(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOWRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowDeleted(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOWRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowDeleting(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOWRow(ByVal row As TBPMO_WORKFLOWRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOWDataTable" + 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 TBPMO_WORKFLOW_FORMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_FORMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW_FORM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WORKFLOW_FORMRow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOW_FORMRow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOW_FORMRowChanging As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_FORMRowChanged As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_FORMRowDeleting As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_FORMRowDeleted As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOW_FORMRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID As TBPMO_FORMRow, ByVal parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID As TBPMO_WORKFLOWRow, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOW_FORMRow + Dim rowTBPMO_WORKFLOW_FORMRow As TBPMO_WORKFLOW_FORMRow = CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID(0) + End If + If (Not (parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID(0) + End If + rowTBPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOW_FORMRow) + Return rowTBPMO_WORKFLOW_FORMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_FORMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_FORMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_FORMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOW_FORMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORM_ID.AllowDBNull = false + Me.columnWF_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WORKFLOW_FORMRow() As TBPMO_WORKFLOW_FORMRow + Return CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOW_FORMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowChanged(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowChanging(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowDeleted(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowDeleting(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOW_FORMDataTable" + 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 VWPMO_WF_USER_ACTIVEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_USER_ACTIVERow) + + Private columnWF_TASK_ID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTASK_DATE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WF_USER_ACTIVE" + 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_TASK_ID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TASK_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTASK_DATE + 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 VWPMO_WF_USER_ACTIVERow + Get + Return CType(Me.Rows(index),VWPMO_WF_USER_ACTIVERow) + End Get + End Property + + _ + Public Event VWPMO_WF_USER_ACTIVERowChanging As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_USER_ACTIVERowChanged As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_USER_ACTIVERowDeleting As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_USER_ACTIVERowDeleted As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WF_USER_ACTIVERow(ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_USER_ACTIVERow + Dim rowVWPMO_WF_USER_ACTIVERow As VWPMO_WF_USER_ACTIVERow = CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE} + If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID(0) + End If + If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID) Is Nothing) Then + columnValuesArray(3) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID(0) + End If + rowVWPMO_WF_USER_ACTIVERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_USER_ACTIVERow) + Return rowVWPMO_WF_USER_ACTIVERow + End Function + + _ + Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_USER_ACTIVERow + Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_USER_ACTIVERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WF_USER_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_USER_ACTIVEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WF_USER_ACTIVEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") + End Sub + + _ + Private Sub InitClass() + Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TASK_ID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTASK_DATE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) + Me.columnWF_TASK_ID.AutoIncrement = true + Me.columnWF_TASK_ID.AutoIncrementSeed = -1 + Me.columnWF_TASK_ID.AutoIncrementStep = -1 + Me.columnWF_TASK_ID.AllowDBNull = false + Me.columnWF_TASK_ID.ReadOnly = true + Me.columnWF_TASK_ID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnSTATE_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 500 + Me.columnUSERNAME.ReadOnly = true + Me.columnUSERNAME.MaxLength = 1024 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WF_USER_ACTIVERow() As VWPMO_WF_USER_ACTIVERow + Return CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WF_USER_ACTIVERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WF_USER_ACTIVERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowChanged(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowChanging(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowDeleted(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowDeleting(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WF_USER_ACTIVEDataTable" + 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 VWPMO_FOLLOWING_TASKSDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_FOLLOWING_TASKSRow) + + Private columnJOB As Global.System.Data.DataColumn + + Private columnWF_TASK_ID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_FOLLOWING_TASKS" + 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 JOBColumn() As Global.System.Data.DataColumn + Get + Return Me.columnJOB + End Get + End Property + + _ + Public ReadOnly Property WF_TASK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_TASK_ID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 VWPMO_FOLLOWING_TASKSRow + Get + Return CType(Me.Rows(index),VWPMO_FOLLOWING_TASKSRow) + End Get + End Property + + _ + Public Event VWPMO_FOLLOWING_TASKSRowChanging As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Event VWPMO_FOLLOWING_TASKSRowChanged As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Event VWPMO_FOLLOWING_TASKSRowDeleting As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Event VWPMO_FOLLOWING_TASKSRowDeleted As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_FOLLOWING_TASKSRow(ByVal row As VWPMO_FOLLOWING_TASKSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_FOLLOWING_TASKSRow(ByVal JOB As String, ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1 As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_FOLLOWING_TASKSRow + Dim rowVWPMO_FOLLOWING_TASKSRow As VWPMO_FOLLOWING_TASKSRow = CType(Me.NewRow,VWPMO_FOLLOWING_TASKSRow) + Dim columnValuesArray() As Object = New Object() {JOB, Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1) Is Nothing) Then + columnValuesArray(3) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1(0) + End If + If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1) Is Nothing) Then + columnValuesArray(4) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1(0) + End If + rowVWPMO_FOLLOWING_TASKSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_FOLLOWING_TASKSRow) + Return rowVWPMO_FOLLOWING_TASKSRow + End Function + + _ + Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_FOLLOWING_TASKSRow + Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_FOLLOWING_TASKSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_FOLLOWING_TASKSDataTable = CType(MyBase.Clone,VWPMO_FOLLOWING_TASKSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_FOLLOWING_TASKSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnJOB = MyBase.Columns("JOB") + Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnJOB = New Global.System.Data.DataColumn("JOB", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnJOB) + Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TASK_ID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) + Me.columnJOB.MaxLength = 100 + Me.columnWF_TASK_ID.AutoIncrement = true + Me.columnWF_TASK_ID.AutoIncrementSeed = -1 + Me.columnWF_TASK_ID.AutoIncrementStep = -1 + Me.columnWF_TASK_ID.AllowDBNull = false + Me.columnWF_TASK_ID.ReadOnly = true + Me.columnWF_TASK_ID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnSTATE_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 500 + Me.columnUSERNAME.ReadOnly = true + Me.columnUSERNAME.MaxLength = 1024 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_FOLLOWING_TASKSRow() As VWPMO_FOLLOWING_TASKSRow + Return CType(Me.NewRow,VWPMO_FOLLOWING_TASKSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_FOLLOWING_TASKSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_FOLLOWING_TASKSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowChanged(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowChanging(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowDeleted(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowDeleting(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_FOLLOWING_TASKSRow(ByVal row As VWPMO_FOLLOWING_TASKSRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_FOLLOWING_TASKSDataTable" + 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 VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_OVERVIEW_AUTHORITYRow) + + Private columnSTATE As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnAuthority As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WF_OVERVIEW_AUTHORITY" + 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 STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property AuthorityColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAuthority + End Get + End Property + + _ + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnString + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 VWPMO_WF_OVERVIEW_AUTHORITYRow + Get + Return CType(Me.Rows(index),VWPMO_WF_OVERVIEW_AUTHORITYRow) + End Get + End Property + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanging As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanged As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal STATE As String, ByVal Authority As String, ByVal _String As String, ByVal WF_ID As Integer, ByVal RECORD_ID As Integer, ByVal COLOR As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_WF_OVERVIEW_AUTHORITYRow + Dim rowVWPMO_WF_OVERVIEW_AUTHORITYRow As VWPMO_WF_OVERVIEW_AUTHORITYRow = CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) + Dim columnValuesArray() As Object = New Object() {STATE, Nothing, Authority, _String, WF_ID, RECORD_ID, COLOR, CHANGED_WHO, CHANGED_WHEN} + rowVWPMO_WF_OVERVIEW_AUTHORITYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_OVERVIEW_AUTHORITYRow) + Return rowVWPMO_WF_OVERVIEW_AUTHORITYRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WF_OVERVIEW_AUTHORITYDataTable = CType(MyBase.Clone,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSTATE = MyBase.Columns("STATE") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnAuthority = MyBase.Columns("Authority") + Me.columnString = MyBase.Columns("String") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnCOLOR = MyBase.Columns("COLOR") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_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.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnAuthority = New Global.System.Data.DataColumn("Authority", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAuthority) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSTATE.ReadOnly = true + Me.columnSTATE.MaxLength = 153 + Me.columnSTATE_ID.AutoIncrement = true + Me.columnSTATE_ID.AutoIncrementSeed = -1 + Me.columnSTATE_ID.AutoIncrementStep = -1 + Me.columnSTATE_ID.AllowDBNull = false + Me.columnSTATE_ID.ReadOnly = true + Me.columnAuthority.ReadOnly = true + Me.columnAuthority.MaxLength = 102 + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 258 + Me.columnWF_ID.AllowDBNull = false + Me.columnRECORD_ID.AllowDBNull = false + Me.columnCOLOR.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WF_OVERVIEW_AUTHORITYRow() As VWPMO_WF_OVERVIEW_AUTHORITYRow + Return CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WF_OVERVIEW_AUTHORITYRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WF_OVERVIEW_AUTHORITYRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanged(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanging(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WF_OVERVIEW_AUTHORITYDataTable" + 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 TBDD_DOKUMENTARTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnEINGANGSART_ID As Global.System.Data.DataColumn + + Private columnKURZNAME As Global.System.Data.DataColumn + + Private columnZIEL_PFAD As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnNAMENKONVENTION As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnOBJEKTTYP As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_DOKUMENTART" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEINGANGSART_ID + End Get + End Property + + _ + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKURZNAME + End Get + End Property + + _ + Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn + Get + Return Me.columnZIEL_PFAD + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAMENKONVENTION + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJEKTTYP + 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 TBDD_DOKUMENTARTRow + Get + Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) + End Get + End Property + + _ + Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_DOKUMENTARTRow(ByVal BEZEICHNUNG As String, ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal OBJEKTTYP As String) As TBDD_DOKUMENTARTRow + Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP} + If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) + End If + rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_DOKUMENTARTRow) + Return rowTBDD_DOKUMENTARTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_DOKUMENTARTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEINGANGSART_ID) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZIEL_PFAD) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMENKONVENTION) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJEKTTYP) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnEINGANGSART_ID.AllowDBNull = false + Me.columnEINGANGSART_ID.DefaultValue = CType(5,Byte) + Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.MaxLength = 50 + Me.columnZIEL_PFAD.AllowDBNull = false + Me.columnZIEL_PFAD.MaxLength = 250 + Me.columnBESCHREIBUNG.MaxLength = 250 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(false,Boolean) + Me.columnNAMENKONVENTION.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + Me.columnOBJEKTTYP.AllowDBNull = false + Me.columnOBJEKTTYP.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_DOKUMENTARTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_DOKUMENTARTDataTable" + 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 TBDD_EINGANGSARTENDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EINGANGSARTENRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_EINGANGSARTEN" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + 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 TBDD_EINGANGSARTENRow + Get + Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) + End Get + End Property + + _ + Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow + Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) + Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_EINGANGSARTENRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EINGANGSARTENRow) + Return rowTBDD_EINGANGSARTENRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_EINGANGSARTENDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnBESCHREIBUNG.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_EINGANGSARTENRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_EINGANGSARTENRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_EINGANGSARTENRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_EINGANGSARTENRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_EINGANGSARTENRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_EINGANGSARTENRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_EINGANGSARTENDataTable" + 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 TBDD_INDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_AUTOM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_INDEX_AUTOMRow + Get + Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) + End Get + End Property + + _ + Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_AUTOMRow + Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) + End If + rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) + Return rowTBDD_INDEX_AUTOMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_AUTOMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 50 + Me.columnVALUE.MaxLength = 2000 + Me.columnCONNECTION_ID.AllowDBNull = false + Me.columnCONNECTION_ID.DefaultValue = CType(0,Short) + Me.columnCOMMENT.MaxLength = 400 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow + Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_AUTOMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_INDEX_AUTOMDataTable" + 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 TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FORMVIEW_DOKTYPESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORMVIEW_ID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WD_FORMVIEW_DOKTYPES" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORMVIEW_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORMVIEW_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WD_FORMVIEW_DOKTYPESRow + Get + Return CType(Me.Rows(index),TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Get + End Property + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanging As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanged As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_TITLE As String, ByVal DOCTYPE_ID As Integer, ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WD_FORMVIEW_DOKTYPESRow + Dim rowTBPMO_WD_FORMVIEW_DOKTYPESRow As TBPMO_WD_FORMVIEW_DOKTYPESRow = CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORMVIEW_ID, FORM_TITLE, DOCTYPE_ID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WD_FORMVIEW_DOKTYPESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_FORMVIEW_DOKTYPESRow) + Return rowTBPMO_WD_FORMVIEW_DOKTYPESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WD_FORMVIEW_DOKTYPESDataTable = CType(MyBase.Clone,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORMVIEW_ID = New Global.System.Data.DataColumn("FORMVIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORMVIEW_ID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORMVIEW_ID.AllowDBNull = false + Me.columnFORM_TITLE.AllowDBNull = false + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow + Return CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WD_FORMVIEW_DOKTYPESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanged(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanging(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WD_FORMVIEW_DOKTYPESDataTable" + 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 TBPMO_KONFIGURATIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_KONFIGURATIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnLICENSE As Global.System.Data.DataColumn + + Private columnVEKTOR_DELIMITER As Global.System.Data.DataColumn + + Private columnEMAIL_ACTIVE As Global.System.Data.DataColumn + + Private columnEMAIL_FROM As Global.System.Data.DataColumn + + Private columnEMAIL_SMTP As Global.System.Data.DataColumn + + Private columnEMAIL_USER As Global.System.Data.DataColumn + + Private columnEMAIL_PW As Global.System.Data.DataColumn + + Private columnEMAIL_REMINDER_HEADER As Global.System.Data.DataColumn + + Private columnEMAIL_REMINDER_FOOTER As Global.System.Data.DataColumn + + Private columnADMIN_PW As Global.System.Data.DataColumn + + Private columnADMIN_SECURITY As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnSQL_RECORD_SQL1 As Global.System.Data.DataColumn + + Private columnSQL_RECORD_SQL2 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE1 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE2 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE3 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE4 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE5 As Global.System.Data.DataColumn + + Private columnVERSION_DELIMITER As Global.System.Data.DataColumn + + Private columnFILE_DELIMITER As Global.System.Data.DataColumn + + Private columnWD_UNICODE As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_LOG_ERR_ONLY As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_EMAIL_PROFILE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_KONFIGURATION" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLICENSE + End Get + End Property + + _ + Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVEKTOR_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_FROM + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SMTP + End Get + End Property + + _ + Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_USER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_PW + End Get + End Property + + _ + Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_REMINDER_HEADER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_REMINDER_FOOTER + End Get + End Property + + _ + Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADMIN_PW + End Get + End Property + + _ + Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADMIN_SECURITY + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property SQL_RECORD_SQL1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RECORD_SQL1 + End Get + End Property + + _ + Public ReadOnly Property SQL_RECORD_SQL2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RECORD_SQL2 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE1Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE1 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE2Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE2 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE3Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE3 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE4Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE4 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE5Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE5 + End Get + End Property + + _ + Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERSION_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property WD_UNICODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_UNICODE + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_LOG_ERR_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_LOG_ERR_ONLY + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_EMAIL_PROFILEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_EMAIL_PROFILE + 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 TBPMO_KONFIGURATIONRow + Get + Return CType(Me.Rows(index),TBPMO_KONFIGURATIONRow) + End Get + End Property + + _ + Public Event TBPMO_KONFIGURATIONRowChanging As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowChanged As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowDeleting As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowDeleted As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_KONFIGURATIONRow( _ + ByVal GUID As Byte, _ + ByVal LICENSE As String, _ + ByVal VEKTOR_DELIMITER As String, _ + ByVal EMAIL_ACTIVE As Boolean, _ + ByVal EMAIL_FROM As String, _ + ByVal EMAIL_SMTP As String, _ + ByVal EMAIL_USER As String, _ + ByVal EMAIL_PW As String, _ + ByVal EMAIL_REMINDER_HEADER As String, _ + ByVal EMAIL_REMINDER_FOOTER As String, _ + ByVal ADMIN_PW As String, _ + ByVal ADMIN_SECURITY As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal SQL_RECORD_SQL1 As String, _ + ByVal SQL_RECORD_SQL2 As String, _ + ByVal WORKFLOW_FINAL_STATE1 As Integer, _ + ByVal WORKFLOW_FINAL_STATE2 As Integer, _ + ByVal WORKFLOW_FINAL_STATE3 As Integer, _ + ByVal WORKFLOW_FINAL_STATE4 As Integer, _ + ByVal WORKFLOW_FINAL_STATE5 As Integer, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal WD_UNICODE As Boolean, _ + ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ + ByVal FOLLOW_UP_EMAIL_PROFILE As Integer) As TBPMO_KONFIGURATIONRow + Dim rowTBPMO_KONFIGURATIONRow As TBPMO_KONFIGURATIONRow = CType(Me.NewRow,TBPMO_KONFIGURATIONRow) + Dim columnValuesArray() As Object = New Object() {GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FOLLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE} + rowTBPMO_KONFIGURATIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_KONFIGURATIONRow) + Return rowTBPMO_KONFIGURATIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBPMO_KONFIGURATIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_KONFIGURATIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPMO_KONFIGURATIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_KONFIGURATIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnLICENSE = MyBase.Columns("LICENSE") + Me.columnVEKTOR_DELIMITER = MyBase.Columns("VEKTOR_DELIMITER") + Me.columnEMAIL_ACTIVE = MyBase.Columns("EMAIL_ACTIVE") + Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") + Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") + Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") + Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") + Me.columnEMAIL_REMINDER_HEADER = MyBase.Columns("EMAIL_REMINDER_HEADER") + Me.columnEMAIL_REMINDER_FOOTER = MyBase.Columns("EMAIL_REMINDER_FOOTER") + Me.columnADMIN_PW = MyBase.Columns("ADMIN_PW") + Me.columnADMIN_SECURITY = MyBase.Columns("ADMIN_SECURITY") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSQL_RECORD_SQL1 = MyBase.Columns("SQL_RECORD_SQL1") + Me.columnSQL_RECORD_SQL2 = MyBase.Columns("SQL_RECORD_SQL2") + Me.columnWORKFLOW_FINAL_STATE1 = MyBase.Columns("WORKFLOW_FINAL_STATE1") + Me.columnWORKFLOW_FINAL_STATE2 = MyBase.Columns("WORKFLOW_FINAL_STATE2") + Me.columnWORKFLOW_FINAL_STATE3 = MyBase.Columns("WORKFLOW_FINAL_STATE3") + Me.columnWORKFLOW_FINAL_STATE4 = MyBase.Columns("WORKFLOW_FINAL_STATE4") + Me.columnWORKFLOW_FINAL_STATE5 = MyBase.Columns("WORKFLOW_FINAL_STATE5") + Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") + Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") + Me.columnWD_UNICODE = MyBase.Columns("WD_UNICODE") + Me.columnFOLLOW_UP_LOG_ERR_ONLY = MyBase.Columns("FOLLOW_UP_LOG_ERR_ONLY") + Me.columnFOLLOW_UP_EMAIL_PROFILE = MyBase.Columns("FOLLOW_UP_EMAIL_PROFILE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLICENSE) + Me.columnVEKTOR_DELIMITER = New Global.System.Data.DataColumn("VEKTOR_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVEKTOR_DELIMITER) + Me.columnEMAIL_ACTIVE = New Global.System.Data.DataColumn("EMAIL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_ACTIVE) + Me.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_FROM) + Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SMTP) + Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_USER) + Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_PW) + Me.columnEMAIL_REMINDER_HEADER = New Global.System.Data.DataColumn("EMAIL_REMINDER_HEADER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_REMINDER_HEADER) + Me.columnEMAIL_REMINDER_FOOTER = New Global.System.Data.DataColumn("EMAIL_REMINDER_FOOTER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_REMINDER_FOOTER) + Me.columnADMIN_PW = New Global.System.Data.DataColumn("ADMIN_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADMIN_PW) + Me.columnADMIN_SECURITY = New Global.System.Data.DataColumn("ADMIN_SECURITY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADMIN_SECURITY) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSQL_RECORD_SQL1 = New Global.System.Data.DataColumn("SQL_RECORD_SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RECORD_SQL1) + Me.columnSQL_RECORD_SQL2 = New Global.System.Data.DataColumn("SQL_RECORD_SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RECORD_SQL2) + Me.columnWORKFLOW_FINAL_STATE1 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE1) + Me.columnWORKFLOW_FINAL_STATE2 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE2", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE2) + Me.columnWORKFLOW_FINAL_STATE3 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE3", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE3) + Me.columnWORKFLOW_FINAL_STATE4 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE4", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE4) + Me.columnWORKFLOW_FINAL_STATE5 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE5", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE5) + Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_DELIMITER) + Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_DELIMITER) + Me.columnWD_UNICODE = New Global.System.Data.DataColumn("WD_UNICODE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_UNICODE) + Me.columnFOLLOW_UP_LOG_ERR_ONLY = New Global.System.Data.DataColumn("FOLLOW_UP_LOG_ERR_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_LOG_ERR_ONLY) + Me.columnFOLLOW_UP_EMAIL_PROFILE = New Global.System.Data.DataColumn("FOLLOW_UP_EMAIL_PROFILE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_EMAIL_PROFILE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnLICENSE.MaxLength = 2000 + Me.columnVEKTOR_DELIMITER.AllowDBNull = false + Me.columnVEKTOR_DELIMITER.MaxLength = 1 + Me.columnEMAIL_ACTIVE.AllowDBNull = false + Me.columnEMAIL_FROM.MaxLength = 50 + Me.columnEMAIL_SMTP.MaxLength = 50 + Me.columnEMAIL_USER.MaxLength = 50 + Me.columnEMAIL_PW.MaxLength = 50 + Me.columnEMAIL_REMINDER_HEADER.MaxLength = 250 + Me.columnEMAIL_REMINDER_FOOTER.MaxLength = 250 + Me.columnADMIN_PW.AllowDBNull = false + Me.columnADMIN_PW.MaxLength = 100 + Me.columnADMIN_SECURITY.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSQL_RECORD_SQL1.AllowDBNull = false + Me.columnSQL_RECORD_SQL1.MaxLength = 500 + Me.columnSQL_RECORD_SQL2.AllowDBNull = false + Me.columnSQL_RECORD_SQL2.MaxLength = 500 + Me.columnWORKFLOW_FINAL_STATE1.AllowDBNull = false + Me.columnVERSION_DELIMITER.AllowDBNull = false + Me.columnVERSION_DELIMITER.MaxLength = 1 + Me.columnFILE_DELIMITER.AllowDBNull = false + Me.columnFILE_DELIMITER.MaxLength = 1 + Me.columnWD_UNICODE.AllowDBNull = false + Me.columnFOLLOW_UP_LOG_ERR_ONLY.AllowDBNull = false + Me.columnFOLLOW_UP_EMAIL_PROFILE.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_KONFIGURATIONRow() As TBPMO_KONFIGURATIONRow + Return CType(Me.NewRow,TBPMO_KONFIGURATIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_KONFIGURATIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_KONFIGURATIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_KONFIGURATIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowChanged(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_KONFIGURATIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowChanging(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_KONFIGURATIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowDeleted(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_KONFIGURATIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowDeleting(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_KONFIGURATIONDataTable" + 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 TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPRENAME As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnEMAIL As Global.System.Data.DataColumn + + Private columnLOGGED_IN As Global.System.Data.DataColumn + + Private columnLOGGED_WHERE As Global.System.Data.DataColumn + + Private columnLOG_IN_WHEN As Global.System.Data.DataColumn + + Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnRECORD_ADMIN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL + End Get + End Property + + _ + Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_IN + End Get + End Property + + _ + Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_WHERE + End Get + End Property + + _ + Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_IN_WHEN + End Get + End Property + + _ + Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_OUT_WHEN + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property RECORD_ADMINColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ADMIN + 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 TBDD_USERRow + Get + Return CType(Me.Rows(index),TBDD_USERRow) + End Get + End Property + + _ + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal RECORD_ADMIN As Boolean) As TBDD_USERRow + Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN} + rowTBDD_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USERRow) + Return rowTBDD_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnEMAIL = MyBase.Columns("EMAIL") + Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") + Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") + Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") + Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnRECORD_ADMIN = MyBase.Columns("RECORD_ADMIN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL) + Me.columnLOGGED_IN = New Global.System.Data.DataColumn("LOGGED_IN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_IN) + Me.columnLOGGED_WHERE = New Global.System.Data.DataColumn("LOGGED_WHERE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_WHERE) + Me.columnLOG_IN_WHEN = New Global.System.Data.DataColumn("LOG_IN_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_IN_WHEN) + Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_OUT_WHEN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnRECORD_ADMIN = New Global.System.Data.DataColumn("RECORD_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ADMIN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPRENAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnEMAIL.MaxLength = 100 + Me.columnLOGGED_IN.AllowDBNull = false + Me.columnLOGGED_IN.DefaultValue = CType(false,Boolean) + Me.columnLOGGED_WHERE.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnRECORD_ADMIN.AllowDBNull = false + End Sub + + _ + Public Function NewTBDD_USERRow() As TBDD_USERRow + Return CType(Me.NewRow,TBDD_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_USERDataTable" + 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 TBPMO_FORM_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_TYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_TYPE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_TYPE" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TYPE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_FORM_TYPERow + Get + Return CType(Me.Rows(index),TBPMO_FORM_TYPERow) + End Get + End Property + + _ + Public Event TBPMO_FORM_TYPERowChanging As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Event TBPMO_FORM_TYPERowChanged As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Event TBPMO_FORM_TYPERowDeleting As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Event TBPMO_FORM_TYPERowDeleted As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_TYPERow(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FORM_TYPERow + Dim rowTBPMO_FORM_TYPERow As TBPMO_FORM_TYPERow = CType(Me.NewRow,TBPMO_FORM_TYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_FORM_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_TYPERow) + Return rowTBPMO_FORM_TYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_TYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_TYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_TYPEDataTable = CType(MyBase.Clone,TBPMO_FORM_TYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_TYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_TYPE = MyBase.Columns("FORM_TYPE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_TYPE = New Global.System.Data.DataColumn("FORM_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TYPE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORM_TYPE.AllowDBNull = false + Me.columnFORM_TYPE.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow + Return CType(Me.NewRow,TBPMO_FORM_TYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_TYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_TYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowChanged(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowChanging(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowDeleted(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowDeleting(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_TYPEDataTable" + 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 TBDD_USER_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER_GROUPS" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_USER_GROUPSRow + Get + Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) + End Get + End Property + + _ + Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow + Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USER_GROUPSRow) + Return rowTBDD_USER_GROUPSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USER_GROUPSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Return CType(Me.NewRow,TBDD_USER_GROUPSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USER_GROUPSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USER_GROUPSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_USER_GROUPSDataTable" + 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 VWPMO_USERS_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_USERS_GROUPSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnPRENAME As Global.System.Data.DataColumn + + Private columnGROUP_NAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_USERS_GROUPS" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property GROUP_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_NAME + 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 VWPMO_USERS_GROUPSRow + Get + Return CType(Me.Rows(index),VWPMO_USERS_GROUPSRow) + End Get + End Property + + _ + Public Event VWPMO_USERS_GROUPSRowChanging As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Event VWPMO_USERS_GROUPSRowChanged As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Event VWPMO_USERS_GROUPSRowDeleting As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Event VWPMO_USERS_GROUPSRowDeleted As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_USERS_GROUPSRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal GROUP_NAME As String) As VWPMO_USERS_GROUPSRow + Dim rowVWPMO_USERS_GROUPSRow As VWPMO_USERS_GROUPSRow = CType(Me.NewRow,VWPMO_USERS_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, GROUP_ID, USERNAME, NAME, PRENAME, GROUP_NAME} + rowVWPMO_USERS_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_USERS_GROUPSRow) + Return rowVWPMO_USERS_GROUPSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_USERS_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_USERS_GROUPSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_USERS_GROUPSDataTable = CType(MyBase.Clone,VWPMO_USERS_GROUPSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_USERS_GROUPSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnGROUP_NAME = MyBase.Columns("GROUP_NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.columnGROUP_NAME = New Global.System.Data.DataColumn("GROUP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_NAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnPRENAME.MaxLength = 50 + Me.columnGROUP_NAME.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_USERS_GROUPSRow() As VWPMO_USERS_GROUPSRow + Return CType(Me.NewRow,VWPMO_USERS_GROUPSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_USERS_GROUPSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_USERS_GROUPSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_USERS_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowChanged(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_USERS_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowChanging(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_USERS_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowDeleted(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_USERS_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowDeleting(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_USERS_GROUPSDataTable" + 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 TBDD_GROUPS_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_GROUPS_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_GROUPS_USERRow + Get + Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) + End Get + End Property + + _ + Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow + Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) + End If + If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) + End If + rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_USERRow) + Return rowTBDD_GROUPS_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_GROUPS_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow + Return CType(Me.NewRow,TBDD_GROUPS_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_GROUPS_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_GROUPS_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_GROUPS_USERDataTable" + 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 TBWH_DOKART_MODULEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_DOKART_MODULERow) + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_DOKART_MODULE" + 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 BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + 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 TBWH_DOKART_MODULERow + Get + Return CType(Me.Rows(index),TBWH_DOKART_MODULERow) + End Get + End Property + + _ + Public Event TBWH_DOKART_MODULERowChanging As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBWH_DOKART_MODULERowChanged As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBWH_DOKART_MODULERowDeleting As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBWH_DOKART_MODULERowDeleted As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_DOKART_MODULERow(ByVal BEZEICHNUNG As String, ByVal NAME As String) As TBWH_DOKART_MODULERow + Dim rowTBWH_DOKART_MODULERow As TBWH_DOKART_MODULERow = CType(Me.NewRow,TBWH_DOKART_MODULERow) + Dim columnValuesArray() As Object = New Object() {BEZEICHNUNG, NAME} + rowTBWH_DOKART_MODULERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_DOKART_MODULERow) + Return rowTBWH_DOKART_MODULERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_DOKART_MODULEDataTable = CType(MyBase.Clone,TBWH_DOKART_MODULEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_DOKART_MODULEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_DOKART_MODULERow() As TBWH_DOKART_MODULERow + Return CType(Me.NewRow,TBWH_DOKART_MODULERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_DOKART_MODULERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_DOKART_MODULERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_DOKART_MODULERowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowChanged(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_DOKART_MODULERowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowChanging(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_DOKART_MODULERowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowDeleted(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_DOKART_MODULERowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowDeleting(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBWH_DOKART_MODULEDataTable" + 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 TBPMO_FORM_CONSTRUCTORDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnSEQUENCE_MENU As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnMENU_IMG As Global.System.Data.DataColumn + + Private columnSHORT_TITLE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_CONSTRUCTOR" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE_MENU + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENU_IMG + End Get + End Property + + _ + Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORT_TITLE + 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 TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As TBPMO_FORM_CONSTRUCTORRow + Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE} + rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) + Return rowTBPMO_FORM_CONSTRUCTORRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTORDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") + Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE_MENU) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENU_IMG) + Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORT_TITLE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnSEQUENCE_MENU.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSHORT_TITLE.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTORRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_CONSTRUCTORDataTable" + 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 TBPMO_WD_OBJECTTYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_OBJECTTYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnOBJECT_TYPE As Global.System.Data.DataColumn + + Private columnIDXNAME_ENTITYID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnIDXNAME_PARENTID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WD_OBJECTTYPE" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property OBJECT_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJECT_TYPE + End Get + End Property + + _ + Public ReadOnly Property IDXNAME_ENTITYIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_ENTITYID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property IDXNAME_PARENTIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_PARENTID + 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 TBPMO_WD_OBJECTTYPERow + Get + Return CType(Me.Rows(index),TBPMO_WD_OBJECTTYPERow) + End Get + End Property + + _ + Public Event TBPMO_WD_OBJECTTYPERowChanging As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Event TBPMO_WD_OBJECTTYPERowChanged As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Event TBPMO_WD_OBJECTTYPERowDeleting As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Event TBPMO_WD_OBJECTTYPERowDeleted As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WD_OBJECTTYPERow(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDXNAME_PARENTID As String) As TBPMO_WD_OBJECTTYPERow + Dim rowTBPMO_WD_OBJECTTYPERow As TBPMO_WD_OBJECTTYPERow = CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TYPE, IDXNAME_ENTITYID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_PARENTID} + rowTBPMO_WD_OBJECTTYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_OBJECTTYPERow) + Return rowTBPMO_WD_OBJECTTYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_OBJECTTYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_OBJECTTYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WD_OBJECTTYPEDataTable = CType(MyBase.Clone,TBPMO_WD_OBJECTTYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WD_OBJECTTYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") + Me.columnIDXNAME_ENTITYID = MyBase.Columns("IDXNAME_ENTITYID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnIDXNAME_PARENTID = MyBase.Columns("IDXNAME_PARENTID") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECT_TYPE) + Me.columnIDXNAME_ENTITYID = New Global.System.Data.DataColumn("IDXNAME_ENTITYID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_ENTITYID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnIDXNAME_PARENTID = New Global.System.Data.DataColumn("IDXNAME_PARENTID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_PARENTID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnOBJECT_TYPE.AllowDBNull = false + Me.columnOBJECT_TYPE.MaxLength = 100 + Me.columnIDXNAME_ENTITYID.AllowDBNull = false + Me.columnIDXNAME_ENTITYID.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIDXNAME_PARENTID.AllowDBNull = false + Me.columnIDXNAME_PARENTID.MaxLength = 100 + End Sub + + _ + Public Function NewTBPMO_WD_OBJECTTYPERow() As TBPMO_WD_OBJECTTYPERow + Return CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WD_OBJECTTYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WD_OBJECTTYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowChanged(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowChanging(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowDeleted(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowDeleting(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WD_OBJECTTYPEDataTable" + 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 TBPMO_FILES_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FILES_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFILENAME2WORK As Global.System.Data.DataColumn + + Private columnUSER_WORK As Global.System.Data.DataColumn + + Private columnHANDLE_TYPE As Global.System.Data.DataColumn + + Private columnWORKED As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FILES_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILENAME2WORK + End Get + End Property + + _ + Public ReadOnly Property USER_WORKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_WORK + End Get + End Property + + _ + Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHANDLE_TYPE + End Get + End Property + + _ + Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWORKED + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_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 TBPMO_FILES_USERRow + Get + Return CType(Me.Rows(index),TBPMO_FILES_USERRow) + End Get + End Property + + _ + Public Event TBPMO_FILES_USERRowChanging As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Event TBPMO_FILES_USERRowChanged As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Event TBPMO_FILES_USERRowDeleting As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Event TBPMO_FILES_USERRowDeleted As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As TBPMO_FILES_USERRow + Dim rowTBPMO_FILES_USERRow As TBPMO_FILES_USERRow = CType(Me.NewRow,TBPMO_FILES_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN} + rowTBPMO_FILES_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FILES_USERRow) + Return rowTBPMO_FILES_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FILES_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FILES_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FILES_USERDataTable = CType(MyBase.Clone,TBPMO_FILES_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FILES_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") + Me.columnUSER_WORK = MyBase.Columns("USER_WORK") + Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") + Me.columnWORKED = MyBase.Columns("WORKED") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFILENAME2WORK = New Global.System.Data.DataColumn("FILENAME2WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILENAME2WORK) + Me.columnUSER_WORK = New Global.System.Data.DataColumn("USER_WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_WORK) + Me.columnHANDLE_TYPE = New Global.System.Data.DataColumn("HANDLE_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHANDLE_TYPE) + Me.columnWORKED = New Global.System.Data.DataColumn("WORKED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKED) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFILENAME2WORK.AllowDBNull = false + Me.columnFILENAME2WORK.MaxLength = 500 + Me.columnUSER_WORK.AllowDBNull = false + Me.columnUSER_WORK.MaxLength = 50 + Me.columnHANDLE_TYPE.AllowDBNull = false + Me.columnHANDLE_TYPE.MaxLength = 50 + Me.columnWORKED.AllowDBNull = false + Me.columnADDED_WHEN.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_FILES_USERRow() As TBPMO_FILES_USERRow + Return CType(Me.NewRow,TBPMO_FILES_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FILES_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FILES_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FILES_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowChanged(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FILES_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowChanging(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FILES_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowDeleted(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FILES_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowDeleting(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FILES_USERDataTable" + 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 VWPMO_WORKFLOW_FORMDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WORKFLOW_FORMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_NAME As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnWORKFLOW As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WORKFLOW_FORM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_NAME + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property WORKFLOWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + 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 VWPMO_WORKFLOW_FORMRow + Get + Return CType(Me.Rows(index),VWPMO_WORKFLOW_FORMRow) + End Get + End Property + + _ + Public Event VWPMO_WORKFLOW_FORMRowChanging As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event VWPMO_WORKFLOW_FORMRowChanged As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event VWPMO_WORKFLOW_FORMRowDeleting As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event VWPMO_WORKFLOW_FORMRowDeleted As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WORKFLOW_FORMRow(ByVal row As VWPMO_WORKFLOW_FORMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WORKFLOW_FORMRow(ByVal GUID As Integer, ByVal FORM_ID As Integer, ByVal FORM_NAME As String, ByVal WF_ID As Integer, ByVal WORKFLOW As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COLOR As String) As VWPMO_WORKFLOW_FORMRow + Dim rowVWPMO_WORKFLOW_FORMRow As VWPMO_WORKFLOW_FORMRow = CType(Me.NewRow,VWPMO_WORKFLOW_FORMRow) + Dim columnValuesArray() As Object = New Object() {GUID, FORM_ID, FORM_NAME, WF_ID, WORKFLOW, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR} + rowVWPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WORKFLOW_FORMRow) + Return rowVWPMO_WORKFLOW_FORMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_WORKFLOW_FORMRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_WORKFLOW_FORMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,VWPMO_WORKFLOW_FORMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WORKFLOW_FORMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_NAME = MyBase.Columns("FORM_NAME") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnWORKFLOW = MyBase.Columns("WORKFLOW") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLOR = MyBase.Columns("COLOR") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_NAME = New Global.System.Data.DataColumn("FORM_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_NAME) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnWORKFLOW = New Global.System.Data.DataColumn("WORKFLOW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_NAME.AllowDBNull = false + Me.columnFORM_NAME.MaxLength = 100 + Me.columnWF_ID.AllowDBNull = false + Me.columnWORKFLOW.AllowDBNull = false + Me.columnWORKFLOW.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLOR.AllowDBNull = false + Me.columnCOLOR.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WORKFLOW_FORMRow() As VWPMO_WORKFLOW_FORMRow + Return CType(Me.NewRow,VWPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WORKFLOW_FORMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowChanged(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowChanging(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowDeleted(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowDeleting(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WORKFLOW_FORMRow(ByVal row As VWPMO_WORKFLOW_FORMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WORKFLOW_FORMDataTable" + 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 TBPMO_FOLLOW_UP_EMAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLOW_UP_EMAILRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_SEQUENCE As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_DAYS As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_TIME_SPAN As Global.System.Data.DataColumn + + Private columnDEPENDENT_DATE_CTRL_ID As Global.System.Data.DataColumn + + Private columnDEPENDENT_DONE_CTRL_ID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnTIME_UNITY As Global.System.Data.DataColumn + + Private columnTIME_SPAN As Global.System.Data.DataColumn + + Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn + + Private columnEMAIL_BODY As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT1 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT2 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT3 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT4 As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTIME_DIST As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT5 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT6 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT7 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT8 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT9 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT10 As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FOLLOW_UP_EMAIL" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_SEQUENCE + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_DAYSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_DAYS + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_TIME_SPANColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_TIME_SPAN + End Get + End Property + + _ + Public ReadOnly Property DEPENDENT_DATE_CTRL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEPENDENT_DATE_CTRL_ID + End Get + End Property + + _ + Public ReadOnly Property DEPENDENT_DONE_CTRL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEPENDENT_DONE_CTRL_ID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property TIME_UNITYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_UNITY + End Get + End Property + + _ + Public ReadOnly Property TIME_SPANColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_SPAN + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SUBJECT + End Get + End Property + + _ + Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_BODY + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT1 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT2 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT3Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT3 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT4Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT4 + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TIME_DISTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_DIST + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT5Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT5 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT6Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT6 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT7Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT7 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT8Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT8 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT9Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT9 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT10Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT10 + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + 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 TBPMO_FOLLOW_UP_EMAILRow + Get + Return CType(Me.Rows(index),TBPMO_FOLLOW_UP_EMAILRow) + End Get + End Property + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowChanging As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowChanged As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowDeleting As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowDeleted As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FOLLOW_UP_EMAILRow( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal TIME_DIST As String, _ + ByVal PROCESS_SELECT5 As String, _ + ByVal PROCESS_SELECT6 As String, _ + ByVal PROCESS_SELECT7 As String, _ + ByVal PROCESS_SELECT8 As String, _ + ByVal PROCESS_SELECT9 As String, _ + ByVal PROCESS_SELECT10 As String, _ + ByVal NAME As String) As TBPMO_FOLLOW_UP_EMAILRow + Dim rowTBPMO_FOLLOW_UP_EMAILRow As TBPMO_FOLLOW_UP_EMAILRow = CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TIME_DIST, PROCESS_SELECT5, PROCESS_SELECT6, PROCESS_SELECT7, PROCESS_SELECT8, PROCESS_SELECT9, PROCESS_SELECT10, NAME} + rowTBPMO_FOLLOW_UP_EMAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FOLLOW_UP_EMAILRow) + Return rowTBPMO_FOLLOW_UP_EMAILRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLOW_UP_EMAILRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLOW_UP_EMAILRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FOLLOW_UP_EMAILDataTable = CType(MyBase.Clone,TBPMO_FOLLOW_UP_EMAILDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FOLLOW_UP_EMAILDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFOLLOW_UP_SEQUENCE = MyBase.Columns("FOLLOW_UP_SEQUENCE") + Me.columnFOLLOW_UP_DAYS = MyBase.Columns("FOLLOW_UP_DAYS") + Me.columnFOLLOW_UP_TIME_SPAN = MyBase.Columns("FOLLOW_UP_TIME_SPAN") + Me.columnDEPENDENT_DATE_CTRL_ID = MyBase.Columns("DEPENDENT_DATE_CTRL_ID") + Me.columnDEPENDENT_DONE_CTRL_ID = MyBase.Columns("DEPENDENT_DONE_CTRL_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnTIME_UNITY = MyBase.Columns("TIME_UNITY") + Me.columnTIME_SPAN = MyBase.Columns("TIME_SPAN") + Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") + Me.columnEMAIL_BODY = MyBase.Columns("EMAIL_BODY") + Me.columnPROCESS_SELECT1 = MyBase.Columns("PROCESS_SELECT1") + Me.columnPROCESS_SELECT2 = MyBase.Columns("PROCESS_SELECT2") + Me.columnPROCESS_SELECT3 = MyBase.Columns("PROCESS_SELECT3") + Me.columnPROCESS_SELECT4 = MyBase.Columns("PROCESS_SELECT4") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTIME_DIST = MyBase.Columns("TIME_DIST") + Me.columnPROCESS_SELECT5 = MyBase.Columns("PROCESS_SELECT5") + Me.columnPROCESS_SELECT6 = MyBase.Columns("PROCESS_SELECT6") + Me.columnPROCESS_SELECT7 = MyBase.Columns("PROCESS_SELECT7") + Me.columnPROCESS_SELECT8 = MyBase.Columns("PROCESS_SELECT8") + Me.columnPROCESS_SELECT9 = MyBase.Columns("PROCESS_SELECT9") + Me.columnPROCESS_SELECT10 = MyBase.Columns("PROCESS_SELECT10") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFOLLOW_UP_SEQUENCE = New Global.System.Data.DataColumn("FOLLOW_UP_SEQUENCE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_SEQUENCE) + Me.columnFOLLOW_UP_DAYS = New Global.System.Data.DataColumn("FOLLOW_UP_DAYS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_DAYS) + Me.columnFOLLOW_UP_TIME_SPAN = New Global.System.Data.DataColumn("FOLLOW_UP_TIME_SPAN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_TIME_SPAN) + Me.columnDEPENDENT_DATE_CTRL_ID = New Global.System.Data.DataColumn("DEPENDENT_DATE_CTRL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEPENDENT_DATE_CTRL_ID) + Me.columnDEPENDENT_DONE_CTRL_ID = New Global.System.Data.DataColumn("DEPENDENT_DONE_CTRL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEPENDENT_DONE_CTRL_ID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnTIME_UNITY = New Global.System.Data.DataColumn("TIME_UNITY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIME_UNITY) + Me.columnTIME_SPAN = New Global.System.Data.DataColumn("TIME_SPAN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIME_SPAN) + Me.columnEMAIL_SUBJECT = New Global.System.Data.DataColumn("EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SUBJECT) + Me.columnEMAIL_BODY = New Global.System.Data.DataColumn("EMAIL_BODY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY) + Me.columnPROCESS_SELECT1 = New Global.System.Data.DataColumn("PROCESS_SELECT1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT1) + Me.columnPROCESS_SELECT2 = New Global.System.Data.DataColumn("PROCESS_SELECT2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT2) + Me.columnPROCESS_SELECT3 = New Global.System.Data.DataColumn("PROCESS_SELECT3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT3) + Me.columnPROCESS_SELECT4 = New Global.System.Data.DataColumn("PROCESS_SELECT4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT4) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTIME_DIST = New Global.System.Data.DataColumn("TIME_DIST", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIME_DIST) + Me.columnPROCESS_SELECT5 = New Global.System.Data.DataColumn("PROCESS_SELECT5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT5) + Me.columnPROCESS_SELECT6 = New Global.System.Data.DataColumn("PROCESS_SELECT6", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT6) + Me.columnPROCESS_SELECT7 = New Global.System.Data.DataColumn("PROCESS_SELECT7", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT7) + Me.columnPROCESS_SELECT8 = New Global.System.Data.DataColumn("PROCESS_SELECT8", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT8) + Me.columnPROCESS_SELECT9 = New Global.System.Data.DataColumn("PROCESS_SELECT9", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT9) + Me.columnPROCESS_SELECT10 = New Global.System.Data.DataColumn("PROCESS_SELECT10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT10) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFOLLOW_UP_SEQUENCE.AllowDBNull = false + Me.columnFOLLOW_UP_SEQUENCE.MaxLength = 50 + Me.columnFOLLOW_UP_DAYS.AllowDBNull = false + Me.columnFOLLOW_UP_DAYS.MaxLength = 50 + Me.columnFOLLOW_UP_TIME_SPAN.AllowDBNull = false + Me.columnFOLLOW_UP_TIME_SPAN.MaxLength = 50 + Me.columnDEPENDENT_DATE_CTRL_ID.AllowDBNull = false + Me.columnDEPENDENT_DONE_CTRL_ID.AllowDBNull = false + Me.columnPARENT_ID.AllowDBNull = false + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) + Me.columnTIME_UNITY.AllowDBNull = false + Me.columnTIME_UNITY.MaxLength = 50 + Me.columnTIME_SPAN.AllowDBNull = false + Me.columnEMAIL_SUBJECT.AllowDBNull = false + Me.columnEMAIL_SUBJECT.DefaultValue = CType("Ihr Betreff",String) + Me.columnEMAIL_SUBJECT.MaxLength = 250 + Me.columnEMAIL_BODY.AllowDBNull = false + Me.columnEMAIL_BODY.MaxLength = 2000 + Me.columnPROCESS_SELECT1.AllowDBNull = false + Me.columnPROCESS_SELECT1.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT1.MaxLength = 2000 + Me.columnPROCESS_SELECT2.AllowDBNull = false + Me.columnPROCESS_SELECT2.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT2.MaxLength = 2000 + Me.columnPROCESS_SELECT3.AllowDBNull = false + Me.columnPROCESS_SELECT3.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT3.MaxLength = 2000 + Me.columnPROCESS_SELECT4.AllowDBNull = false + Me.columnPROCESS_SELECT4.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT4.MaxLength = 2000 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(false,Boolean) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnTIME_DIST.AllowDBNull = false + Me.columnTIME_DIST.MaxLength = 30 + Me.columnPROCESS_SELECT5.AllowDBNull = false + Me.columnPROCESS_SELECT5.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT5.MaxLength = 2000 + Me.columnPROCESS_SELECT6.AllowDBNull = false + Me.columnPROCESS_SELECT6.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT6.MaxLength = 2000 + Me.columnPROCESS_SELECT7.AllowDBNull = false + Me.columnPROCESS_SELECT7.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT7.MaxLength = 2000 + Me.columnPROCESS_SELECT8.AllowDBNull = false + Me.columnPROCESS_SELECT8.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT8.MaxLength = 2000 + Me.columnPROCESS_SELECT9.AllowDBNull = false + Me.columnPROCESS_SELECT9.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT9.MaxLength = 2000 + Me.columnPROCESS_SELECT10.AllowDBNull = false + Me.columnPROCESS_SELECT10.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT10.MaxLength = 2000 + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + End Sub + + _ + Public Function NewTBPMO_FOLLOW_UP_EMAILRow() As TBPMO_FOLLOW_UP_EMAILRow + Return CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FOLLOW_UP_EMAILRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FOLLOW_UP_EMAILRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanged(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanging(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleted(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleting(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FOLLOW_UP_EMAILDataTable" + 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 TBPMO_FOLLUPEMAIL_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLUPEMAIL_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FOLLUPEMAIL_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_FOLLUPEMAIL_USERRow + Get + Return CType(Me.Rows(index),TBPMO_FOLLUPEMAIL_USERRow) + End Get + End Property + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowChanging As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowChanged As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowDeleting As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowDeleted As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FOLLUPEMAIL_USERRow(ByVal USER_ID As Integer, ByVal parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As TBDD_USERRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FOLLUPEMAIL_USERRow + Dim rowTBPMO_FOLLUPEMAIL_USERRow As TBPMO_FOLLUPEMAIL_USERRow = CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID(0) + End If + rowTBPMO_FOLLUPEMAIL_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FOLLUPEMAIL_USERRow) + Return rowTBPMO_FOLLUPEMAIL_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLUPEMAIL_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLUPEMAIL_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FOLLUPEMAIL_USERDataTable = CType(MyBase.Clone,TBPMO_FOLLUPEMAIL_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FOLLUPEMAIL_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnFOLLOW_UP_ID = MyBase.Columns("FOLLOW_UP_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnFOLLOW_UP_ID = New Global.System.Data.DataColumn("FOLLOW_UP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnFOLLOW_UP_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FOLLUPEMAIL_USERRow() As TBPMO_FOLLUPEMAIL_USERRow + Return CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FOLLUPEMAIL_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FOLLUPEMAIL_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanged(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanging(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleted(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleting(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FOLLUPEMAIL_USERDataTable" + 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 TBPMO_RECORD_LOG_CONFIGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORD_LOG_CONFIGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONTROL_ID As Global.System.Data.DataColumn + + Private columnLOG_DELETE As Global.System.Data.DataColumn + + Private columnLOG_UPDATE As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnFORM_ID1 As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_RECORD_LOG_CONFIG" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_ID + End Get + End Property + + _ + Public ReadOnly Property LOG_DELETEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_DELETE + End Get + End Property + + _ + Public ReadOnly Property LOG_UPDATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_UPDATE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property FORM_ID1Column() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID1 + End Get + End Property + + _ + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnString + 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 TBPMO_RECORD_LOG_CONFIGRow + Get + Return CType(Me.Rows(index),TBPMO_RECORD_LOG_CONFIGRow) + End Get + End Property + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowChanging As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowChanged As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowDeleting As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowDeleted As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_RECORD_LOG_CONFIGRow(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal FORM_ID As Integer, ByVal NAME As String, ByVal _String As String) As TBPMO_RECORD_LOG_CONFIGRow + Dim rowTBPMO_RECORD_LOG_CONFIGRow As TBPMO_RECORD_LOG_CONFIGRow = CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FORM_ID, NAME, Nothing, _String} + rowTBPMO_RECORD_LOG_CONFIGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RECORD_LOG_CONFIGRow) + Return rowTBPMO_RECORD_LOG_CONFIGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORD_LOG_CONFIGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORD_LOG_CONFIGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_RECORD_LOG_CONFIGDataTable = CType(MyBase.Clone,TBPMO_RECORD_LOG_CONFIGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_RECORD_LOG_CONFIGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") + Me.columnLOG_DELETE = MyBase.Columns("LOG_DELETE") + Me.columnLOG_UPDATE = MyBase.Columns("LOG_UPDATE") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnFORM_ID1 = MyBase.Columns("FORM_ID1") + Me.columnString = MyBase.Columns("String") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONTROL_ID = New Global.System.Data.DataColumn("CONTROL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_ID) + Me.columnLOG_DELETE = New Global.System.Data.DataColumn("LOG_DELETE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_DELETE) + Me.columnLOG_UPDATE = New Global.System.Data.DataColumn("LOG_UPDATE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_UPDATE) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnFORM_ID1 = New Global.System.Data.DataColumn("FORM_ID1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID1) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCONTROL_ID.AllowDBNull = false + Me.columnLOG_DELETE.AllowDBNull = false + Me.columnLOG_DELETE.DefaultValue = CType(false,Boolean) + Me.columnLOG_UPDATE.AllowDBNull = false + Me.columnLOG_UPDATE.DefaultValue = CType(false,Boolean) + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnFORM_ID.AllowDBNull = false + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnFORM_ID1.AutoIncrement = true + Me.columnFORM_ID1.AutoIncrementSeed = -1 + Me.columnFORM_ID1.AutoIncrementStep = -1 + Me.columnFORM_ID1.AllowDBNull = false + Me.columnFORM_ID1.ReadOnly = true + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 203 + End Sub + + _ + Public Function NewTBPMO_RECORD_LOG_CONFIGRow() As TBPMO_RECORD_LOG_CONFIGRow + Return CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_RECORD_LOG_CONFIGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_RECORD_LOG_CONFIGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanged(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanging(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleted(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleting(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_RECORD_LOG_CONFIGDataTable" + 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 VWPMO_RECORD_CHANGESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_RECORD_CHANGESRow) + + Private columnID As Global.System.Data.DataColumn + + Private _columnControl_Name As Global.System.Data.DataColumn + + Private _columnLog_Description As Global.System.Data.DataColumn + + Private columnAdded_who As Global.System.Data.DataColumn + + Private columnAdded_When As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_RECORD_CHANGES" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property _Control_NameColumn() As Global.System.Data.DataColumn + Get + Return Me._columnControl_Name + End Get + End Property + + _ + Public ReadOnly Property _Log_DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me._columnLog_Description + End Get + End Property + + _ + Public ReadOnly Property Added_whoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdded_who + End Get + End Property + + _ + Public ReadOnly Property Added_WhenColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdded_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 VWPMO_RECORD_CHANGESRow + Get + Return CType(Me.Rows(index),VWPMO_RECORD_CHANGESRow) + End Get + End Property + + _ + Public Event VWPMO_RECORD_CHANGESRowChanging As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Event VWPMO_RECORD_CHANGESRowChanged As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Event VWPMO_RECORD_CHANGESRowDeleting As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Event VWPMO_RECORD_CHANGESRowDeleted As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_RECORD_CHANGESRow(ByVal ID As Integer, ByVal _Control_Name As String, ByVal _Log_Description As String, ByVal Added_who As String, ByVal Added_When As Date) As VWPMO_RECORD_CHANGESRow + Dim rowVWPMO_RECORD_CHANGESRow As VWPMO_RECORD_CHANGESRow = CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) + Dim columnValuesArray() As Object = New Object() {ID, _Control_Name, _Log_Description, Added_who, Added_When} + rowVWPMO_RECORD_CHANGESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_RECORD_CHANGESRow) + Return rowVWPMO_RECORD_CHANGESRow + End Function + + _ + Public Function FindByID(ByVal ID As Integer) As VWPMO_RECORD_CHANGESRow + Return CType(Me.Rows.Find(New Object() {ID}),VWPMO_RECORD_CHANGESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_RECORD_CHANGESDataTable = CType(MyBase.Clone,VWPMO_RECORD_CHANGESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_RECORD_CHANGESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me._columnControl_Name = MyBase.Columns("Control-Name") + Me._columnLog_Description = MyBase.Columns("Log-Description") + Me.columnAdded_who = MyBase.Columns("Added who") + Me.columnAdded_When = MyBase.Columns("Added When") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me._columnControl_Name = New Global.System.Data.DataColumn("Control-Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnControl_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnControl_Name") + Me._columnControl_Name.ExtendedProperties.Add("Generator_UserColumnName", "Control-Name") + MyBase.Columns.Add(Me._columnControl_Name) + Me._columnLog_Description = New Global.System.Data.DataColumn("Log-Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnLog_Description.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnLog_Description") + Me._columnLog_Description.ExtendedProperties.Add("Generator_UserColumnName", "Log-Description") + MyBase.Columns.Add(Me._columnLog_Description) + Me.columnAdded_who = New Global.System.Data.DataColumn("Added who", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdded_who) + Me.columnAdded_When = New Global.System.Data.DataColumn("Added When", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdded_When) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) + Me.columnID.AllowDBNull = false + Me.columnID.Unique = true + Me._columnControl_Name.AllowDBNull = false + Me._columnControl_Name.MaxLength = 100 + Me._columnLog_Description.AllowDBNull = false + Me._columnLog_Description.MaxLength = 1000 + Me.columnAdded_who.MaxLength = 100 + End Sub + + _ + Public Function NewVWPMO_RECORD_CHANGESRow() As VWPMO_RECORD_CHANGESRow + Return CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_RECORD_CHANGESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_RECORD_CHANGESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowChanged(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowChanging(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowDeleted(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowDeleting(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_RECORD_CHANGESDataTable" + 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 VWPMO_WF_ACTIVEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_ACTIVERow) + + Private columnWF_TASK_ID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnSTATE_DESC As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTASK_DATE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WF_ACTIVE" + 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_TASK_ID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_DESC + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TASK_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTASK_DATE + 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 VWPMO_WF_ACTIVERow + Get + Return CType(Me.Rows(index),VWPMO_WF_ACTIVERow) + End Get + End Property + + _ + Public Event VWPMO_WF_ACTIVERowChanging As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_ACTIVERowChanged As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_ACTIVERowDeleting As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_ACTIVERowDeleted As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WF_ACTIVERow(ByVal WF_TASK_ID As Integer, ByVal TITLE As String, ByVal RECORD_ID As Integer, ByVal STATE_ID As Integer, ByVal STATE_DESC As String, ByVal COLOR As String, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_ACTIVERow + Dim rowVWPMO_WF_ACTIVERow As VWPMO_WF_ACTIVERow = CType(Me.NewRow,VWPMO_WF_ACTIVERow) + Dim columnValuesArray() As Object = New Object() {WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE} + rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_ACTIVERow) + Return rowVWPMO_WF_ACTIVERow + End Function + + _ + Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_ACTIVERow + Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_ACTIVERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WF_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_ACTIVEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WF_ACTIVEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") + Me.columnCOLOR = MyBase.Columns("COLOR") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") + End Sub + + _ + Private Sub InitClass() + Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TASK_ID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_DESC) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTASK_DATE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) + Me.columnWF_TASK_ID.AllowDBNull = false + Me.columnWF_TASK_ID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnSTATE_ID.AllowDBNull = false + Me.columnSTATE_DESC.AllowDBNull = false + Me.columnSTATE_DESC.MaxLength = 50 + Me.columnCOLOR.MaxLength = 50 + Me.columnCOMMENT.MaxLength = 500 + Me.columnUSERNAME.ReadOnly = true + Me.columnUSERNAME.MaxLength = 1 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WF_ACTIVERow() As VWPMO_WF_ACTIVERow + Return CType(Me.NewRow,VWPMO_WF_ACTIVERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WF_ACTIVERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WF_ACTIVERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WF_ACTIVERowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowChanged(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WF_ACTIVERowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowChanging(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WF_ACTIVERowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowDeleted(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WF_ACTIVERowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowDeleting(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WF_ACTIVEDataTable" + 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 TBDD_EMAIL_ACCOUNTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_ACCOUNTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnEMAIL_FROM As Global.System.Data.DataColumn + + Private columnEMAIL_SMTP As Global.System.Data.DataColumn + + Private columnEMAIL_USER As Global.System.Data.DataColumn + + Private columnEMAIL_PW As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_EMAIL_ACCOUNT" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_FROM + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SMTP + End Get + End Property + + _ + Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_USER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_PW + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_EMAIL_ACCOUNTRow + Get + Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) + End Get + End Property + + _ + Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_ACCOUNTRow + Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) + Return rowTBDD_EMAIL_ACCOUNTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_EMAIL_ACCOUNTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") + Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") + Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") + Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_FROM) + Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SMTP) + Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_USER) + Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_PW) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.MaxLength = 50 + Me.columnEMAIL_FROM.AllowDBNull = false + Me.columnEMAIL_FROM.MaxLength = 100 + Me.columnEMAIL_SMTP.AllowDBNull = false + Me.columnEMAIL_SMTP.MaxLength = 100 + Me.columnEMAIL_USER.AllowDBNull = false + Me.columnEMAIL_USER.MaxLength = 100 + Me.columnEMAIL_PW.AllowDBNull = false + Me.columnEMAIL_PW.MaxLength = 100 + Me.columnACTIVE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow + Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_EMAIL_ACCOUNTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_EMAIL_ACCOUNTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_EMAIL_ACCOUNTDataTable" + 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 TBPMO_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_CONNECTIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATABASE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnAKTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_CONNECTION" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATABASEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATABASE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property AKTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBPMO_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBPMO_CONNECTIONRowChanging As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Event TBPMO_CONNECTIONRowChanged As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Event TBPMO_CONNECTIONRowDeleting As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Event TBPMO_CONNECTIONRowDeleted As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_CONNECTIONRow(ByVal row As TBPMO_CONNECTIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_CONNECTIONRow(ByVal DESCRIPTION As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATABASE As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal COMMENT As String, ByVal AKTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_CONNECTIONRow + Dim rowTBPMO_CONNECTIONRow As TBPMO_CONNECTIONRow = CType(Me.NewRow,TBPMO_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_CONNECTIONRow) + Return rowTBPMO_CONNECTIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Short) As TBPMO_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_CONNECTIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_CONNECTIONDataTable = CType(MyBase.Clone,TBPMO_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_CONNECTIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATABASE = MyBase.Columns("DATABASE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnAKTIVE = MyBase.Columns("AKTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATABASE = New Global.System.Data.DataColumn("DATABASE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATABASE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnAKTIVE = New Global.System.Data.DataColumn("AKTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDESCRIPTION.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 100 + Me.columnSERVER.MaxLength = 150 + Me.columnDATABASE.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 400 + Me.columnAKTIVE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_CONNECTIONRow() As TBPMO_CONNECTIONRow + Return CType(Me.NewRow,TBPMO_CONNECTIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_CONNECTIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_CONNECTIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowChanged(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowChanging(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowDeleted(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowDeleting(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_CONNECTIONRow(ByVal row As TBPMO_CONNECTIONRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_CONNECTIONDataTable" + 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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONSTRUCT_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnLEVEL1_SELECT As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn + + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONSTRUCT_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL1_SELECT + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE1 + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE2 + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME1 + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME2 + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_SEARCH + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN1 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN2 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN3 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN4 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN5 + 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 TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ + ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ + ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As TBPMO_FORMRow, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5} + If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) + End If + If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID(0) + End If + rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") + Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") + Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") + Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") + Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") + Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") + Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") + Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") + Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONSTRUCT_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL1_SELECT) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1) + Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME1) + Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME2) + Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) + Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) + Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) + Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) + Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) + Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCONSTRUCT_ID.AllowDBNull = false + Me.columnFORM_ID.AllowDBNull = false + Me.columnPARENT_ID.AllowDBNull = false + Me.columnLEVEL1_SELECT.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 + Me.columnSQL_SELECT_EBENE2.AllowDBNull = false + Me.columnSQL_SELECT_EBENE2.MaxLength = 4000 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLUMN_NAME1.AllowDBNull = false + Me.columnCOLUMN_NAME1.MaxLength = 100 + Me.columnCOLUMN_NAME2.AllowDBNull = false + Me.columnCOLUMN_NAME2.MaxLength = 100 + Me.columnWINDREAM_SEARCH.MaxLength = 300 + Me.columnSEARCH_PATTERN1.MaxLength = 50 + Me.columnSEARCH_PATTERN2.MaxLength = 50 + Me.columnSEARCH_PATTERN3.MaxLength = 50 + Me.columnSEARCH_PATTERN4.MaxLength = 50 + Me.columnSEARCH_PATTERN5.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" + 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 TBPMO_FORMRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM As TBPMO_FORMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM = CType(Me.Table,TBPMO_FORMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM.GUIDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM.PARENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBPMO_FORM.NAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM.NAMEColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As String + Get + Return CType(Me(Me.tableTBPMO_FORM.LEVELColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM.LEVELColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property SHOW_FORM_CONSTRUCT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM.SHOW_FORM_CONSTRUCTColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM.SHOW_FORM_CONSTRUCTColumn) = value + End Set + End Property + + _ + Public Property FORM_TYPE_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TYPE_ID in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_FORM_TYPE_ID")),TBPMO_FORM_TYPERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_FORM_TYPE_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFORM_TYPE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) + End Function + + _ + Public Sub SetFORM_TYPE_IDNull() + Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORM_VIEWRows() As TBPMO_FORM_VIEWRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID") Is Nothing) Then + Return New TBPMO_FORM_VIEWRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID")),TBPMO_FORM_VIEWRow()) + End If + End Function + + _ + Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID") Is Nothing) Then + Return New TBPMO_WORKFLOW_FORMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_WORKFLOW_FORMRow()) + End If + End Function + + _ + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_CONTROL_SCREENRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_CONTROL_SCREEN As VWPMO_CONTROL_SCREENDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_CONTROL_SCREEN = CType(Me.Table,VWPMO_CONTROL_SCREENDataTable) + End Sub + + _ + Public Property CONTROL_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_IDColumn) = value + End Set + End Property + + _ + Public Property CONTROL_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_NAMEColumn) = value + End Set + End Property + + _ + Public Property CONTROL_REQUIRED() As Boolean + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_REQUIREDColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_REQUIREDColumn) = value + End Set + End Property + + _ + Public Property CONTROL_DEF_VALUE() As String + Get + Try + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONTROL_DEF_VALUE in Tabelle VWPMO_CONTROL_SCREEN ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) = value + End Set + End Property + + _ + Public Property CONTROL_READ_ONLY() As Boolean + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_READ_ONLYColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_READ_ONLYColumn) = value + End Set + End Property + + _ + Public Property CTRLTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property CTRLTYPE_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_NAMEColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_NAMEColumn) = value + End Set + End Property + + _ + Public Property FORM_LEVEL() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_LEVELColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_LEVELColumn) = value + End Set + End Property + + _ + Public Property SCREEN_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_IDColumn) = value + End Set + End Property + + _ + Public Property SCREEN_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_NAMEColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_IDColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_CAPTION() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_CAPTIONColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_CAPTIONColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_X_LOC() As Double + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_X_LOCColumn),Double) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_X_LOCColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_Y_LOC() As Double + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_Y_LOCColumn),Double) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_Y_LOCColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_HEIGHT() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_HEIGHTColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_HEIGHTColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_WIDTH() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_WIDTHColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_WIDTHColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_FAMILY() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_FAMILYColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_FAMILYColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_COLOR() As Long + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_COLORColumn),Long) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_COLORColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_SIZE() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_SIZEColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_SIZEColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_STYLE() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_STYLEColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_STYLEColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_TAB_INDEX() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_INDEXColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_TAB_STOP() As Boolean + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_STOPColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_STOPColumn) = value + End Set + End Property + + _ + Public Function IsCONTROL_DEF_VALUENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) + End Function + + _ + Public Sub SetCONTROL_DEF_VALUENull() + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_VIEWRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_VIEW As TBPMO_FORM_VIEWDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_VIEW = CType(Me.Table,TBPMO_FORM_VIEWDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.GUIDColumn) = value + End Set + End Property + + _ + Public Property SCREEN_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SCREEN_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SCREEN_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.FORM_TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property WIDTH() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) = value + End Set + End Property + + _ + Public Property HEIGHT() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) = value + End Set + End Property + + _ + Public Property DIALOG() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.DIALOGColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.DIALOGColumn) = value + End Set + End Property + + _ + Public Property MAXIMIZABLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAXIMIZABLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MAXIMIZABLEColumn) = value + End Set + End Property + + _ + Public Property MINIMIZABLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MINIMIZABLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MINIMIZABLEColumn) = value + End Set + End Property + + _ + Public Property MAX_WIDTH() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MAX_WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) = value + End Set + End Property + + _ + Public Property MIN_WIDTH() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MIN_WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) = value + End Set + End Property + + _ + Public Property MAX_HEIGHT() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MAX_HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) = value + End Set + End Property + + _ + Public Property MIN_HEIGHT() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MIN_HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) = value + End Set + End Property + + _ + Public Property X_LOC() As Double + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte X_LOC in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) = value + End Set + End Property + + _ + Public Property Y_LOC() As Double + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Y_LOC in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property IS_MDI_CHILD() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.IS_MDI_CHILDColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.IS_MDI_CHILDColumn) = value + End Set + End Property + + _ + Public Property DOCUMENT_VIEW() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.DOCUMENT_VIEWColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.DOCUMENT_VIEWColumn) = value + End Set + End Property + + _ + Public Property WINDREAM_SEARCH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN2() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN3() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN4() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN5() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) = value + End Set + End Property + + _ + Public Property ALLOW_DROP() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.ALLOW_DROPColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.ALLOW_DROPColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORMRow() As TBPMO_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_VIEW_FORM_ID")),TBPMO_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_VIEW_FORM_ID")) + End Set + End Property + + _ + Public Function IsWIDTHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) + End Function + + _ + Public Sub SetWIDTHNull() + Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHEIGHTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) + End Function + + _ + Public Sub SetHEIGHTNull() + Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMAX_WIDTHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) + End Function + + _ + Public Sub SetMAX_WIDTHNull() + Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMIN_WIDTHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) + End Function + + _ + Public Sub SetMIN_WIDTHNull() + Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMAX_HEIGHTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) + End Function + + _ + Public Sub SetMAX_HEIGHTNull() + Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMIN_HEIGHTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) + End Function + + _ + Public Sub SetMIN_HEIGHTNull() + Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsX_LOCNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) + End Function + + _ + Public Sub SetX_LOCNull() + Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsY_LOCNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) + End Function + + _ + Public Sub SetY_LOCNull() + Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWINDREAM_SEARCHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) + End Function + + _ + Public Sub SetWINDREAM_SEARCHNull() + Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN1Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN2Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN3Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN4Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN5Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_RECORDRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_RECORD As TBPMO_RECORDDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_RECORD = CType(Me.Table,TBPMO_RECORDDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD.GUIDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_RECORD.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_RECORD.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_RECORD.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_RECORD.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_RECORD ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RECORD ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID") Is Nothing) Then + Return New VWPMO_WF_USER_ACTIVERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),VWPMO_WF_USER_ACTIVERow()) + End If + End Function + + _ + Public Function GetVWPMO_FOLLOWING_TASKSRows() As VWPMO_FOLLOWING_TASKSRow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1") Is Nothing) Then + Return New VWPMO_FOLLOWING_TASKSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")),VWPMO_FOLLOWING_TASKSRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_DOKUMENTTYPESRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_DOKUMENTTYPES As VWPMO_DOKUMENTTYPESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_DOKUMENTTYPES = CType(Me.Table,VWPMO_DOKUMENTTYPESDataTable) + End Sub + + _ + Public Property FORMVIEW_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORMVIEW_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FORMVIEW_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property DOKUMENTTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property DOKUMENTTYPE() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPEColumn) = value + End Set + End Property + + _ + Public Property PATH() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.PATHColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.PATHColumn) = value + End Set + End Property + + _ + Public Property SHORTNAME() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.SHORTNAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.SHORTNAMEColumn) = value + End Set + End Property + + _ + Public Property OBJECT_TYPE() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.OBJECT_TYPEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.OBJECT_TYPEColumn) = value + End Set + End Property + + _ + Public Property FW_DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FW_DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FW_DOCTYPE_IDColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WD_FVIEW_DT_INDEXRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WD_FVIEW_DT_INDEX As TBPMO_WD_FVIEW_DT_INDEXDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WD_FVIEW_DT_INDEX = CType(Me.Table,TBPMO_WD_FVIEW_DT_INDEXDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.GUIDColumn) = value + End Set + End Property + + _ + Public Property FW_DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.FW_DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.FW_DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property INDEX_VALUE() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEX_VALUEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEX_VALUEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_FVIEW_DT_INDEX ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_FVIEW_DT_INDEX ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOW_TASKRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW_TASK As TBPMO_WORKFLOW_TASKDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW_TASK = CType(Me.Table,TBPMO_WORKFLOW_TASKDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.GUIDColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.WF_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.TITLEColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOW_TASK_STATERow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW_TASK_STATE As TBPMO_WORKFLOW_TASK_STATEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW_TASK_STATE = CType(Me.Table,TBPMO_WORKFLOW_TASK_STATEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn) = value + End Set + End Property + + _ + Public Property STATE_DESC() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOLORNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) + End Function + + _ + Public Sub SetCOLORNull() + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID") Is Nothing) Then + Return New VWPMO_WF_USER_ACTIVERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),VWPMO_WF_USER_ACTIVERow()) + End If + End Function + + _ + Public Function GetVWPMO_FOLLOWING_TASKSRows() As VWPMO_FOLLOWING_TASKSRow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1") Is Nothing) Then + Return New VWPMO_FOLLOWING_TASKSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")),VWPMO_FOLLOWING_TASKSRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_GUI_ENTITYRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_GUI_ENTITY As VWPMO_GUI_ENTITYDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_GUI_ENTITY = CType(Me.Table,VWPMO_GUI_ENTITYDataTable) + End Sub + + _ + Public Property ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_GUI_ENTITY.IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_GUI_ENTITY.IDColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Return CType(Me(Me.tableVWPMO_GUI_ENTITY.NameColumn),String) + End Get + Set + Me(Me.tableVWPMO_GUI_ENTITY.NameColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Return CType(Me(Me.tableVWPMO_GUI_ENTITY.TitleColumn),String) + End Get + Set + Me(Me.tableVWPMO_GUI_ENTITY.TitleColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOWRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW = CType(Me.Table,TBPMO_WORKFLOWDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW.TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.TITLEColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsDESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) + End Function + + _ + Public Sub SetDESCRIPTIONNull() + Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() + If (Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID") Is Nothing) Then + Return New TBPMO_WORKFLOW_FORMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOW_FORMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOW_FORMRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW_FORM = CType(Me.Table,TBPMO_WORKFLOW_FORMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORMRow() As TBPMO_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")) + End Set + End Property + + _ + Public Property TBPMO_WORKFLOWRow() As TBPMO_WORKFLOWRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOWRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")) + End Set + End Property + + _ + Public Function IsSEQUENCENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) + End Function + + _ + Public Sub SetSEQUENCENull() + Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WF_USER_ACTIVERow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WF_USER_ACTIVE = CType(Me.Table,VWPMO_WF_USER_ACTIVEDataTable) + End Sub + + _ + Public Property WF_TASK_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TASK_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = value + End Set + End Property + + _ + Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),TBPMO_RECORDRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")) + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),TBPMO_WORKFLOW_TASK_STATERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTASK_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) + End Function + + _ + Public Sub SetTASK_DATENull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_FOLLOWING_TASKSRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_FOLLOWING_TASKS As VWPMO_FOLLOWING_TASKSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_FOLLOWING_TASKS = CType(Me.Table,VWPMO_FOLLOWING_TASKSDataTable) + End Sub + + _ + Public Property JOB() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte JOB in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) = value + End Set + End Property + + _ + Public Property WF_TASK_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.WF_TASK_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.WF_TASK_IDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.TITLEColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")),TBPMO_RECORDRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")) + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")),TBPMO_WORKFLOW_TASK_STATERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")) + End Set + End Property + + _ + Public Function IsJOBNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) + End Function + + _ + Public Sub SetJOBNull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = CType(Me.Table,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) + End Sub + + _ + Public Property STATE() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATE in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property Authority() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Authority in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) = value + End Set + End Property + + _ + Public Property _String() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.WF_IDColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsSTATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) + End Function + + _ + Public Sub SetSTATENull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAuthorityNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) + End Function + + _ + Public Sub SetAuthorityNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_StringNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) + End Function + + _ + Public Sub Set_StringNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOLORNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) + End Function + + _ + Public Sub SetCOLORNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_DOKUMENTARTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property EINGANGSART_ID() As Byte + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property ZIEL_PFAD() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + End Set + End Property + + _ + Public Property NAMENKONVENTION() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAMENKONVENTION in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property OBJEKTTYP() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + End Set + End Property + + _ + Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENKONVENTIONNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) + End Function + + _ + Public Sub SetNAMENKONVENTIONNull() + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_EINGANGSARTENRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() + If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then + Return New TBDD_DOKUMENTARTRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_DOKUMENTARTRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_AUTOMRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) + End Set + End Property + + _ + Public Property TBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID1")),TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID1")) + End Set + End Property + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) + End Function + + _ + Public Sub SetVALUENull() + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WD_FORMVIEW_DOKTYPES As TBPMO_WD_FORMVIEW_DOKTYPESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = CType(Me.Table,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORMVIEW_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORM_TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID1") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID1")),TBDD_INDEX_AUTOMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_KONFIGURATIONRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_KONFIGURATION As TBPMO_KONFIGURATIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_KONFIGURATION = CType(Me.Table,TBPMO_KONFIGURATIONDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.GUIDColumn) = value + End Set + End Property + + _ + Public Property LICENSE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LICENSE in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) = value + End Set + End Property + + _ + Public Property VEKTOR_DELIMITER() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.VEKTOR_DELIMITERColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.VEKTOR_DELIMITERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_ACTIVEColumn) = value + End Set + End Property + + _ + Public Property EMAIL_FROM() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_FROM in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) = value + End Set + End Property + + _ + Public Property EMAIL_SMTP() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SMTP in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) = value + End Set + End Property + + _ + Public Property EMAIL_USER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_PW() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_PW in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) = value + End Set + End Property + + _ + Public Property EMAIL_REMINDER_HEADER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_HEADER in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_REMINDER_FOOTER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_FOOTER in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = value + End Set + End Property + + _ + Public Property ADMIN_PW() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADMIN_PWColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADMIN_PWColumn) = value + End Set + End Property + + _ + Public Property ADMIN_SECURITY() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADMIN_SECURITYColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property SQL_RECORD_SQL1() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL1Column),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL1Column) = value + End Set + End Property + + _ + Public Property SQL_RECORD_SQL2() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL2Column),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL2Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE1() As Integer + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE1Column),Integer) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE1Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE2() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE2 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE3() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE3 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE4() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE4 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE5() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE5 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) = value + End Set + End Property + + _ + Public Property VERSION_DELIMITER() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.VERSION_DELIMITERColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.VERSION_DELIMITERColumn) = value + End Set + End Property + + _ + Public Property FILE_DELIMITER() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.FILE_DELIMITERColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.FILE_DELIMITERColumn) = value + End Set + End Property + + _ + Public Property WD_UNICODE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WD_UNICODEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WD_UNICODEColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_LOG_ERR_ONLY() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_LOG_ERR_ONLYColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_LOG_ERR_ONLYColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_EMAIL_PROFILE() As Integer + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_EMAIL_PROFILEColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_EMAIL_PROFILEColumn) = value + End Set + End Property + + _ + Public Function IsLICENSENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) + End Function + + _ + Public Sub SetLICENSENull() + Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_FROMNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) + End Function + + _ + Public Sub SetEMAIL_FROMNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_SMTPNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) + End Function + + _ + Public Sub SetEMAIL_SMTPNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_USERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) + End Function + + _ + Public Sub SetEMAIL_USERNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_PWNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) + End Function + + _ + Public Sub SetEMAIL_PWNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) + End Function + + _ + Public Sub SetEMAIL_REMINDER_HEADERNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) + End Function + + _ + Public Sub SetEMAIL_REMINDER_FOOTERNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE2Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE3Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE4Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE5Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_USER As TBDD_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.PRENAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.NAMEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.EMAILColumn) = value + End Set + End Property + + _ + Public Property LOGGED_IN() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_INColumn) = value + End Set + End Property + + _ + Public Property LOGGED_WHERE() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value + End Set + End Property + + _ + Public Property LOG_IN_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value + End Set + End Property + + _ + Public Property LOG_OUT_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property RECORD_ADMIN() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.RECORD_ADMINColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.RECORD_ADMINColumn) = value + End Set + End Property + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOGGED_WHERENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) + End Function + + _ + Public Sub SetLOGGED_WHERENull() + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_IN_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) + End Function + + _ + Public Sub SetLOG_IN_WHENNull() + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_OUT_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) + End Function + + _ + Public Sub SetLOG_OUT_WHENNull() + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + + _ + Public Function GetTBPMO_FOLLUPEMAIL_USERRows() As TBPMO_FOLLUPEMAIL_USERRow() + If (Me.Table.ChildRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID") Is Nothing) Then + Return New TBPMO_FOLLUPEMAIL_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")),TBPMO_FOLLUPEMAIL_USERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_TYPERow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_TYPE As TBPMO_FORM_TYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_TYPE = CType(Me.Table,TBPMO_FORM_TYPEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_TYPE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TYPE() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_TYPE.FORM_TYPEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.FORM_TYPEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORMRows() As TBPMO_FORMRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_FORM_TYPE_ID") Is Nothing) Then + Return New TBPMO_FORMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_FORM_TYPE_ID")),TBPMO_FORMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_USER_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_USERS_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_USERS_GROUPS As VWPMO_USERS_GROUPSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_USERS_GROUPS = CType(Me.Table,VWPMO_USERS_GROUPSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.USER_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.USERNAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) = value + End Set + End Property + + _ + Public Property GROUP_NAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP_NAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGROUP_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) + End Function + + _ + Public Sub SetGROUP_NAMENull() + Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_GROUPS_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) + End Set + End Property + + _ + Public Property TBDD_USERRow() As TBDD_USERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_DOKART_MODULERow + Inherits Global.System.Data.DataRow + + Private tableTBWH_DOKART_MODULE As TBWH_DOKART_MODULEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_DOKART_MODULE = CType(Me.Table,TBWH_DOKART_MODULEDataTable) + End Sub + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_DOKART_MODULE.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_DOKART_MODULE.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_DOKART_MODULE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_DOKART_MODULE.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_MENU() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property MENU_IMG() As Byte() + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value + End Set + End Property + + _ + Public Property SHORT_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value + End Set + End Property + + _ + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + End Function + + _ + Public Sub SetFORM_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMENU_IMGNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) + End Function + + _ + Public Sub SetMENU_IMGNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) + End Function + + _ + Public Sub SetSHORT_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WD_OBJECTTYPERow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WD_OBJECTTYPE As TBPMO_WD_OBJECTTYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WD_OBJECTTYPE = CType(Me.Table,TBPMO_WD_OBJECTTYPEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property OBJECT_TYPE() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.OBJECT_TYPEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.OBJECT_TYPEColumn) = value + End Set + End Property + + _ + Public Property IDXNAME_ENTITYID() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property IDXNAME_PARENTID() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FILES_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FILES_USER As TBPMO_FILES_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FILES_USER = CType(Me.Table,TBPMO_FILES_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property FILENAME2WORK() As String + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.FILENAME2WORKColumn),String) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.FILENAME2WORKColumn) = value + End Set + End Property + + _ + Public Property USER_WORK() As String + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.USER_WORKColumn),String) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.USER_WORKColumn) = value + End Set + End Property + + _ + Public Property HANDLE_TYPE() As String + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.HANDLE_TYPEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.HANDLE_TYPEColumn) = value + End Set + End Property + + _ + Public Property WORKED() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.WORKEDColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.WORKEDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.ADDED_WHENColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WORKFLOW_FORMRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WORKFLOW_FORM As VWPMO_WORKFLOW_FORMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WORKFLOW_FORM = CType(Me.Table,VWPMO_WORKFLOW_FORMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_NAMEColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.WF_IDColumn) = value + End Set + End Property + + _ + Public Property WORKFLOW() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.WORKFLOWColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.WORKFLOWColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Try + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.COLORColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.COLORColumn) = value + End Set + End Property + + _ + Public Function IsSEQUENCENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) + End Function + + _ + Public Sub SetSEQUENCENull() + Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FOLLOW_UP_EMAILRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FOLLOW_UP_EMAIL As TBPMO_FOLLOW_UP_EMAILDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FOLLOW_UP_EMAIL = CType(Me.Table,TBPMO_FOLLOW_UP_EMAILDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.GUIDColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_SEQUENCE() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_SEQUENCEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_DAYS() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_TIME_SPAN() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_TIME_SPANColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_TIME_SPANColumn) = value + End Set + End Property + + _ + Public Property DEPENDENT_DATE_CTRL_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn) = value + End Set + End Property + + _ + Public Property DEPENDENT_DONE_CTRL_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PARENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property TIME_UNITY() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_UNITYColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_UNITYColumn) = value + End Set + End Property + + _ + Public Property TIME_SPAN() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_SPANColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_SPANColumn) = value + End Set + End Property + + _ + Public Property EMAIL_SUBJECT() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_SUBJECTColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_SUBJECTColumn) = value + End Set + End Property + + _ + Public Property EMAIL_BODY() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_BODYColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_BODYColumn) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT1() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT1Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT1Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT2() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT2Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT2Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT3() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT3Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT3Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT4() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT4Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT4Column) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TIME_DIST() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_DISTColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_DISTColumn) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT5() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT5Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT5Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT6() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT6Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT6Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT7() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT7Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT7Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT8() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT8Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT8Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT9() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT9Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT9Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT10() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT10Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT10Column) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.NAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FOLLUPEMAIL_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FOLLUPEMAIL_USER As TBPMO_FOLLUPEMAIL_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FOLLUPEMAIL_USER = CType(Me.Table,TBPMO_FOLLUPEMAIL_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.USER_IDColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_USERRow() As TBDD_USERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")),TBDD_USERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_RECORD_LOG_CONFIGRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_RECORD_LOG_CONFIG As TBPMO_RECORD_LOG_CONFIGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_RECORD_LOG_CONFIG = CType(Me.Table,TBPMO_RECORD_LOG_CONFIGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONTROL_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CONTROL_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CONTROL_IDColumn) = value + End Set + End Property + + _ + Public Property LOG_DELETE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_DELETEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_DELETEColumn) = value + End Set + End Property + + _ + Public Property LOG_UPDATE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_UPDATEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_UPDATEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn) = value + End Set + End Property + + _ + Public Property FORM_ID1() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column) = value + End Set + End Property + + _ + Public Property _String() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_StringNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) + End Function + + _ + Public Sub Set_StringNull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_RECORD_CHANGESRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_RECORD_CHANGES = CType(Me.Table,VWPMO_RECORD_CHANGESDataTable) + End Sub + + _ + Public Property ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES.IDColumn) = value + End Set + End Property + + _ + Public Property _Control_Name() As String + Get + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES._Control_NameColumn),String) + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES._Control_NameColumn) = value + End Set + End Property + + _ + Public Property _Log_Description() As String + Get + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES._Log_DescriptionColumn),String) + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES._Log_DescriptionColumn) = value + End Set + End Property + + _ + Public Property Added_who() As String + Get + Try + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Added who in Tabelle VWPMO_RECORD_CHANGES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) = value + End Set + End Property + + _ + Public Property Added_When() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Added When in Tabelle VWPMO_RECORD_CHANGES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) = value + End Set + End Property + + _ + Public Function IsAdded_whoNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) + End Function + + _ + Public Sub SetAdded_whoNull() + Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAdded_WhenNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) + End Function + + _ + Public Sub SetAdded_WhenNull() + Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WF_ACTIVERow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WF_ACTIVE = CType(Me.Table,VWPMO_WF_ACTIVEDataTable) + End Sub + + _ + Public Property WF_TASK_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_DESC() As String + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn),String) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TASK_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = value + End Set + End Property + + _ + Public Function IsCOLORNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COLORColumn) + End Function + + _ + Public Sub SetCOLORNull() + Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTASK_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) + End Function + + _ + Public Sub SetTASK_DATENull() + Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_EMAIL_ACCOUNTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table,TBDD_EMAIL_ACCOUNTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL_FROM() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn) = value + End Set + End Property + + _ + Public Property EMAIL_SMTP() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn) = value + End Set + End Property + + _ + Public Property EMAIL_USER() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_PW() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_CONNECTION As TBPMO_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_CONNECTION = CType(Me.Table,TBPMO_CONNECTIONDataTable) + End Sub + + _ + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.GUIDColumn),Short) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.GUIDColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) = value + End Set + End Property + + _ + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.SERVERColumn) = value + End Set + End Property + + _ + Public Property DATABASE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.DATABASEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATABASE in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.DATABASEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.COMMENTColumn) = value + End Set + End Property + + _ + Public Property AKTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.AKTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.AKTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsDESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) + End Function + + _ + Public Sub SetDESCRIPTIONNull() + Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableTBPMO_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATABASENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.DATABASEColumn) + End Function + + _ + Public Sub SetDATABASENull() + Me(Me.tableTBPMO_CONNECTION.DATABASEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBPMO_CONNECTION.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONSTRUCT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property LEVEL1_SELECT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLUMN_NAME1() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value + End Set + End Property + + _ + Public Property COLUMN_NAME2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + End Set + End Property + + _ + Public Property WINDREAM_SEARCH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN2() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN3() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN4() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN5() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) + End Set + End Property + + _ + Public Property TBPMO_FORMRow() As TBPMO_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")),TBPMO_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")) + End Set + End Property + + _ + Public Function IsSQL_SELECT_EBENE1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) + End Function + + _ + Public Sub SetSQL_SELECT_EBENE1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWINDREAM_SEARCHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) + End Function + + _ + Public Sub SetWINDREAM_SEARCHNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN2Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN3Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN4Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN5Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_CONTROL_SCREENRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_CONTROL_SCREENRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_CONTROL_SCREENRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_CONTROL_SCREENRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_VIEWRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_VIEWRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_VIEWRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_VIEWRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_RECORDRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_RECORDRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_RECORDRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_RECORDRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_DOKUMENTTYPESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_DOKUMENTTYPESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_DOKUMENTTYPESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_DOKUMENTTYPESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WD_FVIEW_DT_INDEXRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WD_FVIEW_DT_INDEXRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOW_TASKRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOW_TASKRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOW_TASKRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASKRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOW_TASK_STATERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOW_TASK_STATERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOW_TASK_STATERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASK_STATERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_GUI_ENTITYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_GUI_ENTITYRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_GUI_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_GUI_ENTITYRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOWRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOWRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOWRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOWRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOW_FORMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOW_FORMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOW_FORMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOW_FORMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WF_USER_ACTIVERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WF_USER_ACTIVERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WF_USER_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WF_USER_ACTIVERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_FOLLOWING_TASKSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_FOLLOWING_TASKSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_FOLLOWING_TASKSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_FOLLOWING_TASKSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WF_OVERVIEW_AUTHORITYRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WF_OVERVIEW_AUTHORITYRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_DOKUMENTARTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_DOKUMENTARTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_EINGANGSARTENRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EINGANGSARTENRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WD_FORMVIEW_DOKTYPESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WD_FORMVIEW_DOKTYPESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_KONFIGURATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_KONFIGURATIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_KONFIGURATIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_TYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USER_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USER_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USER_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_USERS_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_USERS_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_USERS_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_USERS_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_GROUPS_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GROUPS_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_GROUPS_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_DOKART_MODULERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_DOKART_MODULERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_DOKART_MODULERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTORRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WD_OBJECTTYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WD_OBJECTTYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WD_OBJECTTYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WD_OBJECTTYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FILES_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FILES_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FILES_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FILES_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WORKFLOW_FORMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WORKFLOW_FORMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WORKFLOW_FORMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WORKFLOW_FORMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FOLLOW_UP_EMAILRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FOLLOW_UP_EMAILRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FOLLOW_UP_EMAILRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FOLLOW_UP_EMAILRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FOLLUPEMAIL_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FOLLUPEMAIL_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FOLLUPEMAIL_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FOLLUPEMAIL_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_RECORD_LOG_CONFIGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_RECORD_LOG_CONFIGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_RECORD_LOG_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_RECORD_LOG_CONFIGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_RECORD_CHANGESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_RECORD_CHANGESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_RECORD_CHANGESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_RECORD_CHANGESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WF_ACTIVERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WF_ACTIVERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WF_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WF_ACTIVERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_EMAIL_ACCOUNTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EMAIL_ACCOUNTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_EMAIL_ACCOUNTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_EMAIL_ACCOUNTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DD_DMSDataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SHOW_FORM_CONSTRUCT", "SHOW_FORM_CONSTRUCT") + tableMapping.ColumnMappings.Add("FORM_TYPE_ID", "FORM_TYPE_ID") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ID, NAME, LEVEL, ADDED_W"& _ + "HO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ID,@NAME,@LEVEL,@"& _ + "ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, "& _ + "LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (G"& _ + "UID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ID = @PARENT_ID, NAME = @NAME,"& _ + " LEVEL = @LEVEL, CHANGED_WHO = @CHANGED_WHO, SHOW_FORM_CONSTRUCT = @SHOW_FORM_CO"& _ + "NSTRUCT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FORM_TYPE_ID = @FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ + "GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED"& _ + "_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ + "E (GUID = @GUID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DD_DMSDataSet.TBPMO_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORMDataTable = New DD_DMSDataSet.TBPMO_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByAll(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy() As DD_DMSDataSet.TBPMO_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As DD_DMSDataSet.TBPMO_FORMDataTable = New DD_DMSDataSet.TBPMO_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (LEVEL Is Nothing) Then + Throw New Global.System.ArgumentNullException("LEVEL") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LEVEL,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHOW_FORM_CONSTRUCT,Boolean) + If (FORM_TYPE_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(FORM_TYPE_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal CHANGED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (LEVEL Is Nothing) Then + Throw New Global.System.ArgumentNullException("LEVEL") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LEVEL,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHOW_FORM_CONSTRUCT,Boolean) + If (FORM_TYPE_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FORM_TYPE_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_CONTROL_SCREENTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_CONTROL_SCREEN" + tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") + tableMapping.ColumnMappings.Add("CONTROL_NAME", "CONTROL_NAME") + tableMapping.ColumnMappings.Add("CONTROL_REQUIRED", "CONTROL_REQUIRED") + tableMapping.ColumnMappings.Add("CONTROL_DEF_VALUE", "CONTROL_DEF_VALUE") + tableMapping.ColumnMappings.Add("CONTROL_READ_ONLY", "CONTROL_READ_ONLY") + tableMapping.ColumnMappings.Add("CTRLTYPE_ID", "CTRLTYPE_ID") + tableMapping.ColumnMappings.Add("CTRLTYPE_NAME", "CTRLTYPE_NAME") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_NAME", "FORM_NAME") + tableMapping.ColumnMappings.Add("FORM_LEVEL", "FORM_LEVEL") + tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") + tableMapping.ColumnMappings.Add("SCREEN_NAME", "SCREEN_NAME") + tableMapping.ColumnMappings.Add("CTRLSCR_ID", "CTRLSCR_ID") + tableMapping.ColumnMappings.Add("CTRLSCR_CAPTION", "CTRLSCR_CAPTION") + tableMapping.ColumnMappings.Add("CTRLSCR_X_LOC", "CTRLSCR_X_LOC") + tableMapping.ColumnMappings.Add("CTRLSCR_Y_LOC", "CTRLSCR_Y_LOC") + tableMapping.ColumnMappings.Add("CTRLSCR_HEIGHT", "CTRLSCR_HEIGHT") + tableMapping.ColumnMappings.Add("CTRLSCR_WIDTH", "CTRLSCR_WIDTH") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_FAMILY", "CTRLSCR_FONT_FAMILY") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_COLOR", "CTRLSCR_FONT_COLOR") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_SIZE", "CTRLSCR_FONT_SIZE") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_STYLE", "CTRLSCR_FONT_STYLE") + tableMapping.ColumnMappings.Add("CTRLSCR_TAB_INDEX", "CTRLSCR_TAB_INDEX") + tableMapping.ColumnMappings.Add("CTRLSCR_TAB_STOP", "CTRLSCR_TAB_STOP") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONT"& _ + "ROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREE"& _ + "N_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLS"& _ + "CR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTR"& _ + "LSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRLSCR_FONT_STYL"& _ + "E, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_CONTROL_SCREEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (FORM_ID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable = New DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_VIEWTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_VIEW" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") + tableMapping.ColumnMappings.Add("HEIGHT", "HEIGHT") + tableMapping.ColumnMappings.Add("DIALOG", "DIALOG") + tableMapping.ColumnMappings.Add("MAXIMIZABLE", "MAXIMIZABLE") + tableMapping.ColumnMappings.Add("MINIMIZABLE", "MINIMIZABLE") + tableMapping.ColumnMappings.Add("MAX_WIDTH", "MAX_WIDTH") + tableMapping.ColumnMappings.Add("MIN_WIDTH", "MIN_WIDTH") + tableMapping.ColumnMappings.Add("MAX_HEIGHT", "MAX_HEIGHT") + tableMapping.ColumnMappings.Add("MIN_HEIGHT", "MIN_HEIGHT") + tableMapping.ColumnMappings.Add("X_LOC", "X_LOC") + tableMapping.ColumnMappings.Add("Y_LOC", "Y_LOC") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("IS_MDI_CHILD", "IS_MDI_CHILD") + tableMapping.ColumnMappings.Add("DOCUMENT_VIEW", "DOCUMENT_VIEW") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + tableMapping.ColumnMappings.Add("ALLOW_DROP", "ALLOW_DROP") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SCREEN_ID, FORM_ID, FORM_T"& _ + "ITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, M"& _ + "IN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SCRE"& _ + "EN_ID,@FORM_ID,@FORM_TITLE,@DESCRIPTION,@WIDTH,@HEIGHT,@DIALOG,@MAXIMIZABLE,@MIN"& _ + "IMIZABLE,@MAX_WIDTH,@MIN_WIDTH,@MAX_HEIGHT,@MIN_HEIGHT,@X_LOC,@Y_LOC,@ADDED_WHO)"& _ + "; "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIA"& _ + "LOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_L"& _ + "OC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_VIEW"& _ + " WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SCREEN_ID = @SCREEN_ID, FORM_ID "& _ + "= @FORM_ID, FORM_TITLE = @FORM_TITLE, DESCRIPTION = @DESCRIPTION, WIDTH = @WIDTH"& _ + ", HEIGHT = @HEIGHT, DIALOG = @DIALOG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MAXIMIZABLE = @"& _ + "MAXIMIZABLE, MINIMIZABLE = @MINIMIZABLE, MAX_WIDTH = @MAX_WIDTH, MIN_WIDTH = @MI"& _ + "N_WIDTH, MAX_HEIGHT = @MAX_HEIGHT, MIN_HEIGHT = @MIN_HEIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " X_LOC = @X_LOC, Y_LOC = @Y_LOC, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIP"& _ + "TION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX"& _ + "_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ + "HEN FROM TBPMO_FORM_VIEW WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ + "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ + " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ + " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ + "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ + "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY FORM_TITLE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ + "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ + " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ + " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ + "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ + "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW where FORM_ID = @FORMID and "& _ + "SCREEN_ID = 1" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByFORMID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable, ByVal FORMID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy(ByVal FORMID As Integer) As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_VIEW") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal SCREEN_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal FORM_TITLE As String, _ + ByVal DESCRIPTION As String, _ + ByVal WIDTH As Global.System.Nullable(Of Short), _ + ByVal HEIGHT As Global.System.Nullable(Of Short), _ + ByVal DIALOG As Boolean, _ + ByVal MAXIMIZABLE As Boolean, _ + ByVal MINIMIZABLE As Boolean, _ + ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal X_LOC As Global.System.Nullable(Of Double), _ + ByVal Y_LOC As Global.System.Nullable(Of Double), _ + ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) + If (FORM_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FORM_TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + If (WIDTH.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (HEIGHT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(DIALOG,Boolean) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) + If (MAX_WIDTH.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (MIN_WIDTH.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (MAX_HEIGHT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (MIN_HEIGHT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (X_LOC.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(13).Value = CType(X_LOC.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Y_LOC.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal SCREEN_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal FORM_TITLE As String, _ + ByVal DESCRIPTION As String, _ + ByVal WIDTH As Global.System.Nullable(Of Short), _ + ByVal HEIGHT As Global.System.Nullable(Of Short), _ + ByVal DIALOG As Boolean, _ + ByVal MAXIMIZABLE As Boolean, _ + ByVal MINIMIZABLE As Boolean, _ + ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal X_LOC As Global.System.Nullable(Of Double), _ + ByVal Y_LOC As Global.System.Nullable(Of Double), _ + ByVal CHANGED_WHO As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) + If (FORM_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FORM_TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + If (WIDTH.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (HEIGHT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DIALOG,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) + If (MAX_WIDTH.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (MIN_WIDTH.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (MAX_HEIGHT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (MIN_HEIGHT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (X_LOC.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(X_LOC.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Y_LOC.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_RECORDTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_RECORD" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_RECORD] WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @O"& _ + "riginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANG"& _ + "ED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)"& _ + ") AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] "& _ + "= @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_RECORD] ([ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WH"& _ + "EN]) VALUES (@ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID"& _ + " = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ + "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Or"& _ + "iginal_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Origin"& _ + "al_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHA"& _ + "NGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_"& _ + "WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = @G"& _ + "UID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @RECORD_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable, ByVal RECORD_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.TBPMO_RECORDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable = New DD_DMSDataSet.TBPMO_RECORDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_RECORD") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_DOKUMENTTYPESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_DOKUMENTTYPES" + tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("DOKUMENTTYPE_ID", "DOKUMENTTYPE_ID") + tableMapping.ColumnMappings.Add("DOKUMENTTYPE", "DOKUMENTTYPE") + tableMapping.ColumnMappings.Add("PATH", "PATH") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") + tableMapping.ColumnMappings.Add("FW_DOCTYPE_ID", "FW_DOCTYPE_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PA"& _ + "TH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_DOKUMENTTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (FORMVIEW_ID = @ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DOKUMENTTYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable = New DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WD_FVIEW_DT_INDEXTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WD_FVIEW_DT_INDEX" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FW_DOCTYPE_ID", "FW_DOCTYPE_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("INDEX_VALUE", "INDEX_VALUE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE (([GUID] = @Original_GUID) AND ([FW_D"& _ + "OCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AN"& _ + "D ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO"& _ + ") AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [C"& _ + "HANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_C"& _ + "HANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANG"& _ + "ED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_WD_FVIEW_DT_INDEX] ([FW_DOCTYPE_ID], [INDEXNAME], [INDEX_VALUE"& _ + "], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@FW_DOCTYPE"& _ + "_ID, @INDEXNAME, @INDEX_VALUE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_W"& _ + "HEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN"& _ + ", CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = SCOPE_IDE"& _ + "NTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME"& _ + "] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_W"& _ + "HEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN"& _ + " WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID"& _ + ") AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_V"& _ + "ALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDE"& _ + "D_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WH"& _ + "O] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] I"& _ + "S NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FW_DOCTYPE"& _ + "_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR"& _ + "OM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN,"& _ + " CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_FVIEW_DT_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (FW_DOCTYPE_ID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable = New DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WD_FVIEW_DT_INDEX") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FW_DOCTYPE_ID,Integer) + If (Original_INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEXNAME") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String) + End If + If (Original_INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_INDEX_VALUE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FW_DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEX_VALUE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEX_VALUE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal FW_DOCTYPE_ID As Integer, _ + ByVal INDEXNAME As String, _ + ByVal INDEX_VALUE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_FW_DOCTYPE_ID As Integer, _ + ByVal Original_INDEXNAME As String, _ + ByVal Original_INDEX_VALUE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FW_DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEX_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEX_VALUE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FW_DOCTYPE_ID,Integer) + If (Original_INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_INDEXNAME,String) + End If + If (Original_INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_INDEX_VALUE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_FW_DOCTYPE_ID, Original_INDEXNAME, Original_INDEX_VALUE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOW_TASKTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TOP (1) TBPMO_WORKFLOW_TASK.GUID, TBPMO_WORKFLOW_TASK.RECORD_ID, TB"& _ + "PMO_WORKFLOW_TASK.WF_ID, TBPMO_WORKFLOW_TASK.COMMENT, TBPMO_WORKFLOW_TASK.DUE_DA"& _ + "TE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORKFLOW_TASK.STATE_ID, TBPMO_WORKFLOW_TASK"& _ + ".ACTIVE, TBPMO_WORKFLOW_TASK.ADDED_WHEN, TBPMO_WORKFLOW_TASK.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW_TASK.CHANGED_WHEN, TBPMO_WORKFLOW.TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M TBPMO_WORKFLOW_TASK INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORK"& _ + "FLOW ON TBPMO_WORKFLOW_TASK.WF_ID = TBPMO_WORKFLOW.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WOR"& _ + "KFLOW_TASK.RECORD_ID = @RECID) AND (TBPMO_WORKFLOW_TASK.ACTIVE = 1) AND (TBPMO_W"& _ + "ORKFLOW_TASK.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WORKFL"& _ + "OW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KONFIGURAT"& _ + "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1)))" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ACTIVE = 1, CHANGED_WHO = @C"& _ + "HANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET COMMENT = @COMMENT, DUE_DATE"& _ + " = @DUE_DATE, STATE_ID = @STATE_ID, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"& _ + ", TASK_DATE = @TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUE_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "DUE_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TASK_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "TASK_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable, ByVal RECID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmdsetActive(ByVal CHANGED_WHO As String, ByVal RECORD_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (CHANGED_WHO Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(CHANGED_WHO,String) + End If + command.Parameters(1).Value = CType(RECORD_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdUpdate(ByVal COMMENT As String, ByVal DUE_DATE As String, ByVal STATE_ID As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal TASK_DATE As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (COMMENT Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(COMMENT,String) + End If + If (DUE_DATE Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(DUE_DATE,String) + End If + command.Parameters(2).Value = CType(STATE_ID,Integer) + command.Parameters(3).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value + Else + command.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (TASK_DATE Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value + Else + command.Parameters(5).Value = CType(TASK_DATE,String) + End If + command.Parameters(6).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOW_TASK_STATETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK_STATE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW_TASK_STATE] WHERE (([GUID] = @Original_GUID) AND ([ST"& _ + "ATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ + "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + ") AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COLOR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_WORKFLOW_TASK_STATE] ([STATE_DESC], [ADDED_WHO], [ADDED_WHEN],"& _ + " [CHANGED_WHO], [CHANGED_WHEN], [COLOR]) VALUES (@STATE_DESC, @ADDED_WHO, @ADDED"& _ + "_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLOR);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STATE_DESC, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR FROM TBPMO_WORKFLOW_TASK_STATE WH"& _ + "ERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_WORKFLOW_TASK_STATE] SET [STATE_DESC] = @STATE_DESC, [ADDED_WHO] = "& _ + "@ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_W"& _ + "HEN] = @CHANGED_WHEN, [COLOR] = @COLOR WHERE (([GUID] = @Original_GUID) AND ([ST"& _ + "ATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ + "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + ") AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR)));"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COL"& _ + "OR FROM TBPMO_WORKFLOW_TASK_STATE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COLOR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WORKFLOW_TASK_STATE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK_ST"& _ + "ATE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW_TASK_STATE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_STATE_DESC") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_STATE_DESC,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Original_COLOR Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_COLOR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String) As Integer + If (STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("STATE_DESC") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(STATE_DESC,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (COLOR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(COLOR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String, ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String, ByVal GUID As Integer) As Integer + If (STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("STATE_DESC") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(STATE_DESC,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (COLOR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COLOR,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + If (Original_STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_STATE_DESC") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_STATE_DESC,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Original_COLOR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_COLOR,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String, ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String) As Integer + Return Me.Update(STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR, Original_GUID, Original_STATE_DESC, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_COLOR, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_GUI_ENTITYTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_GUI_ENTITY" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("Name", "Name") + tableMapping.ColumnMappings.Add("Title", "Title") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT ID, Name, Title"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_GUI_ENTITY" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable = New DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOWTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Ori"& _ + "ginal_TITLE) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCR"& _ + "IPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ + "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + "))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, DESCRIPTION, ADDED_W"& _ + "HO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@DESCRIPTION,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, DESCR"& _ + "IPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW WHE"& _ + "RE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, DESCRIPTION = @DE"& _ + "SCRIPTION, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ + "ELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBPMO_WORKFLOW WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WORKFLOW.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WORKFLOWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable = New DD_DMSDataSet.TBPMO_WORKFLOWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_TITLE As String, ByVal Original_DESCRIPTION As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TITLE,String) + End If + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal DESCRIPTION As String, ByVal ADDED_WHO As String) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal DESCRIPTION As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOW_FORMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW_FORM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_ID, WF_ID, SEQUEN"& _ + "CE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_ID,@WF_ID,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ + "UID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBPMO_WORKFLOW_FORM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_ID = @FORM_ID, WF_ID = "& _ + "@WF_ID, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @"& _ + "Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FORM_ID = @FOR"& _ + "M_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable, ByVal FORM_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal FORM_ID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW_FORM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(WF_ID,Integer) + If (SEQUENCE.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(WF_ID,Integer) + If (SEQUENCE.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WF_USER_ACTIVETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WF_USER_ACTIVE" + tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ + "ENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_W"& _ + "HEN, T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.G"& _ + "UID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV AS VWPM"& _ + "O_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " (SELECT WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (GUID = 1))) AND (T2.ACTIVE = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ + "ENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_W"& _ + "HEN, T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.G"& _ + "UID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV AS VWPM"& _ + "O_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " (SELECT WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (GUID = 1))) AND (T2.RECORD_ID = @RECORD_ID) AND (T2.ACTIVE ="& _ + " 1)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER As String) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByRecordID(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER As String, ByVal RECORD_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByRecordID(ByVal USER As String, ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_FOLLOWING_TASKSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_FOLLOWING_TASKS" + tableMapping.ColumnMappings.Add("JOB", "JOB") + tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T4.VALUE AS JOB, T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2."& _ + "STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_"& _ + "WHO, T2.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " VWPMO_VALUES AS T4 ON T2.RECORD_ID = T4.RECORD_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (T4.CONTROL_ID = 10) AND (T2.GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SEL"& _ + "ECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM VWPMO_WF_U"& _ + "SER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TAS"& _ + "K_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ + " VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (UPPER(USERNAME) = UPPER(@U"& _ + "SER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT W"& _ + "ORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KONFI"& _ + "GURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1))) AND (T2.RECOR"& _ + "D_ID = @RECORD_ID) AND (T2.ACTIVE = 1) AND (T2.GUID <> @TASK_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TASK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_TASK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable, ByVal USER As String, ByVal RECORD_ID As Integer, ByVal TASK_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(TASK_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER As String, ByVal RECORD_ID As Integer, ByVal TASK_ID As Integer) As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(TASK_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable = New DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WF_OVERVIEW_AUTHORITY" + tableMapping.ColumnMappings.Add("STATE", "STATE") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("Authority", "Authority") + tableMapping.ColumnMappings.Add("String", "String") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT WF_ID, RECORD_ID, STATE, STATE_ID, Authority, String, COLOR, CHANGE"& _ + "D_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_OVERVIEW_AUTHORITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ + "RECORD_ID = @RECORDID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORDID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable, ByVal RECORDID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECORDID As Integer) As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable = New DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_DOKUMENTART" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ + "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ + "KTTYP)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHR"& _ + "EIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICH"& _ + "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,"& _ + " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHE"& _ + "RE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ + "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ + "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ + "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID,"& _ + " KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELL"& _ + "TWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _ + "G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _ + ", OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _ + "G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _ + ", OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM"& _ + " TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _ + " (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByPMO(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByPMO() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_EINGANGSARTENTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_EINGANGSARTEN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ + "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ + "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @B"& _ + "ESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEAN"& _ + "DERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Orig"& _ + "inal_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUN"& _ + "G = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) "& _ + "AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERST"& _ + "ELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERT"& _ + "WER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWAN"& _ + "N] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ + "ICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FRO"& _ + "M TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BESCHREIBUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDER"& _ + "TWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable = New DD_DMSDataSet.TBDD_EINGANGSARTENDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal GUID As Byte) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + End If + If (ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEANDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Byte) + If (Original_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_BESCHREIBUNG,String) + End If + If (Original_ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ERSTELLTWER,String) + End If + If (Original_ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GEANDERTWER,String) + End If + If (Original_GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_BESCHREIBUNG, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_AUTOMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_INDEX_AUTOM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID]"& _ + " = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_V"& _ + "ALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_I"& _ + "D] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) O"& _ + "R ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED"& _ + "_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@Is"& _ + "Null_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CH"& _ + "ANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHAN"& _ + "GED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VALUE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ + "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@IND"& _ + "EXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYP"& _ + "E_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ + "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ + "MMENT, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALU"& _ + "E, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ + "HEN FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AU"& _ + "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DocTypeID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocTypeID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable, ByVal DocTypeID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DocTypeID As Integer) As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) + Dim dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable = New DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_VALUE As String, ByVal Original_CONNECTION_ID As Short, ByVal Original_COMMENT As String, ByVal Original_ACTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DOCTYPE_ID,Integer) + If (Original_INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEXNAME") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String) + End If + If (Original_VALUE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VALUE,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CONNECTION_ID,Short) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WD_FORMVIEW_DOKTYPES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_FORMVIEW_DOKTYPES.GUID, TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIE"& _ + "W_ID, TBPMO_FORM_VIEW.FORM_TITLE, TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_DOKUMENTART.BEZEICHNUNG, TBPMO_WD_FORMVIEW_DOKTYPES.ADD"& _ + "ED_WHO, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHEN, TBPMO_WD_FORMVIEW_DOKTYPES.CHANGE"& _ + "D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_WD_FORMVIEW_DOKTYPES INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO"& _ + "_FORM_VIEW ON TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID = TBPMO_FORM_VIEW.GUID INNE"& _ + "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART ON TBPMO_WD_FORMVIEW_DOKTYPES."& _ + "DOCTYPE_ID = TBDD_DOKUMENTART.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WD_FORMVIEW_DOKTYPES.DOC"& _ + "TYPE_ID = @DOC_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORMVIEW_ID, DO"& _ + "CTYPE_ID, OBJECT_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORMVIEW_ID,@DOCTYPE_ID,@OBJE"& _ + "CT_TYPE,@ADDED_WHO)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMVIEW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable, ByVal DOC_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOC_ID As Integer) As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable = New DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmdInsert(ByVal FORMVIEW_ID As Integer, ByVal DOCTYPE_ID As Integer, ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(FORMVIEW_ID,Integer) + command.Parameters(1).Value = CType(DOCTYPE_ID,Integer) + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Else + command.Parameters(2).Value = CType(OBJECT_TYPE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + command.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function DeleteQuery(ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_KONFIGURATIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_KONFIGURATION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") + tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") + tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") + tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") + tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SQL_RECORD_SQL1", "SQL_RECORD_SQL1") + tableMapping.ColumnMappings.Add("SQL_RECORD_SQL2", "SQL_RECORD_SQL2") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE1", "WORKFLOW_FINAL_STATE1") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE2", "WORKFLOW_FINAL_STATE2") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE3", "WORKFLOW_FINAL_STATE3") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE4", "WORKFLOW_FINAL_STATE4") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE5", "WORKFLOW_FINAL_STATE5") + tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") + tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") + tableMapping.ColumnMappings.Add("WD_UNICODE", "WD_UNICODE") + tableMapping.ColumnMappings.Add("FOLLOW_UP_LOG_ERR_ONLY", "FOLLOW_UP_LOG_ERR_ONLY") + tableMapping.ColumnMappings.Add("FOLLOW_UP_EMAIL_PROFILE", "FOLLOW_UP_EMAIL_PROFILE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE, VEKTOR_D"& _ + "ELIMITER = @VEKTOR_DELIMITER, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_"& _ + "FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " EMAIL_PW = @EMAIL_PW, EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL"& _ + "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, ADMIN_PW = @ADMIN_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " ADMIN_SECURITY = @ADMIN_SECURITY, CHANGED_WHO = @CHANGED_WHO, SQL_RE"& _ + "CORD_SQL1 = @SQL_RECORD_SQL1, SQL_RECORD_SQL2 = @SQL_RECORD_SQL2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WORKFLOW_FINAL_STATE1 = @WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STAT"& _ + "E2 = @WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3 = @WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WORKFLOW_FINAL_STATE4 = @WORKFLOW_FINAL_STATE4, WORKFLOW"& _ + "_FINAL_STATE5 = @WORKFLOW_FINAL_STATE5, VERSION_DELIMITER = @VERSION_DELIMITER, "& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FILE_DELIMITER = @FILE_DELIMITER, WD_UNICODE = @WD_UN"& _ + "ICODE, FOLLOW_UP_LOG_ERR_ONLY = @FOLLOW_UP_LOG_ERR_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FOLLOW_UP_EMAIL_PROFILE = @FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Or"& _ + "iginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FRO"& _ + "M, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTE"& _ + "R, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ + "QL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, W"& _ + "ORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELI"& _ + "MITER, FILE_DELIMITER FROM TBPMO_KONFIGURATION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_SECURITY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_SECURITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL1", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL2", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE1", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE2", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE3", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE4", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE5", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_UNICODE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_UNICODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ + "TP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW"& _ + ", ADMIN_SECURITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW"& _ + "_FINAL_STATE2, WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WORKFLOW_FINAL_"& _ + "STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FO"& _ + "LLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_KONFIGURATI"& _ + "ON" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_KONFIGURATION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal LICENSE As String, _ + ByVal VEKTOR_DELIMITER As String, _ + ByVal EMAIL_ACTIVE As Boolean, _ + ByVal EMAIL_FROM As String, _ + ByVal EMAIL_SMTP As String, _ + ByVal EMAIL_USER As String, _ + ByVal EMAIL_PW As String, _ + ByVal EMAIL_REMINDER_HEADER As String, _ + ByVal EMAIL_REMINDER_FOOTER As String, _ + ByVal ADMIN_PW As String, _ + ByVal ADMIN_SECURITY As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal SQL_RECORD_SQL1 As String, _ + ByVal SQL_RECORD_SQL2 As String, _ + ByVal WORKFLOW_FINAL_STATE1 As Integer, _ + ByVal WORKFLOW_FINAL_STATE2 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE3 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE4 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE5 As Global.System.Nullable(Of Integer), _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal WD_UNICODE As Boolean, _ + ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ + ByVal FOLLOW_UP_EMAIL_PROFILE As Integer, _ + ByVal Original_GUID As Byte, _ + ByVal GUID As Byte) As Integer + If (LICENSE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LICENSE,String) + End If + If (VEKTOR_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VEKTOR_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VEKTOR_DELIMITER,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_ACTIVE,Boolean) + If (EMAIL_FROM Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_PW,String) + End If + If (EMAIL_REMINDER_HEADER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(EMAIL_REMINDER_HEADER,String) + End If + If (EMAIL_REMINDER_FOOTER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_REMINDER_FOOTER,String) + End If + If (ADMIN_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADMIN_PW") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADMIN_PW,String) + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADMIN_SECURITY,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) + End If + If (SQL_RECORD_SQL1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL1") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_RECORD_SQL1,String) + End If + If (SQL_RECORD_SQL2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL2") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SQL_RECORD_SQL2,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WORKFLOW_FINAL_STATE1,Integer) + If (WORKFLOW_FINAL_STATE2.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(WORKFLOW_FINAL_STATE2.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (WORKFLOW_FINAL_STATE3.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORKFLOW_FINAL_STATE3.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (WORKFLOW_FINAL_STATE4.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WORKFLOW_FINAL_STATE4.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (WORKFLOW_FINAL_STATE5.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WORKFLOW_FINAL_STATE5.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + If (VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(VERSION_DELIMITER,String) + End If + If (FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILE_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FILE_DELIMITER,String) + End If + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WD_UNICODE,Boolean) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(FOLLOW_UP_LOG_ERR_ONLY,Boolean) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(FOLLOW_UP_EMAIL_PROFILE,Integer) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Byte) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdSetLicense(ByVal LICENSE As String, ByVal Original_GUID As Byte) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (LICENSE Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(LICENSE,String) + End If + command.Parameters(1).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") + tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") + tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") + tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("RECORD_ADMIN", "RECORD_ADMIN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ + "LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,"& _ + "@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NA"& _ + "ME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_"& _ + "ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GU"& _ + "ID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ + "NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _ + "HANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, "& _ + "USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMI"& _ + "N, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID ="& _ + " @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ + "IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ + "_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_RECORD_ORG = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_USERDataTable = New DD_DMSDataSet.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_TYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_TYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TYPE", "FORM_TYPE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] ="& _ + " @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] "& _ + "= @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL)"& _ + " OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND "& _ + "[CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _ + "UES (@FORM_TYPE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_W"& _ + "HEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE (GUID = SCOPE_IDENTITY"& _ + "())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TYPE = @FORM_TYPE, CHANGED_"& _ + "WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TY"& _ + "PE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE "& _ + "(GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_TYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable = New DD_DMSDataSet.TBPMO_FORM_TYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_TYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TYPE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FORM_TYPE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FORM_TYPE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String) As Integer + If (FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TYPE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FORM_TYPE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TYPE,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USER_GROUPSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_USER_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _ + "HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ + "ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO,"& _ + " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _ + ")" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_USER_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USER_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable = New DD_DMSDataSet.TBDD_USER_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_USERS_GROUPSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_USERS_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT VWPMO_USERS_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_USERS_GROUPS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable = New DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_GROUPS_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_GROUPS_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ + "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _ + "ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _ + "ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _ + "] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _ + "N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _ + "" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN],"& _ + " [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @ADDED_WHO, @ADDED_"& _ + "WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, "& _ + "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_"& _ + "IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [ADDE"& _ + "D_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, ["& _ + "CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ + "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _ + "ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _ + "ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _ + "] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _ + "N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _ + ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ + "HEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_GROUPS_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable = New DD_DMSDataSet.TBDD_GROUPS_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GROUP_ID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GROUP_ID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_DOKART_MODULETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_DOKART_MODULE" + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("NAME", "NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_MODULES.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ + "DD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART_MODULE ON T"& _ + "BDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.G"& _ + "UID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_DOKUMENTART.GUID = @DokID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOKART_ID, MODULE_"& _ + "ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID, 0)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable, ByVal DokID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DokID As Integer) As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + Dim dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable = New DD_DMSDataSet.TBWH_DOKART_MODULEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function InsertDokartModule(ByVal DOK_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(DOK_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") + tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_CONSTRUCTOR] WHERE (([GUID] = @Original_GUID) AND ((@IsNu"& _ + "ll_FORM_TITLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TI"& _ + "TLE)) AND ([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Origin"& _ + "al_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WH"& _ + "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND"& _ + " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or"& _ + "iginal_CHANGED_WHEN)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) O"& _ + "R ([SHORT_TITLE] = @Original_SHORT_TITLE)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FORM_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FORM_CONSTRUCTOR] ([FORM_TITLE], [SEQUENCE_MENU], [ADDED_WHO],"& _ + " [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [MENU_IMG], [SHORT_TITLE]) VALUES "& _ + "(@FORM_TITLE, @SEQUENCE_MENU, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WH"& _ + "EN, @MENU_IMG, @SHORT_TITLE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_C"& _ + "ONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FORM_CONSTRUCTOR] SET [FORM_TITLE] = @FORM_TITLE, [SEQUENCE_MENU] ="& _ + " @SEQUENCE_MENU, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ + "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [MENU_IMG] = @MENU_IMG, [SH"& _ + "ORT_TITLE] = @SHORT_TITLE WHERE (([GUID] = @Original_GUID) AND ((@IsNull_FORM_TI"& _ + "TLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TITLE)) AND "& _ + "([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Original_ADDED_W"& _ + "HO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND "& _ + "[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull"& _ + "_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA"& _ + "NGED_WHEN)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) OR ([SHORT_"& _ + "TITLE] = @Original_SHORT_TITLE)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDE"& _ + "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_F"& _ + "ORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FORM_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_CONSTRUCTOR.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TITLE As String, ByVal Original_SEQUENCE_MENU As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_SHORT_TITLE As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FORM_TITLE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_TITLE,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SEQUENCE_MENU,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (Original_SHORT_TITLE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SHORT_TITLE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(MENU_IMG,Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORT_TITLE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal FORM_TITLE As String, _ + ByVal SEQUENCE_MENU As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal MENU_IMG() As Byte, _ + ByVal SHORT_TITLE As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_FORM_TITLE As String, _ + ByVal Original_SEQUENCE_MENU As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_SHORT_TITLE As String, _ + ByVal GUID As Integer) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(MENU_IMG,Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORT_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + If (Original_FORM_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_FORM_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE_MENU,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (Original_SHORT_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_SHORT_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal FORM_TITLE As String, _ + ByVal SEQUENCE_MENU As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal MENU_IMG() As Byte, _ + ByVal SHORT_TITLE As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_FORM_TITLE As String, _ + ByVal Original_SEQUENCE_MENU As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_SHORT_TITLE As String) As Integer + Return Me.Update(FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, Original_GUID, Original_FORM_TITLE, Original_SEQUENCE_MENU, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_SHORT_TITLE, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WD_OBJECTTYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WD_OBJECTTYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") + tableMapping.ColumnMappings.Add("IDXNAME_ENTITYID", "IDXNAME_ENTITYID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("IDXNAME_PARENTID", "IDXNAME_PARENTID") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TYPE, IDXNAME_E"& _ + "NTITYID, IDXNAME_PARENTID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TYPE,@IDXNAME_ENTI"& _ + "TYID,@IDXNAME_PARENTID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID"& _ + ", IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_"& _ + "WD_OBJECTTYPE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TYPE = @OBJECT_TYPE, "& _ + "IDXNAME_ENTITYID = @IDXNAME_ENTITYID, IDXNAME_PARENTID = @IDXNAME_PARENTID, CHAN"& _ + "GED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJ"& _ + "ECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ + ", CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_OBJECTTYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_OBJECTTYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable = New DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WD_OBJECTTYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal ADDED_WHO As String) As Integer + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) + End If + If (IDXNAME_ENTITYID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) + End If + If (IDXNAME_PARENTID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) + End If + If (IDXNAME_ENTITYID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) + End If + If (IDXNAME_PARENTID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FILES_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FILES_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FILENAME2WORK", "FILENAME2WORK") + tableMapping.ColumnMappings.Add("USER_WORK", "USER_WORK") + tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE") + tableMapping.ColumnMappings.Add("WORKED", "WORKED") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WO"& _ + "RK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HAN"& _ + "DLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED"& _ + "_WHEN] = @Original_ADDED_WHEN))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FILES_USER] ([FILENAME2WORK], [USER_WORK], [HANDLE_TYPE], [WOR"& _ + "KED], [ADDED_WHEN]) VALUES (@FILENAME2WORK, @USER_WORK, @HANDLE_TYPE, @WORKED, @"& _ + "ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_"& _ + "WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FILES_USER] SET [FILENAME2WORK] = @FILENAME2WORK, [USER_WORK] = @US"& _ + "ER_WORK, [HANDLE_TYPE] = @HANDLE_TYPE, [WORKED] = @WORKED, [ADDED_WHEN] = @ADDED"& _ + "_WHEN WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME"& _ + "2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HA"& _ + "NDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED"& _ + "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN"& _ + " FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "select * from TBPMO_FILES_USER where UPPER(USER_WORK) = UPPER(@USER)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) " + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "INSERT INTO TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILENAME2WORK, USER_WORK,"& _ + " HANDLE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILENAME2WORK,@USER_WORK,@HANDLE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES"& _ + "_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "UPDATE TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WORKED = @WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, W"& _ + "ORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable, ByVal USER As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER As String) As DD_DMSDataSet.TBPMO_FILES_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Dim dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable = New DD_DMSDataSet.TBPMO_FILES_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FILES_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WORKED,Boolean) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As Integer + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(WORKED,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(WORKED,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_HANDLE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_WORKED,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Return Me.Update(FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN, Original_GUID, Original_FILENAME2WORK, Original_USER_WORK, Original_HANDLE_TYPE, Original_WORKED, Original_ADDED_WHEN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdDelete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + command.Parameters(1).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + command.Parameters(2).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + command.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) + End If + command.Parameters(4).Value = CType(Original_WORKED,Boolean) + command.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdInsert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + command.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + command.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + command.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdsetworked(ByVal WORKED As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(WORKED,Boolean) + command.Parameters(1).Value = CType(Original_GUID,Integer) + command.Parameters(2).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WORKFLOW_FORMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WORKFLOW_FORM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_NAME", "FORM_NAME") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("WORKFLOW", "WORKFLOW") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "select * from VWPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable, ByVal FORM_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal FORM_ID As Integer) As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable = New DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FOLLOW_UP_EMAILTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FOLLOW_UP_EMAIL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FOLLOW_UP_SEQUENCE", "FOLLOW_UP_SEQUENCE") + tableMapping.ColumnMappings.Add("FOLLOW_UP_DAYS", "FOLLOW_UP_DAYS") + tableMapping.ColumnMappings.Add("FOLLOW_UP_TIME_SPAN", "FOLLOW_UP_TIME_SPAN") + tableMapping.ColumnMappings.Add("DEPENDENT_DATE_CTRL_ID", "DEPENDENT_DATE_CTRL_ID") + tableMapping.ColumnMappings.Add("DEPENDENT_DONE_CTRL_ID", "DEPENDENT_DONE_CTRL_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("TIME_UNITY", "TIME_UNITY") + tableMapping.ColumnMappings.Add("TIME_SPAN", "TIME_SPAN") + tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("EMAIL_BODY", "EMAIL_BODY") + tableMapping.ColumnMappings.Add("PROCESS_SELECT1", "PROCESS_SELECT1") + tableMapping.ColumnMappings.Add("PROCESS_SELECT2", "PROCESS_SELECT2") + tableMapping.ColumnMappings.Add("PROCESS_SELECT3", "PROCESS_SELECT3") + tableMapping.ColumnMappings.Add("PROCESS_SELECT4", "PROCESS_SELECT4") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TIME_DIST", "TIME_DIST") + tableMapping.ColumnMappings.Add("PROCESS_SELECT5", "PROCESS_SELECT5") + tableMapping.ColumnMappings.Add("PROCESS_SELECT6", "PROCESS_SELECT6") + tableMapping.ColumnMappings.Add("PROCESS_SELECT7", "PROCESS_SELECT7") + tableMapping.ColumnMappings.Add("PROCESS_SELECT8", "PROCESS_SELECT8") + tableMapping.ColumnMappings.Add("PROCESS_SELECT9", "PROCESS_SELECT9") + tableMapping.ColumnMappings.Add("PROCESS_SELECT10", "PROCESS_SELECT10") + tableMapping.ColumnMappings.Add("NAME", "NAME") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FOLLOW_UP_SEQUENCE, "& _ + "FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL"& _ + "_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4,"& _ + " ACTIVE, ADDED_WHO, TIME_DIST, NAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FOLLOW_UP_SEQUENCE,@FOLLOW"& _ + "_UP_DAYS,@FOLLOW_UP_TIME_SPAN,@DEPENDENT_DATE_CTRL_ID,@DEPENDENT_DONE_CTRL_ID,@P"& _ + "ARENT_ID,@TIME_UNITY,@TIME_SPAN,@EMAIL_SUBJECT,@EMAIL_BODY,@PROCESS_SELECT1,@PRO"& _ + "CESS_SELECT2,@PROCESS_SELECT3,@PROCESS_SELECT4,@ACTIVE,@ADDED_WHO,@TIME_DIST,@NA"& _ + "ME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, D"& _ + "EPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN,"& _ + " EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, P"& _ + "ROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB"& _ + "PMO_FOLLOW_UP_EMAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FOLLOW_UP_SEQUENCE = @FOLL"& _ + "OW_UP_SEQUENCE, FOLLOW_UP_DAYS = @FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN = @FOLLOW_"& _ + "UP_TIME_SPAN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DEPENDENT_DATE_CTRL_ID = @DEPENDENT_DAT"& _ + "E_CTRL_ID, DEPENDENT_DONE_CTRL_ID = @DEPENDENT_DONE_CTRL_ID, PARENT_ID = @PARENT"& _ + "_ID, TIME_UNITY = @TIME_UNITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TIME_SPAN = @TIME_SPAN"& _ + ", EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY = @EMAIL_BODY, PROCESS_SELECT1 = @P"& _ + "ROCESS_SELECT1, PROCESS_SELECT2 = @PROCESS_SELECT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" P"& _ + "ROCESS_SELECT3 = @PROCESS_SELECT3, PROCESS_SELECT4 = @PROCESS_SELECT4, ACTIVE = "& _ + "@ACTIVE, CHANGED_WHO = @CHANGED_WHO, TIME_DIST = @TIME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT5 = @PROCESS_SELECT5, PROCESS_SELECT6 = @PROCESS_SELECT6, "& _ + "PROCESS_SELECT7 = @PROCESS_SELECT7, PROCESS_SELECT8 = @PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT9 = @PROCESS_SELECT9, PROCESS_SELECT10 = @PROCE"& _ + "SS_SELECT10, NAME = @NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_I"& _ + "D, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAI"& _ + "L_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTI"& _ + "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL "& _ + "WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT5", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT6", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT7", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT8", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT9", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT10", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPE"& _ + "NDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, TI"& _ + "ME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, "& _ + "PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, PROCESS_SELECT5, PROCESS_SELE"& _ + "CT6, PROCESS_SELECT7, PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PROCESS_SELECT"& _ + "9, PROCESS_SELECT10, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, N"& _ + "AME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLOW_UP_EMAIL" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable = New DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FOLLOW_UP_EMAIL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal TIME_DIST As String, _ + ByVal NAME As String) As Integer + If (FOLLOW_UP_SEQUENCE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) + End If + If (FOLLOW_UP_DAYS Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) + End If + If (FOLLOW_UP_TIME_SPAN Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PARENT_ID,Integer) + If (TIME_UNITY Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_UNITY") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(TIME_UNITY,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(EMAIL_BODY,String) + End If + If (PROCESS_SELECT1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) + End If + If (PROCESS_SELECT2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) + End If + If (PROCESS_SELECT3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) + End If + If (PROCESS_SELECT4 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) + End If + Me.Adapter.InsertCommand.Parameters(14).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) + End If + If (TIME_DIST Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_DIST") + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(TIME_DIST,String) + End If + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(NAME,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal TIME_DIST As String, _ + ByVal PROCESS_SELECT5 As String, _ + ByVal PROCESS_SELECT6 As String, _ + ByVal PROCESS_SELECT7 As String, _ + ByVal PROCESS_SELECT8 As String, _ + ByVal PROCESS_SELECT9 As String, _ + ByVal PROCESS_SELECT10 As String, _ + ByVal NAME As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + If (FOLLOW_UP_SEQUENCE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) + End If + If (FOLLOW_UP_DAYS Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) + End If + If (FOLLOW_UP_TIME_SPAN Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PARENT_ID,Integer) + If (TIME_UNITY Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_UNITY") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TIME_UNITY,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EMAIL_BODY,String) + End If + If (PROCESS_SELECT1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) + End If + If (PROCESS_SELECT2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) + End If + If (PROCESS_SELECT3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) + End If + If (PROCESS_SELECT4 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) + End If + If (TIME_DIST Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_DIST") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(TIME_DIST,String) + End If + If (PROCESS_SELECT5 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT5") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(PROCESS_SELECT5,String) + End If + If (PROCESS_SELECT6 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT6") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PROCESS_SELECT6,String) + End If + If (PROCESS_SELECT7 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT7") + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PROCESS_SELECT7,String) + End If + If (PROCESS_SELECT8 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT8") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(PROCESS_SELECT8,String) + End If + If (PROCESS_SELECT9 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT9") + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(PROCESS_SELECT9,String) + End If + If (PROCESS_SELECT10 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT10") + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(PROCESS_SELECT10,String) + End If + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FOLLUPEMAIL_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FOLLUPEMAIL_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("FOLLOW_UP_ID", "FOLLOW_UP_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, FOLLOW_UP_"& _ + "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@FOLLOW_UP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _ + "BPMO_FOLLUPEMAIL_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, FOLLO"& _ + "W_UP_ID = @FOLLOW_UP_ID, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ + "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_"& _ + "WHO, CHANGED_WHEN FROM TBPMO_FOLLUPEMAIL_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FOLLUPEMAIL_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLUPEMAIL_USER" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable = New DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FOLLUPEMAIL_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_RECORD_LOG_CONFIGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_RECORD_LOG_CONFIG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") + tableMapping.ColumnMappings.Add("LOG_DELETE", "LOG_DELETE") + tableMapping.ColumnMappings.Add("LOG_UPDATE", "LOG_UPDATE") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("FORM_ID1", "FORM_ID1") + tableMapping.ColumnMappings.Add("String", "String") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, LOG_DE"& _ + "LETE, LOG_UPDATE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@LOG_DELETE,@LOG_UPDATE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONTROL_ID = @CONTROL_ID"& _ + ", LOG_DELETE = @LOG_DELETE, LOG_UPDATE = @LOG_UPDATE, CHANGED_WHO = @CHANGED_WHO"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, LOG_DELETE, "& _ + "LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG W"& _ + "HERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_RECORD_LOG_CONFIG.GUID, TBPMO_RECORD_LOG_CONFIG.CONTROL_ID, T"& _ + "BPMO_RECORD_LOG_CONFIG.LOG_DELETE, TBPMO_RECORD_LOG_CONFIG.LOG_UPDATE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_RECORD_LOG_CONFIG.ADDED_WHEN, TBPMO_RECORD_LOG_CONFIG.CH"& _ + "ANGED_WHO, TBPMO_RECORD_LOG_CONFIG.CHANGED_WHEN, TBPMO_CONTROL.FORM_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_FORM.GUID AS FORM_ID, TBPMO_FORM.NAME, TBPMO_FORM.NAME "& _ + "+ ' - ' + TBPMO_CONTROL.NAME AS String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RECORD_LOG_CONFIG "& _ + "INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_CONTROL ON TBPMO_RECORD_LOG_CONFIG.CO"& _ + "NTROL_ID = TBPMO_CONTROL.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM ON"& _ + " TBPMO_CONTROL.FORM_ID = TBPMO_FORM.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBPMO_FORM.NAME, TBPMO_CONTRO"& _ + "L.NAME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable = New DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_RECORD_LOG_CONFIG") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_RECORD_CHANGESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_RECORD_CHANGES" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("Control-Name", "Control-Name") + tableMapping.ColumnMappings.Add("Log-Description", "Log-Description") + tableMapping.ColumnMappings.Add("Added who", "Added who") + tableMapping.ColumnMappings.Add("Added When", "Added When") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID AS ID, NAME AS [Control-Name], LOG_DESCRIPTION AS [Log-Descrip"& _ + "tion], ADDED_WHO AS [Added who], ADDED_WHEN AS [Added When]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWP"& _ + "MO_RECORD_CHANGES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable, ByVal RECORD_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable = New DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WF_ACTIVETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WF_ACTIVE" + tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT,"& _ + " DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM VWPMO_"& _ + "WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (UPPER(USERNAME) <"& _ + "> UPPER(@USERNAME))))" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT,"& _ + " DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @REC_ID) AND (WF_TASK_ID NOT I"& _ + "N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE"& _ + " (UPPER(USERNAME) <> UPPER(@USERNAME))))" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByRecord(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal REC_ID As Integer, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(REC_ID,Integer) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByRecord(ByVal REC_ID As Integer, ByVal USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(REC_ID,Integer) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) + End If + Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_EMAIL_ACCOUNTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_EMAIL_ACCOUNT" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _ + "_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMAIL_FRO"& _ + "M,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EM"& _ + "AIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ + "ED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _ + "MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _ + "_PW, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ + "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTI"& _ + "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHE"& _ + "RE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_EMAIL_ACCOUNT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_ACCOUNT" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable = New DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_ACCOUNT") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_FROM") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SMTP") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_USER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_PW") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_PW,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_FROM") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SMTP") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_USER") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_PW") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_PW,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_CONNECTIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_CONNECTION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATABASE", "DATABASE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("AKTIVE", "AKTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DES"& _ + "CRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTIO"& _ + "N)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER"& _ + "] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ("& _ + "[SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL)"& _ + " OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME]"& _ + " IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND ["& _ + "PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT ="& _ + " 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @O"& _ + "riginal_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Ori"& _ + "ginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR (["& _ + "CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANG"& _ + "ED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_CONNECTION] ([DESCRIPTION], [SQL_PROVIDER], [SERVER], [DATABAS"& _ + "E], [USERNAME], [PASSWORD], [COMMENT], [AKTIVE], [ADDED_WHO], [ADDED_WHEN], [CHA"& _ + "NGED_WHO], [CHANGED_WHEN]) VALUES (@DESCRIPTION, @SQL_PROVIDER, @SERVER, @DATABA"& _ + "SE, @USERNAME, @PASSWORD, @COMMENT, @AKTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_W"& _ + "HO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE],"& _ + " USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN FROM TBPMO_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL"& _ + "_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, ["& _ + "PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @"& _ + "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ + "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION ="& _ + " 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND (("& _ + "@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Origi"& _ + "nal_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] ="& _ + " @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATA"& _ + "BASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) "& _ + "OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] "& _ + "IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [CO"& _ + "MMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AK"& _ + "TIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDE"& _ + "D_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WH"& _ + "O] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] I"& _ + "S NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTIO"& _ + "N, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_"& _ + "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_CONNECTION WHERE (GUID = @"& _ + "GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_CONNECTION" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable = New DD_DMSDataSet.TBPMO_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_CONNECTION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_DESCRIPTION As String, ByVal Original_SQL_PROVIDER As String, ByVal Original_SERVER As String, ByVal Original_DATABASE As String, ByVal Original_USERNAME As String, ByVal Original_PASSWORD As String, ByVal Original_COMMENT As String, ByVal Original_AKTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_SQL_PROVIDER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SQL_PROVIDER,String) + End If + If (Original_SERVER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SERVER,String) + End If + If (Original_DATABASE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DATABASE,String) + End If + If (Original_USERNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_USERNAME,String) + End If + If (Original_PASSWORD Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PASSWORD,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_AKTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DESCRIPTION As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATABASE As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal COMMENT As String, ByVal AKTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (DESCRIPTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DESCRIPTION,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATABASE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATABASE,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal DESCRIPTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATABASE As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal COMMENT As String, _ + ByVal AKTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATABASE As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_AKTIVE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Short) As Integer + If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATABASE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATABASE,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Short) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SQL_PROVIDER,String) + End If + If (Original_SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SERVER,String) + End If + If (Original_DATABASE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DATABASE,String) + End If + If (Original_USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_USERNAME,String) + End If + If (Original_PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_PASSWORD,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal DESCRIPTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATABASE As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal COMMENT As String, _ + ByVal AKTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATABASE As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_AKTIVE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_DESCRIPTION, Original_SQL_PROVIDER, Original_SERVER, Original_DATABASE, Original_USERNAME, Original_PASSWORD, Original_COMMENT, Original_AKTIVE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") + tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_CONSTRUCTOR_DETAIL] WHERE (([GUID] = @Original_GUID) AND "& _ + "([CONSTRUCT_ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AN"& _ + "D ([PARENT_ID] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SE"& _ + "LECT) AND ([SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 "& _ + "AND [SQL_SELECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_"& _ + "EBENE1)) AND ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_A"& _ + "DDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AN"& _ + "D ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANG"& _ + "ED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANG"& _ + "ED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_W"& _ + "HEN)) AND ([COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Origi"& _ + "nal_COLUMN_NAME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NUL"& _ + "L) OR ([WINDREAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATT"& _ + "ERN1 = 1 AND [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH"& _ + "_PATTERN1)) AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR "& _ + "([SEARCH_PATTERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 ="& _ + " 1 AND [SEARCH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTE"& _ + "RN3)) AND ((@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEAR"& _ + "CH_PATTERN4] = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND"& _ + " [SEARCH_PATTERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5)))"& _ + "" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WINDREAM_SEARCH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FORM_CONSTRUCTOR_DETAIL] ([CONSTRUCT_ID], [FORM_ID], [PARENT_I"& _ + "D], [LEVEL1_SELECT], [SEQUENCE], [SQL_SELECT_EBENE1], [SQL_SELECT_EBENE2], [ADDE"& _ + "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COLUMN_NAME1], [COLUMN_NAM"& _ + "E2], [WINDREAM_SEARCH], [SEARCH_PATTERN1], [SEARCH_PATTERN2], [SEARCH_PATTERN3],"& _ + " [SEARCH_PATTERN4], [SEARCH_PATTERN5]) VALUES (@CONSTRUCT_ID, @FORM_ID, @PARENT_"& _ + "ID, @LEVEL1_SELECT, @SEQUENCE, @SQL_SELECT_EBENE1, @SQL_SELECT_EBENE2, @ADDED_WH"& _ + "O, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLUMN_NAME1, @COLUMN_NAME2, @WIND"& _ + "REAM_SEARCH, @SEARCH_PATTERN1, @SEARCH_PATTERN2, @SEARCH_PATTERN3, @SEARCH_PATTE"& _ + "RN4, @SEARCH_PATTERN5);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_S"& _ + "ELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CH"& _ + "ANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PAT"& _ + "TERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM T"& _ + "BPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FORM_CONSTRUCTOR_DETAIL] SET [CONSTRUCT_ID] = @CONSTRUCT_ID, [FORM_"& _ + "ID] = @FORM_ID, [PARENT_ID] = @PARENT_ID, [LEVEL1_SELECT] = @LEVEL1_SELECT, [SEQ"& _ + "UENCE] = @SEQUENCE, [SQL_SELECT_EBENE1] = @SQL_SELECT_EBENE1, [SQL_SELECT_EBENE2"& _ + "] = @SQL_SELECT_EBENE2, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [C"& _ + "HANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COLUMN_NAME1] = @CO"& _ + "LUMN_NAME1, [COLUMN_NAME2] = @COLUMN_NAME2, [WINDREAM_SEARCH] = @WINDREAM_SEARCH"& _ + ", [SEARCH_PATTERN1] = @SEARCH_PATTERN1, [SEARCH_PATTERN2] = @SEARCH_PATTERN2, [S"& _ + "EARCH_PATTERN3] = @SEARCH_PATTERN3, [SEARCH_PATTERN4] = @SEARCH_PATTERN4, [SEARC"& _ + "H_PATTERN5] = @SEARCH_PATTERN5 WHERE (([GUID] = @Original_GUID) AND ([CONSTRUCT_"& _ + "ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ([PARENT_I"& _ + "D] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SELECT) AND (["& _ + "SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 AND [SQL_SEL"& _ + "ECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_EBENE1)) AND"& _ + " ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_ADDED_WHO = 1"& _ + " AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ([ADDED_WH"& _ + "EN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ + "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ + "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND (["& _ + "COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Original_COLUMN_N"& _ + "AME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NULL) OR ([WIND"& _ + "REAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATTERN1 = 1 AND"& _ + " [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH_PATTERN1)) "& _ + "AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR ([SEARCH_PAT"& _ + "TERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 = 1 AND [SEAR"& _ + "CH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTERN3)) AND (("& _ + "@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEARCH_PATTERN4]"& _ + " = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND [SEARCH_PAT"& _ + "TERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1"& _ + ", SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NA"& _ + "ME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PAT"& _ + "TERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE"& _ + " (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WINDREAM_SEARCH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ + "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _ + "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _ + "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONSTRUCT_ID = @"& _ + "CONSTRUCT_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal CONSTRUCT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal CONSTRUCT_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_CONSTRUCT_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_PARENT_ID As Integer, _ + ByVal Original_LEVEL1_SELECT As Boolean, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_SQL_SELECT_EBENE1 As String, _ + ByVal Original_SQL_SELECT_EBENE2 As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_COLUMN_NAME1 As String, _ + ByVal Original_COLUMN_NAME2 As String, _ + ByVal Original_WINDREAM_SEARCH As String, _ + ByVal Original_SEARCH_PATTERN1 As String, _ + ByVal Original_SEARCH_PATTERN2 As String, _ + ByVal Original_SEARCH_PATTERN3 As String, _ + ByVal Original_SEARCH_PATTERN4 As String, _ + ByVal Original_SEARCH_PATTERN5 As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CONSTRUCT_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PARENT_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_LEVEL1_SELECT,Boolean) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SEQUENCE,Integer) + If (Original_SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_SQL_SELECT_EBENE1,String) + End If + If (Original_SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SQL_SELECT_EBENE2") + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_SQL_SELECT_EBENE2,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (Original_COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME1") + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_COLUMN_NAME1,String) + End If + If (Original_COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME2") + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_COLUMN_NAME2,String) + End If + If (Original_WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_WINDREAM_SEARCH,String) + End If + If (Original_SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_SEARCH_PATTERN1,String) + End If + If (Original_SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_SEARCH_PATTERN2,String) + End If + If (Original_SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_SEARCH_PATTERN3,String) + End If + If (Original_SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_SEARCH_PATTERN4,String) + End If + If (Original_SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_SEARCH_PATTERN5,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(COLUMN_NAME1,String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(COLUMN_NAME2,String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(WINDREAM_SEARCH,String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN1,String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN2,String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(SEARCH_PATTERN3,String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(SEARCH_PATTERN4,String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(SEARCH_PATTERN5,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_CONSTRUCT_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_PARENT_ID As Integer, _ + ByVal Original_LEVEL1_SELECT As Boolean, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_SQL_SELECT_EBENE1 As String, _ + ByVal Original_SQL_SELECT_EBENE2 As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_COLUMN_NAME1 As String, _ + ByVal Original_COLUMN_NAME2 As String, _ + ByVal Original_WINDREAM_SEARCH As String, _ + ByVal Original_SEARCH_PATTERN1 As String, _ + ByVal Original_SEARCH_PATTERN2 As String, _ + ByVal Original_SEARCH_PATTERN3 As String, _ + ByVal Original_SEARCH_PATTERN4 As String, _ + ByVal Original_SEARCH_PATTERN5 As String, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(COLUMN_NAME1,String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(COLUMN_NAME2,String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(WINDREAM_SEARCH,String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN1,String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN2,String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(SEARCH_PATTERN3,String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SEARCH_PATTERN4,String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SEARCH_PATTERN5,String) + End If + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CONSTRUCT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PARENT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_LEVEL1_SELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_SEQUENCE,Integer) + If (Original_SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_SQL_SELECT_EBENE1,String) + End If + If (Original_SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SQL_SELECT_EBENE2") + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_SQL_SELECT_EBENE2,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + End If + If (Original_COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_COLUMN_NAME1,String) + End If + If (Original_COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME2") + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_COLUMN_NAME2,String) + End If + If (Original_WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_WINDREAM_SEARCH,String) + End If + If (Original_SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_SEARCH_PATTERN1,String) + End If + If (Original_SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_SEARCH_PATTERN2,String) + End If + If (Original_SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_SEARCH_PATTERN3,String) + End If + If (Original_SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_SEARCH_PATTERN4,String) + End If + If (Original_SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_SEARCH_PATTERN5,String) + End If + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_CONSTRUCT_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_PARENT_ID As Integer, _ + ByVal Original_LEVEL1_SELECT As Boolean, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_SQL_SELECT_EBENE1 As String, _ + ByVal Original_SQL_SELECT_EBENE2 As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_COLUMN_NAME1 As String, _ + ByVal Original_COLUMN_NAME2 As String, _ + ByVal Original_WINDREAM_SEARCH As String, _ + ByVal Original_SEARCH_PATTERN1 As String, _ + ByVal Original_SEARCH_PATTERN2 As String, _ + ByVal Original_SEARCH_PATTERN3 As String, _ + ByVal Original_SEARCH_PATTERN4 As String, _ + ByVal Original_SEARCH_PATTERN5 As String) As Integer + Return Me.Update(CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, Original_GUID, Original_CONSTRUCT_ID, Original_FORM_ID, Original_PARENT_ID, Original_LEVEL1_SELECT, Original_SEQUENCE, Original_SQL_SELECT_EBENE1, Original_SQL_SELECT_EBENE2, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_COLUMN_NAME1, Original_COLUMN_NAME2, Original_WINDREAM_SEARCH, Original_SEARCH_PATTERN1, Original_SEARCH_PATTERN2, Original_SEARCH_PATTERN3, Original_SEARCH_PATTERN4, Original_SEARCH_PATTERN5, Original_GUID) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBPMO_FORMTableAdapter As TBPMO_FORMTableAdapter + + Private _tBPMO_FORM_VIEWTableAdapter As TBPMO_FORM_VIEWTableAdapter + + Private _tBPMO_RECORDTableAdapter As TBPMO_RECORDTableAdapter + + Private _tBPMO_WD_FVIEW_DT_INDEXTableAdapter As TBPMO_WD_FVIEW_DT_INDEXTableAdapter + + Private _tBPMO_WORKFLOW_TASK_STATETableAdapter As TBPMO_WORKFLOW_TASK_STATETableAdapter + + Private _tBPMO_WORKFLOWTableAdapter As TBPMO_WORKFLOWTableAdapter + + Private _tBPMO_WORKFLOW_FORMTableAdapter As TBPMO_WORKFLOW_FORMTableAdapter + + Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter + + Private _tBDD_EINGANGSARTENTableAdapter As TBDD_EINGANGSARTENTableAdapter + + Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter + + Private _tBPMO_KONFIGURATIONTableAdapter As TBPMO_KONFIGURATIONTableAdapter + + Private _tBDD_USERTableAdapter As TBDD_USERTableAdapter + + Private _tBPMO_FORM_TYPETableAdapter As TBPMO_FORM_TYPETableAdapter + + Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter + + Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter + + Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter + + Private _tBPMO_WD_OBJECTTYPETableAdapter As TBPMO_WD_OBJECTTYPETableAdapter + + Private _tBPMO_FILES_USERTableAdapter As TBPMO_FILES_USERTableAdapter + + Private _tBPMO_FOLLOW_UP_EMAILTableAdapter As TBPMO_FOLLOW_UP_EMAILTableAdapter + + Private _tBPMO_FOLLUPEMAIL_USERTableAdapter As TBPMO_FOLLUPEMAIL_USERTableAdapter + + Private _tBPMO_RECORD_LOG_CONFIGTableAdapter As TBPMO_RECORD_LOG_CONFIGTableAdapter + + Private _tBDD_EMAIL_ACCOUNTTableAdapter As TBDD_EMAIL_ACCOUNTTableAdapter + + Private _tBPMO_CONNECTIONTableAdapter As TBPMO_CONNECTIONTableAdapter + + Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBPMO_FORMTableAdapter() As TBPMO_FORMTableAdapter + Get + Return Me._tBPMO_FORMTableAdapter + End Get + Set + Me._tBPMO_FORMTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_VIEWTableAdapter() As TBPMO_FORM_VIEWTableAdapter + Get + Return Me._tBPMO_FORM_VIEWTableAdapter + End Get + Set + Me._tBPMO_FORM_VIEWTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_RECORDTableAdapter() As TBPMO_RECORDTableAdapter + Get + Return Me._tBPMO_RECORDTableAdapter + End Get + Set + Me._tBPMO_RECORDTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WD_FVIEW_DT_INDEXTableAdapter() As TBPMO_WD_FVIEW_DT_INDEXTableAdapter + Get + Return Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter + End Get + Set + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_TASK_STATETableAdapter() As TBPMO_WORKFLOW_TASK_STATETableAdapter + Get + Return Me._tBPMO_WORKFLOW_TASK_STATETableAdapter + End Get + Set + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WORKFLOWTableAdapter() As TBPMO_WORKFLOWTableAdapter + Get + Return Me._tBPMO_WORKFLOWTableAdapter + End Get + Set + Me._tBPMO_WORKFLOWTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_FORMTableAdapter() As TBPMO_WORKFLOW_FORMTableAdapter + Get + Return Me._tBPMO_WORKFLOW_FORMTableAdapter + End Get + Set + Me._tBPMO_WORKFLOW_FORMTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter + Get + Return Me._tBDD_DOKUMENTARTTableAdapter + End Get + Set + Me._tBDD_DOKUMENTARTTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_EINGANGSARTENTableAdapter() As TBDD_EINGANGSARTENTableAdapter + Get + Return Me._tBDD_EINGANGSARTENTableAdapter + End Get + Set + Me._tBDD_EINGANGSARTENTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter + Get + Return Me._tBDD_INDEX_AUTOMTableAdapter + End Get + Set + Me._tBDD_INDEX_AUTOMTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_KONFIGURATIONTableAdapter() As TBPMO_KONFIGURATIONTableAdapter + Get + Return Me._tBPMO_KONFIGURATIONTableAdapter + End Get + Set + Me._tBPMO_KONFIGURATIONTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter + Get + Return Me._tBDD_USERTableAdapter + End Get + Set + Me._tBDD_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_TYPETableAdapter() As TBPMO_FORM_TYPETableAdapter + Get + Return Me._tBPMO_FORM_TYPETableAdapter + End Get + Set + Me._tBPMO_FORM_TYPETableAdapter = value + End Set + End Property + + _ + Public Property TBDD_USER_GROUPSTableAdapter() As TBDD_USER_GROUPSTableAdapter + Get + Return Me._tBDD_USER_GROUPSTableAdapter + End Get + Set + Me._tBDD_USER_GROUPSTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_GROUPS_USERTableAdapter() As TBDD_GROUPS_USERTableAdapter + Get + Return Me._tBDD_GROUPS_USERTableAdapter + End Get + Set + Me._tBDD_GROUPS_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter + End Get + Set + Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WD_OBJECTTYPETableAdapter() As TBPMO_WD_OBJECTTYPETableAdapter + Get + Return Me._tBPMO_WD_OBJECTTYPETableAdapter + End Get + Set + Me._tBPMO_WD_OBJECTTYPETableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FILES_USERTableAdapter() As TBPMO_FILES_USERTableAdapter + Get + Return Me._tBPMO_FILES_USERTableAdapter + End Get + Set + Me._tBPMO_FILES_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FOLLOW_UP_EMAILTableAdapter() As TBPMO_FOLLOW_UP_EMAILTableAdapter + Get + Return Me._tBPMO_FOLLOW_UP_EMAILTableAdapter + End Get + Set + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FOLLUPEMAIL_USERTableAdapter() As TBPMO_FOLLUPEMAIL_USERTableAdapter + Get + Return Me._tBPMO_FOLLUPEMAIL_USERTableAdapter + End Get + Set + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_RECORD_LOG_CONFIGTableAdapter() As TBPMO_RECORD_LOG_CONFIGTableAdapter + Get + Return Me._tBPMO_RECORD_LOG_CONFIGTableAdapter + End Get + Set + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_EMAIL_ACCOUNTTableAdapter() As TBDD_EMAIL_ACCOUNTTableAdapter + Get + Return Me._tBDD_EMAIL_ACCOUNTTableAdapter + End Get + Set + Me._tBDD_EMAIL_ACCOUNTTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_CONNECTIONTableAdapter() As TBPMO_CONNECTIONTableAdapter + Get + Return Me._tBPMO_CONNECTIONTableAdapter + End Get + Set + Me._tBPMO_CONNECTIONTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + End Get + Set + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBPMO_FORMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORMTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_VIEWTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_VIEWTableAdapter.Connection + End If + If ((Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_RECORDTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_RECORDTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection + End If + If ((Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WORKFLOWTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WORKFLOWTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_DOKUMENTARTTableAdapter.Connection + End If + If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_EINGANGSARTENTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_EINGANGSARTENTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_AUTOMTableAdapter.Connection + End If + If ((Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_KONFIGURATIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_KONFIGURATIONTableAdapter.Connection + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_TYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_TYPETableAdapter.Connection + End If + If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USER_GROUPSTableAdapter.Connection + End If + If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_GROUPS_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection + End If + If ((Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FILES_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FILES_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection + End If + If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection + End If + If ((Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_CONNECTIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_CONNECTIONTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RECORDTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RECORDTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_RECORDTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSDataSet) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBPMO_FORMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_VIEWTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RECORDTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOWTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EINGANGSARTENTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_KONFIGURATIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_TYPETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USER_GROUPSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPS_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FILES_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_CONNECTIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORMTableAdapter, Me._tBPMO_FORMTableAdapter.Connection) + Me._tBPMO_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_VIEWTableAdapter, Me._tBPMO_FORM_VIEWTableAdapter.Connection) + Me._tBPMO_FORM_VIEWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_VIEWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_VIEWTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_VIEWTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_VIEWTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_RECORDTableAdapter, Me._tBPMO_RECORDTableAdapter.Connection) + Me._tBPMO_RECORDTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORDTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_RECORDTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_RECORDTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RECORDTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter, Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter, Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WORKFLOWTableAdapter, Me._tBPMO_WORKFLOWTableAdapter.Connection) + Me._tBPMO_WORKFLOWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WORKFLOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WORKFLOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOWTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter, Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) + Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_EINGANGSARTENTableAdapter, Me._tBDD_EINGANGSARTENTableAdapter.Connection) + Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EINGANGSARTENTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EINGANGSARTENTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection) + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_KONFIGURATIONTableAdapter, Me._tBPMO_KONFIGURATIONTableAdapter.Connection) + Me._tBPMO_KONFIGURATIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_KONFIGURATIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_KONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_KONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_KONFIGURATIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USERTableAdapter, Me._tBDD_USERTableAdapter.Connection) + Me._tBDD_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_TYPETableAdapter, Me._tBPMO_FORM_TYPETableAdapter.Connection) + Me._tBPMO_FORM_TYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_TYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_TYPETableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USER_GROUPSTableAdapter, Me._tBDD_USER_GROUPSTableAdapter.Connection) + Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USER_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USER_GROUPSTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_GROUPS_USERTableAdapter, Me._tBDD_GROUPS_USERTableAdapter.Connection) + Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPS_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPS_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WD_OBJECTTYPETableAdapter, Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) + Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_OBJECTTYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FILES_USERTableAdapter, Me._tBPMO_FILES_USERTableAdapter.Connection) + Me._tBPMO_FILES_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FILES_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FILES_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FILES_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FILES_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter, Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter, Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter, Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter, Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_CONNECTIONTableAdapter, Me._tBPMO_CONNECTIONTableAdapter.Connection) + Me._tBPMO_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_CONNECTIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Me._tBPMO_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_VIEWTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_VIEWTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_VIEWTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Me._tBPMO_RECORDTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RECORDTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORDTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Me._tBPMO_WORKFLOWTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOWTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOWTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(revertConnections(Me._tBDD_EINGANGSARTENTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EINGANGSARTENTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Me._tBPMO_KONFIGURATIONTableAdapter.Connection = CType(revertConnections(Me._tBPMO_KONFIGURATIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_KONFIGURATIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Me._tBDD_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Me._tBPMO_FORM_TYPETableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_TYPETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_USER_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USER_GROUPSTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPS_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_OBJECTTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_OBJECTTYPETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Me._tBPMO_FILES_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FILES_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FILES_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(revertConnections(Me._tBDD_EMAIL_ACCOUNTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Me._tBPMO_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBPMO_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_CONNECTIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.vb b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.vb new file mode 100644 index 0000000..7f2bed8 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.vb @@ -0,0 +1,8 @@ + + +Partial Public Class DD_DMSDataSet +End Class + + +Partial Public Class DD_DMSDataSet +End Class diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsc b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsc new file mode 100644 index 0000000..77654a9 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsc @@ -0,0 +1,277 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsd b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsd new file mode 100644 index 0000000..1d76dc2 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -0,0 +1,4541 @@ + + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM + (PARENT_ID, NAME, LEVEL, ADDED_WHO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD) +VALUES (@PARENT_ID,@NAME,@LEVEL,@ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID,@SINGLE_RECORD); +SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD +FROM TBPMO_FORM +WHERE (GUID = @GUID) + + + + + + + + UPDATE TBPMO_FORM +SET PARENT_ID = @PARENT_ID, NAME = @NAME, LEVEL = @LEVEL, CHANGED_WHO = @CHANGED_WHO, SHOW_FORM_CONSTRUCT = @SHOW_FORM_CONSTRUCT, FORM_TYPE_ID = @FORM_TYPE_ID, + SINGLE_RECORD = @SINGLE_RECORD +WHERE (GUID = @Original_GUID); +SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD +FROM TBPMO_FORM + + + + + + + + + + + + SELECT CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONTROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREEN_ID, + SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLSCR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTRLSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, + CTRLSCR_FONT_STYLE, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP +FROM VWPMO_CONTROL_SCREEN +WHERE (FORM_ID = @ID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM_VIEW +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM_VIEW + (SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO) +VALUES (@SCREEN_ID,@FORM_ID,@FORM_TITLE,@DESCRIPTION,@WIDTH,@HEIGHT,@DIALOG,@MAXIMIZABLE,@MINIMIZABLE,@MAX_WIDTH,@MIN_WIDTH,@MAX_HEIGHT,@MIN_HEIGHT,@X_LOC,@Y_LOC,@ADDED_WHO); +SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_VIEW WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DOCUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, + SEARCH_PATTERN5, ALLOW_DROP, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, + CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_FORM_VIEW +ORDER BY FORM_TITLE + + + + + + UPDATE TBPMO_FORM_VIEW +SET SCREEN_ID = @SCREEN_ID, FORM_ID = @FORM_ID, FORM_TITLE = @FORM_TITLE, DESCRIPTION = @DESCRIPTION, WIDTH = @WIDTH, HEIGHT = @HEIGHT, DIALOG = @DIALOG, + MAXIMIZABLE = @MAXIMIZABLE, MINIMIZABLE = @MINIMIZABLE, MAX_WIDTH = @MAX_WIDTH, MIN_WIDTH = @MIN_WIDTH, MAX_HEIGHT = @MAX_HEIGHT, MIN_HEIGHT = @MIN_HEIGHT, + X_LOC = @X_LOC, Y_LOC = @Y_LOC, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_VIEW WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DOCUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, + SEARCH_PATTERN5, ALLOW_DROP, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, + CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_FORM_VIEW where FORM_ID = @FORMID and SCREEN_ID = 1 + + + + + + + + + + + + + + DELETE FROM [TBPMO_RECORD] WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + INSERT INTO [TBPMO_RECORD] ([ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_RECORD +WHERE (GUID = @RECORD_ID) + + + + + + + + UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PATH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID +FROM VWPMO_DOKUMENTTYPES +WHERE (FORMVIEW_ID = @ID) +ORDER BY DOKUMENTTYPE + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + INSERT INTO [TBPMO_WD_FVIEW_DT_INDEX] ([FW_DOCTYPE_ID], [INDEXNAME], [INDEX_VALUE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@FW_DOCTYPE_ID, @INDEXNAME, @INDEX_VALUE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_WD_FVIEW_DT_INDEX +WHERE (FW_DOCTYPE_ID = @ID) + + + + + + + + UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT TOP (1) TBPMO_WORKFLOW_TASK.GUID, TBPMO_WORKFLOW_TASK.RECORD_ID, TBPMO_WORKFLOW_TASK.WF_ID, TBPMO_WORKFLOW_TASK.COMMENT, TBPMO_WORKFLOW_TASK.DUE_DATE, + TBPMO_WORKFLOW_TASK.STATE_ID, TBPMO_WORKFLOW_TASK.ACTIVE, TBPMO_WORKFLOW_TASK.ADDED_WHEN, TBPMO_WORKFLOW_TASK.CHANGED_WHO, + TBPMO_WORKFLOW_TASK.CHANGED_WHEN, TBPMO_WORKFLOW.TITLE +FROM TBPMO_WORKFLOW_TASK INNER JOIN + TBPMO_WORKFLOW ON TBPMO_WORKFLOW_TASK.WF_ID = TBPMO_WORKFLOW.GUID +WHERE (TBPMO_WORKFLOW_TASK.RECORD_ID = @RECID) AND (TBPMO_WORKFLOW_TASK.ACTIVE = 1) AND (TBPMO_WORKFLOW_TASK.STATE_ID NOT IN + (SELECT WORKFLOW_FINAL_STATE1 + FROM TBPMO_KONFIGURATION + WHERE (GUID = 1))) + + + + + + + + + + + + + + + + + + + + + + + + + UPDATE TBPMO_WORKFLOW_TASK +SET ACTIVE = 1, CHANGED_WHO = @CHANGED_WHO +WHERE (RECORD_ID = @RECORD_ID) + + + + + + + + + + + UPDATE TBPMO_WORKFLOW_TASK +SET COMMENT = @COMMENT, DUE_DATE = @DUE_DATE, STATE_ID = @STATE_ID, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, TASK_DATE = @TASK_DATE +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + + + UPDATE TBPMO_WORKFLOW_TASK +SET COMMENT = @COMMENT, DUE_DATE = @DUE_DATE, STATE_ID = @STATE_ID, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + + + + + + + + DELETE FROM [TBPMO_WORKFLOW_TASK_STATE] WHERE (([GUID] = @Original_GUID) AND ([STATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR))) + + + + + + + + + + + + + + + + + INSERT INTO [TBPMO_WORKFLOW_TASK_STATE] ([STATE_DESC], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COLOR]) VALUES (@STATE_DESC, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLOR); +SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR FROM TBPMO_WORKFLOW_TASK_STATE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT TBPMO_WORKFLOW_TASK_STATE.* +FROM TBPMO_WORKFLOW_TASK_STATE + + + + + + UPDATE [TBPMO_WORKFLOW_TASK_STATE] SET [STATE_DESC] = @STATE_DESC, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COLOR] = @COLOR WHERE (([GUID] = @Original_GUID) AND ([STATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR))); +SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR FROM TBPMO_WORKFLOW_TASK_STATE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ID, Name, Title +FROM VWPMO_GUI_ENTITY + + + + + + + + + + + + + + + + + + DELETE FROM [TBPMO_WORKFLOW] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + INSERT INTO TBPMO_WORKFLOW + (TITLE, DESCRIPTION, ADDED_WHO) +VALUES (@TITLE,@DESCRIPTION,@ADDED_WHO); +SELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT TBPMO_WORKFLOW.* +FROM TBPMO_WORKFLOW + + + + + + UPDATE TBPMO_WORKFLOW +SET TITLE = @TITLE, DESCRIPTION = @DESCRIPTION, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_WORKFLOW_FORM +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_WORKFLOW_FORM + (FORM_ID, WF_ID, SEQUENCE, ADDED_WHO) +VALUES (@FORM_ID,@WF_ID,@SEQUENCE,@ADDED_WHO); +SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_WORKFLOW_FORM +WHERE (FORM_ID = @FORM_ID) + + + + + + + + UPDATE TBPMO_WORKFLOW_FORM +SET FORM_ID = @FORM_ID, WF_ID = @WF_ID, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN, T2.TASK_DATE +FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN + TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID +WHERE (T2.GUID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV + WHERE (WF_TASK_ID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 + WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN + (SELECT WORKFLOW_FINAL_STATE1 + FROM TBPMO_KONFIGURATION + WHERE (GUID = 1))) AND (T2.ACTIVE = 1) + + + + + + + + + + + + + + + + + + + + + + + + + SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN, T2.TASK_DATE +FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN + TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID +WHERE (T2.GUID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV + WHERE (WF_TASK_ID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 + WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN + (SELECT WORKFLOW_FINAL_STATE1 + FROM TBPMO_KONFIGURATION + WHERE (GUID = 1))) AND (T2.RECORD_ID = @RECORD_ID) AND (T2.ACTIVE = 1) + + + + + + + + + + + + + + + SELECT T4.VALUE AS JOB, T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN +FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN + TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID INNER JOIN + VWPMO_VALUES AS T4 ON T2.RECORD_ID = T4.RECORD_ID +WHERE (T4.CONTROL_ID = 10) AND (T2.GUID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV + WHERE (WF_TASK_ID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 + WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN + (SELECT WORKFLOW_FINAL_STATE1 + FROM TBPMO_KONFIGURATION + WHERE (GUID = 1))) AND (T2.RECORD_ID = @RECORD_ID) AND (T2.ACTIVE = 1) AND (T2.GUID <> @TASK_ID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT WF_ID, RECORD_ID, STATE, STATE_ID, Authority, String, COLOR, CHANGED_WHO, CHANGED_WHEN +FROM VWPMO_WF_OVERVIEW_AUTHORITY +WHERE (RECORD_ID = @RECORDID) + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_DOKUMENTART +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_DOKUMENTART + (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP) +VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP); +SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP +FROM TBDD_DOKUMENTART +ORDER BY BEZEICHNUNG + + + + + + UPDATE TBDD_DOKUMENTART +SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, + NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP +FROM TBDD_DOKUMENTART +WHERE (GUID IN + (SELECT DOKART_ID + FROM TBDD_DOKUMENTART_MODULE + WHERE (MODULE_ID = 0))) +ORDER BY BEZEICHNUNG + + + + + + + + + + + + DELETE FROM TBDD_EINGANGSARTEN +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_EINGANGSARTEN + (BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER) +VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); +SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN +FROM TBDD_EINGANGSARTEN + + + + + + UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @BESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUNG = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERSTELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN))); +SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBDD_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID] = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_VALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_ID] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBDD_INDEX_AUTOM + (DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO) +VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO); +SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_INDEX_AUTOM +WHERE (DOCTYPE_ID = @DocTypeID) + + + + + + + + UPDATE TBDD_INDEX_AUTOM +SET DOCTYPE_ID = @DOCTYPE_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @COMMENT, ACTIVE = @ACTIVE, + CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT TBPMO_WD_FORMVIEW_DOKTYPES.GUID, TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID, TBPMO_FORM_VIEW.FORM_TITLE, TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID, + TBDD_DOKUMENTART.BEZEICHNUNG, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHO, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHEN, TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHO, + TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHEN +FROM TBPMO_WD_FORMVIEW_DOKTYPES INNER JOIN + TBPMO_FORM_VIEW ON TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID = TBPMO_FORM_VIEW.GUID INNER JOIN + TBDD_DOKUMENTART ON TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID = TBDD_DOKUMENTART.GUID +WHERE (TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID = @DOC_ID) + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES + (FORMVIEW_ID, DOCTYPE_ID, OBJECT_TYPE, ADDED_WHO) +VALUES (@FORMVIEW_ID,@DOCTYPE_ID,@OBJECT_TYPE,@ADDED_WHO) + + + + + + + + + + + + + DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES +WHERE (GUID = @GUID) + + + + + + + + + + + + + + SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW, ADMIN_SECURITY, + ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3, + WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FOLLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE +FROM TBPMO_KONFIGURATION + + + + + + UPDATE TBPMO_KONFIGURATION +SET LICENSE = @LICENSE, VEKTOR_DELIMITER = @VEKTOR_DELIMITER, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, + EMAIL_PW = @EMAIL_PW, EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, ADMIN_PW = @ADMIN_PW, + ADMIN_SECURITY = @ADMIN_SECURITY, CHANGED_WHO = @CHANGED_WHO, SQL_RECORD_SQL1 = @SQL_RECORD_SQL1, SQL_RECORD_SQL2 = @SQL_RECORD_SQL2, + WORKFLOW_FINAL_STATE1 = @WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2 = @WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3 = @WORKFLOW_FINAL_STATE3, + WORKFLOW_FINAL_STATE4 = @WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5 = @WORKFLOW_FINAL_STATE5, VERSION_DELIMITER = @VERSION_DELIMITER, + FILE_DELIMITER = @FILE_DELIMITER, WD_UNICODE = @WD_UNICODE, FOLLOW_UP_LOG_ERR_ONLY = @FOLLOW_UP_LOG_ERR_ONLY, + FOLLOW_UP_EMAIL_PROFILE = @FOLLOW_UP_EMAIL_PROFILE +WHERE (GUID = @Original_GUID); +SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER FROM TBPMO_KONFIGURATION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + UPDATE TBPMO_KONFIGURATION +SET LICENSE = @LICENSE +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + + + + DELETE FROM TBDD_USER +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_USER + (PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG) +VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1); +SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_USER +WHERE (MODULE_RECORD_ORG = 1) + + + + + + UPDATE TBDD_USER +SET PRENAME = @PRENAME, NAME = @NAME, USERNAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBPMO_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] = @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + INSERT INTO TBPMO_FORM_TYPE + (FORM_TYPE, ADDED_WHO) +VALUES (@FORM_TYPE,@ADDED_WHO); +SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + SELECT TBPMO_FORM_TYPE.* +FROM TBPMO_FORM_TYPE + + + + + + UPDATE TBPMO_FORM_TYPE +SET FORM_TYPE = @FORM_TYPE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_USER_GROUPS +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_USER_GROUPS + (NAME, ADDED_WHO) +VALUES (@NAME,@ADDED_WHO); +SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + SELECT TBDD_USER_GROUPS.* +FROM TBDD_USER_GROUPS + + + + + + UPDATE TBDD_USER_GROUPS +SET NAME = @NAME, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT VWPMO_USERS_GROUPS.* +FROM VWPMO_USERS_GROUPS + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT TBDD_GROUPS_USER.* +FROM TBDD_GROUPS_USER + + + + + + UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_MODULES.NAME +FROM TBDD_DOKUMENTART INNER JOIN + TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN + TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID +WHERE (TBDD_DOKUMENTART.GUID = @DokID) + + + + + + + + + + + + + + + + INSERT INTO TBDD_DOKUMENTART_MODULE + (DOKART_ID, MODULE_ID) +VALUES (@DOK_ID, 0) + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM_CONSTRUCTOR +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM_CONSTRUCTOR + (FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE) +VALUES (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); +SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT TBPMO_FORM_CONSTRUCTOR.* +FROM TBPMO_FORM_CONSTRUCTOR + + + + + + UPDATE TBPMO_FORM_CONSTRUCTOR +SET FORM_TITLE = @FORM_TITLE, SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IMG, SHORT_TITLE = @SHORT_TITLE +WHERE (GUID = @Original_GUID); +SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_WD_OBJECTTYPE +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_WD_OBJECTTYPE + (OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO) +VALUES (@OBJECT_TYPE,@IDXNAME_ENTITYID,@IDXNAME_PARENTID,@ADDED_WHO); +SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + SELECT TBPMO_WD_OBJECTTYPE.* +FROM TBPMO_WD_OBJECTTYPE + + + + + + UPDATE TBPMO_WD_OBJECTTYPE +SET OBJECT_TYPE = @OBJECT_TYPE, IDXNAME_ENTITYID = @IDXNAME_ENTITYID, IDXNAME_PARENTID = @IDXNAME_PARENTID, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED_WHEN)) + + + + + + + + + + + + + INSERT INTO [TBPMO_FILES_USER] ([FILENAME2WORK], [USER_WORK], [HANDLE_TYPE], [WORKED], [ADDED_WHEN]) VALUES (@FILENAME2WORK, @USER_WORK, @HANDLE_TYPE, @WORKED, @ADDED_WHEN); +SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + select * from TBPMO_FILES_USER where UPPER(USER_WORK) = UPPER(@USER) + + + + + + + + UPDATE [TBPMO_FILES_USER] SET [FILENAME2WORK] = @FILENAME2WORK, [USER_WORK] = @USER_WORK, [HANDLE_TYPE] = @HANDLE_TYPE, [WORKED] = @WORKED, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED_WHEN)); +SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) + + + + + + + + + + + + + + + INSERT INTO TBPMO_FILES_USER + (FILENAME2WORK, USER_WORK, HANDLE_TYPE) +VALUES (@FILENAME2WORK,@USER_WORK,@HANDLE_TYPE); +SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + UPDATE TBPMO_FILES_USER +SET WORKED = @WORKED +WHERE (GUID = @Original_GUID); +SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + select * from VWPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_FOLLOW_UP_EMAIL +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FOLLOW_UP_EMAIL + (FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, + PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, TIME_DIST, NAME) +VALUES (@FOLLOW_UP_SEQUENCE,@FOLLOW_UP_DAYS,@FOLLOW_UP_TIME_SPAN,@DEPENDENT_DATE_CTRL_ID,@DEPENDENT_DONE_CTRL_ID,@PARENT_ID,@TIME_UNITY,@TIME_SPAN,@EMAIL_SUBJECT,@EMAIL_BODY,@PROCESS_SELECT1,@PROCESS_SELECT2,@PROCESS_SELECT3,@PROCESS_SELECT4,@ACTIVE,@ADDED_WHO,@TIME_DIST,@NAME); +SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, TIME_DIST, + EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, PROCESS_SELECT5, PROCESS_SELECT6, PROCESS_SELECT7, PROCESS_SELECT8, + PROCESS_SELECT9, PROCESS_SELECT10, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME +FROM TBPMO_FOLLOW_UP_EMAIL + + + + + + UPDATE TBPMO_FOLLOW_UP_EMAIL +SET FOLLOW_UP_SEQUENCE = @FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS = @FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN = @FOLLOW_UP_TIME_SPAN, + DEPENDENT_DATE_CTRL_ID = @DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID = @DEPENDENT_DONE_CTRL_ID, PARENT_ID = @PARENT_ID, TIME_UNITY = @TIME_UNITY, + TIME_SPAN = @TIME_SPAN, EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY = @EMAIL_BODY, PROCESS_SELECT1 = @PROCESS_SELECT1, PROCESS_SELECT2 = @PROCESS_SELECT2, + PROCESS_SELECT3 = @PROCESS_SELECT3, PROCESS_SELECT4 = @PROCESS_SELECT4, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, TIME_DIST = @TIME_DIST, + PROCESS_SELECT5 = @PROCESS_SELECT5, PROCESS_SELECT6 = @PROCESS_SELECT6, PROCESS_SELECT7 = @PROCESS_SELECT7, PROCESS_SELECT8 = @PROCESS_SELECT8, + PROCESS_SELECT9 = @PROCESS_SELECT9, PROCESS_SELECT10 = @PROCESS_SELECT10, NAME = @NAME +WHERE (GUID = @Original_GUID); +SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_FOLLUPEMAIL_USER +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FOLLUPEMAIL_USER + (USER_ID, FOLLOW_UP_ID, ADDED_WHO) +VALUES (@USER_ID,@FOLLOW_UP_ID,@ADDED_WHO); +SELECT GUID, USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLUPEMAIL_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT TBPMO_FOLLUPEMAIL_USER.* +FROM TBPMO_FOLLUPEMAIL_USER + + + + + + UPDATE TBPMO_FOLLUPEMAIL_USER +SET USER_ID = @USER_ID, FOLLOW_UP_ID = @FOLLOW_UP_ID, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLUPEMAIL_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_RECORD_LOG_CONFIG +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_RECORD_LOG_CONFIG + (CONTROL_ID, LOG_DELETE, LOG_UPDATE) +VALUES (@CONTROL_ID,@LOG_DELETE,@LOG_UPDATE); +SELECT GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT TBPMO_RECORD_LOG_CONFIG.GUID, TBPMO_RECORD_LOG_CONFIG.CONTROL_ID, TBPMO_RECORD_LOG_CONFIG.LOG_DELETE, TBPMO_RECORD_LOG_CONFIG.LOG_UPDATE, + TBPMO_RECORD_LOG_CONFIG.ADDED_WHEN, TBPMO_RECORD_LOG_CONFIG.CHANGED_WHO, TBPMO_RECORD_LOG_CONFIG.CHANGED_WHEN, TBPMO_CONTROL.FORM_ID, + TBPMO_FORM.GUID AS FORM_ID, TBPMO_FORM.NAME, TBPMO_FORM.NAME + ' - ' + TBPMO_CONTROL.NAME AS String +FROM TBPMO_RECORD_LOG_CONFIG INNER JOIN + TBPMO_CONTROL ON TBPMO_RECORD_LOG_CONFIG.CONTROL_ID = TBPMO_CONTROL.GUID INNER JOIN + TBPMO_FORM ON TBPMO_CONTROL.FORM_ID = TBPMO_FORM.GUID +ORDER BY TBPMO_FORM.NAME, TBPMO_CONTROL.NAME + + + + + + UPDATE TBPMO_RECORD_LOG_CONFIG +SET CONTROL_ID = @CONTROL_ID, LOG_DELETE = @LOG_DELETE, LOG_UPDATE = @LOG_UPDATE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID AS ID, NAME AS [Control-Name], LOG_DESCRIPTION AS [Log-Description], ADDED_WHO AS [Added who], ADDED_WHEN AS [Added When] +FROM VWPMO_RECORD_CHANGES +WHERE (RECORD_ID = @RECORD_ID) + + + + + + + + + + + + + + + + + + + + + + SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE +FROM VWPMO_WF_ACTIVE +WHERE (WF_TASK_ID NOT IN + (SELECT GUID + FROM VWPMO_WF_USER_EXCLUSIV + WHERE (UPPER(USERNAME) <> UPPER(@USERNAME)))) + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE +FROM VWPMO_WF_ACTIVE +WHERE (RECORD_ID = @REC_ID) AND (WF_TASK_ID NOT IN + (SELECT GUID + FROM VWPMO_WF_USER_EXCLUSIV + WHERE (UPPER(USERNAME) <> UPPER(@USERNAME)))) + + + + + + + + + + + + + + + DELETE FROM TBDD_EMAIL_ACCOUNT +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_EMAIL_ACCOUNT + (NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO) +VALUES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@ACTIVE,@ADDED_WHO); +SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT TBDD_EMAIL_ACCOUNT.* +FROM TBDD_EMAIL_ACCOUNT + + + + + + UPDATE TBDD_EMAIL_ACCOUNT +SET NAME = @NAME, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBPMO_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBPMO_CONNECTION] ([DESCRIPTION], [SQL_PROVIDER], [SERVER], [DATABASE], [USERNAME], [PASSWORD], [COMMENT], [AKTIVE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@DESCRIPTION, @SQL_PROVIDER, @SERVER, @DATABASE, @USERNAME, @PASSWORD, @COMMENT, @AKTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + SELECT TBPMO_CONNECTION.* +FROM TBPMO_CONNECTION + + + + + + UPDATE [TBPMO_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_CONNECTION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL + (CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, + SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5) +VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5); +SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, + COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 +FROM TBPMO_FORM_CONSTRUCTOR_DETAIL +WHERE (GUID = @ID) + + + + + + + + UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL +SET CONSTRUCT_ID = @CONSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_SELECT, SEQUENCE = @SEQUENCE, + SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_WHO, COLUMN_NAME1 = @COLUMN_NAME1, + COLUMN_NAME2 = @COLUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTERN1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, + SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5 +WHERE (GUID = @Original_GUID); +SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COLUMN_NAME2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARCH FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @ID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xss b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xss new file mode 100644 index 0000000..c5d7ec6 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet.xss @@ -0,0 +1,285 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 299 + 144 + + + 454 + 144 + + + + + + + 150 + 356 + + + 150 + 932 + + + + + + + 325 + 888 + + + 325 + 932 + + + + + + + 1100 + 408 + + + 1100 + 245 + + + 1314 + 245 + + + + + + + 1233 + 736 + + + 1233 + 237 + + + 1314 + 237 + + + + + + + 875 + 425 + + + 317 + 425 + + + 317 + 87 + + + + + + + 950 + 753 + + + 309 + 753 + + + 309 + 87 + + + + + + + 1640 + 565 + + + 1627 + 565 + + + + + + + 1490 + 450 + + + 1490 + 442 + + + 1622 + 442 + + + + + + + 710 + 276 + + + 710 + 410 + + + 1622 + 410 + + + + + + + 1357 + 128 + + + 299 + 128 + + + + + + + 62 + 0 + + + 62 + -30 + + + 62 + -30 + + + 62 + 0 + + + + + + + 54 + 0 + + + 54 + -30 + + + 54 + -30 + + + 54 + 0 + + + + + + + 1579 + 120 + + + 217 + 120 + + + + + + + 1358 + 221 + + + 1358 + 352 + + + + + + + 282 + 356 + + + 282 + 373 + + + 1246 + 373 + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb new file mode 100644 index 0000000..2e2c020 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb @@ -0,0 +1,41141 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Ä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 DD_DMSDataSet + Inherits Global.System.Data.DataSet + + Private tableTBPMO_FORM As TBPMO_FORMDataTable + + Private tableVWPMO_CONTROL_SCREEN As VWPMO_CONTROL_SCREENDataTable + + Private tableTBPMO_FORM_VIEW As TBPMO_FORM_VIEWDataTable + + Private tableTBPMO_RECORD As TBPMO_RECORDDataTable + + Private tableVWPMO_DOKUMENTTYPES As VWPMO_DOKUMENTTYPESDataTable + + Private tableTBPMO_WD_FVIEW_DT_INDEX As TBPMO_WD_FVIEW_DT_INDEXDataTable + + Private tableTBPMO_WORKFLOW_TASK As TBPMO_WORKFLOW_TASKDataTable + + Private tableTBPMO_WORKFLOW_TASK_STATE As TBPMO_WORKFLOW_TASK_STATEDataTable + + Private tableVWPMO_GUI_ENTITY As VWPMO_GUI_ENTITYDataTable + + Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable + + Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable + + Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable + + Private tableVWPMO_FOLLOWING_TASKS As VWPMO_FOLLOWING_TASKSDataTable + + Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + Private tableTBPMO_WD_FORMVIEW_DOKTYPES As TBPMO_WD_FORMVIEW_DOKTYPESDataTable + + Private tableTBPMO_KONFIGURATION As TBPMO_KONFIGURATIONDataTable + + Private tableTBDD_USER As TBDD_USERDataTable + + Private tableTBPMO_FORM_TYPE As TBPMO_FORM_TYPEDataTable + + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable + + Private tableVWPMO_USERS_GROUPS As VWPMO_USERS_GROUPSDataTable + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + + Private tableTBWH_DOKART_MODULE As TBWH_DOKART_MODULEDataTable + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + Private tableTBPMO_WD_OBJECTTYPE As TBPMO_WD_OBJECTTYPEDataTable + + Private tableTBPMO_FILES_USER As TBPMO_FILES_USERDataTable + + Private tableVWPMO_WORKFLOW_FORM As VWPMO_WORKFLOW_FORMDataTable + + Private tableTBPMO_FOLLOW_UP_EMAIL As TBPMO_FOLLOW_UP_EMAILDataTable + + Private tableTBPMO_FOLLUPEMAIL_USER As TBPMO_FOLLUPEMAIL_USERDataTable + + Private tableTBPMO_RECORD_LOG_CONFIG As TBPMO_RECORD_LOG_CONFIGDataTable + + Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable + + Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable + + Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable + + Private tableTBPMO_CONNECTION As TBPMO_CONNECTIONDataTable + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_FORM_FV_ID As Global.System.Data.DataRelation + + Private relationFK_TTBPMO_WORKFLOW_FORM_WF_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_STATE_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 As Global.System.Data.DataRelation + + Private relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 As Global.System.Data.DataRelation + + Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_AUTOM_DOCID1 As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FORM_FORM_TYPE_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As Global.System.Data.DataRelation + + 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("TBPMO_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM"))) + End If + If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN"))) + End If + If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW"))) + End If + If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD"))) + End If + If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES"))) + End If + If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE"))) + End If + If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_FORMDataTable(ds.Tables("TBPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("VWPMO_WF_USER_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_USER_ACTIVEDataTable(ds.Tables("VWPMO_WF_USER_ACTIVE"))) + End If + If (Not (ds.Tables("VWPMO_FOLLOWING_TASKS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_FOLLOWING_TASKSDataTable(ds.Tables("VWPMO_FOLLOWING_TASKS"))) + End If + If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"))) + End If + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"))) + End If + If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION"))) + End If + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE"))) + End If + If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) + End If + If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS"))) + End If + If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) + End If + If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE"))) + End If + If (Not (ds.Tables("TBPMO_FILES_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FILES_USERDataTable(ds.Tables("TBPMO_FILES_USER"))) + End If + If (Not (ds.Tables("VWPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WORKFLOW_FORMDataTable(ds.Tables("VWPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL"))) + End If + If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER"))) + End If + If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG"))) + End If + If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES"))) + End If + If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE"))) + End If + If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) + End If + If (Not (ds.Tables("TBPMO_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_CONNECTIONDataTable(ds.Tables("TBPMO_CONNECTION"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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 TBPMO_FORM() As TBPMO_FORMDataTable + Get + Return Me.tableTBPMO_FORM + End Get + End Property + + _ + Public ReadOnly Property VWPMO_CONTROL_SCREEN() As VWPMO_CONTROL_SCREENDataTable + Get + Return Me.tableVWPMO_CONTROL_SCREEN + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_VIEW() As TBPMO_FORM_VIEWDataTable + Get + Return Me.tableTBPMO_FORM_VIEW + End Get + End Property + + _ + Public ReadOnly Property TBPMO_RECORD() As TBPMO_RECORDDataTable + Get + Return Me.tableTBPMO_RECORD + End Get + End Property + + _ + Public ReadOnly Property VWPMO_DOKUMENTTYPES() As VWPMO_DOKUMENTTYPESDataTable + Get + Return Me.tableVWPMO_DOKUMENTTYPES + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WD_FVIEW_DT_INDEX() As TBPMO_WD_FVIEW_DT_INDEXDataTable + Get + Return Me.tableTBPMO_WD_FVIEW_DT_INDEX + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW_TASK() As TBPMO_WORKFLOW_TASKDataTable + Get + Return Me.tableTBPMO_WORKFLOW_TASK + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW_TASK_STATE() As TBPMO_WORKFLOW_TASK_STATEDataTable + Get + Return Me.tableTBPMO_WORKFLOW_TASK_STATE + End Get + End Property + + _ + Public ReadOnly Property VWPMO_GUI_ENTITY() As VWPMO_GUI_ENTITYDataTable + Get + Return Me.tableVWPMO_GUI_ENTITY + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW() As TBPMO_WORKFLOWDataTable + Get + Return Me.tableTBPMO_WORKFLOW + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WORKFLOW_FORM() As TBPMO_WORKFLOW_FORMDataTable + Get + Return Me.tableTBPMO_WORKFLOW_FORM + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WF_USER_ACTIVE() As VWPMO_WF_USER_ACTIVEDataTable + Get + Return Me.tableVWPMO_WF_USER_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property VWPMO_FOLLOWING_TASKS() As VWPMO_FOLLOWING_TASKSDataTable + Get + Return Me.tableVWPMO_FOLLOWING_TASKS + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WF_OVERVIEW_AUTHORITY() As VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Get + Return Me.tableVWPMO_WF_OVERVIEW_AUTHORITY + End Get + End Property + + _ + Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable + Get + Return Me.tableTBDD_DOKUMENTART + End Get + End Property + + _ + Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable + Get + Return Me.tableTBDD_EINGANGSARTEN + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable + Get + Return Me.tableTBDD_INDEX_AUTOM + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WD_FORMVIEW_DOKTYPES() As TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Get + Return Me.tableTBPMO_WD_FORMVIEW_DOKTYPES + End Get + End Property + + _ + Public ReadOnly Property TBPMO_KONFIGURATION() As TBPMO_KONFIGURATIONDataTable + Get + Return Me.tableTBPMO_KONFIGURATION + End Get + End Property + + _ + Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable + Get + Return Me.tableTBDD_USER + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_TYPE() As TBPMO_FORM_TYPEDataTable + Get + Return Me.tableTBPMO_FORM_TYPE + End Get + End Property + + _ + Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable + Get + Return Me.tableTBDD_USER_GROUPS + End Get + End Property + + _ + Public ReadOnly Property VWPMO_USERS_GROUPS() As VWPMO_USERS_GROUPSDataTable + Get + Return Me.tableVWPMO_USERS_GROUPS + End Get + End Property + + _ + Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable + Get + Return Me.tableTBDD_GROUPS_USER + End Get + End Property + + _ + Public ReadOnly Property TBWH_DOKART_MODULE() As TBWH_DOKART_MODULEDataTable + Get + Return Me.tableTBWH_DOKART_MODULE + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR + End Get + End Property + + _ + Public ReadOnly Property TBPMO_WD_OBJECTTYPE() As TBPMO_WD_OBJECTTYPEDataTable + Get + Return Me.tableTBPMO_WD_OBJECTTYPE + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FILES_USER() As TBPMO_FILES_USERDataTable + Get + Return Me.tableTBPMO_FILES_USER + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WORKFLOW_FORM() As VWPMO_WORKFLOW_FORMDataTable + Get + Return Me.tableVWPMO_WORKFLOW_FORM + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FOLLOW_UP_EMAIL() As TBPMO_FOLLOW_UP_EMAILDataTable + Get + Return Me.tableTBPMO_FOLLOW_UP_EMAIL + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FOLLUPEMAIL_USER() As TBPMO_FOLLUPEMAIL_USERDataTable + Get + Return Me.tableTBPMO_FOLLUPEMAIL_USER + End Get + End Property + + _ + Public ReadOnly Property TBPMO_RECORD_LOG_CONFIG() As TBPMO_RECORD_LOG_CONFIGDataTable + Get + Return Me.tableTBPMO_RECORD_LOG_CONFIG + End Get + End Property + + _ + Public ReadOnly Property VWPMO_RECORD_CHANGES() As VWPMO_RECORD_CHANGESDataTable + Get + Return Me.tableVWPMO_RECORD_CHANGES + End Get + End Property + + _ + Public ReadOnly Property VWPMO_WF_ACTIVE() As VWPMO_WF_ACTIVEDataTable + Get + Return Me.tableVWPMO_WF_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable + Get + Return Me.tableTBDD_EMAIL_ACCOUNT + End Get + End Property + + _ + Public ReadOnly Property TBPMO_CONNECTION() As TBPMO_CONNECTIONDataTable + Get + Return Me.tableTBPMO_CONNECTION + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL + 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 DD_DMSDataSet = CType(MyBase.Clone,DD_DMSDataSet) + 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("TBPMO_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM"))) + End If + If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN"))) + End If + If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW"))) + End If + If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD"))) + End If + If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES"))) + End If + If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE"))) + End If + If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW"))) + End If + If (Not (ds.Tables("TBPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WORKFLOW_FORMDataTable(ds.Tables("TBPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("VWPMO_WF_USER_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_USER_ACTIVEDataTable(ds.Tables("VWPMO_WF_USER_ACTIVE"))) + End If + If (Not (ds.Tables("VWPMO_FOLLOWING_TASKS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_FOLLOWING_TASKSDataTable(ds.Tables("VWPMO_FOLLOWING_TASKS"))) + End If + If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"))) + End If + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"))) + End If + If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION"))) + End If + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE"))) + End If + If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) + End If + If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS"))) + End If + If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) + End If + If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE"))) + End If + If (Not (ds.Tables("TBPMO_FILES_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FILES_USERDataTable(ds.Tables("TBPMO_FILES_USER"))) + End If + If (Not (ds.Tables("VWPMO_WORKFLOW_FORM")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WORKFLOW_FORMDataTable(ds.Tables("VWPMO_WORKFLOW_FORM"))) + End If + If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL"))) + End If + If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER"))) + End If + If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG"))) + End If + If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES"))) + End If + If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE"))) + End If + If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) + End If + If (Not (ds.Tables("TBPMO_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_CONNECTIONDataTable(ds.Tables("TBPMO_CONNECTION"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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.tableTBPMO_FORM = CType(MyBase.Tables("TBPMO_FORM"),TBPMO_FORMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM) Is Nothing) Then + Me.tableTBPMO_FORM.InitVars + End If + End If + Me.tableVWPMO_CONTROL_SCREEN = CType(MyBase.Tables("VWPMO_CONTROL_SCREEN"),VWPMO_CONTROL_SCREENDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_CONTROL_SCREEN) Is Nothing) Then + Me.tableVWPMO_CONTROL_SCREEN.InitVars + End If + End If + Me.tableTBPMO_FORM_VIEW = CType(MyBase.Tables("TBPMO_FORM_VIEW"),TBPMO_FORM_VIEWDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_VIEW) Is Nothing) Then + Me.tableTBPMO_FORM_VIEW.InitVars + End If + End If + Me.tableTBPMO_RECORD = CType(MyBase.Tables("TBPMO_RECORD"),TBPMO_RECORDDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_RECORD) Is Nothing) Then + Me.tableTBPMO_RECORD.InitVars + End If + End If + Me.tableVWPMO_DOKUMENTTYPES = CType(MyBase.Tables("VWPMO_DOKUMENTTYPES"),VWPMO_DOKUMENTTYPESDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_DOKUMENTTYPES) Is Nothing) Then + Me.tableVWPMO_DOKUMENTTYPES.InitVars + End If + End If + Me.tableTBPMO_WD_FVIEW_DT_INDEX = CType(MyBase.Tables("TBPMO_WD_FVIEW_DT_INDEX"),TBPMO_WD_FVIEW_DT_INDEXDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WD_FVIEW_DT_INDEX) Is Nothing) Then + Me.tableTBPMO_WD_FVIEW_DT_INDEX.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW_TASK = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK"),TBPMO_WORKFLOW_TASKDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW_TASK) Is Nothing) Then + Me.tableTBPMO_WORKFLOW_TASK.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW_TASK_STATE = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK_STATE"),TBPMO_WORKFLOW_TASK_STATEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW_TASK_STATE) Is Nothing) Then + Me.tableTBPMO_WORKFLOW_TASK_STATE.InitVars + End If + End If + Me.tableVWPMO_GUI_ENTITY = CType(MyBase.Tables("VWPMO_GUI_ENTITY"),VWPMO_GUI_ENTITYDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_GUI_ENTITY) Is Nothing) Then + Me.tableVWPMO_GUI_ENTITY.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW = CType(MyBase.Tables("TBPMO_WORKFLOW"),TBPMO_WORKFLOWDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW) Is Nothing) Then + Me.tableTBPMO_WORKFLOW.InitVars + End If + End If + Me.tableTBPMO_WORKFLOW_FORM = CType(MyBase.Tables("TBPMO_WORKFLOW_FORM"),TBPMO_WORKFLOW_FORMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WORKFLOW_FORM) Is Nothing) Then + Me.tableTBPMO_WORKFLOW_FORM.InitVars + End If + End If + Me.tableVWPMO_WF_USER_ACTIVE = CType(MyBase.Tables("VWPMO_WF_USER_ACTIVE"),VWPMO_WF_USER_ACTIVEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WF_USER_ACTIVE) Is Nothing) Then + Me.tableVWPMO_WF_USER_ACTIVE.InitVars + End If + End If + Me.tableVWPMO_FOLLOWING_TASKS = CType(MyBase.Tables("VWPMO_FOLLOWING_TASKS"),VWPMO_FOLLOWING_TASKSDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_FOLLOWING_TASKS) Is Nothing) Then + Me.tableVWPMO_FOLLOWING_TASKS.InitVars + End If + End If + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = CType(MyBase.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"),VWPMO_WF_OVERVIEW_AUTHORITYDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WF_OVERVIEW_AUTHORITY) Is Nothing) Then + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.InitVars + End If + End If + Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then + Me.tableTBDD_DOKUMENTART.InitVars + End If + End If + Me.tableTBDD_EINGANGSARTEN = CType(MyBase.Tables("TBDD_EINGANGSARTEN"),TBDD_EINGANGSARTENDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_EINGANGSARTEN) Is Nothing) Then + Me.tableTBDD_EINGANGSARTEN.InitVars + End If + End If + Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then + Me.tableTBDD_INDEX_AUTOM.InitVars + End If + End If + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = CType(MyBase.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"),TBPMO_WD_FORMVIEW_DOKTYPESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WD_FORMVIEW_DOKTYPES) Is Nothing) Then + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.InitVars + End If + End If + Me.tableTBPMO_KONFIGURATION = CType(MyBase.Tables("TBPMO_KONFIGURATION"),TBPMO_KONFIGURATIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_KONFIGURATION) Is Nothing) Then + Me.tableTBPMO_KONFIGURATION.InitVars + End If + End If + Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER) Is Nothing) Then + Me.tableTBDD_USER.InitVars + End If + End If + Me.tableTBPMO_FORM_TYPE = CType(MyBase.Tables("TBPMO_FORM_TYPE"),TBPMO_FORM_TYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_TYPE) Is Nothing) Then + Me.tableTBPMO_FORM_TYPE.InitVars + End If + End If + Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then + Me.tableTBDD_USER_GROUPS.InitVars + End If + End If + Me.tableVWPMO_USERS_GROUPS = CType(MyBase.Tables("VWPMO_USERS_GROUPS"),VWPMO_USERS_GROUPSDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_USERS_GROUPS) Is Nothing) Then + Me.tableVWPMO_USERS_GROUPS.InitVars + End If + End If + Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then + Me.tableTBDD_GROUPS_USER.InitVars + End If + End If + Me.tableTBWH_DOKART_MODULE = CType(MyBase.Tables("TBWH_DOKART_MODULE"),TBWH_DOKART_MODULEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_DOKART_MODULE) Is Nothing) Then + Me.tableTBWH_DOKART_MODULE.InitVars + End If + End If + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars + End If + End If + Me.tableTBPMO_WD_OBJECTTYPE = CType(MyBase.Tables("TBPMO_WD_OBJECTTYPE"),TBPMO_WD_OBJECTTYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_WD_OBJECTTYPE) Is Nothing) Then + Me.tableTBPMO_WD_OBJECTTYPE.InitVars + End If + End If + Me.tableTBPMO_FILES_USER = CType(MyBase.Tables("TBPMO_FILES_USER"),TBPMO_FILES_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FILES_USER) Is Nothing) Then + Me.tableTBPMO_FILES_USER.InitVars + End If + End If + Me.tableVWPMO_WORKFLOW_FORM = CType(MyBase.Tables("VWPMO_WORKFLOW_FORM"),VWPMO_WORKFLOW_FORMDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WORKFLOW_FORM) Is Nothing) Then + Me.tableVWPMO_WORKFLOW_FORM.InitVars + End If + End If + Me.tableTBPMO_FOLLOW_UP_EMAIL = CType(MyBase.Tables("TBPMO_FOLLOW_UP_EMAIL"),TBPMO_FOLLOW_UP_EMAILDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FOLLOW_UP_EMAIL) Is Nothing) Then + Me.tableTBPMO_FOLLOW_UP_EMAIL.InitVars + End If + End If + Me.tableTBPMO_FOLLUPEMAIL_USER = CType(MyBase.Tables("TBPMO_FOLLUPEMAIL_USER"),TBPMO_FOLLUPEMAIL_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FOLLUPEMAIL_USER) Is Nothing) Then + Me.tableTBPMO_FOLLUPEMAIL_USER.InitVars + End If + End If + Me.tableTBPMO_RECORD_LOG_CONFIG = CType(MyBase.Tables("TBPMO_RECORD_LOG_CONFIG"),TBPMO_RECORD_LOG_CONFIGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_RECORD_LOG_CONFIG) Is Nothing) Then + Me.tableTBPMO_RECORD_LOG_CONFIG.InitVars + End If + End If + Me.tableVWPMO_RECORD_CHANGES = CType(MyBase.Tables("VWPMO_RECORD_CHANGES"),VWPMO_RECORD_CHANGESDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_RECORD_CHANGES) Is Nothing) Then + Me.tableVWPMO_RECORD_CHANGES.InitVars + End If + End If + Me.tableVWPMO_WF_ACTIVE = CType(MyBase.Tables("VWPMO_WF_ACTIVE"),VWPMO_WF_ACTIVEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWPMO_WF_ACTIVE) Is Nothing) Then + Me.tableVWPMO_WF_ACTIVE.InitVars + End If + End If + Me.tableTBDD_EMAIL_ACCOUNT = CType(MyBase.Tables("TBDD_EMAIL_ACCOUNT"),TBDD_EMAIL_ACCOUNTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_EMAIL_ACCOUNT) Is Nothing) Then + Me.tableTBDD_EMAIL_ACCOUNT.InitVars + End If + End If + Me.tableTBPMO_CONNECTION = CType(MyBase.Tables("TBPMO_CONNECTION"),TBPMO_CONNECTIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_CONNECTION) Is Nothing) Then + Me.tableTBPMO_CONNECTION.InitVars + End If + End If + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"),TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars + End If + End If + Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = Me.Relations("FK_TBPMO_FORM_VIEW_FORM_ID") + Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID = Me.Relations("FK_TBPMO_WORKFLOW_FORM_FV_ID") + Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID = Me.Relations("FK_TTBPMO_WORKFLOW_FORM_WF_ID") + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID = Me.Relations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID") + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID = Me.Relations("FK_TBPMO_WORKFLOW_TASK_STATE_ID") + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 = Me.Relations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1") + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 = Me.Relations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1") + Me.relationFK_TBDD_DOKUMENTART_EINGID = Me.Relations("FK_TBDD_DOKUMENTART_EINGID") + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID") + Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID1") + Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = Me.Relations("FK_TBPMO_FORM_FORM_TYPE_ID") + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID") + Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID") + Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = Me.Relations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID") + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DD_DMSDataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DD_DMSDataSet.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBPMO_FORM = New TBPMO_FORMDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM) + Me.tableVWPMO_CONTROL_SCREEN = New VWPMO_CONTROL_SCREENDataTable() + MyBase.Tables.Add(Me.tableVWPMO_CONTROL_SCREEN) + Me.tableTBPMO_FORM_VIEW = New TBPMO_FORM_VIEWDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_VIEW) + Me.tableTBPMO_RECORD = New TBPMO_RECORDDataTable() + MyBase.Tables.Add(Me.tableTBPMO_RECORD) + Me.tableVWPMO_DOKUMENTTYPES = New VWPMO_DOKUMENTTYPESDataTable() + MyBase.Tables.Add(Me.tableVWPMO_DOKUMENTTYPES) + Me.tableTBPMO_WD_FVIEW_DT_INDEX = New TBPMO_WD_FVIEW_DT_INDEXDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WD_FVIEW_DT_INDEX) + Me.tableTBPMO_WORKFLOW_TASK = New TBPMO_WORKFLOW_TASKDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK) + Me.tableTBPMO_WORKFLOW_TASK_STATE = New TBPMO_WORKFLOW_TASK_STATEDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK_STATE) + Me.tableVWPMO_GUI_ENTITY = New VWPMO_GUI_ENTITYDataTable() + MyBase.Tables.Add(Me.tableVWPMO_GUI_ENTITY) + Me.tableTBPMO_WORKFLOW = New TBPMO_WORKFLOWDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW) + Me.tableTBPMO_WORKFLOW_FORM = New TBPMO_WORKFLOW_FORMDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_FORM) + Me.tableVWPMO_WF_USER_ACTIVE = New VWPMO_WF_USER_ACTIVEDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WF_USER_ACTIVE) + Me.tableVWPMO_FOLLOWING_TASKS = New VWPMO_FOLLOWING_TASKSDataTable() + MyBase.Tables.Add(Me.tableVWPMO_FOLLOWING_TASKS) + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY) + Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable() + MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART) + Me.tableTBDD_EINGANGSARTEN = New TBDD_EINGANGSARTENDataTable() + MyBase.Tables.Add(Me.tableTBDD_EINGANGSARTEN) + Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable() + MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM) + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES) + Me.tableTBPMO_KONFIGURATION = New TBPMO_KONFIGURATIONDataTable() + MyBase.Tables.Add(Me.tableTBPMO_KONFIGURATION) + Me.tableTBDD_USER = New TBDD_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER) + Me.tableTBPMO_FORM_TYPE = New TBPMO_FORM_TYPEDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_TYPE) + Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS) + Me.tableVWPMO_USERS_GROUPS = New VWPMO_USERS_GROUPSDataTable() + MyBase.Tables.Add(Me.tableVWPMO_USERS_GROUPS) + Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER) + Me.tableTBWH_DOKART_MODULE = New TBWH_DOKART_MODULEDataTable() + MyBase.Tables.Add(Me.tableTBWH_DOKART_MODULE) + Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR) + Me.tableTBPMO_WD_OBJECTTYPE = New TBPMO_WD_OBJECTTYPEDataTable() + MyBase.Tables.Add(Me.tableTBPMO_WD_OBJECTTYPE) + Me.tableTBPMO_FILES_USER = New TBPMO_FILES_USERDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FILES_USER) + Me.tableVWPMO_WORKFLOW_FORM = New VWPMO_WORKFLOW_FORMDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WORKFLOW_FORM) + Me.tableTBPMO_FOLLOW_UP_EMAIL = New TBPMO_FOLLOW_UP_EMAILDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FOLLOW_UP_EMAIL) + Me.tableTBPMO_FOLLUPEMAIL_USER = New TBPMO_FOLLUPEMAIL_USERDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FOLLUPEMAIL_USER) + Me.tableTBPMO_RECORD_LOG_CONFIG = New TBPMO_RECORD_LOG_CONFIGDataTable() + MyBase.Tables.Add(Me.tableTBPMO_RECORD_LOG_CONFIG) + Me.tableVWPMO_RECORD_CHANGES = New VWPMO_RECORD_CHANGESDataTable() + MyBase.Tables.Add(Me.tableVWPMO_RECORD_CHANGES) + Me.tableVWPMO_WF_ACTIVE = New VWPMO_WF_ACTIVEDataTable() + MyBase.Tables.Add(Me.tableVWPMO_WF_ACTIVE) + Me.tableTBDD_EMAIL_ACCOUNT = New TBDD_EMAIL_ACCOUNTDataTable() + MyBase.Tables.Add(Me.tableTBDD_EMAIL_ACCOUNT) + Me.tableTBPMO_CONNECTION = New TBPMO_CONNECTIONDataTable() + MyBase.Tables.Add(Me.tableTBPMO_CONNECTION) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) + Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_VIEW_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_VIEW.FORM_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_VIEW_FORM_ID) + Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_FORM_FV_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID) + Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID = New Global.System.Data.DataRelation("FK_TTBPMO_WORKFLOW_FORM_WF_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID) + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_RECORD_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID) + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_STATE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID) + Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1) + Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_STATE_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1) + Me.relationFK_TBDD_DOKUMENTART_EINGID = New Global.System.Data.DataRelation("FK_TBDD_DOKUMENTART_EINGID", New Global.System.Data.DataColumn() {Me.tableTBDD_EINGANGSARTEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_DOKUMENTART_EINGID) + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID) + Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID1) + Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_FORM_TYPE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.FORM_TYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_FORM_TYPE_ID) + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) + Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID) + Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) + End Sub + + _ + Private Function ShouldSerializeTBPMO_FORM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_CONTROL_SCREEN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_VIEW() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_RECORD() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_DOKUMENTTYPES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WD_FVIEW_DT_INDEX() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW_TASK() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_STATE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_GUI_ENTITY() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WORKFLOW_FORM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WF_USER_ACTIVE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_FOLLOWING_TASKS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WF_OVERVIEW_AUTHORITY() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WD_FORMVIEW_DOKTYPES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_KONFIGURATION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_TYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_USERS_GROUPS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_DOKART_MODULE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_WD_OBJECTTYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FILES_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WORKFLOW_FORM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FOLLOW_UP_EMAIL() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FOLLUPEMAIL_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_RECORD_LOG_CONFIG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_RECORD_CHANGES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_CONNECTION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 TBPMO_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORMRowChangeEvent) + + _ + Public Delegate Sub VWPMO_CONTROL_SCREENRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_CONTROL_SCREENRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_VIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_VIEWRowChangeEvent) + + _ + Public Delegate Sub TBPMO_RECORDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORDRowChangeEvent) + + _ + Public Delegate Sub VWPMO_DOKUMENTTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_DOKUMENTTYPESRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOW_TASKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASKRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_STATERowChangeEvent) + + _ + Public Delegate Sub VWPMO_GUI_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_GUI_ENTITYRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOWRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_FORMRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WF_USER_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_USER_ACTIVERowChangeEvent) + + _ + Public Delegate Sub VWPMO_FOLLOWING_TASKSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_FOLLOWING_TASKSRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent) + + _ + Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) + + _ + Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent) + + _ + Public Delegate Sub TBPMO_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_KONFIGURATIONRowChangeEvent) + + _ + Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_TYPERowChangeEvent) + + _ + Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent) + + _ + Public Delegate Sub VWPMO_USERS_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_USERS_GROUPSRowChangeEvent) + + _ + Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) + + _ + Public Delegate Sub TBWH_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_DOKART_MODULERowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) + + _ + Public Delegate Sub TBPMO_WD_OBJECTTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_OBJECTTYPERowChangeEvent) + + _ + Public Delegate Sub TBPMO_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FILES_USERRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WORKFLOW_FORMRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLOW_UP_EMAILRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLUPEMAIL_USERRowChangeEvent) + + _ + Public Delegate Sub TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_LOG_CONFIGRowChangeEvent) + + _ + Public Delegate Sub VWPMO_RECORD_CHANGESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RECORD_CHANGESRowChangeEvent) + + _ + Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent) + + _ + Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) + + _ + Public Delegate Sub TBPMO_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_CONNECTIONRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_FORMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnSHOW_FORM_CONSTRUCT As Global.System.Data.DataColumn + + Private columnFORM_TYPE_ID As Global.System.Data.DataColumn + + Private columnSINGLE_RECORD As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property SHOW_FORM_CONSTRUCTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHOW_FORM_CONSTRUCT + End Get + End Property + + _ + Public ReadOnly Property FORM_TYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TYPE_ID + End Get + End Property + + _ + Public ReadOnly Property SINGLE_RECORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSINGLE_RECORD + 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 TBPMO_FORMRow + Get + Return CType(Me.Rows(index),TBPMO_FORMRow) + End Get + End Property + + _ + Public Event TBPMO_FORMRowChanging As TBPMO_FORMRowChangeEventHandler + + _ + Public Event TBPMO_FORMRowChanged As TBPMO_FORMRowChangeEventHandler + + _ + Public Event TBPMO_FORMRowDeleting As TBPMO_FORMRowChangeEventHandler + + _ + Public Event TBPMO_FORMRowDeleted As TBPMO_FORMRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORMRow(ByVal row As TBPMO_FORMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORMRow(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID As TBPMO_FORM_TYPERow, ByVal SINGLE_RECORD As Boolean) As TBPMO_FORMRow + Dim rowTBPMO_FORMRow As TBPMO_FORMRow = CType(Me.NewRow,TBPMO_FORMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, Nothing, SINGLE_RECORD} + If (Not (parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID) Is Nothing) Then + columnValuesArray(9) = parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID(0) + End If + rowTBPMO_FORMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORMRow) + Return rowTBPMO_FORMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORMDataTable = CType(MyBase.Clone,TBPMO_FORMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSHOW_FORM_CONSTRUCT = MyBase.Columns("SHOW_FORM_CONSTRUCT") + Me.columnFORM_TYPE_ID = MyBase.Columns("FORM_TYPE_ID") + Me.columnSINGLE_RECORD = MyBase.Columns("SINGLE_RECORD") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSHOW_FORM_CONSTRUCT = New Global.System.Data.DataColumn("SHOW_FORM_CONSTRUCT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHOW_FORM_CONSTRUCT) + Me.columnFORM_TYPE_ID = New Global.System.Data.DataColumn("FORM_TYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TYPE_ID) + Me.columnSINGLE_RECORD = New Global.System.Data.DataColumn("SINGLE_RECORD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSINGLE_RECORD) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPARENT_ID.AllowDBNull = false + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnLEVEL.AllowDBNull = false + Me.columnLEVEL.DefaultValue = CType("0",String) + Me.columnLEVEL.MaxLength = 10 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSHOW_FORM_CONSTRUCT.AllowDBNull = false + Me.columnSINGLE_RECORD.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_FORMRow() As TBPMO_FORMRow + Return CType(Me.NewRow,TBPMO_FORMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORMRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowChanged(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORMRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowChanging(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowDeleted(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORMRowDeleting(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORMRow(ByVal row As TBPMO_FORMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORMDataTable" + 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 VWPMO_CONTROL_SCREENDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_CONTROL_SCREENRow) + + Private columnCONTROL_ID As Global.System.Data.DataColumn + + Private columnCONTROL_NAME As Global.System.Data.DataColumn + + Private columnCONTROL_REQUIRED As Global.System.Data.DataColumn + + Private columnCONTROL_DEF_VALUE As Global.System.Data.DataColumn + + Private columnCONTROL_READ_ONLY As Global.System.Data.DataColumn + + Private columnCTRLTYPE_ID As Global.System.Data.DataColumn + + Private columnCTRLTYPE_NAME As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_NAME As Global.System.Data.DataColumn + + Private columnFORM_LEVEL As Global.System.Data.DataColumn + + Private columnSCREEN_ID As Global.System.Data.DataColumn + + Private columnSCREEN_NAME As Global.System.Data.DataColumn + + Private columnCTRLSCR_ID As Global.System.Data.DataColumn + + Private columnCTRLSCR_CAPTION As Global.System.Data.DataColumn + + Private columnCTRLSCR_X_LOC As Global.System.Data.DataColumn + + Private columnCTRLSCR_Y_LOC As Global.System.Data.DataColumn + + Private columnCTRLSCR_HEIGHT As Global.System.Data.DataColumn + + Private columnCTRLSCR_WIDTH As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_FAMILY As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_COLOR As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_SIZE As Global.System.Data.DataColumn + + Private columnCTRLSCR_FONT_STYLE As Global.System.Data.DataColumn + + Private columnCTRLSCR_TAB_INDEX As Global.System.Data.DataColumn + + Private columnCTRLSCR_TAB_STOP As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_CONTROL_SCREEN" + 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 CONTROL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_ID + End Get + End Property + + _ + Public ReadOnly Property CONTROL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_NAME + End Get + End Property + + _ + Public ReadOnly Property CONTROL_REQUIREDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_REQUIRED + End Get + End Property + + _ + Public ReadOnly Property CONTROL_DEF_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_DEF_VALUE + End Get + End Property + + _ + Public ReadOnly Property CONTROL_READ_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_READ_ONLY + End Get + End Property + + _ + Public ReadOnly Property CTRLTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property CTRLTYPE_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLTYPE_NAME + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_NAME + End Get + End Property + + _ + Public ReadOnly Property FORM_LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_LEVEL + End Get + End Property + + _ + Public ReadOnly Property SCREEN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCREEN_ID + End Get + End Property + + _ + Public ReadOnly Property SCREEN_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCREEN_NAME + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_ID + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_CAPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_CAPTION + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_X_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_X_LOC + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_Y_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_Y_LOC + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_HEIGHT + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_WIDTH + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_FAMILYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_FAMILY + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_COLOR + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_SIZEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_SIZE + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_FONT_STYLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_FONT_STYLE + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_TAB_INDEX + End Get + End Property + + _ + Public ReadOnly Property CTRLSCR_TAB_STOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRLSCR_TAB_STOP + 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 VWPMO_CONTROL_SCREENRow + Get + Return CType(Me.Rows(index),VWPMO_CONTROL_SCREENRow) + End Get + End Property + + _ + Public Event VWPMO_CONTROL_SCREENRowChanging As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Event VWPMO_CONTROL_SCREENRowChanged As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Event VWPMO_CONTROL_SCREENRowDeleting As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Event VWPMO_CONTROL_SCREENRowDeleted As VWPMO_CONTROL_SCREENRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_CONTROL_SCREENRow(ByVal row As VWPMO_CONTROL_SCREENRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_CONTROL_SCREENRow( _ + ByVal CONTROL_ID As Integer, _ + ByVal CONTROL_NAME As String, _ + ByVal CONTROL_REQUIRED As Boolean, _ + ByVal CONTROL_DEF_VALUE As String, _ + ByVal CONTROL_READ_ONLY As Boolean, _ + ByVal CTRLTYPE_ID As Integer, _ + ByVal CTRLTYPE_NAME As String, _ + ByVal FORM_ID As Integer, _ + ByVal FORM_NAME As String, _ + ByVal FORM_LEVEL As String, _ + ByVal SCREEN_ID As Integer, _ + ByVal SCREEN_NAME As String, _ + ByVal CTRLSCR_ID As Integer, _ + ByVal CTRLSCR_CAPTION As String, _ + ByVal CTRLSCR_X_LOC As Double, _ + ByVal CTRLSCR_Y_LOC As Double, _ + ByVal CTRLSCR_HEIGHT As Short, _ + ByVal CTRLSCR_WIDTH As Short, _ + ByVal CTRLSCR_FONT_FAMILY As String, _ + ByVal CTRLSCR_FONT_COLOR As Long, _ + ByVal CTRLSCR_FONT_SIZE As Short, _ + ByVal CTRLSCR_FONT_STYLE As Short, _ + ByVal CTRLSCR_TAB_INDEX As Short, _ + ByVal CTRLSCR_TAB_STOP As Boolean) As VWPMO_CONTROL_SCREENRow + Dim rowVWPMO_CONTROL_SCREENRow As VWPMO_CONTROL_SCREENRow = CType(Me.NewRow,VWPMO_CONTROL_SCREENRow) + Dim columnValuesArray() As Object = New Object() {CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONTROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREEN_ID, SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLSCR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTRLSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, CTRLSCR_FONT_STYLE, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP} + rowVWPMO_CONTROL_SCREENRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_CONTROL_SCREENRow) + Return rowVWPMO_CONTROL_SCREENRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_CONTROL_SCREENDataTable = CType(MyBase.Clone,VWPMO_CONTROL_SCREENDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_CONTROL_SCREENDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") + Me.columnCONTROL_NAME = MyBase.Columns("CONTROL_NAME") + Me.columnCONTROL_REQUIRED = MyBase.Columns("CONTROL_REQUIRED") + Me.columnCONTROL_DEF_VALUE = MyBase.Columns("CONTROL_DEF_VALUE") + Me.columnCONTROL_READ_ONLY = MyBase.Columns("CONTROL_READ_ONLY") + Me.columnCTRLTYPE_ID = MyBase.Columns("CTRLTYPE_ID") + Me.columnCTRLTYPE_NAME = MyBase.Columns("CTRLTYPE_NAME") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_NAME = MyBase.Columns("FORM_NAME") + Me.columnFORM_LEVEL = MyBase.Columns("FORM_LEVEL") + Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") + Me.columnSCREEN_NAME = MyBase.Columns("SCREEN_NAME") + Me.columnCTRLSCR_ID = MyBase.Columns("CTRLSCR_ID") + Me.columnCTRLSCR_CAPTION = MyBase.Columns("CTRLSCR_CAPTION") + Me.columnCTRLSCR_X_LOC = MyBase.Columns("CTRLSCR_X_LOC") + Me.columnCTRLSCR_Y_LOC = MyBase.Columns("CTRLSCR_Y_LOC") + Me.columnCTRLSCR_HEIGHT = MyBase.Columns("CTRLSCR_HEIGHT") + Me.columnCTRLSCR_WIDTH = MyBase.Columns("CTRLSCR_WIDTH") + Me.columnCTRLSCR_FONT_FAMILY = MyBase.Columns("CTRLSCR_FONT_FAMILY") + Me.columnCTRLSCR_FONT_COLOR = MyBase.Columns("CTRLSCR_FONT_COLOR") + Me.columnCTRLSCR_FONT_SIZE = MyBase.Columns("CTRLSCR_FONT_SIZE") + Me.columnCTRLSCR_FONT_STYLE = MyBase.Columns("CTRLSCR_FONT_STYLE") + Me.columnCTRLSCR_TAB_INDEX = MyBase.Columns("CTRLSCR_TAB_INDEX") + Me.columnCTRLSCR_TAB_STOP = MyBase.Columns("CTRLSCR_TAB_STOP") + End Sub + + _ + Private Sub InitClass() + Me.columnCONTROL_ID = New Global.System.Data.DataColumn("CONTROL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_ID) + Me.columnCONTROL_NAME = New Global.System.Data.DataColumn("CONTROL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_NAME) + Me.columnCONTROL_REQUIRED = New Global.System.Data.DataColumn("CONTROL_REQUIRED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_REQUIRED) + Me.columnCONTROL_DEF_VALUE = New Global.System.Data.DataColumn("CONTROL_DEF_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_DEF_VALUE) + Me.columnCONTROL_READ_ONLY = New Global.System.Data.DataColumn("CONTROL_READ_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_READ_ONLY) + Me.columnCTRLTYPE_ID = New Global.System.Data.DataColumn("CTRLTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLTYPE_ID) + Me.columnCTRLTYPE_NAME = New Global.System.Data.DataColumn("CTRLTYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLTYPE_NAME) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_NAME = New Global.System.Data.DataColumn("FORM_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_NAME) + Me.columnFORM_LEVEL = New Global.System.Data.DataColumn("FORM_LEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_LEVEL) + Me.columnSCREEN_ID = New Global.System.Data.DataColumn("SCREEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCREEN_ID) + Me.columnSCREEN_NAME = New Global.System.Data.DataColumn("SCREEN_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCREEN_NAME) + Me.columnCTRLSCR_ID = New Global.System.Data.DataColumn("CTRLSCR_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_ID) + Me.columnCTRLSCR_CAPTION = New Global.System.Data.DataColumn("CTRLSCR_CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_CAPTION) + Me.columnCTRLSCR_X_LOC = New Global.System.Data.DataColumn("CTRLSCR_X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_X_LOC) + Me.columnCTRLSCR_Y_LOC = New Global.System.Data.DataColumn("CTRLSCR_Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_Y_LOC) + Me.columnCTRLSCR_HEIGHT = New Global.System.Data.DataColumn("CTRLSCR_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_HEIGHT) + Me.columnCTRLSCR_WIDTH = New Global.System.Data.DataColumn("CTRLSCR_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_WIDTH) + Me.columnCTRLSCR_FONT_FAMILY = New Global.System.Data.DataColumn("CTRLSCR_FONT_FAMILY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_FAMILY) + Me.columnCTRLSCR_FONT_COLOR = New Global.System.Data.DataColumn("CTRLSCR_FONT_COLOR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_COLOR) + Me.columnCTRLSCR_FONT_SIZE = New Global.System.Data.DataColumn("CTRLSCR_FONT_SIZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_SIZE) + Me.columnCTRLSCR_FONT_STYLE = New Global.System.Data.DataColumn("CTRLSCR_FONT_STYLE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_FONT_STYLE) + Me.columnCTRLSCR_TAB_INDEX = New Global.System.Data.DataColumn("CTRLSCR_TAB_INDEX", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_TAB_INDEX) + Me.columnCTRLSCR_TAB_STOP = New Global.System.Data.DataColumn("CTRLSCR_TAB_STOP", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRLSCR_TAB_STOP) + Me.columnCONTROL_ID.AllowDBNull = false + Me.columnCONTROL_NAME.AllowDBNull = false + Me.columnCONTROL_NAME.MaxLength = 100 + Me.columnCONTROL_REQUIRED.AllowDBNull = false + Me.columnCONTROL_DEF_VALUE.MaxLength = 100 + Me.columnCONTROL_READ_ONLY.AllowDBNull = false + Me.columnCTRLTYPE_ID.AllowDBNull = false + Me.columnCTRLTYPE_NAME.AllowDBNull = false + Me.columnCTRLTYPE_NAME.MaxLength = 20 + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_NAME.AllowDBNull = false + Me.columnFORM_NAME.MaxLength = 100 + Me.columnFORM_LEVEL.AllowDBNull = false + Me.columnFORM_LEVEL.MaxLength = 10 + Me.columnSCREEN_ID.AllowDBNull = false + Me.columnSCREEN_NAME.AllowDBNull = false + Me.columnSCREEN_NAME.MaxLength = 100 + Me.columnCTRLSCR_ID.AllowDBNull = false + Me.columnCTRLSCR_CAPTION.AllowDBNull = false + Me.columnCTRLSCR_CAPTION.MaxLength = 100 + Me.columnCTRLSCR_X_LOC.AllowDBNull = false + Me.columnCTRLSCR_Y_LOC.AllowDBNull = false + Me.columnCTRLSCR_HEIGHT.AllowDBNull = false + Me.columnCTRLSCR_WIDTH.AllowDBNull = false + Me.columnCTRLSCR_FONT_FAMILY.AllowDBNull = false + Me.columnCTRLSCR_FONT_FAMILY.MaxLength = 50 + Me.columnCTRLSCR_FONT_COLOR.AllowDBNull = false + Me.columnCTRLSCR_FONT_SIZE.AllowDBNull = false + Me.columnCTRLSCR_FONT_STYLE.AllowDBNull = false + Me.columnCTRLSCR_TAB_INDEX.AllowDBNull = false + Me.columnCTRLSCR_TAB_STOP.AllowDBNull = false + End Sub + + _ + Public Function NewVWPMO_CONTROL_SCREENRow() As VWPMO_CONTROL_SCREENRow + Return CType(Me.NewRow,VWPMO_CONTROL_SCREENRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_CONTROL_SCREENRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_CONTROL_SCREENRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowChanged(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowChanging(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowDeleted(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_CONTROL_SCREENRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_CONTROL_SCREENRowDeleting(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_CONTROL_SCREENRow(ByVal row As VWPMO_CONTROL_SCREENRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_CONTROL_SCREENDataTable" + 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 TBPMO_FORM_VIEWDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_VIEWRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSCREEN_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnWIDTH As Global.System.Data.DataColumn + + Private columnHEIGHT As Global.System.Data.DataColumn + + Private columnDIALOG As Global.System.Data.DataColumn + + Private columnMAXIMIZABLE As Global.System.Data.DataColumn + + Private columnMINIMIZABLE As Global.System.Data.DataColumn + + Private columnMAX_WIDTH As Global.System.Data.DataColumn + + Private columnMIN_WIDTH As Global.System.Data.DataColumn + + Private columnMAX_HEIGHT As Global.System.Data.DataColumn + + Private columnMIN_HEIGHT As Global.System.Data.DataColumn + + Private columnX_LOC As Global.System.Data.DataColumn + + Private columnY_LOC As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnIS_MDI_CHILD As Global.System.Data.DataColumn + + Private columnDOCUMENT_VIEW As Global.System.Data.DataColumn + + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn + + Private columnALLOW_DROP As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_VIEW" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property SCREEN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCREEN_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWIDTH + End Get + End Property + + _ + Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHEIGHT + End Get + End Property + + _ + Public ReadOnly Property DIALOGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDIALOG + End Get + End Property + + _ + Public ReadOnly Property MAXIMIZABLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMAXIMIZABLE + End Get + End Property + + _ + Public ReadOnly Property MINIMIZABLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMINIMIZABLE + End Get + End Property + + _ + Public ReadOnly Property MAX_WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMAX_WIDTH + End Get + End Property + + _ + Public ReadOnly Property MIN_WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMIN_WIDTH + End Get + End Property + + _ + Public ReadOnly Property MAX_HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMAX_HEIGHT + End Get + End Property + + _ + Public ReadOnly Property MIN_HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMIN_HEIGHT + End Get + End Property + + _ + Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnX_LOC + End Get + End Property + + _ + Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnY_LOC + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property IS_MDI_CHILDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIS_MDI_CHILD + End Get + End Property + + _ + Public ReadOnly Property DOCUMENT_VIEWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCUMENT_VIEW + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_SEARCH + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN1 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN2 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN3 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN4 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN5 + End Get + End Property + + _ + Public ReadOnly Property ALLOW_DROPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnALLOW_DROP + 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 TBPMO_FORM_VIEWRow + Get + Return CType(Me.Rows(index),TBPMO_FORM_VIEWRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_VIEWRowChanging As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Event TBPMO_FORM_VIEWRowChanged As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Event TBPMO_FORM_VIEWRowDeleting As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Event TBPMO_FORM_VIEWRowDeleted As TBPMO_FORM_VIEWRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_VIEWRow(ByVal row As TBPMO_FORM_VIEWRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_VIEWRow( _ + ByVal SCREEN_ID As Integer, _ + ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID As TBPMO_FORMRow, _ + ByVal FORM_TITLE As String, _ + ByVal DESCRIPTION As String, _ + ByVal WIDTH As Short, _ + ByVal HEIGHT As Short, _ + ByVal DIALOG As Boolean, _ + ByVal MAXIMIZABLE As Boolean, _ + ByVal MINIMIZABLE As Boolean, _ + ByVal MAX_WIDTH As Short, _ + ByVal MIN_WIDTH As Short, _ + ByVal MAX_HEIGHT As Short, _ + ByVal MIN_HEIGHT As Short, _ + ByVal X_LOC As Double, _ + ByVal Y_LOC As Double, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal IS_MDI_CHILD As Boolean, _ + ByVal DOCUMENT_VIEW As Boolean, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal ALLOW_DROP As Boolean) As TBPMO_FORM_VIEWRow + Dim rowTBPMO_FORM_VIEWRow As TBPMO_FORM_VIEWRow = CType(Me.NewRow,TBPMO_FORM_VIEWRow) + Dim columnValuesArray() As Object = New Object() {Nothing, SCREEN_ID, Nothing, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IS_MDI_CHILD, DOCUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, ALLOW_DROP} + If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID(0) + End If + rowTBPMO_FORM_VIEWRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_VIEWRow) + Return rowTBPMO_FORM_VIEWRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_VIEWRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_VIEWRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_VIEWDataTable = CType(MyBase.Clone,TBPMO_FORM_VIEWDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_VIEWDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnWIDTH = MyBase.Columns("WIDTH") + Me.columnHEIGHT = MyBase.Columns("HEIGHT") + Me.columnDIALOG = MyBase.Columns("DIALOG") + Me.columnMAXIMIZABLE = MyBase.Columns("MAXIMIZABLE") + Me.columnMINIMIZABLE = MyBase.Columns("MINIMIZABLE") + Me.columnMAX_WIDTH = MyBase.Columns("MAX_WIDTH") + Me.columnMIN_WIDTH = MyBase.Columns("MIN_WIDTH") + Me.columnMAX_HEIGHT = MyBase.Columns("MAX_HEIGHT") + Me.columnMIN_HEIGHT = MyBase.Columns("MIN_HEIGHT") + Me.columnX_LOC = MyBase.Columns("X_LOC") + Me.columnY_LOC = MyBase.Columns("Y_LOC") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnIS_MDI_CHILD = MyBase.Columns("IS_MDI_CHILD") + Me.columnDOCUMENT_VIEW = MyBase.Columns("DOCUMENT_VIEW") + Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") + Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") + Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") + Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") + Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") + Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") + Me.columnALLOW_DROP = MyBase.Columns("ALLOW_DROP") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSCREEN_ID = New Global.System.Data.DataColumn("SCREEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCREEN_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWIDTH) + Me.columnHEIGHT = New Global.System.Data.DataColumn("HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHEIGHT) + Me.columnDIALOG = New Global.System.Data.DataColumn("DIALOG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDIALOG) + Me.columnMAXIMIZABLE = New Global.System.Data.DataColumn("MAXIMIZABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMAXIMIZABLE) + Me.columnMINIMIZABLE = New Global.System.Data.DataColumn("MINIMIZABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMINIMIZABLE) + Me.columnMAX_WIDTH = New Global.System.Data.DataColumn("MAX_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMAX_WIDTH) + Me.columnMIN_WIDTH = New Global.System.Data.DataColumn("MIN_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMIN_WIDTH) + Me.columnMAX_HEIGHT = New Global.System.Data.DataColumn("MAX_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMAX_HEIGHT) + Me.columnMIN_HEIGHT = New Global.System.Data.DataColumn("MIN_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMIN_HEIGHT) + Me.columnX_LOC = New Global.System.Data.DataColumn("X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnX_LOC) + Me.columnY_LOC = New Global.System.Data.DataColumn("Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnY_LOC) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnIS_MDI_CHILD = New Global.System.Data.DataColumn("IS_MDI_CHILD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIS_MDI_CHILD) + Me.columnDOCUMENT_VIEW = New Global.System.Data.DataColumn("DOCUMENT_VIEW", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCUMENT_VIEW) + Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) + Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) + Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) + Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) + Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) + Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) + Me.columnALLOW_DROP = New Global.System.Data.DataColumn("ALLOW_DROP", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnALLOW_DROP) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSCREEN_ID.AllowDBNull = false + Me.columnSCREEN_ID.DefaultValue = CType(1,Integer) + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_TITLE.AllowDBNull = false + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnDESCRIPTION.AllowDBNull = false + Me.columnDESCRIPTION.MaxLength = 300 + Me.columnDIALOG.AllowDBNull = false + Me.columnMAXIMIZABLE.AllowDBNull = false + Me.columnMINIMIZABLE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIS_MDI_CHILD.AllowDBNull = false + Me.columnDOCUMENT_VIEW.AllowDBNull = false + Me.columnWINDREAM_SEARCH.MaxLength = 300 + Me.columnSEARCH_PATTERN1.MaxLength = 50 + Me.columnSEARCH_PATTERN2.MaxLength = 50 + Me.columnSEARCH_PATTERN3.MaxLength = 50 + Me.columnSEARCH_PATTERN4.MaxLength = 50 + Me.columnSEARCH_PATTERN5.MaxLength = 50 + Me.columnALLOW_DROP.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_FORM_VIEWRow() As TBPMO_FORM_VIEWRow + Return CType(Me.NewRow,TBPMO_FORM_VIEWRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_VIEWRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_VIEWRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_VIEWRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowChanged(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_VIEWRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowChanging(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_VIEWRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowDeleted(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_VIEWRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_VIEWRowDeleting(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_VIEWRow(ByVal row As TBPMO_FORM_VIEWRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_VIEWDataTable" + 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 TBPMO_RECORDDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORDRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_RECORD" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_RECORDRow + Get + Return CType(Me.Rows(index),TBPMO_RECORDRow) + End Get + End Property + + _ + Public Event TBPMO_RECORDRowChanging As TBPMO_RECORDRowChangeEventHandler + + _ + Public Event TBPMO_RECORDRowChanged As TBPMO_RECORDRowChangeEventHandler + + _ + Public Event TBPMO_RECORDRowDeleting As TBPMO_RECORDRowChangeEventHandler + + _ + Public Event TBPMO_RECORDRowDeleted As TBPMO_RECORDRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_RECORDRow(ByVal row As TBPMO_RECORDRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_RECORDRow(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_RECORDRow + Dim rowTBPMO_RECORDRow As TBPMO_RECORDRow = CType(Me.NewRow,TBPMO_RECORDRow) + Dim columnValuesArray() As Object = New Object() {Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_RECORDRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RECORDRow) + Return rowTBPMO_RECORDRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORDRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORDRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_RECORDDataTable = CType(MyBase.Clone,TBPMO_RECORDDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_RECORDDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_RECORDRow() As TBPMO_RECORDRow + Return CType(Me.NewRow,TBPMO_RECORDRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_RECORDRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_RECORDRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_RECORDRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowChanged(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_RECORDRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowChanging(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_RECORDRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowDeleted(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_RECORDRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORDRowDeleting(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_RECORDRow(ByVal row As TBPMO_RECORDRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_RECORDDataTable" + 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 VWPMO_DOKUMENTTYPESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_DOKUMENTTYPESRow) + + Private columnFORMVIEW_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnDOKUMENTTYPE_ID As Global.System.Data.DataColumn + + Private columnDOKUMENTTYPE As Global.System.Data.DataColumn + + Private columnPATH As Global.System.Data.DataColumn + + Private columnSHORTNAME As Global.System.Data.DataColumn + + Private columnOBJECT_TYPE As Global.System.Data.DataColumn + + Private columnFW_DOCTYPE_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_DOKUMENTTYPES" + 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 FORMVIEW_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORMVIEW_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property DOKUMENTTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOKUMENTTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property DOKUMENTTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOKUMENTTYPE + End Get + End Property + + _ + Public ReadOnly Property PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPATH + End Get + End Property + + _ + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORTNAME + End Get + End Property + + _ + Public ReadOnly Property OBJECT_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJECT_TYPE + End Get + End Property + + _ + Public ReadOnly Property FW_DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFW_DOCTYPE_ID + 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 VWPMO_DOKUMENTTYPESRow + Get + Return CType(Me.Rows(index),VWPMO_DOKUMENTTYPESRow) + End Get + End Property + + _ + Public Event VWPMO_DOKUMENTTYPESRowChanging As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Event VWPMO_DOKUMENTTYPESRowChanged As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Event VWPMO_DOKUMENTTYPESRowDeleting As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Event VWPMO_DOKUMENTTYPESRowDeleted As VWPMO_DOKUMENTTYPESRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_DOKUMENTTYPESRow(ByVal row As VWPMO_DOKUMENTTYPESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_DOKUMENTTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_ID As Integer, ByVal FORM_TITLE As String, ByVal DOKUMENTTYPE_ID As Integer, ByVal DOKUMENTTYPE As String, ByVal PATH As String, ByVal SHORTNAME As String, ByVal OBJECT_TYPE As String, ByVal FW_DOCTYPE_ID As Integer) As VWPMO_DOKUMENTTYPESRow + Dim rowVWPMO_DOKUMENTTYPESRow As VWPMO_DOKUMENTTYPESRow = CType(Me.NewRow,VWPMO_DOKUMENTTYPESRow) + Dim columnValuesArray() As Object = New Object() {FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PATH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID} + rowVWPMO_DOKUMENTTYPESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_DOKUMENTTYPESRow) + Return rowVWPMO_DOKUMENTTYPESRow + End Function + + _ + Public Function FindByDOKUMENTTYPE_ID(ByVal DOKUMENTTYPE_ID As Integer) As VWPMO_DOKUMENTTYPESRow + Return CType(Me.Rows.Find(New Object() {DOKUMENTTYPE_ID}),VWPMO_DOKUMENTTYPESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_DOKUMENTTYPESDataTable = CType(MyBase.Clone,VWPMO_DOKUMENTTYPESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_DOKUMENTTYPESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnDOKUMENTTYPE_ID = MyBase.Columns("DOKUMENTTYPE_ID") + Me.columnDOKUMENTTYPE = MyBase.Columns("DOKUMENTTYPE") + Me.columnPATH = MyBase.Columns("PATH") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") + Me.columnFW_DOCTYPE_ID = MyBase.Columns("FW_DOCTYPE_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnFORMVIEW_ID = New Global.System.Data.DataColumn("FORMVIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORMVIEW_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnDOKUMENTTYPE_ID = New Global.System.Data.DataColumn("DOKUMENTTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOKUMENTTYPE_ID) + Me.columnDOKUMENTTYPE = New Global.System.Data.DataColumn("DOKUMENTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOKUMENTTYPE) + Me.columnPATH = New Global.System.Data.DataColumn("PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPATH) + Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORTNAME) + Me.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECT_TYPE) + Me.columnFW_DOCTYPE_ID = New Global.System.Data.DataColumn("FW_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFW_DOCTYPE_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDOKUMENTTYPE_ID}, true)) + Me.columnFORMVIEW_ID.AllowDBNull = false + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_TITLE.AllowDBNull = false + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnDOKUMENTTYPE_ID.AllowDBNull = false + Me.columnDOKUMENTTYPE_ID.Unique = true + Me.columnDOKUMENTTYPE.AllowDBNull = false + Me.columnDOKUMENTTYPE.MaxLength = 50 + Me.columnPATH.AllowDBNull = false + Me.columnPATH.MaxLength = 250 + Me.columnSHORTNAME.AllowDBNull = false + Me.columnSHORTNAME.MaxLength = 50 + Me.columnOBJECT_TYPE.AllowDBNull = false + Me.columnOBJECT_TYPE.MaxLength = 100 + Me.columnFW_DOCTYPE_ID.AllowDBNull = false + End Sub + + _ + Public Function NewVWPMO_DOKUMENTTYPESRow() As VWPMO_DOKUMENTTYPESRow + Return CType(Me.NewRow,VWPMO_DOKUMENTTYPESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_DOKUMENTTYPESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_DOKUMENTTYPESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowChanged(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowChanging(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowDeleted(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_DOKUMENTTYPESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_DOKUMENTTYPESRowDeleting(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_DOKUMENTTYPESRow(ByVal row As VWPMO_DOKUMENTTYPESRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_DOKUMENTTYPESDataTable" + 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 TBPMO_WD_FVIEW_DT_INDEXDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FVIEW_DT_INDEXRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFW_DOCTYPE_ID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnINDEX_VALUE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WD_FVIEW_DT_INDEX" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FW_DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFW_DOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property INDEX_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEX_VALUE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WD_FVIEW_DT_INDEXRow + Get + Return CType(Me.Rows(index),TBPMO_WD_FVIEW_DT_INDEXRow) + End Get + End Property + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowChanging As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowChanged As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowDeleting As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Event TBPMO_WD_FVIEW_DT_INDEXRowDeleted As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WD_FVIEW_DT_INDEXRow(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WD_FVIEW_DT_INDEXRow(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WD_FVIEW_DT_INDEXRow + Dim rowTBPMO_WD_FVIEW_DT_INDEXRow As TBPMO_WD_FVIEW_DT_INDEXRow = CType(Me.NewRow,TBPMO_WD_FVIEW_DT_INDEXRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WD_FVIEW_DT_INDEXRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_FVIEW_DT_INDEXRow) + Return rowTBPMO_WD_FVIEW_DT_INDEXRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FVIEW_DT_INDEXRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FVIEW_DT_INDEXRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WD_FVIEW_DT_INDEXDataTable = CType(MyBase.Clone,TBPMO_WD_FVIEW_DT_INDEXDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WD_FVIEW_DT_INDEXDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFW_DOCTYPE_ID = MyBase.Columns("FW_DOCTYPE_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnINDEX_VALUE = MyBase.Columns("INDEX_VALUE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFW_DOCTYPE_ID = New Global.System.Data.DataColumn("FW_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFW_DOCTYPE_ID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnINDEX_VALUE = New Global.System.Data.DataColumn("INDEX_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEX_VALUE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFW_DOCTYPE_ID.AllowDBNull = false + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 100 + Me.columnINDEX_VALUE.AllowDBNull = false + Me.columnINDEX_VALUE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WD_FVIEW_DT_INDEXRow() As TBPMO_WD_FVIEW_DT_INDEXRow + Return CType(Me.NewRow,TBPMO_WD_FVIEW_DT_INDEXRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WD_FVIEW_DT_INDEXRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WD_FVIEW_DT_INDEXRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowChanged(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowChanging(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowDeleted(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowDeleting(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WD_FVIEW_DT_INDEXRow(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WD_FVIEW_DT_INDEXDataTable" + 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 TBPMO_WORKFLOW_TASKDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_TASKRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW_TASK" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + 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 TBPMO_WORKFLOW_TASKRow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOW_TASKRow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOW_TASKRowChanging As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASKRowChanged As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASKRowDeleting As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASKRowDeleted As TBPMO_WORKFLOW_TASKRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOW_TASKRow(ByVal row As TBPMO_WORKFLOW_TASKRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOW_TASKRow(ByVal RECORD_ID As Integer, ByVal WF_ID As Integer, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal STATE_ID As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TITLE As String) As TBPMO_WORKFLOW_TASKRow + Dim rowTBPMO_WORKFLOW_TASKRow As TBPMO_WORKFLOW_TASKRow = CType(Me.NewRow,TBPMO_WORKFLOW_TASKRow) + Dim columnValuesArray() As Object = New Object() {Nothing, RECORD_ID, WF_ID, COMMENT, DUE_DATE, STATE_ID, ACTIVE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TITLE} + rowTBPMO_WORKFLOW_TASKRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOW_TASKRow) + Return rowTBPMO_WORKFLOW_TASKRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_TASKRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_TASKRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOW_TASKDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_TASKDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOW_TASKDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTITLE = MyBase.Columns("TITLE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnRECORD_ID.AllowDBNull = false + Me.columnWF_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 500 + Me.columnSTATE_ID.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + End Sub + + _ + Public Function NewTBPMO_WORKFLOW_TASKRow() As TBPMO_WORKFLOW_TASKRow + Return CType(Me.NewRow,TBPMO_WORKFLOW_TASKRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOW_TASKRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOW_TASKRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowChanged(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowChanging(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowDeleted(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOW_TASKRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASKRowDeleting(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOW_TASKRow(ByVal row As TBPMO_WORKFLOW_TASKRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOW_TASKDataTable" + 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 TBPMO_WORKFLOW_TASK_STATEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_TASK_STATERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSTATE_DESC As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW_TASK_STATE" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_DESC + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + 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 TBPMO_WORKFLOW_TASK_STATERow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOW_TASK_STATERow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowChanging As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowChanged As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowDeleting As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_TASK_STATERowDeleted As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOW_TASK_STATERow(ByVal row As TBPMO_WORKFLOW_TASK_STATERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOW_TASK_STATERow(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COLOR As String) As TBPMO_WORKFLOW_TASK_STATERow + Dim rowTBPMO_WORKFLOW_TASK_STATERow As TBPMO_WORKFLOW_TASK_STATERow = CType(Me.NewRow,TBPMO_WORKFLOW_TASK_STATERow) + Dim columnValuesArray() As Object = New Object() {Nothing, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR} + rowTBPMO_WORKFLOW_TASK_STATERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOW_TASK_STATERow) + Return rowTBPMO_WORKFLOW_TASK_STATERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_TASK_STATERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_TASK_STATERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOW_TASK_STATEDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_TASK_STATEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOW_TASK_STATEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLOR = MyBase.Columns("COLOR") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_DESC) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSTATE_DESC.AllowDBNull = false + Me.columnSTATE_DESC.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLOR.MaxLength = 20 + End Sub + + _ + Public Function NewTBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow + Return CType(Me.NewRow,TBPMO_WORKFLOW_TASK_STATERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOW_TASK_STATERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOW_TASK_STATERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowChanged(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowChanging(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowDeleted(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_TASK_STATERowDeleting(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOW_TASK_STATERow(ByVal row As TBPMO_WORKFLOW_TASK_STATERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOW_TASK_STATEDataTable" + 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 VWPMO_GUI_ENTITYDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_GUI_ENTITYRow) + + Private columnID As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_GUI_ENTITY" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + 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 VWPMO_GUI_ENTITYRow + Get + Return CType(Me.Rows(index),VWPMO_GUI_ENTITYRow) + End Get + End Property + + _ + Public Event VWPMO_GUI_ENTITYRowChanging As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Event VWPMO_GUI_ENTITYRowChanged As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Event VWPMO_GUI_ENTITYRowDeleting As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Event VWPMO_GUI_ENTITYRowDeleted As VWPMO_GUI_ENTITYRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_GUI_ENTITYRow(ByVal row As VWPMO_GUI_ENTITYRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_GUI_ENTITYRow(ByVal Name As String, ByVal Title As String) As VWPMO_GUI_ENTITYRow + Dim rowVWPMO_GUI_ENTITYRow As VWPMO_GUI_ENTITYRow = CType(Me.NewRow,VWPMO_GUI_ENTITYRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Name, Title} + rowVWPMO_GUI_ENTITYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_GUI_ENTITYRow) + Return rowVWPMO_GUI_ENTITYRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_GUI_ENTITYDataTable = CType(MyBase.Clone,VWPMO_GUI_ENTITYDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_GUI_ENTITYDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnName = MyBase.Columns("Name") + Me.columnTitle = MyBase.Columns("Title") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnID.AutoIncrement = true + Me.columnID.AutoIncrementSeed = -1 + Me.columnID.AutoIncrementStep = -1 + Me.columnID.AllowDBNull = false + Me.columnID.ReadOnly = true + Me.columnName.AllowDBNull = false + Me.columnName.MaxLength = 100 + Me.columnTitle.AllowDBNull = false + Me.columnTitle.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_GUI_ENTITYRow() As VWPMO_GUI_ENTITYRow + Return CType(Me.NewRow,VWPMO_GUI_ENTITYRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_GUI_ENTITYRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_GUI_ENTITYRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_GUI_ENTITYRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowChanged(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_GUI_ENTITYRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowChanging(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_GUI_ENTITYRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowDeleted(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_GUI_ENTITYRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_GUI_ENTITYRowDeleting(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_GUI_ENTITYRow(ByVal row As VWPMO_GUI_ENTITYRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_GUI_ENTITYDataTable" + 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 TBPMO_WORKFLOWDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOWRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WORKFLOWRow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOWRow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOWRowChanging As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOWRowChanged As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOWRowDeleting As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOWRowDeleted As TBPMO_WORKFLOWRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOWRow(ByVal row As TBPMO_WORKFLOWRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOWRow(ByVal TITLE As String, ByVal DESCRIPTION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOWRow + Dim rowTBPMO_WORKFLOWRow As TBPMO_WORKFLOWRow = CType(Me.NewRow,TBPMO_WORKFLOWRow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WORKFLOWRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOWRow) + Return rowTBPMO_WORKFLOWRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOWRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOWRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOWDataTable = CType(MyBase.Clone,TBPMO_WORKFLOWDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOWDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnDESCRIPTION.MaxLength = 250 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WORKFLOWRow() As TBPMO_WORKFLOWRow + Return CType(Me.NewRow,TBPMO_WORKFLOWRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOWRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOWRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOWRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowChanged(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOWRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowChanging(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOWRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowDeleted(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOWRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOWRowDeleting(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOWRow(ByVal row As TBPMO_WORKFLOWRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOWDataTable" + 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 TBPMO_WORKFLOW_FORMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_FORMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WORKFLOW_FORM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WORKFLOW_FORMRow + Get + Return CType(Me.Rows(index),TBPMO_WORKFLOW_FORMRow) + End Get + End Property + + _ + Public Event TBPMO_WORKFLOW_FORMRowChanging As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_FORMRowChanged As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_FORMRowDeleting As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event TBPMO_WORKFLOW_FORMRowDeleted As TBPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WORKFLOW_FORMRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID As TBPMO_FORMRow, ByVal parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID As TBPMO_WORKFLOWRow, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOW_FORMRow + Dim rowTBPMO_WORKFLOW_FORMRow As TBPMO_WORKFLOW_FORMRow = CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID(0) + End If + If (Not (parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID(0) + End If + rowTBPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WORKFLOW_FORMRow) + Return rowTBPMO_WORKFLOW_FORMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_FORMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_FORMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_FORMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WORKFLOW_FORMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORM_ID.AllowDBNull = false + Me.columnWF_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WORKFLOW_FORMRow() As TBPMO_WORKFLOW_FORMRow + Return CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WORKFLOW_FORMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowChanged(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowChanging(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowDeleted(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WORKFLOW_FORMRowDeleting(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WORKFLOW_FORMDataTable" + 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 VWPMO_WF_USER_ACTIVEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_USER_ACTIVERow) + + Private columnWF_TASK_ID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTASK_DATE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WF_USER_ACTIVE" + 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_TASK_ID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TASK_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTASK_DATE + 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 VWPMO_WF_USER_ACTIVERow + Get + Return CType(Me.Rows(index),VWPMO_WF_USER_ACTIVERow) + End Get + End Property + + _ + Public Event VWPMO_WF_USER_ACTIVERowChanging As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_USER_ACTIVERowChanged As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_USER_ACTIVERowDeleting As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_USER_ACTIVERowDeleted As VWPMO_WF_USER_ACTIVERowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WF_USER_ACTIVERow(ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_USER_ACTIVERow + Dim rowVWPMO_WF_USER_ACTIVERow As VWPMO_WF_USER_ACTIVERow = CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE} + If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID(0) + End If + If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID) Is Nothing) Then + columnValuesArray(3) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID(0) + End If + rowVWPMO_WF_USER_ACTIVERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_USER_ACTIVERow) + Return rowVWPMO_WF_USER_ACTIVERow + End Function + + _ + Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_USER_ACTIVERow + Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_USER_ACTIVERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WF_USER_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_USER_ACTIVEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WF_USER_ACTIVEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") + End Sub + + _ + Private Sub InitClass() + Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TASK_ID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTASK_DATE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) + Me.columnWF_TASK_ID.AutoIncrement = true + Me.columnWF_TASK_ID.AutoIncrementSeed = -1 + Me.columnWF_TASK_ID.AutoIncrementStep = -1 + Me.columnWF_TASK_ID.AllowDBNull = false + Me.columnWF_TASK_ID.ReadOnly = true + Me.columnWF_TASK_ID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnSTATE_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 500 + Me.columnUSERNAME.ReadOnly = true + Me.columnUSERNAME.MaxLength = 1024 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WF_USER_ACTIVERow() As VWPMO_WF_USER_ACTIVERow + Return CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WF_USER_ACTIVERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WF_USER_ACTIVERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowChanged(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowChanging(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowDeleted(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_USER_ACTIVERowDeleting(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WF_USER_ACTIVEDataTable" + 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 VWPMO_FOLLOWING_TASKSDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_FOLLOWING_TASKSRow) + + Private columnJOB As Global.System.Data.DataColumn + + Private columnWF_TASK_ID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_FOLLOWING_TASKS" + 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 JOBColumn() As Global.System.Data.DataColumn + Get + Return Me.columnJOB + End Get + End Property + + _ + Public ReadOnly Property WF_TASK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_TASK_ID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 VWPMO_FOLLOWING_TASKSRow + Get + Return CType(Me.Rows(index),VWPMO_FOLLOWING_TASKSRow) + End Get + End Property + + _ + Public Event VWPMO_FOLLOWING_TASKSRowChanging As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Event VWPMO_FOLLOWING_TASKSRowChanged As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Event VWPMO_FOLLOWING_TASKSRowDeleting As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Event VWPMO_FOLLOWING_TASKSRowDeleted As VWPMO_FOLLOWING_TASKSRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_FOLLOWING_TASKSRow(ByVal row As VWPMO_FOLLOWING_TASKSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_FOLLOWING_TASKSRow(ByVal JOB As String, ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1 As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_FOLLOWING_TASKSRow + Dim rowVWPMO_FOLLOWING_TASKSRow As VWPMO_FOLLOWING_TASKSRow = CType(Me.NewRow,VWPMO_FOLLOWING_TASKSRow) + Dim columnValuesArray() As Object = New Object() {JOB, Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1) Is Nothing) Then + columnValuesArray(3) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1(0) + End If + If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1) Is Nothing) Then + columnValuesArray(4) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1(0) + End If + rowVWPMO_FOLLOWING_TASKSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_FOLLOWING_TASKSRow) + Return rowVWPMO_FOLLOWING_TASKSRow + End Function + + _ + Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_FOLLOWING_TASKSRow + Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_FOLLOWING_TASKSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_FOLLOWING_TASKSDataTable = CType(MyBase.Clone,VWPMO_FOLLOWING_TASKSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_FOLLOWING_TASKSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnJOB = MyBase.Columns("JOB") + Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnJOB = New Global.System.Data.DataColumn("JOB", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnJOB) + Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TASK_ID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) + Me.columnJOB.MaxLength = 100 + Me.columnWF_TASK_ID.AutoIncrement = true + Me.columnWF_TASK_ID.AutoIncrementSeed = -1 + Me.columnWF_TASK_ID.AutoIncrementStep = -1 + Me.columnWF_TASK_ID.AllowDBNull = false + Me.columnWF_TASK_ID.ReadOnly = true + Me.columnWF_TASK_ID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnSTATE_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 500 + Me.columnUSERNAME.ReadOnly = true + Me.columnUSERNAME.MaxLength = 1024 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_FOLLOWING_TASKSRow() As VWPMO_FOLLOWING_TASKSRow + Return CType(Me.NewRow,VWPMO_FOLLOWING_TASKSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_FOLLOWING_TASKSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_FOLLOWING_TASKSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowChanged(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowChanging(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowDeleted(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_FOLLOWING_TASKSRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_FOLLOWING_TASKSRowDeleting(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_FOLLOWING_TASKSRow(ByVal row As VWPMO_FOLLOWING_TASKSRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_FOLLOWING_TASKSDataTable" + 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 VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_OVERVIEW_AUTHORITYRow) + + Private columnSTATE As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnAuthority As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WF_OVERVIEW_AUTHORITY" + 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 STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property AuthorityColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAuthority + End Get + End Property + + _ + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnString + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 VWPMO_WF_OVERVIEW_AUTHORITYRow + Get + Return CType(Me.Rows(index),VWPMO_WF_OVERVIEW_AUTHORITYRow) + End Get + End Property + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanging As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanged As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal STATE As String, ByVal Authority As String, ByVal _String As String, ByVal WF_ID As Integer, ByVal RECORD_ID As Integer, ByVal COLOR As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_WF_OVERVIEW_AUTHORITYRow + Dim rowVWPMO_WF_OVERVIEW_AUTHORITYRow As VWPMO_WF_OVERVIEW_AUTHORITYRow = CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) + Dim columnValuesArray() As Object = New Object() {STATE, Nothing, Authority, _String, WF_ID, RECORD_ID, COLOR, CHANGED_WHO, CHANGED_WHEN} + rowVWPMO_WF_OVERVIEW_AUTHORITYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_OVERVIEW_AUTHORITYRow) + Return rowVWPMO_WF_OVERVIEW_AUTHORITYRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WF_OVERVIEW_AUTHORITYDataTable = CType(MyBase.Clone,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSTATE = MyBase.Columns("STATE") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnAuthority = MyBase.Columns("Authority") + Me.columnString = MyBase.Columns("String") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnCOLOR = MyBase.Columns("COLOR") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_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.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnAuthority = New Global.System.Data.DataColumn("Authority", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAuthority) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSTATE.ReadOnly = true + Me.columnSTATE.MaxLength = 153 + Me.columnSTATE_ID.AutoIncrement = true + Me.columnSTATE_ID.AutoIncrementSeed = -1 + Me.columnSTATE_ID.AutoIncrementStep = -1 + Me.columnSTATE_ID.AllowDBNull = false + Me.columnSTATE_ID.ReadOnly = true + Me.columnAuthority.ReadOnly = true + Me.columnAuthority.MaxLength = 102 + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 258 + Me.columnWF_ID.AllowDBNull = false + Me.columnRECORD_ID.AllowDBNull = false + Me.columnCOLOR.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WF_OVERVIEW_AUTHORITYRow() As VWPMO_WF_OVERVIEW_AUTHORITYRow + Return CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WF_OVERVIEW_AUTHORITYRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WF_OVERVIEW_AUTHORITYRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanged(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanging(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WF_OVERVIEW_AUTHORITYDataTable" + 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 TBDD_DOKUMENTARTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnEINGANGSART_ID As Global.System.Data.DataColumn + + Private columnKURZNAME As Global.System.Data.DataColumn + + Private columnZIEL_PFAD As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnNAMENKONVENTION As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnOBJEKTTYP As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_DOKUMENTART" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEINGANGSART_ID + End Get + End Property + + _ + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKURZNAME + End Get + End Property + + _ + Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn + Get + Return Me.columnZIEL_PFAD + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAMENKONVENTION + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJEKTTYP + 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 TBDD_DOKUMENTARTRow + Get + Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) + End Get + End Property + + _ + Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_DOKUMENTARTRow(ByVal BEZEICHNUNG As String, ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal OBJEKTTYP As String) As TBDD_DOKUMENTARTRow + Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP} + If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) + End If + rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_DOKUMENTARTRow) + Return rowTBDD_DOKUMENTARTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_DOKUMENTARTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEINGANGSART_ID) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZIEL_PFAD) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMENKONVENTION) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJEKTTYP) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnEINGANGSART_ID.AllowDBNull = false + Me.columnEINGANGSART_ID.DefaultValue = CType(5,Byte) + Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.MaxLength = 50 + Me.columnZIEL_PFAD.AllowDBNull = false + Me.columnZIEL_PFAD.MaxLength = 250 + Me.columnBESCHREIBUNG.MaxLength = 250 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(false,Boolean) + Me.columnNAMENKONVENTION.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + Me.columnOBJEKTTYP.AllowDBNull = false + Me.columnOBJEKTTYP.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_DOKUMENTARTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_DOKUMENTARTDataTable" + 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 TBDD_EINGANGSARTENDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EINGANGSARTENRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_EINGANGSARTEN" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + 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 TBDD_EINGANGSARTENRow + Get + Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) + End Get + End Property + + _ + Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow + Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) + Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_EINGANGSARTENRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EINGANGSARTENRow) + Return rowTBDD_EINGANGSARTENRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_EINGANGSARTENDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnBESCHREIBUNG.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_EINGANGSARTENRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_EINGANGSARTENRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_EINGANGSARTENRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_EINGANGSARTENRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_EINGANGSARTENRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_EINGANGSARTENRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_EINGANGSARTENDataTable" + 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 TBDD_INDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_AUTOM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_INDEX_AUTOMRow + Get + Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) + End Get + End Property + + _ + Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_AUTOMRow + Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) + End If + rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) + Return rowTBDD_INDEX_AUTOMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_AUTOMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 50 + Me.columnVALUE.MaxLength = 2000 + Me.columnCONNECTION_ID.AllowDBNull = false + Me.columnCONNECTION_ID.DefaultValue = CType(0,Short) + Me.columnCOMMENT.MaxLength = 400 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow + Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_AUTOMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_INDEX_AUTOMDataTable" + 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 TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FORMVIEW_DOKTYPESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORMVIEW_ID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WD_FORMVIEW_DOKTYPES" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORMVIEW_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORMVIEW_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_WD_FORMVIEW_DOKTYPESRow + Get + Return CType(Me.Rows(index),TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Get + End Property + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanging As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanged As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_TITLE As String, ByVal DOCTYPE_ID As Integer, ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WD_FORMVIEW_DOKTYPESRow + Dim rowTBPMO_WD_FORMVIEW_DOKTYPESRow As TBPMO_WD_FORMVIEW_DOKTYPESRow = CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORMVIEW_ID, FORM_TITLE, DOCTYPE_ID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WD_FORMVIEW_DOKTYPESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_FORMVIEW_DOKTYPESRow) + Return rowTBPMO_WD_FORMVIEW_DOKTYPESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WD_FORMVIEW_DOKTYPESDataTable = CType(MyBase.Clone,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORMVIEW_ID = New Global.System.Data.DataColumn("FORMVIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORMVIEW_ID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORMVIEW_ID.AllowDBNull = false + Me.columnFORM_TITLE.AllowDBNull = false + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow + Return CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WD_FORMVIEW_DOKTYPESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanged(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanging(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WD_FORMVIEW_DOKTYPESDataTable" + 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 TBPMO_KONFIGURATIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_KONFIGURATIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnLICENSE As Global.System.Data.DataColumn + + Private columnVEKTOR_DELIMITER As Global.System.Data.DataColumn + + Private columnEMAIL_ACTIVE As Global.System.Data.DataColumn + + Private columnEMAIL_FROM As Global.System.Data.DataColumn + + Private columnEMAIL_SMTP As Global.System.Data.DataColumn + + Private columnEMAIL_USER As Global.System.Data.DataColumn + + Private columnEMAIL_PW As Global.System.Data.DataColumn + + Private columnEMAIL_REMINDER_HEADER As Global.System.Data.DataColumn + + Private columnEMAIL_REMINDER_FOOTER As Global.System.Data.DataColumn + + Private columnADMIN_PW As Global.System.Data.DataColumn + + Private columnADMIN_SECURITY As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnSQL_RECORD_SQL1 As Global.System.Data.DataColumn + + Private columnSQL_RECORD_SQL2 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE1 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE2 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE3 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE4 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE5 As Global.System.Data.DataColumn + + Private columnVERSION_DELIMITER As Global.System.Data.DataColumn + + Private columnFILE_DELIMITER As Global.System.Data.DataColumn + + Private columnWD_UNICODE As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_LOG_ERR_ONLY As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_EMAIL_PROFILE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_KONFIGURATION" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLICENSE + End Get + End Property + + _ + Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVEKTOR_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_FROM + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SMTP + End Get + End Property + + _ + Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_USER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_PW + End Get + End Property + + _ + Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_REMINDER_HEADER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_REMINDER_FOOTER + End Get + End Property + + _ + Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADMIN_PW + End Get + End Property + + _ + Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADMIN_SECURITY + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property SQL_RECORD_SQL1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RECORD_SQL1 + End Get + End Property + + _ + Public ReadOnly Property SQL_RECORD_SQL2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RECORD_SQL2 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE1Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE1 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE2Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE2 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE3Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE3 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE4Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE4 + End Get + End Property + + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE5Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE5 + End Get + End Property + + _ + Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERSION_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property WD_UNICODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_UNICODE + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_LOG_ERR_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_LOG_ERR_ONLY + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_EMAIL_PROFILEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_EMAIL_PROFILE + 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 TBPMO_KONFIGURATIONRow + Get + Return CType(Me.Rows(index),TBPMO_KONFIGURATIONRow) + End Get + End Property + + _ + Public Event TBPMO_KONFIGURATIONRowChanging As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowChanged As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowDeleting As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowDeleted As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_KONFIGURATIONRow( _ + ByVal GUID As Byte, _ + ByVal LICENSE As String, _ + ByVal VEKTOR_DELIMITER As String, _ + ByVal EMAIL_ACTIVE As Boolean, _ + ByVal EMAIL_FROM As String, _ + ByVal EMAIL_SMTP As String, _ + ByVal EMAIL_USER As String, _ + ByVal EMAIL_PW As String, _ + ByVal EMAIL_REMINDER_HEADER As String, _ + ByVal EMAIL_REMINDER_FOOTER As String, _ + ByVal ADMIN_PW As String, _ + ByVal ADMIN_SECURITY As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal SQL_RECORD_SQL1 As String, _ + ByVal SQL_RECORD_SQL2 As String, _ + ByVal WORKFLOW_FINAL_STATE1 As Integer, _ + ByVal WORKFLOW_FINAL_STATE2 As Integer, _ + ByVal WORKFLOW_FINAL_STATE3 As Integer, _ + ByVal WORKFLOW_FINAL_STATE4 As Integer, _ + ByVal WORKFLOW_FINAL_STATE5 As Integer, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal WD_UNICODE As Boolean, _ + ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ + ByVal FOLLOW_UP_EMAIL_PROFILE As Integer) As TBPMO_KONFIGURATIONRow + Dim rowTBPMO_KONFIGURATIONRow As TBPMO_KONFIGURATIONRow = CType(Me.NewRow,TBPMO_KONFIGURATIONRow) + Dim columnValuesArray() As Object = New Object() {GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FOLLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE} + rowTBPMO_KONFIGURATIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_KONFIGURATIONRow) + Return rowTBPMO_KONFIGURATIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBPMO_KONFIGURATIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_KONFIGURATIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPMO_KONFIGURATIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_KONFIGURATIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnLICENSE = MyBase.Columns("LICENSE") + Me.columnVEKTOR_DELIMITER = MyBase.Columns("VEKTOR_DELIMITER") + Me.columnEMAIL_ACTIVE = MyBase.Columns("EMAIL_ACTIVE") + Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") + Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") + Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") + Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") + Me.columnEMAIL_REMINDER_HEADER = MyBase.Columns("EMAIL_REMINDER_HEADER") + Me.columnEMAIL_REMINDER_FOOTER = MyBase.Columns("EMAIL_REMINDER_FOOTER") + Me.columnADMIN_PW = MyBase.Columns("ADMIN_PW") + Me.columnADMIN_SECURITY = MyBase.Columns("ADMIN_SECURITY") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSQL_RECORD_SQL1 = MyBase.Columns("SQL_RECORD_SQL1") + Me.columnSQL_RECORD_SQL2 = MyBase.Columns("SQL_RECORD_SQL2") + Me.columnWORKFLOW_FINAL_STATE1 = MyBase.Columns("WORKFLOW_FINAL_STATE1") + Me.columnWORKFLOW_FINAL_STATE2 = MyBase.Columns("WORKFLOW_FINAL_STATE2") + Me.columnWORKFLOW_FINAL_STATE3 = MyBase.Columns("WORKFLOW_FINAL_STATE3") + Me.columnWORKFLOW_FINAL_STATE4 = MyBase.Columns("WORKFLOW_FINAL_STATE4") + Me.columnWORKFLOW_FINAL_STATE5 = MyBase.Columns("WORKFLOW_FINAL_STATE5") + Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") + Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") + Me.columnWD_UNICODE = MyBase.Columns("WD_UNICODE") + Me.columnFOLLOW_UP_LOG_ERR_ONLY = MyBase.Columns("FOLLOW_UP_LOG_ERR_ONLY") + Me.columnFOLLOW_UP_EMAIL_PROFILE = MyBase.Columns("FOLLOW_UP_EMAIL_PROFILE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLICENSE) + Me.columnVEKTOR_DELIMITER = New Global.System.Data.DataColumn("VEKTOR_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVEKTOR_DELIMITER) + Me.columnEMAIL_ACTIVE = New Global.System.Data.DataColumn("EMAIL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_ACTIVE) + Me.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_FROM) + Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SMTP) + Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_USER) + Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_PW) + Me.columnEMAIL_REMINDER_HEADER = New Global.System.Data.DataColumn("EMAIL_REMINDER_HEADER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_REMINDER_HEADER) + Me.columnEMAIL_REMINDER_FOOTER = New Global.System.Data.DataColumn("EMAIL_REMINDER_FOOTER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_REMINDER_FOOTER) + Me.columnADMIN_PW = New Global.System.Data.DataColumn("ADMIN_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADMIN_PW) + Me.columnADMIN_SECURITY = New Global.System.Data.DataColumn("ADMIN_SECURITY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADMIN_SECURITY) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSQL_RECORD_SQL1 = New Global.System.Data.DataColumn("SQL_RECORD_SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RECORD_SQL1) + Me.columnSQL_RECORD_SQL2 = New Global.System.Data.DataColumn("SQL_RECORD_SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RECORD_SQL2) + Me.columnWORKFLOW_FINAL_STATE1 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE1) + Me.columnWORKFLOW_FINAL_STATE2 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE2", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE2) + Me.columnWORKFLOW_FINAL_STATE3 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE3", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE3) + Me.columnWORKFLOW_FINAL_STATE4 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE4", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE4) + Me.columnWORKFLOW_FINAL_STATE5 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE5", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE5) + Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_DELIMITER) + Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_DELIMITER) + Me.columnWD_UNICODE = New Global.System.Data.DataColumn("WD_UNICODE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_UNICODE) + Me.columnFOLLOW_UP_LOG_ERR_ONLY = New Global.System.Data.DataColumn("FOLLOW_UP_LOG_ERR_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_LOG_ERR_ONLY) + Me.columnFOLLOW_UP_EMAIL_PROFILE = New Global.System.Data.DataColumn("FOLLOW_UP_EMAIL_PROFILE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_EMAIL_PROFILE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnLICENSE.MaxLength = 2000 + Me.columnVEKTOR_DELIMITER.AllowDBNull = false + Me.columnVEKTOR_DELIMITER.MaxLength = 1 + Me.columnEMAIL_ACTIVE.AllowDBNull = false + Me.columnEMAIL_FROM.MaxLength = 50 + Me.columnEMAIL_SMTP.MaxLength = 50 + Me.columnEMAIL_USER.MaxLength = 50 + Me.columnEMAIL_PW.MaxLength = 50 + Me.columnEMAIL_REMINDER_HEADER.MaxLength = 250 + Me.columnEMAIL_REMINDER_FOOTER.MaxLength = 250 + Me.columnADMIN_PW.AllowDBNull = false + Me.columnADMIN_PW.MaxLength = 100 + Me.columnADMIN_SECURITY.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSQL_RECORD_SQL1.AllowDBNull = false + Me.columnSQL_RECORD_SQL1.MaxLength = 500 + Me.columnSQL_RECORD_SQL2.AllowDBNull = false + Me.columnSQL_RECORD_SQL2.MaxLength = 500 + Me.columnWORKFLOW_FINAL_STATE1.AllowDBNull = false + Me.columnVERSION_DELIMITER.AllowDBNull = false + Me.columnVERSION_DELIMITER.MaxLength = 1 + Me.columnFILE_DELIMITER.AllowDBNull = false + Me.columnFILE_DELIMITER.MaxLength = 1 + Me.columnWD_UNICODE.AllowDBNull = false + Me.columnFOLLOW_UP_LOG_ERR_ONLY.AllowDBNull = false + Me.columnFOLLOW_UP_EMAIL_PROFILE.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_KONFIGURATIONRow() As TBPMO_KONFIGURATIONRow + Return CType(Me.NewRow,TBPMO_KONFIGURATIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_KONFIGURATIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_KONFIGURATIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_KONFIGURATIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowChanged(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_KONFIGURATIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowChanging(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_KONFIGURATIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowDeleted(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_KONFIGURATIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowDeleting(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_KONFIGURATIONDataTable" + 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 TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPRENAME As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnEMAIL As Global.System.Data.DataColumn + + Private columnLOGGED_IN As Global.System.Data.DataColumn + + Private columnLOGGED_WHERE As Global.System.Data.DataColumn + + Private columnLOG_IN_WHEN As Global.System.Data.DataColumn + + Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnRECORD_ADMIN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL + End Get + End Property + + _ + Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_IN + End Get + End Property + + _ + Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_WHERE + End Get + End Property + + _ + Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_IN_WHEN + End Get + End Property + + _ + Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_OUT_WHEN + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property RECORD_ADMINColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ADMIN + 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 TBDD_USERRow + Get + Return CType(Me.Rows(index),TBDD_USERRow) + End Get + End Property + + _ + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal RECORD_ADMIN As Boolean) As TBDD_USERRow + Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN} + rowTBDD_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USERRow) + Return rowTBDD_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnEMAIL = MyBase.Columns("EMAIL") + Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") + Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") + Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") + Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnRECORD_ADMIN = MyBase.Columns("RECORD_ADMIN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL) + Me.columnLOGGED_IN = New Global.System.Data.DataColumn("LOGGED_IN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_IN) + Me.columnLOGGED_WHERE = New Global.System.Data.DataColumn("LOGGED_WHERE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_WHERE) + Me.columnLOG_IN_WHEN = New Global.System.Data.DataColumn("LOG_IN_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_IN_WHEN) + Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_OUT_WHEN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnRECORD_ADMIN = New Global.System.Data.DataColumn("RECORD_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ADMIN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPRENAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnEMAIL.MaxLength = 100 + Me.columnLOGGED_IN.AllowDBNull = false + Me.columnLOGGED_IN.DefaultValue = CType(false,Boolean) + Me.columnLOGGED_WHERE.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnRECORD_ADMIN.AllowDBNull = false + End Sub + + _ + Public Function NewTBDD_USERRow() As TBDD_USERRow + Return CType(Me.NewRow,TBDD_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_USERDataTable" + 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 TBPMO_FORM_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_TYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_TYPE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_TYPE" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TYPE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_FORM_TYPERow + Get + Return CType(Me.Rows(index),TBPMO_FORM_TYPERow) + End Get + End Property + + _ + Public Event TBPMO_FORM_TYPERowChanging As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Event TBPMO_FORM_TYPERowChanged As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Event TBPMO_FORM_TYPERowDeleting As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Event TBPMO_FORM_TYPERowDeleted As TBPMO_FORM_TYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_TYPERow(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FORM_TYPERow + Dim rowTBPMO_FORM_TYPERow As TBPMO_FORM_TYPERow = CType(Me.NewRow,TBPMO_FORM_TYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_FORM_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_TYPERow) + Return rowTBPMO_FORM_TYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_TYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_TYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_TYPEDataTable = CType(MyBase.Clone,TBPMO_FORM_TYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_TYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_TYPE = MyBase.Columns("FORM_TYPE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_TYPE = New Global.System.Data.DataColumn("FORM_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TYPE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORM_TYPE.AllowDBNull = false + Me.columnFORM_TYPE.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow + Return CType(Me.NewRow,TBPMO_FORM_TYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_TYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_TYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowChanged(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowChanging(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowDeleted(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowDeleting(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_TYPEDataTable" + 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 TBDD_USER_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER_GROUPS" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_USER_GROUPSRow + Get + Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) + End Get + End Property + + _ + Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow + Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USER_GROUPSRow) + Return rowTBDD_USER_GROUPSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USER_GROUPSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Return CType(Me.NewRow,TBDD_USER_GROUPSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USER_GROUPSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USER_GROUPSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_USER_GROUPSDataTable" + 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 VWPMO_USERS_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_USERS_GROUPSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnPRENAME As Global.System.Data.DataColumn + + Private columnGROUP_NAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_USERS_GROUPS" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property GROUP_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_NAME + 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 VWPMO_USERS_GROUPSRow + Get + Return CType(Me.Rows(index),VWPMO_USERS_GROUPSRow) + End Get + End Property + + _ + Public Event VWPMO_USERS_GROUPSRowChanging As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Event VWPMO_USERS_GROUPSRowChanged As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Event VWPMO_USERS_GROUPSRowDeleting As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Event VWPMO_USERS_GROUPSRowDeleted As VWPMO_USERS_GROUPSRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_USERS_GROUPSRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal GROUP_NAME As String) As VWPMO_USERS_GROUPSRow + Dim rowVWPMO_USERS_GROUPSRow As VWPMO_USERS_GROUPSRow = CType(Me.NewRow,VWPMO_USERS_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, GROUP_ID, USERNAME, NAME, PRENAME, GROUP_NAME} + rowVWPMO_USERS_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_USERS_GROUPSRow) + Return rowVWPMO_USERS_GROUPSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_USERS_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_USERS_GROUPSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_USERS_GROUPSDataTable = CType(MyBase.Clone,VWPMO_USERS_GROUPSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_USERS_GROUPSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnGROUP_NAME = MyBase.Columns("GROUP_NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.columnGROUP_NAME = New Global.System.Data.DataColumn("GROUP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_NAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnPRENAME.MaxLength = 50 + Me.columnGROUP_NAME.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_USERS_GROUPSRow() As VWPMO_USERS_GROUPSRow + Return CType(Me.NewRow,VWPMO_USERS_GROUPSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_USERS_GROUPSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_USERS_GROUPSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_USERS_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowChanged(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_USERS_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowChanging(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_USERS_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowDeleted(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_USERS_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowDeleting(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_USERS_GROUPSDataTable" + 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 TBDD_GROUPS_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_GROUPS_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_GROUPS_USERRow + Get + Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) + End Get + End Property + + _ + Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow + Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) + End If + If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) + End If + rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_USERRow) + Return rowTBDD_GROUPS_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_GROUPS_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow + Return CType(Me.NewRow,TBDD_GROUPS_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_GROUPS_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_GROUPS_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_GROUPS_USERDataTable" + 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 TBWH_DOKART_MODULEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_DOKART_MODULERow) + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_DOKART_MODULE" + 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 BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + 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 TBWH_DOKART_MODULERow + Get + Return CType(Me.Rows(index),TBWH_DOKART_MODULERow) + End Get + End Property + + _ + Public Event TBWH_DOKART_MODULERowChanging As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBWH_DOKART_MODULERowChanged As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBWH_DOKART_MODULERowDeleting As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBWH_DOKART_MODULERowDeleted As TBWH_DOKART_MODULERowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_DOKART_MODULERow(ByVal BEZEICHNUNG As String, ByVal NAME As String) As TBWH_DOKART_MODULERow + Dim rowTBWH_DOKART_MODULERow As TBWH_DOKART_MODULERow = CType(Me.NewRow,TBWH_DOKART_MODULERow) + Dim columnValuesArray() As Object = New Object() {BEZEICHNUNG, NAME} + rowTBWH_DOKART_MODULERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_DOKART_MODULERow) + Return rowTBWH_DOKART_MODULERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_DOKART_MODULEDataTable = CType(MyBase.Clone,TBWH_DOKART_MODULEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_DOKART_MODULEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_DOKART_MODULERow() As TBWH_DOKART_MODULERow + Return CType(Me.NewRow,TBWH_DOKART_MODULERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_DOKART_MODULERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_DOKART_MODULERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_DOKART_MODULERowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowChanged(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_DOKART_MODULERowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowChanging(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_DOKART_MODULERowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowDeleted(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_DOKART_MODULERowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowDeleting(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBWH_DOKART_MODULEDataTable" + 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 TBPMO_FORM_CONSTRUCTORDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnSEQUENCE_MENU As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnMENU_IMG As Global.System.Data.DataColumn + + Private columnSHORT_TITLE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_CONSTRUCTOR" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE_MENU + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENU_IMG + End Get + End Property + + _ + Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORT_TITLE + 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 TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As TBPMO_FORM_CONSTRUCTORRow + Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE} + rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) + Return rowTBPMO_FORM_CONSTRUCTORRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTORDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") + Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE_MENU) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENU_IMG) + Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORT_TITLE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnSEQUENCE_MENU.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSHORT_TITLE.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTORRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_CONSTRUCTORDataTable" + 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 TBPMO_WD_OBJECTTYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_OBJECTTYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnOBJECT_TYPE As Global.System.Data.DataColumn + + Private columnIDXNAME_ENTITYID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnIDXNAME_PARENTID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WD_OBJECTTYPE" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property OBJECT_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJECT_TYPE + End Get + End Property + + _ + Public ReadOnly Property IDXNAME_ENTITYIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_ENTITYID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property IDXNAME_PARENTIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_PARENTID + 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 TBPMO_WD_OBJECTTYPERow + Get + Return CType(Me.Rows(index),TBPMO_WD_OBJECTTYPERow) + End Get + End Property + + _ + Public Event TBPMO_WD_OBJECTTYPERowChanging As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Event TBPMO_WD_OBJECTTYPERowChanged As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Event TBPMO_WD_OBJECTTYPERowDeleting As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Event TBPMO_WD_OBJECTTYPERowDeleted As TBPMO_WD_OBJECTTYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WD_OBJECTTYPERow(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDXNAME_PARENTID As String) As TBPMO_WD_OBJECTTYPERow + Dim rowTBPMO_WD_OBJECTTYPERow As TBPMO_WD_OBJECTTYPERow = CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TYPE, IDXNAME_ENTITYID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_PARENTID} + rowTBPMO_WD_OBJECTTYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_OBJECTTYPERow) + Return rowTBPMO_WD_OBJECTTYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_OBJECTTYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_OBJECTTYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WD_OBJECTTYPEDataTable = CType(MyBase.Clone,TBPMO_WD_OBJECTTYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WD_OBJECTTYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") + Me.columnIDXNAME_ENTITYID = MyBase.Columns("IDXNAME_ENTITYID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnIDXNAME_PARENTID = MyBase.Columns("IDXNAME_PARENTID") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECT_TYPE) + Me.columnIDXNAME_ENTITYID = New Global.System.Data.DataColumn("IDXNAME_ENTITYID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_ENTITYID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnIDXNAME_PARENTID = New Global.System.Data.DataColumn("IDXNAME_PARENTID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_PARENTID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnOBJECT_TYPE.AllowDBNull = false + Me.columnOBJECT_TYPE.MaxLength = 100 + Me.columnIDXNAME_ENTITYID.AllowDBNull = false + Me.columnIDXNAME_ENTITYID.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIDXNAME_PARENTID.AllowDBNull = false + Me.columnIDXNAME_PARENTID.MaxLength = 100 + End Sub + + _ + Public Function NewTBPMO_WD_OBJECTTYPERow() As TBPMO_WD_OBJECTTYPERow + Return CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WD_OBJECTTYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WD_OBJECTTYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowChanged(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowChanging(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowDeleted(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowDeleting(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WD_OBJECTTYPEDataTable" + 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 TBPMO_FILES_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FILES_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFILENAME2WORK As Global.System.Data.DataColumn + + Private columnUSER_WORK As Global.System.Data.DataColumn + + Private columnHANDLE_TYPE As Global.System.Data.DataColumn + + Private columnWORKED As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FILES_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILENAME2WORK + End Get + End Property + + _ + Public ReadOnly Property USER_WORKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_WORK + End Get + End Property + + _ + Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHANDLE_TYPE + End Get + End Property + + _ + Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWORKED + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_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 TBPMO_FILES_USERRow + Get + Return CType(Me.Rows(index),TBPMO_FILES_USERRow) + End Get + End Property + + _ + Public Event TBPMO_FILES_USERRowChanging As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Event TBPMO_FILES_USERRowChanged As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Event TBPMO_FILES_USERRowDeleting As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Event TBPMO_FILES_USERRowDeleted As TBPMO_FILES_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As TBPMO_FILES_USERRow + Dim rowTBPMO_FILES_USERRow As TBPMO_FILES_USERRow = CType(Me.NewRow,TBPMO_FILES_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN} + rowTBPMO_FILES_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FILES_USERRow) + Return rowTBPMO_FILES_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FILES_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FILES_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FILES_USERDataTable = CType(MyBase.Clone,TBPMO_FILES_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FILES_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") + Me.columnUSER_WORK = MyBase.Columns("USER_WORK") + Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") + Me.columnWORKED = MyBase.Columns("WORKED") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFILENAME2WORK = New Global.System.Data.DataColumn("FILENAME2WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILENAME2WORK) + Me.columnUSER_WORK = New Global.System.Data.DataColumn("USER_WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_WORK) + Me.columnHANDLE_TYPE = New Global.System.Data.DataColumn("HANDLE_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHANDLE_TYPE) + Me.columnWORKED = New Global.System.Data.DataColumn("WORKED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKED) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFILENAME2WORK.AllowDBNull = false + Me.columnFILENAME2WORK.MaxLength = 500 + Me.columnUSER_WORK.AllowDBNull = false + Me.columnUSER_WORK.MaxLength = 50 + Me.columnHANDLE_TYPE.AllowDBNull = false + Me.columnHANDLE_TYPE.MaxLength = 50 + Me.columnWORKED.AllowDBNull = false + Me.columnADDED_WHEN.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_FILES_USERRow() As TBPMO_FILES_USERRow + Return CType(Me.NewRow,TBPMO_FILES_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FILES_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FILES_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FILES_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowChanged(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FILES_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowChanging(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FILES_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowDeleted(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FILES_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowDeleting(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FILES_USERDataTable" + 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 VWPMO_WORKFLOW_FORMDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WORKFLOW_FORMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnFORM_NAME As Global.System.Data.DataColumn + + Private columnWF_ID As Global.System.Data.DataColumn + + Private columnWORKFLOW As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WORKFLOW_FORM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_NAME + End Get + End Property + + _ + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_ID + End Get + End Property + + _ + Public ReadOnly Property WORKFLOWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + 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 VWPMO_WORKFLOW_FORMRow + Get + Return CType(Me.Rows(index),VWPMO_WORKFLOW_FORMRow) + End Get + End Property + + _ + Public Event VWPMO_WORKFLOW_FORMRowChanging As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event VWPMO_WORKFLOW_FORMRowChanged As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event VWPMO_WORKFLOW_FORMRowDeleting As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Event VWPMO_WORKFLOW_FORMRowDeleted As VWPMO_WORKFLOW_FORMRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WORKFLOW_FORMRow(ByVal row As VWPMO_WORKFLOW_FORMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WORKFLOW_FORMRow(ByVal GUID As Integer, ByVal FORM_ID As Integer, ByVal FORM_NAME As String, ByVal WF_ID As Integer, ByVal WORKFLOW As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COLOR As String) As VWPMO_WORKFLOW_FORMRow + Dim rowVWPMO_WORKFLOW_FORMRow As VWPMO_WORKFLOW_FORMRow = CType(Me.NewRow,VWPMO_WORKFLOW_FORMRow) + Dim columnValuesArray() As Object = New Object() {GUID, FORM_ID, FORM_NAME, WF_ID, WORKFLOW, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR} + rowVWPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WORKFLOW_FORMRow) + Return rowVWPMO_WORKFLOW_FORMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_WORKFLOW_FORMRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_WORKFLOW_FORMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,VWPMO_WORKFLOW_FORMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WORKFLOW_FORMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnFORM_NAME = MyBase.Columns("FORM_NAME") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnWORKFLOW = MyBase.Columns("WORKFLOW") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLOR = MyBase.Columns("COLOR") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnFORM_NAME = New Global.System.Data.DataColumn("FORM_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_NAME) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnWORKFLOW = New Global.System.Data.DataColumn("WORKFLOW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnFORM_ID.AllowDBNull = false + Me.columnFORM_NAME.AllowDBNull = false + Me.columnFORM_NAME.MaxLength = 100 + Me.columnWF_ID.AllowDBNull = false + Me.columnWORKFLOW.AllowDBNull = false + Me.columnWORKFLOW.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLOR.AllowDBNull = false + Me.columnCOLOR.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WORKFLOW_FORMRow() As VWPMO_WORKFLOW_FORMRow + Return CType(Me.NewRow,VWPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WORKFLOW_FORMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WORKFLOW_FORMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowChanged(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowChanging(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowDeleted(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WORKFLOW_FORMRowDeleting(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WORKFLOW_FORMRow(ByVal row As VWPMO_WORKFLOW_FORMRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WORKFLOW_FORMDataTable" + 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 TBPMO_FOLLOW_UP_EMAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLOW_UP_EMAILRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_SEQUENCE As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_DAYS As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_TIME_SPAN As Global.System.Data.DataColumn + + Private columnDEPENDENT_DATE_CTRL_ID As Global.System.Data.DataColumn + + Private columnDEPENDENT_DONE_CTRL_ID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnTIME_UNITY As Global.System.Data.DataColumn + + Private columnTIME_SPAN As Global.System.Data.DataColumn + + Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn + + Private columnEMAIL_BODY As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT1 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT2 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT3 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT4 As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTIME_DIST As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT5 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT6 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT7 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT8 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT9 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT10 As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FOLLOW_UP_EMAIL" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_SEQUENCE + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_DAYSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_DAYS + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_TIME_SPANColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_TIME_SPAN + End Get + End Property + + _ + Public ReadOnly Property DEPENDENT_DATE_CTRL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEPENDENT_DATE_CTRL_ID + End Get + End Property + + _ + Public ReadOnly Property DEPENDENT_DONE_CTRL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEPENDENT_DONE_CTRL_ID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property TIME_UNITYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_UNITY + End Get + End Property + + _ + Public ReadOnly Property TIME_SPANColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_SPAN + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SUBJECT + End Get + End Property + + _ + Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_BODY + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT1 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT2 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT3Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT3 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT4Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT4 + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TIME_DISTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_DIST + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT5Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT5 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT6Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT6 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT7Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT7 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT8Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT8 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT9Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT9 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT10Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT10 + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + 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 TBPMO_FOLLOW_UP_EMAILRow + Get + Return CType(Me.Rows(index),TBPMO_FOLLOW_UP_EMAILRow) + End Get + End Property + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowChanging As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowChanged As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowDeleting As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Event TBPMO_FOLLOW_UP_EMAILRowDeleted As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FOLLOW_UP_EMAILRow( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal TIME_DIST As String, _ + ByVal PROCESS_SELECT5 As String, _ + ByVal PROCESS_SELECT6 As String, _ + ByVal PROCESS_SELECT7 As String, _ + ByVal PROCESS_SELECT8 As String, _ + ByVal PROCESS_SELECT9 As String, _ + ByVal PROCESS_SELECT10 As String, _ + ByVal NAME As String) As TBPMO_FOLLOW_UP_EMAILRow + Dim rowTBPMO_FOLLOW_UP_EMAILRow As TBPMO_FOLLOW_UP_EMAILRow = CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TIME_DIST, PROCESS_SELECT5, PROCESS_SELECT6, PROCESS_SELECT7, PROCESS_SELECT8, PROCESS_SELECT9, PROCESS_SELECT10, NAME} + rowTBPMO_FOLLOW_UP_EMAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FOLLOW_UP_EMAILRow) + Return rowTBPMO_FOLLOW_UP_EMAILRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLOW_UP_EMAILRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLOW_UP_EMAILRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FOLLOW_UP_EMAILDataTable = CType(MyBase.Clone,TBPMO_FOLLOW_UP_EMAILDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FOLLOW_UP_EMAILDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFOLLOW_UP_SEQUENCE = MyBase.Columns("FOLLOW_UP_SEQUENCE") + Me.columnFOLLOW_UP_DAYS = MyBase.Columns("FOLLOW_UP_DAYS") + Me.columnFOLLOW_UP_TIME_SPAN = MyBase.Columns("FOLLOW_UP_TIME_SPAN") + Me.columnDEPENDENT_DATE_CTRL_ID = MyBase.Columns("DEPENDENT_DATE_CTRL_ID") + Me.columnDEPENDENT_DONE_CTRL_ID = MyBase.Columns("DEPENDENT_DONE_CTRL_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnTIME_UNITY = MyBase.Columns("TIME_UNITY") + Me.columnTIME_SPAN = MyBase.Columns("TIME_SPAN") + Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") + Me.columnEMAIL_BODY = MyBase.Columns("EMAIL_BODY") + Me.columnPROCESS_SELECT1 = MyBase.Columns("PROCESS_SELECT1") + Me.columnPROCESS_SELECT2 = MyBase.Columns("PROCESS_SELECT2") + Me.columnPROCESS_SELECT3 = MyBase.Columns("PROCESS_SELECT3") + Me.columnPROCESS_SELECT4 = MyBase.Columns("PROCESS_SELECT4") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTIME_DIST = MyBase.Columns("TIME_DIST") + Me.columnPROCESS_SELECT5 = MyBase.Columns("PROCESS_SELECT5") + Me.columnPROCESS_SELECT6 = MyBase.Columns("PROCESS_SELECT6") + Me.columnPROCESS_SELECT7 = MyBase.Columns("PROCESS_SELECT7") + Me.columnPROCESS_SELECT8 = MyBase.Columns("PROCESS_SELECT8") + Me.columnPROCESS_SELECT9 = MyBase.Columns("PROCESS_SELECT9") + Me.columnPROCESS_SELECT10 = MyBase.Columns("PROCESS_SELECT10") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFOLLOW_UP_SEQUENCE = New Global.System.Data.DataColumn("FOLLOW_UP_SEQUENCE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_SEQUENCE) + Me.columnFOLLOW_UP_DAYS = New Global.System.Data.DataColumn("FOLLOW_UP_DAYS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_DAYS) + Me.columnFOLLOW_UP_TIME_SPAN = New Global.System.Data.DataColumn("FOLLOW_UP_TIME_SPAN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_TIME_SPAN) + Me.columnDEPENDENT_DATE_CTRL_ID = New Global.System.Data.DataColumn("DEPENDENT_DATE_CTRL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEPENDENT_DATE_CTRL_ID) + Me.columnDEPENDENT_DONE_CTRL_ID = New Global.System.Data.DataColumn("DEPENDENT_DONE_CTRL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEPENDENT_DONE_CTRL_ID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnTIME_UNITY = New Global.System.Data.DataColumn("TIME_UNITY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIME_UNITY) + Me.columnTIME_SPAN = New Global.System.Data.DataColumn("TIME_SPAN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIME_SPAN) + Me.columnEMAIL_SUBJECT = New Global.System.Data.DataColumn("EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SUBJECT) + Me.columnEMAIL_BODY = New Global.System.Data.DataColumn("EMAIL_BODY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY) + Me.columnPROCESS_SELECT1 = New Global.System.Data.DataColumn("PROCESS_SELECT1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT1) + Me.columnPROCESS_SELECT2 = New Global.System.Data.DataColumn("PROCESS_SELECT2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT2) + Me.columnPROCESS_SELECT3 = New Global.System.Data.DataColumn("PROCESS_SELECT3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT3) + Me.columnPROCESS_SELECT4 = New Global.System.Data.DataColumn("PROCESS_SELECT4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT4) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTIME_DIST = New Global.System.Data.DataColumn("TIME_DIST", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIME_DIST) + Me.columnPROCESS_SELECT5 = New Global.System.Data.DataColumn("PROCESS_SELECT5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT5) + Me.columnPROCESS_SELECT6 = New Global.System.Data.DataColumn("PROCESS_SELECT6", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT6) + Me.columnPROCESS_SELECT7 = New Global.System.Data.DataColumn("PROCESS_SELECT7", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT7) + Me.columnPROCESS_SELECT8 = New Global.System.Data.DataColumn("PROCESS_SELECT8", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT8) + Me.columnPROCESS_SELECT9 = New Global.System.Data.DataColumn("PROCESS_SELECT9", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT9) + Me.columnPROCESS_SELECT10 = New Global.System.Data.DataColumn("PROCESS_SELECT10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_SELECT10) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnFOLLOW_UP_SEQUENCE.AllowDBNull = false + Me.columnFOLLOW_UP_SEQUENCE.MaxLength = 50 + Me.columnFOLLOW_UP_DAYS.AllowDBNull = false + Me.columnFOLLOW_UP_DAYS.MaxLength = 50 + Me.columnFOLLOW_UP_TIME_SPAN.AllowDBNull = false + Me.columnFOLLOW_UP_TIME_SPAN.MaxLength = 50 + Me.columnDEPENDENT_DATE_CTRL_ID.AllowDBNull = false + Me.columnDEPENDENT_DONE_CTRL_ID.AllowDBNull = false + Me.columnPARENT_ID.AllowDBNull = false + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) + Me.columnTIME_UNITY.AllowDBNull = false + Me.columnTIME_UNITY.MaxLength = 50 + Me.columnTIME_SPAN.AllowDBNull = false + Me.columnEMAIL_SUBJECT.AllowDBNull = false + Me.columnEMAIL_SUBJECT.DefaultValue = CType("Ihr Betreff",String) + Me.columnEMAIL_SUBJECT.MaxLength = 250 + Me.columnEMAIL_BODY.AllowDBNull = false + Me.columnEMAIL_BODY.MaxLength = 2000 + Me.columnPROCESS_SELECT1.AllowDBNull = false + Me.columnPROCESS_SELECT1.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT1.MaxLength = 2000 + Me.columnPROCESS_SELECT2.AllowDBNull = false + Me.columnPROCESS_SELECT2.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT2.MaxLength = 2000 + Me.columnPROCESS_SELECT3.AllowDBNull = false + Me.columnPROCESS_SELECT3.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT3.MaxLength = 2000 + Me.columnPROCESS_SELECT4.AllowDBNull = false + Me.columnPROCESS_SELECT4.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT4.MaxLength = 2000 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(false,Boolean) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnTIME_DIST.AllowDBNull = false + Me.columnTIME_DIST.MaxLength = 30 + Me.columnPROCESS_SELECT5.AllowDBNull = false + Me.columnPROCESS_SELECT5.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT5.MaxLength = 2000 + Me.columnPROCESS_SELECT6.AllowDBNull = false + Me.columnPROCESS_SELECT6.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT6.MaxLength = 2000 + Me.columnPROCESS_SELECT7.AllowDBNull = false + Me.columnPROCESS_SELECT7.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT7.MaxLength = 2000 + Me.columnPROCESS_SELECT8.AllowDBNull = false + Me.columnPROCESS_SELECT8.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT8.MaxLength = 2000 + Me.columnPROCESS_SELECT9.AllowDBNull = false + Me.columnPROCESS_SELECT9.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT9.MaxLength = 2000 + Me.columnPROCESS_SELECT10.AllowDBNull = false + Me.columnPROCESS_SELECT10.DefaultValue = CType("",String) + Me.columnPROCESS_SELECT10.MaxLength = 2000 + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + End Sub + + _ + Public Function NewTBPMO_FOLLOW_UP_EMAILRow() As TBPMO_FOLLOW_UP_EMAILRow + Return CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FOLLOW_UP_EMAILRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FOLLOW_UP_EMAILRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanged(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanging(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleted(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleting(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FOLLOW_UP_EMAILDataTable" + 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 TBPMO_FOLLUPEMAIL_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLUPEMAIL_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FOLLUPEMAIL_USER" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_FOLLUPEMAIL_USERRow + Get + Return CType(Me.Rows(index),TBPMO_FOLLUPEMAIL_USERRow) + End Get + End Property + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowChanging As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowChanged As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowDeleting As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Event TBPMO_FOLLUPEMAIL_USERRowDeleted As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FOLLUPEMAIL_USERRow(ByVal USER_ID As Integer, ByVal parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As TBDD_USERRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FOLLUPEMAIL_USERRow + Dim rowTBPMO_FOLLUPEMAIL_USERRow As TBPMO_FOLLUPEMAIL_USERRow = CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID(0) + End If + rowTBPMO_FOLLUPEMAIL_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FOLLUPEMAIL_USERRow) + Return rowTBPMO_FOLLUPEMAIL_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLUPEMAIL_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLUPEMAIL_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FOLLUPEMAIL_USERDataTable = CType(MyBase.Clone,TBPMO_FOLLUPEMAIL_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FOLLUPEMAIL_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnFOLLOW_UP_ID = MyBase.Columns("FOLLOW_UP_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnFOLLOW_UP_ID = New Global.System.Data.DataColumn("FOLLOW_UP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnFOLLOW_UP_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FOLLUPEMAIL_USERRow() As TBPMO_FOLLUPEMAIL_USERRow + Return CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FOLLUPEMAIL_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FOLLUPEMAIL_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanged(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanging(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleted(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleting(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FOLLUPEMAIL_USERDataTable" + 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 TBPMO_RECORD_LOG_CONFIGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORD_LOG_CONFIGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONTROL_ID As Global.System.Data.DataColumn + + Private columnLOG_DELETE As Global.System.Data.DataColumn + + Private columnLOG_UPDATE As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnFORM_ID1 As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_RECORD_LOG_CONFIG" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_ID + End Get + End Property + + _ + Public ReadOnly Property LOG_DELETEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_DELETE + End Get + End Property + + _ + Public ReadOnly Property LOG_UPDATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_UPDATE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property FORM_ID1Column() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID1 + End Get + End Property + + _ + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnString + 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 TBPMO_RECORD_LOG_CONFIGRow + Get + Return CType(Me.Rows(index),TBPMO_RECORD_LOG_CONFIGRow) + End Get + End Property + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowChanging As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowChanged As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowDeleting As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_RECORD_LOG_CONFIGRowDeleted As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_RECORD_LOG_CONFIGRow(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal FORM_ID As Integer, ByVal NAME As String, ByVal _String As String) As TBPMO_RECORD_LOG_CONFIGRow + Dim rowTBPMO_RECORD_LOG_CONFIGRow As TBPMO_RECORD_LOG_CONFIGRow = CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FORM_ID, NAME, Nothing, _String} + rowTBPMO_RECORD_LOG_CONFIGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RECORD_LOG_CONFIGRow) + Return rowTBPMO_RECORD_LOG_CONFIGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORD_LOG_CONFIGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORD_LOG_CONFIGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_RECORD_LOG_CONFIGDataTable = CType(MyBase.Clone,TBPMO_RECORD_LOG_CONFIGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_RECORD_LOG_CONFIGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") + Me.columnLOG_DELETE = MyBase.Columns("LOG_DELETE") + Me.columnLOG_UPDATE = MyBase.Columns("LOG_UPDATE") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnFORM_ID1 = MyBase.Columns("FORM_ID1") + Me.columnString = MyBase.Columns("String") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONTROL_ID = New Global.System.Data.DataColumn("CONTROL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_ID) + Me.columnLOG_DELETE = New Global.System.Data.DataColumn("LOG_DELETE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_DELETE) + Me.columnLOG_UPDATE = New Global.System.Data.DataColumn("LOG_UPDATE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_UPDATE) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnFORM_ID1 = New Global.System.Data.DataColumn("FORM_ID1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID1) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCONTROL_ID.AllowDBNull = false + Me.columnLOG_DELETE.AllowDBNull = false + Me.columnLOG_DELETE.DefaultValue = CType(false,Boolean) + Me.columnLOG_UPDATE.AllowDBNull = false + Me.columnLOG_UPDATE.DefaultValue = CType(false,Boolean) + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnFORM_ID.AllowDBNull = false + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnFORM_ID1.AutoIncrement = true + Me.columnFORM_ID1.AutoIncrementSeed = -1 + Me.columnFORM_ID1.AutoIncrementStep = -1 + Me.columnFORM_ID1.AllowDBNull = false + Me.columnFORM_ID1.ReadOnly = true + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 203 + End Sub + + _ + Public Function NewTBPMO_RECORD_LOG_CONFIGRow() As TBPMO_RECORD_LOG_CONFIGRow + Return CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_RECORD_LOG_CONFIGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_RECORD_LOG_CONFIGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanged(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanging(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleted(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleting(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_RECORD_LOG_CONFIGDataTable" + 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 VWPMO_RECORD_CHANGESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_RECORD_CHANGESRow) + + Private columnID As Global.System.Data.DataColumn + + Private _columnControl_Name As Global.System.Data.DataColumn + + Private _columnLog_Description As Global.System.Data.DataColumn + + Private columnAdded_who As Global.System.Data.DataColumn + + Private columnAdded_When As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_RECORD_CHANGES" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property _Control_NameColumn() As Global.System.Data.DataColumn + Get + Return Me._columnControl_Name + End Get + End Property + + _ + Public ReadOnly Property _Log_DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me._columnLog_Description + End Get + End Property + + _ + Public ReadOnly Property Added_whoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdded_who + End Get + End Property + + _ + Public ReadOnly Property Added_WhenColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdded_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 VWPMO_RECORD_CHANGESRow + Get + Return CType(Me.Rows(index),VWPMO_RECORD_CHANGESRow) + End Get + End Property + + _ + Public Event VWPMO_RECORD_CHANGESRowChanging As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Event VWPMO_RECORD_CHANGESRowChanged As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Event VWPMO_RECORD_CHANGESRowDeleting As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Event VWPMO_RECORD_CHANGESRowDeleted As VWPMO_RECORD_CHANGESRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_RECORD_CHANGESRow(ByVal ID As Integer, ByVal _Control_Name As String, ByVal _Log_Description As String, ByVal Added_who As String, ByVal Added_When As Date) As VWPMO_RECORD_CHANGESRow + Dim rowVWPMO_RECORD_CHANGESRow As VWPMO_RECORD_CHANGESRow = CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) + Dim columnValuesArray() As Object = New Object() {ID, _Control_Name, _Log_Description, Added_who, Added_When} + rowVWPMO_RECORD_CHANGESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_RECORD_CHANGESRow) + Return rowVWPMO_RECORD_CHANGESRow + End Function + + _ + Public Function FindByID(ByVal ID As Integer) As VWPMO_RECORD_CHANGESRow + Return CType(Me.Rows.Find(New Object() {ID}),VWPMO_RECORD_CHANGESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_RECORD_CHANGESDataTable = CType(MyBase.Clone,VWPMO_RECORD_CHANGESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_RECORD_CHANGESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me._columnControl_Name = MyBase.Columns("Control-Name") + Me._columnLog_Description = MyBase.Columns("Log-Description") + Me.columnAdded_who = MyBase.Columns("Added who") + Me.columnAdded_When = MyBase.Columns("Added When") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me._columnControl_Name = New Global.System.Data.DataColumn("Control-Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnControl_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnControl_Name") + Me._columnControl_Name.ExtendedProperties.Add("Generator_UserColumnName", "Control-Name") + MyBase.Columns.Add(Me._columnControl_Name) + Me._columnLog_Description = New Global.System.Data.DataColumn("Log-Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnLog_Description.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnLog_Description") + Me._columnLog_Description.ExtendedProperties.Add("Generator_UserColumnName", "Log-Description") + MyBase.Columns.Add(Me._columnLog_Description) + Me.columnAdded_who = New Global.System.Data.DataColumn("Added who", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdded_who) + Me.columnAdded_When = New Global.System.Data.DataColumn("Added When", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdded_When) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) + Me.columnID.AllowDBNull = false + Me.columnID.Unique = true + Me._columnControl_Name.AllowDBNull = false + Me._columnControl_Name.MaxLength = 100 + Me._columnLog_Description.AllowDBNull = false + Me._columnLog_Description.MaxLength = 1000 + Me.columnAdded_who.MaxLength = 100 + End Sub + + _ + Public Function NewVWPMO_RECORD_CHANGESRow() As VWPMO_RECORD_CHANGESRow + Return CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_RECORD_CHANGESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_RECORD_CHANGESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowChanged(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowChanging(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowDeleted(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_RECORD_CHANGESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowDeleting(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_RECORD_CHANGESDataTable" + 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 VWPMO_WF_ACTIVEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_ACTIVERow) + + Private columnWF_TASK_ID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnSTATE_DESC As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnTASK_DATE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_WF_ACTIVE" + 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWF_TASK_ID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_DESC + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property TASK_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTASK_DATE + 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 VWPMO_WF_ACTIVERow + Get + Return CType(Me.Rows(index),VWPMO_WF_ACTIVERow) + End Get + End Property + + _ + Public Event VWPMO_WF_ACTIVERowChanging As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_ACTIVERowChanged As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_ACTIVERowDeleting As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Event VWPMO_WF_ACTIVERowDeleted As VWPMO_WF_ACTIVERowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_WF_ACTIVERow(ByVal WF_TASK_ID As Integer, ByVal TITLE As String, ByVal RECORD_ID As Integer, ByVal STATE_ID As Integer, ByVal STATE_DESC As String, ByVal COLOR As String, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_ACTIVERow + Dim rowVWPMO_WF_ACTIVERow As VWPMO_WF_ACTIVERow = CType(Me.NewRow,VWPMO_WF_ACTIVERow) + Dim columnValuesArray() As Object = New Object() {WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE} + rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_ACTIVERow) + Return rowVWPMO_WF_ACTIVERow + End Function + + _ + Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_ACTIVERow + Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_ACTIVERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_WF_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_ACTIVEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_WF_ACTIVEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") + Me.columnCOLOR = MyBase.Columns("COLOR") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") + End Sub + + _ + Private Sub InitClass() + Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TASK_ID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_DESC) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTASK_DATE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) + Me.columnWF_TASK_ID.AllowDBNull = false + Me.columnWF_TASK_ID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnSTATE_ID.AllowDBNull = false + Me.columnSTATE_DESC.AllowDBNull = false + Me.columnSTATE_DESC.MaxLength = 50 + Me.columnCOLOR.MaxLength = 50 + Me.columnCOMMENT.MaxLength = 500 + Me.columnUSERNAME.ReadOnly = true + Me.columnUSERNAME.MaxLength = 1 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_WF_ACTIVERow() As VWPMO_WF_ACTIVERow + Return CType(Me.NewRow,VWPMO_WF_ACTIVERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_WF_ACTIVERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_WF_ACTIVERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_WF_ACTIVERowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowChanged(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_WF_ACTIVERowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowChanging(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_WF_ACTIVERowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowDeleted(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_WF_ACTIVERowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowDeleting(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "VWPMO_WF_ACTIVEDataTable" + 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 TBDD_EMAIL_ACCOUNTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_ACCOUNTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnEMAIL_FROM As Global.System.Data.DataColumn + + Private columnEMAIL_SMTP As Global.System.Data.DataColumn + + Private columnEMAIL_USER As Global.System.Data.DataColumn + + Private columnEMAIL_PW As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_EMAIL_ACCOUNT" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_FROM + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SMTP + End Get + End Property + + _ + Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_USER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_PW + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBDD_EMAIL_ACCOUNTRow + Get + Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) + End Get + End Property + + _ + Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_ACCOUNTRow + Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) + Return rowTBDD_EMAIL_ACCOUNTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_EMAIL_ACCOUNTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") + Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") + Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") + Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_FROM) + Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SMTP) + Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_USER) + Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_PW) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.MaxLength = 50 + Me.columnEMAIL_FROM.AllowDBNull = false + Me.columnEMAIL_FROM.MaxLength = 100 + Me.columnEMAIL_SMTP.AllowDBNull = false + Me.columnEMAIL_SMTP.MaxLength = 100 + Me.columnEMAIL_USER.AllowDBNull = false + Me.columnEMAIL_USER.MaxLength = 100 + Me.columnEMAIL_PW.AllowDBNull = false + Me.columnEMAIL_PW.MaxLength = 100 + Me.columnACTIVE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow + Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_EMAIL_ACCOUNTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_EMAIL_ACCOUNTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBDD_EMAIL_ACCOUNTDataTable" + 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 TBPMO_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_CONNECTIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATABASE As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnAKTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_CONNECTION" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATABASEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATABASE + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property AKTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBPMO_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBPMO_CONNECTIONRowChanging As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Event TBPMO_CONNECTIONRowChanged As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Event TBPMO_CONNECTIONRowDeleting As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Event TBPMO_CONNECTIONRowDeleted As TBPMO_CONNECTIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_CONNECTIONRow(ByVal row As TBPMO_CONNECTIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_CONNECTIONRow(ByVal DESCRIPTION As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATABASE As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal COMMENT As String, ByVal AKTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_CONNECTIONRow + Dim rowTBPMO_CONNECTIONRow As TBPMO_CONNECTIONRow = CType(Me.NewRow,TBPMO_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_CONNECTIONRow) + Return rowTBPMO_CONNECTIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Short) As TBPMO_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_CONNECTIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_CONNECTIONDataTable = CType(MyBase.Clone,TBPMO_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_CONNECTIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATABASE = MyBase.Columns("DATABASE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnAKTIVE = MyBase.Columns("AKTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATABASE = New Global.System.Data.DataColumn("DATABASE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATABASE) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnAKTIVE = New Global.System.Data.DataColumn("AKTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDESCRIPTION.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 100 + Me.columnSERVER.MaxLength = 150 + Me.columnDATABASE.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 400 + Me.columnAKTIVE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_CONNECTIONRow() As TBPMO_CONNECTIONRow + Return CType(Me.NewRow,TBPMO_CONNECTIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_CONNECTIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_CONNECTIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowChanged(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowChanging(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowDeleted(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_CONNECTIONRowDeleting(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_CONNECTIONRow(ByVal row As TBPMO_CONNECTIONRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_CONNECTIONDataTable" + 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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONSTRUCT_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnLEVEL1_SELECT As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn + + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONSTRUCT_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL1_SELECT + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE1 + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE2 + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME1 + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME2 + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_SEARCH + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN1 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN2 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN3 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN4 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN5 + 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 TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ + ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ + ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As TBPMO_FORMRow, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5} + If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) + End If + If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID(0) + End If + rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") + Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") + Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") + Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") + Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") + Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") + Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") + Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") + Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONSTRUCT_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL1_SELECT) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1) + Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME1) + Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME2) + Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) + Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) + Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) + Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) + Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) + Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCONSTRUCT_ID.AllowDBNull = false + Me.columnFORM_ID.AllowDBNull = false + Me.columnPARENT_ID.AllowDBNull = false + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) + Me.columnLEVEL1_SELECT.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 + Me.columnSQL_SELECT_EBENE2.AllowDBNull = false + Me.columnSQL_SELECT_EBENE2.MaxLength = 4000 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLUMN_NAME1.AllowDBNull = false + Me.columnCOLUMN_NAME1.MaxLength = 100 + Me.columnCOLUMN_NAME2.AllowDBNull = false + Me.columnCOLUMN_NAME2.MaxLength = 100 + Me.columnWINDREAM_SEARCH.MaxLength = 300 + Me.columnSEARCH_PATTERN1.MaxLength = 50 + Me.columnSEARCH_PATTERN2.MaxLength = 50 + Me.columnSEARCH_PATTERN3.MaxLength = 50 + Me.columnSEARCH_PATTERN4.MaxLength = 50 + Me.columnSEARCH_PATTERN5.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + 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 DD_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" + 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 TBPMO_FORMRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM As TBPMO_FORMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM = CType(Me.Table,TBPMO_FORMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM.GUIDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM.PARENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBPMO_FORM.NAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM.NAMEColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As String + Get + Return CType(Me(Me.tableTBPMO_FORM.LEVELColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM.LEVELColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property SHOW_FORM_CONSTRUCT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM.SHOW_FORM_CONSTRUCTColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM.SHOW_FORM_CONSTRUCTColumn) = value + End Set + End Property + + _ + Public Property FORM_TYPE_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TYPE_ID in Tabelle TBPMO_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) = value + End Set + End Property + + _ + Public Property SINGLE_RECORD() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM.SINGLE_RECORDColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM.SINGLE_RECORDColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_FORM_TYPE_ID")),TBPMO_FORM_TYPERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_FORM_TYPE_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFORM_TYPE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) + End Function + + _ + Public Sub SetFORM_TYPE_IDNull() + Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORM_VIEWRows() As TBPMO_FORM_VIEWRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID") Is Nothing) Then + Return New TBPMO_FORM_VIEWRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID")),TBPMO_FORM_VIEWRow()) + End If + End Function + + _ + Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID") Is Nothing) Then + Return New TBPMO_WORKFLOW_FORMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_WORKFLOW_FORMRow()) + End If + End Function + + _ + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_CONTROL_SCREENRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_CONTROL_SCREEN As VWPMO_CONTROL_SCREENDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_CONTROL_SCREEN = CType(Me.Table,VWPMO_CONTROL_SCREENDataTable) + End Sub + + _ + Public Property CONTROL_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_IDColumn) = value + End Set + End Property + + _ + Public Property CONTROL_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_NAMEColumn) = value + End Set + End Property + + _ + Public Property CONTROL_REQUIRED() As Boolean + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_REQUIREDColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_REQUIREDColumn) = value + End Set + End Property + + _ + Public Property CONTROL_DEF_VALUE() As String + Get + Try + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONTROL_DEF_VALUE in Tabelle VWPMO_CONTROL_SCREEN ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) = value + End Set + End Property + + _ + Public Property CONTROL_READ_ONLY() As Boolean + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_READ_ONLYColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_READ_ONLYColumn) = value + End Set + End Property + + _ + Public Property CTRLTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property CTRLTYPE_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_NAMEColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_NAMEColumn) = value + End Set + End Property + + _ + Public Property FORM_LEVEL() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_LEVELColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_LEVELColumn) = value + End Set + End Property + + _ + Public Property SCREEN_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_IDColumn) = value + End Set + End Property + + _ + Public Property SCREEN_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_NAMEColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_IDColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_CAPTION() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_CAPTIONColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_CAPTIONColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_X_LOC() As Double + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_X_LOCColumn),Double) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_X_LOCColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_Y_LOC() As Double + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_Y_LOCColumn),Double) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_Y_LOCColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_HEIGHT() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_HEIGHTColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_HEIGHTColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_WIDTH() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_WIDTHColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_WIDTHColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_FAMILY() As String + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_FAMILYColumn),String) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_FAMILYColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_COLOR() As Long + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_COLORColumn),Long) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_COLORColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_SIZE() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_SIZEColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_SIZEColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_FONT_STYLE() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_STYLEColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_STYLEColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_TAB_INDEX() As Short + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_INDEXColumn),Short) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property CTRLSCR_TAB_STOP() As Boolean + Get + Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_STOPColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_STOPColumn) = value + End Set + End Property + + _ + Public Function IsCONTROL_DEF_VALUENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) + End Function + + _ + Public Sub SetCONTROL_DEF_VALUENull() + Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_VIEWRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_VIEW As TBPMO_FORM_VIEWDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_VIEW = CType(Me.Table,TBPMO_FORM_VIEWDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.GUIDColumn) = value + End Set + End Property + + _ + Public Property SCREEN_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SCREEN_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SCREEN_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.FORM_TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property WIDTH() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) = value + End Set + End Property + + _ + Public Property HEIGHT() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) = value + End Set + End Property + + _ + Public Property DIALOG() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.DIALOGColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.DIALOGColumn) = value + End Set + End Property + + _ + Public Property MAXIMIZABLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAXIMIZABLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MAXIMIZABLEColumn) = value + End Set + End Property + + _ + Public Property MINIMIZABLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MINIMIZABLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MINIMIZABLEColumn) = value + End Set + End Property + + _ + Public Property MAX_WIDTH() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MAX_WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) = value + End Set + End Property + + _ + Public Property MIN_WIDTH() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MIN_WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) = value + End Set + End Property + + _ + Public Property MAX_HEIGHT() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MAX_HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) = value + End Set + End Property + + _ + Public Property MIN_HEIGHT() As Short + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MIN_HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) = value + End Set + End Property + + _ + Public Property X_LOC() As Double + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte X_LOC in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) = value + End Set + End Property + + _ + Public Property Y_LOC() As Double + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Y_LOC in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property IS_MDI_CHILD() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.IS_MDI_CHILDColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.IS_MDI_CHILDColumn) = value + End Set + End Property + + _ + Public Property DOCUMENT_VIEW() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.DOCUMENT_VIEWColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.DOCUMENT_VIEWColumn) = value + End Set + End Property + + _ + Public Property WINDREAM_SEARCH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN2() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN3() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN4() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN5() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) = value + End Set + End Property + + _ + Public Property ALLOW_DROP() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_VIEW.ALLOW_DROPColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_VIEW.ALLOW_DROPColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORMRow() As TBPMO_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_VIEW_FORM_ID")),TBPMO_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_VIEW_FORM_ID")) + End Set + End Property + + _ + Public Function IsWIDTHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) + End Function + + _ + Public Sub SetWIDTHNull() + Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHEIGHTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) + End Function + + _ + Public Sub SetHEIGHTNull() + Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMAX_WIDTHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) + End Function + + _ + Public Sub SetMAX_WIDTHNull() + Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMIN_WIDTHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) + End Function + + _ + Public Sub SetMIN_WIDTHNull() + Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMAX_HEIGHTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) + End Function + + _ + Public Sub SetMAX_HEIGHTNull() + Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMIN_HEIGHTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) + End Function + + _ + Public Sub SetMIN_HEIGHTNull() + Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsX_LOCNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) + End Function + + _ + Public Sub SetX_LOCNull() + Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsY_LOCNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) + End Function + + _ + Public Sub SetY_LOCNull() + Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWINDREAM_SEARCHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) + End Function + + _ + Public Sub SetWINDREAM_SEARCHNull() + Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN1Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN2Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN3Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN4Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN5Null() + Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_RECORDRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_RECORD As TBPMO_RECORDDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_RECORD = CType(Me.Table,TBPMO_RECORDDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD.GUIDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_RECORD.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_RECORD.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_RECORD.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_RECORD.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_RECORD ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RECORD ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID") Is Nothing) Then + Return New VWPMO_WF_USER_ACTIVERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),VWPMO_WF_USER_ACTIVERow()) + End If + End Function + + _ + Public Function GetVWPMO_FOLLOWING_TASKSRows() As VWPMO_FOLLOWING_TASKSRow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1") Is Nothing) Then + Return New VWPMO_FOLLOWING_TASKSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")),VWPMO_FOLLOWING_TASKSRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_DOKUMENTTYPESRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_DOKUMENTTYPES As VWPMO_DOKUMENTTYPESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_DOKUMENTTYPES = CType(Me.Table,VWPMO_DOKUMENTTYPESDataTable) + End Sub + + _ + Public Property FORMVIEW_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORMVIEW_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FORMVIEW_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property DOKUMENTTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property DOKUMENTTYPE() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPEColumn) = value + End Set + End Property + + _ + Public Property PATH() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.PATHColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.PATHColumn) = value + End Set + End Property + + _ + Public Property SHORTNAME() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.SHORTNAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.SHORTNAMEColumn) = value + End Set + End Property + + _ + Public Property OBJECT_TYPE() As String + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.OBJECT_TYPEColumn),String) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.OBJECT_TYPEColumn) = value + End Set + End Property + + _ + Public Property FW_DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FW_DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_DOKUMENTTYPES.FW_DOCTYPE_IDColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WD_FVIEW_DT_INDEXRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WD_FVIEW_DT_INDEX As TBPMO_WD_FVIEW_DT_INDEXDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WD_FVIEW_DT_INDEX = CType(Me.Table,TBPMO_WD_FVIEW_DT_INDEXDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.GUIDColumn) = value + End Set + End Property + + _ + Public Property FW_DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.FW_DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.FW_DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property INDEX_VALUE() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEX_VALUEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEX_VALUEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_FVIEW_DT_INDEX ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_FVIEW_DT_INDEX ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOW_TASKRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW_TASK As TBPMO_WORKFLOW_TASKDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW_TASK = CType(Me.Table,TBPMO_WORKFLOW_TASKDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.GUIDColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.WF_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK.TITLEColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOW_TASK_STATERow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW_TASK_STATE As TBPMO_WORKFLOW_TASK_STATEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW_TASK_STATE = CType(Me.Table,TBPMO_WORKFLOW_TASK_STATEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn) = value + End Set + End Property + + _ + Public Property STATE_DESC() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOLORNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) + End Function + + _ + Public Sub SetCOLORNull() + Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID") Is Nothing) Then + Return New VWPMO_WF_USER_ACTIVERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),VWPMO_WF_USER_ACTIVERow()) + End If + End Function + + _ + Public Function GetVWPMO_FOLLOWING_TASKSRows() As VWPMO_FOLLOWING_TASKSRow() + If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1") Is Nothing) Then + Return New VWPMO_FOLLOWING_TASKSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")),VWPMO_FOLLOWING_TASKSRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_GUI_ENTITYRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_GUI_ENTITY As VWPMO_GUI_ENTITYDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_GUI_ENTITY = CType(Me.Table,VWPMO_GUI_ENTITYDataTable) + End Sub + + _ + Public Property ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_GUI_ENTITY.IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_GUI_ENTITY.IDColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Return CType(Me(Me.tableVWPMO_GUI_ENTITY.NameColumn),String) + End Get + Set + Me(Me.tableVWPMO_GUI_ENTITY.NameColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Return CType(Me(Me.tableVWPMO_GUI_ENTITY.TitleColumn),String) + End Get + Set + Me(Me.tableVWPMO_GUI_ENTITY.TitleColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOWRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW = CType(Me.Table,TBPMO_WORKFLOWDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW.TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.TITLEColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsDESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) + End Function + + _ + Public Sub SetDESCRIPTIONNull() + Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() + If (Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID") Is Nothing) Then + Return New TBPMO_WORKFLOW_FORMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOW_FORMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WORKFLOW_FORMRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WORKFLOW_FORM = CType(Me.Table,TBPMO_WORKFLOW_FORMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORMRow() As TBPMO_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")) + End Set + End Property + + _ + Public Property TBPMO_WORKFLOWRow() As TBPMO_WORKFLOWRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOWRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")) + End Set + End Property + + _ + Public Function IsSEQUENCENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) + End Function + + _ + Public Sub SetSEQUENCENull() + Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WF_USER_ACTIVERow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WF_USER_ACTIVE = CType(Me.Table,VWPMO_WF_USER_ACTIVEDataTable) + End Sub + + _ + Public Property WF_TASK_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TASK_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = value + End Set + End Property + + _ + Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),TBPMO_RECORDRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")) + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),TBPMO_WORKFLOW_TASK_STATERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTASK_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) + End Function + + _ + Public Sub SetTASK_DATENull() + Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_FOLLOWING_TASKSRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_FOLLOWING_TASKS As VWPMO_FOLLOWING_TASKSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_FOLLOWING_TASKS = CType(Me.Table,VWPMO_FOLLOWING_TASKSDataTable) + End Sub + + _ + Public Property JOB() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte JOB in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) = value + End Set + End Property + + _ + Public Property WF_TASK_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.WF_TASK_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.WF_TASK_IDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.TITLEColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")),TBPMO_RECORDRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")) + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")),TBPMO_WORKFLOW_TASK_STATERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")) + End Set + End Property + + _ + Public Function IsJOBNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) + End Function + + _ + Public Sub SetJOBNull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = CType(Me.Table,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) + End Sub + + _ + Public Property STATE() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATE in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property Authority() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Authority in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) = value + End Set + End Property + + _ + Public Property _String() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.WF_IDColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsSTATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) + End Function + + _ + Public Sub SetSTATENull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAuthorityNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) + End Function + + _ + Public Sub SetAuthorityNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_StringNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) + End Function + + _ + Public Sub Set_StringNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOLORNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) + End Function + + _ + Public Sub SetCOLORNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_DOKUMENTARTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property EINGANGSART_ID() As Byte + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property ZIEL_PFAD() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + End Set + End Property + + _ + Public Property NAMENKONVENTION() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAMENKONVENTION in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property OBJEKTTYP() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + End Set + End Property + + _ + Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENKONVENTIONNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) + End Function + + _ + Public Sub SetNAMENKONVENTIONNull() + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_EINGANGSARTENRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() + If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then + Return New TBDD_DOKUMENTARTRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_DOKUMENTARTRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_AUTOMRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) + End Set + End Property + + _ + Public Property TBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID1")),TBPMO_WD_FORMVIEW_DOKTYPESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID1")) + End Set + End Property + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) + End Function + + _ + Public Sub SetVALUENull() + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WD_FORMVIEW_DOKTYPES As TBPMO_WD_FORMVIEW_DOKTYPESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = CType(Me.Table,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORMVIEW_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORM_TITLEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID1") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID1")),TBDD_INDEX_AUTOMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_KONFIGURATIONRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_KONFIGURATION As TBPMO_KONFIGURATIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_KONFIGURATION = CType(Me.Table,TBPMO_KONFIGURATIONDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.GUIDColumn) = value + End Set + End Property + + _ + Public Property LICENSE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LICENSE in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) = value + End Set + End Property + + _ + Public Property VEKTOR_DELIMITER() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.VEKTOR_DELIMITERColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.VEKTOR_DELIMITERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_ACTIVEColumn) = value + End Set + End Property + + _ + Public Property EMAIL_FROM() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_FROM in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) = value + End Set + End Property + + _ + Public Property EMAIL_SMTP() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SMTP in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) = value + End Set + End Property + + _ + Public Property EMAIL_USER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_PW() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_PW in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) = value + End Set + End Property + + _ + Public Property EMAIL_REMINDER_HEADER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_HEADER in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_REMINDER_FOOTER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_FOOTER in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = value + End Set + End Property + + _ + Public Property ADMIN_PW() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADMIN_PWColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADMIN_PWColumn) = value + End Set + End Property + + _ + Public Property ADMIN_SECURITY() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADMIN_SECURITYColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property SQL_RECORD_SQL1() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL1Column),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL1Column) = value + End Set + End Property + + _ + Public Property SQL_RECORD_SQL2() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL2Column),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL2Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE1() As Integer + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE1Column),Integer) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE1Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE2() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE2 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE3() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE3 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE4() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE4 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) = value + End Set + End Property + + _ + Public Property WORKFLOW_FINAL_STATE5() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE5 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) = value + End Set + End Property + + _ + Public Property VERSION_DELIMITER() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.VERSION_DELIMITERColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.VERSION_DELIMITERColumn) = value + End Set + End Property + + _ + Public Property FILE_DELIMITER() As String + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.FILE_DELIMITERColumn),String) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.FILE_DELIMITERColumn) = value + End Set + End Property + + _ + Public Property WD_UNICODE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.WD_UNICODEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.WD_UNICODEColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_LOG_ERR_ONLY() As Boolean + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_LOG_ERR_ONLYColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_LOG_ERR_ONLYColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_EMAIL_PROFILE() As Integer + Get + Return CType(Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_EMAIL_PROFILEColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_EMAIL_PROFILEColumn) = value + End Set + End Property + + _ + Public Function IsLICENSENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) + End Function + + _ + Public Sub SetLICENSENull() + Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_FROMNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) + End Function + + _ + Public Sub SetEMAIL_FROMNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_SMTPNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) + End Function + + _ + Public Sub SetEMAIL_SMTPNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_USERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) + End Function + + _ + Public Sub SetEMAIL_USERNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_PWNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) + End Function + + _ + Public Sub SetEMAIL_PWNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) + End Function + + _ + Public Sub SetEMAIL_REMINDER_HEADERNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) + End Function + + _ + Public Sub SetEMAIL_REMINDER_FOOTERNull() + Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE2Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE3Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE4Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORKFLOW_FINAL_STATE5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) + End Function + + _ + Public Sub SetWORKFLOW_FINAL_STATE5Null() + Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_USER As TBDD_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.PRENAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.NAMEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.EMAILColumn) = value + End Set + End Property + + _ + Public Property LOGGED_IN() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_INColumn) = value + End Set + End Property + + _ + Public Property LOGGED_WHERE() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value + End Set + End Property + + _ + Public Property LOG_IN_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value + End Set + End Property + + _ + Public Property LOG_OUT_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property RECORD_ADMIN() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.RECORD_ADMINColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.RECORD_ADMINColumn) = value + End Set + End Property + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOGGED_WHERENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) + End Function + + _ + Public Sub SetLOGGED_WHERENull() + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_IN_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) + End Function + + _ + Public Sub SetLOG_IN_WHENNull() + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_OUT_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) + End Function + + _ + Public Sub SetLOG_OUT_WHENNull() + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + + _ + Public Function GetTBPMO_FOLLUPEMAIL_USERRows() As TBPMO_FOLLUPEMAIL_USERRow() + If (Me.Table.ChildRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID") Is Nothing) Then + Return New TBPMO_FOLLUPEMAIL_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")),TBPMO_FOLLUPEMAIL_USERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_TYPERow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_TYPE As TBPMO_FORM_TYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_TYPE = CType(Me.Table,TBPMO_FORM_TYPEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_TYPE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TYPE() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_TYPE.FORM_TYPEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.FORM_TYPEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORMRows() As TBPMO_FORMRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_FORM_TYPE_ID") Is Nothing) Then + Return New TBPMO_FORMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_FORM_TYPE_ID")),TBPMO_FORMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_USER_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_USERS_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_USERS_GROUPS As VWPMO_USERS_GROUPSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_USERS_GROUPS = CType(Me.Table,VWPMO_USERS_GROUPSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.USER_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.USERNAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) = value + End Set + End Property + + _ + Public Property GROUP_NAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP_NAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGROUP_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) + End Function + + _ + Public Sub SetGROUP_NAMENull() + Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_GROUPS_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) + End Set + End Property + + _ + Public Property TBDD_USERRow() As TBDD_USERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_DOKART_MODULERow + Inherits Global.System.Data.DataRow + + Private tableTBWH_DOKART_MODULE As TBWH_DOKART_MODULEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_DOKART_MODULE = CType(Me.Table,TBWH_DOKART_MODULEDataTable) + End Sub + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_DOKART_MODULE.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_DOKART_MODULE.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_DOKART_MODULE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_DOKART_MODULE.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_MENU() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property MENU_IMG() As Byte() + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value + End Set + End Property + + _ + Public Property SHORT_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value + End Set + End Property + + _ + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + End Function + + _ + Public Sub SetFORM_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMENU_IMGNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) + End Function + + _ + Public Sub SetMENU_IMGNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) + End Function + + _ + Public Sub SetSHORT_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WD_OBJECTTYPERow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WD_OBJECTTYPE As TBPMO_WD_OBJECTTYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WD_OBJECTTYPE = CType(Me.Table,TBPMO_WD_OBJECTTYPEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property OBJECT_TYPE() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.OBJECT_TYPEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.OBJECT_TYPEColumn) = value + End Set + End Property + + _ + Public Property IDXNAME_ENTITYID() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property IDXNAME_PARENTID() As String + Get + Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FILES_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FILES_USER As TBPMO_FILES_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FILES_USER = CType(Me.Table,TBPMO_FILES_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property FILENAME2WORK() As String + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.FILENAME2WORKColumn),String) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.FILENAME2WORKColumn) = value + End Set + End Property + + _ + Public Property USER_WORK() As String + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.USER_WORKColumn),String) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.USER_WORKColumn) = value + End Set + End Property + + _ + Public Property HANDLE_TYPE() As String + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.HANDLE_TYPEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.HANDLE_TYPEColumn) = value + End Set + End Property + + _ + Public Property WORKED() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.WORKEDColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.WORKEDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_FILES_USER.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_FILES_USER.ADDED_WHENColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WORKFLOW_FORMRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WORKFLOW_FORM As VWPMO_WORKFLOW_FORMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WORKFLOW_FORM = CType(Me.Table,VWPMO_WORKFLOW_FORMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_NAMEColumn) = value + End Set + End Property + + _ + Public Property WF_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.WF_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.WF_IDColumn) = value + End Set + End Property + + _ + Public Property WORKFLOW() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.WORKFLOWColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.WORKFLOWColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Try + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.COLORColumn),String) + End Get + Set + Me(Me.tableVWPMO_WORKFLOW_FORM.COLORColumn) = value + End Set + End Property + + _ + Public Function IsSEQUENCENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) + End Function + + _ + Public Sub SetSEQUENCENull() + Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FOLLOW_UP_EMAILRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FOLLOW_UP_EMAIL As TBPMO_FOLLOW_UP_EMAILDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FOLLOW_UP_EMAIL = CType(Me.Table,TBPMO_FOLLOW_UP_EMAILDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.GUIDColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_SEQUENCE() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_SEQUENCEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_DAYS() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_TIME_SPAN() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_TIME_SPANColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_TIME_SPANColumn) = value + End Set + End Property + + _ + Public Property DEPENDENT_DATE_CTRL_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn) = value + End Set + End Property + + _ + Public Property DEPENDENT_DONE_CTRL_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PARENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property TIME_UNITY() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_UNITYColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_UNITYColumn) = value + End Set + End Property + + _ + Public Property TIME_SPAN() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_SPANColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_SPANColumn) = value + End Set + End Property + + _ + Public Property EMAIL_SUBJECT() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_SUBJECTColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_SUBJECTColumn) = value + End Set + End Property + + _ + Public Property EMAIL_BODY() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_BODYColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_BODYColumn) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT1() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT1Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT1Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT2() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT2Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT2Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT3() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT3Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT3Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT4() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT4Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT4Column) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TIME_DIST() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_DISTColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_DISTColumn) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT5() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT5Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT5Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT6() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT6Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT6Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT7() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT7Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT7Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT8() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT8Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT8Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT9() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT9Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT9Column) = value + End Set + End Property + + _ + Public Property PROCESS_SELECT10() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT10Column),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT10Column) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.NAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FOLLUPEMAIL_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FOLLUPEMAIL_USER As TBPMO_FOLLUPEMAIL_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FOLLUPEMAIL_USER = CType(Me.Table,TBPMO_FOLLUPEMAIL_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.USER_IDColumn) = value + End Set + End Property + + _ + Public Property FOLLOW_UP_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_USERRow() As TBDD_USERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")),TBDD_USERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_RECORD_LOG_CONFIGRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_RECORD_LOG_CONFIG As TBPMO_RECORD_LOG_CONFIGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_RECORD_LOG_CONFIG = CType(Me.Table,TBPMO_RECORD_LOG_CONFIGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONTROL_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CONTROL_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CONTROL_IDColumn) = value + End Set + End Property + + _ + Public Property LOG_DELETE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_DELETEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_DELETEColumn) = value + End Set + End Property + + _ + Public Property LOG_UPDATE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_UPDATEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_UPDATEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn),String) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn) = value + End Set + End Property + + _ + Public Property FORM_ID1() As Integer + Get + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column),Integer) + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column) = value + End Set + End Property + + _ + Public Property _String() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_StringNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) + End Function + + _ + Public Sub Set_StringNull() + Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_RECORD_CHANGESRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_RECORD_CHANGES = CType(Me.Table,VWPMO_RECORD_CHANGESDataTable) + End Sub + + _ + Public Property ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES.IDColumn) = value + End Set + End Property + + _ + Public Property _Control_Name() As String + Get + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES._Control_NameColumn),String) + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES._Control_NameColumn) = value + End Set + End Property + + _ + Public Property _Log_Description() As String + Get + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES._Log_DescriptionColumn),String) + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES._Log_DescriptionColumn) = value + End Set + End Property + + _ + Public Property Added_who() As String + Get + Try + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Added who in Tabelle VWPMO_RECORD_CHANGES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) = value + End Set + End Property + + _ + Public Property Added_When() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Added When in Tabelle VWPMO_RECORD_CHANGES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) = value + End Set + End Property + + _ + Public Function IsAdded_whoNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) + End Function + + _ + Public Sub SetAdded_whoNull() + Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAdded_WhenNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) + End Function + + _ + Public Sub SetAdded_WhenNull() + Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_WF_ACTIVERow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WF_ACTIVE = CType(Me.Table,VWPMO_WF_ACTIVEDataTable) + End Sub + + _ + Public Property WF_TASK_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn),String) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_DESC() As String + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn),String) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TASK_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = value + End Set + End Property + + _ + Public Function IsCOLORNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COLORColumn) + End Function + + _ + Public Sub SetCOLORNull() + Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTASK_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) + End Function + + _ + Public Sub SetTASK_DATENull() + Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_EMAIL_ACCOUNTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table,TBDD_EMAIL_ACCOUNTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL_FROM() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn) = value + End Set + End Property + + _ + Public Property EMAIL_SMTP() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn) = value + End Set + End Property + + _ + Public Property EMAIL_USER() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn) = value + End Set + End Property + + _ + Public Property EMAIL_PW() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_CONNECTION As TBPMO_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_CONNECTION = CType(Me.Table,TBPMO_CONNECTIONDataTable) + End Sub + + _ + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.GUIDColumn),Short) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.GUIDColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) = value + End Set + End Property + + _ + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.SERVERColumn) = value + End Set + End Property + + _ + Public Property DATABASE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.DATABASEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATABASE in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.DATABASEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.COMMENTColumn) = value + End Set + End Property + + _ + Public Property AKTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.AKTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.AKTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_CONNECTION.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_CONNECTION.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsDESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) + End Function + + _ + Public Sub SetDESCRIPTIONNull() + Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableTBPMO_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATABASENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.DATABASEColumn) + End Function + + _ + Public Sub SetDATABASENull() + Me(Me.tableTBPMO_CONNECTION.DATABASEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBPMO_CONNECTION.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONSTRUCT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property LEVEL1_SELECT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLUMN_NAME1() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value + End Set + End Property + + _ + Public Property COLUMN_NAME2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + End Set + End Property + + _ + Public Property WINDREAM_SEARCH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN2() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN3() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN4() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN5() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) + End Set + End Property + + _ + Public Property TBPMO_FORMRow() As TBPMO_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")),TBPMO_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")) + End Set + End Property + + _ + Public Function IsSQL_SELECT_EBENE1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) + End Function + + _ + Public Sub SetSQL_SELECT_EBENE1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWINDREAM_SEARCHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) + End Function + + _ + Public Sub SetWINDREAM_SEARCHNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN2Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN3Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN4Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN5Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_CONTROL_SCREENRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_CONTROL_SCREENRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_CONTROL_SCREENRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_CONTROL_SCREENRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_VIEWRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_VIEWRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_VIEWRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_VIEWRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_RECORDRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_RECORDRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_RECORDRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_RECORDRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_DOKUMENTTYPESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_DOKUMENTTYPESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_DOKUMENTTYPESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_DOKUMENTTYPESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WD_FVIEW_DT_INDEXRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WD_FVIEW_DT_INDEXRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOW_TASKRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOW_TASKRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOW_TASKRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASKRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOW_TASK_STATERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOW_TASK_STATERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOW_TASK_STATERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASK_STATERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_GUI_ENTITYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_GUI_ENTITYRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_GUI_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_GUI_ENTITYRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOWRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOWRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOWRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOWRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WORKFLOW_FORMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WORKFLOW_FORMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WORKFLOW_FORMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WORKFLOW_FORMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WF_USER_ACTIVERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WF_USER_ACTIVERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WF_USER_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WF_USER_ACTIVERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_FOLLOWING_TASKSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_FOLLOWING_TASKSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_FOLLOWING_TASKSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_FOLLOWING_TASKSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WF_OVERVIEW_AUTHORITYRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WF_OVERVIEW_AUTHORITYRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_DOKUMENTARTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_DOKUMENTARTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_EINGANGSARTENRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EINGANGSARTENRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WD_FORMVIEW_DOKTYPESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WD_FORMVIEW_DOKTYPESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_KONFIGURATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_KONFIGURATIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_KONFIGURATIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_TYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USER_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USER_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USER_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_USERS_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_USERS_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_USERS_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_USERS_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_GROUPS_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GROUPS_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_GROUPS_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_DOKART_MODULERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_DOKART_MODULERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_DOKART_MODULERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTORRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WD_OBJECTTYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WD_OBJECTTYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WD_OBJECTTYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WD_OBJECTTYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FILES_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FILES_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FILES_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FILES_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WORKFLOW_FORMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WORKFLOW_FORMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WORKFLOW_FORMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WORKFLOW_FORMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FOLLOW_UP_EMAILRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FOLLOW_UP_EMAILRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FOLLOW_UP_EMAILRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FOLLOW_UP_EMAILRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FOLLUPEMAIL_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FOLLUPEMAIL_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FOLLUPEMAIL_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FOLLUPEMAIL_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_RECORD_LOG_CONFIGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_RECORD_LOG_CONFIGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_RECORD_LOG_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_RECORD_LOG_CONFIGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_RECORD_CHANGESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_RECORD_CHANGESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_RECORD_CHANGESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_RECORD_CHANGESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WF_ACTIVERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WF_ACTIVERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WF_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WF_ACTIVERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_EMAIL_ACCOUNTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EMAIL_ACCOUNTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_EMAIL_ACCOUNTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_EMAIL_ACCOUNTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DD_DMSDataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SHOW_FORM_CONSTRUCT", "SHOW_FORM_CONSTRUCT") + tableMapping.ColumnMappings.Add("FORM_TYPE_ID", "FORM_TYPE_ID") + tableMapping.ColumnMappings.Add("SINGLE_RECORD", "SINGLE_RECORD") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ID, NAME, LEVEL, ADDED_W"& _ + "HO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ID"& _ + ",@NAME,@LEVEL,@ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID,@SINGLE_RECORD); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN FROM TBPMO_FORM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SINGLE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SINGLE_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ID = @PARENT_ID, NAME = @NAME,"& _ + " LEVEL = @LEVEL, CHANGED_WHO = @CHANGED_WHO, SHOW_FORM_CONSTRUCT = @SHOW_FORM_CO"& _ + "NSTRUCT, FORM_TYPE_ID = @FORM_TYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SINGLE_RECORD "& _ + "= @SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_"& _ + "ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOR"& _ + "M WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SINGLE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SINGLE_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BPMO_FORM" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DD_DMSDataSet.TBPMO_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORMDataTable = New DD_DMSDataSet.TBPMO_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByAll(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy() As DD_DMSDataSet.TBPMO_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As DD_DMSDataSet.TBPMO_FORMDataTable = New DD_DMSDataSet.TBPMO_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer), ByVal SINGLE_RECORD As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (LEVEL Is Nothing) Then + Throw New Global.System.ArgumentNullException("LEVEL") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LEVEL,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHOW_FORM_CONSTRUCT,Boolean) + If (FORM_TYPE_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(FORM_TYPE_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SINGLE_RECORD,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal CHANGED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer), ByVal SINGLE_RECORD As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (LEVEL Is Nothing) Then + Throw New Global.System.ArgumentNullException("LEVEL") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LEVEL,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHOW_FORM_CONSTRUCT,Boolean) + If (FORM_TYPE_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FORM_TYPE_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SINGLE_RECORD,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_CONTROL_SCREENTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_CONTROL_SCREEN" + tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") + tableMapping.ColumnMappings.Add("CONTROL_NAME", "CONTROL_NAME") + tableMapping.ColumnMappings.Add("CONTROL_REQUIRED", "CONTROL_REQUIRED") + tableMapping.ColumnMappings.Add("CONTROL_DEF_VALUE", "CONTROL_DEF_VALUE") + tableMapping.ColumnMappings.Add("CONTROL_READ_ONLY", "CONTROL_READ_ONLY") + tableMapping.ColumnMappings.Add("CTRLTYPE_ID", "CTRLTYPE_ID") + tableMapping.ColumnMappings.Add("CTRLTYPE_NAME", "CTRLTYPE_NAME") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_NAME", "FORM_NAME") + tableMapping.ColumnMappings.Add("FORM_LEVEL", "FORM_LEVEL") + tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") + tableMapping.ColumnMappings.Add("SCREEN_NAME", "SCREEN_NAME") + tableMapping.ColumnMappings.Add("CTRLSCR_ID", "CTRLSCR_ID") + tableMapping.ColumnMappings.Add("CTRLSCR_CAPTION", "CTRLSCR_CAPTION") + tableMapping.ColumnMappings.Add("CTRLSCR_X_LOC", "CTRLSCR_X_LOC") + tableMapping.ColumnMappings.Add("CTRLSCR_Y_LOC", "CTRLSCR_Y_LOC") + tableMapping.ColumnMappings.Add("CTRLSCR_HEIGHT", "CTRLSCR_HEIGHT") + tableMapping.ColumnMappings.Add("CTRLSCR_WIDTH", "CTRLSCR_WIDTH") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_FAMILY", "CTRLSCR_FONT_FAMILY") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_COLOR", "CTRLSCR_FONT_COLOR") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_SIZE", "CTRLSCR_FONT_SIZE") + tableMapping.ColumnMappings.Add("CTRLSCR_FONT_STYLE", "CTRLSCR_FONT_STYLE") + tableMapping.ColumnMappings.Add("CTRLSCR_TAB_INDEX", "CTRLSCR_TAB_INDEX") + tableMapping.ColumnMappings.Add("CTRLSCR_TAB_STOP", "CTRLSCR_TAB_STOP") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONT"& _ + "ROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREE"& _ + "N_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLS"& _ + "CR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTR"& _ + "LSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRLSCR_FONT_STYL"& _ + "E, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_CONTROL_SCREEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (FORM_ID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable = New DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_VIEWTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_VIEW" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") + tableMapping.ColumnMappings.Add("HEIGHT", "HEIGHT") + tableMapping.ColumnMappings.Add("DIALOG", "DIALOG") + tableMapping.ColumnMappings.Add("MAXIMIZABLE", "MAXIMIZABLE") + tableMapping.ColumnMappings.Add("MINIMIZABLE", "MINIMIZABLE") + tableMapping.ColumnMappings.Add("MAX_WIDTH", "MAX_WIDTH") + tableMapping.ColumnMappings.Add("MIN_WIDTH", "MIN_WIDTH") + tableMapping.ColumnMappings.Add("MAX_HEIGHT", "MAX_HEIGHT") + tableMapping.ColumnMappings.Add("MIN_HEIGHT", "MIN_HEIGHT") + tableMapping.ColumnMappings.Add("X_LOC", "X_LOC") + tableMapping.ColumnMappings.Add("Y_LOC", "Y_LOC") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("IS_MDI_CHILD", "IS_MDI_CHILD") + tableMapping.ColumnMappings.Add("DOCUMENT_VIEW", "DOCUMENT_VIEW") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + tableMapping.ColumnMappings.Add("ALLOW_DROP", "ALLOW_DROP") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SCREEN_ID, FORM_ID, FORM_T"& _ + "ITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, M"& _ + "IN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SCRE"& _ + "EN_ID,@FORM_ID,@FORM_TITLE,@DESCRIPTION,@WIDTH,@HEIGHT,@DIALOG,@MAXIMIZABLE,@MIN"& _ + "IMIZABLE,@MAX_WIDTH,@MIN_WIDTH,@MAX_HEIGHT,@MIN_HEIGHT,@X_LOC,@Y_LOC,@ADDED_WHO)"& _ + "; "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIA"& _ + "LOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_L"& _ + "OC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_VIEW"& _ + " WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SCREEN_ID = @SCREEN_ID, FORM_ID "& _ + "= @FORM_ID, FORM_TITLE = @FORM_TITLE, DESCRIPTION = @DESCRIPTION, WIDTH = @WIDTH"& _ + ", HEIGHT = @HEIGHT, DIALOG = @DIALOG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MAXIMIZABLE = @"& _ + "MAXIMIZABLE, MINIMIZABLE = @MINIMIZABLE, MAX_WIDTH = @MAX_WIDTH, MIN_WIDTH = @MI"& _ + "N_WIDTH, MAX_HEIGHT = @MAX_HEIGHT, MIN_HEIGHT = @MIN_HEIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " X_LOC = @X_LOC, Y_LOC = @Y_LOC, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIP"& _ + "TION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX"& _ + "_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ + "HEN FROM TBPMO_FORM_VIEW WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ + "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ + " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ + " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ + "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ + "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY FORM_TITLE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ + "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ + " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ + " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ + "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ + "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW where FORM_ID = @FORMID and "& _ + "SCREEN_ID = 1" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByFORMID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable, ByVal FORMID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy(ByVal FORMID As Integer) As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_VIEW") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal SCREEN_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal FORM_TITLE As String, _ + ByVal DESCRIPTION As String, _ + ByVal WIDTH As Global.System.Nullable(Of Short), _ + ByVal HEIGHT As Global.System.Nullable(Of Short), _ + ByVal DIALOG As Boolean, _ + ByVal MAXIMIZABLE As Boolean, _ + ByVal MINIMIZABLE As Boolean, _ + ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal X_LOC As Global.System.Nullable(Of Double), _ + ByVal Y_LOC As Global.System.Nullable(Of Double), _ + ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) + If (FORM_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FORM_TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + If (WIDTH.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (HEIGHT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(DIALOG,Boolean) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) + If (MAX_WIDTH.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (MIN_WIDTH.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (MAX_HEIGHT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (MIN_HEIGHT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (X_LOC.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(13).Value = CType(X_LOC.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Y_LOC.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal SCREEN_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal FORM_TITLE As String, _ + ByVal DESCRIPTION As String, _ + ByVal WIDTH As Global.System.Nullable(Of Short), _ + ByVal HEIGHT As Global.System.Nullable(Of Short), _ + ByVal DIALOG As Boolean, _ + ByVal MAXIMIZABLE As Boolean, _ + ByVal MINIMIZABLE As Boolean, _ + ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ + ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ + ByVal X_LOC As Global.System.Nullable(Of Double), _ + ByVal Y_LOC As Global.System.Nullable(Of Double), _ + ByVal CHANGED_WHO As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) + If (FORM_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FORM_TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + If (WIDTH.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (HEIGHT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DIALOG,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) + If (MAX_WIDTH.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (MIN_WIDTH.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (MAX_HEIGHT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (MIN_HEIGHT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (X_LOC.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(X_LOC.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Y_LOC.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_RECORDTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_RECORD" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_RECORD] WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @O"& _ + "riginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANG"& _ + "ED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)"& _ + ") AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] "& _ + "= @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_RECORD] ([ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WH"& _ + "EN]) VALUES (@ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID"& _ + " = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ + "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Or"& _ + "iginal_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Origin"& _ + "al_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHA"& _ + "NGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_"& _ + "WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = @G"& _ + "UID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @RECORD_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable, ByVal RECORD_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.TBPMO_RECORDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable = New DD_DMSDataSet.TBPMO_RECORDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_RECORD") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_DOKUMENTTYPESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_DOKUMENTTYPES" + tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("DOKUMENTTYPE_ID", "DOKUMENTTYPE_ID") + tableMapping.ColumnMappings.Add("DOKUMENTTYPE", "DOKUMENTTYPE") + tableMapping.ColumnMappings.Add("PATH", "PATH") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") + tableMapping.ColumnMappings.Add("FW_DOCTYPE_ID", "FW_DOCTYPE_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PA"& _ + "TH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_DOKUMENTTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (FORMVIEW_ID = @ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DOKUMENTTYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable = New DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WD_FVIEW_DT_INDEXTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WD_FVIEW_DT_INDEX" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FW_DOCTYPE_ID", "FW_DOCTYPE_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("INDEX_VALUE", "INDEX_VALUE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE (([GUID] = @Original_GUID) AND ([FW_D"& _ + "OCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AN"& _ + "D ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO"& _ + ") AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [C"& _ + "HANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_C"& _ + "HANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANG"& _ + "ED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_WD_FVIEW_DT_INDEX] ([FW_DOCTYPE_ID], [INDEXNAME], [INDEX_VALUE"& _ + "], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@FW_DOCTYPE"& _ + "_ID, @INDEXNAME, @INDEX_VALUE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_W"& _ + "HEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN"& _ + ", CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = SCOPE_IDE"& _ + "NTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME"& _ + "] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_W"& _ + "HEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN"& _ + " WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID"& _ + ") AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_V"& _ + "ALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDE"& _ + "D_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WH"& _ + "O] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] I"& _ + "S NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FW_DOCTYPE"& _ + "_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR"& _ + "OM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN,"& _ + " CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_FVIEW_DT_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (FW_DOCTYPE_ID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable = New DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WD_FVIEW_DT_INDEX") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FW_DOCTYPE_ID,Integer) + If (Original_INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEXNAME") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String) + End If + If (Original_INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_INDEX_VALUE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FW_DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEX_VALUE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEX_VALUE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal FW_DOCTYPE_ID As Integer, _ + ByVal INDEXNAME As String, _ + ByVal INDEX_VALUE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_FW_DOCTYPE_ID As Integer, _ + ByVal Original_INDEXNAME As String, _ + ByVal Original_INDEX_VALUE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FW_DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEX_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEX_VALUE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FW_DOCTYPE_ID,Integer) + If (Original_INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_INDEXNAME,String) + End If + If (Original_INDEX_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_INDEX_VALUE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_FW_DOCTYPE_ID, Original_INDEXNAME, Original_INDEX_VALUE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOW_TASKTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TOP (1) TBPMO_WORKFLOW_TASK.GUID, TBPMO_WORKFLOW_TASK.RECORD_ID, TB"& _ + "PMO_WORKFLOW_TASK.WF_ID, TBPMO_WORKFLOW_TASK.COMMENT, TBPMO_WORKFLOW_TASK.DUE_DA"& _ + "TE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORKFLOW_TASK.STATE_ID, TBPMO_WORKFLOW_TASK"& _ + ".ACTIVE, TBPMO_WORKFLOW_TASK.ADDED_WHEN, TBPMO_WORKFLOW_TASK.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW_TASK.CHANGED_WHEN, TBPMO_WORKFLOW.TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M TBPMO_WORKFLOW_TASK INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORK"& _ + "FLOW ON TBPMO_WORKFLOW_TASK.WF_ID = TBPMO_WORKFLOW.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WOR"& _ + "KFLOW_TASK.RECORD_ID = @RECID) AND (TBPMO_WORKFLOW_TASK.ACTIVE = 1) AND (TBPMO_W"& _ + "ORKFLOW_TASK.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WORKFL"& _ + "OW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KONFIGURAT"& _ + "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1)))" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ACTIVE = 1, CHANGED_WHO = @C"& _ + "HANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET COMMENT = @COMMENT, DUE_DATE"& _ + " = @DUE_DATE, STATE_ID = @STATE_ID, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"& _ + ", TASK_DATE = @TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUE_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "DUE_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TASK_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "TASK_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable, ByVal RECID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmdsetActive(ByVal CHANGED_WHO As String, ByVal RECORD_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (CHANGED_WHO Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(CHANGED_WHO,String) + End If + command.Parameters(1).Value = CType(RECORD_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdUpdate(ByVal COMMENT As String, ByVal DUE_DATE As String, ByVal STATE_ID As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal TASK_DATE As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (COMMENT Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(COMMENT,String) + End If + If (DUE_DATE Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(DUE_DATE,String) + End If + command.Parameters(2).Value = CType(STATE_ID,Integer) + command.Parameters(3).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value + Else + command.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (TASK_DATE Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value + Else + command.Parameters(5).Value = CType(TASK_DATE,String) + End If + command.Parameters(6).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOW_TASK_STATETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK_STATE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW_TASK_STATE] WHERE (([GUID] = @Original_GUID) AND ([ST"& _ + "ATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ + "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + ") AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COLOR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_WORKFLOW_TASK_STATE] ([STATE_DESC], [ADDED_WHO], [ADDED_WHEN],"& _ + " [CHANGED_WHO], [CHANGED_WHEN], [COLOR]) VALUES (@STATE_DESC, @ADDED_WHO, @ADDED"& _ + "_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLOR);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STATE_DESC, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR FROM TBPMO_WORKFLOW_TASK_STATE WH"& _ + "ERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_WORKFLOW_TASK_STATE] SET [STATE_DESC] = @STATE_DESC, [ADDED_WHO] = "& _ + "@ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_W"& _ + "HEN] = @CHANGED_WHEN, [COLOR] = @COLOR WHERE (([GUID] = @Original_GUID) AND ([ST"& _ + "ATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ + "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + ") AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR)));"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COL"& _ + "OR FROM TBPMO_WORKFLOW_TASK_STATE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COLOR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WORKFLOW_TASK_STATE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK_ST"& _ + "ATE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW_TASK_STATE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_STATE_DESC") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_STATE_DESC,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Original_COLOR Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_COLOR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String) As Integer + If (STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("STATE_DESC") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(STATE_DESC,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (COLOR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(COLOR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String, ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String, ByVal GUID As Integer) As Integer + If (STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("STATE_DESC") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(STATE_DESC,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (COLOR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COLOR,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + If (Original_STATE_DESC Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_STATE_DESC") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_STATE_DESC,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Original_COLOR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_COLOR,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String, ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String) As Integer + Return Me.Update(STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR, Original_GUID, Original_STATE_DESC, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_COLOR, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_GUI_ENTITYTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_GUI_ENTITY" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("Name", "Name") + tableMapping.ColumnMappings.Add("Title", "Title") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT ID, Name, Title"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_GUI_ENTITY" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable = New DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOWTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Ori"& _ + "ginal_TITLE) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCR"& _ + "IPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ + "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + "))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, DESCRIPTION, ADDED_W"& _ + "HO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@DESCRIPTION,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, DESCR"& _ + "IPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW WHE"& _ + "RE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, DESCRIPTION = @DE"& _ + "SCRIPTION, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ + "ELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBPMO_WORKFLOW WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WORKFLOW.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WORKFLOWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable = New DD_DMSDataSet.TBPMO_WORKFLOWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_TITLE As String, ByVal Original_DESCRIPTION As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TITLE,String) + End If + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal DESCRIPTION As String, ByVal ADDED_WHO As String) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal DESCRIPTION As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WORKFLOW_FORMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WORKFLOW_FORM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_ID, WF_ID, SEQUEN"& _ + "CE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_ID,@WF_ID,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ + "UID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBPMO_WORKFLOW_FORM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_ID = @FORM_ID, WF_ID = "& _ + "@WF_ID, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @"& _ + "Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FORM_ID = @FOR"& _ + "M_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable, ByVal FORM_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal FORM_ID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW_FORM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(WF_ID,Integer) + If (SEQUENCE.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(WF_ID,Integer) + If (SEQUENCE.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WF_USER_ACTIVETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WF_USER_ACTIVE" + tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ + "ENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_W"& _ + "HEN, T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.G"& _ + "UID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV AS VWPM"& _ + "O_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " (SELECT WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (GUID = 1))) AND (T2.ACTIVE = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ + "ENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_W"& _ + "HEN, T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.G"& _ + "UID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV AS VWPM"& _ + "O_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " (SELECT WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (GUID = 1))) AND (T2.RECORD_ID = @RECORD_ID) AND (T2.ACTIVE ="& _ + " 1)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER As String) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByRecordID(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER As String, ByVal RECORD_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByRecordID(ByVal USER As String, ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_FOLLOWING_TASKSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_FOLLOWING_TASKS" + tableMapping.ColumnMappings.Add("JOB", "JOB") + tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T4.VALUE AS JOB, T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2."& _ + "STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_"& _ + "WHO, T2.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " VWPMO_VALUES AS T4 ON T2.RECORD_ID = T4.RECORD_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (T4.CONTROL_ID = 10) AND (T2.GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SEL"& _ + "ECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM VWPMO_WF_U"& _ + "SER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TAS"& _ + "K_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ + " VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (UPPER(USERNAME) = UPPER(@U"& _ + "SER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT W"& _ + "ORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KONFI"& _ + "GURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1))) AND (T2.RECOR"& _ + "D_ID = @RECORD_ID) AND (T2.ACTIVE = 1) AND (T2.GUID <> @TASK_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TASK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_TASK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable, ByVal USER As String, ByVal RECORD_ID As Integer, ByVal TASK_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(TASK_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER As String, ByVal RECORD_ID As Integer, ByVal TASK_ID As Integer) As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(TASK_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable = New DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WF_OVERVIEW_AUTHORITY" + tableMapping.ColumnMappings.Add("STATE", "STATE") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("Authority", "Authority") + tableMapping.ColumnMappings.Add("String", "String") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT WF_ID, RECORD_ID, STATE, STATE_ID, Authority, String, COLOR, CHANGE"& _ + "D_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_OVERVIEW_AUTHORITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ + "RECORD_ID = @RECORDID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORDID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable, ByVal RECORDID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECORDID As Integer) As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable = New DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_DOKUMENTART" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ + "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ + "KTTYP)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHR"& _ + "EIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICH"& _ + "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,"& _ + " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHE"& _ + "RE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ + "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ + "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ + "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID,"& _ + " KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELL"& _ + "TWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _ + "G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _ + ", OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _ + "G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _ + ", OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM"& _ + " TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _ + " (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByPMO(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByPMO() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_EINGANGSARTENTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_EINGANGSARTEN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ + "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ + "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @B"& _ + "ESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEAN"& _ + "DERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Orig"& _ + "inal_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUN"& _ + "G = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) "& _ + "AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERST"& _ + "ELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERT"& _ + "WER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWAN"& _ + "N] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ + "ICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FRO"& _ + "M TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BESCHREIBUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDER"& _ + "TWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable = New DD_DMSDataSet.TBDD_EINGANGSARTENDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal GUID As Byte) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + End If + If (ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEANDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Byte) + If (Original_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_BESCHREIBUNG,String) + End If + If (Original_ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ERSTELLTWER,String) + End If + If (Original_ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GEANDERTWER,String) + End If + If (Original_GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_BESCHREIBUNG, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_AUTOMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_INDEX_AUTOM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID]"& _ + " = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_V"& _ + "ALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_I"& _ + "D] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) O"& _ + "R ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED"& _ + "_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@Is"& _ + "Null_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CH"& _ + "ANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHAN"& _ + "GED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VALUE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ + "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@IND"& _ + "EXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYP"& _ + "E_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ + "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ + "MMENT, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALU"& _ + "E, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ + "HEN FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AU"& _ + "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DocTypeID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocTypeID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable, ByVal DocTypeID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DocTypeID As Integer) As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) + Dim dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable = New DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_VALUE As String, ByVal Original_CONNECTION_ID As Short, ByVal Original_COMMENT As String, ByVal Original_ACTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DOCTYPE_ID,Integer) + If (Original_INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_INDEXNAME") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String) + End If + If (Original_VALUE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VALUE,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CONNECTION_ID,Short) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WD_FORMVIEW_DOKTYPES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_FORMVIEW_DOKTYPES.GUID, TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIE"& _ + "W_ID, TBPMO_FORM_VIEW.FORM_TITLE, TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_DOKUMENTART.BEZEICHNUNG, TBPMO_WD_FORMVIEW_DOKTYPES.ADD"& _ + "ED_WHO, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHEN, TBPMO_WD_FORMVIEW_DOKTYPES.CHANGE"& _ + "D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_WD_FORMVIEW_DOKTYPES INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO"& _ + "_FORM_VIEW ON TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID = TBPMO_FORM_VIEW.GUID INNE"& _ + "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART ON TBPMO_WD_FORMVIEW_DOKTYPES."& _ + "DOCTYPE_ID = TBDD_DOKUMENTART.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WD_FORMVIEW_DOKTYPES.DOC"& _ + "TYPE_ID = @DOC_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORMVIEW_ID, DO"& _ + "CTYPE_ID, OBJECT_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORMVIEW_ID,@DOCTYPE_ID,@OBJE"& _ + "CT_TYPE,@ADDED_WHO)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMVIEW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable, ByVal DOC_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOC_ID As Integer) As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable = New DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmdInsert(ByVal FORMVIEW_ID As Integer, ByVal DOCTYPE_ID As Integer, ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(FORMVIEW_ID,Integer) + command.Parameters(1).Value = CType(DOCTYPE_ID,Integer) + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Else + command.Parameters(2).Value = CType(OBJECT_TYPE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + command.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function DeleteQuery(ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_KONFIGURATIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_KONFIGURATION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") + tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") + tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") + tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") + tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SQL_RECORD_SQL1", "SQL_RECORD_SQL1") + tableMapping.ColumnMappings.Add("SQL_RECORD_SQL2", "SQL_RECORD_SQL2") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE1", "WORKFLOW_FINAL_STATE1") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE2", "WORKFLOW_FINAL_STATE2") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE3", "WORKFLOW_FINAL_STATE3") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE4", "WORKFLOW_FINAL_STATE4") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE5", "WORKFLOW_FINAL_STATE5") + tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") + tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") + tableMapping.ColumnMappings.Add("WD_UNICODE", "WD_UNICODE") + tableMapping.ColumnMappings.Add("FOLLOW_UP_LOG_ERR_ONLY", "FOLLOW_UP_LOG_ERR_ONLY") + tableMapping.ColumnMappings.Add("FOLLOW_UP_EMAIL_PROFILE", "FOLLOW_UP_EMAIL_PROFILE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE, VEKTOR_D"& _ + "ELIMITER = @VEKTOR_DELIMITER, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_"& _ + "FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " EMAIL_PW = @EMAIL_PW, EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL"& _ + "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, ADMIN_PW = @ADMIN_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " ADMIN_SECURITY = @ADMIN_SECURITY, CHANGED_WHO = @CHANGED_WHO, SQL_RE"& _ + "CORD_SQL1 = @SQL_RECORD_SQL1, SQL_RECORD_SQL2 = @SQL_RECORD_SQL2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WORKFLOW_FINAL_STATE1 = @WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STAT"& _ + "E2 = @WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3 = @WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WORKFLOW_FINAL_STATE4 = @WORKFLOW_FINAL_STATE4, WORKFLOW"& _ + "_FINAL_STATE5 = @WORKFLOW_FINAL_STATE5, VERSION_DELIMITER = @VERSION_DELIMITER, "& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FILE_DELIMITER = @FILE_DELIMITER, WD_UNICODE = @WD_UN"& _ + "ICODE, FOLLOW_UP_LOG_ERR_ONLY = @FOLLOW_UP_LOG_ERR_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FOLLOW_UP_EMAIL_PROFILE = @FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Or"& _ + "iginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FRO"& _ + "M, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTE"& _ + "R, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ + "QL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, W"& _ + "ORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELI"& _ + "MITER, FILE_DELIMITER FROM TBPMO_KONFIGURATION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_SECURITY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_SECURITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL1", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL2", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE1", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE2", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE3", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE4", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE5", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_UNICODE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_UNICODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ + "TP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW"& _ + ", ADMIN_SECURITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW"& _ + "_FINAL_STATE2, WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WORKFLOW_FINAL_"& _ + "STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FO"& _ + "LLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_KONFIGURATI"& _ + "ON" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_KONFIGURATION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal LICENSE As String, _ + ByVal VEKTOR_DELIMITER As String, _ + ByVal EMAIL_ACTIVE As Boolean, _ + ByVal EMAIL_FROM As String, _ + ByVal EMAIL_SMTP As String, _ + ByVal EMAIL_USER As String, _ + ByVal EMAIL_PW As String, _ + ByVal EMAIL_REMINDER_HEADER As String, _ + ByVal EMAIL_REMINDER_FOOTER As String, _ + ByVal ADMIN_PW As String, _ + ByVal ADMIN_SECURITY As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal SQL_RECORD_SQL1 As String, _ + ByVal SQL_RECORD_SQL2 As String, _ + ByVal WORKFLOW_FINAL_STATE1 As Integer, _ + ByVal WORKFLOW_FINAL_STATE2 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE3 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE4 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE5 As Global.System.Nullable(Of Integer), _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal WD_UNICODE As Boolean, _ + ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ + ByVal FOLLOW_UP_EMAIL_PROFILE As Integer, _ + ByVal Original_GUID As Byte, _ + ByVal GUID As Byte) As Integer + If (LICENSE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LICENSE,String) + End If + If (VEKTOR_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VEKTOR_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VEKTOR_DELIMITER,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_ACTIVE,Boolean) + If (EMAIL_FROM Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_PW,String) + End If + If (EMAIL_REMINDER_HEADER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(EMAIL_REMINDER_HEADER,String) + End If + If (EMAIL_REMINDER_FOOTER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_REMINDER_FOOTER,String) + End If + If (ADMIN_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADMIN_PW") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADMIN_PW,String) + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADMIN_SECURITY,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) + End If + If (SQL_RECORD_SQL1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL1") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_RECORD_SQL1,String) + End If + If (SQL_RECORD_SQL2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL2") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SQL_RECORD_SQL2,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WORKFLOW_FINAL_STATE1,Integer) + If (WORKFLOW_FINAL_STATE2.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(WORKFLOW_FINAL_STATE2.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (WORKFLOW_FINAL_STATE3.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORKFLOW_FINAL_STATE3.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (WORKFLOW_FINAL_STATE4.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WORKFLOW_FINAL_STATE4.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (WORKFLOW_FINAL_STATE5.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WORKFLOW_FINAL_STATE5.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + If (VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(VERSION_DELIMITER,String) + End If + If (FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILE_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FILE_DELIMITER,String) + End If + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WD_UNICODE,Boolean) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(FOLLOW_UP_LOG_ERR_ONLY,Boolean) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(FOLLOW_UP_EMAIL_PROFILE,Integer) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Byte) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdSetLicense(ByVal LICENSE As String, ByVal Original_GUID As Byte) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (LICENSE Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(LICENSE,String) + End If + command.Parameters(1).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") + tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") + tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") + tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("RECORD_ADMIN", "RECORD_ADMIN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ + "LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,"& _ + "@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NA"& _ + "ME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_"& _ + "ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GU"& _ + "ID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ + "NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _ + "HANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, "& _ + "USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMI"& _ + "N, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID ="& _ + " @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ + "IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ + "_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_RECORD_ORG = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_USERDataTable = New DD_DMSDataSet.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_TYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_TYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TYPE", "FORM_TYPE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] ="& _ + " @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] "& _ + "= @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL)"& _ + " OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND "& _ + "[CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _ + "UES (@FORM_TYPE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_W"& _ + "HEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE (GUID = SCOPE_IDENTITY"& _ + "())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TYPE = @FORM_TYPE, CHANGED_"& _ + "WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TY"& _ + "PE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE "& _ + "(GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_TYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable = New DD_DMSDataSet.TBPMO_FORM_TYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_TYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TYPE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FORM_TYPE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FORM_TYPE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String) As Integer + If (FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TYPE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FORM_TYPE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TYPE,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USER_GROUPSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_USER_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _ + "HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ + "ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO,"& _ + " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _ + ")" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_USER_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USER_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable = New DD_DMSDataSet.TBDD_USER_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_USERS_GROUPSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_USERS_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT VWPMO_USERS_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_USERS_GROUPS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable = New DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_GROUPS_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_GROUPS_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ + "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _ + "ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _ + "ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _ + "] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _ + "N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _ + "" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN],"& _ + " [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @ADDED_WHO, @ADDED_"& _ + "WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, "& _ + "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_"& _ + "IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [ADDE"& _ + "D_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, ["& _ + "CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ + "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _ + "ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _ + "ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _ + "] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _ + "N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _ + ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ + "HEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_GROUPS_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable = New DD_DMSDataSet.TBDD_GROUPS_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GROUP_ID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GROUP_ID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_DOKART_MODULETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_DOKART_MODULE" + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("NAME", "NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_MODULES.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ + "DD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART_MODULE ON T"& _ + "BDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.G"& _ + "UID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_DOKUMENTART.GUID = @DokID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOKART_ID, MODULE_"& _ + "ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID, 0)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable, ByVal DokID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DokID As Integer) As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + Dim dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable = New DD_DMSDataSet.TBWH_DOKART_MODULEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function InsertDokartModule(ByVal DOK_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(DOK_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") + tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TITLE, SEQUENC"& _ + "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_TITLE,@SEQUENCE_"& _ + "MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MEN"& _ + "U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM "& _ + "TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TITLE = @FORM_TITLE,"& _ + " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM"& _ + "G, SHORT_TITLE = @SHORT_TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ + " MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_CONSTRUCTOR.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WD_OBJECTTYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_WD_OBJECTTYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") + tableMapping.ColumnMappings.Add("IDXNAME_ENTITYID", "IDXNAME_ENTITYID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("IDXNAME_PARENTID", "IDXNAME_PARENTID") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TYPE, IDXNAME_E"& _ + "NTITYID, IDXNAME_PARENTID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TYPE,@IDXNAME_ENTI"& _ + "TYID,@IDXNAME_PARENTID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID"& _ + ", IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_"& _ + "WD_OBJECTTYPE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TYPE = @OBJECT_TYPE, "& _ + "IDXNAME_ENTITYID = @IDXNAME_ENTITYID, IDXNAME_PARENTID = @IDXNAME_PARENTID, CHAN"& _ + "GED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJ"& _ + "ECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ + ", CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_OBJECTTYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_OBJECTTYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable = New DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_WD_OBJECTTYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal ADDED_WHO As String) As Integer + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) + End If + If (IDXNAME_ENTITYID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) + End If + If (IDXNAME_PARENTID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) + End If + If (IDXNAME_ENTITYID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) + End If + If (IDXNAME_PARENTID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FILES_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FILES_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FILENAME2WORK", "FILENAME2WORK") + tableMapping.ColumnMappings.Add("USER_WORK", "USER_WORK") + tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE") + tableMapping.ColumnMappings.Add("WORKED", "WORKED") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WO"& _ + "RK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HAN"& _ + "DLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED"& _ + "_WHEN] = @Original_ADDED_WHEN))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FILES_USER] ([FILENAME2WORK], [USER_WORK], [HANDLE_TYPE], [WOR"& _ + "KED], [ADDED_WHEN]) VALUES (@FILENAME2WORK, @USER_WORK, @HANDLE_TYPE, @WORKED, @"& _ + "ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_"& _ + "WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FILES_USER] SET [FILENAME2WORK] = @FILENAME2WORK, [USER_WORK] = @US"& _ + "ER_WORK, [HANDLE_TYPE] = @HANDLE_TYPE, [WORKED] = @WORKED, [ADDED_WHEN] = @ADDED"& _ + "_WHEN WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME"& _ + "2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HA"& _ + "NDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED"& _ + "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN"& _ + " FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "select * from TBPMO_FILES_USER where UPPER(USER_WORK) = UPPER(@USER)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) " + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "INSERT INTO TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILENAME2WORK, USER_WORK,"& _ + " HANDLE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILENAME2WORK,@USER_WORK,@HANDLE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES"& _ + "_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "UPDATE TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WORKED = @WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, W"& _ + "ORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable, ByVal USER As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER As String) As DD_DMSDataSet.TBPMO_FILES_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Dim dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable = New DD_DMSDataSet.TBPMO_FILES_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FILES_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WORKED,Boolean) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As Integer + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(WORKED,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(WORKED,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_HANDLE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_WORKED,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Return Me.Update(FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN, Original_GUID, Original_FILENAME2WORK, Original_USER_WORK, Original_HANDLE_TYPE, Original_WORKED, Original_ADDED_WHEN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdDelete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + command.Parameters(1).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + command.Parameters(2).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + command.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) + End If + command.Parameters(4).Value = CType(Original_WORKED,Boolean) + command.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdInsert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + command.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + command.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + command.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdsetworked(ByVal WORKED As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(WORKED,Boolean) + command.Parameters(1).Value = CType(Original_GUID,Integer) + command.Parameters(2).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WORKFLOW_FORMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WORKFLOW_FORM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("FORM_NAME", "FORM_NAME") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("WORKFLOW", "WORKFLOW") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "select * from VWPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable, ByVal FORM_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal FORM_ID As Integer) As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable = New DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FOLLOW_UP_EMAILTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FOLLOW_UP_EMAIL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FOLLOW_UP_SEQUENCE", "FOLLOW_UP_SEQUENCE") + tableMapping.ColumnMappings.Add("FOLLOW_UP_DAYS", "FOLLOW_UP_DAYS") + tableMapping.ColumnMappings.Add("FOLLOW_UP_TIME_SPAN", "FOLLOW_UP_TIME_SPAN") + tableMapping.ColumnMappings.Add("DEPENDENT_DATE_CTRL_ID", "DEPENDENT_DATE_CTRL_ID") + tableMapping.ColumnMappings.Add("DEPENDENT_DONE_CTRL_ID", "DEPENDENT_DONE_CTRL_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("TIME_UNITY", "TIME_UNITY") + tableMapping.ColumnMappings.Add("TIME_SPAN", "TIME_SPAN") + tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("EMAIL_BODY", "EMAIL_BODY") + tableMapping.ColumnMappings.Add("PROCESS_SELECT1", "PROCESS_SELECT1") + tableMapping.ColumnMappings.Add("PROCESS_SELECT2", "PROCESS_SELECT2") + tableMapping.ColumnMappings.Add("PROCESS_SELECT3", "PROCESS_SELECT3") + tableMapping.ColumnMappings.Add("PROCESS_SELECT4", "PROCESS_SELECT4") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TIME_DIST", "TIME_DIST") + tableMapping.ColumnMappings.Add("PROCESS_SELECT5", "PROCESS_SELECT5") + tableMapping.ColumnMappings.Add("PROCESS_SELECT6", "PROCESS_SELECT6") + tableMapping.ColumnMappings.Add("PROCESS_SELECT7", "PROCESS_SELECT7") + tableMapping.ColumnMappings.Add("PROCESS_SELECT8", "PROCESS_SELECT8") + tableMapping.ColumnMappings.Add("PROCESS_SELECT9", "PROCESS_SELECT9") + tableMapping.ColumnMappings.Add("PROCESS_SELECT10", "PROCESS_SELECT10") + tableMapping.ColumnMappings.Add("NAME", "NAME") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FOLLOW_UP_SEQUENCE, "& _ + "FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL"& _ + "_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4,"& _ + " ACTIVE, ADDED_WHO, TIME_DIST, NAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FOLLOW_UP_SEQUENCE,@FOLLOW"& _ + "_UP_DAYS,@FOLLOW_UP_TIME_SPAN,@DEPENDENT_DATE_CTRL_ID,@DEPENDENT_DONE_CTRL_ID,@P"& _ + "ARENT_ID,@TIME_UNITY,@TIME_SPAN,@EMAIL_SUBJECT,@EMAIL_BODY,@PROCESS_SELECT1,@PRO"& _ + "CESS_SELECT2,@PROCESS_SELECT3,@PROCESS_SELECT4,@ACTIVE,@ADDED_WHO,@TIME_DIST,@NA"& _ + "ME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, D"& _ + "EPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN,"& _ + " EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, P"& _ + "ROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB"& _ + "PMO_FOLLOW_UP_EMAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FOLLOW_UP_SEQUENCE = @FOLL"& _ + "OW_UP_SEQUENCE, FOLLOW_UP_DAYS = @FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN = @FOLLOW_"& _ + "UP_TIME_SPAN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DEPENDENT_DATE_CTRL_ID = @DEPENDENT_DAT"& _ + "E_CTRL_ID, DEPENDENT_DONE_CTRL_ID = @DEPENDENT_DONE_CTRL_ID, PARENT_ID = @PARENT"& _ + "_ID, TIME_UNITY = @TIME_UNITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TIME_SPAN = @TIME_SPAN"& _ + ", EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY = @EMAIL_BODY, PROCESS_SELECT1 = @P"& _ + "ROCESS_SELECT1, PROCESS_SELECT2 = @PROCESS_SELECT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" P"& _ + "ROCESS_SELECT3 = @PROCESS_SELECT3, PROCESS_SELECT4 = @PROCESS_SELECT4, ACTIVE = "& _ + "@ACTIVE, CHANGED_WHO = @CHANGED_WHO, TIME_DIST = @TIME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT5 = @PROCESS_SELECT5, PROCESS_SELECT6 = @PROCESS_SELECT6, "& _ + "PROCESS_SELECT7 = @PROCESS_SELECT7, PROCESS_SELECT8 = @PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT9 = @PROCESS_SELECT9, PROCESS_SELECT10 = @PROCE"& _ + "SS_SELECT10, NAME = @NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_I"& _ + "D, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAI"& _ + "L_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTI"& _ + "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL "& _ + "WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT5", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT6", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT7", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT8", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT9", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT10", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPE"& _ + "NDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, TI"& _ + "ME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, "& _ + "PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, PROCESS_SELECT5, PROCESS_SELE"& _ + "CT6, PROCESS_SELECT7, PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PROCESS_SELECT"& _ + "9, PROCESS_SELECT10, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, N"& _ + "AME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLOW_UP_EMAIL" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable = New DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FOLLOW_UP_EMAIL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal TIME_DIST As String, _ + ByVal NAME As String) As Integer + If (FOLLOW_UP_SEQUENCE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) + End If + If (FOLLOW_UP_DAYS Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) + End If + If (FOLLOW_UP_TIME_SPAN Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PARENT_ID,Integer) + If (TIME_UNITY Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_UNITY") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(TIME_UNITY,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(EMAIL_BODY,String) + End If + If (PROCESS_SELECT1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) + End If + If (PROCESS_SELECT2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) + End If + If (PROCESS_SELECT3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) + End If + If (PROCESS_SELECT4 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) + End If + Me.Adapter.InsertCommand.Parameters(14).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) + End If + If (TIME_DIST Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_DIST") + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(TIME_DIST,String) + End If + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(NAME,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal TIME_DIST As String, _ + ByVal PROCESS_SELECT5 As String, _ + ByVal PROCESS_SELECT6 As String, _ + ByVal PROCESS_SELECT7 As String, _ + ByVal PROCESS_SELECT8 As String, _ + ByVal PROCESS_SELECT9 As String, _ + ByVal PROCESS_SELECT10 As String, _ + ByVal NAME As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + If (FOLLOW_UP_SEQUENCE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) + End If + If (FOLLOW_UP_DAYS Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) + End If + If (FOLLOW_UP_TIME_SPAN Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PARENT_ID,Integer) + If (TIME_UNITY Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_UNITY") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TIME_UNITY,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EMAIL_BODY,String) + End If + If (PROCESS_SELECT1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) + End If + If (PROCESS_SELECT2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) + End If + If (PROCESS_SELECT3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) + End If + If (PROCESS_SELECT4 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) + End If + If (TIME_DIST Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_DIST") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(TIME_DIST,String) + End If + If (PROCESS_SELECT5 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT5") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(PROCESS_SELECT5,String) + End If + If (PROCESS_SELECT6 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT6") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PROCESS_SELECT6,String) + End If + If (PROCESS_SELECT7 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT7") + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PROCESS_SELECT7,String) + End If + If (PROCESS_SELECT8 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT8") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(PROCESS_SELECT8,String) + End If + If (PROCESS_SELECT9 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT9") + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(PROCESS_SELECT9,String) + End If + If (PROCESS_SELECT10 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT10") + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(PROCESS_SELECT10,String) + End If + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FOLLUPEMAIL_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FOLLUPEMAIL_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("FOLLOW_UP_ID", "FOLLOW_UP_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, FOLLOW_UP_"& _ + "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@FOLLOW_UP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _ + "BPMO_FOLLUPEMAIL_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, FOLLO"& _ + "W_UP_ID = @FOLLOW_UP_ID, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ + "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_"& _ + "WHO, CHANGED_WHEN FROM TBPMO_FOLLUPEMAIL_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FOLLUPEMAIL_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLUPEMAIL_USER" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable = New DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FOLLUPEMAIL_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_RECORD_LOG_CONFIGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_RECORD_LOG_CONFIG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") + tableMapping.ColumnMappings.Add("LOG_DELETE", "LOG_DELETE") + tableMapping.ColumnMappings.Add("LOG_UPDATE", "LOG_UPDATE") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("FORM_ID1", "FORM_ID1") + tableMapping.ColumnMappings.Add("String", "String") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, LOG_DE"& _ + "LETE, LOG_UPDATE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@LOG_DELETE,@LOG_UPDATE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONTROL_ID = @CONTROL_ID"& _ + ", LOG_DELETE = @LOG_DELETE, LOG_UPDATE = @LOG_UPDATE, CHANGED_WHO = @CHANGED_WHO"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, LOG_DELETE, "& _ + "LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG W"& _ + "HERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_RECORD_LOG_CONFIG.GUID, TBPMO_RECORD_LOG_CONFIG.CONTROL_ID, T"& _ + "BPMO_RECORD_LOG_CONFIG.LOG_DELETE, TBPMO_RECORD_LOG_CONFIG.LOG_UPDATE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_RECORD_LOG_CONFIG.ADDED_WHEN, TBPMO_RECORD_LOG_CONFIG.CH"& _ + "ANGED_WHO, TBPMO_RECORD_LOG_CONFIG.CHANGED_WHEN, TBPMO_CONTROL.FORM_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_FORM.GUID AS FORM_ID, TBPMO_FORM.NAME, TBPMO_FORM.NAME "& _ + "+ ' - ' + TBPMO_CONTROL.NAME AS String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RECORD_LOG_CONFIG "& _ + "INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_CONTROL ON TBPMO_RECORD_LOG_CONFIG.CO"& _ + "NTROL_ID = TBPMO_CONTROL.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM ON"& _ + " TBPMO_CONTROL.FORM_ID = TBPMO_FORM.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBPMO_FORM.NAME, TBPMO_CONTRO"& _ + "L.NAME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable = New DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_RECORD_LOG_CONFIG") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_RECORD_CHANGESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_RECORD_CHANGES" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("Control-Name", "Control-Name") + tableMapping.ColumnMappings.Add("Log-Description", "Log-Description") + tableMapping.ColumnMappings.Add("Added who", "Added who") + tableMapping.ColumnMappings.Add("Added When", "Added When") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID AS ID, NAME AS [Control-Name], LOG_DESCRIPTION AS [Log-Descrip"& _ + "tion], ADDED_WHO AS [Added who], ADDED_WHEN AS [Added When]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWP"& _ + "MO_RECORD_CHANGES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable, ByVal RECORD_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable = New DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_WF_ACTIVETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPMO_WF_ACTIVE" + tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT,"& _ + " DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM VWPMO_"& _ + "WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (UPPER(USERNAME) <"& _ + "> UPPER(@USERNAME))))" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT,"& _ + " DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @REC_ID) AND (WF_TASK_ID NOT I"& _ + "N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE"& _ + " (UPPER(USERNAME) <> UPPER(@USERNAME))))" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByRecord(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal REC_ID As Integer, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(REC_ID,Integer) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByRecord(ByVal REC_ID As Integer, ByVal USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(REC_ID,Integer) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) + End If + Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_EMAIL_ACCOUNTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_EMAIL_ACCOUNT" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _ + "_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMAIL_FRO"& _ + "M,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EM"& _ + "AIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ + "ED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _ + "MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _ + "_PW, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ + "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTI"& _ + "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHE"& _ + "RE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_EMAIL_ACCOUNT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_ACCOUNT" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable = New DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_ACCOUNT") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_FROM") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SMTP") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_USER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_PW") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_PW,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_FROM") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SMTP") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_USER") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_PW") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_PW,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_CONNECTIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_CONNECTION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATABASE", "DATABASE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("AKTIVE", "AKTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DES"& _ + "CRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTIO"& _ + "N)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER"& _ + "] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ("& _ + "[SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL)"& _ + " OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME]"& _ + " IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND ["& _ + "PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT ="& _ + " 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @O"& _ + "riginal_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Ori"& _ + "ginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR (["& _ + "CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANG"& _ + "ED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_CONNECTION] ([DESCRIPTION], [SQL_PROVIDER], [SERVER], [DATABAS"& _ + "E], [USERNAME], [PASSWORD], [COMMENT], [AKTIVE], [ADDED_WHO], [ADDED_WHEN], [CHA"& _ + "NGED_WHO], [CHANGED_WHEN]) VALUES (@DESCRIPTION, @SQL_PROVIDER, @SERVER, @DATABA"& _ + "SE, @USERNAME, @PASSWORD, @COMMENT, @AKTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_W"& _ + "HO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE],"& _ + " USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN FROM TBPMO_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL"& _ + "_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, ["& _ + "PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @"& _ + "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ + "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION ="& _ + " 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND (("& _ + "@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Origi"& _ + "nal_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] ="& _ + " @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATA"& _ + "BASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) "& _ + "OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] "& _ + "IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [CO"& _ + "MMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AK"& _ + "TIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDE"& _ + "D_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WH"& _ + "O] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] I"& _ + "S NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTIO"& _ + "N, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_"& _ + "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_CONNECTION WHERE (GUID = @"& _ + "GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_CONNECTION" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable = New DD_DMSDataSet.TBPMO_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_CONNECTION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_DESCRIPTION As String, ByVal Original_SQL_PROVIDER As String, ByVal Original_SERVER As String, ByVal Original_DATABASE As String, ByVal Original_USERNAME As String, ByVal Original_PASSWORD As String, ByVal Original_COMMENT As String, ByVal Original_AKTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_SQL_PROVIDER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SQL_PROVIDER,String) + End If + If (Original_SERVER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SERVER,String) + End If + If (Original_DATABASE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DATABASE,String) + End If + If (Original_USERNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_USERNAME,String) + End If + If (Original_PASSWORD Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PASSWORD,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_AKTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DESCRIPTION As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATABASE As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal COMMENT As String, ByVal AKTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (DESCRIPTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DESCRIPTION,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATABASE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATABASE,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal DESCRIPTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATABASE As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal COMMENT As String, _ + ByVal AKTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATABASE As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_AKTIVE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Short) As Integer + If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATABASE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATABASE,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Short) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SQL_PROVIDER,String) + End If + If (Original_SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SERVER,String) + End If + If (Original_DATABASE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DATABASE,String) + End If + If (Original_USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_USERNAME,String) + End If + If (Original_PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_PASSWORD,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal DESCRIPTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATABASE As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal COMMENT As String, _ + ByVal AKTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATABASE As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_AKTIVE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_DESCRIPTION, Original_SQL_PROVIDER, Original_SERVER, Original_DATABASE, Original_USERNAME, Original_PASSWORD, Original_COMMENT, Original_AKTIVE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") + tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _ + "CH_PATTERN5)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S"& _ + "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N"& _ + "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH"& _ + "_PATTERN4,@SEARCH_PATTERN5); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE"& _ + "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR"& _ + "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 "& _ + "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ + "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _ + "ARCH_PATTERN5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID"& _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ + "NE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME"& _ + "2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PA"& _ + "TTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ + "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _ + "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _ + "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COLUMN_NAM"& _ + "E2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN1, SEAR"& _ + "CH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, SEQUENCE, SQL_SE"& _ + "LECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARCH FROM TBPMO_FORM_CONSTRUCTOR_DETA"& _ + "IL WHERE (GUID = @ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal CHANGED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBPMO_FORMTableAdapter As TBPMO_FORMTableAdapter + + Private _tBPMO_FORM_VIEWTableAdapter As TBPMO_FORM_VIEWTableAdapter + + Private _tBPMO_RECORDTableAdapter As TBPMO_RECORDTableAdapter + + Private _tBPMO_WD_FVIEW_DT_INDEXTableAdapter As TBPMO_WD_FVIEW_DT_INDEXTableAdapter + + Private _tBPMO_WORKFLOW_TASK_STATETableAdapter As TBPMO_WORKFLOW_TASK_STATETableAdapter + + Private _tBPMO_WORKFLOWTableAdapter As TBPMO_WORKFLOWTableAdapter + + Private _tBPMO_WORKFLOW_FORMTableAdapter As TBPMO_WORKFLOW_FORMTableAdapter + + Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter + + Private _tBDD_EINGANGSARTENTableAdapter As TBDD_EINGANGSARTENTableAdapter + + Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter + + Private _tBPMO_KONFIGURATIONTableAdapter As TBPMO_KONFIGURATIONTableAdapter + + Private _tBDD_USERTableAdapter As TBDD_USERTableAdapter + + Private _tBPMO_FORM_TYPETableAdapter As TBPMO_FORM_TYPETableAdapter + + Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter + + Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter + + Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter + + Private _tBPMO_WD_OBJECTTYPETableAdapter As TBPMO_WD_OBJECTTYPETableAdapter + + Private _tBPMO_FILES_USERTableAdapter As TBPMO_FILES_USERTableAdapter + + Private _tBPMO_FOLLOW_UP_EMAILTableAdapter As TBPMO_FOLLOW_UP_EMAILTableAdapter + + Private _tBPMO_FOLLUPEMAIL_USERTableAdapter As TBPMO_FOLLUPEMAIL_USERTableAdapter + + Private _tBPMO_RECORD_LOG_CONFIGTableAdapter As TBPMO_RECORD_LOG_CONFIGTableAdapter + + Private _tBDD_EMAIL_ACCOUNTTableAdapter As TBDD_EMAIL_ACCOUNTTableAdapter + + Private _tBPMO_CONNECTIONTableAdapter As TBPMO_CONNECTIONTableAdapter + + Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBPMO_FORMTableAdapter() As TBPMO_FORMTableAdapter + Get + Return Me._tBPMO_FORMTableAdapter + End Get + Set + Me._tBPMO_FORMTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_VIEWTableAdapter() As TBPMO_FORM_VIEWTableAdapter + Get + Return Me._tBPMO_FORM_VIEWTableAdapter + End Get + Set + Me._tBPMO_FORM_VIEWTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_RECORDTableAdapter() As TBPMO_RECORDTableAdapter + Get + Return Me._tBPMO_RECORDTableAdapter + End Get + Set + Me._tBPMO_RECORDTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WD_FVIEW_DT_INDEXTableAdapter() As TBPMO_WD_FVIEW_DT_INDEXTableAdapter + Get + Return Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter + End Get + Set + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_TASK_STATETableAdapter() As TBPMO_WORKFLOW_TASK_STATETableAdapter + Get + Return Me._tBPMO_WORKFLOW_TASK_STATETableAdapter + End Get + Set + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WORKFLOWTableAdapter() As TBPMO_WORKFLOWTableAdapter + Get + Return Me._tBPMO_WORKFLOWTableAdapter + End Get + Set + Me._tBPMO_WORKFLOWTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WORKFLOW_FORMTableAdapter() As TBPMO_WORKFLOW_FORMTableAdapter + Get + Return Me._tBPMO_WORKFLOW_FORMTableAdapter + End Get + Set + Me._tBPMO_WORKFLOW_FORMTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter + Get + Return Me._tBDD_DOKUMENTARTTableAdapter + End Get + Set + Me._tBDD_DOKUMENTARTTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_EINGANGSARTENTableAdapter() As TBDD_EINGANGSARTENTableAdapter + Get + Return Me._tBDD_EINGANGSARTENTableAdapter + End Get + Set + Me._tBDD_EINGANGSARTENTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter + Get + Return Me._tBDD_INDEX_AUTOMTableAdapter + End Get + Set + Me._tBDD_INDEX_AUTOMTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_KONFIGURATIONTableAdapter() As TBPMO_KONFIGURATIONTableAdapter + Get + Return Me._tBPMO_KONFIGURATIONTableAdapter + End Get + Set + Me._tBPMO_KONFIGURATIONTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter + Get + Return Me._tBDD_USERTableAdapter + End Get + Set + Me._tBDD_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_TYPETableAdapter() As TBPMO_FORM_TYPETableAdapter + Get + Return Me._tBPMO_FORM_TYPETableAdapter + End Get + Set + Me._tBPMO_FORM_TYPETableAdapter = value + End Set + End Property + + _ + Public Property TBDD_USER_GROUPSTableAdapter() As TBDD_USER_GROUPSTableAdapter + Get + Return Me._tBDD_USER_GROUPSTableAdapter + End Get + Set + Me._tBDD_USER_GROUPSTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_GROUPS_USERTableAdapter() As TBDD_GROUPS_USERTableAdapter + Get + Return Me._tBDD_GROUPS_USERTableAdapter + End Get + Set + Me._tBDD_GROUPS_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter + End Get + Set + Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_WD_OBJECTTYPETableAdapter() As TBPMO_WD_OBJECTTYPETableAdapter + Get + Return Me._tBPMO_WD_OBJECTTYPETableAdapter + End Get + Set + Me._tBPMO_WD_OBJECTTYPETableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FILES_USERTableAdapter() As TBPMO_FILES_USERTableAdapter + Get + Return Me._tBPMO_FILES_USERTableAdapter + End Get + Set + Me._tBPMO_FILES_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FOLLOW_UP_EMAILTableAdapter() As TBPMO_FOLLOW_UP_EMAILTableAdapter + Get + Return Me._tBPMO_FOLLOW_UP_EMAILTableAdapter + End Get + Set + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FOLLUPEMAIL_USERTableAdapter() As TBPMO_FOLLUPEMAIL_USERTableAdapter + Get + Return Me._tBPMO_FOLLUPEMAIL_USERTableAdapter + End Get + Set + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_RECORD_LOG_CONFIGTableAdapter() As TBPMO_RECORD_LOG_CONFIGTableAdapter + Get + Return Me._tBPMO_RECORD_LOG_CONFIGTableAdapter + End Get + Set + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_EMAIL_ACCOUNTTableAdapter() As TBDD_EMAIL_ACCOUNTTableAdapter + Get + Return Me._tBDD_EMAIL_ACCOUNTTableAdapter + End Get + Set + Me._tBDD_EMAIL_ACCOUNTTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_CONNECTIONTableAdapter() As TBPMO_CONNECTIONTableAdapter + Get + Return Me._tBPMO_CONNECTIONTableAdapter + End Get + Set + Me._tBPMO_CONNECTIONTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + End Get + Set + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBPMO_FORMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORMTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_VIEWTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_VIEWTableAdapter.Connection + End If + If ((Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_RECORDTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_RECORDTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection + End If + If ((Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WORKFLOWTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WORKFLOWTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_DOKUMENTARTTableAdapter.Connection + End If + If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_EINGANGSARTENTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_EINGANGSARTENTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_AUTOMTableAdapter.Connection + End If + If ((Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_KONFIGURATIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_KONFIGURATIONTableAdapter.Connection + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_TYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_TYPETableAdapter.Connection + End If + If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USER_GROUPSTableAdapter.Connection + End If + If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_GROUPS_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection + End If + If ((Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection + End If + If ((Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FILES_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FILES_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection + End If + If ((Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection + End If + If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection + End If + If ((Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_CONNECTIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_CONNECTIONTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RECORDTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RECORDTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_RECORDTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSDataSet) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBPMO_FORMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_VIEWTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RECORDTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOWTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EINGANGSARTENTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_KONFIGURATIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_TYPETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USER_GROUPSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPS_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FILES_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_CONNECTIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORMTableAdapter, Me._tBPMO_FORMTableAdapter.Connection) + Me._tBPMO_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_VIEWTableAdapter, Me._tBPMO_FORM_VIEWTableAdapter.Connection) + Me._tBPMO_FORM_VIEWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_VIEWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_VIEWTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_VIEWTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_VIEWTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_RECORDTableAdapter, Me._tBPMO_RECORDTableAdapter.Connection) + Me._tBPMO_RECORDTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORDTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_RECORDTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_RECORDTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RECORDTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter, Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter, Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WORKFLOWTableAdapter, Me._tBPMO_WORKFLOWTableAdapter.Connection) + Me._tBPMO_WORKFLOWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WORKFLOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WORKFLOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOWTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter, Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) + Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_EINGANGSARTENTableAdapter, Me._tBDD_EINGANGSARTENTableAdapter.Connection) + Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EINGANGSARTENTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EINGANGSARTENTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection) + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_KONFIGURATIONTableAdapter, Me._tBPMO_KONFIGURATIONTableAdapter.Connection) + Me._tBPMO_KONFIGURATIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_KONFIGURATIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_KONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_KONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_KONFIGURATIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USERTableAdapter, Me._tBDD_USERTableAdapter.Connection) + Me._tBDD_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_TYPETableAdapter, Me._tBPMO_FORM_TYPETableAdapter.Connection) + Me._tBPMO_FORM_TYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_TYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_TYPETableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USER_GROUPSTableAdapter, Me._tBDD_USER_GROUPSTableAdapter.Connection) + Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USER_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USER_GROUPSTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_GROUPS_USERTableAdapter, Me._tBDD_GROUPS_USERTableAdapter.Connection) + Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPS_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPS_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WD_OBJECTTYPETableAdapter, Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) + Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_OBJECTTYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FILES_USERTableAdapter, Me._tBPMO_FILES_USERTableAdapter.Connection) + Me._tBPMO_FILES_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FILES_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FILES_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FILES_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FILES_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter, Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter, Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter, Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter, Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_CONNECTIONTableAdapter, Me._tBPMO_CONNECTIONTableAdapter.Connection) + Me._tBPMO_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_CONNECTIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then + Me._tBPMO_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_VIEWTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_VIEWTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_VIEWTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Me._tBPMO_RECORDTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RECORDTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORDTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Me._tBPMO_WORKFLOWTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOWTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOWTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then + Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(revertConnections(Me._tBDD_EINGANGSARTENTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EINGANGSARTENTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Me._tBPMO_KONFIGURATIONTableAdapter.Connection = CType(revertConnections(Me._tBPMO_KONFIGURATIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_KONFIGURATIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Me._tBDD_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then + Me._tBPMO_FORM_TYPETableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_TYPETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_USER_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USER_GROUPSTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPS_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_OBJECTTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_OBJECTTYPETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Me._tBPMO_FILES_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FILES_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FILES_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(revertConnections(Me._tBDD_EMAIL_ACCOUNTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then + Me._tBPMO_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBPMO_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_CONNECTIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb new file mode 100644 index 0000000..c548003 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb @@ -0,0 +1,3398 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Ä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 DD_DMSDataSetCalendar + Inherits Global.System.Data.DataSet + + Private tableTBPMO_APPOINTMENTS As TBPMO_APPOINTMENTSDataTable + + Private tableTBPMO_RESOURCES As TBPMO_RESOURCESDataTable + + 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("TBPMO_APPOINTMENTS")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_APPOINTMENTSDataTable(ds.Tables("TBPMO_APPOINTMENTS"))) + End If + If (Not (ds.Tables("TBPMO_RESOURCES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RESOURCESDataTable(ds.Tables("TBPMO_RESOURCES"))) + 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 TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable + Get + Return Me.tableTBPMO_APPOINTMENTS + End Get + End Property + + _ + Public ReadOnly Property TBPMO_RESOURCES() As TBPMO_RESOURCESDataTable + Get + Return Me.tableTBPMO_RESOURCES + 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 DD_DMSDataSetCalendar = CType(MyBase.Clone,DD_DMSDataSetCalendar) + 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("TBPMO_APPOINTMENTS")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_APPOINTMENTSDataTable(ds.Tables("TBPMO_APPOINTMENTS"))) + End If + If (Not (ds.Tables("TBPMO_RESOURCES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RESOURCESDataTable(ds.Tables("TBPMO_RESOURCES"))) + 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.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"),TBPMO_APPOINTMENTSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_APPOINTMENTS) Is Nothing) Then + Me.tableTBPMO_APPOINTMENTS.InitVars + End If + End If + Me.tableTBPMO_RESOURCES = CType(MyBase.Tables("TBPMO_RESOURCES"),TBPMO_RESOURCESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_RESOURCES) Is Nothing) Then + Me.tableTBPMO_RESOURCES.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DD_DMSDataSetCalendar" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DD_DMSDataSetCalendar.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBPMO_APPOINTMENTS = New TBPMO_APPOINTMENTSDataTable() + MyBase.Tables.Add(Me.tableTBPMO_APPOINTMENTS) + Me.tableTBPMO_RESOURCES = New TBPMO_RESOURCESDataTable() + MyBase.Tables.Add(Me.tableTBPMO_RESOURCES) + End Sub + + _ + Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_RESOURCES() 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 DD_DMSDataSetCalendar = New DD_DMSDataSetCalendar() + 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 TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent) + + _ + Public Delegate Sub TBPMO_RESOURCESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RESOURCESRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_APPOINTMENTSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_APPOINTMENTSRow) + + Private columnUniqueID As Global.System.Data.DataColumn + + Private columnType As Global.System.Data.DataColumn + + Private columnStartDate As Global.System.Data.DataColumn + + Private columnEndDate As Global.System.Data.DataColumn + + Private columnAllDay As Global.System.Data.DataColumn + + Private columnSubject As Global.System.Data.DataColumn + + Private columnLocation As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnStatus As Global.System.Data.DataColumn + + Private columnLabel As Global.System.Data.DataColumn + + Private columnResourceID As Global.System.Data.DataColumn + + Private columnResourceIDs As Global.System.Data.DataColumn + + Private columnReminderInfo As Global.System.Data.DataColumn + + Private columnRecurrenceInfo As Global.System.Data.DataColumn + + Private columnCustomField1 As Global.System.Data.DataColumn + + Private columnCustomField2 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBPMO_APPOINTMENTS" + 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 UniqueIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUniqueID + End Get + End Property + + _ + Public ReadOnly Property TypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnType + End Get + End Property + + _ + Public ReadOnly Property StartDateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnStartDate + End Get + End Property + + _ + Public ReadOnly Property EndDateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEndDate + End Get + End Property + + _ + Public ReadOnly Property AllDayColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAllDay + End Get + End Property + + _ + Public ReadOnly Property SubjectColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSubject + End Get + End Property + + _ + Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLocation + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn + Get + Return Me.columnStatus + End Get + End Property + + _ + Public ReadOnly Property LabelColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLabel + End Get + End Property + + _ + Public ReadOnly Property ResourceIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnResourceID + End Get + End Property + + _ + Public ReadOnly Property ResourceIDsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnResourceIDs + End Get + End Property + + _ + Public ReadOnly Property ReminderInfoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnReminderInfo + End Get + End Property + + _ + Public ReadOnly Property RecurrenceInfoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRecurrenceInfo + End Get + End Property + + _ + Public ReadOnly Property CustomField1Column() As Global.System.Data.DataColumn + Get + Return Me.columnCustomField1 + End Get + End Property + + _ + Public ReadOnly Property CustomField2Column() As Global.System.Data.DataColumn + Get + Return Me.columnCustomField2 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_APPOINTMENTSRow + Get + Return CType(Me.Rows(index), TBPMO_APPOINTMENTSRow) + End Get + End Property + + _ + Public Event TBPMO_APPOINTMENTSRowChanging As TBPMO_APPOINTMENTSRowChangeEventHandler + + _ + Public Event TBPMO_APPOINTMENTSRowChanged As TBPMO_APPOINTMENTSRowChangeEventHandler + + _ + Public Event TBPMO_APPOINTMENTSRowDeleting As TBPMO_APPOINTMENTSRowChangeEventHandler + + _ + Public Event TBPMO_APPOINTMENTSRowDeleted As TBPMO_APPOINTMENTSRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_APPOINTMENTSRow(ByVal row As TBPMO_APPOINTMENTSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_APPOINTMENTSRow(ByVal Type As Integer, ByVal StartDate As Date, ByVal EndDate As Date, ByVal AllDay As Boolean, ByVal Subject As String, ByVal Location As String, ByVal Description As String, ByVal Status As Integer, ByVal Label As Integer, ByVal ResourceID As Integer, ByVal ResourceIDs As String, ByVal ReminderInfo As String, ByVal RecurrenceInfo As String, ByVal CustomField1 As String, ByVal CustomField2 As String) As TBPMO_APPOINTMENTSRow + Dim rowTBPMO_APPOINTMENTSRow As TBPMO_APPOINTMENTSRow = CType(Me.NewRow, TBPMO_APPOINTMENTSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2} + rowTBPMO_APPOINTMENTSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_APPOINTMENTSRow) + Return rowTBPMO_APPOINTMENTSRow + End Function + + _ + Public Function FindByUniqueID(ByVal UniqueID As Integer) As TBPMO_APPOINTMENTSRow + Return CType(Me.Rows.Find(New Object() {UniqueID}), TBPMO_APPOINTMENTSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_APPOINTMENTSDataTable = CType(MyBase.Clone, TBPMO_APPOINTMENTSDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_APPOINTMENTSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnUniqueID = MyBase.Columns("UniqueID") + Me.columnType = MyBase.Columns("Type") + Me.columnStartDate = MyBase.Columns("StartDate") + Me.columnEndDate = MyBase.Columns("EndDate") + Me.columnAllDay = MyBase.Columns("AllDay") + Me.columnSubject = MyBase.Columns("Subject") + Me.columnLocation = MyBase.Columns("Location") + Me.columnDescription = MyBase.Columns("Description") + Me.columnStatus = MyBase.Columns("Status") + Me.columnLabel = MyBase.Columns("Label") + Me.columnResourceID = MyBase.Columns("ResourceID") + Me.columnResourceIDs = MyBase.Columns("ResourceIDs") + Me.columnReminderInfo = MyBase.Columns("ReminderInfo") + Me.columnRecurrenceInfo = MyBase.Columns("RecurrenceInfo") + Me.columnCustomField1 = MyBase.Columns("CustomField1") + Me.columnCustomField2 = MyBase.Columns("CustomField2") + End Sub + + _ + Private Sub InitClass() + Me.columnUniqueID = New Global.System.Data.DataColumn("UniqueID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUniqueID) + Me.columnType = New Global.System.Data.DataColumn("Type", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnType) + Me.columnStartDate = New Global.System.Data.DataColumn("StartDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnStartDate) + Me.columnEndDate = New Global.System.Data.DataColumn("EndDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEndDate) + Me.columnAllDay = New Global.System.Data.DataColumn("AllDay", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAllDay) + Me.columnSubject = New Global.System.Data.DataColumn("Subject", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSubject) + Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLocation) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnStatus) + Me.columnLabel = New Global.System.Data.DataColumn("Label", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLabel) + Me.columnResourceID = New Global.System.Data.DataColumn("ResourceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnResourceID) + Me.columnResourceIDs = New Global.System.Data.DataColumn("ResourceIDs", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnResourceIDs) + Me.columnReminderInfo = New Global.System.Data.DataColumn("ReminderInfo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnReminderInfo) + Me.columnRecurrenceInfo = New Global.System.Data.DataColumn("RecurrenceInfo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRecurrenceInfo) + Me.columnCustomField1 = New Global.System.Data.DataColumn("CustomField1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCustomField1) + Me.columnCustomField2 = New Global.System.Data.DataColumn("CustomField2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCustomField2) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUniqueID}, True)) + Me.columnUniqueID.AutoIncrement = True + Me.columnUniqueID.AutoIncrementSeed = -1 + Me.columnUniqueID.AutoIncrementStep = -1 + Me.columnUniqueID.AllowDBNull = False + Me.columnUniqueID.ReadOnly = True + Me.columnUniqueID.Unique = True + Me.columnSubject.MaxLength = 150 + Me.columnLocation.MaxLength = 50 + Me.columnDescription.MaxLength = 2147483647 + Me.columnResourceIDs.MaxLength = 2147483647 + Me.columnReminderInfo.MaxLength = 2147483647 + Me.columnRecurrenceInfo.MaxLength = 2147483647 + Me.columnCustomField1.MaxLength = 2147483647 + Me.columnCustomField2.MaxLength = 2147483647 + End Sub + + _ + Public Function NewTBPMO_APPOINTMENTSRow() As TBPMO_APPOINTMENTSRow + Return CType(Me.NewRow, TBPMO_APPOINTMENTSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_APPOINTMENTSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_APPOINTMENTSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_APPOINTMENTSRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_APPOINTMENTSRowChanged(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row, TBPMO_APPOINTMENTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_APPOINTMENTSRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_APPOINTMENTSRowChanging(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row, TBPMO_APPOINTMENTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_APPOINTMENTSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_APPOINTMENTSRowDeleted(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row, TBPMO_APPOINTMENTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_APPOINTMENTSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_APPOINTMENTSRowDeleting(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row, TBPMO_APPOINTMENTSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_APPOINTMENTSRow(ByVal row As TBPMO_APPOINTMENTSRow) + 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 DD_DMSDataSetCalendar = New DD_DMSDataSetCalendar() + 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 = "TBPMO_APPOINTMENTSDataTable" + 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 TBPMO_RESOURCESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RESOURCESRow) + + Private columnUniqueID As Global.System.Data.DataColumn + + Private columnResourceID As Global.System.Data.DataColumn + + Private columnResourceName As Global.System.Data.DataColumn + + Private columnColor As Global.System.Data.DataColumn + + Private columnImage As Global.System.Data.DataColumn + + Private columnCustomField1 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBPMO_RESOURCES" + 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 UniqueIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUniqueID + End Get + End Property + + _ + Public ReadOnly Property ResourceIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnResourceID + End Get + End Property + + _ + Public ReadOnly Property ResourceNameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnResourceName + End Get + End Property + + _ + Public ReadOnly Property ColorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnColor + End Get + End Property + + _ + Public ReadOnly Property ImageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnImage + End Get + End Property + + _ + Public ReadOnly Property CustomField1Column() As Global.System.Data.DataColumn + Get + Return Me.columnCustomField1 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_RESOURCESRow + Get + Return CType(Me.Rows(index), TBPMO_RESOURCESRow) + End Get + End Property + + _ + Public Event TBPMO_RESOURCESRowChanging As TBPMO_RESOURCESRowChangeEventHandler + + _ + Public Event TBPMO_RESOURCESRowChanged As TBPMO_RESOURCESRowChangeEventHandler + + _ + Public Event TBPMO_RESOURCESRowDeleting As TBPMO_RESOURCESRowChangeEventHandler + + _ + Public Event TBPMO_RESOURCESRowDeleted As TBPMO_RESOURCESRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_RESOURCESRow(ByVal row As TBPMO_RESOURCESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_RESOURCESRow(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Integer, ByVal Image() As Byte, ByVal CustomField1 As String) As TBPMO_RESOURCESRow + Dim rowTBPMO_RESOURCESRow As TBPMO_RESOURCESRow = CType(Me.NewRow, TBPMO_RESOURCESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, ResourceID, ResourceName, Color, Image, CustomField1} + rowTBPMO_RESOURCESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RESOURCESRow) + Return rowTBPMO_RESOURCESRow + End Function + + _ + Public Function FindByUniqueID(ByVal UniqueID As Integer) As TBPMO_RESOURCESRow + Return CType(Me.Rows.Find(New Object() {UniqueID}), TBPMO_RESOURCESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_RESOURCESDataTable = CType(MyBase.Clone, TBPMO_RESOURCESDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_RESOURCESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnUniqueID = MyBase.Columns("UniqueID") + Me.columnResourceID = MyBase.Columns("ResourceID") + Me.columnResourceName = MyBase.Columns("ResourceName") + Me.columnColor = MyBase.Columns("Color") + Me.columnImage = MyBase.Columns("Image") + Me.columnCustomField1 = MyBase.Columns("CustomField1") + End Sub + + _ + Private Sub InitClass() + Me.columnUniqueID = New Global.System.Data.DataColumn("UniqueID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUniqueID) + Me.columnResourceID = New Global.System.Data.DataColumn("ResourceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnResourceID) + Me.columnResourceName = New Global.System.Data.DataColumn("ResourceName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnResourceName) + Me.columnColor = New Global.System.Data.DataColumn("Color", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnColor) + Me.columnImage = New Global.System.Data.DataColumn("Image", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnImage) + Me.columnCustomField1 = New Global.System.Data.DataColumn("CustomField1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCustomField1) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUniqueID}, True)) + Me.columnUniqueID.AutoIncrement = True + Me.columnUniqueID.AutoIncrementSeed = -1 + Me.columnUniqueID.AutoIncrementStep = -1 + Me.columnUniqueID.AllowDBNull = False + Me.columnUniqueID.ReadOnly = True + Me.columnUniqueID.Unique = True + Me.columnResourceID.AllowDBNull = False + Me.columnResourceName.MaxLength = 50 + Me.columnCustomField1.MaxLength = 2147483647 + End Sub + + _ + Public Function NewTBPMO_RESOURCESRow() As TBPMO_RESOURCESRow + Return CType(Me.NewRow, TBPMO_RESOURCESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_RESOURCESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_RESOURCESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_RESOURCESRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RESOURCESRowChanged(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_RESOURCESRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RESOURCESRowChanging(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_RESOURCESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RESOURCESRowDeleted(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_RESOURCESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RESOURCESRowDeleting(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_RESOURCESRow(ByVal row As TBPMO_RESOURCESRow) + 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 DD_DMSDataSetCalendar = New DD_DMSDataSetCalendar() + 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 = "TBPMO_RESOURCESDataTable" + 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 TBPMO_APPOINTMENTSRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_APPOINTMENTS As TBPMO_APPOINTMENTSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_APPOINTMENTS = CType(Me.Table, TBPMO_APPOINTMENTSDataTable) + End Sub + + _ + Public Property UniqueID() As Integer + Get + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.UniqueIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_APPOINTMENTS.UniqueIDColumn) = value + End Set + End Property + + _ + Public Property Type() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.TypeColumn), Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Type in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As Integer) + Me(Me.tableTBPMO_APPOINTMENTS.TypeColumn) = value + End Set + End Property + + _ + Public Property StartDate() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.StartDateColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_APPOINTMENTS.StartDateColumn) = value + End Set + End Property + + _ + Public Property EndDate() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.EndDateColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_APPOINTMENTS.EndDateColumn) = value + End Set + End Property + + _ + Public Property AllDay() As Boolean + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.AllDayColumn), Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AllDay in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As Boolean) + Me(Me.tableTBPMO_APPOINTMENTS.AllDayColumn) = value + End Set + End Property + + _ + Public Property Subject() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.SubjectColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Subject in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.SubjectColumn) = value + End Set + End Property + + _ + Public Property Location() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.LocationColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Location in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.LocationColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Status() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.StatusColumn), Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As Integer) + Me(Me.tableTBPMO_APPOINTMENTS.StatusColumn) = value + End Set + End Property + + _ + Public Property Label() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.LabelColumn), Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Label in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As Integer) + Me(Me.tableTBPMO_APPOINTMENTS.LabelColumn) = value + End Set + End Property + + _ + Public Property ResourceID() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn), Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ResourceID in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As Integer) + Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn) = value + End Set + End Property + + _ + Public Property ResourceIDs() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ResourceIDs in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn) = value + End Set + End Property + + _ + Public Property ReminderInfo() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReminderInfo in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn) = value + End Set + End Property + + _ + Public Property RecurrenceInfo() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RecurrenceInfo in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn) = value + End Set + End Property + + _ + Public Property CustomField1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.CustomField1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomField1 in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.CustomField1Column) = value + End Set + End Property + + _ + Public Property CustomField2() As String + Get + Try + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.CustomField2Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomField2 in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_APPOINTMENTS.CustomField2Column) = value + End Set + End Property + + _ + Public Function IsTypeNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.TypeColumn) + End Function + + _ + Public Sub SetTypeNull() + Me(Me.tableTBPMO_APPOINTMENTS.TypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsStartDateNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.StartDateColumn) + End Function + + _ + Public Sub SetStartDateNull() + Me(Me.tableTBPMO_APPOINTMENTS.StartDateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEndDateNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.EndDateColumn) + End Function + + _ + Public Sub SetEndDateNull() + Me(Me.tableTBPMO_APPOINTMENTS.EndDateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAllDayNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.AllDayColumn) + End Function + + _ + Public Sub SetAllDayNull() + Me(Me.tableTBPMO_APPOINTMENTS.AllDayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSubjectNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.SubjectColumn) + End Function + + _ + Public Sub SetSubjectNull() + Me(Me.tableTBPMO_APPOINTMENTS.SubjectColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLocationNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.LocationColumn) + End Function + + _ + Public Sub SetLocationNull() + Me(Me.tableTBPMO_APPOINTMENTS.LocationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsStatusNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.StatusColumn) + End Function + + _ + Public Sub SetStatusNull() + Me(Me.tableTBPMO_APPOINTMENTS.StatusColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLabelNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.LabelColumn) + End Function + + _ + Public Sub SetLabelNull() + Me(Me.tableTBPMO_APPOINTMENTS.LabelColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsResourceIDNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn) + End Function + + _ + Public Sub SetResourceIDNull() + Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsResourceIDsNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn) + End Function + + _ + Public Sub SetResourceIDsNull() + Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsReminderInfoNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn) + End Function + + _ + Public Sub SetReminderInfoNull() + Me(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRecurrenceInfoNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn) + End Function + + _ + Public Sub SetRecurrenceInfoNull() + Me(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCustomField1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.CustomField1Column) + End Function + + _ + Public Sub SetCustomField1Null() + Me(Me.tableTBPMO_APPOINTMENTS.CustomField1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCustomField2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.CustomField2Column) + End Function + + _ + Public Sub SetCustomField2Null() + Me(Me.tableTBPMO_APPOINTMENTS.CustomField2Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_RESOURCESRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_RESOURCES As TBPMO_RESOURCESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_RESOURCES = CType(Me.Table, TBPMO_RESOURCESDataTable) + End Sub + + _ + Public Property UniqueID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RESOURCES.UniqueIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_RESOURCES.UniqueIDColumn) = value + End Set + End Property + + _ + Public Property ResourceID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RESOURCES.ResourceIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_RESOURCES.ResourceIDColumn) = value + End Set + End Property + + _ + Public Property ResourceName() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.ResourceNameColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ResourceName in Tabelle TBPMO_RESOURCES ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_RESOURCES.ResourceNameColumn) = value + End Set + End Property + + _ + Public Property Color() As Integer + Get + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.ColorColumn), Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Color in Tabelle TBPMO_RESOURCES ist DBNull.", e) + End Try + End Get + Set(value As Integer) + Me(Me.tableTBPMO_RESOURCES.ColorColumn) = value + End Set + End Property + + _ + Public Property Image() As Byte() + Get + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.ImageColumn), Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Image in Tabelle TBPMO_RESOURCES ist DBNull.", e) + End Try + End Get + Set(value As Byte()) + Me(Me.tableTBPMO_RESOURCES.ImageColumn) = value + End Set + End Property + + _ + Public Property CustomField1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.CustomField1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomField1 in Tabelle TBPMO_RESOURCES ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_RESOURCES.CustomField1Column) = value + End Set + End Property + + _ + Public Function IsResourceNameNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RESOURCES.ResourceNameColumn) + End Function + + _ + Public Sub SetResourceNameNull() + Me(Me.tableTBPMO_RESOURCES.ResourceNameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsColorNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RESOURCES.ColorColumn) + End Function + + _ + Public Sub SetColorNull() + Me(Me.tableTBPMO_RESOURCES.ColorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsImageNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RESOURCES.ImageColumn) + End Function + + _ + Public Sub SetImageNull() + Me(Me.tableTBPMO_RESOURCES.ImageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCustomField1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_RESOURCES.CustomField1Column) + End Function + + _ + Public Sub SetCustomField1Null() + Me(Me.tableTBPMO_RESOURCES.CustomField1Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_APPOINTMENTSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_APPOINTMENTSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_APPOINTMENTSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_APPOINTMENTSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_RESOURCESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_RESOURCESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_RESOURCESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_RESOURCESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DD_DMSDataSetCalendarTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_APPOINTMENTSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_APPOINTMENTS" + tableMapping.ColumnMappings.Add("UniqueID", "UniqueID") + tableMapping.ColumnMappings.Add("Type", "Type") + tableMapping.ColumnMappings.Add("StartDate", "StartDate") + tableMapping.ColumnMappings.Add("EndDate", "EndDate") + tableMapping.ColumnMappings.Add("AllDay", "AllDay") + tableMapping.ColumnMappings.Add("Subject", "Subject") + tableMapping.ColumnMappings.Add("Location", "Location") + tableMapping.ColumnMappings.Add("Description", "Description") + tableMapping.ColumnMappings.Add("Status", "Status") + tableMapping.ColumnMappings.Add("Label", "Label") + tableMapping.ColumnMappings.Add("ResourceID", "ResourceID") + tableMapping.ColumnMappings.Add("ResourceIDs", "ResourceIDs") + tableMapping.ColumnMappings.Add("ReminderInfo", "ReminderInfo") + tableMapping.ColumnMappings.Add("RecurrenceInfo", "RecurrenceInfo") + tableMapping.ColumnMappings.Add("CustomField1", "CustomField1") + tableMapping.ColumnMappings.Add("CustomField2", "CustomField2") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_APPOINTMENTS] WHERE (([UniqueID] = @Original_UniqueID) AND ((@" & _ + "IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_" & _ + "StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) A" & _ + "ND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDat" & _ + "e)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllD" & _ + "ay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_" & _ + "Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @O" & _ + "riginal_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] =" & _ + " @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @" & _ + "Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([Res" & _ + "ourceID] = @Original_ResourceID)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UniqueID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_StartDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EndDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AllDay", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Subject", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_APPOINTMENTS] ([Type], [StartDate], [EndDate], [AllDay], [Subj" & _ + "ect], [Location], [Description], [Status], [Label], [ResourceID], [ResourceIDs]," & _ + " [ReminderInfo], [RecurrenceInfo], [CustomField1], [CustomField2]) VALUES (@Type" & _ + ", @StartDate, @EndDate, @AllDay, @Subject, @Location, @Description, @Status, @La" & _ + "bel, @ResourceID, @ResourceIDs, @ReminderInfo, @RecurrenceInfo, @CustomField1, @" & _ + "CustomField2);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Loca" & _ + "tion, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, Recurre" & _ + "nceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = SC" & _ + "OPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceIDs", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceIDs", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReminderInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReminderInfo", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RecurrenceInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RecurrenceInfo", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDat" & _ + "e] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location," & _ + " [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID" & _ + "] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [" & _ + "RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2" & _ + "] = @CustomField2 WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = " & _ + "1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 " & _ + "AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_E" & _ + "ndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsN" & _ + "ull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@Is" & _ + "Null_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND " & _ + "((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Locati" & _ + "on)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Sta" & _ + "tus)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label" & _ + ")) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Or" & _ + "iginal_ResourceID)));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subjec" & _ + "t, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, " & _ + "RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (Unique" & _ + "ID = @UniqueID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceIDs", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceIDs", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReminderInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReminderInfo", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RecurrenceInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RecurrenceInfo", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UniqueID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_StartDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EndDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AllDay", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Subject", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UniqueID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Desc" & _ + "ription, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, C" & _ + "ustomField1, CustomField2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_APPOINTMENTS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData() As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable = New DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetCalendar) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_APPOINTMENTS") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_UniqueID As Integer, ByVal Original_Type As Global.System.Nullable(Of Integer), ByVal Original_StartDate As Global.System.Nullable(Of Date), ByVal Original_EndDate As Global.System.Nullable(Of Date), ByVal Original_AllDay As Global.System.Nullable(Of Boolean), ByVal Original_Subject As String, ByVal Original_Location As String, ByVal Original_Status As Global.System.Nullable(Of Integer), ByVal Original_Label As Global.System.Nullable(Of Integer), ByVal Original_ResourceID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UniqueID, Integer) + If (Original_Type.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Type.Value, Integer) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_StartDate.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_StartDate.Value, Date) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_EndDate.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_EndDate.Value, Date) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_AllDay.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_AllDay.Value, Boolean) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_Subject Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Subject, String) + End If + If (Original_Location Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Location, String) + End If + If (Original_Status.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Status.Value, Integer) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_Label.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Label.Value, Integer) + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (Original_ResourceID.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ResourceID.Value, Integer) + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert(ByVal Type As Global.System.Nullable(Of Integer), ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date), ByVal AllDay As Global.System.Nullable(Of Boolean), ByVal Subject As String, ByVal Location As String, ByVal Description As String, ByVal Status As Global.System.Nullable(Of Integer), ByVal Label As Global.System.Nullable(Of Integer), ByVal ResourceID As Global.System.Nullable(Of Integer), ByVal ResourceIDs As String, ByVal ReminderInfo As String, ByVal RecurrenceInfo As String, ByVal CustomField1 As String, ByVal CustomField2 As String) As Integer + If (Type.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Type.Value, Integer) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (StartDate.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(StartDate.Value, Date) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (EndDate.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EndDate.Value, Date) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (AllDay.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(AllDay.Value, Boolean) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Subject Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(Subject, String) + End If + If (Location Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(Location, String) + End If + If (Description Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Description, String) + End If + If (Status.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(Status.Value, Integer) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Label.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(Label.Value, Integer) + Else + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (ResourceID.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ResourceID.Value, Integer) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (ResourceIDs Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ResourceIDs, String) + End If + If (ReminderInfo Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ReminderInfo, String) + End If + If (RecurrenceInfo Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(RecurrenceInfo, String) + End If + If (CustomField1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(CustomField1, String) + End If + If (CustomField2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(CustomField2, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update( _ + ByVal Type As Global.System.Nullable(Of Integer), _ + ByVal StartDate As Global.System.Nullable(Of Date), _ + ByVal EndDate As Global.System.Nullable(Of Date), _ + ByVal AllDay As Global.System.Nullable(Of Boolean), _ + ByVal Subject As String, _ + ByVal Location As String, _ + ByVal Description As String, _ + ByVal Status As Global.System.Nullable(Of Integer), _ + ByVal Label As Global.System.Nullable(Of Integer), _ + ByVal ResourceID As Global.System.Nullable(Of Integer), _ + ByVal ResourceIDs As String, _ + ByVal ReminderInfo As String, _ + ByVal RecurrenceInfo As String, _ + ByVal CustomField1 As String, _ + ByVal CustomField2 As String, _ + ByVal Original_UniqueID As Integer, _ + ByVal Original_Type As Global.System.Nullable(Of Integer), _ + ByVal Original_StartDate As Global.System.Nullable(Of Date), _ + ByVal Original_EndDate As Global.System.Nullable(Of Date), _ + ByVal Original_AllDay As Global.System.Nullable(Of Boolean), _ + ByVal Original_Subject As String, _ + ByVal Original_Location As String, _ + ByVal Original_Status As Global.System.Nullable(Of Integer), _ + ByVal Original_Label As Global.System.Nullable(Of Integer), _ + ByVal Original_ResourceID As Global.System.Nullable(Of Integer), _ + ByVal UniqueID As Integer) As Integer + If (Type.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Type.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (StartDate.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(StartDate.Value, Date) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (EndDate.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EndDate.Value, Date) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (AllDay.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(AllDay.Value, Boolean) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Subject Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Subject, String) + End If + If (Location Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Location, String) + End If + If (Description Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Description, String) + End If + If (Status.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Status.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Label.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Label.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (ResourceID.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ResourceID.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (ResourceIDs Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ResourceIDs, String) + End If + If (ReminderInfo Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ReminderInfo, String) + End If + If (RecurrenceInfo Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(RecurrenceInfo, String) + End If + If (CustomField1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CustomField1, String) + End If + If (CustomField2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CustomField2, String) + End If + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_UniqueID, Integer) + If (Original_Type.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Type.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (Original_StartDate.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_StartDate.Value, Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_EndDate.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_EndDate.Value, Date) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + If (Original_AllDay.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_AllDay.Value, Boolean) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + If (Original_Subject Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Subject, String) + End If + If (Original_Location Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Location, String) + End If + If (Original_Status.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Status.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + End If + If (Original_Label.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Label.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + End If + If (Original_ResourceID.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ResourceID.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(UniqueID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update( _ + ByVal Type As Global.System.Nullable(Of Integer), _ + ByVal StartDate As Global.System.Nullable(Of Date), _ + ByVal EndDate As Global.System.Nullable(Of Date), _ + ByVal AllDay As Global.System.Nullable(Of Boolean), _ + ByVal Subject As String, _ + ByVal Location As String, _ + ByVal Description As String, _ + ByVal Status As Global.System.Nullable(Of Integer), _ + ByVal Label As Global.System.Nullable(Of Integer), _ + ByVal ResourceID As Global.System.Nullable(Of Integer), _ + ByVal ResourceIDs As String, _ + ByVal ReminderInfo As String, _ + ByVal RecurrenceInfo As String, _ + ByVal CustomField1 As String, _ + ByVal CustomField2 As String, _ + ByVal Original_UniqueID As Integer, _ + ByVal Original_Type As Global.System.Nullable(Of Integer), _ + ByVal Original_StartDate As Global.System.Nullable(Of Date), _ + ByVal Original_EndDate As Global.System.Nullable(Of Date), _ + ByVal Original_AllDay As Global.System.Nullable(Of Boolean), _ + ByVal Original_Subject As String, _ + ByVal Original_Location As String, _ + ByVal Original_Status As Global.System.Nullable(Of Integer), _ + ByVal Original_Label As Global.System.Nullable(Of Integer), _ + ByVal Original_ResourceID As Global.System.Nullable(Of Integer)) As Integer + Return Me.Update(Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2, Original_UniqueID, Original_Type, Original_StartDate, Original_EndDate, Original_AllDay, Original_Subject, Original_Location, Original_Status, Original_Label, Original_ResourceID, Original_UniqueID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_RESOURCESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_RESOURCES" + tableMapping.ColumnMappings.Add("UniqueID", "UniqueID") + tableMapping.ColumnMappings.Add("ResourceID", "ResourceID") + tableMapping.ColumnMappings.Add("ResourceName", "ResourceName") + tableMapping.ColumnMappings.Add("Color", "Color") + tableMapping.ColumnMappings.Add("Image", "Image") + tableMapping.ColumnMappings.Add("CustomField1", "CustomField1") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_RESOURCES] WHERE (([UniqueID] = @Original_UniqueID) AND " & _ + "([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [Resour" & _ + "ceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Col" & _ + "or = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UniqueID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_RESOURCES] ([ResourceID], [ResourceName], [Color], [Imag" & _ + "e], [CustomField1]) VALUES (@ResourceID, @ResourceName, @Color, @Image, @CustomF" & _ + "ield1);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 F" & _ + "ROM TBPMO_RESOURCES WHERE (UniqueID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Image", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Image", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @" & _ + "ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1" & _ + " WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_Resource" & _ + "ID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName" & _ + "] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([C" & _ + "olor] = @Original_Color)));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT UniqueID, ResourceID, ResourceName, Color, I" & _ + "mage, CustomField1 FROM TBPMO_RESOURCES WHERE (UniqueID = @UniqueID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Image", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Image", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UniqueID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UniqueID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM dbo.TB" & _ + "PMO_RESOURCES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData() As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable = New DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetCalendar) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_RESOURCES") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UniqueID, Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ResourceID, Integer) + If (Original_ResourceName Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ResourceName, String) + End If + If (Original_Color.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Color.Value, Integer) + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ResourceID, Integer) + If (ResourceName Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ResourceName, String) + End If + If (Color.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Color.Value, Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Image Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Image, Byte()) + End If + If (CustomField1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CustomField1, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String, ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer), ByVal UniqueID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ResourceID, Integer) + If (ResourceName Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ResourceName, String) + End If + If (Color.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Color.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Image Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Image, Byte()) + End If + If (CustomField1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CustomField1, String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_UniqueID, Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ResourceID, Integer) + If (Original_ResourceName Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ResourceName, String) + End If + If (Original_Color.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Color.Value, Integer) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(UniqueID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String, ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer)) As Integer + Return Me.Update(ResourceID, ResourceName, Color, Image, CustomField1, Original_UniqueID, Original_ResourceID, Original_ResourceName, Original_Color, Original_UniqueID) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBPMO_APPOINTMENTSTableAdapter As TBPMO_APPOINTMENTSTableAdapter + + Private _tBPMO_RESOURCESTableAdapter As TBPMO_RESOURCESTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set(value As UpdateOrderOption) + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBPMO_APPOINTMENTSTableAdapter() As TBPMO_APPOINTMENTSTableAdapter + Get + Return Me._tBPMO_APPOINTMENTSTableAdapter + End Get + Set(value As TBPMO_APPOINTMENTSTableAdapter) + Me._tBPMO_APPOINTMENTSTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_RESOURCESTableAdapter() As TBPMO_RESOURCESTableAdapter + Get + Return Me._tBPMO_RESOURCESTableAdapter + End Get + Set(value As TBPMO_RESOURCESTableAdapter) + Me._tBPMO_RESOURCESTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set(value As Boolean) + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_APPOINTMENTSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_APPOINTMENTSTableAdapter.Connection + End If + If ((Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_RESOURCESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_RESOURCESTableAdapter.Connection + End If + Return Nothing + End Get + Set(value As Global.System.Data.IDbConnection) + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSetCalendar, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_APPOINTMENTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESOURCES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RESOURCESTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSetCalendar, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_APPOINTMENTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESOURCES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RESOURCESTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSetCalendar, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESOURCES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_RESOURCESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_APPOINTMENTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = False) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSDataSetCalendar) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = False) Then + Return 0 + End If + If ((Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_APPOINTMENTSTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RESOURCESTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ + "t.") + End If + Dim workConnOpened As Boolean = False + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close() + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open() + workConnOpened = True + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_APPOINTMENTSTableAdapter, Me._tBPMO_APPOINTMENTSTableAdapter.Connection) + Me._tBPMO_APPOINTMENTSTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_APPOINTMENTSTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_APPOINTMENTSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_APPOINTMENTSTableAdapter.Adapter.AcceptChangesDuringUpdate = False + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_APPOINTMENTSTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_RESOURCESTableAdapter, Me._tBPMO_RESOURCESTableAdapter.Connection) + Me._tBPMO_RESOURCESTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RESOURCESTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_RESOURCESTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_RESOURCESTableAdapter.Adapter.AcceptChangesDuringUpdate = False + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RESOURCESTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit() + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback() + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear() + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + row.SetAdded() + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close() + End If + If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then + Me._tBPMO_APPOINTMENTSTableAdapter.Connection = CType(revertConnections(Me._tBPMO_APPOINTMENTSTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_APPOINTMENTSTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then + Me._tBPMO_RESOURCESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RESOURCESTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RESOURCESTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = True + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return True + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return True + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return True + End If + Return False + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New() + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear() + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsc b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsd b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsd new file mode 100644 index 0000000..61d628e --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xsd @@ -0,0 +1,314 @@ + + + + + + + + + + + + + + + DELETE FROM [TBPMO_APPOINTMENTS] WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID))) + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBPMO_APPOINTMENTS] ([Type], [StartDate], [EndDate], [AllDay], [Subject], [Location], [Description], [Status], [Label], [ResourceID], [ResourceIDs], [ReminderInfo], [RecurrenceInfo], [CustomField1], [CustomField2]) VALUES (@Type, @StartDate, @EndDate, @AllDay, @Subject, @Location, @Description, @Status, @Label, @ResourceID, @ResourceIDs, @ReminderInfo, @RecurrenceInfo, @CustomField1, @CustomField2); +SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2 +FROM TBPMO_APPOINTMENTS + + + + + + UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID))); +SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = @UniqueID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [dbo].[TBPMO_RESOURCES] WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color))) + + + + + + + + + + + + + INSERT INTO [dbo].[TBPMO_RESOURCES] ([ResourceID], [ResourceName], [Color], [Image], [CustomField1]) VALUES (@ResourceID, @ResourceName, @Color, @Image, @CustomField1); +SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM TBPMO_RESOURCES WHERE (UniqueID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM dbo.TBPMO_RESOURCES + + + + + + UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1 WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color))); +SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM TBPMO_RESOURCES WHERE (UniqueID = @UniqueID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xss b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xss new file mode 100644 index 0000000..ce950e9 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetCalendar.xss @@ -0,0 +1,13 @@ + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb new file mode 100644 index 0000000..d68b82e --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb @@ -0,0 +1,3036 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Ä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 DD_DMSDataSetMenuDesigner + Inherits Global.System.Data.DataSet + + Private tableTBPMO_MENU_FORM As TBPMO_MENU_FORMDataTable + + Private tableTBPMO_MENU_FORM_ENTRIES As TBPMO_MENU_FORM_ENTRIESDataTable + + Private relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID As Global.System.Data.DataRelation + + 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("TBPMO_MENU_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_MENU_FORMDataTable(ds.Tables("TBPMO_MENU_FORM"))) + End If + If (Not (ds.Tables("TBPMO_MENU_FORM_ENTRIES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_MENU_FORM_ENTRIESDataTable(ds.Tables("TBPMO_MENU_FORM_ENTRIES"))) + 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 TBPMO_MENU_FORM() As TBPMO_MENU_FORMDataTable + Get + Return Me.tableTBPMO_MENU_FORM + End Get + End Property + + _ + Public ReadOnly Property TBPMO_MENU_FORM_ENTRIES() As TBPMO_MENU_FORM_ENTRIESDataTable + Get + Return Me.tableTBPMO_MENU_FORM_ENTRIES + 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 DD_DMSDataSetMenuDesigner = CType(MyBase.Clone,DD_DMSDataSetMenuDesigner) + 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("TBPMO_MENU_FORM")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_MENU_FORMDataTable(ds.Tables("TBPMO_MENU_FORM"))) + End If + If (Not (ds.Tables("TBPMO_MENU_FORM_ENTRIES")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_MENU_FORM_ENTRIESDataTable(ds.Tables("TBPMO_MENU_FORM_ENTRIES"))) + 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.tableTBPMO_MENU_FORM = CType(MyBase.Tables("TBPMO_MENU_FORM"),TBPMO_MENU_FORMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_MENU_FORM) Is Nothing) Then + Me.tableTBPMO_MENU_FORM.InitVars + End If + End If + Me.tableTBPMO_MENU_FORM_ENTRIES = CType(MyBase.Tables("TBPMO_MENU_FORM_ENTRIES"),TBPMO_MENU_FORM_ENTRIESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_MENU_FORM_ENTRIES) Is Nothing) Then + Me.tableTBPMO_MENU_FORM_ENTRIES.InitVars + End If + End If + Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = Me.Relations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DD_DMSDataSetMenuDesigner" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DD_DMSDataSetMenuDesigner.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBPMO_MENU_FORM = New TBPMO_MENU_FORMDataTable() + MyBase.Tables.Add(Me.tableTBPMO_MENU_FORM) + Me.tableTBPMO_MENU_FORM_ENTRIES = New TBPMO_MENU_FORM_ENTRIESDataTable() + MyBase.Tables.Add(Me.tableTBPMO_MENU_FORM_ENTRIES) + Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID) + End Sub + + _ + Private Function ShouldSerializeTBPMO_MENU_FORM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_MENU_FORM_ENTRIES() 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 DD_DMSDataSetMenuDesigner = New DD_DMSDataSetMenuDesigner() + 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 TBPMO_MENU_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_MENU_FORMRowChangeEvent) + + _ + Public Delegate Sub TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_MENU_FORM_ENTRIESRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_MENU_FORMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_MENU_FORMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnMENU_ENTRY As Global.System.Data.DataColumn + + Private columnICON_PATH As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_MENU_FORM" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property MENU_ENTRYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENU_ENTRY + End Get + End Property + + _ + Public ReadOnly Property ICON_PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnICON_PATH + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_MENU_FORMRow + Get + Return CType(Me.Rows(index),TBPMO_MENU_FORMRow) + End Get + End Property + + _ + Public Event TBPMO_MENU_FORMRowChanging As TBPMO_MENU_FORMRowChangeEventHandler + + _ + Public Event TBPMO_MENU_FORMRowChanged As TBPMO_MENU_FORMRowChangeEventHandler + + _ + Public Event TBPMO_MENU_FORMRowDeleting As TBPMO_MENU_FORMRowChangeEventHandler + + _ + Public Event TBPMO_MENU_FORMRowDeleted As TBPMO_MENU_FORMRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_MENU_FORMRow(ByVal row As TBPMO_MENU_FORMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_MENU_FORMRow(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_MENU_FORMRow + Dim rowTBPMO_MENU_FORMRow As TBPMO_MENU_FORMRow = CType(Me.NewRow,TBPMO_MENU_FORMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_MENU_FORMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_MENU_FORMRow) + Return rowTBPMO_MENU_FORMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_MENU_FORMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_MENU_FORMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_MENU_FORMDataTable = CType(MyBase.Clone,TBPMO_MENU_FORMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_MENU_FORMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnMENU_ENTRY = MyBase.Columns("MENU_ENTRY") + Me.columnICON_PATH = MyBase.Columns("ICON_PATH") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnMENU_ENTRY = New Global.System.Data.DataColumn("MENU_ENTRY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENU_ENTRY) + Me.columnICON_PATH = New Global.System.Data.DataColumn("ICON_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnICON_PATH) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnMENU_ENTRY.AllowDBNull = false + Me.columnMENU_ENTRY.MaxLength = 100 + Me.columnICON_PATH.MaxLength = 1000 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_MENU_FORMRow() As TBPMO_MENU_FORMRow + Return CType(Me.NewRow,TBPMO_MENU_FORMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_MENU_FORMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_MENU_FORMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_MENU_FORMRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORMRowChanged(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_MENU_FORMRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORMRowChanging(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_MENU_FORMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORMRowDeleted(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_MENU_FORMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORMRowDeleting(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_MENU_FORMRow(ByVal row As TBPMO_MENU_FORMRow) + 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 DD_DMSDataSetMenuDesigner = New DD_DMSDataSetMenuDesigner() + 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 = "TBPMO_MENU_FORMDataTable" + 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 TBPMO_MENU_FORM_ENTRIESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_MENU_FORM_ENTRIESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnMENU_FORM_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnICON_PATH As Global.System.Data.DataColumn + + Private columnMENU_ENTRY As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_MENU_FORM_ENTRIES" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property MENU_FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENU_FORM_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property ICON_PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnICON_PATH + End Get + End Property + + _ + Public ReadOnly Property MENU_ENTRYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENU_ENTRY + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_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 TBPMO_MENU_FORM_ENTRIESRow + Get + Return CType(Me.Rows(index),TBPMO_MENU_FORM_ENTRIESRow) + End Get + End Property + + _ + Public Event TBPMO_MENU_FORM_ENTRIESRowChanging As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler + + _ + Public Event TBPMO_MENU_FORM_ENTRIESRowChanged As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler + + _ + Public Event TBPMO_MENU_FORM_ENTRIESRowDeleting As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler + + _ + Public Event TBPMO_MENU_FORM_ENTRIESRowDeleted As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_MENU_FORM_ENTRIESRow(ByVal row As TBPMO_MENU_FORM_ENTRIESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_MENU_FORM_ENTRIESRow(ByVal parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID As TBPMO_MENU_FORMRow, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_MENU_FORM_ENTRIESRow + Dim rowTBPMO_MENU_FORM_ENTRIESRow As TBPMO_MENU_FORM_ENTRIESRow = CType(Me.NewRow,TBPMO_MENU_FORM_ENTRIESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID(0) + End If + rowTBPMO_MENU_FORM_ENTRIESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_MENU_FORM_ENTRIESRow) + Return rowTBPMO_MENU_FORM_ENTRIESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_MENU_FORM_ENTRIESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_MENU_FORM_ENTRIESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_MENU_FORM_ENTRIESDataTable = CType(MyBase.Clone,TBPMO_MENU_FORM_ENTRIESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_MENU_FORM_ENTRIESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnMENU_FORM_ID = MyBase.Columns("MENU_FORM_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnICON_PATH = MyBase.Columns("ICON_PATH") + Me.columnMENU_ENTRY = MyBase.Columns("MENU_ENTRY") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnMENU_FORM_ID = New Global.System.Data.DataColumn("MENU_FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENU_FORM_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnICON_PATH = New Global.System.Data.DataColumn("ICON_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnICON_PATH) + Me.columnMENU_ENTRY = New Global.System.Data.DataColumn("MENU_ENTRY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENU_ENTRY) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnMENU_FORM_ID.AllowDBNull = false + Me.columnFORM_ID.AllowDBNull = false + Me.columnICON_PATH.MaxLength = 1000 + Me.columnMENU_ENTRY.AllowDBNull = false + Me.columnMENU_ENTRY.MaxLength = 50 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_MENU_FORM_ENTRIESRow() As TBPMO_MENU_FORM_ENTRIESRow + Return CType(Me.NewRow,TBPMO_MENU_FORM_ENTRIESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_MENU_FORM_ENTRIESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_MENU_FORM_ENTRIESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanged(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanging(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleted(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleting(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_MENU_FORM_ENTRIESRow(ByVal row As TBPMO_MENU_FORM_ENTRIESRow) + 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 DD_DMSDataSetMenuDesigner = New DD_DMSDataSetMenuDesigner() + 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 = "TBPMO_MENU_FORM_ENTRIESDataTable" + 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 TBPMO_MENU_FORMRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_MENU_FORM As TBPMO_MENU_FORMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_MENU_FORM = CType(Me.Table,TBPMO_MENU_FORMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.GUIDColumn) = value + End Set + End Property + + _ + Public Property MENU_ENTRY() As String + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn),String) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn) = value + End Set + End Property + + _ + Public Property ICON_PATH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ICON_PATH in Tabelle TBPMO_MENU_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_MENU_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_MENU_FORM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsICON_PATHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) + End Function + + _ + Public Sub SetICON_PATHNull() + Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_MENU_FORM_ENTRIESRows() As TBPMO_MENU_FORM_ENTRIESRow() + If (Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID") Is Nothing) Then + Return New TBPMO_MENU_FORM_ENTRIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")),TBPMO_MENU_FORM_ENTRIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_MENU_FORM_ENTRIESRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_MENU_FORM_ENTRIES As TBPMO_MENU_FORM_ENTRIESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_MENU_FORM_ENTRIES = CType(Me.Table,TBPMO_MENU_FORM_ENTRIESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn) = value + End Set + End Property + + _ + Public Property MENU_FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property ICON_PATH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ICON_PATH in Tabelle TBPMO_MENU_FORM_ENTRIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) = value + End Set + End Property + + _ + Public Property MENU_ENTRY() As String + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn),String) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_MENU_FORM_ENTRIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_MENU_FORM_ENTRIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBPMO_MENU_FORMRow() As TBPMO_MENU_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")),TBPMO_MENU_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")) + End Set + End Property + + _ + Public Function IsICON_PATHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) + End Function + + _ + Public Sub SetICON_PATHNull() + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_MENU_FORMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_MENU_FORMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_MENU_FORMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_MENU_FORMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_MENU_FORM_ENTRIESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_MENU_FORM_ENTRIESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_MENU_FORM_ENTRIESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_MENU_FORM_ENTRIESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DD_DMSDataSetMenuDesignerTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_MENU_FORMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_MENU_FORM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MENU_ENTRY", "MENU_ENTRY") + tableMapping.ColumnMappings.Add("ICON_PATH", "ICON_PATH") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_E"& _ + "NTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NUL"& _ + "L) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE)"& _ + " AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHE"& _ + "N) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = "& _ + "@Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL"& _ + "L) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM] ([MENU_ENTRY], [ICON_PATH], [SEQUENCE], [ADDE"& _ + "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@MENU_ENTRY, @ICON_"& _ + "PATH, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ + "ED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICO"& _ + "N_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_"& _ + "WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID"& _ + "] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON"& _ + "_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ("& _ + "[SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([A"& _ + "DDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WH"& _ + "O] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WH"& _ + "EN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))"& _ + ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED"& _ + "_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable = New DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_MENU_FORM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_ENTRY,String) + End If + If (Original_ICON_PATH Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ICON_PATH,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("MENU_ENTRY") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_ENTRY,String) + End If + If (ICON_PATH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ICON_PATH,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal MENU_ENTRY As String, _ + ByVal ICON_PATH As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + If (MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("MENU_ENTRY") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_ENTRY,String) + End If + If (ICON_PATH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ICON_PATH,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + If (Original_MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MENU_ENTRY,String) + End If + If (Original_ICON_PATH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ICON_PATH,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MENU_ENTRY, Original_ICON_PATH, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_MENU_FORM_ENTRIESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_MENU_FORM_ENTRIES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MENU_FORM_ID", "MENU_FORM_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("ICON_PATH", "ICON_PATH") + tableMapping.ColumnMappings.Add("MENU_ENTRY", "MENU_ENTRY") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND "& _ + "([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AN"& _ + "D ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_I"& _ + "CON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original"& _ + "_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original"& _ + "_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANG"& _ + "ED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WH"& _ + "EN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM_ENTRIES] ([MENU_FORM_ID], [FORM_ID], [ICON_PAT"& _ + "H], [MENU_ENTRY], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED"& _ + "_WHEN]) VALUES (@MENU_FORM_ID, @FORM_ID, @ICON_PATH, @MENU_ENTRY, @SEQUENCE, @AD"& _ + "DED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MENU_FORM_ID, "& _ + "FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_"& _ + "ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE]"& _ + " = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO"& _ + "] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID"& _ + ") AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_"& _ + "ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Orig"& _ + "inal_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Or"& _ + "iginal_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Or"& _ + "iginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ("& _ + "[CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHAN"& _ + "GED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ + " MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, A"& _ + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM_ENTRIES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED"& _ + "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_MENU_FORM_ENT"& _ + "RIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MENU_FORM_ID = @MENU_FORM_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable = New DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillBy(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable, ByVal MENU_FORM_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_MENU_FORM_ENTRIES") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_FORM_ID As Integer, ByVal Original_FORM_ID As Integer, ByVal Original_ICON_PATH As String, ByVal Original_MENU_ENTRY As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_FORM_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID,Integer) + If (Original_ICON_PATH Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ICON_PATH,String) + End If + If (Original_MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_MENU_ENTRY,String) + End If + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SEQUENCE,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal MENU_FORM_ID As Integer, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) + If (ICON_PATH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ICON_PATH,String) + End If + If (MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("MENU_ENTRY") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_ENTRY,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal MENU_FORM_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal ICON_PATH As String, _ + ByVal MENU_ENTRY As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_FORM_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) + If (ICON_PATH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ICON_PATH,String) + End If + If (MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("MENU_ENTRY") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_ENTRY,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_MENU_FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_FORM_ID,Integer) + If (Original_ICON_PATH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ICON_PATH,String) + End If + If (Original_MENU_ENTRY Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_MENU_ENTRY,String) + End If + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SEQUENCE,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal MENU_FORM_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal ICON_PATH As String, _ + ByVal MENU_ENTRY As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_FORM_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MENU_FORM_ID, Original_FORM_ID, Original_ICON_PATH, Original_MENU_ENTRY, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBPMO_MENU_FORMTableAdapter As TBPMO_MENU_FORMTableAdapter + + Private _tBPMO_MENU_FORM_ENTRIESTableAdapter As TBPMO_MENU_FORM_ENTRIESTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBPMO_MENU_FORMTableAdapter() As TBPMO_MENU_FORMTableAdapter + Get + Return Me._tBPMO_MENU_FORMTableAdapter + End Get + Set + Me._tBPMO_MENU_FORMTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_MENU_FORM_ENTRIESTableAdapter() As TBPMO_MENU_FORM_ENTRIESTableAdapter + Get + Return Me._tBPMO_MENU_FORM_ENTRIESTableAdapter + End Get + Set + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_MENU_FORMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_MENU_FORMTableAdapter.Connection + End If + If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_MENU_FORMTableAdapter, Me._tBPMO_MENU_FORMTableAdapter.Connection) + Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_MENU_FORMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter, Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then + Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsc b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsd b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsd new file mode 100644 index 0000000..da72e2c --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsd @@ -0,0 +1,301 @@ + + + + + + + + + + + + + + + DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + INSERT INTO [dbo].[TBPMO_MENU_FORM] ([MENU_ENTRY], [ICON_PATH], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@MENU_ENTRY, @ICON_PATH, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM + + + + + + UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICON_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO [dbo].[TBPMO_MENU_FORM_ENTRIES] ([MENU_FORM_ID], [FORM_ID], [ICON_PATH], [MENU_ENTRY], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@MENU_FORM_ID, @FORM_ID, @ICON_PATH, @MENU_ENTRY, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM_ENTRIES + + + + + + UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_MENU_FORM_ENTRIES +WHERE (MENU_FORM_ID = @MENU_FORM_ID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xss b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xss new file mode 100644 index 0000000..5f28270 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xss @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.Designer.vb new file mode 100644 index 0000000..cb9642b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -0,0 +1,3333 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Ä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 DD_ECMAdmin + Inherits Global.System.Data.DataSet + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation + + 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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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 TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set(value As Global.System.Data.SchemaSerializationMode) + 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 DD_ECMAdmin = CType(MyBase.Clone, DD_ECMAdmin) + 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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"), TBPMO_FORM_CONSTRUCTORDataTable) + If (initTable = True) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars() + End If + End If + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"), TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + If (initTable = True) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars() + End If + End If + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DD_ECMAdmin" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DD_ECMAdmin.xsd" + Me.EnforceConstraints = True + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, False) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) + End Sub + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() 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 DD_ECMAdmin = New DD_ECMAdmin() + 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 TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnSEQUENCE_MENU As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnMENU_IMG As Global.System.Data.DataColumn + + Private columnSHORT_TITLE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBPMO_FORM_CONSTRUCTOR" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE_MENU + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENU_IMG + End Get + End Property + + _ + Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORT_TITLE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTORRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As TBPMO_FORM_CONSTRUCTORRow + Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE} + rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) + Return rowTBPMO_FORM_CONSTRUCTORRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTORDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTORDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") + Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE_MENU) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENU_IMG) + Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORT_TITLE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnSEQUENCE_MENU.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSHORT_TITLE.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTORRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + 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 DD_ECMAdmin = New DD_ECMAdmin() + 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 = "TBPMO_FORM_CONSTRUCTORDataTable" + 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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONSTRUCT_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnLEVEL1_SELECT As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn + + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONSTRUCT_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL1_SELECT + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE1 + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE2 + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME1 + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME2 + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_SEARCH + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN1 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN2 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN3 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN4 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN5 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ + ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5} + If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) + End If + rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") + Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") + Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") + Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") + Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") + Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") + Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") + Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") + Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONSTRUCT_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL1_SELECT) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1) + Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME1) + Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME2) + Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) + Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) + Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) + Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) + Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) + Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnCONSTRUCT_ID.AllowDBNull = False + Me.columnFORM_ID.AllowDBNull = False + Me.columnPARENT_ID.AllowDBNull = False + Me.columnLEVEL1_SELECT.AllowDBNull = False + Me.columnSEQUENCE.AllowDBNull = False + Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 + Me.columnSQL_SELECT_EBENE2.AllowDBNull = False + Me.columnSQL_SELECT_EBENE2.MaxLength = 4000 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLUMN_NAME1.AllowDBNull = False + Me.columnCOLUMN_NAME1.MaxLength = 100 + Me.columnCOLUMN_NAME2.AllowDBNull = False + Me.columnCOLUMN_NAME2.MaxLength = 100 + Me.columnWINDREAM_SEARCH.MaxLength = 300 + Me.columnSEARCH_PATTERN1.MaxLength = 50 + Me.columnSEARCH_PATTERN2.MaxLength = 50 + Me.columnSEARCH_PATTERN3.MaxLength = 50 + Me.columnSEARCH_PATTERN4.MaxLength = 50 + Me.columnSEARCH_PATTERN5.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + 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 DD_ECMAdmin = New DD_ECMAdmin() + 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 = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" + 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 TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table, TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_MENU() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property MENU_IMG() As Byte() + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn), Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Byte()) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value + End Set + End Property + + _ + Public Property SHORT_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value + End Set + End Property + + _ + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + End Function + + _ + Public Sub SetFORM_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMENU_IMGNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) + End Function + + _ + Public Sub SetMENU_IMGNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) + End Function + + _ + Public Sub SetSHORT_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONSTRUCT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property LEVEL1_SELECT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn), Boolean) + End Get + Set(value As Boolean) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is" & _ + "t DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull" & _ + ".", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNul" & _ + "l.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu" & _ + "ll.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN" & _ + "ull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLUMN_NAME1() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value + End Set + End Property + + _ + Public Property COLUMN_NAME2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + End Set + End Property + + _ + Public Property WINDREAM_SEARCH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN2() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN3() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN4() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN5() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTORRow) + End Get + Set(value As TBPMO_FORM_CONSTRUCTORRow) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) + End Set + End Property + + _ + Public Function IsSQL_SELECT_EBENE1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) + End Function + + _ + Public Sub SetSQL_SELECT_EBENE1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWINDREAM_SEARCHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) + End Function + + _ + Public Sub SetWINDREAM_SEARCHNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN2Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN3Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN4Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN5Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTORRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DD_ECMAdminTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") + tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (FORM_TITLE, SEQUENC" & _ + "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@FORM_TITLE,@SEQUENCE_" & _ + "MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FORM_TITLE, SEQUENCE_MEN" & _ + "U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM " & _ + "TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET FORM_TITLE = @FORM_TITLE," & _ + " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM" & _ + "G, SHORT_TITLE = @SHORT_TITLE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT G" & _ + "UID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & _ + ", MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO" & _ + ", CHANGED_WHEN, MENU_IMG, SHORT_TITLE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE, String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO, String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") + tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (CONSTRUCT_ID" & _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR" & _ + "CH_PATTERN5)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S" & _ + "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N" & _ + "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH" & _ + "_PATTERN4,@SEARCH_PATTERN5); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE" & _ + "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH" & _ + "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR" & _ + "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 " & _ + "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ + "SELECT, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_SELECT_EBENE1 = @SQ" & _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_" & _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME2 = @CO" & _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER" & _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SEARCH_PATTER" & _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE" & _ + "ARCH_PATTERN5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID" & _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ + "NE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME" & _ + "2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PA" & _ + "TTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_CONSTRUCTOR_DETAIL.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRU" & _ + "CTOR_DETAIL where GUID = @ID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal CHANGED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter + + Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set(value As UpdateOrderOption) + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter + End Get + Set(value As TBPMO_FORM_CONSTRUCTORTableAdapter) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + End Get + Set(value As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set(value As Boolean) + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection + End If + Return Nothing + End Get + Set(value As Global.System.Data.IDbConnection) + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DD_ECMAdmin, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = False) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DD_ECMAdmin) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = False) Then + Return 0 + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ + "t.") + End If + Dim workConnOpened As Boolean = False + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close() + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open() + workConnOpened = True + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = False + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = False + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit() + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback() + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear() + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + row.SetAdded() + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close() + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = True + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return True + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return True + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return True + End If + Return False + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New() + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear() + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsc b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsc new file mode 100644 index 0000000..d5d601b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsc @@ -0,0 +1,63 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsd b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsd new file mode 100644 index 0000000..7072d29 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -0,0 +1,342 @@ + + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM_CONSTRUCTOR +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM_CONSTRUCTOR + (FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE) +VALUES (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); +SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE +FROM TBPMO_FORM_CONSTRUCTOR + + + + + + UPDATE TBPMO_FORM_CONSTRUCTOR +SET FORM_TITLE = @FORM_TITLE, SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IMG, SHORT_TITLE = @SHORT_TITLE +WHERE (GUID = @Original_GUID); +SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL + (CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, + SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5) +VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5); +SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + SELECT TBPMO_FORM_CONSTRUCTOR_DETAIL.* +FROM TBPMO_FORM_CONSTRUCTOR_DETAIL where GUID = @ID + + + + + + + + UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL +SET CONSTRUCT_ID = @CONSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_SELECT, SEQUENCE = @SEQUENCE, + SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_WHO, COLUMN_NAME1 = @COLUMN_NAME1, + COLUMN_NAME2 = @COLUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTERN1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, + SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5 +WHERE (GUID = @Original_GUID); +SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xss b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xss new file mode 100644 index 0000000..9ea8ad1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/DD_ECMAdmin.xss @@ -0,0 +1,26 @@ + + + + + + + + + + + + 345 + 74 + + + 385 + 74 + + + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/ModuleHelperMethods.vb b/app - Kopie/DD-Record-Organiser/ModuleHelperMethods.vb new file mode 100644 index 0000000..c0dc74d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ModuleHelperMethods.vb @@ -0,0 +1,263 @@ +Module ModuleHelperMethods + + Public Enum EnumFormat + [String] = 0 + Currency = 1 + [Decimal] = 2 + End Enum + + Public Function BoolToInt(bool As Boolean) As Integer + ' Wandelt einen Boolean Wert in einen Int um + Return IIf(bool, 1, 0) + End Function + + Public Function IntToBool(int As Integer) As Boolean + If int = 0 Then + Return False + ElseIf int = 1 Then + Return True + Else + Throw New Exception("IntToBool expects an Integer value that is either 0 or 1") + End If + End Function + + Public Function ColorToInt(color As Color) As Integer + Return System.Drawing.ColorTranslator.ToWin32(color) + End Function + + Public Function IntToColor(int As Integer) As Color + Return System.Drawing.ColorTranslator.FromWin32(int) + End Function + + Public Function StrToBool(str As Object) As Boolean + Dim result As Boolean = False + + str = TryCast(str, String) + + Try + result = Convert.ToBoolean(str) + Catch ex As Exception + result = False + End Try + + Return result + End Function + + Public Function ByteArrayToBitmap(bytearray() As Byte) As Bitmap + Return New Bitmap(New System.IO.MemoryStream(bytearray)) + End Function + + Public Function StringToByteArray(ByVal hex As String) As Byte() + Dim NumberChars As Integer = hex.Length + + Dim bytes(NumberChars / 2) As Byte + + For i As Integer = 0 To NumberChars - 1 Step 2 + bytes(i / 2) = Convert.ToByte(hex.Substring(i, 2), 16) + Next + + Return bytes + End Function + + Public Function BitmapToByteArray(bitmap As Bitmap) As Byte() + Dim bytearray As Byte() + + Using stream As New System.IO.MemoryStream + bitmap.Save(stream, bitmap.RawFormat) + bytearray = stream.ToArray() + End Using + + Return bytearray + End Function + + Public Function IsGroupBox(c As Control) + Return c.GetType().Name = "GroupBox" + End Function + + Public Function ParentIsGroupBox(c As Control) + Return c.Parent.GetType().Name = "GroupBox" + End Function + + ''' + ''' Checks if a property exists on an object + ''' + ''' The Object to check + ''' The Property to check for + ''' True, if prop exists + Public Function propExists(ByVal obj As Object, ByVal prop As String) As Boolean + Dim type As Type = obj.GetType + Return type.GetProperty(prop) IsNot Nothing + End Function + + Public Function propExistsWithType(ByVal obj As Object, ByVal prop As String, returnType As System.Type) + Dim type As Type = obj.GetType + Return type.GetProperty(prop, returnType) IsNot Nothing + End Function + + ''' + ''' Gets a ControlID from Control Name + ''' + ''' Control Name + ''' Current Form ID + ''' Control ID + Public Function GetControlID_for_Name(name As String, formid As Integer) As Integer + Try + Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & formid & " and NAME = '" & name & "'" + Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL) + If ID > 0 Then + Return ID + Else + Return -1 + End If + Catch ex As Exception + MsgBox("Error in GetControlID_for_Name:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + + Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer + Try + Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'" + Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL) + If ID > 0 Then + Return ID + Else + Return -1 + End If + Catch ex As Exception + MsgBox("Error in GetControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + + ''' + ''' Gets a Control Name from ControlID + ''' + ''' ControlID + ''' Current Form ID + ''' Control Name + Public Function GetName_for_ControlID(Id As Integer, formid As Integer) As String + Try + Dim SQL = "SELECT NAME FROM TBPMO_CONTROL WHERE FORM_ID = " & formid & " AND GUID = " & Id + Dim Name = ClassDatabase.Execute_Scalar(SQL) + + Return Name + Catch ex As Exception + MsgBox("Error in GetName_for_ControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Public Sub OpenFormInputFor(FormID As Integer, ScreenID As Integer) + CURRENT_FORM_ID = FormID + CURRENT_SCREEN_ID = ScreenID + + Dim frm As New frmFormInput + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + frm.BringToFront() + End Sub + + Public Sub OpenFormCalendar() + Dim frm As New frmCalendar + frm = frmCalendar.Instance() + If My.Settings.User_Calendar_isChild = True Then + frm.MdiParent = frmMain + End If + + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + + Public Sub OpenFormOverview() + Dim frm As New frmForm_Overview + frm = frmForm_Overview.Instance() + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + + Public Sub OpenFormLevelDesigner() + Dim frm As New frmLevel_Designer + frm = frmLevel_Designer.Instance + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + + Dim frm2 As New frmTool_ControlDesigner + frm2 = frmTool_ControlDesigner.Instance + If My.Settings.User_DesignPanels_areChild = True Then + frm2.MdiParent = frmMain + End If + + 'frmMain.tscMain.ContentPanel.Controls.Add(frm2) + frm2.Show() + + Dim frm3 As New frmTool_ControlProperties + frm3 = frmTool_ControlProperties.Instance + If My.Settings.User_DesignPanels_areChild = True Then + frm3.MdiParent = frmMain + End If + 'frmMain.tscMain.ContentPanel.Controls.Add(frm3) + frm3.Show() + End Sub + Public Sub OpenFormConstructor(id As Integer) + CURRENT_CONSTRUCTOR_ID = id + Dim frm As New frmForm_Constructor + ' frm = frmForm_Constructor.Instance() + frm.MdiParent = frmMain + frm.Show() + End Sub + Public Sub OpenTaskmanagement() + Dim frm As New frmTaskmanagement + frm = frmTaskmanagement.Instance() + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + Public Sub OpenDokumentartt() + Dim frm As New frmDokumentart_Konfig + frm = frmDokumentart_Konfig.Instance() + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + Public Sub OpenMenuDesigner() + Dim frm As New frmMenuDesigner + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + Public Sub OpenUserKonfig() + Dim frm As New frmUserKonfig + frm = frmUserKonfig.Instance() + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + + Public Sub OpenImageManager() + Dim frm As New frmQuickAccessManager + 'frm = frmImageManager.Instance() + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + Public Sub OpenObjecttypeConfig() + Dim frm As New frmObjecttypeConfig + frm = frmObjecttypeConfig.Instance() + frm.MdiParent = frmMain + 'frmMain.tscMain.ContentPanel.Controls.Add(frm) + frm.Show() + End Sub + Public Sub OpenWiedervorlage() + Dim frm As New frmWiedervorlage + frm.MdiParent = frmMain + frm.Show() + End Sub + Public Sub OpenLogRecord() + Dim frm As New frmLogRecord + frm = frmLogRecord.Instance() + frm.MdiParent = frmMain + frm.Show() + End Sub +End Module diff --git a/app - Kopie/DD-Record-Organiser/ModuleMySettings.vb b/app - Kopie/DD-Record-Organiser/ModuleMySettings.vb new file mode 100644 index 0000000..753ece8 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ModuleMySettings.vb @@ -0,0 +1,228 @@ +Imports System.IO +Imports System.Xml + +Module ModuleMySettings + Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml") + + Public MyConnectionString As String = "" + Public LogErrorsOnly As Boolean = True + Public Sett_TaskOverviewKeepInFront As Boolean = True + Public Sett_LoadWD_Docs As Boolean = True + Public WDResultListCount As Integer = 300 + Public Sett_ShowQuickMenue As Boolean = True + Public WD_ShowEnitityDocs As Boolean = True + Public WD_ShowDocs As Boolean = False + + Public WD_IndexDeleteDocs As Boolean = False + + Public CURRENT_FILE As String = "" + + Public vWLaufwerk As String = "W" + Public vVERSION_DELIMITER As String = "~" + Public vFILE_DELIMITER As String = "_" + + Public USER_IS_ADMIN = False + Dim rowresult As String = "" + Public Function Settings_Load() + Try + Dim DT As DataTable + 'if file doesn't exist, create the file with its default xml table + If Not File.Exists(ConfigPath) Then + ClassLogger.Add(">> ConfigFile wird erzeugt in: " & ConfigPath, False) + DT = CreateConfigTable() + DT.WriteXml(ConfigPath) + ClassLogger.Add(">> Standardwerte wurden gespeichert.", False) + End If + DT = GetTablefromXML() + If DT Is Nothing Then + MsgBox("Konfiguration konnte nicht geladen werden. Check LogFile!", MsgBoxStyle.Critical) + Return False + End If + For Each Row As DataRow In DT.Rows + rowresult &= Row.Item("ConfigName") + Select Case Row.Item("ConfigName") + Case "MyConnectionString" + Dim connstring As String + 'Den ConnectonString mit verschlüsseltem PW laden + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.ConnectionString = Row.Item("Value") + If Not csb.ConnectionString = "" Then + If csb.ConnectionString.Contains("Password=") Then + 'sa- + 'Jetzt das Passwort entschlüsseln + Dim PWplainText As String + Dim wrapper As New ClassEncryption("!35452didalog=") + ' DecryptData throws if the wrong password is used. + Try + PWplainText = wrapper.DecryptData(csb.Password) + connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText) + Catch ex As Exception + ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False) + connstring = "" + End Try + + Else + 'Windows-Auth + connstring = Row.Item("Value").ToString + End If + + MyConnectionString = connstring + Else + MyConnectionString = "" + End If + + Case "LogErrorsOnly" + LogErrorsOnly = CBool(Row.Item("Value")) + Case "Sett_TaskOverviewKeepInFront" + Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value")) + Case "Sett_LoadWD_Docs" + Sett_LoadWD_Docs = CBool(Row.Item("Value")) + Case "WDResultListCount" + If Row.Item("Value") = String.Empty Then + WDResultListCount = 300 + Else + WDResultListCount = CInt(Row.Item("Value")) + End If + Case "Sett_ShowQuickMenue" + Sett_ShowQuickMenue = CBool(Row.Item("Value")) + Case "WD_ShowEnitityDocs" + WD_ShowEnitityDocs = CBool(Row.Item("Value")) + Case "WD_IndexDeleteDocs" + WD_IndexDeleteDocs = CBool(Row.Item("Value")) + Case "WD_ShowDocs" + WD_ShowDocs = CBool(Row.Item("Value")) + End Select + Next + 'update 1.1 + If rowresult.Contains("WD_ShowDocs") = False Then + Dim newRow As DataRow = DT.NewRow() + newRow("ConfigName") = "WD_ShowDocs" + newRow("Value") = "False" + DT.Rows.Add(newRow) + DT.WriteXml(ConfigPath) + End If + Catch ex As Exception + MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add("Error in LoadMyConfig: " & ex.Message, True) + Return False + End Try + Return True + + End Function + Private Function GetTablefromXML() + Try + Dim DS As New DataSet + DS.ReadXml(ConfigPath) + Return DS.Tables(0) + Catch ex As Exception + MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message & vbNewLine & "ConfigPath: " & vbNewLine & ConfigPath, MsgBoxStyle.Critical) + ClassLogger.Add("Error in GetTablefromXML: " & ex.Message, True) + ClassLogger.Add(">> ConfigPath: " & ConfigPath, False) + Return Nothing + End Try + + End Function + Private Function CreateConfigTable() As DataTable + Try + ' Create sample Customers table, in order + ' to demonstrate the behavior of the DataTableReader. + Dim table As New DataTable + table.TableName = "MyConfig" + + ' Create two columns, ID and Name. + Dim idColumn As DataColumn = table.Columns.Add("ID", _ + GetType(System.Int32)) + + idColumn.AutoIncrement = True + idColumn.AutoIncrementSeed = 0 + idColumn.AutoIncrementStep = 1 + table.Columns.Add("ConfigName", GetType(System.String)) + table.Columns.Add("Value", GetType(System.String)) + 'Set the ID column as the primary key column. + table.PrimaryKey = New DataColumn() {idColumn} + Dim newRow As DataRow = table.NewRow() + newRow("ConfigName") = "MyConnectionString" + newRow("Value") = "" + table.Rows.Add(newRow) + Dim newRow1 As DataRow = table.NewRow() + newRow1("ConfigName") = "LogErrorsOnly" + newRow1("Value") = "True" + table.Rows.Add(newRow1) + Dim newRow2 As DataRow = table.NewRow() + newRow2("ConfigName") = "Sett_TaskOverviewKeepInFront" + newRow2("Value") = "True" + table.Rows.Add(newRow2) + Dim newRow3 As DataRow = table.NewRow() + newRow3("ConfigName") = "Sett_LoadWD_Docs" + newRow3("Value") = "True" + table.Rows.Add(newRow3) + Dim newRow4 As DataRow = table.NewRow() + newRow4("ConfigName") = "WDResultListCount" + newRow4("Value") = "300" + table.Rows.Add(newRow4) + Dim newRow5 As DataRow = table.NewRow() + newRow5("ConfigName") = "Sett_ShowQuickMenue" + newRow5("Value") = "True" + table.Rows.Add(newRow5) + Dim newRow6 As DataRow = table.NewRow() + newRow6("ConfigName") = "WD_ShowEnitityDocs" + newRow6("Value") = "True" + table.Rows.Add(newRow6) + Dim newRow7 As DataRow = table.NewRow() + newRow7("ConfigName") = "WD_IndexDeleteDocs" + newRow7("Value") = "False" + table.Rows.Add(newRow7) + Dim newRow8 As DataRow = table.NewRow() + newRow8("ConfigName") = "WD_ShowDocs" + newRow8("Value") = "False" + table.Rows.Add(newRow8) + table.AcceptChanges() + ClassLogger.Add(">> Tabelle wurde erzeugt...", False) + Return table + Catch ex As Exception + MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + Public Function SaveMySettingsValue(name As String, value As String) + Try + Dim DT As DataTable + DT = GetTablefromXML() + If Not DT Is Nothing Then + For Each Row As DataRow In DT.Rows + If Row.Item("ConfigName") = name Then + Row.Item("Value") = value + End If + Next + DT.AcceptChanges() + DT.WriteXml(ConfigPath) + Else + MsgBox("Setting konnte nicht gespeichert werden! Prüfen Sie dei logfile.", MsgBoxStyle.Critical) + End If + + Catch ex As Exception + MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + + End Function + Public Function Settings_LoadBasicConfig() + Try + ClassDatabase.Init() + Dim sql As String = "select * from tbdd_Modules where NAME = 'Record-Organizer'" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + If DT.Rows.Count = 1 Then + vWLaufwerk = DT.Rows(0).Item("STRING1") + vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER") + vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER") + Else + Return False + End If + Catch ex As Exception + MsgBox("Error in Settings_LoadBasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + End Function +End Module diff --git a/app - Kopie/DD-Record-Organiser/ModuleRuntimeVariables.vb b/app - Kopie/DD-Record-Organiser/ModuleRuntimeVariables.vb new file mode 100644 index 0000000..7a20ce8 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/ModuleRuntimeVariables.vb @@ -0,0 +1,32 @@ +Module ModuleRuntimeVariables + Public CtrlBuilder As ClassControlBuilder + Public CtrlCommandUI As ClassControlCommandsUI + + ' Diese Werte müssen später zur Laufzeit geladen werden + Public CURRENT_FORM_ID As Integer + Public CURRENT_FORM_TYPE As Integer + Public CURRENT_PARENTID As Integer + + Public CURRENT_ENTITYSTRING As String = "" + Public CURRENT_ENTITYSQL As String + + Public CURRENT_SCREEN_ID As Integer = 1 + Public CURRENT_CONTROL_ID As Integer + Public CURRENT_RECORD_ID As Integer + Public CURRENT_TASK_ID As Integer + + Public CURRENT_CONSTRUCTOR_ID As Integer = 1 + Public CURRENT_FILEID As Integer + Public CURRENT_FILENAME As String + + Public CURRENT_FORMVIEW_ID As Integer + Public CURRENT_MASTER_FORM_ID As Integer + Public CURRENT_FILEIN_WD As String + + Public NEW_RECORD_ID As Integer + + Public LOGPATH As String + + Public INTEGER1 As Integer + Public STRING1 As String +End Module diff --git a/app - Kopie/DD-Record-Organiser/My Project/Application.Designer.vb b/app - Kopie/DD-Record-Organiser/My Project/Application.Designer.vb new file mode 100644 index 0000000..a66ca65 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34014 +' +' 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.DD_Record_Organiser.frmMain + End Sub + End Class +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/My Project/Application.myapp b/app - Kopie/DD-Record-Organiser/My Project/Application.myapp new file mode 100644 index 0000000..5907301 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmMain + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/My Project/AssemblyInfo.vb b/app - Kopie/DD-Record-Organiser/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..e1334c1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/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 mit einer Assembly verknüpft sind. + +' Die 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 die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/app - Kopie/DD-Record-Organiser/My Project/Resources.Designer.vb b/app - Kopie/DD-Record-Organiser/My Project/Resources.Designer.vb new file mode 100644 index 0000000..13cf7fa --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/Resources.Designer.vb @@ -0,0 +1,1353 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + 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("DD_Record_Organiser.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _005_Task_32x42_72() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("005_Task_32x42_72", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _112_RefreshArrow_Blue_24x24_72() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("112_RefreshArrow_Blue_24x24_72", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _112_RefreshArrow_Blue_24x24_721() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("112_RefreshArrow_Blue_24x24_721", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _138_PushPin_32x42_72() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("138_PushPin_32x42_72", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _1532_Flag_Blue() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("1532_Flag_Blue", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property action_add_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("action_add_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property action_add_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("action_add_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property action_Cancel_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("action_Cancel_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property action_Cancel_16xLG1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("action_Cancel_16xLG1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property add1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("add1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property AddMark_10580() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("AddMark_10580", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property AddressEnvelope_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("AddressEnvelope_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property AddTable_5632() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("AddTable_5632", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property application_form() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("application_form", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_Forward_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_Forward_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_left() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_left", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_Next_16xLG_color() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_Next_16xLG_color", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_refresh() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_refresh", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_right() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_right", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_switch() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_switch", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property benutzer3() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("benutzer3", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property brainpool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("brainpool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property brick() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("brick", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property brick_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("brick_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bricks() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bricks", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bug_edit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bug_edit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bug_edit1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bug_edit1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property calendar() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("calendar", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property calendar_add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("calendar_add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Checkbox() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Checkbox", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property CheckBox_669() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("CheckBox_669", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Close_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Close_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property cmb() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("cmb", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property color_wheel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("color_wheel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ComboBox_672() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ComboBox_672", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Configuredatasetwithwizard_8450() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Configuredatasetwithwizard_8450", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_connect() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_connect", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_delete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_delete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_edit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_edit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_error() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_error", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_gear() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_gear", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_go1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_go1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_key() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_key", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_lightning() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_lightning", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_link() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_link", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_refresh() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_refresh", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_save() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_save", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_table() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_table", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property DateOrTimePicker_675() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("DateOrTimePicker_675", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property delete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("delete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Delete1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Delete1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property dtp() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("dtp", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property dtp1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("dtp1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Einstellungen3() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Einstellungen3", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Einstellungen5() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Einstellungen5", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Einstellungen6() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Einstellungen6", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property email_edit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("email_edit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Excel_25ixel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Excel_25ixel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property eye() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("eye", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property f1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("f1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property f2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("f2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property f3() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("f3", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property f5() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("f5", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property f6() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("f6", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Files_7954() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Files_7954", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Filter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Filter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property FilteredObject_13400_16x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("FilteredObject_13400_16x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property flag_green() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("flag_green", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_Open_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_Open_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_Open_32xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_Open_32xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_Open_32xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_Open_32xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property grid_Data_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("grid_Data_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property GroupBox_680() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("GroupBox_680", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property handdrawn_arrow_right_green() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("handdrawn_arrow_right_green", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property handdrawn_user_admin() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("handdrawn_user-admin", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Home_5699_32() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Home_5699_32", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property HomeHS() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("HomeHS", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ico6078() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico6078", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ico858() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico858", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ImageListControl_683() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ImageListControl_683", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property key_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("key_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Label_684() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Label_684", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property lbl() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("lbl", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property lightbulb() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("lightbulb", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Link() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Link", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ListBox_686_24() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ListBox_686_24", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Men1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Men1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Men2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Men2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Men3() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Men3", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Men4() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Men4", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Men5() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Men5", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Men6() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Men6", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Monitor_Screen_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Monitor_Screen_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property note_delete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("note_delete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property page_copy() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("page_copy", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property page_excel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("page_excel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property page_refresh() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("page_refresh", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property page_white_office() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("page_white_office", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Property_501() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Property_501", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property PropertyGridEditorPart_6041() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("PropertyGridEditorPart_6041", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property RadioButton_701() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("RadioButton_701", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property refresh_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("refresh_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save_16xLG1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save_16xLG1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property shield_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("shield_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property table() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("table", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Table_748() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Table_748", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property table_add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("table_add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property table_refresh() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("table_refresh", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property table_relationship() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("table_relationship", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Task_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Task_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property TextBox_708() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("TextBox_708", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property txt() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("txt", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property user_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("user_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property user_green() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("user_green", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property user_suit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("user_suit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property userAccounts() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("userAccounts", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property UserInterfaceEditor_5845() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("UserInterfaceEditor_5845", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property UserInterfaceEditor_5845_32x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("UserInterfaceEditor_5845_32x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property WMI_Task_21x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("WMI_Task_21x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Works_Finished__nonXP_() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Works Finished (nonXP)", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/My Project/Resources.resx b/app - Kopie/DD-Record-Organiser/My Project/Resources.resx new file mode 100644 index 0000000..5d154ef --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/Resources.resx @@ -0,0 +1,508 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\page_white_office.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\note_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\PropertyGridEditorPart_6041.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\brick.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Men3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Filter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_Open_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\user_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Property_501.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bug_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\table_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\WMI_Task_21x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Label_684.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Men4.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\color_wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\dtp1.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\application_form.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\UserInterfaceEditor_5845.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ListBox_686_24.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ico6078.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_switch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\TextBox_708.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\calendar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\table_relationship.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Configuredatasetwithwizard_8450.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Works Finished (nonXP).ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\005_Task_32x42_72.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\138_PushPin_32x42_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\GroupBox_680.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Men6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\UserInterfaceEditor_5845_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\f6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\f1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\112_RefreshArrow_Blue_24x24_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\brick_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\RadioButton_701.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\shield_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_Next_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Delete1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_Open_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bug_edit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\lightbulb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\eye.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ImageListControl_683.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\userAccounts.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\112_RefreshArrow_Blue_24x24_72.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ico858.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\grid_Data_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\AddMark_10580.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\handdrawn_user-admin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Einstellungen3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\CheckBox_669.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Monitor_Screen_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Men2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\HomeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\f2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bricks.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\calendar_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Task_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\user_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ComboBox_672.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\AddressEnvelope_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\cmb.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\FilteredObject_13400_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Men1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\action_Cancel_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/My Project/Settings.Designer.vb b/app - Kopie/DD-Record-Organiser/My Project/Settings.Designer.vb new file mode 100644 index 0000000..5da050d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/Settings.Designer.vb @@ -0,0 +1,204 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Ä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 "Funktion zum automatischen Speichern von My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal 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 ReadOnly Property DD_DMSConnectionString() As String + Get + Return CType(Me("DD_DMSConnectionString"),String) + End Get + End Property + + _ + Public Property WD_ENTITYIMP_EXCLUDE() As String + Get + Return CType(Me("WD_ENTITYIMP_EXCLUDE"),String) + End Get + Set + Me("WD_ENTITYIMP_EXCLUDE") = value + End Set + End Property + + _ + Public Property WD_ENTITYIMP_FILTER() As String + Get + Return CType(Me("WD_ENTITYIMP_FILTER"),String) + End Get + Set + Me("WD_ENTITYIMP_FILTER") = value + End Set + End Property + + _ + Public Property WD_ENTITYIMP_IMPPATH() As String + Get + Return CType(Me("WD_ENTITYIMP_IMPPATH"),String) + End Get + Set + Me("WD_ENTITYIMP_IMPPATH") = value + End Set + End Property + + _ + Public Property WD_ENTITYIMP_TARGETPATH() As String + Get + Return CType(Me("WD_ENTITYIMP_TARGETPATH"),String) + End Get + Set + Me("WD_ENTITYIMP_TARGETPATH") = value + End Set + End Property + + _ + Public Property WD_ENTITYIMP_SAFETYPATH() As String + Get + Return CType(Me("WD_ENTITYIMP_SAFETYPATH"),String) + End Get + Set + Me("WD_ENTITYIMP_SAFETYPATH") = value + End Set + End Property + + _ + Public Property WD_ENTITYIMP_OBJECTTYPE() As String + Get + Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"),String) + End Get + Set + Me("WD_ENTITYIMP_OBJECTTYPE") = value + End Set + End Property + + _ + Public Property WD_INDEXDOKART_SAVE() As String + Get + Return CType(Me("WD_INDEXDOKART_SAVE"),String) + End Get + Set + Me("WD_INDEXDOKART_SAVE") = value + End Set + End Property + + _ + Public Property User_Calendar_isChild() As Boolean + Get + Return CType(Me("User_Calendar_isChild"),Boolean) + End Get + Set + Me("User_Calendar_isChild") = value + End Set + End Property + + _ + Public Property User_DesignPanels_areChild() As Boolean + Get + Return CType(Me("User_DesignPanels_areChild"),Boolean) + End Get + Set + Me("User_DesignPanels_areChild") = value + End Set + End Property + + _ + Public Property Constructor_DetailsSplitter() As Integer + Get + Return CType(Me("Constructor_DetailsSplitter"),Integer) + End Get + Set + Me("Constructor_DetailsSplitter") = value + End Set + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DD_Record_Organiser.My.MySettings + Get + Return Global.DD_Record_Organiser.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/app - Kopie/DD-Record-Organiser/My Project/Settings.Settings b/app - Kopie/DD-Record-Organiser/My Project/Settings.Settings new file mode 100644 index 0000000..d022b02 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/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=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=ddd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=ddd + + + *.db + + + *.* + + + + + + + + + + + + + + + + + + True + + + True + + + 764 + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/My Project/app.manifest b/app - Kopie/DD-Record-Organiser/My Project/app.manifest new file mode 100644 index 0000000..1dcd8c6 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/app.manifest @@ -0,0 +1,58 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/app - Kopie/DD-Record-Organiser/My Project/licenses.licx b/app - Kopie/DD-Record-Organiser/My Project/licenses.licx new file mode 100644 index 0000000..6b26d80 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/licenses.licx @@ -0,0 +1,14 @@ +DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraWizard.WizardControl, DevExpress.XtraWizard.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.VGridControl, DevExpress.XtraVerticalGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app - Kopie/DD-Record-Organiser/My Project/licenses.licx.bak b/app - Kopie/DD-Record-Organiser/My Project/licenses.licx.bak new file mode 100644 index 0000000..12a5744 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/My Project/licenses.licx.bak @@ -0,0 +1 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v14.1, Version=14.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app - Kopie/DD-Record-Organiser/Resources/005_Task_32x42_72.png b/app - Kopie/DD-Record-Organiser/Resources/005_Task_32x42_72.png new file mode 100644 index 0000000000000000000000000000000000000000..7165c1650222e09c438fee148019a425c6c0f420 GIT binary patch literal 1638 zcmV-s2ATPZP)z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ>+(|@1RCwB~m|JWdcNNBe=Rdn+@6Bs_cWvX?Y3#ZUPBapz?&2hnA$NQk1Gu(l!N! z(7LT#YA5&>Uv|B|toJ%Q|343FJL|-kbvz@DwA$5v^UZg@@0>Fu#u&UhethbbdhNo6 z=lc5kj$a=cIrsX-i_d$7EwvK;`q5CLIpm8M9Y>4uBO*YV{6f|wortmzezxO_Pd)X_ zJJ+r~F)=Z5{y}aD!1dPEcxkOqIaOm-8W$*n1O~%!YN(sSWFq_F_Ldx<{E*0lK zc=I2NA6-68F*Ad|&Ih6ZBNm3Cnev5yPnw?<9P_`ec=)!v6H7@rV5^_{L_g*_rG}+6 z7!5uff{_^Q4}1m*$H*PC@$wII)FgD z2@Z9|zB@}G4V>B)QL$9WXUTnaZmD4|Z4qvJ2%l}^m@M}me~4&%7usQEiZ?^ku(@z|EAHpY~-c2H2v3V(a! z5=tq~o_mF}Xa3GiZWK`#jBHUk5scOt0{r0Df8bLC4+8MzzFs{#eiJK#*)>tX24<$h{t2QYB{df z6)-P|8o*TDcPdk0b}6^(zSzRM^>3y=6xeBsD`rsuPiU0rka zeKk}bRprv1C|W2K`Q`cd`KJ@Z4u!aqUdeGtW{B;z|hPRrx#*m zqj6%nalUgXLRJNMcQjc^y#cK~Og(pz`ibN`zq#Qf-P}owo95ZX0w<0fMST8sw(_h! zRj}^#s7S?wuDoNIYuDlXW#6He5)%!*F7EU+T5zG@T~MAm1(~MoXQkP zE@gTCzgfmg@N_KAr}s3H(-moSxx@=oJ~F{ZqBBXp6j-FCy@$cE)E$$_umUK!yIGVf8*G}vw+}zBb4YzhLJt`HZ zX5~y~3Us$M@uSQPe_fhoCfv%Omjn3Up5)<#j~A0+a-|Yo%QyIDUx3MiP#jHeGV4Km zM%1jxDwU6`so&QeB=Yt!zn^s(_qXtu=`iOf7a4c!u=0~U8B25Qfd{ecgIhw2c$#`y zQ?}EILp2Wk3ze-h`^@^?@UyanW zR2bqXS8~iRJ4CG_-*_ZQZ_j>2sqOu*JyrCU18$#8BJgy77ju~p`R(h|ob0xFtiPYZ z@wsjHQB(UmS|iaaz|AJp51%~D-mu|lcRSr3Z8dLK#(3DCpi-iZ6s(2cQ;7+ zW~uiqOd^$Ywfu>@-0(NVRuj>rE802tArXpZfcMgRZ+07*qoM6N<$fz@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ<=}AOERCwC7m1}GiRUF07+no1#5lp-oLJ|e~jA3?!rs>Y;9Ot6v=i;sZ8f*?kWiCU@{#a4`p zXlqTe4QqG%*xlKgotf*`66tnZ<4x|T`~RQcy}9SyODLsS%yeWI`)=6!{G0RDVX=UM zKvQc|zd`d>G`1$IBS>+i<&^MQWwlwd+nX&2l0CiZmVha+sCw+RE+s9aV6HxfQkqoQ z+ELpZj%*@Tzbsw3gx<=I-?wRT^6@7}}i6^%6s%fz&* zB0e#y(nLJQ@d6>TOEx73PZK6XH4Ro=gC128wt2mUcRt<)pgAevy7~><%N}{XAv|;; zI`YZk<5L$tKWT=?F4BZH#Sj*b>>_{e?i0NlIKfmkP?LdVCcs_#cwoHm=xLziYQfo- z;zU`l-`5{nx~=mZCplML%XXfnb#?xpaa#1o2)+L0@2G#vD`zu&%eN9>$-Ftpuf2U! z`CU8D0LYlj*UQ@XAFMd=8};A4=Zrhg-^>7V%0aU^+=T!#lQony+|%LAE?y5nOeK)> z=HS1MlmSwDK5s-P<%Bvjxgf%PM-)AILdNoj&DGBy|K9DtsV!M;{+i7@1UW4)rN@pF z6~%jV(|tESee8$8TYu2N!Jnw0q}9$TzTue{OLx6L$`IndO6Olsgx$3ytFHO}iboH% zDMjTzB8d=OPW=7ZsR3;!{PpZwXJ!F$R|HmbHS3<@S8uDo^6L7XmT89PyaP^D+~w^D z&O3@L3yHvi2pk}aNZ4JNxHvF6{mtojX>>Bkasn&mm->+7uQok}l`43MXW#ku&z@bk zT9i)B31A4z`C6X*AiHtP9bimEIT16Q1VgZal@t(x0Sv&@6G+4&(5I$gL{vCN2ZLkX zJJ!agLtoA7BEjy+sodRrUM;B1ih%(uNgx6bPzuX1U}|v~u^0?h2hrjXe);0p;E_G; zkO*I530(AuK3mVCXumSOm<>G%!4PMLTz_H~8gyow{KREjS1H z5A5reH$J=;nuTb0$IF9}fTk literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_721.png b/app - Kopie/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_721.png new file mode 100644 index 0000000000000000000000000000000000000000..e7457bf3b4dd5b9cd7a17fd758a156d74d2f149e GIT binary patch literal 1139 zcmV-(1dRKMP)z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ<=}AOERCwC7m1}GiRUF07+no1#5lp-oLJ|e~jA3?!rs>Y;9Ot6v=i;sZ8f*?kWiCU@{#a4`p zXlqTe4QqG%*xlKgotf*`66tnZ<4x|T`~RQcy}9SyODLsS%yeWI`)=6!{G0RDVX=UM zKvQc|zd`d>G`1$IBS>+i<&^MQWwlwd+nX&2l0CiZmVha+sCw+RE+s9aV6HxfQkqoQ z+ELpZj%*@Tzbsw3gx<=I-?wRT^6@7}}i6^%6s%fz&* zB0e#y(nLJQ@d6>TOEx73PZK6XH4Ro=gC128wt2mUcRt<)pgAevy7~><%N}{XAv|;; zI`YZk<5L$tKWT=?F4BZH#Sj*b>>_{e?i0NlIKfmkP?LdVCcs_#cwoHm=xLziYQfo- z;zU`l-`5{nx~=mZCplML%XXfnb#?xpaa#1o2)+L0@2G#vD`zu&%eN9>$-Ftpuf2U! z`CU8D0LYlj*UQ@XAFMd=8};A4=Zrhg-^>7V%0aU^+=T!#lQony+|%LAE?y5nOeK)> z=HS1MlmSwDK5s-P<%Bvjxgf%PM-)AILdNoj&DGBy|K9DtsV!M;{+i7@1UW4)rN@pF z6~%jV(|tESee8$8TYu2N!Jnw0q}9$TzTue{OLx6L$`IndO6Olsgx$3ytFHO}iboH% zDMjTzB8d=OPW=7ZsR3;!{PpZwXJ!F$R|HmbHS3<@S8uDo^6L7XmT89PyaP^D+~w^D z&O3@L3yHvi2pk}aNZ4JNxHvF6{mtojX>>Bkasn&mm->+7uQok}l`43MXW#ku&z@bk zT9i)B31A4z`C6X*AiHtP9bimEIT16Q1VgZal@t(x0Sv&@6G+4&(5I$gL{vCN2ZLkX zJJ!agLtoA7BEjy+sodRrUM;B1ih%(uNgx6bPzuX1U}|v~u^0?h2hrjXe);0p;E_G; zkO*I530(AuK3mVCXumSOm<>G%!4PMLTz_H~8gyow{KREjS1H z5A5reH$J=;nuTb0$IF9}fTk literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/138_PushPin_32x42_72.png b/app - Kopie/DD-Record-Organiser/Resources/138_PushPin_32x42_72.png new file mode 100644 index 0000000000000000000000000000000000000000..93e4eca059e32bbb17f39e7f8b76ab97a218b81a GIT binary patch literal 1169 zcmV;C1aA9@P)z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ=2T4RhRCwCdm|19?RTRg6clP-vlUXv^CJmCB8dJpJ zlPGCLT&U72twN!KmV)4upeO;ChqS0r7m9f*SWxk$Pg02wA`(>8E+|xml4voB8Iv^A z$#k}Fo$vZE-_$YGB$dw63x^Be@Xh?@oc}rJo-3r3+ziXbO|m@o{sHmGt0AIY2MNda zQOsSUu=_k{+z_4eoX z4kW=eK)4{DgucNy#I9HNG!#@kH4zhg#_tvT-${ynZ;GqWpFVyc(awq9_HcMOu0Zt@ zX+yNzL!{$~c;H2E-8Cv6J3L6ZW1Lveqa?N{=p~)p%6YN>-Q$E450mISfL?Sj=5mC* zE(j~IvI?#;xI7T;8X=t;1*Yl-DxNsnPQ2#?{lhznb%2zR&-w8BM-gI_a0dheQ1Zg^ zJU{<=iHEuqe3{9Dq~cwV54?dpHw*gzLLZLpq;K0jcWmwF`Jqmp8Hj`810@O_y%6vN z7WjRj8=O3IhJv9(Bm}YyrUqI8%4W8{p$~+Ih{n9TlWh#dgP4}&!sQTWRTW$|lr7LT z&<*egVD5K*&~@leg0P{Gh0BWzSmqb?1$BE=yly)Y^twDkfJ-tG4{`z@4O^Wj(|P5)`4pP2p}1X?Eel23(AiUgEM%aNJGTb1F};55 zwZoyoq1z5@@9~cBNl$ANOWMMZ*jxG(FYdC`f-g`hS$6q+Qw}9pa@j-YPJjRG z#hIC7!ASf=Vz&&j^w(#pwn!A)0>gk}4vJY&ODSyY;~REvxSm7F?#K5IPoDbpf)FAC z1b__N@889?9d8p&4q@A1l%SZMMRG_^9+_$i=)YbRA_TMnl0c-Nts_t3a`%EO&+^5O zSegA*N~tv+)PW5Goq!IwoyT^yhyiISWw{kj_@-mNYyA&EX_ZmLc1+fIvARpZFNE+k z9aKtbJ06uaz_q&o{H-$FY3q2@cDx#B1yJ4bYAxVe3p$C{oUE_Oe&uSZ`fmd;fHGi9 zDXpeVp+bmuN00Ufz*VyVQ*ILAMoytcN3U!kgQ~e}YHwrbdLe{xYO2r4c&o-CYh_Sv z45m{(8h-)d01N&Z<$N{Kv)AsM(W_|0C7A>6ccATSNTa-wRvU6j=0NC9#z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ=2T4RhRCwCdm|19?RTRg6clP-vlUXv^CJmCB8dJpJ zlPGCLT&U72twN!KmV)4upeO;ChqS0r7m9f*SWxk$Pg02wA`(>8E+|xml4voB8Iv^A z$#k}Fo$vZE-_$YGB$dw63x^Be@Xh?@oc}rJo-3r3+ziXbO|m@o{sHmGt0AIY2MNda zQOsSUu=_k{+z_4eoX z4kW=eK)4{DgucNy#I9HNG!#@kH4zhg#_tvT-${ynZ;GqWpFVyc(awq9_HcMOu0Zt@ zX+yNzL!{$~c;H2E-8Cv6J3L6ZW1Lveqa?N{=p~)p%6YN>-Q$E450mISfL?Sj=5mC* zE(j~IvI?#;xI7T;8X=t;1*Yl-DxNsnPQ2#?{lhznb%2zR&-w8BM-gI_a0dheQ1Zg^ zJU{<=iHEuqe3{9Dq~cwV54?dpHw*gzLLZLpq;K0jcWmwF`Jqmp8Hj`810@O_y%6vN z7WjRj8=O3IhJv9(Bm}YyrUqI8%4W8{p$~+Ih{n9TlWh#dgP4}&!sQTWRTW$|lr7LT z&<*egVD5K*&~@leg0P{Gh0BWzSmqb?1$BE=yly)Y^twDkfJ-tG4{`z@4O^Wj(|P5)`4pP2p}1X?Eel23(AiUgEM%aNJGTb1F};55 zwZoyoq1z5@@9~cBNl$ANOWMMZ*jxG(FYdC`f-g`hS$6q+Qw}9pa@j-YPJjRG z#hIC7!ASf=Vz&&j^w(#pwn!A)0>gk}4vJY&ODSyY;~REvxSm7F?#K5IPoDbpf)FAC z1b__N@889?9d8p&4q@A1l%SZMMRG_^9+_$i=)YbRA_TMnl0c-Nts_t3a`%EO&+^5O zSegA*N~tv+)PW5Goq!IwoyT^yhyiISWw{kj_@-mNYyA&EX_ZmLc1+fIvARpZFNE+k z9aKtbJ06uaz_q&o{H-$FY3q2@cDx#B1yJ4bYAxVe3p$C{oUE_Oe&uSZ`fmd;fHGi9 zDXpeVp+bmuN00Ufz*VyVQ*ILAMoytcN3U!kgQ~e}YHwrbdLe{xYO2r4c&o-CYh_Sv z45m{(8h-)d01N&Z<$N{Kv)AsM(W_|0C7A>6ccATSNTa-wRvU6j=0NC9#z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ?FG)l}RCwCdnrnz$XBo$T@43yH+wSb_ZuXXRv$bMP zBt%+8{GcFSpi)rOeDG3(Le)ZxMT@QVL$MWXh-q2K2LrYAlTsA|)uKU!2qIXpQes^i zlbY0Qvh8ekc4yDbxxSAd&WTLd+3jw!Gdp?VaL%0fT%P~?{{PSAJ)=Z~o4Fa>d=qxAYb|_hW#GArI(Q8SMtk8|9(Ty?3D)8=YI4RX7(MYGFrxKK;Xg3qDSrW z_vGYb$NQQ>>aK?;tcmH_+xH(R7aS9G0!{&jcNf{UXI9<)gKzh@2JHMdcJG<4d}h3a zD;h+=Fu}B-I$&+G!N#?_c*j)`c?g2*ke22-~7#p8t|HKGm)gdUB!LVU)1V(ljC=P;SgCQ_5h+muM)ZBR* zq2`wAKzcq&Qab4bL`+Px*nJA+OP`=RK6v|Bm5+`V7_to(1I-`j6V5HW;FiEPQ<_Tx zT7zkW?Q;H~uizL4Qw5h=(Zy@DAc`Rg!S@oPsMb{g>fUD!a>e&rr7|C^=6T=g$RUh|avA0%9$Ux;ZM2L8IP+_?qz^1WgEA5cw%6k<&E2lPoX2 zAH$qR@n^I=C%-%LT5sZj=)Wv`9_N;QCS42DR76@>4mG8G0a|Z>@1;hE&6GY-2w^Zs z96cqcj-A-qWKPS!XnGg^_U7XBkO`wjhcFRdueX>m74wxc%dcMne+9xY(?awjVR*m% z;py``o{fHatiJF<-F*4qSL@S%HG~N_j|Sp6BnShnybEKKupl6-kVFuMzv+hYTLy6A zXU~23Q)-H?3S1;H4d{2OfCn;rz_Z zt&cdi^WYovmrKosOFu2G?yW6}_2}8kAeZbkqWW>1M%ZQxT8&f-Q80(dr5y!eo7TN^ z|2T7~wz&9AqLU|1KL3l_ETF#j%#_68Vb95>?nnzn0kk~uS5p_6BuC}ayoG7vFaC!Mls>nm)qhzWWfJ2Cz6xy-v^q&C~M2;}3SV*4S)Crj)7x z6<`Tyh=^878Mx&UcFlZ>19#nrY2TT8op7EgI>IZzJs}HcqkaLPfGRKuEN4K<+3yyX zGXS`0dP$6MLE<3jdbPLJnpi0{0E_@$${C8;UIWRR%NruH+E)PDKvc5Q>e>UOZM)VI zU`a%}HWSxX6N|_SP}{)xEG5MN%1SAtuK;At2cixD+BcoK>U_Vh%ypuTbm-43rObW< zkb0Z{H@4HUk$I^80U)XR--$x)K&;Fa_Z5Z0%+qW{A=+hLf0G20DTRhEk<0o4*oj;L0tx}wfo*0M*$kS!Im%Qki*l?;l4-L4%!2Y=*K%Akz4jqyU30kH*tE*{r z*xRoj!Ttg3YsD^yoUf6N2JpC-XBK2&uId-m0iZgWX4f9{2|zpQ8eIT@U||5jM*_e$ zD8hdS06%b?b65a4l?4FoKDo~>ssMnX;8{&|lR(=aHiY1^X8O^GOYatQ_MT##oL&>W zismUVwl3xROTx>CYZhSJ%U@y`rJ&kG1P4R_3roQN|Ck}hqc$fF_BSS0mL^wa@2TzY zEVU+ggw4y2hc)kqHrtL{J>7VT;2_NNp&%3CA#^|4h7sHH{k#Wco>7S<$DNMVmBubo zuqsLR9xXv$myz7LDA~D;V_$dx&G>Q3L03?kvshsWvFi*&&nx+4F1%ej5mu>w;hI{# zcO+w;@47jYdntDGBLg^3I6A_G)QuWdCmfB_;A)^9#c39GafX5Q&fNm!11F25ABU5= zbOwEPS4=Tk=JaiNFl2xkxSzWQGm~jso^WkRc7jc7;%jd>xn-$fi;(33hSqYJ%DLPq((%qg`W6p8985tw3oi&FeB&KOu;x)8W2rHw_x zOy-K*mG6DLEqwRmjtBml&qK}pXmr@IHL8ZyzJgR2SjOH{_gA9Y?b=)fUQH}@=-cT} zpLykHjbiee);^7ez{(eW`@W4n$iJqIcHXVnYAA#CA$Rkw0*8FjRh6Cb?#jJnnbykZ zc$2&`ybE_t4Zf7-1k0V5=dMh}Ga8PJpS?CW=y9Zv?ir#}o9i>qt<8X) zEEht2HLwQJv@DoB(f#6Z?(UsIpV|@Vs(_UFHI+j|C~Vme4BuBSuw#@`#%9n<-OOfe z_t-+cNY6ivA+GoM6>6Wzxh8Q?Vw|TJby+{}_`eo6D1yhX=u@B>Y2DbN}&}MGK%h8G?oskx}Khjo+!{(@U1xzK^zUmkl=_rIINuZ2> z)rfTU1_P@UazJpR+8}l5-Rq&f`LBFt5dN7mafh?(fHx{7 zN5z}wilSrB`bB*nNk~R^qB|Lw4Gthx_mzzFBuN8lRx2$4@Tj7$*rg570WjIyq@a6UcRhSGU5nH z9^5yicUP*CTkP+AKVzc7l6`~DE&bq=8tIu`SKJRs5Q{8T-aW3|(@eroS`oQ2IRc1V zN@uAxGjzyCOF*Lfxa*KCYJ}GVrptLf6*ovx+)Z=J)s$-1;$3WRKZECrHA1kf@~tZU z@$M(?_Y=>L*xx0}7HS$X=2mFMrM*3)bh0?YzJyN*?%6-%tTy|+ajfm*zC6s~?hW5J z7aUr@-%ov(@?N6J_+zMNj?=yXv9u1_>?0Chc6pF*rwoZ@y?;4k5HUd`mE>!(vwD?s zk0KMw%exrUEb_6XCP%1K=fL(VEBB*~XP$9fmJwG6-HY-Kt{q)kJ&&m~P`xL|`p~49 zE9w%{_p4bPNDXSZfRK72W&HrQm#TeGklenkLsHxIe_Lz_WTRB;XY0LH_`esb8Z13z z9`CXryO#5~BWzh<{ z3!G%H6D>YX_4eZcdofE7TR~8iJ>y+SYOP}ptzT=A^*YLZ>x+uLa;7BJ2wXpch|(T&6MjsO4~6C zb~^yp#Ti4rO)A$aE{|-~Ni>j0G!~OtFsU_tOqdVDx9@OTrqz~oZ#6hS{kXT8V*;VF zPp=Eos}hJ2%c*5Tebt*$MW-qr?b@&M>!;$#gt7Zqx$4^#`5ap$s89^`JXNnxEQg_q;*4!t7YX) z$PG9S7aGuEwupwQ*s0EiImKMql6LPi+1`!2$gu|DM>KlfDCnCjXu`0YE!Bi5)}Q|& zzw$-mZm0UQz0ff|_3~^Eh?z4NJ+@@x{eBgLFicqa@oJFT&(lH~1tyfw@z2{fk6BOE z9cz2e#YM$T^sra`%-xNjVZo>aMy-`bX38rP5B);SXwnKBXU#tsTCPQoY6}yLheC5Te3tC=N76 zn%1ISJ4+XjT_Z&wwT(zXWtEIpT0YpTfOJf~{E~?IJ|<5V(5=gBQ~0v>P(?5D*otcS zy`IR6U5050?suOj2fpZ6$DJDWT$}uX;9Hq%KUI1ICl|6&>QwcS+3WP*+K6+cRF+XL(PC5)wLy-Z<=f$O!8ZX(y5Aj3VRJ^ z-j2qe7HYiOUw@5{FlYLq&2#&l_jSdF9RE6Eh6p&EjL{P1oT zp3o2HF#$_>Aw_k~D5P$iiV^hErQ#KP&K|MYa}>S7WrZXN+)}ms(d#|YBuQSmik6sL{pFA13>H=wK4{Oo!%Mkn0M#xtL2_^ zF_v^b*{>{;)7m;Fo?~NKEyetd9-hdIA$v&*N{i>E>D;GJ{m8w_)CH8`iA&)$41nWUyhyWOGMWC=fhurzBgwk{P?2WoJ2o+7xER_}x6Y$MQR5el; z%9feE1K@4}cVzi?CL5nQTzsd#XG0utk#?-?8}c?mmC~0w)li=;IW3A6?5DQR3*W5jYuK{Qm7!n^bJ! zXrEB`*T6GDcA*)9qPGXoIYld4vYCoXx1Cd$KaEtfK*I4m;y0NG38lb3z3oBD$zx6W z!5j%k%E}*qLt2M@FL*vW!$^9QJakJ*Yh~tBZEMC2A!glHS1vC}gt&XF;sq^~I-tdQ z%Y?R!im$QYTH4^x<|q-pa6?YDVOMsv2~$BG%P~44OWJw*K8Bsyj9bg%11iDEWXJR; zo7((~tg>qRw9wAop4AoN1R`Uqv23d}fyN))<6JuS>78(}9Y?#qpOjC!5E|cQQi?N= z-xhdZR{nu@Sars8h*2|YRD@g?naY$e(czX8CJKL0@0wFqQ<$=Dc#G%TG8gszh4@|0 zjg2@71p0e6AeEB4H|f{eXU1@oA|OF6WvTh|%B6_AweNH#C1ysPE7+>ej#L?+6QjM1eKYLwFF>nGnKEp zG|Rf@cIBSGZeqlcE12?2@bbpKqC}=-3Ju$sGu0|C;T+EUQ+r=)HHA|SzGYoH{(U_i zshec$wCdw&D#eq(eOictzYDGZwnn2s^gX-!D<_`pj849hUJInx>;sw0<= z;mLiU8vS4OWkpsjt$Xn~!rFx?6z)mmS_}Dt-gbubC5Xo2C(IoTjyq6Wn`#4<7HMNvG)`pYojG>9K zNUa}o=M}TeM#$w%dL#Q&vnbof;f2Epo@e-(y=5hzjMFr_LQ=;WH6O`}mJ(SN!{QAF?0w>m=kycKZ$QDrAxW|B%tjb}^)NrgV`fenSt#*ZC)!90{=^2tOC0c3tS5Y6hW) zNL|+Gbw9Ci-}Nwa#KGv*XlIPCa7!OARd5l#T-I=Q{H0r_ZQtdSI@IOn_KQ3vA>Ek= zmv5i{KwZY!IsOn$?=G>T%t$X9#o|EvmZuQ|~4zHjI>xWX5GLaJ+p+4wS4^=Km0!ci`16?5R)p z@uX5E!|DAyl(OuFt^Wl1O%z*tuRUW)1H{x zR~>O>!DPOZ-ZWwJL8T)x-vpJv-AAI%s(#wI_~<=g5a!`uHn;jP!PXgf{I)hyLr;{h zrdR*P3C0uSRJT~BbVeB53QAyI!}&{0ml2U?3ewVJCugrA61WIG#N)jwHLZhvh3`vW znsZv#DD#x}eC%AHfa8BC>j({Sq%yinz0FT`)`6ggi%)yXLhn{P85x^i6fF;T5;J9* zIfImFC+8oNx^wp8*M&5ss8GQE3HI$BYV$;lVpb}kY}+Ujb;rcr>e_-{dqB2MMAka@ zN?N+^yj{7x(ueBiE3g_*@(4@5 z^9X%mU**cE)IwE8s&iXsTi6$po&JrhPn=Q9cwbF&SiiM@x}+&n&22ZVoQ|r8o*z3E ztL5ojqke~Br9^?&5=ZsXCWA7_fF=mIcn7xz{ff?;}U(TwZ(2Q2|V?l!lj6eBrzicz~HOlw+ z_!Y00SBJ%<@F-LW*3RNeW%%?6{MZ3`8pVL)rj*&`m_tU?|ZgaQZ^cM=YF7S>*yv>w0bxVw1k(# zn>4F_)FO?A8B|rU46;xXZqQSXbzurZZ26}n-5*Gv&M zsMu7*mKcP`vZAx|>^tdch8=z($g4+{z88|Ja4$@TJaR?QBB)+#NR_yLac|uD@<_m) z+M;`H7uE2Es+D0rpTj1GmvqrAIW~f((5$F*4!QyPIaJ-kj0S zl4pEM?beQBQK@y1d;5t{;gL_eG3kBoHzr~$#3(HG$TJV|LyKxG=H|j$1}@>~tP#z7 z)WrEt;ur-wXc&G(xwyMSn?+q%Fz&W2{oLdem%DL~fCNGR*AZ0miC znN5n>RTC9I<)=~SJ2oT5_#uRSE?z$rr9y(fe@659GlmS*3C(%tVm5 zbV~q7sGJt|D$Ep;k}kTbwBzG=vxnkwo7VQRlCy7%ua`rlHObh6vGQ=HlmT>jxb9_v zLc35DquJ2u>x9Z$wulv-+LM_qp**%?Zy~J?>AgSLrC07x!~>V-g?4J8B-*183%T6X z)vF&1r?HnM^vrj%r%h(c(Wu_*E0^d*o%)aW538pBgG%`-2Cd4v8#!6s9_Ivc{ zbh@ymHC5gpLyU@dsY$AM%3NKYA84JsCD~2R!Swqk4=~!ui~H& zuf+}~mu8mcIvCM29p|du{+t>KT~dp@Z7_8M!6OenN%hIBUr1EHE_m$mo%yiK1BJoH zNA5ab5t=D`gEL7gIQnWwDs)|!VE>LK0jCpn7JJ+K7@JeuWLtJi=k_I;UAW&*3EcQ1 z6{?tvAnIF%G~_1%=@Ql%R6NbeH>%%1hl7YEaA&z%c7UPp)9{I~^^iHXpmqH#kri~wC#U~Vt zK|1vGCps~*9QDujgx|Y&M_$l+V7=q3B;>?3X%0ssvw-rO%$!dBi0JI+S0E zQoQ}nKRuF;HDA-`YGc^6}@;No094mcrj5 zsXS(#$#!?HBs@$#Z~DjksUDSz?kqlXWAZ?(Ki9zZv6iC*J@~8eTVkVfMcne6S?E(G zJsVlcg{}A86R2Cgmx6 zZ1-gBC;BTe+nYp70UsKZ#;3US>{4wKW~DE8&5sql8)2ahO0RX zcj@2R8lnYzPZd#Nd5#!9@l1pHqX;MADW6ocT-F`DA@m3*dGKf%fD3yx`}}F*9R??u zZ4_`p`s!rz%;*AGz>sa&<7_(l+GO z>0qG9Z9YsbueLu_MdY4b34EkV5kKe2&oNLRZ3`3{QmMZpq#|mzzhv`m%0so z%(%I$xgNkw)_3%_O28E3qYxI5>(0bds5RxVa{}=Ps`xnFVh>(&Q;qjIeiVX@NFcsJ z_y|hJX|U)D?y@4!31eNj4rH2tp}(z`SU}kIDkaDWyz^#qt zhgrb$Sx8LSl7p)uJ{u6>YqUA1sGz2tDZ#)MN@5~WX}8TxKN_z9RYwGgl56O(P3oOa zpf04 ztxb9+)p_{(ZZV2Dl1lPp!}jct8pQ9|!xD%$P>SLd8N?2TsKB%28||MnI0&o|Ghj*{ zBDr&$N$T2Rc)%exr~(g2=pK?vc`cg8$B352)q zIaKWc8$Tgd^3qV9M2t1+Nhtuj?Qo)c_Ni9>GdaZx9w$*qGx~cyJ@zH&STo~yRpQuD zhk5Tr;>aa@1vP?+e3NLU9FdsAOqi4bT3H)xIKF9YAf@ zmAfoI5sB{t1o2GR=UQ2nw7KuJJXh~Bf?MLwc|aa=Bblh&M7WZ}3K0gZnTa&v*3dU| zob@4GFpKTH&%$GgME9{5(Y@hBUs=c%ZQ>2Q<=6}V-op)SEC-(~O5D7KI7ps3U7iCGuw_rNK8A1;3-PUT(t9bI7hE-|A+Rfr?^Qc53NN@ zEl~6`M0t8Z>%(eE4$6r{7DR3ZV(c6+A$T1bQ+3Oi&qt2A%6Zp6hV%$AtjYH4O zDT9Tv$2+R(e9=DRhy+f+0N(qBss5TUEa?Q@_!9l@7I-hRVTJpuD&C`g{B4L7u?^~- za{0rChjZGIh;hPIQs%zq^_+1+s1yMo3yH@mgjeZulp)|KG0&8W!^E*r*Q&TxJ|CPr zdF2e>eq+^^%1btb2x1j2hP1jWSA1xS`YM@uH~eTZi{O zJvTv`hQvx>Zj8Keml{%u$aQ~mrHm1ESmCyR8YlQljqCD|H1wn<$x{p4#1m*mL((SE zohAxjNXDDP^p~KNSQl8Y8O%X}c#zRI%$Fpw)G>U=t=Hr@iMmU##O(?5!edOKQlbmBkk{UnPe>d5_qi3rFJv(j^dRJr zoe%guZ^~D+gd)Vu^`lld7+?(y#Cf2hx8q0Kz!TEAU^5k}{srPqEXM2mmAhfPA*74@ zi5sr3dK9<`R($!{E!!c~f%`Mh4$O{Y9bI(rvMrQNlr0fq{@&GlPc?yfoHmR^Y@Mna z6%nWsAPSORtFF_6`4iku{=YtNL%hJasW$IsNO}FJ;WT)V2so>yulZO58!iIU;DI6l z3&P>)tiyu;jegPpdBKB~pahTqjle5Nf`A8zL?T#m@arFNaBxV00RA0{4lln8mH%JV ze_|?>&wmR3aEO3_f2@f87dwIA!LENQG5;bDME#RC0L1)buK@7R-T;Vy(Wm-1{eN)> z@qa0g{TKb%e{ug`+ywqF^${EYZ2#Y;0TJ`hv;1%Je;byU_CMQ+adG>{ir9{Yza0IK ziHgPP|GEjlMlLgdYZ>e5+WXrQeW)jR)b6hmJu^M?yMk(Z#*_4y7!lLniwm8`g8V{) zmly7T$)mkOXJ!^=NC4or*fG+dmBCAju>E+i~0EPA=LAF3vJ{??Cn znE|zN{-L2WuD>MH_(OzhulVAEk3;=j} zMlaynLtPHr|Ggll!4XYQ2mW35i$-{P&bYS!wQ7H>rk(L>{~u-!>k;iU*uUxh3wf}w z_A3n??DPJ?RKM}A+P~niKl1;=n}7KKg+aB$9Jl#jnEZ!d{@>s)f9n6jlYjWX@XJ5^ zUzqrZCx#uU9rjC9J7D;Q8TKiDVTygoA;v>?f2CtQ5DJ7H@&Lyl3;=2%e>hLP{}b^9M5^1`pvLY=G@l0E%DZ-v5IS@Zf}k@&gjXZ@kI-8~^rK1hj_+ z0RzHc`wRe{^!?|82R9Y42HaPEA@B;4|L6P6f86X~g!ufY;J>r%|KR^C{HXqm|L-jN zzvaQ9{Jntp#ox<+XTkr$|EKo=0{{2chr|0%9;fr4e5}iVHi+%*Jyf7{{i7B$?RA*+ zlK!MVAiB5nkn{>!PVrIZ>gGDS%Cy;*e37#{(GrgX!3*Ud)K_q!4MfZB)dd-r4 zSww{5I>7Ab;_tSwaM%FnvXFF`!@$buLr-Hv-9UrW9axb5e#rYQfJw;fmy-yPrveaO zUS1s?Ao*9J>g{mB{>2>PnCZV)g8~HUPz;uXJ}}-QKuG=rc_2On-oJqwNP}>g68;y2 zfiwt*>0p-^1cuFnT?(?=Eje0^zSXM?*m79}6A~YOn$f?q3MJg5>{coKyWRd;UFy{~nHir~e*CF<`HMmA}dV z9(sQ_`S%d}H`*VJnZHVG`yur^E@P)>0D%5?3`Y0jIsvMM!(|6zz>Vs=SH}V#T)hOZ zBwTxk7Y+;3UZD%%Ug8rCDj__-<8Yp?;LZfn;Qse3(<49{kMLRu1snb@3An#)41e4M z*A+N~-LO9ZCZpXyunFQr*!mlQ=^7v(gaKq#UVu!`0D$WYkbc1#5U&Cx$PO?KCe{Nm z$sWuc03u-5C=k#f{I$+_kpAa_2NxBr0T=fd0vcbRM z7%cb{a@c$Zk2qX}=!9upZ|C9dj%z=B(uhuKcLk{Mh$NiXVIUxULPLMA8;}IDz$%#2 z{{nE>z<)zW9{{w0E)psJfD$+^H2_En1HY;O_5a`e3PRH5udg6Hs*aeZuRm?wyS>t3 zl9<3IFRwolQ|GfQWzMMEhRHLkEjn#N%0hjrdV{y?}KTmaLY^Shvek{aSe@S&>+~Y@G%i6Ga zQ2ahMgbxji#G_D94GaSD|6}G!B+*jY_Dxdb9(Mf%_r16KxF0Q^<7*)`K_^wVrv26y zJ;&3N&)bMUb&auWl+0e<%^v&Z_A{PH?n~>5TP8!t5z9uDksL= zwh@{YF#EA&KKz91>hVvhHc!?@jVNvO^V^xA&-s0NDNeZRlz&#c;rcW@DNl5l#ee_p z{t+Zz4?qG#19V^NhFk}BqVOmVerRF8Bl}a~8=f&6!r=LpG^Q#uARY4kY>XByKQh;Z zad*ib{x^0`B3q^)4jK3~OuTHF6*U0~!+aOI5i&nyym|VicR=X&K6dBqN?U6mJouB} z%ADuXO6KFe(_daJh1xB1UdRO};EV<-T(Zw~)ob5YR#t5aX+hX{bu_?#_c`JqeL*dq z;w%QKnhvpBZDp99pRd=zdhu6nFSBp6hc50{ryPy^qyw?uZFM>*0m{?yHhCYR)Mr##TT7ar5lOGpjh^ew_Kyb56ulGZkpB{00_ajpkk|-W-cB}tw zB$4L~7Te~^#%s&Bz@3*9T$jl}@#!0HD1EEd`a}~%nC1IcxX{U^3~{NBkL4|1Gzj$R zlL+_QKDG&8ib%%a`8J!0yag=y#67Ef=yv$4a^Mos&g2H6|Ez&{LkCOAv0EHqS$K34 zk5k^gAx^H&Gd9CWFsHBqb~z1Dh2RwNh(_s}L<2WPzSW`~29?tbMsM_!;#+Mk;thr4aT#d9seT&D#N9PztHw#;#If z;Ve<=Up{D4CJ6OYs05dxvYsO%Q>_u9df$zkWZ&*t$40D3A&Cd$x=OFClPnbbrx^l| z6Q?N$MFesf%E9))O8h4s^bp>>9|va#E7g{pRgm7SGnn1(40Z75+S zH3G|!S})0YnzdLA%B209`?fLXD;6NK3cZQmTn}gBcm^%LM&ap@Qb~WFF1 z*SvjHlt69$zIN_bYt>@=!q{qWU$6BwGynGNb2U?$ILj|x03{B5iaWYHyD2O{L^;S+~^?t^qPxR2jyV5eK z$+au{MX3=E@{|f^`ZH*)gfJ(8N@*?p=ZQh&o7WO;4C8B`OB(wsrx;GZAG(y|`$G9U z`}i|IkLYQnywr9AIg;*Wqa zPXB|`Asf!EJCnS%C-=9XE<{DBb$d1KC3#Mzo2MfIHlj|FT8lI<{-gE#RIhS4F|UFZ z>wiOhS6YZ90NkSjcu}K!F%Mv+{1i_B4puyA(p3y9zFWPEx2BfMZI8oo2P;PoUQuxC zvOBg-b7A16TEpIb?BddRoh(940uTvrT53{@@IZ~>$DsMp&B3!Y9>-iSd8)Oqgd7Dl z(hN?)TJ<+2*-L~oX>T?q(#NjBch z5rJ^i71K~D=O<|nF(?DQaDJyQeh{`eYr`=f9|A;q6gfe{hh~_c2(dg!E)zD zhmob{NR1FGEXMXm-8V=+ib!GI@U_%)cAz!_4hW@ug-E%#CBzH;96pkF;2pYm>dR6L zjjk5Oc0Ew45niqTLRuyzgD4bWFa;;o^&&gF+5&C_`ztWhc?exw1(4eKg?iu^Y7F@Y>pA9oQ;#vjTb4GnE8;F?xru8V4uW_UV#`ts3ky+6 z{G-dU6VD}fHXr!DT&vz%t$mxLkioUhTREXr*B?*5PzX27>e8kB`goBQ(+!W+qPRnb zR761~?cL9%I@+r{s2@eA3!fKC;fG(Lx}VFCMQ0g)Ki(IPGo*Et6scYNg4yQVrGn#W zkfgbsB~ezQj=|P>|Ap|{2q-2M$OtGf419W(%;`t*|U+$~tzEynrEda^V2-KRkw{M5=@wlBK7^tl383L}M{>JNZ zh32k?fC+RsPUDpL4a>#rx#xQ*hTjKX`$B*M#(l6nTNYq^o>kq(2qlRpM5(58e4|!J zs=-^?;Uw_Lg90kMzaQJh_(AS^`hgn1JOqx7!-(KnPo7S_du^FL0;=e;Y&vplHPiLL zXT1HS@@Ri#VdZ=fAif)=1;DWtcn$``4)9};{pws`;usd|oHECb`OUxdBB-K20 z@9pHP5nYx_)ieDw2#x^KjUKP;VjCH!&5=5kZ_druM7J#u3r#2n)^eTv8UtHY+tjXK zct%w-+1nx=GPB#KPyPHf1w*Sb1bgv49kx~Vcxe5aSUD8It3O|e+IRqz!!i6RY#19w zAME`~53UzWS0n-9lOvRcDy}J&CQt?b{`>%9fgI}Wy)T%|E>g7Y5urE%@a>j(D~Es3 zxBR@C>01lKAGF%<^clvBLL?k|C=53%9-WW?5Dx+4;< zBO!~GX!0?O2@p0+Q&4e}#6K&>tEF6j)5j^%r7Hg2n!zMi-@W^Qmq5<*AARg|2TY&V zb(86yI~x<73aUXOR=XdXU3hQDM8zG6qv;n1gzJZGl5XEa&}mRx*tM{W6U`~V)}nAN z^v`uLtn4Ubz%)w3B-aE+Obt9)1#PdpT(ttQD_nV9b`}=VBNskZ$w!fsX8;qXQyLjk z2^O)wuU=#djKhg>Pn{})QiR!?K0{7RXIVib$iNf8^EjRz7s|f4?`KBDJXXKUYM6h{BEmJro7}(2sCph{Hv^FtvKcQyP!UaG(3PX~>c2ICTTc zfg^5M@Ged8nrc?MHY^otmS>9JOnQ~r)XH}bjJ_9^-}t!9AZe_Z%5Bey0^VPZHlMSS zWMF)0CQwz;VrnXEx_YHve%-fx6B^%V;8$4XOjVrW(njDUS{;*eaixiru_dJ-mzD>e zk!s^Tw3u4$eqpajeyOK1^vtOSw7a;ppmxnqw9(lNV zsC&LhJNxk7D3jt>?*oF>(Gw%HlS7MdldM+XE(|6bIP2Kv6m5OF>I5ABBTn{$m3G-je?EOgWTHcitF@j!yTZ@I3kDlsM5JC6=}l^_1?w6XHpa zP82tAYu|_@JB~kZ(xkaH9kze;$G(6WKtM>81Lxc2#DVxx3rO*K<%NNeqJ1{2{(Cf4 zkM4I-<54mK;Qf&fjlBvc3DXf9DKwCOd93EmO)r|7E^*I zp9uKkQIOVD47d|i?S?O529Jb}O=Tk&jKk;4@fOE1@1ghGp-TY@Wk9(&CdxJ7O%_wt z-3X%*Ldnr^YG)~33dWRHk)_9DeVzyZU#lADV?St)xV)Zfea1Cj3bbG?i zHlBkIK|_27DqQ&y^+O!xE<5gY;r@XtzZ#KE`E)F)YIFx$RNA20a>hnSNalditDwtw z?(`7>;sDkHaAWrG8_#o{vGy~scNY?3Kh|vMURpXwZL$oMT(h4SmOhuX-`dgZ%2Ko0UC(iD88+-kC5R65LyY48+98Dj{)-OokfRQFz0^hEgZwh4;$4|AHWij4d_y8yG zLFQ7!n^{RY(Svv1;x=5%q>!1cI1g$c_R5<@lLr#^88uLj;D_@mrAIo`fd;lmwv*}X zpHJ-Psp0D$XNkEmrXfw54q^+QM%mlL^L4RE%o?t=O&twB#mk^_OW2T;H`dUkC)R{ zl^ygpaiU#%nP_e3%mm!Noh_r-OZq%4S`Wr`n`PQff@fHqom2}AsRp)Xwj9|2-|;TE zq2av$&hSA9J@FFE?EY|yy-mpSZllPqv=-L*@vQc{sBm#iKt3Y_Hfo|#{-yQPX94FB z1+f?fYB+=8IoP%P>sbt>sJ!@(W^~(z`IYqFpo{W?!?$Pi^pGq2p|=~JnM23nWHtgF zdpiQd%Ze%W*?-DXFKB(b(t*|8QI*)f_j$u;JnS6w)WT?*CaI@2D}ymsm)ON#J})Vd zaueSo$*yIuu%lpKt@X)66>q@sc%DVBiZx}<&pRql?c_y-Eh&yKC)$vBW9W@ezGu>fSaECCfwB0}LEY z*O0FqyoAL2#p`iV+5>3yA@V@EESAjshuW6kSwaGkk zkST1-*L}nLqGD46YdPLEZ_8Fua+sNrXdG^=nLh=&$x&B9zwjDa^;q4;8Jj@sSqgKp zpk}$A^Nooahx9+e29!~Z97}o5E}c=SRs}1l)6^Z1@lAZts!jn z1+Y`|-9$nT3ogC+kfz=chd@ zw%+4ju5m=Q-Ti<)SC|4Vm02Bid?Q5EHb0IPn-eY5JoVCAHVrblHMU%KelLwFR(hY< z;ZNx@=jmDGz5O(cDgT-%SEB_y1<4@O%0H!-o@KAHzU@1~xM;&ZZ|e9Y0idU)<0L3C z#JCbs+(B@yX_1-gC_0Vyr0_85>FVAf#F8eYN$X|ggELKK!#JT$`}tG|O#TLp~l zF=MxvLmqurU?e}AQ;rr`PB1a69|s(#!6(Qn{;F<%bkZxfRoHIl!$@TNs|}Ohu%7Ud zsUIqg4O{Pcqq{LbDFFujDwO*e?DZJn*xvprD&!=740F2}V_Ms9QIzi%I@+;P=D+@^ zN%h9HdK2Fu#*4gpI2`krjVlczStd|@NCAs_xsnI%d#MBJFFHaFnc$G>5`Z|Og*H}P z6U`o`4*PWdgRo{kgVji&0(;q8>Z&@(6CgjZoEycWE)myp=fm^uEjV|w|7FFG^D7lQ zk1j8bepo>qJI_0=D_WXl75N*9J)gxQe5#OEe6Kg;m(DP&*#=ZUZ-{uqel%O=}Ou1aT^F03W^ zdtD0Z)d04K;!P*wXGf$o&(v)zPmPqb$eQrnn=qg1_Q-Kzh z*YW3lz6Qwb=?Fc3$(aeJcHk!h#yISoOgzdIp2g~BKwmRmYLikgOmwX@or0vr59gV9 zuwOHl<;{~;#Z}fCUV|{U%^YW_|GfB98uwDHsp?EeCovcQ>hwGd5Ck*_>!U3s&D=-a zbdK*j?1k7s9QSbsum@*FLSXCXVeKr0QOJCEgfWuHj(GhhY*$jk_R(;=hMy^)YM(#5 z^sc~(){yAriR+gr*i)*2hDj^JQ?KNwc>D!7a@XC7XjtNwx37>9T%&pn@80LWmGeU0 z=!L<1%e?%JtpO|#-?%wAj&eXk&l}Q@tSV{sAKGBU_dyUEZPPib@qOaqY2JN(tWKAV zja$8*x#m7FzCKy~2$!%#&N2+5R4;^M_YQWq95;Tt;ND0g%-~D&581akkXs+#u0-yK zi3xxkJPEjbE<%#g;`U+Gt<%Unf)xWCqE%4l-O!wp>8`RzO}OfK{@j4K>w9&oxc8zu z@e+2{j&OOQd{y4?AJ2=lSc;!uUa;vAyzq4rDv#J!Igdvf!y4?~FO_aw;DDl`yq_Dz zS7V|uklf~5YMloy%Ux%TfW7nE1)1Kg zL-wF5=y}CKE5OvgkyE+Vb>`L$jt$E-;r z@Tz3q7eN%ZWgs+dFq20KPk_tdFDa7_j(LkaVyxyHsm0ElliQdxQ9Y*n9JMD!2A= zc>m)#$64FIC?2o zqG^n6iM(8t+v}FGPtDz)8}e*D@yQVnpEzi8go-B79N6m1w01b)t4n@wjBM=0Q%?Jy zIAcHKcl4o$5Gxnm#Ey%tMd+P!RiQ^rW^_1rKrrm3?cvEn+&f?u-j+C zh$Yl6iz|5DLyWb7DqI_E9LLmRJ-J`y#w%o~DlSIXg|);#e6_iBh1LEUi_!K`#p@UP z*bDDIlmIw^JIChnMQ2Ja#a5uDY!cq32INJo55tZ>*OcDWaa&Rl$eLCam>C0E-&MnV;S`p_Hp-USmr?i| z;o%o|e0HQHdgXH+s9if2f4CfV#5nc2BSLDGD!4t|OfW3#;XqEXr6AjgIy+@`H3LaL zP4)_L%D*Ddz9;>YTDVSoaL0q^A5RY+_htU9soSFKAEwNE^zvaD#A(F%tR;O!xF^?F z-yL^2RPCNzYr`QABa|hP&US!nr^j&JtLtBnV^Fm|M4--@2;f_vCn~H4j4+>)l~Z z`PIR@D=X&d2KY7Sbq)ODo$v=QmL~1Khn&B@x+bZla3As?ybFp?6nm9cZH~?4@bM%a zu1N0HvI!BURe@2*R}J59wY{*Es}y@Wmu~~UMuF!$b%Vlj0TFS4mwuNtP?^t})*tH` zmSRgtBuE4JNhl$&&nxj^d$dgHTgSef^Qhb9vJ}#m^HGjrE#pl{^32DM5*KU8Bac2R4OL`*JP5vh zo4uX?G5n*wZ|HfWcGPGAa`Bhd&3bq^V*oC zm7!=%%r?@_oomk4Qr<5JM1{KK`{kWWcF9xDlbq^Z-=xfeDvHnA>1Pa`T2 zyx183rl>uqW+gY_jT|fE%1X~bBEcREu`nJ!Aam>S$b~zPkhq{rA6>Dl4UO-=8+woU z-6?q(hH0ro&M!sr7~G%omiEj`FuWe`aUS?bEYi&zkhSGXJ=k8y3ZEO=Qg$~Dlz)AA zW8!66?&}F+^+eFXQ%}pSfVj&rWgCt3t{6S3EB$WO#|f4j>3fnXZdVA)MK6lymE_gLcea)=Q%HQ zXa2QP@gnI}DT^T}3OIa0MsfGwJ` z_{7ngoV%PNw6Bf}sZTzMO1XIcQH>SAZyZJwL}C`5wpG_|)S{JB!$clt;c zED1?C_s&Nsuwf5ahCv*8ospDp-Z}a`eXQVMYjndPR-f#L((l++Gur5X+<$en`I)zS z3$IBV84zCYtw)S}xqK?ns(s>H#Y~(&c_&I{45VLEq%W;PxqJ>#*W=rbVd97^;wLE| zx|sJZ;C_y90b;{<_5zckK}V?Mm;(kAc^->FZ*AZQ3lZJDcWy1HedsNkEQnauhC6(ooZf4ot@hI z{+2|~jjk>0!{}!Pw%o_1wlBN*FAm%{LHH_e<1@hc#t`=NC3fhaMw1#zl^;SC?|ftA zzs0z{dAsKHLkT@Z=)0oWXK)rz0^L8*NqoCrBB|5(qe-Pr(RIrxmWf)(u~+&OHI4A zTNL|}xUa9+8?FqQ0h=f;Ajq5qlqfqX6x0J8+~4ItZ^EY!yX^)XIwQ^Q$JJFv*dyIN z4>++$?g6K18nd{P#84XgWO3v<$T1<4vO^Hx=uUDl8le1@rTC06zHv~aa6t?racl`M zg$$5lCMl&K!iGlJ11|(DsHw(hj$sl+U^H16_4KR~ zF`F}Z3A2``LsfY{{Cm0X|779`~N6L$^iM3~i zngOv#a9e02`QcO;TV$?TJS`h?Oq4VxG`!F!gn{#$z(h|Pq|u(k%=+snXJKaqU<3Me z7MdwE1p205CSGh1Wa$J0oMZGOVJjL2ga}>>?%wT+!PV1PF%Z`V1W+%9xkw3=$=>KW zS(H%}sTUK&IRAXuiS-o1HtHESNCkUo&%2yeF2(W)A!pezL;0zo2vcYbwP+8ljHp+j z4_T8jGF5~CyFyqNI8sqO^aN{cjMElMSBVJ?W8|bLoOr4S2@DjK`o-#=2PQxcwxuJN zaqJ+*_dEzeMPXJuK1OhVM$R=&ZxfNo_|Qf~;CM~qV|{hB`K&NZ+;CK3L#2T-o!&(& zetHrV4m@*1GjnhukndTbh-^cX`LGP&6i6WW(uuN33z3Jm4iGnqoWhdm3Ue{K+d1iP zO2Vcb01Rk^Wo4r~AFxp%|6yeJLzz69OfP(}!KS#@s9K*r3Xn{2F8R->HNzNln8j3Zi8eq{V)JW_2ab?|bs13yJPABu=3i(tlpFMVw) zutN)lEh;=KVXiw%$J49qwnqdnfFgWrV<#ag=l~G)$b^u|l(ub?j+r!LdohVjztPA5 zS?lqPT@*nD{Q{`n)DdT0&Ks%PrL(m8RFkX5(XbQ6z(w78up%N-1qcjLn3z7#ospu* zcwKHjz0F=6jCi({hk?|qXU{1vTD7osfV4?}0;(FHzyJmi&xM$@K;>MXnHXHhh4)3_ zR=sGfcu?s1)rG$JG$KE}G#5dLMc^Ba8-PS^+zA&LRsa`-4ZEl5ER2R~q=O?BU2{T8mWPTv|3J0w&`jjR`#1;oQ0jAx>byP|ZN# zjU4MeXT*-o6(I&e;Vq4RE{J(csX=OlNHdE=fvbk0yo~Q3LK046Pavram)8)CYT&7! znq{%|CSO7!iZ(=rsc$`XdDFo27$u1eLp@QXW+n@>D5}vA2mn?lIHM~J%Bf8Ymt(U? zDXfs`J>NCpy2pQ787djXyM{T2M*z9AFhA4lPZG6TU-vsD*h(TNdDeQ?Ra6!d9 z*aIG5X1#2b)37rPh#ndOVkC_y4d4gk*Z;)FO<;5M5~x}4b%m!kN*PJW1Qj|FR&a_O zZ46~5q-iYh_k*R_D)!$hnPqV)NBY^D?7LOq9YZk2;FvIIFeJPMaFQgDJthP_TK`3R z$Qw7=D)g%*P}ZA6qS)&f&R0GZM;3#|EEdRAVcQrepFtI^$L=aW8nQrRmX4e zsj6c(euZ@#Fu>VHSstvf@?eQ_goAl!F2k53#y1(L1IJP{jukSFY{+!UbNNe7?>ic#TbNiZ)Rr84#cGlV{jv(fGz4gI)SWR}9q!7lVS{ z0Z-tI*4M{!LR7DqN1uY6E*fwGOO{##+zB{GZG#}tlkJGgme;H|m&q|8=U4PrKaAWI zgY2H3B1eRLhXLwvSIi<$$)JqlAraov+KcuZA@9;8p2}0M#`5qXp%WiEd|rU(;(LnQ zc4i~T>@kTfhqB#q|pY*6fFF%_SX9;iQvOA_M-SST1`=W5vp7{a8=U6 zQXDl(z+oc|&*AOCwV^0Z1`nE(V>{u_PUKz#vaX!#io~`wHuYl*SMReSX+-)N*-8hg zk>scGv6SUa#$DWIMqkStIaxuPs=+lNrqv>XMMdydPNZYNC%m}wW{(#(gW)nD)B!x`nOGJqX z@t+EUJ$C+n&fBdq1b571w#Y~tt8-OP=bt9UP)0=H;hpyEkqzuvR=mIMRXTQLv>4Si zdH~P4z7EwQ%O|KVB#(g0m>wo^8xs4~KAB*E3{57$J(L>fg13wGOF_}(8bUMDp|2lL zE|A6)5%W7{oZ+xe6hpQcljWG>(9o*YKqXBxy~~WDkTA+J%-aW}=md5Pb0hVMFR)dR z7EngJS~4H=1cu1Yldl)G^vP%xZkCFaWd+5Q7_y=;ZqqW@68BgRe%3tPP>%A5ZAxuk zxG~y2m_?+Y9hr`)DQ;8c#I(gT;?&3z{eJu+cnb_}@xESH=7aFd^(KIl*3GU=P(nPIZZ~toGsNil4YpI5sZkE(BUijLc4qm;)tQhbgx6WdHU(;0W1D7a4Z{#nc`{}-ZOTh9lLdg_~d2!R(7(-*Td<78S zOdeA1n&@#x9a#iseKKBHrx<+x23D`PvVGYK zK{{#SJTQZnzpo4uqyBJxsb#78+4J$QwX+{QBSNkL@l|J~uwW=G)se&{z1N51{*Q!`X`Sk+Wk#Lm!U$CG!GF5DTqrGEz-q@1W5Wwrt_mN^Y9|1uBYxK)60{(6W zc(Jju!S$`Wz}VOrn3X`s=L+LFl`McuI~ZQ$om1c&>B3*I|A;N90y&+&frnODKJ!d6g<6o98A<7 z15ayCf@d|ZpuNNgbe4sI;W~dnZ3zHVlwc4W69q#oID7UiID0M;Bqb(-ix)3~OKBHC zW@a|1%{d3i`T3xwJRgwBS3pq#859&2f#Tv~P*zq3u2+Pv$7Jj)Z73S z*Q-GFt(%}`Gt^Xr>grk;*MNq)T2NbG2X5CkfQI@8(A;zfG&eVc_VO6;ptc-PT3f(q zTLl=T+ycCcwLQZ-4y||CfI^;2xWQyDAw`|CaODw^c|4+-UOmui6Uw$}L;| zHhedQgYjH2OS;%4E|9A!`~pv?;vAU z|ET_s$%@S#ZGZdfoWxfAZD0u4J;D4>z`@AVe>6C+_Jwi&llqUH7ufbs;B%9Bg(M&T z{SwVXcu6gz;D0Mn0{6xJ`87P~r>Spdv-gir)kHL7|CsaR?s=4&rl!8Bnb}YKH$j?_ zgqprl@ei1v?M7xW=IsUDl)W=0TPQbYj$=PGy|(>FFf_R|XjvPHPn^i91oVROA8I%Z}Ndre6R zp&vuGbg%x;2u0sk7E;qUgVag<1)WWJEm%G8?{zx;+~SrA&X71Wv%`>b-Vhx~MI%_f zm;mW_c;LFZZS=RRag@0Ulv$bXOZ^2Mn@w;vG2tKB{0epX2Q-YK$^x$wX2wpCIO}-%etz^nq?2KYbihicG&&!K?yf=mLE;{U~SD1Nh3f7U^NvQv$XjewPv)h~9b zv-1()0>iOm$AJ3@H{juZ0-QQ|5_%*3p#2#L?avT!fyfIk9uWjt(C*BE_U082UQpr* zZA)ltR{8USo6yFrfi`AsC?9Bmc4l(~FGzHPK9Qqh(7sd!>0a8PCSoffhwcW^!M-3i z)DPT&Hf1vmEiq!C4ceCN(5Ac#Lr0td=!)n4#g4pxMgVj}d-5T)Cwrki*$?f>!4zmK zLi=&}(q>u!Jcl;q3ur$+&)@^&&~}{2;RPcZf`FRE3nufREt)6^x}h!ElOzf{&&z-Z z&{lnzA_KZF$b<1LF)#}4#)({6@E}bI=I;P~SsKvBR0IRr+F&A215D;hfT?^LSeG1( zRlsDvE*K-rgK6@17!<%uvO0`)!OJV!;B}D>xOL7L)WqxpWpP%Z@tgywCx?RvmkH2T zGXq2UhTuW|Uhu4Z4|sJ&50*0ouL}&on<7IPc7Zp==HN|<6`)oh0&Tg6q5XIo^b`@n zV1*laT6F?Et9A!3Zo7lt>waM5whwsG5CmSfoCcAR(I6o{0i>p;g0xGQ!R5=Dzu0lP zx%r@}EC-Yn6+pYK9NZ``0~HlFz|E>k&{|swZM2)9v7rt$G&F#g<~yJf+G3lwS#Q}{ z@Tf8gj5SAsiPjh}QlAIfs!PFe{T1-`ek^#`bq+kH+yEo(m7tT-1fF-+fQjxJKxw0Z zyLa0`*Zod#ue%%c4-EW0=J8*s{}l@S(N1OjYlAa77(w$_YI%6T&)ntz#6R4R@&C;H zDJT3tSb)KQ{X9D8uU{V-@Yg0(tp8u57yH+bLF`|nm+>E-$Hx41`OJvFet-7Q%JENB z{gF(^{Yd?3e2Bnz;7=d?mU;FpR`SGO0Hh`J$g2IWr*U&0{3CFNJCCG-nga3HTrUMN zS%s9JA)*{4W!0P&6tulJb8Yu2D440G{tl3Fe!rxw?XhD9vITIAE<{Wo4tOrXVNDiFN#e*s0$VVK8>XD=2Pa$HON4 zolE#y{yPCpPsF z4-eq&?G5~(J`x=Kt3DDD5dm^e2!RqWUQq7C3vT?-L4tTeJ=8y1q5hHWB?~T{QU%2U z${;_80OCV^Kr_@cHg%1*7^rK+L0#i4Ke&HR7<6yy7w{a`p7X+>ANs5Np|5&V$9MvL z)FV*Ocm{pbo4N%R>K5Ip+rf(*anOHhD|ntM4IW-nf;xjL=*!*##&eXQo*?zBzK}2b zi@re3-_#E@!K(soP#>!Y?j-1gTS=CnF4-KkCfkGL=wMKD$sN>W`9UAG5$Mc?e&Jkm z=zlf>PfDPl_~t<{b%g-S>w#B=P+urAfx#TiT(t$0)%yS?<0Rf$pMU(045q^xX^r;|)Gwq9p>v#KwWMXX3&6q(qRMoC+?arhxSHOE6@B ztjtW1lbsFnq3^eroC1BnWKdF40?K~T8!A9;MG>g4z7B5J-3Cofjo@AZ3A|{I{zW&q zf4dCyHdlj5N)(uEKLdTY&}ZAx4t+uQKzAn$UH5@_64aEe_VZJil-nr`+ z2>5eUg=ed=p_r(ot+tq$u!-1jvgD)(m!N{75?)MHNRWq#PgzX**8(=XS%eG?6(qz& z1z8!?!JchGzxw=4*_p(Q4e=79LOcv?o1m7z3ew{mI#P1VcyS>?*5B;aUsVoQ7XS#N zq7a;3>(`op`t_6%@mt$wkEt726_{TXFIfj02Hvx4A3A|L2Yf$}Jo4?KqQ=sA=_ zzsevuH+o(g&Z)|PrqMcB->;f-u+5<{~2WT($gtp)* z&~-f!Jg5x&MLy)^=7O5sXi!;_0SXEVKygta3`L;qTInzIg0+=bK}}T!xOo$9rK-IJ z=ltqGV`C$f7fs+Er2%xbw}Z}m_ds7?ADp*)_Iro@H}zi%{QrysKjfH(@*f+fq4CFi z9fLpI8}InTEim}E;(Gt~Tu*hIF|2uhhHZa@LAF()PZxBIw4!M$ z`4jD*%19ru;Z3V}CXjY=M3~9x%K?1o7dpM}#^mT!cU^|vPleiB!`PV|R`u|KllR*w z-^UqG&jstuXfCvoLyq>4dom_+Qn_D8By8gM6`R7*GIJ%O-S41Pb+9s1h{_GtXzTaM z?IV^{#nVZS{D&k~>m|LpDwW%+BqVtjN%XYi?osOjndCQ#$E;g(jlZ=2uI=C>ne zuE`IOrhzh7zcMKm=w9AK^v+;-`AA8xRdW(`EQ|cyMLqJ2}u#bL*q7r`FO`%QSZ%7^=HQXF-!P4c8(Wz z9#IuYjv5}1sFEN_R~<|~Yg=n_`!Myr#`#+oWOX&A3BibANZ2p&b*#@i%(i90ny%5LsVnWUGvCxG-b#9#ICQO-ZM_3ctr4W zDbip<4NOc3a{(iSIOwp!bP1GyaR<<^&|Pvcx@s)$ci#&OGR~YQ|Nuk9KfkR*d>FnhDULS*f>7oqEMt# zBmsZ=trNP~Jqvx5KY+5Fd^R$D|FqP(N|BALuhv9IBilaL$hW`Y2$&odVdGuYUt5*6$YXVMVe$mEHy`erkZ3hlyZ=9CgtFY5Kf%txxG|BL($<|k!tz$ z9;SydOdS=qaqhhn0yV$&?F)ca0y|uUI(8f zjOsM6ceY@WdT-0l5#}z5iR*$6EnYrd3)j3yuM)u#Yl2O#aD%3$+v_h6hk~jtqb3&$ zXfjObh+?E7X`(|reOKSri#NXk4MZv;8e3#*t)F5;yo^ngCdJ?iNO`5WDjCWiLIF4% zRZ3rVjnH$Yrv+=Wo~@01n?SH?S>M95t`qZ0DoP>wKw;4*2Rbb8)r+(5!R^-D2~ZY?NyotZgIl@gnjY_DmN#OD|{Vo1VWRRpWPc6qRueU;&7L?Bq>tHgXwFS` zrGW$8Pmec#(`|Oz6JtTW`TXHMTOl>>!DT7kJTIhjxHsUV$1{vf&x1tT9BIlcr1BH& znJNzS-3F4SDcS_%5BUd2Ic%v3rky^8)pf^gDtXsNt9iEC`+_M{8F8MEzLcY%6DPqtV~6tC zZ&gocj`oO7!A98$h+BhYS`CtkNS8E)J<2;0Yl~orvFCDi$fD9@vGVyeW~@{$V2aSl zwhU%9+UYuNL9-D*MeFmK<#724Iikq}z3z3=eI?oK`on;iP;e8uJq}@hc<~3D zY*YfWMh2cgl}2xx?PZ2DxJ0a#V^-~6q1#vtL=Cb>p6jvOxMz94V&gKgz1C1Y$kHHA zzSGi}f_-s_4>2#sJP5c6UW`Cdw_+sfq_p>(&avuSZX;zQeryxEnboc19m`c8DSG#OT|V9WtW|BEm!Chnwgd}Cl{?Q2 zNtbmm*%Ti7PQ8LQ{+Jg~8T2mmcyHwJIKF4!4MpcpOJ$nRblH!_8nf-LKhM~*|9Y?A z@DtTxN1xs$-Jafq>ZcZZao_UdKjkM{ge8Hy{S``9@r0>laeij{D}lM0mOX}a6jMP^ z7^yq;@;D#GbPyN-Gqj@+u7Y;tEXfYJ9Pot3pdBYcV{3pYVC+{cx{fi3A)1NGjz!g4 z;s$A5d%PSa6Kf|;a501AuMC?U!Na*<{LM!l#-}PP?h3^#!qnNiGZi7r?=E6}R?4~> z0(a8Ad}Ueq>0_`*@(%yi`W=T8_qV#;;&rliqh;Ycq7m@nRQ2;3CAnJ;*`v2BuhPr} zHdelW!y)wc?8PsIDQNStR)l6z-`3bEJ&y2 zMO(?3N%e#ltIhyeyy?&3*4pXmzXz7GU0JK+Qud_la7+(EzOFNW~gcemxSJ9J{4smypFs?P94=#WmMpr zdC$Unb1#AovsIWZqnA!g=lC5xKEAN-kh&D1DSgO}&D?DZUDaYBes*0rZ%JN9@DOo$ zPMbldOfvhD`_qg7-DT{XR)tF8(4qdVoXG-5gTKB#K3elJ0Yg>w@#*OF1@bxXTI2;9 z7PIwMvKomiOOo&2KkBYrX?c(8`h3yQc*IG#Gn|7d_iC#;@Ix+Z3IZ{bd#*HTE1^lC zOPN#vM^z>=#s!xasl2{tkXowOB|&prQBQHupP`H+<(PP#tm`(UIL#%j3m=x5eUYTjPf?63Ja((Q8eXtrdpr^@XU zPriviF>TN0CE6Q%Vgko6UC7J(daCPV^~P$z>kyYm-VX+s-}eO@ZBGI-OjDbOzFeoR zzXYD398YaSKA~rFv^Wrq1l&QQodp2@LQp&T+ZK9Yzfl^ztw_Mf; zG_|~$VrObuiXtvQh$nL1H)uAdJ@{WriH4ub;v>Ygp_Y6rLs?!M8|-nBSs&`jScn7gWqEIqyuv7VpJkb-q# zpzI+(t-&+&?}kj_h&W|8+`#&Q8B++Z?vS2C1%5V;A*Z9Ra}Xc5V+eORrjzs)(`5|{ zt!}3u_GjFVk)n5(A$RNyR^akF+FrYlU>oU0>gvIvHkd7_@_pHKZ+x1t24^FZaw0%t z{ zr^40VDquq`V_7J1Yo9pbFv?rEVWt>QA}YjEP7`0E^02$S^m$#2+uG5ymE*WQNsI}5 zQDtA~?ruZciB`0eU0pGAmLaGDkpgklb+eI^TTavK@oqh(Nn1#-|0zxc8zmQi{o8}$ zBzdOl_@`Z~Je?bB#N}$Ffmy!6PRHpE2jhxx{#(KkpMvs_ZiMA?L~72p+}El;c_(ON zo=u%JeQd4vxLMnXrupR;r+wV7h7RG%ldla|OWh^ZXRo?lp!bi_gGOnvKC2>?t}_K z46vb}?IB$vS#eM`NCuvS5y{y-C>uMPDMwNgQJLB6INj$%V~B#enW|EU{;%})7h|Rs z5BoDUHX{}FFnbXt$d@#}{)8<#gatjcUbK+PdCt4aZy3EkTUv^)+Q=Q_ZTXx^d|B-o z@#y|Y#Pc_X#Lti48b7UYI6fY}bkOJJwDYl!^Ot-3y_Ygs8m7&LEIQ1ZD+GLOds<4u z7g%1`jTxV!|JJ9@`w|!Ns#8Ffg0HxWu&R^Sf?DarOK$}-gs3lDD^66dbfm47Y)Mo; z4fxRWh306Ub$3GoJXaK@C&Rc-6P{-TS;t|%lu}x0-VAY8J36d6(`nVdG0H zJ>!4X1CPB%dx<&&l0#G^M?1D|>A0WIH-Ha$vQ&vlkE(;^#CrG$l5`2B_OE7M!D z{2RDR+}?=#I6nnG`#Zv43penUGg@37mv$OJFcA)BPggNi(BL$;kA+rzxK$L*ks?)G zguc@&;RQC#;eVl_8s&^np#(Yt1WDy|INq*3q!W~PS_J(q6>cOunlz?8<^&r~*okTF zxP5{%UD3s&*!P@|1*30lhj!cUm@#R}SNa+8!-674CkdQrb&i-)W-qk9BB6-7e;)BB zj1L#WcW%qUEs6HGMcnv(LKDhQBgBSf^2wgtEsb$Ohsh2rTd-zu#)hS*T~RN9}SXnDGZN@|V7WJfpEEU3*gdc86y6bg6t4J+S1dSkirOYruF7D0<|h#~W*rG~Frqf?&yl;oye^?Emi@NzXg7uAoz3w%gg|LU0I z7~~pqG_Z#*@2pN88gQ3-?^1|3^Rn1!?^lR-y^p1Fj}cYulw{@5Yqa*( zDe0(7OncZU`fTZFziTGSCdyCdu@BjNr7#jIOk9F`ZdF`Q6LSOhB3^#i-6`#aw3zX_yJ-A= zbUrkN_3$1}rx%Jxo^&jaw_2ErX*zkz%qMUXHxRRG_4Tl|dv}((b<4*aPQ&-g z@77|~>)C)<$!EXZl#ToVmJgw~$CN%d_WP-1TvhgY4>uco#K{MZCE9CvU3+!~jnaGFFdexS~(}c1nMA2b-BDFpo zR7iP;(AP`hqPZu7cuW&B7TMj55MjmIAuSAPC2wP-3=y*QqZnKk7u6NHhi8x6CYKyU zz{9f*qId2Qc=-rxc7>U2X3w3(AktMv+Dm_;154kwW#?tOFO3mPiCRof)OhlxC4J>Z zPO7$UMop!)W%$8vBeS=h%K`i7D66fZy_MUg55A?R$j|G9zV>AP*7s=2U(jOct-;V1NWIGL)=L-pCOwby zgthIgJWDg9yK!mW{K0*GWB;rn_vQWu*wKg*`b5r*rG+CXf-%mTRDuwvJsE^$qa@Gc ztXK&`)L@=@bNtJC7QzmohPK+}WfM{b+p|@#yRf}|yIwALhO){?uD~j6ldUhq?qpyY zUMEWCh|w*U?K0U#ua_&5VIx^#4Q#5?kRl)WWHrt{LtGB~baiquA}Z#);kj_`MEf0F zaT_;szFkvQzQr9y+qbw&Qhu^vrx%(Kx^7hQV8+_@YVzv-ffb&3v^LM%IiA z#g*B5%hIfBugYf~E?=_q0*B{#H${+E+uh~2D6ca#{TPZjNJLI;3gK}BDO>?L1?4M- z_&^Uet1=`!h3~^+6(3d=BXJD^{MM`VD&IjNYzB zpdM9pufU8ZA+ivgDBiBhMP0_{itwl~Mq>A5dR+145}tBbzEntkqumx)#BS4 zA#Sm{fibF(?s!)_Ok9>~A9|6uT=wCrHEXA%K~SyhGUYrAp}VzcHDb(ogn8hzV{`aM z$PoZT~{UJHiP8Yo)} z#v|hM`&AGFoX+aVIsxe(Q|fHNfx6R(T3Mc6R@8W-B_&r}fSKLzHSNri)a7|NDe!2P zv?Y4mqt1?`p>=t~PKTx$o6KRg6KmUShLb&yKDEv5V;{c7#>m%dT6$XLPC4K_?>ZDm z_WhFF*Xh2byP(X5?TEd6jFU3d8q7)AO>tew{#yL{YI7SszGA4~DVM;Bu%aPJ6HFsR zFYcF04kT3x1foSr33;J9N4|& z8?5Jyk-LVXY;H5$k3b`U(Z6X$&DP{W;wq{iD-w(lY#L9{A zIBg#+o4H7SOF34`5IU_q@zruo(QIZ-=H2JkyJsdCL^RSu`Nz%pUQC{He*MO5rM~#g zwn6cUx*e@Yx=j*z?%KwF_N#NWs(o;4M_a zUW0Q9bi^GgZUhzUl#}#!bSWnY31!GJ8=|^+%peudZjwgBA=Yv64GMC@ywgWgn2#17 z6RB0zY{#ACe#&el%5u6M1RMjoC8xLsbr1nL_37wB^9~t~5)Oh4C8g9fZ7~xg85^e9@}2p-)~WIUUh> zX|B-QcwYI7XOG%&oze0~_6YCeP&Iy!5@!Z_C1FS}P(W7|hDbv*^12>v%R(AxBcAda zIJZv)g8&;Vk3;11%mK!+@UZ?n##V)-KpCu)=mi@dmj==&=qVBPBdf3nG`J2*f3mM5 zZ{ygq9gKoZ5zO>)zNe>rXFwO7l^FRudikRn{Q;&-p~Z~FeWlkTzVCbGUcQ&kYcyQY zXsMU@_^jvDrhC*e+}f&oiox*%+tfb&<~qi>HB~0z3Z1Uz!25@MKRd+bo9^cwwf&T- zyaC74(FeD7uD=zC9b}fz?LI!TQ6Zl|(6jcg3wa}tPyR6GeqKPw0{0R2pDk5BZfC^?fIaB5vKhgo6gskOMi^pL=po)|7hwQ7lTgLO zN>0+#kd(cEh6jk_k<==ycL?@Zgn;OjNA!d>r*hM>19Ofd~v`rO8&%G8ak!B)96-{BkrUV8@r z)gWbW#<}^m>Ii{bpL8QMj!i$&<-PN%OgL%mF?c`n?l7Bs4{^3cr!B)gwk@MKU^k0S zaL=}Sc)YYXQ>A9k2dwV(vDO~dV`=idbC=ud3s3gk@Y?-_W4TN4y!R`3N`O=qL(50* zP?xp3{9UMTU;EY+9HNB{-RI+l!(9)pE_{Fe$WK1w2HMB0{7|8J;n$tL<}*xpQDm2| zPUXN`i1LJ{A9o~}RHeQA$z)4T5reOB%zh!#UXnU%N|O@qrn12qf;r6;3vMg3$!)#T z1JT%el62FPQ+lTnP{qrKj%%De4!T{n)LZsh<&X-Q`$Y1|ic4OIy0bLBz)ijz%F(c*seWz3SjHbC zoP5MXQ*y^iZQg5q7X>aKT`mj?^RiP8H%(SyV14p?aPqNJ!jtRfsO1iL7iC6pK`u{lP+N}n?h8` z@`z|yeue)cuLf}dfwfLi!ik??ef^XyzTazvx3sW*4+q%|`cb<>TL;ebN2Mgd;tr-quGIs4P31qF4m#)WwmWtY;{r&vv6alP2uYj}h}lV&8k| zOpdlapdn$Jc&-j`)hf&w4IuXn)6`!e1~}GhfH6MK4=lcMv7N@TZ`rK_4&lT|E{Cnm zxKr-Z+%=6-I}s?37JsL!h0oBk%8Ds z`>I2h`+~ez{JH8q3Cb@ooY8!kEE&W7RVnUrk(|fL&i6;v<*n)Dzj{&sAL`x%Dyn2# z818PGETIX?0m;#XD4=8-BuQ355fEENvPeb*rJE!<=PV#7N>Gp_p%FwR3rLhC3K$R& z6_jxPI?Q>*DUZt4Jra-L)e{>e>23S)#AlY;t3_A=~LEt>c{D(?KgC}S}Eu7 zF*d2pZ2oMH{G6-YJIT^m3cXTO9i`pS65JoNCxEguFuwTTF?Q>EOqlrseqf z8C7MB+J^(ZvLH(FbU#|lTjDdy2_+|@%SNh-y@JX^kFejq*qG;%&Aq)4cp2kFAr(Ut z+Q~P?ECz{Gg0lt*bj^V(xc5btgx%uAYZ#f+UK6I=F+GDU{-z?jvCmDLqOfXh6f!Q!Mx0GV& ztO$;Dm`$KI>@!MVcF{;JJM-$c5O<#{d694h;vCxHGO=$*bTV`NUiw6^rF`t0n-%-{ zUUU%y#O9vm^_+YfB)UB$pP9;--ZjQR)BXwfaYI^_e6;pU^%cFQ%9aJt*t>;4SE_Q! zemOJkxk{0b!!Z%t(1Ivq`q1+|T{yz%p&40o^9r0kpVVecnW}XUnUUc9v;=2RS)v*r zfAGw%y;&l?!teKoPv+-jedJoNqKGaA)2(rDq2?~rH_qFy*wg@(^4m> zVMp}wmAk}>sR?Y^I22@Mt;^Ae0z=Bv67HK*Y}xPP{EkHOneXKMO0notjnbnKpe76k zi>^?m+u1qQ>aDs}ql&Ic(&0JzHa-p*dbNc~4cTE{_j_g#*Qz<|mXC!`xS)^Gp)AxN zVpzT(*+WiYu={KYKcg)5J@Vv8x=6ry1XunC`iQJ!s0_4tQN zc?bte@;}o#XSn`(cB1{zy_UDI>t)MXSqwj}YDl3Vl+0~}6+bjjt-l>OU`0zE<8TIggQ6JD;HEM%6DJUM4m!@`@OqOu~w8ptp0C8^BN5_ zL`|jkY4wvNzMrU|l^0ggz{VWx34)~@`Q^`*9;A!VxV(QOy`?0#`P&yq&dE<`?ZoO9 zg97aYK6i`&qiR*j`zI#oY@g)3?0D)W*@j4C)K{DhQ{yD{6SNJM`FiFEZ4Y!;(D<~p z=)N1+LOBxK3)a{;&L?US%BsX1l8qik_=b{T9o=j-?TZgdngWaUluXHWYhOt;3gxdQ{zbirH=?VEkjB7Btd z!M3Nzd6#`Wu)TA`hskV2g|Lr%33-hZD!nli-S7pk7zT}dAPAJ*CpKZ3I)US?cfqt# z&pB%76+QlBCss@sVx*VF;<`OfhV{|2N0a=h4B zvxm==Yr7*|XfMjzKKjAX(hMIrYfGH2Hw8!UySLp@$7BtUl23@UKFry{zj}|LY4G&~ zPGJe5ZUoaVoOQN{B3EK@8SvfxbkLdnrIdFd}KoSmcPMfSczC)1C_wE<^| zDVk%)rll5DjVq>T$)26e&HgbFBkiCkEh>@977!QSlEuLmTdQxbFLjtbSaQr~UT!r$ zXuoXz%(w3`HFtj-(+{ZhbhM%1Miv7Y~L2+MT6{Kf7F~;GqUDmM4#u` zC;x8s67)>{7Jply5FP)H&9T)Y7PJjpb}ioj^vyo^q_X1|?@SMt-z&r!ogX=P9DP!F zmFLm9hPLeXLwk=h-EGZ&lr7-&_EW;li$M!X-rAL$!x(kKgpm3qN(U?F)+UT zd$!N#>FozD$FNE(>&v~IwH~8rNx}yK9c&~~K!T~Lk@7_W=2kf7yaG|5Hnb%`xRSaL zz33uO@x}7E9x5002Ib~;o5imnbNkL%(s$Idkj`z)5k|iIN0S**JJgj&q6Kv;6vytq zSzThCh@iW7|NYzBW^u`BD~)&djwU#b6v(|5eyW_XWTu{F^Zi@(?sX}!6o7b#!&j+~ z#)U?v=$25hj)89kO)_28H4eG3W3&TK6k@ix^^wDd_@8TZS07do;wQHth%mogoW{%k|QJIA928Ti8J2|0}7M((($_oro{ zuDaO^{I6}|-RO!#C0sCa_T-s0mse(jN%h{E0k0Xy2{$q|sACy>z7YeauW7Ln*(kF5 z(0SSvYP=|gvF9H~t{3T@I%h2Wnj+w~Zm+n^#g3)XmCbUW2;LRrzVNJ)!`5Un7I$SX z+G{FdB^w-xBNj?Nz=ydJP=*#zCxoNI>HT77D1dTD($6MKaPWLVrL)AB%lFta3@n{H z3Vge3SELRqJm;VDpl(U?H#a7z*)5S~-W#0%n!&1Q?6|OL)=#DT6x~!1vlzeNI~bF_ zT=h+*#MW3MHA+<_KJ(*JR7I!E!K-^@df(OQzC;+vQM44@e1z4sNs`_VqiB9UN@7o@lTNBbTR? zMHWqDhmx5(a^{C18g;_^de%JY}m&qPO$ zoMfNVrya1mX``F0fj-1yXq>%>ayBLi(KG6p?xxodXRsEhzi_dBuVrGayXD6VmYJO1 z$0MUkrdHINd6YyCBr3ys!R|FDjVQUbxv1tfpRLPx7!C1uX_j7i603jRdqk7fW9V_a zqY_8$-P#imdNua#w%@MkZ^PbCTiV_|&b1mean3L1m9{9KC83!jz?KA7LRs2M;bVay{4D8bCfeZk0$&JmD(~U zT0lq^HOg%gK}|Clv=PP4nqP?bG?(FRuHtLmM{8%D9Z7FcNOhZ|^&Q47LWZ08dPw0G zBx28?)V7o`RK|M(s`Gx;$6HmY{TGF{??3*hkU*k7p7PR zs3+4`i>IC%T-o!OAFb&nF32&MqF%>HKAukX4ZX=&?--)Cz16P5<~xf-#8qrOYiaB` z?ZD|gKEV>5VbhM4cuPUE;IYW3PV1wRJ0dLL66y7&mHoVuVC(l)jHy3Unsg$K!(l!n zY>*^I1zRKA;Qi_StdB`f23o(}wwa<-PuiTTMT$tF%7HE&Scs(6*~`GdPWnh>_EbV~ zqnC}xpzK}5Pbls48^KHu7-!iMa=hO?ZLM!z%rKfX3Yzeqp;x)_DMVuZ1gDC`WF);` z&c!`P6azY!b6;kP*0XaDKM*o-=Tx*`lyZ@i(6i22E9;tHSv9rWlLw#WMlD3_R?Iuk zw%X&oyFy`Jnvy1@vH6W0`jhwv9yUj{kxb`jVs4u66lP*_m7z7K8#)>#@(ZVuz3Jhz z%vu5%Cf+0o{*64=Nyd<;i! zu@Gh{TDbA$sxRqGju&F)n+cqe{hu!0J)orVPT^X#@#D0@$jc2>dtT(&s8D-Y1f@P<3UK*FzKN>Wndko$E8IN4sqt+XzB=uclCBN}T*s-RMigNPY5gzP< z7`a0huj!l7M0>sxQXhQ2oN9TEqb-cJ^lF%p5}qsQ^#w7O^Fl2p34Iphl4|TZ@}Pgif5L)b}qCy*39)D;98IEUVd3&u=XZ~#=P=et{0ai=B%~7L3N=3SLjKH6E4D8KvV7)PErMR5WD(Drj@APrHz z6HZ!fw!@+4?pnM;8Qn>GmCNF%z4(0b&iw_&>FVt1WIB!wPd^Vq<-q{1@G-mHRNB<| z>Dg!dTi~jI?+Q!bzI(O3zf<&`dS95`XIF-X8!g>!jo5Vs3(oxZYnP+h{9>@&Xm0H} ztZFCa2~vPu4?lIx_VqMN+@8mQswr1^hliy(eQ#n48x-xw(C;IIlX)oQswyq3t-;Dei?T;oKjoW{?Rb> z`Dk;DAiW$~Px!GIpLuT~x1Xc&KaWSpY3U_P$_(_pOGKm8?>9L1dr5LN*X32b%HH1o`Tz$ zkGD5Z3OGeyUk}pYKb?3t`POY!zJK-2vPtItF*p4#-h|JS*wu}jQw?E;z6V{_CnlSf z1v4%+5@pXa1c}>(40`ICc#m2(^<`1D#bvedPNYnJ;$QcTTxV&DFMT;PTXUDlPP@sa z6HHEI42r>XP!csuJC)bDQ>ko($V=y3UiGc!p36B@Gud!T!Q<6Rf_!^%a_O7$6ItEg zw|y^xS#X8|PVnZ_W3)1s9!lTxQ+A%fhVr#`u8eh$wUWqc8G4t47XDgL_;hBYyIFI;OkeV9 zmS-kkv}Cl}WStGe_&G-2?-D|on_ye&p$DR-{?&Wc*huDX=bqq??dmDoCWZ^{lX@}0 z$GziYI4ylrkc}rH=P+3qb<5ot_*};xpP6~2yFd2O$^*+M&SMH2UmmXmj!UJ}$~YU&`#ktI(-~^! zeDsi{)2DZL)_5M(xU4l~?QvLN_{M_c!&Ny@CI;>-RhwkJp{h>k4aXvmXjA=s}}-i zR4P?n31KGj<{q$-1`4vhw|FERZ_P+FW4Sl5gD~oUhI;ZIgCG;%g~uOC4UbW_c%g8& zOuY6yQ&Ze9r)KuVgtMqs`Sl$unD50ozc@KDT%uBUYP%c9ms^ZQ&H4@d+9+*;yB5uJ zQ9*M;RQBh{1;IY%qO&eL6~5hZ5h}RJ7!_+RJA6qHC%~Xb*(}@Re4Apj8=P2~i{gNz z7BkJ|zbskXotiHU>p6Rsb3JPtp1=XlC8r;*^lkX|y7e4C=B~LqUj{{9WNf9wMe<_j3v~Lop>(I66+^8{3IXCE0E-v zAnEUs+ZD#j(0&-A432R*gl;E29+(#3Z`H}+VR3n(f8FdY-)8?VX5M`d3t0)($FQ0e z_k#=SBgI%n9r|ce2J-Z@yz#mpB?onVUyqJy)o!9!wex^K{rYI(nBz(kI4#0#|JAJ0~jA0%YTAjgcP#k^9;R5rn?6-Yu6I@?5Vi6;nUdG5a}9B zE{DqW9fz<2hHRvT8^e( zQ(CB;FAWWE;F>bIexyC+-Z$4xUReeW%i0B-ZCrQxzP^7mL0FIZaGE-0$Yqx=bsvg3 z=#<_lye^#}Z=cchv=c5|W&o%1EQp`2)&`U|tdNFnLh#1efzFw5@(D4_*o$+|%L)6a z<;Fz9yT{YQS!w#s*-=@1woiu%GfAg&dB0FFAncI8Kq-$<<2idLb9!cbx>vAh z5mS^bs$eGv!~Myowmz*At>3JefD{WLubo5|Joe*5`^wd0l1VPOw_PomtQJDESbwjmLqo84Qp55neI|K*y|vQOVce~XlNlAKe-4q}p&Yuh zLbu(kkPbeEay`zKbI>h;`uW$^M?t*mXosT@Pq?YAV`gt2zcAA%>pIc2UI)>DrQZ{u z*89A|$do?&IIav{#^v)y)GSE(4n~cP;&W%k(faGR1i`mzb(m%qD=t&&J=&U_zAw?G zlCd$UPjJX1#!Zh`6{H;zCO(Z(H#(I|R%7}aJAFG(s}a?*#V|*)^-J}qOTRF5(A3Jm z@RLl?3IaH{YJ>DU-4J zBb<~~k$lHsUpbEY@|I~2{qc0&bzyL729Cs=BYnl6nY7GW)VM1IU&)K7zF`_<`ZVBZ zaj5U~QSmtE&*ukISSf>_n~4((8XVq|rgXa2CY=M;cnJaq)&Xm_ed&H)=;7e-$Qz2= z4yg@#Sjp)WufOw5Qv8DZ-X1SVV42waLHt91<_#z2wxg5R4~k7(IUB9K@=4dHctbHu z1VbyZNV)v{25+)))aLLuCpHp4m>@aL`R*%4^HmBpDK$UlDJ5Qg==>CC!!&k|IftKZ zRc>Ze{Mn#q*BW63_c6%_F4KK2+c~;UwtTx@om^SewEn#(?bEeF0{iCfxu4jsG#-)M+rFQcU=SRlHv~r1+^6>LD zpAre1v+FPTE{_w^`$ZosWZaVHC~@1Zuko?lc&e{S3-979hJq-W%|eOEaQnp*=+j1i z{e;zbl?URS?3~uBd}-wpGGm6RvKAOOJYUdYzrw3K&T>a5T@JxlQ1Kq@uKirhOqzPY zyc;uik$-85Pk%Q#I&11KhjNGl%hf{*r*flMiT#W1ZT7EgJHAv)S57Bmn0=HBaj5I0 z9U)?q*1;Hy?bCzmf@gM@&av*uKvi!0^7tc~A2l1uPCQ3WzH*0xSqT+M9GdO)7Mqi; ze!Jt!(M>Z+c9N~6wVA-;8DKqAD5GL&((NCtg~ts{<`p&WMh|GCc$L@-Bt9gGODBE; zy$>5+5Pim>ku{26nYKQ?`YHd^8HU)B>pl507cB2Ik{?m)6sqlQUG?O!_tR(HR~ zd4Mh%myZqKCPasS8)fp|q=LWa$mfO&mwJkFgkN{V(RaE_8W#2klLJDvZ_uoR18%0m z$!2owDTcre9nQe21*UdPXbyF$#|mgQHtlprjhOnXZSHC^P>CAbh0iHji$84Gw?Amg z`X$BA&$m}`tzC62^?m4a-Uu2S^EqtkCo=)GBj0&&Jm51&ybGqPMfE zlCx2gm`>6oM3D#mub1ssS`R*ro zd+b~@>ajCf(^dR(qAo!t={`&&*r4eGgU{!qx)+}E#qHu#dz6d)?m6eaIxstS%xOC> zH=Nr?2~^E$^ZfUFvZ9C8kck3^mv`IDQxspCk5JyU9X-x!86}}YFGam{fj6Mw6^hXB zMY!{fg64=G4_Vvro2LeSIJ2CA45uY~C!Hzd*T?ZE6l5k2FuO7hQ zi{z;J-{boW1F1_pl{%J%Us5|id3nftRbFEKz4JSG{#)b?-)lUia8;CQoF|;?6K88u z-4|aXW1~@`U_-S}fjM#{|CprceE5izATd$>92QTFe;jHH)^eix?yNrSy%l7bCB&<9 zDnm4##+2RBf6Di8F8<5m_qf};Xo&sZB)N@5*G$$X-s;cpCl-6|o||T*lrzd5v!JCW z);1(eqgGeygPG%L@>mJGdv-9Ac2^wAwO}&cw(HI=nbpC!xK=H!-%a{Km!0e@Pv3O- zK0%h&?y^{~sZK9@{cLq*mZ(?SJO4D9&;E)4hL5R-3x_|OkCynZv|77kCq~f!!>c!q zMc;f|weTBy-dH;pjLK%6|E}?=@b6%)?zU-P@a2bllX~nynt+4-JQ5Ct{SP!nmQiC< z9LZEK8FLqc#Q43NW3pfL6pJln9Hx-9@AaNKdslNZU6A>8*PW-mW9%koFE;9vgw}Z} zse3MthfSr+7WNFKbwy_tD23pYsOS7zvn93tPd_oB)N{SQUFz*h^+~&|Wv-Qm9MgXtMuoJjrOl#M~Yxn zv%-sBBFj+<3++5~KgNyY(sk2E)KciC&XQt#&(ELkIxg;Q@C^W9xzTy(hQ|0|&lIZu zeW%aMMV>u()u{Nut!0mt^^`Q-lko07_eq;L_cgx0Dt80dBYooe=lnHhQtgX}jrtbG z8m=R|ey9*0=aovYJ{+7Ncaa4}E0ve>Q)KL8-ky~hcl#jSTy8ViCw1w0i{)5vPk*8D z`vB^0APFr&>|=c>ykN^ z@o&c}8*KZEK_Kco17|NY$efbklpPq&d|1;GMEpU+%T2>4=ZyvH$*tQEFb! z<4~t*xm1Lst*Ssz-t!`auPa!MC~i@;$>sg^dl@IO#d>BH$@f`BQeW1pW3?8d-y5sniRp_+VU;IPhP#}$0} zgUQ#{1gRH?>aSUye`6VU_)4%5#!+23+qutbX2iba7Hjk+>CGsx*-11NjTo-Vea#~P z&eFn?Uz|H(-Eq+W2D>WD%ck-UyM2t4-?rsbc z2i4q2-Hp%K9`s9-SrIwnwYN8j4T4d4DnSX`Pw}3KMJBcuvQBsbR2S71!j$SAtlPp1 zv)y3%x%>MUD{2HPWzo%nJ~ng*&C7bH=jWF{mvx6ytfG#no-DDr0KVr=8Q=J>11c^q zKYz3H;Ld=-!@X>DzGgh6jw7g|M&oo`)!Kc)hVhUN$glj`--eIvb-|*%n;7GJZ|75Y&!HE=zP&CQ<(&N1jTPM!v`V zi0Bm9By<`O@yS}ICi7Y9N;aboS_(ZaI8|X zqWI9J8^3-AK|=~{E38ZuH?y)J8#2p*jWJ|}+_Y5q^C{dV_nB6(FlKk@xu;P1#O6z^ zj)J{LL@;l1pE_KdY`oDiZJ=a3?z?hkd7#nX>f5I``B$2?K4U*0DtchnZjL&MQNSgq zbO$%Qm(oB9HymAddbL0fF7-S{<+Ij#xKl)mHsQRC7C4QxR5UxH8rn(RM|o91A|i{@ z*B%PSk7qX?o^W0)qP|y%+I!jwTRmzPw8r89ciXLYDH~zCM4E55p>I z%)VOs(`-#_mwZ}!2>_K*P?Dcj-*!OGoZ0DZ+ zbv9oWz9y$gIOn_#%g-JiDVL7uVK<>>1g8gRphhLxMSUlDNabpT_2!Tgaq{iOYilbh z%178&U!O2YNs+WpeMuVPc*%osf6tY5Cu%pE4-=IqOtYB})G8Dep!|NeE6v*D!_Ya4 z>r-CKFC`7q);>P!e$B+`AeX)CwymT-P4Qht^z}-$(qIj^QJmNim143#$4 z2CLlcR$dD~UEy|TmzbIXD%CHw(guCNu&x!&$517w7_;d42G@$mQf=$F+aykA=V0IL zknB#L&Ai@r&+O4a_)ghgxA#E_Qx0^66R0rN+myh_Q7H**CiZay{ncKcJi?T+kxaX| zSB6+5MjvSGV@Hdqxj6D zj@N~|`zrUR`i+zyVBnHwk)CuvCroA~rK|+6%IjNWwKWpNvlM3;mltO`gHf4MYhM+p zjxJ`1c#=_l72GovIlJass6v&T1W9Evs-&j%+13yiKCrGbF{ZlHC&%VsR}q%I z3%AJ<(HC_Rljoxx4n!%`4(nzdeDb-)EqkEIEG;OR@pTBJI1SCJO zw+dD&V`n71Z%XSJ^BlMRKKnYk!W_EZzVDm?*}a!_GK3rs_QdHd;Kp40{&nNp>C-9I zp!sw*ne6;NH=}1Ywf;?H|Nd^bxt`}zmqOp-IhZu4L78&zHL(8_w*FIsK=k!8E8WBI z$rKV8lX|z1U1DMqXZUCxyR?zsV-GklR}nYI%Nd22g z)imJM9>geK{aowO9E`K-`Y>!oVMXCMTsq#NnKX&l@*AyOAfys$;-~m%)hDBMTiPcc zY4Xi8bI7^fPLZo_yJvded?)$%US{q?4#{u(tIKS!@3Eqw!Ex-u4CZm8HiLjI3MXeb z`mgAw%BXPq^8`_t)VT!i+QWUZ#$#S26raL?q9%lpJr6>Ad>4SZJ3=56(Vo%NR|uOM zuTTReXD*1S@DG()8^k3fa3eBH_E>n-z#m2A>nSjp7#AL*cj_MVyh&F&?w}z|=(=|r zEWohmyl^%f99wNUxnI!@Y`TU|?9$~ z{rx?~^vi058YP;|`h%=!DR}+P?c0VT6mc{@9127otVU5Itw5=-mB5 z^Bq3ysj*9lyu9$})N$e$`;($>=dXm|o6wKN^MPM#FDrfE!+n5jJrTF8DZ@Dqv?7p}{53hmb#e zH*IixVa>7eG_`BuEF?p$-?nr`SB>);*^Ug`c|dRz?h%{=`(EbJVu0M4*uje9hlbeW z%x?P+QOD3Y6i8wcXzmHC5oV>T-F>-$?xS!7`$e`6Fh4COiQ)Azw8DD4vt%dPFeF}5 zxyff!|I>(05X?~Oa~wXIM`ptonMMu}gfV7Sp?Dm&E>Q!F-<}9Y57X$T9aw&!jFY(_ zH4qRcAfbWP2qkkl8mjaxb!c=<)M@fXFcT?O?I!B4spDEN@)yz=2}Bn)=Frq0IEq`X zlky|~G=iENuY1ZXD=1;U{efvO*s9D#aJwUequ)h-T6MlYqDM+Za)Wmio|B&_HaW_V zGci5`rpZdHFEMz?QGmv;vCzhuzhS5w&9=&`+pj17q`9X9kBKd8; zR_pTxIPf)_a-M*bTeUDI1_PMk$6RiCz|2hY(8w0W^v!LoRKCKkYERT}T%|*n5xVEl zrAuF{L92+htL6+$1_&T+vKq8WdW=66lkEv}BO$d(xna)Qu9xzIyD_5==_{!~lhCCw zEoiS>TU(^DRKRFaIEDw~U&B)alZLpVW5Hk!^$yo1hWdAfcW2P$3zOeTb@gFUz9~!i zt0)iw!2t_y`t94dM!pw{iX9I%rhT1}PhrHbupP&VD3Q`C6+^yz&5N-8sTJ^>(Dhi$LM$*ShL z&c>7Ph+)r(@HEhyejzLs1J62vwt{NHb!F_P0JAM#4O_FdfbC0(Z{5z7!#smV=4H;E z4|(^O99@|Q0VuK{3UR5%+Xo26bYS_=7gQmQgLMcQ#3*n)lke`99NJ;-)F@*Ad1ZPU z;J;#1!l}Fs!>pBA|no!6^r!P&_l~V>nRYN{8V#DZBom{@GWC<HK%W2=!FWC%mnwO9whKIx%3G=pic>qx_cDA}MtTQ5wQRGMk7oU=O<;-Hx>aXt26ox^LsG-~n{zJ*-&a{Q zeu;NSxh}?V`%RRDtb90IhK%d+lS#^}jZ7kE-JYwzzy5VOi+A&*XG6QoglN@xp$feMn?w6RBe8@2K`PxjSu_EmrLeJlQqnP zPpYIkRz$C-*1tstlmN~Ds=aYr&9R%xRAT!B+dtSNhq(OXm~a%b$Fc-S1dz}uKJXuf zBL3JTdF$$b{tukdRtH+eGG1BvBY?&Y64n14>R$%|oG}f9^U+}@CZ=_OwF)F(kbc^R z`mZD7cVPl&(CkW0O`i`82!b`#)h4;QxdQ+oe~|n@`f&u%?}GhT6moa>Al|)KvIfqU zhmWYLz7Q4`(gAppqz}^ndit+ixpEtvAr4zwTEeQTDouZd%>GCm{{8`vz?taqsgox+ z)s7rV`y*lh6|lm?BigdFb6`DP-H+;OYKQ*{oPQ*a#KfctaMnEx&b}P_BjNrPu-x6< zOfs{wKfAiR!a(*<{tBFbBo0pxkCMDw1@Jin0X}j>wc?M2{a3)c5ft?7&Yiok(edL* z+s*hZaQ=}v($mw2ZUOmgYajilrgr4g9|`-2|pw_=wL%b<5FNiAkyzX|D9m|wql_n!2wN8&FfB=9g((M_O}u8I}yi3N7mKX z*TZKm&V19*P`~^;!TfE-@^9r1l$V#oCyk93w6rvZ{x(8>2V!u}pwOe5>JRz1@?d>E z-PbzWNB>WaS3ukKeDR|9dqR9H3~2v9cUVo|cked+NWQSH&e68tQH6hNk?hR$ zNAKRfgzVux5PxftM-Ajra$_TGW@<9| zw-WL@kl*o@yFJ`+=Sy0kJ8WvC|Lk{w_}hwPIYCt9h@F#z87JTbYY4tUfZhg}LoR75n((%?X4e+!`$G9ep~b+G{a3H5Zo0D!To@b?l=f8 zy#{s1+CVD56=!o8^t2t+AyS_Yi4goW41!xDAh;zGDtHzv^M{QqLPA5ldYWs$Wq6pw z)&3Ct2&DQOKjC_w#1Ho*aKW815ZoIN!HVPV26a;94^3w}L9S6&(9VB_U348{1n>5ZXCHybvee+7pZMM?JDdt= zPvnF9lOP!I*WR6^_>Z$|{}s+}z0S+ac|P)_49+K=-je;6?g0Hq@Q!Axz~eXd;0eIP zaJo9&4)o{=kSEf%5&o+Dpt(eQ$nu|Y0ofZMbdG0f!V|fM@Mwne7VXc#`!6%(;K|%$ z@JNQnR(*CSKzE+SANuE$VE-A^fBa1%USoJzUN&8k9tP+88p3rz{s{dofJQ_{<2R22 z8uS1yI-njj;g^|sxHFy`ZUK6X=rh6t&?)$i7xW_{3Xc>mB= znL(gO2>qj3S^(Y&kd6Tz+PPJ}H3s_Kw8(z%Yd)|G+~Pq^4uaf|i_p!*1}!Ia%w zv`^&d!sFn`q%lwzFS8VZPRIe;MBpw^7e9DF_(1BV%omyf{BI!FNZUtjSbySAb&2TZ zP`VC~KcFALMCzqA5|j&r=9(fQ_WvmCUw9!tJ|=Bq_{Bz=*Lk?&pLHMTIimZB>?d-6 zrawys9!-}A=>VXg8%A`b5736R3B;}-JR@xrv0I1?5IcahTf`ohUx(mgZwMaCIS$|% z0vP~VWJth3f416pQy6r+HWZ@x1rq=5te^?>k$L|e^*ER+ z59$_?0R#^N7)V_quAJ-;%!d@NQ;eb1(TJd_U;qmhNonKA;1!d*g`S{H#0U z*&2X;MIigbpkDa5@FMgN0{VLauZXT7@<;kTMCM3B^ram1UupIbT;dJQyhwq@d*Yxa zpfj6~fsCF29-jjn0q$+p+2b(i`hTYQzuqXm3f=3-uv)5#CcxQlKjA~_9npco)crrn zev5vsEj#!!LkZ9?2@ivI`9to;b(;Xl<;v59~oP@l8 z3HLwWs|th^K|Q=fY<5Ekbn~B|{kz{ONr{igCnjKTx6824Y1zlM{?Ic-ml0p5H);P? zKl79AQ3JFC-OoUD=O>>Ik^K+7N80KSy)U{7!8e^D7-_Fy43X`168e9S>irdhDgvNg zpiR7J3WWwM1Am(xN=i!TYHx3aZEdY!>(lyvE}P&l&*LYp!bN~6xp&ngMfCVPukLZV5^We zkF?plUjNXWb?=kV(I4>sJ2~Ki`#$M^K2CTV0|@~iED>qThP+us5e5y+50t z-wXfI4Tz^c1UgL)fo=mHJ|gxWkw4OIGaR9h!RH{?K*Aq8HvGM`{-<))fshF3dn|zN z``q=0ToddeWI4|t{s(U|Z5;~_Z&Lr1uT%U>uKe@$zvjL_-Cz9=`Qp#d7s2Z=3I+dK zKKb+WssE5q|NOk^=bZF&PV@yo0DQ7C;0WYIrcH{ioO%bMAZNr)yuZ`UANSPlKETg@%{G?{yRqB*@_( zIS~jLxt{zvU*|=xk#$;pAmKs!$2u)$aPd3-oSYoBJUu-(3=Isvg5p*nas3W3zq`oQ ztKMf?-hirGGlIUqDb^RyOS7 z?7Rx_|K;-nG0_ofU`~48;*9y+FOc@9-%3u3i+=Q|dgJ&pgTG}?HZS*PMNM@jtfi^( zx6G+lS5>qW-z@}f@5tY>mg;G1>xVNrKA`nNg9)EiOle@#kH)j-i82)r+ z`xgWthS$;-u@4S0g;t^nP@}iOU+dpCB-%ahEDVLyL42bTjMMU+p^|U{B>FF8{^Dht z4P={S1zpH?gtqH%UCeo$Wx2{QV%cmLh}N7a=BPt#oCIuMs>4g&EeFrFO+W7xiE5WBw))n?d3 zioaC;Sp<|f0LHtuU|ilA4#vAt(8fR#=Z&E><=-5ukBW&_t|`6!wkFIBZUphfRxs8X zPvwHAK|Et9nR|tef0EhkEj@VprW)K2#{3{|@tgdYn>jZhj<%G8nAk433B>gf zKBlvkw{XwoD8sL_WdL8oFe2w(@T>>$3g}pD3WU}=0IkS1kUQK2}^hhG6c5uF@GVtD`;QrB$& zH>el58tCjz5XWl-zi0E*;E9aA@Dzxjb%VG;bMU{9^_F@<9KBUJBh9HUTe^q98&4Gk zaE`(=H&p@evhb^{-S8xUHxBf16p2Fv835kkM?mM0_L6@Y;CF;NK#VlKGZLx;?dDZC zs4Junz-<{AA|Ax;~*#u;QoTV3&!xj+9so%PABz~ zi#KEK4}E!b9a=_cp2`Ase@h4Ot_bi;ZOQV7?Ejhf+fEQ1a~AsUp%0z-CH_F1RSwAW z!;@er_m`d{_p)vj7BCzzvP1@Y!zwV^-W`{%qn8nOetP9ylX z+859{MBf`g4D7Be1V>sx%Rugb>X;0~eVBnR2e*bmBTs{&H8PMpqH~DcuN(jScJV8{JBKh@NSeSPi8yiJ|qz4iXq~F}%{W~mve*UHrkumSVn)2rW zW(G*tK{^N$#lI`}Tc5>)MF_#cp$jT_d=-GH4bmBq1VH*j=nn}AEd$>aErRi*9|H47 z`mOZ+r}siaLOQ|sdhcarW&ZHC7aJ49nv#+-Zen6GAtQ764_mkLgQr`!ZW(4~X1z5q z(C_+j?~lwg(o@3|;^RN5si{8vBjNslm6w}c3D&KD(bP~+`f=}%%)$DMHb2t!c{Np) zKV|Gqu6s1>;^sd7N7DQQR)Gt2?tV(}2Wu0(KP7Hb7a~$#6^P%6y#T!pGyV1c9HHm7 zJ479S5n=-C$$oR2E=>w5dveovy$bk1Ey2)gfh%-9$p-qxHc)&8I-heHdIJ1$JK)=Z z=<*{Mnvp zsBAFxFwc+Yzm^x~X1-{MGT9nG3;-W>CRZK!4xrBtgH}tup!^&s=nzu2(hoZSCP#5= zT|hsWo14no3+C#$>wvG$_G_@?Qqr_aa?@rW1*^hOfZsQoA_m4Bdhn~8DqHiEF91J) z-dP}zSaKlLIRgCDVUT*j{keh@TkkvzheCf1er}L+XkAh60(fpeNzc0@I(Rz!wZN9gsVY9 zq|~DlIa(tEg;okhpe!Y-(CXH~F$Vo&9HK zcW3^7|FLbGvF&MTUgi{@-7t9I`w8TB%z&Fu=_0szZ!q=|+&6(2YBFg4Oai5PjuYJ0 zANfILi2eU&$CfJO%H)(};eBHU{vAKArqOY5%0EKEQhWcicV42Eum>Z644~bZPd6?crI^2M z6Ja#AAOV4>g%ZvXB4b|=>~Y6D%5#A0`+nw%4Q8%@bKG|5&iA`SaFHoIb; z2|+B5fR@0+)&n7c#KR8wq2Ocd>@csyui5b0ni^MSMftM%klk+IU^2FIwW{jAk8ZqH z4Gj*)Su7TgzLj22@=*bKLyN&6$S3+Z&1;pz;rO7bs}tk}3cIWgeXq7!t-`&VU6$bD z$&e4}>+9pHs>;rPk#{%GgLX`*4*ABJ8R^lp&opMdTY{TT2kz1HV!8M=Ko^o^;I zzG`zQTIzqm>CEl9+4^m|aX0)DanRe_MZG8Z3hdBJ$`tyTn?Q+eG9qm@Md`As17oN* zLV=$%d_>ALjvl6YyE`#7Hr|DRswMWwa6R7NlQ0LA!(x z8|v#Tuj{mLYl{zMHRqDG3wl-M` literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/AddMark_10580.png b/app - Kopie/DD-Record-Organiser/Resources/AddMark_10580.png new file mode 100644 index 0000000000000000000000000000000000000000..8c41031ccbbbe187f4b21f2cea21a7eed706ed66 GIT binary patch literal 175 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1qucK^IRK#}EtuGD(B8>-gQ@+6!;z^|+=IN9m{>D27%(hZ)9;%x Q1!x|Fr>mdKI;Vst0Q|5qty@pn zfNi7aC63LKHyKLAA3icxxXokCa8p5Defj?#1~-<57&6Qk=h(#{5^;lvA@k3Nf66k+ zj}J3TM>9;!VX#~Nh}UI?c*jP;yWSdc3%VGWR5kz7QxM5zIozP6FEG3E!c|5Ftxs*G U(=%+$fsSDCboFyt=akR{0AChLT>t<8 literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/AddressEnvelope_16xLG.png b/app - Kopie/DD-Record-Organiser/Resources/AddressEnvelope_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..846e434ac57369d5b53f0bc45506afbde06485d6 GIT binary patch literal 195 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP_Wd~ z#WAEJ?&xGkt_B4G*LuU_#ldrziu0$e#AnZrJ|H$BhrvVHL->TkBwmN@b5ocv;lxVoy| z*?A*JJ%eGBTFy3M6NV)W%LFZ-Oib=b&^Zv(DDz20(m})UVF}~P%BHHy#z}8@7@n+o UzRoW-736LPPgg&ebxsLQ0IeBLApigX literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Checkbox.PNG b/app - Kopie/DD-Record-Organiser/Resources/Checkbox.PNG new file mode 100644 index 0000000000000000000000000000000000000000..85506007e9df91f41d1dfde497eaf5b453f353c5 GIT binary patch literal 584 zcmV-O0=NB%P)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0o_SNK~!i%?Uu`N z#2^fYQ;BKDH_GvKbKbN-FRsNin<{)G2=S0G_>r*Y5dIm>8iWyi60ARTR}*#cjnu(6 zQU~8i4E#8bzp}3D>fjqG3w~YKQ}!P4i&j$TVHm6lsZ0-O){~H0VdIY~%?152HrO;f zS7luS|NVMd|JUUY9jq$&!|HMnW;_*e4M%kAV#az*}GlB7qX*$ET+ZV|cJUf#?fkZ4zkmV66W= zRuTN?;}JmTs{JkCcNgtpxh8EVm1v;>q2iqQuG}Ogi9z9J=9(vx2$O7x82!3} zKuGFOVp!NbMpzq51o+_D{~l`>ysvt&wA#VEud3{Z$UR&9j?Y0N@5NHIzAD)ES?dG5q&(li!!IE=AUcM-U9xgC=33obzN5n-$)F6*L~{X8>xeDqz=A`wEh7A WQ_J+(su2tT00005t!!h`eZD7IYtJY&N8der?2N~Go0iGnyqJ%*9ARF+ zaT4>^zwcTsoix=P^A5FjD6i)|*AN%R{qKLT_yGYMcl`%PErD)f@O1TaS?83{1OQ?9 BPBQ=i literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/ComboBox_672.png b/app - Kopie/DD-Record-Organiser/Resources/ComboBox_672.png new file mode 100644 index 0000000000000000000000000000000000000000..91985513891e7fde29213c5e880184769dc6f0cf GIT binary patch literal 220 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1quc!9q_L#}Etum7e8YG!6`%Ghek?6YDputu71Y68K2l4jmMn#F>~x}Q4vol=5=IV@rvnJ8>6Nqx3buYlh+tJ%uYA&J;J6Bw4A}y L)z4*}Q$iB}e5Xe` literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Configuredatasetwithwizard_8450.png b/app - Kopie/DD-Record-Organiser/Resources/Configuredatasetwithwizard_8450.png new file mode 100644 index 0000000000000000000000000000000000000000..34c53862b36599df74a4451838ff529d3dc32a45 GIT binary patch literal 314 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1quc!SkLjjv*HQQ-clp4lD4S5&pHLYp#9BS^bF1 zJI`qLpE_jkAugfmR{EsDk>#Y&rjIwv%`Q*z<9PUPZ-2%EX*-ihjzU?M)lNpYmij#~ z^j)T~a<_X|{*-(F_c`iZep8yTw)fbKRSZ8ArWJklbXdj6^!}Z+<>majUr)tO33iCG zose3&mC?)b`d8tVXU|(+J|(;5n8(WkrErEj64AnoCco;sv8smYfs0GjVTPyote@vy z*f(WTtPw-o4MVqgj}J^but{U7mcR$u?km4bomboZ$(81>zrm!O{j6tk2+(T`p00i_ I>zopr0HU~lY5)KL literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/DateOrTimePicker_675.png b/app - Kopie/DD-Record-Organiser/Resources/DateOrTimePicker_675.png new file mode 100644 index 0000000000000000000000000000000000000000..273433cc8e817595ae920dd55e54e56b3a6945a8 GIT binary patch literal 229 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1quc!75J|#}EtuwUZtB4k&Q2)JpTO^Utn+n6=sW zdh;U96`U6r^ysuKS(SQJsL53&rQ)CRY z>m*KQ{0(*bC3d^Bou#*IU!`h9gMH)<;{-;|`Aj-{^%|DmWsO+Xn7(0`p3AXcj8P{J V2KHp0_653v!PC{xWt~$(699kiPiO!D literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Delete1.ico b/app - Kopie/DD-Record-Organiser/Resources/Delete1.ico new file mode 100644 index 0000000000000000000000000000000000000000..69df46955a87be456fa989752b56b5247457fa22 GIT binary patch literal 22486 zcmeHP33Oc5dH$Y9(#YCow6E5Tc3JWwZ}KL424ig3HbJ&=v170?UgFr;A;~#OAT5$3 zs7ryUq|hE55+{K}2!%Q&#lV3iYGe>OU<{O)9gTsOhMdIX(v|^Ky?+0Db4O24Gtx*% zifDCpe*Jg(x4ZxMzV`;ukc5T?5GUil3}7z+uQ!}d1~OcL+ij-zB?2e%5vKRzzAB(} znxbc#bWg2N^j_>s01j;eYAKT{a3w+X#0t~VjT*dw3Y>%oKSl}eL=kRA4z58Ku7V4f zqE>qmRoauNobo8LwcT)Qn^EO>45`{;)FeEO%ESkdm#`N#$;aV!eh1ZQe}|g%J5ir` z7izQGv7qoF)aKlP)TA=Zn|2fpCAVOC<#8;ixDl%x9)xcuX{xWqlKK{0H17^9pWO!k zoEyLf5{}fkWbrkz{wV)giqe44@ zy5ygue(Eof>X?b_q;*J7oQ(}l4`9urTd;F$8}?oKS2(z*9oK&OyU0i_KxRe>vfZVa zRwOOPzSz4L+qZAW<(FTMjT<+jxw#o@)~vzGl`GNI)P%;yM$Df-A9Lr<#jIJgP+MDz z>gsBgmzT2-y(ld$MNv@^3JMC4mzNi-*(dWSTVO)8z?T0bVeQ6E%@@UAm#J)g$BIGd z=j3Ev+*dr^=&OY*`*LitA`MvEm$%rUPi*eX=@(m?%5u$;Rd3Lvc$FouFY1xf?7lQ( zg$9FTbHB`R!dP@FZ6yl~hBQl^6hS6Sv<8)mV1q$hv?h`fj&Q$1hCNf#(xjMsfvret z8kIcEka($;VL6*I7I~P#xuK6?aPlxi`g+AM6#14dQU$GXoyo9lP-9FQ3&V^!$W4I$Gp{6GY5;88T8H#aWWV!Lzd*` zxERcRTT~=(ii2UMP-@HT1SMV;dq#&VWQ-YYIaAUR3H~88^pS7bA~R@iadpB70Q5vjzK#!LEV z8Yz=J*Ipu(U{Bbyw=~K0h&JG7iA{-?S#7XZ800Af#7KtNRMWqN9x{X0)IV3HN-N5Chz#~Jhp z4!J^xJwZ>eL((kO1e3Z|a4R*o5KFy?rCuTCOT9%dnN3V9jI<|=eJ1W{F|quY@}aP- z-d=*AFxWYD*Um3N&Z>0@XD}n_Wz2HEg4xNhVn*^aXh=Ja1sUC#lm0v!T>&(@&!WL~ z60_Zppds^7H0C~og?Z0nUhWgPU|Il8#V=rS@vpGl^AvpEF3c-Aigk6}SYIDN^Xzxw ztNJOH*W3eN?Y&sr@Hp1b{W*5{-^0d5o!H#eg^f!e#lqS@!=mYb4qw9!xbDi|;i5&? zWAmyz(KL5I)?By)i}Rnwl7drcEV~VtEV&;$);@;)o1a9}oG-$+a3@w>xB(ZhH5?8c zIB)>Fckjl|ojb8@+cs?7x)qx@Z^ougn<8gWHqT_3Y=Qr`E#M!Q;9I(AFg?kdHp^!t zsF}L^Hr77Tv>Zgp{r;(JTWhg2l_f3pwj?c#MznD7 zVi_B`b{=cGCMC<7oKSJok1+p>j}h|e?F3iI)9dN+^!R#RAv#(?U2i+9>;K$Icj*Wn z7&<8-kFNI+LW~FLyqs;*_0E8<9|^XQn|#8rdnk+k4nf!T^8|YkKZRHAhOaW1pCUd= zePVwfr6J{Y!#`2J$-JyC!w*?j@**zuyp4-zoW<(;lZL+`e#X{iXRu*mr{QmWe$@$F zyW@Ss$B_H)O`qEz@h#TYzKK=SJF)+&Td=8lyRkPMI&=to_UtkIi5)w37# z1;(cZDhC9ww_jE+TxH>md^A?5O>oaLWuG6?OOgjEbDsD?{C+&ietLpFTAqO_C2@s zj!&meYME?-{w=_#=#ZOCuLTMipF$YVAa>*sC9 z&k($XAwwZ<{wHO(6{lnMM`XT}AmeDPg0%U@JY4rXzS9wDKjz6;FmC3DQe2F`>9pFd z;(RBBw|T}mT0<;jY_vmp8ZNlE9FP2u(kWQ#K}D+wap`2A9k=pZ8ax&^J_2T}It$JjM|BvkAv$D=(~+a>MBr7e{CY1)PCX2{1kFSD;MT{3_uPAxqK6z<(6ml`XOA!1n`XKL45^eV?Z2ZP+biX1v?oW&=0g z8;)4#o5aoeT-QU|PC~RgoxXuDM~+- z=ioq>y{==m&M4dB#nI-2r4FY!w_ly8wyQeEssrEsjrfkL4ilx_mF)^gtAnyx;fZRy zszV;W-c*6dKUDTwaXC)(CLsS9X~QqAD6R>G3s{F2t#+%pWskdt7LVoGXQU017j2zU z_6z17C;POVp`{L9!bAz~92`7pwKY~eT!(HN-cA_Ldw^JNm6naY1I}u)hKjFHh+BSU zuS?kH`z-~^IeHPnc+WAGf-%gG>WeAcsn_s>qV041zCwKO^Q3u@AZO`VJ`;<^B*bOA z(rm6x{m*i8eh8nX#b?@17_WI9({}OEXop+bZN+kyE5(mqw~i<2s}w8}-&N*yE1{M! zlCvDy;tEl17n{UKql6*P+R^SdWUnUgdxRen3ZBCf? zdl~;pIgb#;2OsJzM3T5eOxyEu{X3LW8MmY`VYE5H@27Y#V4NdfAlYc`6Is#DO)_SR z@tqH-XV!3SSM<^5gvhn+6LI&el54@6Q~d^?Z}_ko_zX-Y4W- zy@D{3`B0sOJugMGy%JCM^6usfBa}(Q+S|#@oLg(#}bO$rhMwfzNgenD1u}{Jw-Awdgu; zIOMw=-D%>UFb)ZZyasCG4i~>~0l$0k3HIq|p*(nc`H$bhcqoFn!xb{WlX3FxQKo|q zeuzUH(mFhXd(cWwerE$pB91^SEs%5vEfO5y%clkor#r&str0$-l=q_5Be+NFF!eYB zhW?;4WY`mMu?j5jpq(wmqTNSK`#U^leFDTrJ(*7?y{Cm(+C{fuT4SVb-|_~KtygFS) z+1q?H>aBDuY_*{VXFf{7f~Q$_yAzeWtI+lDs*T1%cQhMn@p32~t4>v*BQj6MQn$s1 zesfdRoA)b^k!IL;l}hd~u!HZPU9a>CF2m3MKz^BLGB0Ay&0(mBNotJqTD&sgSt##* zPLoUKrmPQgFB$h*L)v)4fH}rBsjC*R{zkP$F>Zf_f*v3oB!~+XbDd||a6(kw6kzO$ z)PGFbP>Q=>OF+)UEc+Irk)YNHMn@C|==S2lQ=&{|tS5|U z{UzT3-4*y{H}mC}Ee7;2ZQ$JKJ|}GuZw=sKUaa6uMblF2ULy5M z#ZuY7Wsi#*sM}5WrPv@)j5}n#7XLx^PU)|BY)DDQ%u9Gr@>?ZG)|;uAy^j1t?%$-5 zZ{gb&Z#f=+m+uJ3o-rp5{)7Uw9jwN4k#|02z0JfGUnOrkA?`r^&B~9UA9sk1_C0fe zEUqm+`}{7%kz*tr(Yit#*dK4~B>&U_%A#b{;kUU;Tw6?bJCrwDp3lM{wKWO6Wby1#&KcvFn zU?H^V1A=VQ@=}185a&IGoP*{37|&WLd#`of65dM)@?Q0Bf~bxbWX=^6wh+EVFl2CT zYLoRLyr;{Em3RlExGp5X^lPvPSk_hUZ$l~nR5!S?BXZRN%ByJgMgUBj;uQG6qLuOrCwG#M}UkYqh?<>JdNByh1F4U`dJ z`@Nij^|vywjUc|4)&EP7=dS9!B+tfK9`Vg6gL|d;E^nUab50qfUn5i!WK6M>@3}zn z@;Q#2H^k2#5GbRSpmX0|z(Rvph-6QZd>LO%N*l$~&cbR0@}8^3>;J+#6&bU`;th)! zG3xq=4I1FbY8`~bKnH6TZ~{SBcSFeaRxs%7)&q`iy+eEG+~HOnZ##=U{C%gqBf8v` G0{;tyAxUxo literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Einstellungen3.ico b/app - Kopie/DD-Record-Organiser/Resources/Einstellungen3.ico new file mode 100644 index 0000000000000000000000000000000000000000..3c5c00df94dbc69ff5a85f696eeaa0a49284332d GIT binary patch literal 22486 zcmeHv2UJzZ*8jd@#3UMhNo-GJNi)$Tn!LmpHF=h((P%U_)L2mzR4j;~^xpgB(tB?g zkfvBcDbiJ}SW&SzA{K1S|2OB}OT846yzg7%-swTqv!^Vs^#;+-J|yQKOtGI34g5gCk2v`9Co1>{lU8S< zjdO`UgG^LGD*#?kTU4s4NypZ&rxP1D(y7gxsX|wm>pVg>BoY($J8u7#q_yGc&qj zVL`X7tmv+-EnT;^qWkvtR0!T`M@M?->`ZqY?CG(a8$I>#pl6<*RAFvT#oM>jOK)$g z^Yx`tBO_w|{=@lwfK~Z2x}p)zKlAl|}5}K}vIQAeNg;EI*%)p$(R(>%3G-j@sI^%iWz=Q4!^$ zjTaz$H`=bLrbb&=t)eCK=FyI@Fe=`+kLLdRD+T-cQ7qaJhWlE#b}b#(*+dlv+vu8= z1)VoFrdxJ4=pQ?JBzC77;DVborR(X^oj^Z&6dgeiqQWT~efnf)I^9T!qnB9+=*7V- zD$&_M<%arn+SHKFS)0*iJ1e^4U_&KlM)cUg`X#G0!wz8xnrf845BRvT6q1zEbRI@vS_IZhEhr0`%b+x5?do!pi(34`F z?I|}YfeNg)Q;CBKmAhEdML$7rGGTN4wnY=umh7C40J1 zVL}uYCdE;?mmMASbE9K^j&vf}jm}9!s5s1vb_aM;eoQbG``FQu04F*Y;zlPUy(rDY zmU2QQbRfW;vZT?JFR`T3U>7vA1aLTqr3=jDvS*vX(-wgA4_?Dwp1A6Oea$#C^yQ7N)tnpxiKL$_aI%9EACiZj>ADf;PHQev~`zOAL9q zpI8YMC-?xqR3i05TLOSUI6q z@5~tAs3E@9ZTKd(Zrw_oHf^F+cu$utTSiOpO)Xx$m=-QvNb~2bkr~b4To;NF|ax!R#f0r~?Z{oy> z1~z5c2qsRndB7e#c+_gMq{mJRZ2A#bQiThP$2)T(C(n4=N;Tpe=dC7ivbyXqgg+S^ zP1T$*Vf%}FP47`2lit4MKTe=EvOqsA+l*iR{H!Iv^zI+hj4OrzX-ays==K);Qfc^4 zzvkRLtMP*p(r9r5(nEzBW5%rB!+%?nc}xCEmw$885PqBgv}lfPdC_S;WK)>*u#G}PwibP%Hee z*z%>Ew)`d+6nE`{yCMw5tU=!(}w9zTTkni(&Fa1Yf*+~Dx^Q*!vY(JQ>3)5N$JNlm3R+fE zpDeqGFFP&dji`HaSDpp_feQNcQ8Rw8^7AG_=0_uDyp&~nRGt1nL7zTt#?NkDv{qye zl0AXQ>*uXE4UmyMsZpWZmmKAJ0|v;SSX9)(k`(7n|Kv2Y5vy={yVz04;6DvdI4Z3& zq#vhA)y)drzUU}q@So=md688+dUIM{+mI$)-8#2f$lyN>-@x32m?gagnyu(IdAS=E zOJy0omaeE5b>OPo`*Ir6w1R}IzCy;TQ}xV@MU^_eTTe5ZJc6U=jD?(0jUHsw?MvSO zsHZ-&|7Z{uSmi6r=wH`pkc+sQ^OZ^wzM_uAES9GadDT$BtNfg0_Xg@aQ+^M- z_Qw2PpFHGML$&)#GP{8`X!Bpt=QCeCzJJ#+(&-&pT=*T*z%MC3=kQTfz?H0pZ_BCY z=btZMrijSG9~<~tdHF}^rt&1=LjTuRF_-&97H!RwJcqB%Ruxa`nX8TkZX zOj^{Z1$)%-3+q&s(I~^Dq@)(?Ok9@PMW6-t3uG7a-)66fqGUu>*4j5X#TMHO;TsO} zu*F9qE0R%_Wz@NI=dtM}(Fi(sUU#ixt#C0(A+lMRbn}9}+7~RMDpQ41&l4rl!o|jB zeD%?7`}gl>OnmKhCr%$*9KUGSsgqW#?DBHSH_m8r{?9Ff$|^Rt$IV#s@pE=sB9X|V zzTS2&l4Ycv>!m7VM1YDAzLba6)TswguOw2HhboOjte$whP9DB&6mtGr#5;|Xg*1qV zs^$c}?j`l8X6dA)-KIjBqst4S42;O$aDlXxf++QILG#}#26S0Z^ks}X`<2+!xOO+YAF7(*NmG*%DrKf~m0I!0A ziG_tj*Ni5Xv6I;DJ;e6xg?@N|SPt~TynH$do%jrN#gjUlsS@kzvshPOgg$%4$cQcj z*UZfXz4)q`sh}5M!#eyv^wVpW7IYQY=dmW|y7Db+YpRBxdCt^C(3S5wI?xSU8!FhU zOOLRIzXLtG7CQ4wtm|I@Tz`JzDW+GxK7!tS8*6+P5FqHx3_52f+QD^XDc1O0M-I`_ zA{HA<40>xF^yKI9ae}U#%=P2sWI6{u`w-eu2fg_o*OQ?$KZuJZo25$y-T6skBKjah z(4WJg&%0qifbHH*r%-1y^nL~%HwwDNHOM{*y_;oc)2jmq$QHV?>GI|1uN;cS{bo2h z(JQV?A3jXZ8#d5Z=p0;sW~HU%iMAMMXplYn^8#ciK)2qC^2_GTp$O`gF|}dl4S4^diWgp7=wjg)UnO zyo`yWW6*=o1qITRv=pk{l|cnwc;*N8Q(blzok#yX%gdok>=Q^`oavasRzbJE>ST*O z2{Ao{K3$tErDth7=%j@aop-XK+u?z9KQ4mqXQt7^{kzG2qc%Aj8__0>RaEKeL^q+= zR;MMBi{W-U?qWqnwkCAU(~))s_>e!IWx2Zz6+2tfwM6Kwk-^ZJ<>S3 zln_jrVh75P3#T(-V)B8mUnsGr6QS-@;_pbOA|!MuCWPYrBvj~Y2ff*qj)i&9k#I2` z4i(dhgg`o)9#1h67dqhYOr?;Q=IsPs+n)-gVN{eHNf9pAR21q$Wl>@(i}R&y=;a0A zI}iz-Ge$y3p??-bw><=z`O)4KVrxKYzD|@KS3rl*>s7f{yM@#n4?3LdQKUh3<}gF?8wxyi*Dt))RX~Tz|F2yJ?MY z#Kgpe)?qJbHJo;vS*ypX+XhkSga{5~M0L}jC>HRg=yI)A}AHKz;N!>>A z_cJx2c5@Pkd#qZe5!E>VqUYN41^t%G>7V~xzFa-IQU2A`zWv->p{+0J+qYj|9xhqi zXg$BDB52XVMT-_LT%_h27Zhj_xgLNJU)Hev|qgC@~X}ROye|tyDTADv^&#j>eN~0 z@_cqPdkRzlbFzv1-n`Eo@lDeqt3d^7TAGx>6Q&t1Rn!@3Xq>Z=j+&A3{0DBll} zuZI2nQZD~SVz+N&Lb^eB{Kp2f%NdC_{PMHUhHK07t3cIRLqGlW)6c*7^6TMmzm2Q6 z-u~q4ZSs5sRkwG%`LRGBeT3l6kfpvKDfDH|RdqJF>xUn91@Qafhl77QwsdJjX~vF} zTd58ik`O!uWDWeIvC_-SUr!mN^3%QjUAlA*F85LCGBC1nY0glU<;?EnSibSWch&pf zc;mY!(iOawK@sHYE=Ohj_Mw@Dz!khYOQKDt|~>EqV*gH?f+F%dn!&2-s@5Nl0fcfueLJ#u^O*&j!G8Rma`tOt(9$CCs0@H4!;C=Y9dG_*mC@-e6@1$&3lsAm`IiNqQs z6LV@H#$R8wNmE^&=FFT)t1zFh#GYXY=6OC&dw|aY?X$wZza{q4`Cg*|_S1Dy|3=ik z0rR{j=50P^YhZrI*e2{bs$riT;}6Z6HH&`z^;h)T|Iz>T!2ka}Fhxe+{q(K;3c;7- zKNR)*@rw!H%aVGC26Yp4?=9*wR)~-8300O;*GWH&o-*Z)x4YwdFrd=4^T;Vvc+TgX zkzWj(GUa2D=o6V7k!Z+&{yp#=QRgwT_?x2c@BIX(e~gpG2jco)0|$yaP5wqmK+dOA zrhFt44Vd^ZBn%aadVMVu`_B;*zv|27e>P=GpMgF26-c$eNGSKNEGl|yln|ZLM>OyQ z(fh+ivRompPkp3r9NSZ^x@cjg>cWNDBG))`(V{+92N!DDRcP8*5kH*q#2OA}Oh+ zG&1sjimU52n|13>^?U#QXz=|AbOHW1s5>hC`h$LbwrR|po*Q9ha`|d{>XR%VpW8@} z2{71Fg0n7$voZ#qu?6N#n2-;?#XvVe@$BBiHAiRQze#V6{&Lt_k8Rp#jwb}OnykGH zI&M8y&X{p5%GTsQ&IB3G6YJ9(^LXp&okauJ1A~C+z-GW6Fah{;;r;Vpp$OA$M!8Xv zr#T^x4CmY}a6L8kXX4>FS3)zlbvDn5Xniw|N|3E>QOMeWK8+p^{AM+5sG zSU-D4(GFAN%Qqq-o~)WY`3Tz1*CzvkHpy?zn!zQB!PO;+{zCuPB*ioAQ+F68Zf>F0 zOPBJwRRmchcT1eM91Ip$^6|bP#*>vtN?3a`pYFh>L!&ychlM?byhLC&z~8AhDN=9C z3fLZDob+X|8)7xmSO#0QHt{$v?wR4dc^VL`RDP0`$%>p%Ni}SOSYCuHyA&PJro86$ z>CT#U60)6v{%tm1p2_c_AjVI)hx|~CmGRLGc6Y5}#l(qxZOqrCtrDI`PwZ_UJ(3c_ zVE4pMM|ia=uX$b90|WUphylI@+MCz-x3B7}y;c)8Sga`Co8<*#&6ALz6rtMMCE))I zXm?HD_#R-t#V$qqDV3?Lu9Xuf^7iwwsjYP?U&jsy_!zu6U2K1kzeh(y-5G2kTi{W6 z_;bw5uQlKBZ!9<5TX>gp!kpNHD6B=4$Zni=KREb-`|{=U(WbWgzUSAUe`599#L?Nl z8XBj)SFWtM84~j-TBZGg9=rJ3{ZOz2j0mt}-vLbe;)`?${8MX{R0qpS#d`KmIKF2k z^`&p!dije11D2u=rQ<^5n}Pi$gWVv5og;%CZHIvJZUBGhUYlgkAWT?q!?sgteH!D( z^KWYd@FCD0X!SYs_VafgwxA65!0qC!gTq6}vjN@({uE^giG{faHkwN73tPSVDg^WO zs0W}4@OM?|7}})$!NCl+&26I0-25J7*#m#N{V9%CX?#2tbfO^WY)b09?&kJ1OheOHP**(Q0Q3f$kmCJ07;MjAo82x-OiUg?KmhQk^}Q$qJuBF?3iH9$0CBr@)_8fn zKz-55>fG(=_yG2@LSMjsnbr8?2+QBURn&;ZToxabKLOeu`@z$K#OmtvV3RB8beH_` z-nLPnA`e1%oh|x|kIOskEwS&&ZN|d(0apioTj5XS3&essIZDz3XX0ZQnft6#%l%kw2 z(B|5qvFygzj!TyOEcAbr2fN_w(n7wnI#E6nXwm`;$qWg)H%{ss*8 zBude%d-pvMqzSzCI23JR6u{>&zF!A_2Bq>9_452%?k-iRr^VRQ>_&QTQkxS}oZ!dc zTfpE;(k23a|DBJ~VZb<`t@TN>YN*R@Z|57uQp`Dij!Nq|V5on`+e{}h!b*Rs%eHlW zAfUZx{AQSyVFG*u*lBM^27j0iVa$*rg^CWKKp|qZ* zqedNtAU;R(`L|v2*3ej~*rS5)27^yehj7N&_-U_h-S(jZbKpy$z30$9-rnp4U#}eX zb!fGY53vuvx)1q?p}1YZL-aXDI%3LfMd@BETWc#>0=lk1y zf2GvJik&w#Vkft5z5U~mA$&ivbE}Q(Kt|x!O-9Gk!i4=N_#ra*h5qeWJ!;hP^|NNA zV}IgmPL$`)UEY@Vaf=rZL-Ul4!yRaK151Xx-3j5{@v~*{YgLLfhTB=0gDI=nrmr-= zwQ`E|a5c3%sFANlI`o}3w66WDLm?7jEy~B96NdT>{<$r19Pbz3=PY)_Jt)cNX~!_0 zmDriIn*aV=Z*iSsBB0uSt2)l1*cats;$-gna|5s>l%;4k8QkE>? zbq?ass2KN`>ubZ{N8JL2I-41MLxp?H^RjA@&&&ADn#FbM*ItWv><);yZkFL}lbj#z zb2%%-DJIiq+jiSYllq~&Xs?&^W!}GhKLozuEnqZmTt%3X{z>?_3S$g>gX?)pw6q=v z{q`GQ74|DgeT#L+Vasi-NJpE&FTWmU^c%@rE^ogXD2pDEQ|fzmDGp zLI@MeL3kaPkIDqO)g%(?LHoAzbl!e0UlH>A;&Hg$2%|Xf56&lqIGGkg+@}ztA6kSE zEc90`#PEFh?Fjve5O=`ig8vSG`33{yfxp2{s}sb$4e4E^pCzI0?}iW6*si`XKR4Lt{-u;1kEV|Pz97-n@*ey%7<^P1D=rpnp-fh-I*y98 z0luE&=P}EH?*aUS$m^5&Z*#kbndlqjhKnD=pM|l4LcwmSA~v=rKhpcv326|6FOSTY zskD^YuF|L+I&gq=`|3qGA;#O!Pa8d&uZtxBKO4oH^;*Q|=YENf=Ed+KVfQjq82qgm z{D^>Dc4Jo(yS*z}xE9i2Yjwy|{Ls%-r}|1d&XT}$FC*ibj+)vjl}?@fA&c*wbo5!g z^FhDf3qBpt-$CP-sr%rcQg=QHHbaLF!M;3O25z6DxR!_T8)6SKQyF}S>hs_ORrlKu zKg6MKzUISM*DiIo*IsR(;9`3HYaq!)#gAWpezZ-+U8-s5Ydz^v(-;H;m z36L-65yB>UGG6$GT}Dk?fG>bifMV}NSsO$`dBa<4dobEZEM@eZZIKBCcCzvB9-RQf#M(a|^0!*vGEMOGgSa?dHlp8Q4F z{lO;;WndQ~FZVb;{zZkK@1qB?F)!d-$L7P%2$k~js>MF1*K&1HnC|Au2SdeoN@Km) zAMrS6Oh!L6I$OUBdxH(rr|Y78lW$sTWxNpcYE@~pguw?5<EoF`%d`!OWSE9My98`Sk+vK4P@}sWAIxP zP~qmr&y&+o^~YI ztyVZ6j)qM`6i35ZujlgRC&0$v-&V&F@0F`M;jAgUAl{4J3CHbuV#e2BXQ2Q;t8V_>n#c*!*)+Ep>-5v1I5P{wS+88)${&9$ z2O}Q~`5ZABXwnAw`Z4$wDm^FUXNQxA59fPsd~Rv={*g!F+jKw3iSW8z3OiT$(ALYl z<@^fDjgUMp5BFg3)s&x=;oLi*0aJzzI|$x6K%2T-l)i4y zOo>AY{16#@KAXr;$b*a+ph^7){M_ar2y%3!1cco zK&x|!&6364Qe3SMAK~}!DQ55&7RvJwzRe82%~+)gV-TMcno~FRS<{U6dD}m^<-^Zx z8qRHQJ37Ajq*t$fD6k&j=N(GPZPVI;djef=!7r87y35MLcbVOFb9r^q#o_KX59iY; zsO*fYvt;|`t$9JNPwt3a8GN!Ce4m>jV)^oGC>sgz_dr?u$$I7T#qcL(S0qjhKHWlj z_;}ap%${-TgZ_Q^*sFB>3f9&hniJ*q2!6BdfrA74L&^EZ9Xq>M>wf(46l8<~3xIzD ziaAvnKO=07kHhbl!H2s+2IP4zP`e6Vz825`THL>nhDN7MPlrNolT_(s%ix>N?qPpl z5i0ij;VWLJJ8|M!$cP6F06w1$0fw4usY~JS%dR`3T(h$Q9`~Fx_ev*`C=|SWUD#p{ z4BxtC4t#alQ6C3(%hHm;2c2CIJF-iT)(rmgP4?82SFXG>`^zs&-tN*R`JK1liZoVV zbmXXq{VVufx8POmw_mrgs8b&`YB%cU>#-K&81^5!W(BzW9}05~E!5pSJ5^`XyzFSN zr)B<*3_kQt_oL0tk!Dth{o@yBjg4MZSz55`*t3RjznssURq;J+6H{55xfwf)z2@l+ z>mf9uZE{-<|3|=*)@oHtj5eRo3UsO} zv^0!!_~n<6J6Jb)t<~zW$Ilsmy5!2>PtWil3Jm{mz|LZS6#nb%xP_rC&eP=S@VRf2 zwr}OChwr`JEfIC{d85VqhO|~GWaEancDdX66=VHh;%dS09}5is>%excS#!N8G2mH& zra#Q8JFTO`@ZSt<*0ABc{%?W$vyN6PZIH z*wGaK-*)e?#O6`XdaYceX}`?Oit>H{AA5%X8esU335NfHVA)$X*Jj1}JTLUJL7Fx@ zzF`9^)Y7_dGkNlAh;4JuYF2HFXm+4@)PV^1@otOezK={%R+!{Ax8=hB9k3&7*0Az5 znhfV+c_EetQuy1m!=`%G`;i3zC!*n|=McgHbv zGGo=EW`4Va={0Boc=>wpLqH$k`u|3GoTu~r)~MIYY18-`Bs9#xpa}lJ%xdMzONjew zOrOrz24R31(0rcYecJo5msb@pqrYg;g=8zMKlpW$mDNK_b@j{qdbg9)6Yz1nw4t0I z;N>{@*khYvZ-1NfwT2{1%Np?Q0K}Xh7;3*}P2WNvpPEz~oBO=3#$|KF;)2HUTu;wu zT*e{TQN8!hJABTYg8UVYdHA)~m6Ydf5o`89C9=(MNW5L7Q-P2E3H%pPPtEP4s zX+wY}g#6749`w(7WcmXpXydMQJG(nPkGBhH&VbUjT(PfjHRt2^>94EH*IiPDOdduV z8*@F1uf_PYZ%(3v9v;FoRg?jPCa%pD>1fMyq@@BYfPMgfHk?%EjT<*qQI6N+psC5% z{a;$HT-guLdbc7^f8oN5Naua42@D7L`}VcRh7IWo9@q8jtI+>^oiMA&*H=f8t_UsE z)vvrOv+;@hWWaz_TMdn~iabSVzG4M$=O>8s=W_&Yk5;^Y3ZCX+rlaFiA03_3`4Y*g z6;r43K2qEtE=g46<8!5Xna1&bE-nwjXACs%8(x;cC$xj}dvD&n0d?f@YpI3BRqIu& zB>Xy0A~~%#e*C9kZ(OfXUhxAyz607Bq43V_bif~(Vw_f_EBF*)wJK4i3X!=W)A9h+ lXeOd$rjosjsZ?el+{wrspbR;7vTRX0%T~cYMUN!*{{S~#r$_(* literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Einstellungen5.ico b/app - Kopie/DD-Record-Organiser/Resources/Einstellungen5.ico new file mode 100644 index 0000000000000000000000000000000000000000..a0eee6f6218d1cc88abca1d9d66823dcfe99e95a GIT binary patch literal 2238 zcmZ{m30#b69LIkhnsi&aN@lV)M{6BxTZM^6C?>f^ie0HjW_L)5XlSOgNo_SmqD1MC zqS7H&vO3)NTGvwBhILljSkklqx3bIHedhCj=kq+@-}Aix>wRYc4f+TKpsOyjbb+1# z29ePc#*=aD+)!$_e|>nFoe0cMAlm}WBAXruxWoW+cK~y?V}SZLyeb$b6}<#p)zJL5 z1bXUvXa^hz#8IT(2-7tcm|oP3z%vZaM;OKyF*xpj2F%<9qlCvWPI&=?Z4J=&KL$+Q z0H*_u@UCQ-Q_e8{5QEJ@hH+{2Fp8_iN2#x1LS~rK0ysy&a?`Jve3-$$gkdzDJ2a1B z&;bUc;7ahb8O-*!!63N>`q6iRiK{V&G&Y3{BMKM>lD2;?Lm$%g$ZCWB?$_w5JP(Xp z3QSf~d`W5yfY_uMxv{+(F;$HuNGtOf%bHobU)d z^?h{R`2u>;wSc1nW%n2oZ!m;jWRM(Vm{CS?M4h6%$HF`?A13J(H^qR7YhV+1316LH z@Hoz36|fIjd=OAv16E%G0%_0J>EJ64!+c*Gy3_r-sD1`SLCC3L@TJ^i)j1&KCN;({ zz*_Rz{|w+$1jAIyQS5!dVHNx+CRsJZV$yq34`5yj5O5L*x{983CRUtn7 z7uDG-2ZjsjdG@1cHs}Jq7?ywd9#}d`5%J+_=ZdSB*Q(YxZ`uWi+phgvCu&u-4+ViN zRoJd;dG9O4uR8ea2&Ao0B}pXO?+e6-UXma~9i)i(Q>EG_kw|v^EwJE@631kmD|*uS zN1a5aYPnJULLzzVgUMq~u%*7p`-#ufI@4#W20>#*)AQy|?x0eISy(_^?|ri{_nztf zst3Q<(Rlc%gUdL-!X)C}=WA|ClZ*Ma?c>+F-|k%F1O`8I{Q7yxp&NuF`L{0KuJXNI z#sB4w_RhN`=*?mEnX~84Uy$yPB&u{q>SwIN!(6De>(CP(i*30Fd-*J4Iw~v&tz}H_Eup)5f zDp@;TL)bHzYc?Knsor8=w;@YpGV zf98>4^yYh4e0?RLKz8pH*cDUUb ztFhyRu($sQgEv?p7-IeD(9ebqA7N!>HS+UO??7&UKR#bz*}wnCT?Tw&HPFn=i2Hed zXYfAiZmQR#XRqGq(#Ooqyf3xu`-7*e(N#}ho7&OP$k?RY`>L@d2}8T$+9#{x|N literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Einstellungen6.ico b/app - Kopie/DD-Record-Organiser/Resources/Einstellungen6.ico new file mode 100644 index 0000000000000000000000000000000000000000..66e5fa972a65bf5500cd276e8cdd1af152fa0d7c GIT binary patch literal 1406 zcmeH{&r4KM6vsdJz45(i%5j_~D|4EuX7WebG+F6rmT5$|kdT51f@ot9NuZk;tQi`x zNL*Blgn<^dXj4RxU|5M^*&?G{1VZ5=+O#MM!XUk!H%_(iKM2pe=idAMzH`3!-m^HM zKnW8C;!192?af z8PS9WJ`?B}qhnmtJE>`XqDc%&?1^E>e1yJPIQ5)B_ao@nRNb3{wj0o#gp&`UWk7V# z;LiSlnl3muLHe!axA$QtCm8&sNxsoUd&l7H3l0rywAR#RrwCn}g3Djw>Mz3WemE{?p8pP=A1F(`Ci70y@lv#IeIt5jj+*=P92lC1i$C#S`2yXdm(lny zyn=(0fAs0%+AJ|k75LvPVAx{F$eYnry}#LRY{?PIz^HH7(->~pyH5zUbCij1to{ZRJ^RSu2z>j6#7fM^A~4WtpaXnYnO52Z+fl za`#uVS1z-_$iK!(5&sMS(7AQC9A-@zm)@9i`eVLFrbpmX>K~R}?*FvJP8Y#U2^lOiET&UP@Y7ModgWM?qOlT~kX_QeM|USHnP6LsJ7}2qQZ?I~NC+Fc+7w zhLo6;2Fc+60R}-121y1TMRrvhcF2OMeP|(4$O#>Jtvuw+by+V3dF=oGIQX}7cZDy83R8vEa&`vl{tS{%asAa?zd>_q|MaPSic_n8 z%AD$$(!#J|hVF}YhoyZxfBnnOt<;@SwPtZxbXk1p_clS@C(`Dk$@df{hVAH=%(H&I zQhmn6)lE7*U6x(u+lp=+yihwunfaO6yeIadKKCc7pXxQ(HP5$sZh7#f{|xdwlDkq= zo=bJcnJAt;t!SU!K- znun9WE>^mlbXw(az@9xp$2gRimS}AB{JlG-$I$!XUVerR{)!bhqHebq>vapP^KLMX z*~#0|CEzRhS;k>Py6%-Aw^K4r4lN1$m@`gII%(7}j!LqcE(R%ux-ON_Ekpey;d7zXV)##m*z@6=-Bu3t+ol!fefCmelF{r5}E*wGhP`0 literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Filter.png b/app - Kopie/DD-Record-Organiser/Resources/Filter.png new file mode 100644 index 0000000000000000000000000000000000000000..b3319ec6d3bac90519eaa18b13de0d70ababbc09 GIT binary patch literal 3526 zcmV;%4LS0OP)KLZ*U+5Lu!Sk^o_Z5E4Meg@_7P6crJiNL9pw)e1;Xm069{HJUZAPk55R%$-RIA z6-eL&AQ0xu!e<4=008gy@A0LT~suv4>S3ILP<0Bm`DLLvaF4FK%)Nj?Pt*r}7;7Xa9z9H|HZjR63e zC`Tj$K)V27Re@400>HumpsYY5E(E}?0f1SyGDiY{y#)Yvj#!WnKwtoXnL;eg03bL5 z07D)V%>y7z1E4U{zu>7~aD})?0RX_umCct+(lZpemCzb@^6=o|A>zVpu|i=NDG+7} zl4`aK{0#b-!z=TL9Wt0BGO&T{GJWpjryhdijfaIQ&2!o}p04JRKYg3k&Tf zVxhe-O!X z{f;To;xw^bEES6JSc$k$B2CA6xl)ltA<32E66t?3@gJ7`36pmX0IY^jz)rRYwaaY4 ze(nJRiw;=Qb^t(r^DT@T3y}a2XEZW-_W%Hszxj_qD**t_m!#tW0KDiJT&R>6OvVTR z07RgHDzHHZ48atvzz&?j9lXF70$~P3Knx_nJP<+#`N z#-MZ2bTkiLfR>_b(HgWKJ%F~Nr_oF3b#wrIijHG|(J>BYjM-sajE6;FiC7vY#};Gd zST$CUHDeuEH+B^pz@B062qXfFfD`NpUW5?BY=V%GM_5c)L#QR}BeW8_2v-S%gfYS= zB9o|3v?Y2H`NVi)In3rTB8+ej^> zQ=~r95NVuDChL%G$=>7$vVg20myx%S50Foi`^m%Pw-h?Xh~i8Mq9jtJloCocWk2Nv zrJpiFnV_ms&8eQ$2&#xWpIS+6pmtC%Q-`S&GF4Q#^mhymh7E(qNMa}%YZ-ePrx>>xFPTiH1=E+A$W$=bG8>s^ zm=Bn5Rah$aDtr}@$`X}2l~$F0mFKEdRdZE8)p@E5RI61Ft6o-prbbn>P~)iy)E2AN zsU20jsWz_8Qg>31P|s0cqrPALg8E|(vWA65poU1JRAaZs8I2(p#xiB`SVGovRs-uS zYnV-9TeA7=Om+qP8+I>yOjAR1s%ETak!GFdam@h^# z)@rS0t$wXH+Irf)+G6c;?H29p+V6F6oj{!|o%K3xI`?%6x;DB|x`n#ibhIR?(H}Q3Gzd138Ei2)WAMz7W9Vy`X}HnwgyEn!VS)>mv$8&{hQn>w4zwy3R}t;BYlZQm5)6pty=DfLrs+A-|>>;~;Q z_F?uV_HFjh9n2gO9o9Q^JA86v({H5aB!kjoO6 zc9$1ZZKsN-Zl8L~mE{`ly3)1N^`o1+o7}D0ZPeY&J;i;i`%NyJ8_8Y6J?}yE@b_5a zam?eLr<8@mESk|3$_SkmS{wQ>%qC18))9_|&j{ZT zes8AvOzF(F2#DZEY>2oYX&IRp`F#{ADl)1r>QS^)ba8a|EY_^#S^HO&t^Rgqwv=MZThqqEWH8 zxJo>d=ABlR_Bh=;eM9Tw|Ih34~oTE|= zX_mAr*D$vzw@+p(E0Yc6dFE}(8oqt`+R{gE3x4zjX+Sb3_cYE^= zgB=w+-tUy`ytONMS8KgRef4hA?t0j zufM;t32jm~jUGrkaOInTZ`zyfns>EuS}G30LFK_G-==(f<51|K&cocp&EJ`SxAh3? zNO>#LI=^+SEu(FqJ)ynt=!~PC9bO$rzPJB=?=j6w@a-(u02P7 zaQ)#(uUl{HW%tYNS3ItC^iAtK(eKlL`f9+{bJzISE?u8_z3;~C8@FyI-5j_jy7l;W z_U#vU3hqqYU3!mrul&B+{ptt$59)uk{;_4iZQ%G|z+lhASr6|H35TBkl>gI*;nGLU zN7W-nBaM%pA0HbH8olyl&XeJ%vZoWz%6?Y=dFykl=imL}`%BMQ{Mhgd`HRoLu6e2R za__6DuR6yg#~-}Tc|Gx_{H@O0eebyMy5GmWADJlpK>kqk(fVV@r_fLLKIeS?{4e)} z^ZO;zpECde00d`2O+f$vv5tKEQIh}w03c&XQcVB=dL;k=fP(-4`Tqa_faw4Lbua(` z>RI+y?e7jKeZ#YO-C0^>dJ(pC`_tcq0=ZjFh}$vO9)lkfMq zI8|IoZ<^eog*(fSkMqs*&Y5>cRFwxg8a&|92j~NAG6vRj>BI;5kaa;rNTj41Qwn8e z!pv(={O1lJ_i~}*r!v(9iV~udq7pUYeV}L?D&r{HYvg%}^Bz=5Nok#ZPW~4a@BxlZ z4bv3C$NDTL#abxVB1M&`tYUm3FO@ravL8(61+5<;ZtIP%hww+*Ys z8fE2}zn!u0(Ufc$;DtlOa_W;pUp_LzYA2F)5=Es{CQ;f%XHBV`;=EE>Wp?g5;}erZ z-2klDucs#m_f-yxDp4AxT@8|ziPC~k1GE-1=5J@4YhvT!_~8+GYo=gyxQQxQuNV); zfeYZgVw^HNca8Ch2>~jA>66P$pIrXe@4or`Lr`R)KwaY4EDyXV+c4Y7N)iBc=?0(?Gu zgM$agCH=z;(mL0Z_g@-&^4yiqS9`{qG(^br)%!}mD}eKg_lot(kFCJ7`*zCdPgmIc z=r#a8yZ8mq9GsAlHtr%HzOrlox4)D;_1O0NPQGgsyP$XfdBp~$V-!Rf8WciOlm;Pg zeiX!{#JDjP8uxY!>f~MBsMaS$1d+Nrprjs*vW7H?Dq8^H64s|0!Yj@xB0>Y9G6~Vp zlVRjS;7(TdevsL_>N{U6ZleNHH*o;y%_cGTWovOITiFhb^%TJT<@vs@g!8btxWudP ze223YNV6vZ*WTOz$d>Fv{dKwz&B+T4e7V71DFoK6CqD`>N z*UMAPQGW*au@Cq3qq2iUBHZ<7XcX*LaP?fH&efvP`ZZ>O_|nY1j}}QS&8`(m&Dbk; zR6@94v~=TZ%PIAbtL(Q6e_gTv$A96*@5cFW4{~b%tK~}Meq|4IC4;A{pUXO@geCy{ Cpj_$z literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Go.png b/app - Kopie/DD-Record-Organiser/Resources/Go.png new file mode 100644 index 0000000000000000000000000000000000000000..d92fd1da66cc939758e882533fd19d66d24248ff GIT binary patch literal 3218 zcmV;D3~lp?P)KLZ*U+IBfRsybQWXdwQbLP>6pAqfylh#{fb6;Z(vMMVS~$e@S=j*ftg6;Uhf59&ghTmgWD0l;*T zI709Y^p6lP1rIRMx#05C~cW=H_Aw*bJ-5DT&Z2n+x)QHX^p z00esgV8|mQcmRZ%02D^@S3L16t`O%c004NIvOKvYIYoh62rY33S640`D9%Y2D-rV&neh&#Q1i z007~1e$oCcFS8neI|hJl{-P!B1ZZ9hpmq0)X0i`JwE&>$+E?>%_LC6RbVIkUx0b+_+BaR3cnT7Zv!AJxW zizFb)h!jyGOOZ85F;a?DAXP{m@;!0_IfqH8(HlgRxt7s3}k3K`kFu>>-2Q$QMFfPW!La{h336o>X zu_CMttHv6zR;&ZNiS=X8v3CR#fknUxHUxJ0uoBa_M6WNWeqIg~6QE69c9o#eyhGvpiOA@W-aonk<7r1(?fC{oI5N*U!4 zfg=2N-7=cNnjjOr{yriy6mMFgG#l znCF=fnQv8CDz++o6_Lscl}eQ+l^ZHARH>?_s@|##Rr6KLRFA1%Q+=*RRWnoLsR`7U zt5vFIcfW3@?wFpwUVxrVZ>QdQz32KIeJ}k~{cZZE^+ya? z2D1z#2HOnI7(B%_ac?{wFUQ;QQA1tBKtrWrm0_3Rgps+?Jfqb{jYbcQX~taRB;#$y zZN{S}1|}gUOHJxc?wV3fxuz+mJ4`!F$IZ;mqRrNsHJd##*D~ju=bP7?-?v~|cv>vB zsJ6IeNwVZxrdjT`yl#bBIa#GxRa#xMMy;K#CDyyGyQdMSxlWT#tDe?p!?5wT$+oGt z8L;Kp2HUQ-ZMJ=3XJQv;x5ci*?vuTfeY$;({XGW_huIFR9a(?@3)XSs8O^N5RyOM=TTmp(3=8^+zpz2r)C z^>JO{deZfso3oq3?Wo(Y?l$ge?uXo;%ru`Vo>?<<(8I_>;8Eq#KMS9gFl*neeosSB zfoHYnBQIkwkyowPu(zdms`p{<7e4kra-ZWq<2*OsGTvEV%s0Td$hXT+!*8Bnh2KMe zBmZRodjHV?r+_5^X9J0WL4jKW`}lf%A-|44I@@LTvf1rHjG(ze6+w@Jt%Bvjts!X0 z?2xS?_ve_-kiKB_KiJlZ$9G`c^=E@oNG)mWWaNo-3TIW8)$Hg0Ub-~8?KhvJ>$ z3*&nim@mj(aCxE5!t{lw7O5^0EIO7zOo&c6l<+|iDySBWCGrz@C5{St!X3hAA}`T4 z(TLbXTq+(;@<=L8dXnssyft|w#WSTW<++3>sgS%(4NTpeI-VAqb|7ssJvzNHgOZVu zaYCvgO_R1~>SyL=cFU|~g|hy|Zi}}s9+d~lYqOB71z9Z$wnC=pR9Yz4DhIM>Wmjgu z&56o6maCpC&F##y%G;1PobR9i?GnNg;gYtchD%p19a!eQtZF&3JaKv33gZ<8D~47E ztUS1iwkmDaPpj=$m#%)jCVEY4fnLGNg2A-`YwHVD3gv};>)hAvT~AmqS>Lr``i7kw zJ{5_It`yrBmlc25DBO7E8;5VoznR>Ww5hAaxn$2~(q`%A-YuS64wkBy=9dm`4cXeX z4c}I@?e+FW+b@^RDBHV(wnMq2zdX3SWv9u`%{xC-q*U}&`cyXV(%rRT*Z6MH?i+i& z_B8C(+grT%{XWUQ+f@NoP1R=AW&26{v-dx)iK^-Nmiuj8txj!m?Z*Ss1N{dh4z}01 z)YTo*JycSU)+_5r4#yw9{+;i4Ee$peRgIj+;v;ZGdF1K$3E%e~4LaI(jC-u%2h$&R z9cLXcYC@Xwnns&bn)_Q~Te?roKGD|d-g^8;+aC{{G(1^(O7m37Y1-+6)01cN&y1aw zoqc{T`P^XJqPBbIW6s}d4{z_f5Om?vMgNQEJG?v2T=KYd^0M3I6IZxbny)%vZR&LD zJpPl@Psh8QyPB@KTx+@RdcC!KX7}kEo;S|j^u2lU7XQ}Oo;f|;z4Ll+_r>@1-xl3| zawq-H%e&ckC+@AhPrP6BKT#_XdT7&;F71j}Joy zkC~6lh7E@6o;W@^IpRNZ{ptLtL(gQ-CY~4mqW;US7Zxvm_|@yz&e53Bp_lTPlfP|z zrTyx_>lv@x#=^!PzR7qqF<$gm`|ZJZ+;<)Cqu&ot2z=00004XF*Lt006O$eEU(80000WV@Og>004R=004l4008;_004mL004C` z008P>0026e000+nl3&F}00054Nkl;fWMNi-M>O@0=!5)>pv5wx|)z1`V8i+4F=Auc=~EX;hv zuzTj;-MXsqB@ZWLcsMRYay)kaewU8qD15Gwd};FVG`pvxBQuEu6qly2VO~YW zwvma(`zCLkxXHifsXLgB3UsrjszJP@hs;1#tiKcdNQ;4JEQvj@Qz2^Sf ze7%~`(0aOP+?`_WKr|VTMtAu5V}q5?&#PhfCl`)Fge8sAD84)Bpeg07*qoM6N<$ Ef@ZG+1poj5 literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/GroupBox_680.png b/app - Kopie/DD-Record-Organiser/Resources/GroupBox_680.png new file mode 100644 index 0000000000000000000000000000000000000000..c43cd272527db4e3f4d4e221bd83124252aba27c GIT binary patch literal 151 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5he4R}c>anMprEIx zi(^Pd+}mD9E(Qe-mfG3>>-(=SI^4EkjSH)+P@CgTe~DWM4fc7-x< literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/HomeHS.png b/app - Kopie/DD-Record-Organiser/Resources/HomeHS.png new file mode 100644 index 0000000000000000000000000000000000000000..8f1bc6096fc45a81b8fffc13411b3bd73bab12b0 GIT binary patch literal 619 zcmV-x0+juUP)z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ-;Ymb6RCwB?lf7#cQ540`1jSy&MjLGeF(6pzhJ{#+ znt;0mW^AG)Tf|a@*obLTXbKfv(LX=~#v&{cKOiv#M}$Gag(Yec*hs{H2x_uxX7;(W=?0q|FUHUOYB`DFIN)nlCmfU!64tt78w zGkBzL0b~7(0C4|I@k9;)mKtlR+>R{xru!1*sr|U~>>zIS*8sr(B^4Tx%>Kf9cyuz4 z-m@36(hM;=5#f5DkCDe+Xnd=sE0P3B3=KNDp+Sc$Pj~XtK#_BE9+Q}v_2``JV(s1z zx&@nV!Okb#Kj9>%UwG`vAK|<5_LN8>uqhl#!^WEA^J$NE?l7yjLAPLYy+HTzqn-4; z*O~Cw?;-2UO^#1Y@xZ>lbPINgB&=kRoPi6hjNfg0Q+Zg1RticANFmVeTtU#%sMi-T ze0dm4AAKv;MkS+^xmqdo?7D{D-8V2_{eYmQ5rhhn;>K;%#vb;b*fi6K=C|7{gY6H>Ggh8m~# zR50`E5WXybhBAaPX@RzhcJUnRi=X~`3lkHqt*-O$0RWfFeYoqMdY}LR002ovPDHLk FV1i7@4SE0o literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Home_5699_32.bmp b/app - Kopie/DD-Record-Organiser/Resources/Home_5699_32.bmp new file mode 100644 index 0000000000000000000000000000000000000000..a95f33f4287d32f72ca1c750fabb733802b86577 GIT binary patch literal 1078 zcmds#!3~2j5Cn~scSH$!rUDA^pSE01Xd?XtKK_E2WTnl@Ai^`2jyr76-udjyW6-AqS3U|3sIV2rBIkDrdN08Lp(N#dx@|hxOaNaL-_c#JpIqSxh<(Pao%Qh)}(- j$Lr^p-}V=y?^iIp-90rcsZ6^A=p+VDS3j3^P6on=`8&sW qZuOpnvO;%K3|<>OXG|9R&)END?K(l@{bzw5VeoYIb6Mw<&;$UzQF&(o literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Link.png b/app - Kopie/DD-Record-Organiser/Resources/Link.png new file mode 100644 index 0000000000000000000000000000000000000000..d91031cf29780fc63717ddf0119e62c59d2003bc GIT binary patch literal 533 zcmV+w0_y#VP)(_`g8%^e{{R4h=>PzAFaQARU;qF*m;eA5Z<1fd zMgRZ-n@L1LRCwCtl20f@aRA4^)0BguQQp{Q!kEo}cA%A(+JWsfhZP4!6iJRwa^m9P zBvG=1@+U)H5;0f1_JcB@^NtDUk}7BOa{7Qzb*qE0nq8FD`RFB)^7KW+rx&40tA$Ar()n4zS*X)s#=mMX5jceX8FjQEX(T8p^8n0n5(7P zWhpClX)`tKVK`zUf)E4%wMa#OVE?3{(O&B)FzP|*D=^TDoxOv2wl-_gUSso>7MXMf zM!k;ER~$#qv9os&r-b?eK&2=Od_$A&1jl<5JaKXy2O`iQrF7-#VtwN$_9gh|SN<3P X2}|1UAI>0w00000NkvXXu0mjf>u%#K literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/ListBox_686_24.bmp b/app - Kopie/DD-Record-Organiser/Resources/ListBox_686_24.bmp new file mode 100644 index 0000000000000000000000000000000000000000..5ac712e68fbc63aadd197b186a09b8748ec995a6 GIT binary patch literal 822 zcmb7=K@LDb3`Ixm#nKU+zyW4&KL@sFi$fs6mQR^9Q$(BTPxI&Zk+EeFo3jdNj!v(R zOm_N*R0;KMY-UrPRbTdZ5&L)C^87T6@&M(W>)Q^BImq)5(Jq{(t}#Pp{*liiZ+y8( sPLP)|4#&LA3s%TPIJlMTT7HoCd{2g>eV@1Y_wbK_|IbIvUr}DAJ3{x|cK`qY literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Men1.ico b/app - Kopie/DD-Record-Organiser/Resources/Men1.ico new file mode 100644 index 0000000000000000000000000000000000000000..e891621eb40cf465f03adf744f22755df5c5c003 GIT binary patch literal 1406 zcmeH{uX4gb5XQd^gbm6I2CR*niY24mSPdlYpVp}`+mo}9*`giLSL~lrW-1bqR0eShQyIkXn!!3 a-PS3+{y^``@S$H}411by literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Men2.ico b/app - Kopie/DD-Record-Organiser/Resources/Men2.ico new file mode 100644 index 0000000000000000000000000000000000000000..3300ab8da9d760605daaccfa593d0ba94c903500 GIT binary patch literal 1406 zcmZQzU<5(|f&V~~gCT>JfkBLcfk6X^1%Oxqh(Y4G!2kdM84?l_82$ql{1g*n_`%1+ z@XJV>;itAL!!LgqhF>0b48LGz3ONU@(OMBM2Zlh>?kj35Czh%!0ya zWo1L+GcvNXb08VO$jQmc#g0(G$j!~o!->S_<>lq$LE`fZ@bhvb_zaAK0=!6EUU9HX&P!m3%Wt3k JdCuK4cLz{YFoOU9 literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Men4.ico b/app - Kopie/DD-Record-Organiser/Resources/Men4.ico new file mode 100644 index 0000000000000000000000000000000000000000..fae85e6478d16c5e898b0406a98af863a89e6fc9 GIT binary patch literal 1406 zcmeH{yAFad6o&r;A|O^OUS>xhi_wv{;1L*IOIbllBY+gw0yVKEfsdmH^hok`-y^zlC!Sd7cAX?%0zZsmXzy$dNSUOs?cY?&L-u zy{9S?$`a*;5MR04_Pcoe=j wNRlMuSh+D~GFG12)Ff|*Os!GMA53NEJtdpX^|~yUvyNktY5zR0p8D(X1q$LGN&o-= literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Men5.ico b/app - Kopie/DD-Record-Organiser/Resources/Men5.ico new file mode 100644 index 0000000000000000000000000000000000000000..f9fb109c88ebeda278f3e73e50e9ebae9908adff GIT binary patch literal 1406 zcmeHDF-t;G7(JhwR%*VdJ}tF;TA69)+|t+@{eVIUqA8q;z@@>Yp|-Fsi=vQ*5W*0L zmY}9LG}so@&=Ap5G~T}Zva!k4^Emf>=ezfw`}hFjPf-M~y;$u50sxXsg{d=T|33&J zkjv$G`v4VPXFX?DfJ1@fXcR|G;F@^}^-SO*o96nCd4pt4pfNYgwZUv*rXg^@w7~Tf z^A+>A0uO78cwAp*|H1smiXrg4oyY6mI(vbQmcZM70bi#(*nJidSNk}57bus@D3wac z=kwSq7O`0vhzcO&nLNc=`O~j4rwp=uV)c36MlP!K^J7%U_SIRx80K@&w|jud<6%#vD5QE-b%1<64kf?ePg+3psuTi2U9~t7G8E44%_ywZGL{f@rCsRb}sR@!Q bw=>fzLOSuQ?6a9kdDhhSeJL`>)XtV4d<<4s literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Men6.ico b/app - Kopie/DD-Record-Organiser/Resources/Men6.ico new file mode 100644 index 0000000000000000000000000000000000000000..4ea11864385249488f99740e69ef9d3bc3a46d11 GIT binary patch literal 1406 zcmeHDze_@46g^i>6ARz-cm8}@i7&I}mS}2?{(wRVqA8q;z@@>Yp*FECi=vQ*5WPx5j3XECFaPK ze?;*R40`HX~zD{?s_aY#!DmeKNs8*{e zm&+&=3fL}{uvIL=Fbp)CO*C$9a9pqBwbS7lee^fb-#||rAc^h-v$t3*e;HY=R literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Monitor_Screen_16xLG.png b/app - Kopie/DD-Record-Organiser/Resources/Monitor_Screen_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..8914729ce2406a898869c57d9536c28b4869e755 GIT binary patch literal 179 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP%zcg z#WAEJ?(HQ*t^*1@tQXe*Ik`DCv-;e&?(|~clL7)vtfen6u&UmunHnyWEAXp%0^Cz<mdKI;Vst00>n-9RL6T literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/PropertyGridEditorPart_6041.png b/app - Kopie/DD-Record-Organiser/Resources/PropertyGridEditorPart_6041.png new file mode 100644 index 0000000000000000000000000000000000000000..09bdd02d1c52b921a785e3eba924cc573cd0ec0e GIT binary patch literal 173 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5he4R}c>anMpkTbG zi(^Pd+}_ECd<=>lEVZ}){nyXhyf*xzK#Jl{>&d(eXZ9>mwo>so4QF5w<&7x5AH-I{ z%=|w;;qPy@wNn{67_Y6ECADOiig3fe{F@4Mwn(z9-<^{ S?zjwS6@#a%pUXO@geCxpvpG!w literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Property_501.png b/app - Kopie/DD-Record-Organiser/Resources/Property_501.png new file mode 100644 index 0000000000000000000000000000000000000000..8c5f315fd163fe19e056911808673a655a6c4d46 GIT binary patch literal 292 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5he4R}c>anMpx`x6 z7srr_xV@7U`I;RBT&r8;mbzzrxU;Z{Ib`vw4;7QVRG9ot=P^GJ=rH9ukvm_)ar5N7 zSzA=%-?V) zh419kn{wFs4>PPO`Xg>4Fflv!y4sy>Yv2FAXPkQB!P9$BD&J@^{uemFhE%0 zfkpEs9Y){MSn;~1jyt73-a6sae{iOKk@Z=l;v$}NqmR$@pi-bfL%GD`6}S2x|FB)- nzd+_l^1;Br>e0Q=*H&sp!byK@#@yTW_p6yLl| zK?VoWb@!DRz0cm}Iy`CDl<7}HPH+^JF49}ElH*D6s-Wm{RT-9>$JR~waM5YQ%GP~~ tW&e*|m$}71sqJFv6xU0oGo$jp312?+$uQ_;xF66j44$rjF6*2UngGoydZYjV literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Table_748.png b/app - Kopie/DD-Record-Organiser/Resources/Table_748.png new file mode 100644 index 0000000000000000000000000000000000000000..958b79f7e887d5291d2289d19adbd564eda11900 GIT binary patch literal 178 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1qucL3d9V#}Etuh($ literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/Task_16xMD.png b/app - Kopie/DD-Record-Organiser/Resources/Task_16xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..a4695b370451cf52897a5a7ba0d7ac3231b49e5a GIT binary patch literal 352 zcmV-m0iXVfP)379m?T~)ZoAsjIKVb^t7Kdz+I z-h6;Q^8s-jBhPaj4@U@bz~{%8)D*UI{|7pD(=_~O@O>Z2bArXVPOm`+z+qP^5)%Ndut$?RAP2qVS>bhpL yoQe?Q?m6OH5(VA9W2TuH*-jhmlx&{zf?f00004z6ih7_w=lZS?3^US%aFKo!ppsdYd}tC@O1TaS?83{1OQ0&L3aQE literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/UserInterfaceEditor_5845.png b/app - Kopie/DD-Record-Organiser/Resources/UserInterfaceEditor_5845.png new file mode 100644 index 0000000000000000000000000000000000000000..6a6b05dcf249466c09ef3c02111178b3d008f699 GIT binary patch literal 290 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAQ1FVU zi(^Pd+}ufy=b9XNTJQ7RWsvTF5NLBiVzHhDPx#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0WnELK~z{r-Iq%a zf9bhlB8&=NV!Q zDc;+BjNtf8XMmz8AjF^p{VqVKdhi*f-q#BF1jjwW0c`z1!2bu}nu_2GWCxHuz;mA5 z1IYlgryx4OG))d3FZ^cE~Z&(c?L81xe&8o=x1(6%kqb-f0{ zYn(%{z8jps2i6LZ?Aze98RrmS)MFd~rPPt6mn1gbm&|FUKz0D^Qnc0=Jmp>rbc_^m z*YBBdyVkZI7*pWee41WIeqZc}KAEeks+Qo#W;B^tY`^(N49tV$8ehen6xfqD z8Nls&2OQS9v~Kv>LMf-&0i4YgT7l#MuIBPRaIk;Dp#UCamwEaOIKJ5c0000k44ofy`glX(f`u%tWsIx;Y9 z?C1WI$O`0h7I;J!GcfQS24TkI`72U@g1bCj978Pp-%dHmby$I??RU<-*1etlTlZbx zQ+=cD%Ie3$Mn`VCy7OCa5t#Jv;(3WHse$`)Z|fNzi}un?K9X^3&t03z&Kx%_r}r8j z?YLOSX8-Oy)5dGhzU~rJc3b@DW!BAA-}i;E_pllynPj$eO>2CVdfGOF_g?G*R!)KY zdHc_Kp83DS{N~AcBI3fCxxYnt(`= z-i}lO>CJ-zQWd30?_Gg6`%on1-uLeJ-XHJ#-dixtUNgU$S!?gZnwbs22lxnIeFft4 zpz<-m4`9K9$$9Q4Ksd>M{Bd#~G!M}K9N4g7YW^j#_*-Bl*^mnmjN^wGbMbyK*HiNg zGACfDb_B-y#<*^D1n&A0@Ya%sueK2GUXX;e$2O=ru7{f2dYrwp250TIz|d+BF52#a zmM0J7gO@`tbSdQGS3o{t71UEVLosp(v>tAUdfGOqX7NBZ{TH0e-Uaon-O$QE0G$GU z=oSh>zvvK5i;u$a$#EF7#b8<@4zs6{uwZS0+f_+;SWCd~vJAqUq!5sN2+_&MVQa1c zCrf#FIS|?DA@qhEQrwha{ZIp5f%>pc&_VLuGe`(iz{6Bk6x=(7A|Dl$6Fv9RL~ev4 za$;4G7p;!sICaz}tKoIbIkY4gp^IoRRU76xLa@#`jmxDnNXe9hb(JFQtCV3^qYT>$ zRd{9_z>BR1ms(vo*J;74-UJoJ%4jTBLQ9$^I-Y5wxj-Mi>Dn00(Zbte9Sj#6qJwRM zknZv=%h2CdiQevK=y`Ut&TV4^TNZM2 z3mjhj*+#KbQmbkHcW!QO;e*Q-e7Q|RatF;9E?IW$2+vR4-+c6o#D1D@7CxqEa$wD} zC4c>R=dX0A;pkZ{D^)fAWn7=n+qnvm(={}+yr8Wj%)R(8pUef$=;)eWvNYD%evEtZ zSImKSQP;rqlKJH;MkkhWeM)nj*VNQhI71go%3GQFZ^py~@QNsnp}m0ld?IpdPPbr& z$ZZ;t`4lnNb=m-9%bc@xG=o_wb6zupch=n^;mkR!cX%(Sk!#Y=yzqT~NKX4YFZtAj?`pIHKewkbSfaXAoP)gqn<;Ofw&e{sK^sP`Ku93L~+8MiW>FP%W5BPT@izadA0iwC5o^8=kDU1t;2?$6>*BcYB8wa0{P0THk89B<5%Ay$QbYISL6iVueI;?- zTm^S5mErB60EcS^2(pqxjIBIUXddGxhetk2xDjyyX?_yOwmpm78w$vDRK(*4@<_k0 zj-o(Sytt=;(hvnyJUEBKD9S5|DqvIIsS8ub8={s6>Zp%V#_LDw7)m^krqBy$3OB-= zcmp)WT}0zUBMdzq8bn3qbys*G}8nG7t;oH* ztu=Si%MQicng_JkhiIT2`KCMxjg%u>C`YzcKBE1`<8f~&8eb)#`e`O=OLHk#rlX;z z2rab*XnUPQIW!wx4Y_D-d4leyLiDs2qrLqZQ3ZNBOVHQx93#za3{2(GzP?KI_g7=E zr;a%m{_WxBRV@GcM^V4G^YM;!mEOGaL(btgOX(3AxM_#LkGqwQE6kF@Ju>*n4q;)Q zrBZoD$Irgk+zFG}A}lN{@cjwxV79>*Gm21`)g%@cUb{ll&@-H^@z*KM%Z&#(a=st_ zs%91vQc@^BsgV7dBNi6k!Ts&I+aVz#1tJ{9Dglxoew1r1yl%P3g}WgkMPeK|4+FQp zw%7Wwz@oXz`hI@*B^ddBJ_ep~T4#gxVZI;cs~G$F=`r$XdlF|kRp-kI9v0?V^0lh* zB}+v{!RvfDGpTCG(&~uyVd1UI{-$Nh`a2_!z1oso+Bbgr)x}-b!h&n(e4}Y`l99)k zrPOo}k3Vg$J!5y6Vt@SI`BRKMvA({ed*I!>D|Mp|&WD8s7R~!|!9Pe|USHqT(MyUK z=DNpj2@CVB|M-K?7<@$qDY|=yhldARZ=_iZ3+&kQ7m_D*c9Ex!UQ)cB7`&NbO}B6# z$$@9>oiy4jpO-(3k5|vlbhP7$fBz#jJLdPI_wxx#HVk!hO`vW*(VPjSfuT!8TtxGU z=FX5gU7KSL&1cgGG=ERsq??$i=lEsv*pEcKMALZ;AJJrb%*tc3C-%aaa$KQRTqPqCe`(3yf`bbM)^z~M!IG&Gcm%=lPh7Xy9LgMJn%5vfMA2Q zxU0JZS5%I|S(O)-+WTQ~;Rvo79KscoLvSRzeen>il|QC&}LC$$8w6AT0j`eoPBymG2>__NFtbtn0Qm91!4EdCmFpOFOHUF(J zy}Jv_DU=5(2kIv9;B*={<-#RU$XEl#jEzuxycO!1JE3KB2s)noAn!*x{=q(IChmux zxdtu;1TIbsCB0vIue&L$I?H9=J;*#Z>|}!BR-RcNj78!U&3!0V`ev zNwLy!xFU}mmKyM|zW@(MGlbd5A@Qml5?mD#>2n4TiM;)c5Owboay<^Bz)cqQ9+G$* zB1k#$1PX&C@c5A|%2P#A5-o*B)*&?ciJ|VHI9?^4Mz)7CYQ0pD<*tJYZ*8RCQ$%{m z8RSJMAS3)d3WBK@yRV8T56`27brv;I8mLKDMMaVxy27Xri#?CtSaozHUBU=U7v>pa z)Q3sKxw& z>AE3T9i7D*7|uSAuF^B;ey)K2XXh|fse!J?TBs}1!Z78?t+IaJeZ4YYZ`3uSY~ZT#FIzupAK_e3|;pJ4lZ804u@|$V^CGdLVZyHdI|&3SeA(5 z`gl||C8KB{2JFE^bk?PyrZfl5)mbPT%s}U>Y`lI=IgEP2PU-`Dn+ws>RDs@(ax{hgwH=ADZ(K zz3uqp2u#aJ(ER1ViM7H%ef8ZR)xohDDVH}1N=OJS(>A#&&7AeW8G-4^K^p`mBqha` zf3N!BrL)vezfmJ5J$}~#QcFs#<2iF9yylg|*E+Kh*V0qu_AqKmNr9C=s@#f5u6b!b zokR&|RTHpEl%tjuTf1G}$TcM?{dM{2h0`vq2X+cfnoCLwuKHfVJ~S~YDYf2BY8r5U zz1XBV{p4H5rQ{HnM5Ef`!W3ZjiAi&Rwzs6%&s&%1ImNM(SS+_6CiTbnOqzQ?@%5LG zJh68B5+fHDixpY*w@Lkq6O-QWiJm**Lwi`YV5!aRNEWMFW>UXu(z{Q|KDCYB1l_Z2 zk&?}A&&Vp%$tSvlWA4-8)zojgiyY7r7Ax7^@r-nm=Quc8OhTVt-)H^JS2aZGT6FE) z#d=P6JoCSq3~;pA+o#jFsDCW~4r?b9L2&J-i}kO&S57U^Sfr$v)PryHt6x~|CkK*y zR(?x>d`?*a<@{Ul&0-^|Qh{0W5+<>&qQ zLwYYq;hWyPX?@ex$MG;S(pBr{{e$jkKVVEah=AD-0H z&)nR+tStJ@nU*|ezkSP|p8PjB)gYYlj%#9Kc+SK`H&qYaxHM4*E~2?aA55fCYfQA4 zh^r2m&k$Wt(_Fgd5Xt9G(VR43Hhn;HhURn=jbmc&RM-ioPGNd&Iii_5Wp*VzyG}W@ z0usV|A%Aog^iHpU*^v#97w3V#(t7Br`~q#0UC=xx2o(uwNME45t9lT|hJ4UdJq{J> z!*#VZp{s3xYeyHuTVoO2^to_PeK9N#u7bJHcHB{0gB#i_;A*fOHp-jet*{sN7q-I9 zU@HPtmLkw(86x#oAxwKKZpezlT;UL`sJ3y^J3x4G+&*^_*Y(B7uOuGm@)2GJ(WWx6 zQ&WKZc{yA+JA*?ZpW%2I)izO|;zaBhI2rH__3{g#67oGxyZ!_zo4ru6T?-@oWstu` z^~tpj(6QP9nZ%_~3tb0;2Wy~^umUQ9TcMP)2?nfRAe+WTw47>{)l{qS;6lc3$Ws5T z;K>h@E2p6nZ~*6{e}zf(K^V}xQw{3Zb@K&hY7@KLKOoR*CE^`^MyTCJuq?MB)M*Q1 z+;_twbS+#%x56fJ1Co9Bz}5N)Zd*!%b&D7AK1Y!3a|l6KPb0)x8j+round+&aKt_& zg&l@}JRex$$M7gY3ijsmaHk&K)>03*?F``KY=qG3a$woXBf(t($u4HFzkdd|LKR>U zpabhz!X@e=DL@f^0ft}&UBHX$2aw|?i0V81crFK|YJ>7NY0mzc5}K71YbW2~|g9 zyaxK|J#zB{Ei@+>U@+kVt`YHK-aIqFaG5T;>I^X2U)!9K;@hs7vQ=c@(T}D=7 z5TbG{aKF|H_gbwG++&M~7H7nExFNjP5fA%4kl1w>seS&a$+SWi_2Fe%j%doE+9byk zZO<$)`1~rG@|-b{?}V0TcQ8=lj)8{jC`b=OVT~WE$|F#m6^rr$7G9JjqNUguW5oez zFAqR(nIGz&#MArgL}c|-Pv07cyuoM;HzuN-dhoWI$7p!LMs;f;Dh3~;oqF)@<^rlw zo};(@DH=zJQ+?9c(SXjk4H)ig!Q0V(IvM^q59@1Zl>UwN*+j;dhRQ5lJpb#5{}n46 z%G57w%gyEI&iU}G|J;Isv*N=-jep&z_Q?mI%qmmi;g0sTT@8{*?JGguPypQJ1 zu6+JrQXLXS@L0|5ynMo<2R9wjQCR%_@;{*73v4*>(Cr6=M8(B~w(Qi>edH{?ka=tT zr=vO~j=YD`VnoHo#YK6xEmtrvFL#k%xbaWnu&33>h3)4N67?m#81I%Z6;wl?*H*ho zeE+B0xDm&yiakx<#l(EY#Kmbr@+xMbu~p60*CiJJF+^=h6)RSQhZe)2rxv8@93B<- zvbpr^!s!?0GlupNthmr^yrN>_9Jsicz^1*c70g_trE3>wb!Bx&-9JxLVnzxsCTdTwGjW%kI?*w4yj>ylkny{?qJ5 z*;fwj;}K#UPY-%#U#?a#aPf%XSiER1RpgpkKIr`2Ob=@I5Ta+WTF<~WJSL9$ihDsB z>itmN#w+q3&3Oibv;_q{GmlAwn5yTq@h5orW>)W8++Ro*Vgg(DtX`w<>=8pFE+(c% za@M=9Z3kxH;(_fQ1^yIFM1Z!SZE%ZY5EJp@?E4KIE$G4=IKeHkGl{CSQ3q(P11%p>EO z_U>EKFPhOkbo`f%O3H)Sl>JHw%IbK!hX9r$3R42%cm>Xtao(s@~oCxGreIL39$nZ_dR?*cA1_6>}Vjy79%b@}+vmc&>%2k!QwH1TFI~0%rkmR|J}on^ zvF&wR+rYrUAo(B7br>6a<0C6n=+F6>&~skK7-VrzZ6Gx-uZ_k)+u-2f=H2Dq~={cB=78&8u(Z7?6L)V06&Is%Cg>L^!aB*}>!|>E{ir7ESdz=~MWw z9>Nb2esr|j%EBtw{Xh`&tH2l>{B_xa@4j0wc|*y6Ybz6=r-zBaF&KQ4Yh@vMAb2u@ zsNg~Vd4KurtEpq2!M8F?q6mz^Fvnzg@J*ReA$uxN=VBPXx1kt}8+Fean) zJu>`CxUhutpv8p*d4HM4r_~SjP8oDDYwDtHFk^UlkTKx=x`~SlZ2ml9(m&E0$Hsdr_@BJUB>kh* z^z?KB{braJjEs->AN!5$Ur$m@O_TpM;(tgx*)K7Fqh!V`{&;F`K7UdUYT`&gPJJ80 z-+`Jr;=|OxO>qJOOdmGI$tPz{K%kD+%QeO4PVo<>IK7_c=;;+TV^5xc$M;Uni8Fri zd(Jf_{}ayfNBuahlRC@yd|E!u>lppqDL?;=)8BeI_&?zs|71t^h2v+Om>kU~y5~#` SQ(U@f6XUc#hBNnNn*RqUnrzkp literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/action_Cancel_16xLG.png b/app - Kopie/DD-Record-Organiser/Resources/action_Cancel_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..657a5263f4b8c67e504e86a4d4b838861d6e3bab GIT binary patch literal 517 zcmV+g0{Z=lP)$D0 z(P&t>;Eo_Dp1ZDVK{yQv3dP&)wg|Z0ZV4A~epn#Pn8zeD)`o@Avu0mJPPJN<*myh+ zEg9w=D#pTK>)0$qAKZLE44b;yY-Gty5dl%(wrwoRvpH-2#@Q3c7SN^DYFU@d<)+8+ zc*KtDwr|Y802<&e;O*c&M1q2%-bj7(A0)_skxf)e(SPs_r?oQAec(|A00000NkvXX Hu0mjf*m&lf literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/action_Cancel_16xLG1.png b/app - Kopie/DD-Record-Organiser/Resources/action_Cancel_16xLG1.png new file mode 100644 index 0000000000000000000000000000000000000000..657a5263f4b8c67e504e86a4d4b838861d6e3bab GIT binary patch literal 517 zcmV+g0{Z=lP)$D0 z(P&t>;Eo_Dp1ZDVK{yQv3dP&)wg|Z0ZV4A~epn#Pn8zeD)`o@Avu0mJPPJN<*myh+ zEg9w=D#pTK>)0$qAKZLE44b;yY-Gty5dl%(wrwoRvpH-2#@Q3c7SN^DYFU@d<)+8+ zc*KtDwr|Y802<&e;O*c&M1q2%-bj7(A0)_skxf)e(SPs_r?oQAec(|A00000NkvXX Hu0mjf*m&lf literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/action_add_16xLG.png b/app - Kopie/DD-Record-Organiser/Resources/action_add_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..92db8ebdbf91d6c767d17da117642d3b914cbd48 GIT binary patch literal 164 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP%zBX z#WAEJ?(QW+t^)=<&VfrSF5Rq&nSVChx-Dqtv?`7#`Hc@AE@TW$nfm?}o0xbB}+#Cq4R(P5JI1l4)|6_1+XY%?1lyA)pNmp00i_ I>zopr0AsB<7ytkO literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/action_add_16xMD.png b/app - Kopie/DD-Record-Organiser/Resources/action_add_16xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..d1ad503318eff8e60972ef3652a59dc67ee080f3 GIT binary patch literal 173 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP%z%p z#WAEJ?&#!$Tn7v|oX>uEvi;}Iy4m67vv^n>mzbz~dsirm2|7yKZV~y<&rnqMy-7{! z=L6;RtR<@~XW!h(p<7nmZ=!Ld*+TWuSt;TCD@@bpu~!$UIrUzC{VV;J^d8B2Ev1eM S?UO*O7(8A5T-G@yGywp!aygIy literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/add.png b/app - Kopie/DD-Record-Organiser/Resources/add.png new file mode 100644 index 0000000000000000000000000000000000000000..6332fefea4be19eeadf211b0b202b272e8564898 GIT binary patch literal 733 zcmV<30wVp1P)9VHk(~TedF+gQSL8D5xnVSSWAVY>J9b+m>@{iq7_KE}go~11+5s4;8hc+i0Xa zI1j@EX5!S+Me6HNqKzU5YQwL;-W5$p%ZMKMeR<%zp69-~?<4?8|C8S?bklXr4v&Ov zb&06v2|-x?qB`90yn>Qi%Sh2^G4n)$ZdyvTPf9}1)_buUT7>`e2G&2VU@~Bb(o+Mz zi4)>IxlSY${Dj4k={-9RzU^W5g9|2V5RZ2ZulL9s2xQbZ@r6eP9Ra5u(s|C0Nj#&4>wTSkb?%#=9?@ z^oxDy-O@tyN{L@by(WWvQ3%CyEu8x{+#Jb4-h&K9Owi)2pgg+heWDyked|3R$$kL@A z#sp1v-r+=G4B8D6DqsDH0@7OztA7aT9qc1Py{()w`m``?Y0&gi2=ROcc-9+nU^I6< zT=e_Y=vSnG@?3Ue{BW5ONFttcE!R-R_W4O01|0-|K-YNXLo2`4Qv z`r1LxR6#yf3FB%T95gJnaKKivA~Z}S9A(ZxEDK}O3T04USJ P00000NkvXXu0mjf^IS-S literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/add1.png b/app - Kopie/DD-Record-Organiser/Resources/add1.png new file mode 100644 index 0000000000000000000000000000000000000000..61d25953c2f84175b9787cfa53e2edc08601d8d7 GIT binary patch literal 331 zcmV-R0kr;!P)>QTFvN&9 z;P>y}3_pMW#1O-3K*1CjYyrmb^VfG&1AhHt0IEd~@#!qTe*VhL4{yaV`OK{iDE!QT zdJHuaS5{}TfJ{DoWf=n@fK3fZFUSQ9-+z8*AP0c-LJjyvz5zgIOh0w<0!AR}8mgi2 zFQ31K&5Y@c*pjkej>3O!BV`n^tLN@AY?|_bk+^gK3><9HNSlO2lcWsHIMZ*Oe1MUi dv8e?JFaU&-kNmLq2fY9Q002ovPDHLkV1lw^iHiUL literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/application_form.png b/app - Kopie/DD-Record-Organiser/Resources/application_form.png new file mode 100644 index 0000000000000000000000000000000000000000..807b862cfc087b70dcdd971af3ac92688484e998 GIT binary patch literal 467 zcmV;^0WAKBP)4nWfMy23V#h*$3p-!?D%AI~T5+JJ;5Qi)|`;Y?)XOj2U`VS70o zp1%L~Y4f1;U-b7MEOk38OU$EtImvzCpiEkKCg)@3^{;h@nc_6NuOBn7?ZF9Ev4w3+ zWiSxI_v2&k@_b{1R8kdeGLx;rFK&F@c}mqZ4YwJO$7q^VC6&nL^Y#-6g9F*zM-oa= z70W0^1X#=%!t{DQE-wCJ^Pd1r08&yFDUlL$EtoM3e+;?Hv-Nc(QI%=il9}v$`OS^N z)(TbAG~DLw><`m+N>!Xf5_@kR0j83~eKLh5sv-%=fC#``TU}jaG#UW`VS>Ph2!jLJ zROR&N$x3B;J002ov JPDHLkV1im=zq)x|0TZUmMcENE*5520x0b+=AQ526&)5tYMQ6x!{Tnw==ZhqB4RhH$X z7}Rww^rC_A_-A8n&Vh~Hb|+t-6~*_zA!yLzU=1Unes+8Nt!+ZJwY zhz_6}4h`CwEx_(I42J+u?u6surEZ6TRJWa0-F|;wCW~vf94FIJj&%n@rpY!_^E{WaoxpKMkG=!=yPxwPJJ_NRi!ocY P00000NkvXXu0mjf(R`Ok literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/arrow_Next_16xLG_color.png b/app - Kopie/DD-Record-Organiser/Resources/arrow_Next_16xLG_color.png new file mode 100644 index 0000000000000000000000000000000000000000..4e3fa4407a060a7c8fa59a436bb50fd898302377 GIT binary patch literal 263 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP;jTG zi(^Pd+}+6=IS(6%xcECxJ$6DQ)5bN5{n4?{OUxK|b4V)t&hnXPcty+RN81gL6$OGP z4%XT^{a^C=q~6jcx;Fyrv>s@lvuu=jtnqS<%`yR}<@yQri3iPmzWn_VWN}w+GLr(RdZ?kY1b7axXm*&R0=IV5&uv1SY2%1h?@rn)g8sk%}{cKw99 zIQiUbr?_%f@T4cl>|tGGe11ve`!~@ab|!i=Op~AVkiTvj|6}zzbNA1A^91M#22WQ% Jmvv4FO#n62XafKM literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/arrow_left.png b/app - Kopie/DD-Record-Organiser/Resources/arrow_left.png new file mode 100644 index 0000000000000000000000000000000000000000..b44e93a05d209ea74d40a5211989faf0d40d55ef GIT binary patch literal 450 zcmV;z0X_bSP)+;#^#z81|Nk-^Jb#>!{^?)?a{3+GC57cGT+I9#9=tls z@bBLru&l9)A70&)R@X4Fq;*&pNs7o-*co~-Tz`Cs;V)D(2pqn;9IpYte*R=&`Sa^f zubGZL!TdKM-02>zGNgiApsQ^zkl;_;-lLy7=Hfx2}($RNlwc97riTZ|LWtECwE_g slJazd0Ri#?Hf$Nf8H-B}83P0u0IRp(6EpCB`!iy8(2_#ButL^3%VaH2WCpD^U)OZxp@C)2#hU)y+@T%ZNzJigNk%37 zz-WYJwT%teVfiEI+B*@v4ey@58(ld4VY_&5-ox`e@AKg+0U-I`y79bmuw_~y6+4rZ zBG5EdFDS+@M0OSE`>d7SUDOzKZ&h*4eB1iX7tOd9RiYtW2mQ--bUahxr1`i{RG@dM zL#}_X=DDO1{;UI$pFu=dLYT_=5d8WC-sLfjr7UO-HKMAwa=!>)kEhvuwre zuW3yF@ZxFCkI*+ad|5kOX%5zu8IQjhan)UqgSrFGA_0nQFn@Z08DSEUToCSz4Z1ls z&fDbq$T&7|6iq$_uDI$@q1_kQ@dfqk*0>{SDL6V)94@)ete)j++*>bIc9sj}Y;R1o z#OpH+Yt-^4wfv{nern^iVag8o>#A+qW*AYQLZl(!&BX$x7Ik;qO170ssEM z@$bKXf%rGW?|(r27bf-TSv zD}TdX0CM*JhkLO)8|Y^+n~Q^sK~hqR;q|N647YFGy>NTZJsWr!5CaSfwJm@a><8NX v2&h?|A3WJ2dfsV78ToP)wU4~UJxT^#Yl8pW;T)B2y+W_BqqmW z&#t|w0SE!KR$a#7aL!?!V{G>0(f7&GF0n$i_yAiovkXpE$M|c8KDe}2*w(W8jK3Y2*x)V03j=u2XF48q6F<0_UD&z zFmi~T?K=p$491faq~>RsPR$VB89_xzOpK2V+=|x$1lD3~x!;g2Mz5ELE831k>xd528II@{FM*4t5cwMI2$KMmfFm;RN43xW+e;$tzEyd|PV<@i4gUfKh|U-I$hymfQ} zt?kWDj37pE;wZ>1WHG%+SvbnRqEaTN#u*-slSm{u7_C6WGBh|el4$>24G=QE;Y9f< z)G2BOvC3T5Jn;{4ig%R|E{ITA5W$|ds8uW$Z^f(HeLnnp>dACn(D>^wEGjH6Et2~F zjpx1H%%|rOCx{iqDPk27MT{DNK*OCgPK;oDLHt!jVx&(zZS&Lq>Ld9Y&Ck!LvbvJw zmn1{|Z(}o^vo(KE_?L_xElfvr;LN1~Lx`p+b}l$yAzT2x$`0geVjljzUU?NM86qM=G% zvBbw;99_0joQYX3c10}`GhAJTi;ay42@V!cj*cQSB0_8pm@eXjgTz`NFR^P@h&V7e zO#HZNg_z`EFVX|2An#IfWKpE}dEIK^VP`95`1*))4+pW>bApJEm?w(d2a5_HCs8rQ zRebPu78}PpiuCz2#OqOgMR~wzQ88nj*cRj`7R(G0nNAj>JlsRXyVwcu5q9G7h|c2L zFk|t`YoMrz^cLG)`iuRMGsR5zQNm}EhqyDiwWwG!S;(UO#Rcmo;>sXHv3FQ!kw4p2 zRKy30nNEYn(t#!-(6WQbUpztV@1`ui@1Y{Ln${FY%xj5LmZ~CkU?Y)W(NJ7<>mZ&6 z+lik79mHt+q2hpLJ+Y&gn$T0NDGqw}7uS-Pi3i7bi%Z_7A~(TD$PPq_#Cg-it$pjo zt;i7~VWy{evT~ewdSau<-5D$%rtK1WXV;62tEYtQa)O{68wB0mEIy`h6mQaZ3VHzi zdO#H3N)g$&PvCvKphr7J@x5*Mo+2n?kDzCV1!bN@ydUvFL0Nb&c_T_+91`>@RnW^L zh>r`(|4CF7-okIWf?lJnqWgmKkgot~-dz@Np8tS2P0)v{f=Zv`_p?ZQ56@2om1PPl z{t@pN@cxr1{diqa`6b|rpo%+!WUmlkL;N#vQxM@hr33hlPzIqcdIbCmJOfZ3y#d|< zAAxc)>I@0btyhH8X%c;RkZ{{qBrK9i3|;d`I3zt4qOGIooFEh3H;|~&poviGw@kF0 z^H4PNIwXvjy%Q#@N`=YtBGG+Cp>PO@7ZVrk5OszoiPp29iMDfdM8_p>MTbRsqWywg z(IVi1Xf^W*@}>);sdt3lNTl<-DmwX{6@6x<3*(`)h2H41LVw%^Vd(L*FqrUAG;ug7 z8V^1w8d~iXO-81R`t5v0cgHoNuiGl2-XlqWapV8w+i1ZPB1X15vkbT~V`UO;N2{HKC}eC=?VFgmP8LmWQhMKZ~<-I(8gkrjwQZ zX9+8R&o(n?kn^-!UA64LmLc2vMT6rHGX8RgZ0oG!$1eW$4B2KUcI^BYGGsSP+3^=M zWM}7qm*zTuF++B?b-y7)1`HU`FJ;@O8qB}VrtCqsgL_+AbTKwI`JBPVM)g}c9OS9n z8X2|zBEz5|)_>d+11bwQGBj+_>Wd8hdJpLLhZzPkEp3eqTeNJ~zTM{xnti(1R>>6N z&r&j=GC5MWhv0r{gH|8ou0uLoTdOu})~xf0FLKyhbV2Dz-lUsx+E?Sk4uzvl9#KZ}W^v&fp^s!`W zP`cGH`$=A2UfzCV`nWxB>f{x;D1P;tg!LOXY}}Zf?4hmSK%T+g7{w!b{{iDYrQq7H zxt^0}Q2dgp)kvPSDQ*jfqKD=uk_MWhc&lCm$4weFY0@OmN#px;Xgnz}A!1JSnsrE? zoQ&iOn?^TNuWGZcX}4ZI?S^8Kkb-MJU3ag9sE~Qf*RI>JDS7jjtw^7=LQ}sgy|RO4 zUpvbtDoRhDD5yfv~m5q)jdXV`s^~QC@(LUJ-m7M zPGzX2=NA^^?=?My2}<0Ugs^eLx`ddfsz{$*AuBH{E0aCGbG<55ruX!p9T~N9?K*VW zh7If2t&NZB!Rd=D%F0Sh%O769eyu7f>iR5-4hapLF*_=H<(h7#{lP*h%8Qe6B|AobP4^&%nb61^q(FO5D*fx$jeEKxmk|n z@87)@=aBTwSt*=3bD>7l(Q!yWHz+93)62_$&hkZ`6E!>XATBQ|diS=luC>mqp82UpQ)g7L?7O8Q0U`6Een_CQ+d;UoJv965>{CoeVBZsa~IB68lG z(BSD4^%^yoN>^5X_YukS^4^pmI&$>LekttRcR2Orar~~S+0<#YyZdN8-TLy>h)Sj8 zuM6+rxO(->>C_{;ckkc7@94o3oT7e1EiLW3_3M9;Tv-&N^w+O*Kiq$K^Ul2+H?E#O z{KF65@BLihZ=T+iNXgY-z0P}AcK^vegd6D(5Bw(87q8_7uV3fCQO{|hq46xg_}7Pz zA3qf3U;O^N$MQG1>aSkrWM#g1{#+xs;NAPe{EFWt`r<=gaqg>^=Fb{vApP?fSvl%? z9}B9z05Cr|5aJvdMPU|c=M*kN1i$-UP+VMG@Vl>Hf1tVHy!{b0w|8YM^yG1U zd8{IjmE^I46lWj{=Svf!w>(A$=^YuQ7#XA(Ddll*d8{XovCl&}La4}NB_Rs?n`-srrB=@XtQ=pMB~-`_zB- zso&nG=3r~}_5A(So0;lMRkLrW(7_(`X|-lwZbrV&-nrw6ix0k?K*#L(j{O%is+oPO z1f85c+jd{b_(lmi+0U|H?Li3-{;-4|j(vs<8KS>y$8JP7gZ0)A& zJ|}i{LLzoLTc@bqrHAYwIi_vEb#TbCnaNRvL#XbrIf(V)K*JHNu`mMgO>ZEdDA1;CMG3s-MTp`$vKaI zSGKWv_~gl>M^CETX!^wj_(#O9!(JjeZsR6Dse)3fkp0RVh$jWwLD5sE&W;9sNt>|I zn9>>fu?vvxm39Dklse3co<4bY)Jop0txs6zhmBE1S!vl`xypaDj$iD8Am6~K<*{qm ztX#duJumw$)bO&qP}vdEe;hG-(cJJbX!j9OkrALCGCZ1 zchJ;8|LMWe(cY-O{6o>Zk{{1Y8uppxIWHi;s#~9^tJ!0&Op0rTD;6sKfjB9XXtyrEI1-+Gp0RS$^(X$gQmW z=0kqon-4eB&z?REb(XbX^u1P(rgh9;^3Tf3WqEIMUl)8laP!`ct3Ot1qgos)e?D1G= zb+;~_9vn4GEjuqi|KRCkX_uTAFNv51b69r%>z6NYUV3P5*0jD<-D`F1+jE~O>*(mn z8~8HklO0l7`6n9Odmgnl60~QV2+yb{RI+n~Qg-%S1!d(lcpK&li!MSKwiLp84?LF{ zLLpmKD4ChfjmgeFL(0lu`z?94{eKQMk+ZEzHRbWmwAAB`v^6#XNqCOas9W0)zjX$9 zz2G(AzcDnbU#rHXkv+TIojt|7U|vYzd;38)@BJM|z8Th|>%IE5YAyuP-GKkrHZ*tZ z)%p5#U+;>bpdgw&c`^`2@GaAkWwA2rP92`14N?EaZ7}le*W<n8z9slF|2MTkd!kjhs}mNiuYeDj-~%T3a{n9K!1D)A zX$YL;5RCu>pasy?y^raIK?#q`;LE1}(l#iAPIbT-7z|7V0)RQdlA6`4CE8o|dNCmW zVZ~o;!*k48OOUq@&=jZ*C<1?1P(#5sn$<;=t+v9cz~+kgW7;d`Mz>RZv%i}XG4^z? zP7$`6PwczU3r910=G2Q;I}N5`2@n6Y4ab+QBro%}CGG|)4^31R zcA<_LfE{26r~v<|!2Ia8xwBH?>E3FfTZgU8%{*W(yTt6Xp?CzTHR5p&`w+780wk;a9{AcUR@s7LRC7CY0%9PA^@0)4Q<)sdU0{s+csAa2|s#cePJIss;Yr5qNBO@QWr2Ec9lvvE`1$3W4SAI_ zimGVOb?pP552gwa2Z`>AsjgHJFq$et#?pu2F_bvY32k`%r~R-icn0mTY)?2-MaL}a zke{JqdhHt37dF*UTgm!V%f=12x7F3&&Cjf3HKJmstB7%6>}%ihj0&C?mUo& zBs}3kj*$PfU|QhoNy+0JX}hBht#TPm zYrQ>a%d}~-9zfOA^3E#-R(4GpFE_;}jCdpCU_9Zh>?&7#YRODONkW};U| zVOYVUUUrdiHVjAyZcuv(=JptAcemfp&V-8KfI>4Zk_bl^)W2ho@0#!tKkxZg} z8p+}V31>#h;Wt^+@V#;X9+eh+vIJOX}|<2B+udYYa}yJyTGCkwM&tclA&dt2bQYly8#+b^qnJ2+-(EZ^YjtHj7>AwjYt7w0Q=PckQ@B#Q7o?JOj+X4cp zd&}mJLHjrWr)huJ2g=YHCLA`aLHVATH)mn4nJ?#k>~t!L^{2xP%qnM!mZ7R`=10eAP;k+jZ zc z{IF4!IzXE)4sAv_H%vH>OgN(qukj=a{5;jlk8n1aWE(>X=WuDg&sh3-O*~kO4MW}q z!WmVtcpuU8{dk8QN%Y?UfmO1@^ydLZ0MpJW14;pI7mthkbSY&m%^W`bJ!oD8X#WB2 zya(Vps-0df1=mGw6w_J%+}fok;Vd-?B`;D?@uh02!K9)YO4Ze8O3#WalcnFrcK4<2 zZUboV>>zq{AQ3|`1@(f*EH~Viujt1(rn|snfaz!1Vg47(!O#4Se`6WDPdLv@>%G0H zwo3JVpt0E(^z(eg`bHbT2?z&R&Tea|hz~gPO+v9HXmz8yExse1U!{7jW4?ll_8d~E zIhoun2GW_B@95R}Etuo6=_$Jm5)M|*wNLkcA^%nK!@PYCvvSf8*aO=TnwB zroTrEqf4NzFTjCmXIbh21Ok_V4>-6)N=izwCMiqccYLSX2A-s998YQ{37??aX|?pN zZtG}rvmA&ay@m>}?Zi-&%gz(@!#%Wz=l+*RzL$>jT$wiSo&7471e1z0W>cq^&T7l z5DmH|63*yX(tl(3XZj!Qf*4_~;C66dd>R8)eeeMEaT|CZVtzCDnZI%W$k#cHn?p;( zXl(D^k3g$4!1@I1t22O7<~Pn3Q|;Qd33gGcSFax7j4{<}I-E3mZYE93ZPXB(c$}C1 zJ@8$#&vwE+gG&1E?EQj%^aa)iUaKhwb1CZ$yarT2wur|8)5l|(<($U@gXw0z^KVGQ zYX|b|ofkrOojYFzz19HB%|IZNd0wYZ9f@W&H8sLnX{jyM)!In3YT2Za_P~AA$o2p= zw)_5f;O~tF?I&kjcS?*Mag&pzkVx zIaZ>T=TwHA=lmP5)x{|5^>Io5yBQfB16%wzDb2y#-0 z`SL#G=sx=3G31EX0-l$6J^s`V&?xD0@|fGkzsZn4KaJkp*dfucTC3J-(9QZNx8Xsp zTD3mW-KbF`f?1hxZe1F$I>U}s(hK8BQ`a=o8-0%S$Noq-hyNAy#+)ZTx3h%v_k{Z? zl)e$`GWdnN2tY1|Wh!I`?a2hqzk>D$XbaD$g+ElLJRo{61!??M&?K_GZ zHR>&Bo(Ayx+Y6BR&irP&n>KAq1_lO%6U-9*O4;* zzBkBd%55^5c27c!fcw;9`Y)C5Q}0l7zgyJI=Q`p31H}c*pv&vyD(9Nt>H{Tjzo)Gy=BN_>341u?tPHE%M?1ia3S42xS>*h zD!E_zw*>N(2|eh=NlcUA`>iBN2bb0eZVU6Db&QYTJ@yv)sqvEjY1^gCUeMkiVBT|> z%yT@;3iBLyHzc}^jg85~#DsWUG#QyJ(S^Gy)H?JjwF!GcZRcfE+xa=vF7g$%L(K1O z!ZWG$oaa)TS_VBN+*_e3t{!xB!2-H>9K5CS&n+m!x>WiE{KcHfa}%%29P@bjcpmNL z@e2B}rzkibi#^Ot3K~9~=ga}Xm;0}QEI(DWckI}aaGamIcI`^tyLTttJ0T5=sS@37 z=VlS^*--naH`HNqK6PAL_z4}B6cFy=NWXJ?+HgD2UIT{>GG$*I%C7H8q|yS+ ziADE8JJu%|=J;~(mt}-`&CfEd$8YhR0ol2|iJl)?MTh5y(|k9#o1l9L!0XkQ!4NN! ztXJ_IcWKDn+?;y$>`Cp~wS&&nMB+2k*Kyf9GKniAlhqZ}c@2F=f=v2uy!?aIHf|@k zx9*Tlq|wdi=}ZUPOIw2jOAdmT2PZcW{KnulWQS${71pvGJTsnQ9Alj3UreT-6Ial_ zu&^?Z{{44@MxH0DWadly*=~D><)7uHTeoh6`#{vYcW>(3w=Y>+TT5#g?n4poLQ$uc zKx`>NO(5KvBB&7(_}O%QWqY`7#?kMkeyTkb7psiD52KET9#-9*myC73o8&*WjO`Cc zzYC|UJD1a~eev|@=msor+voxM=*qe{N?W#!mV0~OGH=^T?l;k(L4%05Sm{{yyf-$JBgs24wv;by!$HT~`zlR0}fSRM{4( z9q13^m?FY`FcO_6#i0(?u{bD5Zn z|LX6|n}Fc6L%<*x1;Rv$Hed{u~7d z2UA2u1kIZ_kETI>d-dui=}5SPM@qF!(KoIVlxkJ38$2(g%oLzXcJTPO1>QF}C%6Yh-q=%*88e1jw{BfUdvBESKP5MR#0>WBECVE6&fni(qB$-uj#jN&MT-|N zmgr~N$Bi2&t$DoXMEZMxIq?6Jc2q9~?u*vIPT(!;LaZ0@oW$!guhmt19Q=M4@CB5C z|Hi<2(?DPe@SPm|JP2TW7q|6)Jdn_XP75Is_2sdOJXVs&3i4P;aT@GeoPI9$&GHx- zB(jmAl6=WZ#E;>X@6ryNA92EFF2~SVq!=8LVzfLBpP2(vjK>UsLqTO!d5`Cd_cZzU zxxb0!uYWD7;&@eDrP)^PjQB(lhu+d(RldK2P}T0<^7cz{8dC9lhMYfDG3Y1$UM?#6 zC=+u2rs+xF`J9$MU+tuOmDBHfzTzZ>d*VAkej^B99)&%}88hCCpcD3wwbGEN%c}PewdHBwwgoq>x zc6Q3wtXG@ISDU|)29}hb?l$I`ku&^dt_$~2&zU!A;*_1VWpOgigngrtTD=%W1qI%x z{vCYa`n!zm)#Kin87nG=!R%s@BqNL9t2AlqF50|w8-=*KzSUJ%i&auoWSRI+)4=_z z+r5?1BAWptA2{rMCUd|x%p$3j%!97c_$j+-%aUz0W7Md3@Nvh15A19CcWK}{c}-)P z=k>WY(5IS`Vt|e1pkGJs$&}fj0}Y8KWEOOlJf`lZt>0~@X^tZc4H~MiLfUq~ze7V^ z zw$d!fgSKkDmEZ#pch*x`emUlG$~5te!{eFT_=jT#b(^J_Dt}1pqd}K#n$m+|9dS0K z8+^?+^md#bJ%As7zLP7B+@C|ku${NqP)t3T2Jm4=ObU$~VEbA{S!p85Hvn2FD=C_( z*R4GizU`6fb!xGW+Xc`Ec-E_;1&@^hXBOt2?xjjMZCgm^BXV4NSDxwc#F>sMuJi$C zBkoQdPBZO?(a4nNavDm=G~hb<&OAf`?w-`QagEE3RO^QIYTbOVLl=|V<9eAr^B+1O z({J#=C&M~-zTCx7ZzIl>I-y2G;H$n0GE!WAwr@k}Ow3CcODdlT|GFQ1yg_3nA8$GQ z>rddX+wRzo7KG0L4cQV6b};YxMDCRAoYhsV}*&#`{y{1Bb{a8y7@fCTu-Wq@}-g} zFFJ0cL2rJFr@NMgFU^< z?_K_YiVJSh{nNW>j`PT(rs`^&SP%&)2S+Hxd??du=aNC~)c|Zvu1317=jQ-dGzSXT+a~tYs9&q4s+A6Az;)!#E zn$Xj!1Ly?KpR64-nTDGBlV$s({rX_q)K8z*dX1y3lN(Vy{1&f|!8Qdu z;#*AEQvI;QN%iL==K4#4x4;YFDePR^$WTM$7V2cb90%?P_L&aosjhIswTWVB!&>H~ zTz?AH)R{}Q^%o+ZM~XH5$lA!2BD*(%zt~6i{x)o7C20Fo*oGg&w#vRMwrNYg&!>oA z0!#xV2ly3uM!9#7&=3=om#B~JCp`D+0}FwCwpp@Yko{_k)fy1~KhIaFt`$s1x|VNu zga(usKSq7Un3VXe$U}f_>?QDNNd6l3o3ZS1KUB6G3Gw`p@*f=`FB|Iu)aL`}0mrKR zW0L&@G}LM4Mw-31e&rKmADM>525N5PLdi3ySA2X7d1D(V`&^#vM-$oqm_EI?WtmgW4fk#_?!$F|kC=!4ATl|Bcy6~9kIm;WTUyTV?~J|6b<^4OGJrRS%T$he8# zL)6^|xXC^>wlT4fgnfgWJ(rL!{7&p2X^KOclK%#N687=vI^w%+5{>EaO!xP%1^+SD zE6}%j@a5!yjz{1H`#e|{@-ZIXr(#?pF2Fm>#@kd3sR&Z9Q|B1!Zq2?uu2)Y_Px2A4 zokiE_h~#gP`~#D3!lqb>X7F*af2OJ1Y3kH{9PJDZlodVUF~{*v3PuybcYE|`X2wpQBiKcem;C^GkU z(uoCgNUOf;_o$oKfoj}d_KUE6zDt)blE0y$)ojVm-VV0v4zR@=ulPtEVKZghJlo)z zmIlLjP#wd5*S-2#W}Z)sr}vrgVM}8y6Y({)Hx+ETh<-<(pfAd=Y^94UqNt^g&P7E9 z#i6L1^&MV=vbb)xt+RcaQC&?}suTaei@KnT*>3x#4Vr0EciBUtsdYTgPEB#{Y5H^G zw8`Z+_9jqH`fe)9I6@^)kHL*`l!|ZerI*K&X@$4vdz}XA`%t$X>eK{SSK)Ai`Oh{# zwl57FI8f>jHIpfjwNz>mkV)+$^2ub`doo*JF4@M}zF)^_3yJ1~f{?!{&H`GrYpOGE zNav1cL+yv>#raGu-5C~KdSK!Fk6~_Z&pQ|xd|$J=iZ|vI<~h&#RdwT0jO4M`7xq=I zd)TmH61Xqe22iuU9(?-~Nz3XKe4RHWJ9iU@O|YM;eMDX^kLONaOIdg92v`9_D*3{Z=O=*kRs}AX z+r{)SxUQ;a{{Gu~@kt82_OP!st6#rIdY_ATV(qd+t_(-s9wD~_jxR!5AeG6pA5_g*4z19z5|d1oCGca`+x|5 z`-#U6_v?Qo@cmi7N1FjNLIz9<88E|Sz~sQ@2vnd4uzWC|nZB>WT)Z*M$u}UDLVBCh^nT{=7kIhmFYp=n%C>XIi`dJ#p$xYBFfFal^l$Nk&q=?I97{L8 zLm6}YXzb!06u%;l&TopPyxV)R21D1t`JT)hX*8mzc?KFV7I~R>>IStGMy|6myzSZ1 zmMl9>rylJ*$ld~ac5DPx#S_SjwMx>_D%aEej9;jAlg3w(w>!`cy5TA43nkU+x26VI zkW@P@Bl|usII|4>Gava`?~%?Iy+h1;Z!Rqgob(QPhaulF*01Vm8cJt{_?(cI^#%$W zi@ioR^yUoc3Hi`br1L$jFY-G2gbr_BRE+#CSR+0f!1vIkT|eo(NHgdm`tGM`f|D;5 zu^w2+IvDgnrlB0?A{ca?R?qP%LVkPrUOw`<2SZ~k>6}1&_^jJSyr6Dw%jx90Xrx6b zLY*1lVJ39R4{216v#GF!u>IK_=Z0?Z+RVOhEt^Q_2d~K_<~m zeqQsc#stqJhFCiyVP}5;-|J)e#jlGx>htiO*D?N`$0)}tcZbB#(j_rcO2Z7@JlFU4 z^ZWN%bJxsWch1~%?m1`ne#MS{ucm;FL4kpSf`YC1PVNH=%2OC{{_f=q;GN1ZN(lIP zVWF%bhw}LE^}Vws83ly~MNv*#%O~q_)mx8f;RX$HOrqzffQSF=nTCc_ltm2F1>8cB zKe{y<`qhp@$b?YYg22*GV9H4Ky>wiydCV&!ISn~2IlpAO&iaG92gFIcNkPqlNIhS@ zzvM)+)Je_h_M`ekds;ZN@G zSGl3xTra%5B2_M0USjoe|2yc>*Xss}VS^jfwE_G3{UyXrWVAnK(Ajgb2V#33-Vf<} zjs4fI@7?$#3G94Nz5}^xy67&RHMsh3rI5JKz#rATLR>FmWO?V z7ZKgfnQ45U?*ILe+wq;Pp!@%Z5v9?hvRbA&mw4k3xd3k)Gha_XI&%lLQ!BP#)5_w-Q2?`1Umh!Sq zi8Qp|JnoD7-+JU&BO6;;Ikc2~nrg$_lZo4Wg!9|e_{6iEeJ0*g?#W|+sf)qS)rs0# zA+RFRp{Z^m0M;x;XFktlHL7gsh1Q(lcazF>0n%`z7nGQq=^1S1E@feH;TTLxB1VUt z>+4R~T%?B2{F^K-*VWlw(G95F^Rv_z2tY=EujOm+PUG~>m$aikAX0A*Zbi0nJ>T9 zR{K{}@kMi$DFg49=-f9s(pj!M%>%U-7J^|v$8JTbP3v8gbbdc6+2BK-N%eV2Cj9FS z;b@z%rsmAU@Lgg6?e@n&ua@g}cd8e)`Suq#VL@WuBY5AYHwzw@tFB=z_DN5}=OD7h z#%vv-4-LRvnFXI2|NAp-f_GWw`hGrD{adVrg?;uTYz=K;V(J?l+n_|Zc}-0%dVH`P z_ci_uihT?3iA_9>?KlU=VE)e%#Ql1?kE^_txKKk(`fIG2SU)d%0zOD$x<**1#*ema zQgd5q?-rgZNBShDM91>W?EIbC`Eq4+Qdv?3s_K`EZJ)&-yNkhD(sgmOC3) zfxG#(3$U$&c2?j?eomI&yJ}SPM;)KMJYHaAW1NyTo;w(+v-h7j$lL{-i2^f_j&~3$ zG>hT?59J`Dcxu+x6U%|Vfte2jF*2~_OVjc~;oSkDXv`%!9*zApO_fgp2|N{t$! zSXGb>*U_w&mvdsHv(Q9dBrx-|c5~@W>?Ks?sL7NtiJlzfV@MOWBx{C{N=iLF_LbT! zzXz9A>SBJwEy$cM6TS1>c;Uyn7{4t@C9h~*ImsHm6cC zf5dov?{mL!MN!Z3m;RLsX6HKg#vU}^gzH^()jj`B-Nm#Ua;1UofZaR6oOheKT!Sdl zEUn_p3Z}$%uMMCT>KtzGZpB_!XOdYRa^=G5!;MG%nAI8%#|-ML+f_k zq}-6wMO%XH<(!{$qKl>V-}akW7Oe}9trGnUt$CW}2J4eWM4rCR>=z2Zi%6;m4VUpU zSjLjg0*6^x2KkP|Eq}&i&Mrxhl#Me}K0 zXQRq%Swt?S=m)v#lPp=4N4fgGdwZ{cZ1Q9t-BsS}I9z~wse32?ZY{x6engSc*EgEzUwwJCFUZsBJ{)7G;zk(s;D{3 zJ}q;cVcLz@>DR;31rPB?H>3L5t}MU=D~Ky`Sqt$UTkdk%hN;QA<#RzYYc}-S1n==j z{rVfl}~i zA?ZW0fgKP~Ii~Vz*x9Ok(DLq@;uL$h1_|6a8{h2kKV!_uZ$W2|FJj&fVvHXw!px3f z2+LL{I9MqUPMF=l7RJ%*jyWee-L?4}m<@R*??ZVx;IR5a!+7D7>aB(E_&bVt6UDwF zu}a4$w?~uOolaVGAAyG+Z0ADHj`+@?OC)3tt8D;TzOB^(;(WBA%;a1~7>7|yQMbkh zlYjn~Mf#wedouil8jt31wNU$_v0nE|G{Osc#)6g*&d^_5+XV}aL6s4k2IqdVmxJMA zL!`rHRx*iB8Y^MMgVT7){f}Fmvb6o*@*SV~c@BZi_DS}89DnC<-ze;VXkgxp*Qv%N zMW82>-GgcM_rG=y^@B7xqgfkXG`_ff%>X>C8H4G6Lu^TMLbZ2tvEKD2Z?8w!7fwzr zTJVrONWk=7wBwmjD&OPYu76ozl=@~w&BW2yzUG@>qfRv+6O6dgpgP}U=L5#XuXpPG zf3)&6@nU<3V5;9BmcMnWhz12Jgh|4`j2LLm)uBr*Oq&p97@ z8vW}k(b!fI`12{)V|G^QYGN#2u2{;gPP=Rp1ggFM3MtJLk#8Rt3C@hb(I*x-ui@v*OEex` z5;H7_t9*XEy)I1C+(K}vR8|TrBrj*&CajOX?KGvHLFG~Om1|%7x1UC4&CU=mvMHD| z9Rhiz+`>Ozse3tcd9wL!TUp{v2nu%e&%1$u`0!qP`AsMFsm^@h*`>Gt#zb{7qWQM4 zI#a@lQ@f^Kt7m%bS+UY{@K~{jq!{5< z9~nOKjD(HRi9<_kLuXFldt1{JVC+L|Whm6`1f;sNbOqnBUKu$-2T8vA)4v7RQO_ZF?U4mb)o5K(11D-DWQ@>l?mO z3256U06#WJD$FY0`le!td{x7iSy>HGx!w6R4hD96`zGCkoReo7xlBANx0EqtL0X(%x7iyT;0$I(BF7$swq+ zbRa0}WX~^4ai})|f5B~wx6>;m+1SGssAyhwE_(__5cPlu z$W5XX@3!E0BPKA-FraLbLQ#ZKUZ054=(azZ=&nTg2r+FFP`6FszcP!VCiwU2a$~9= zJf>3U&6m$AbQ1Od2*sa6?~#ns<0EF4%)&8L7Nsv+GDAPV(OE!eTM3TSnmMFrXk+sf=oU?+6hs8^nn<3OwKef@@k2D zc-IXixMDNMYwFM3Z9l0@B^123WFb-C!w%1K`-1Y>*3XB|;-^-+hR-)cBaP*aOaJje z(Qs2;b!L#U7&g`TUBk9rU(XU&yRO=g842;ye!h8Pk=QC0muW4Kci^FJSWcI9gX*8k z^&_jw(^}pPFcA!8?XTI~!RGi^yR#aZH!2^fkY9^8Z~O{8{0AQ&A2Vd{))&TeSpEX& zrQcaJV(%wdf~VG0!2wC)ELnM}m_1-)#l@9Bp^8#k;rxIMQkGg6000k1&TOVI4mNG} zDq`G9v{kEVl0v$`ONI%xi37w6`N)tO{q)g9oPvbyG$J0lQR;32MFe-spRPbQl@mGDv(135dJ z_bDi%CwLm#(L%%;8RKPR+LHxru$Xd#wUiNoT-NeHNEPwrBn%{tq+_hs+R>7ON>|b@ z*;mFyT8?t@(tJ$0*|>58Kp>sP@O)lCnW6vL`Ry%fPnNlHG_x%zO3}Okrf%kH9r62X zeBQ@UU;2WV>_HL=j3lQ%@q&Nl2Aj3A5=lPl{AD5|dAFS;#(AM*Lq;?iFRbPqc)AcF zuc1<(kVZlwLcVW;Tfq|a&M$~Oq6%x%I+_rAyZcUj1f8nnnIHMW2gBlL5-^PC-Sm6= zAHQ54R{2~Y>6HOi0net81LY39Ys#Ylt;MIRw>-36{WSyqhn5nqP5I@;Gi8@h}eg0|1Di}XfGF^tK?>#HA`+{6f0dTzypSOPm((iZ8v+j2E3-<08 z&?pjiu4myHPINS;VMfE!hD~4D^fEIsvIi_%#q>3en-}$J@~_Y(aT4&gHH>t$BYC5{ zdZe<2p1DtVeqv+-;L^6`^-}b)`-uc7inhJ>1Ry|A)H{QK)w`)xB)}>1bqf1xp;3w> zgmVleJod*`t}(L`gQ1Fl8202%xDj(A?|3fr646s^}R91$&#ZoeA33|80lN>xfZ zko|r!nL^IrssG09$aBK?eiyhQKfZ4C8Bkj-?Xl);qI8LeY^x^pw?V%UeatDU&EYj2 zQ`Og~z|4<(B{BAv*ve31Sr2jR zV?r%fz1thMjSk^Yk2+g=g3BbqS2}QYW#b^rI(b)GkW}sp;5w6uO56YeYTkPW>z*U$0^or)}DHu!E#@;3bkxEz^ zXHW#N7IstW5`xk6KP%P!?S|t7gZPdUY<*;O$oTu1H;Rnc&qyq%S4YXEIt8BI--RDP zk?`e|bkmX`+&)we~Tn`l*3*t{<$v?d)9Q89cp#Bg`Z#no}8f|BYpAkzmPVlC_M zQD)Wa-lsc(lt)>%Eg60oiZv&5uE}p9=WkNtXIhxS;IX=XeRgIaYL9x4=$$cMADbzx z{R)JZp3h`;MT238z0#vu|6NI}7$z#lAP*z;Y^JS6gEGWTI@OhrH`dhk!f{(v!G1A5 zjN22F`D_4sr2;BE>k8hFOx`&@X1ZA=Z*2VI^Rx-1jwc$Yv+rO+nR%Sf z0HZLqKAJl(PE@X7*hlmL0x@Oc_=@ZZR@yGDP5Ah0`KxP&e6r#ZG)i!yfnX&U*l;Mi zoZP8F4-){7>VLfFw*asf?JaHP$yXb!0M|XvtDWPaE<}XYYV`ZlDzD!}y|pc#c{6y#8CdB&i`2EIF4dQ34-k=$mhdHb{fk&8BHkEB<&p! zaRd!2;&8Wd3I*3wH$SCyi^^M1lg)?{-g<4_gS@bBG7?t|8vVYpsLG6~zbSIN?~hV# z@W;~iSI(zWk_1+M?On@XN5@pH`Mi#{_@z|@pme-#RQ~=RfX$YF&4R}Q+t{D_?2)Pr zv%g&wsnf7%Rf%BKym>$JQjeGMWoCj2Geyr8AOiyQGTI`XkVlhk>t&!f=%48KXKu@| zku*hT6UG(4HnaqlZx$eT^+^Q{v$DLNPy;T#sun?!dZCKF9sH={Pdqh zTNThs{z-#84)@rS^4YRo{e(swC3ZeV4 zE|5%qM+tDTn!QB^vk5= zHDlUo#pP!S-`MH(`NcF|+*9^JD+N}*&#$${MM4{_xYaLqJ7^806zL9aTC=@!IZ)KU zuwaoic-mWWcI8_uig=<4*u5KOXMDiH`@Ps4RFhBk=6f37cn~k4Yy3W|CtJRd@Q>`B zD=`tL{R4%$a!TagK;I&DV4ARwy9;`dSn4}kcCc8W1flJsU9C>Vm@3}QkshF>YHbv4 zrCRhPFhlz-9*(H#+t;u2mJ*K2RfdA97iKWuibS96r1Ec&{Vn?|Cihci_>n0-#_g#{ zoZ?|aQ(PKF!E1mpl*|&8joG4aADVihwHFm-{)q(y`VL-}= z3GTT4(vv_Sq)+H4y+g!M;H^Mfk;(VTpu?G&5Z~{Hq|s*#bq4KYFRm*NpcfRvFbAKQ zZ|_P#^J!l*=8m91G8C2H^7yVd3+>@h%x)Mw#Co!-q0D;gq+%3sK>WQudp^%4gZBr0 zeO&BpH3Wxav^Dgxr;w?Q2etdjE9}r-A+$|TNlDJ`F&6pgOn?ko6u>HLJRR^NF3$={ zjvJ5T>zSoefCa6{nWJvki4FZQ)mClI&Ub>|PJIMn>Y^!1$bYvfk6fj9X_Oh>=?BftFDE;~$;DWM^E&%iPyjSDGg6iM|-6~OknE-xsB5+2uSSum#! za|;ep@|cQ83QXWm+P8`cDV#WW#*8>}JDgMH&xPBq39mJ}CTs#q%!b~_uVo~<$8H4; z1k-huw#ev1rK9jK#-IJ z@11KkgnNG6bjDs|()PkGb)BRUX?}*j8?LoP!izBiW4T{XzC@iex+K8p9OG7dEeg;F04 z)`yCkBe&o?e>SK0@Pm!Ppu}|juwxu!*!-r@`|9F)NuJ6}ZDl&bdRo%q89&0J-lgv` z8>F(xF}|FdGNL7%fZEcpnb{+){D2Io;f8z_#&Q{q)B~kytQn za1D@k`(XofvmrX9u-t<#E6;*{Rh>sF7-U0->{mG|iRwWd*Fy&#phgJT>X8Nr1gC!& z0RnibYtRNjw+t%$8MXB~uK7t^CI1-%R}GD!fc@b5+(glu6X+RCUl4U;^wPO1CbNK; zket+{)qlb?|MUVC~k-GFjXX+%XQUiK>d>Jm<60X*If_an17$a zg4bjrUfs^ddxO98N2P-!lXh>vWc8;^;#WZ83KVNqdf08N!pdi{fz^2WG|{q?!PI~R zC3FHm{ z`Sm%)Kmc!tB5a( zJw-;iReAoQoHl#82R8onx@b<^mJu7Ey_=zdfV9f}g#!|LXM~)>tRVZEpE!OPruNyp zuv0IN;?RKB{YZBsGRjeI`{^ej)jfYSbjTVtpY6WDg9&FQh6CP;(`-d*SMVmeQAaBK z?t_Nq<;vu1y>r7t7VqL2p$sfN-qwWqYTY4gJ?=aq_;OIrU`3(jfLU;;tA|s3;SzJm z9aV#((M?FB;=3dO!vK(7{91ai;+#LjZ4<8CU(gQ-NZhvR7ltDz)>hRxJNpU`a33jt zh>YL>Z2m)d4e_RVe#-2^lT$oE4seZ|`RyQPA((HA=6UJvGRJc|=owjA1SyFvlzp9S z4hUcXh)Q9Qe6G*qLn!QEly5PxU~(rw2ge3{X*7kcUE#|W1R)qV|Dy|J?gFrcIV*u`M-<8t}k)P6-NOz za&o35Zqojx((GFv_6TeRN-@k1o~p=6`<-yfy@!d5f&8W%CuSahcD^y{SMONq-8XM; z-s_t<0GO4HQj;t*b>c<6^&!KU7WBvb+XA!VlEyWd9Y6!tehtW%SejD(!Y;V=(HMUx z`p>L8%z7eILMyC60(+99_R^4tYARQ15MqvsoVzoxu}ml_9ReN=7a!RVhLbJJdMdl$ zd&qNxV}Xt1cBVuT?i3pXs7g)V13!i%#sw#1AD(+V#BgFNI7keSC3Z+Qp~0!D{V}6~ zHsjWtla;95VtJ6HnC#~`6*(Mj$EdVJFi-q%@)3kx!T1w6dsajVOL0AbW6bSQ(>-ZV z7Rz;EOiRTmD5SmTH7Mn*y0;zkL+1ija=bgpvH;d*w`~{hd>kvdB%p-db5J5`xp0Ea zw~v{QEYb`?tnN?X4c0blt&a`z;ZOgHlhK)8J9LN{imP9rnHLt?_eoh%eO8Zkd(&v` zOz@%<+U>ZS^;xFGf*V7r99kia1jM<9+WPN__{O~C2)N1#e1qNl6ueb;=KYDNH=V|{ zL!_!?(w_TSG4`44L7GSDiWwxMzVi7+mk>UsDV5Bj{5U{RN*F(@ZlIu`PX4O}kjnWC zEDhyd)GZ*;xB-x3XJ-IogULPc(Dh#U-|U-;P?1XI{sd+}Uu%fRF-poM;E~Sc)tvE; zC)P-DU>e{pzaf%^CR*-lA;-CM1iuqL6(6QHuL4Z8IFkLH`m|i$tB{dNul=>KQPZD2 zz~Zm%Gp$^TQ-dmgA|4L#7#{C_0_NubuO2*6?}Eu9Kl(BSzOeWzPr$)BC{kM%t4&}>Wu=M4jE*@DA$Uy+8} z0D(-9giWtB1!3=qrpdU9TUybJ!SIJ@KOmsw zBaYp%lPVAW;oR&$YZg#BURC_0YG*f*wil=>N$!qp^Apai3}pm^B%zc7fYo}BATYSva%Go6sLjx%2o&V&*%TY(0_)L|w+zP%##5yPh>|6fsu9EZ^W z7^G`roB+pc-gI$co!bErQ>~v)unIcTvOa_SztRt~TEF*1sBa8{$U{gYKlo~q0LtI| zgf)HN{|Y!5?wVO%d@5&sp5Ed@U5CN$37H2pk>d%Ro~?&2C#&>-%}Weu(K|H;wFoAft; z*>4Wx{$CM{_BwC;CW+uB1oBN31|Moa{Bo*vfHCS&Va03rR2&q;gp2s;?%gmSC_(>! h4-tVMDfWm~U8V5Ee(=T}sQf`ue5)o`C1V!y{{d!$8V3LX literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/brick.png b/app - Kopie/DD-Record-Organiser/Resources/brick.png new file mode 100644 index 0000000000000000000000000000000000000000..7851cf34c946e5667221e3478668503eb1cd733f GIT binary patch literal 452 zcmV;#0XzPQP)Pdwe5?6tW?r-ok|b$oDQj8FV%kZPq;(MWOV8?8;<)(iP}>hNMU> z7fbz%jjlr7h8uuoQ~J6}n}@Y@PdTk=)PxO{%7zmL?dchpZX*~n;I{!C>*(8cU;q(~ zAS%Po_@naEU!xidrBXD?;hN|x^%W|Ij)0y*r5vi|?W&Fub(NqJ@z0o=Ozp{gHSP{di*#8D&?(h#;bi2r7yUe@M_9Z^R^1th67Ma+}U=ey(q{ z%~>)Q;cRVlbJ5&n%2W)U;$S+(K9zyBt*3JiDKhoI1BdsV_j#W8ea|5PNIG0D*E5U7 z66xyd`pdxfEVk3#Z2_~{oMA8+{vd6!m|m|xvLnHN#V}P%QJ}ZC7h_{%NTpIpCX*N) z9py20#_q7Y8;&>uWnbT_HZwDW?(S{`gFz0H$;4x6j@CIrPfw4Q0-;cdD>8V!URbSG z=yW;`wr4TsCXq;BWMl*^N3B-t2~|o=OiaM<_ahJpa7Ct`zBU{U4GqERbi!`8L#0wB z2(>4zt*v2UVF6Q9Q<$Ef2CWa1larf{*nVJO0ORB1u-R-J!^6X9Z*P}~(P-oZD=RBl zUS7uR>@2tI^Z7P=z*NiL=b=!07GJ;F;BYv&+qSkgi8YWDNRou5r6t5-F+?H}uF6Vt zyWL!|xHA_|Ew^z?c?$jZJ}#hCDkVZ^`#Thr?l%iM7ujJ_6Bn65+CbO^3N2U=TO*NG^KHr9~2xj9}2BVoNL)#c(-Kn}D29Z&q=YesW_ z1q5#+N<j%go#9EE}){AAsopP$F#;vyc>dRg+DzH&5tDMkI~BGgzO zpw?OprK=8iJM(bj2}y1~Nv&3!q0wmS>1=;_JRaOpord8@GsN$&Aq+M`<9R_z9zo%% zMUi*~S=A(Vw36g(`wJZ%9oclg;tfR>uC^RQep3c6y*z+>+KZ4oYfzw*A+wr94_A^i zJAS4O&<@KK3WZ%Rm%C}Ru4UKliQgCUky%9|H2LJNzi~HE%kkq?dvUOmWNnTA1HB~u UMVP_&o&W#<07*qoM6N<$f>=0SnE(I) literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/bricks.png b/app - Kopie/DD-Record-Organiser/Resources/bricks.png new file mode 100644 index 0000000000000000000000000000000000000000..0905f933b87ab32f21098d7db8d603209730c753 GIT binary patch literal 825 zcmV-91IGM`P)wd|HNMlZ|>D)M67h? zOIjz3DJbk0=97q(mSBd~-ilc0Oupt^z$#N6O&at_s8u-PL@9M^gQuq(+UH^IB$&*DHP!HzH+vkEzC?S52tN1$mKhziPkOR=y$ zhl#aO1Xly_M?EkN>tM6E5T&Ht4dh{0oQr6Q1b3J=sM^ACOsvD=TSP81#0oTC1v|Df zgpp-GhL(KrE_8t&(jeFR1W%(osQ12tvSpHp_}~HR_8G{VUO;FILQv(P-b)es=)ZlJM#c>{Wx-rgY3D#Ol9rJl39A<60Xo5cneo(9g5a4q>ayzV-7%Ue2}0_ z&TIets{Cl`n(nefrZ+9F8|N&Kp}^StU2b+&pVj;XvgEdBL3Wlp00000NkvXXu0mjf DwZ3{L literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/bug_edit.png b/app - Kopie/DD-Record-Organiser/Resources/bug_edit.png new file mode 100644 index 0000000000000000000000000000000000000000..e5c7dc0572e0c19f66c1bf18bd106b8c0019e5c6 GIT binary patch literal 873 zcmV-v1D5=WP){*+c^G!iQ-|(6%~LCN zA@Y!iBF(UtNGXJ#^nk?NWwKXJ&2s67_xAd{w%2Q~yc~D9jDi0}CJUZQwS#(;Yq$^K=%m$}|b|DLo2FO9X^c3YQci2rS?u zyuuA3MgEA&(tkZW6u-3e?k=VtilH35gP#*!7%T}^5nj&k8cmWIlP=lzD0`HFh;m1y z)Cc2yX+||%ZhL~ zB+&>;()&0&7=sm6Hx@_zp?d3s`4_Pmm)U%JA~|BZw#2^;)U#8xwQ6U;juxkr+cDJ_ z^+)Un)ucDRKaay`uI>D*bW8K~7SslGE=A1JSj0Hmkm!Z(B@KzY+=m*^F0Uv%p&A$A z$6H^_ttJ`CwNnnKQ~Ng5sM%}bDIL*JLoA*(X5oF0Cl<$jFw-B6*HXdfVF|_f=MFT9 zsx&)begeaC546Yb#^Y;_=twaCFp$bN+Vqe#iNql0@=~`HOFh}>Nfw|gaL+<>j0x+% zpGlMOq_tEj{s))aQXQ9DCAJ-PQO1n_iPiH94U>E_m{*tA00000NkvXXu0mjf-H(&g literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/bug_edit1.png b/app - Kopie/DD-Record-Organiser/Resources/bug_edit1.png new file mode 100644 index 0000000000000000000000000000000000000000..e5c7dc0572e0c19f66c1bf18bd106b8c0019e5c6 GIT binary patch literal 873 zcmV-v1D5=WP){*+c^G!iQ-|(6%~LCN zA@Y!iBF(UtNGXJ#^nk?NWwKXJ&2s67_xAd{w%2Q~yc~D9jDi0}CJUZQwS#(;Yq$^K=%m$}|b|DLo2FO9X^c3YQci2rS?u zyuuA3MgEA&(tkZW6u-3e?k=VtilH35gP#*!7%T}^5nj&k8cmWIlP=lzD0`HFh;m1y z)Cc2yX+||%ZhL~ zB+&>;()&0&7=sm6Hx@_zp?d3s`4_Pmm)U%JA~|BZw#2^;)U#8xwQ6U;juxkr+cDJ_ z^+)Un)ucDRKaay`uI>D*bW8K~7SslGE=A1JSj0Hmkm!Z(B@KzY+=m*^F0Uv%p&A$A z$6H^_ttJ`CwNnnKQ~Ng5sM%}bDIL*JLoA*(X5oF0Cl<$jFw-B6*HXdfVF|_f=MFT9 zsx&)begeaC546Yb#^Y;_=twaCFp$bN+Vqe#iNql0@=~`HOFh}>Nfw|gaL+<>j0x+% zpGlMOq_tEj{s))aQXQ9DCAJ-PQO1n_iPiH94U>E_m{*tA00000NkvXXu0mjf-H(&g literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/calendar.png b/app - Kopie/DD-Record-Organiser/Resources/calendar.png new file mode 100644 index 0000000000000000000000000000000000000000..658913852d60fc6ca8557568d26b8e93e7d56525 GIT binary patch literal 675 zcmV;U0$lxxP)w!? zFisFv!T|cmRtW;1f$>$s0G>^*GP-h`H-mzTP&3`b(d;hDCL-{+T2LSiJi1S%34OTG znWn~v^Brk?FQB#MFuosf?qnt!t(A%g#tAAA`tV{p&t%~)6GMus628BV?|aP6=Lr0O zrxPn=6Fy3{fE84gngF`mQ;ZG4p#ul`mYb)mJw@Q%q_eddamvg>kv)yI#B0M!3sxev z!1s9dp#Z>KE{BK5@W%p1Kt!2cEYj2vBiUHDJ-HCTS{r%b!`Wj=!r&Tb+LFBfRN!=5 zl7aC&Ul)Foh{s4J>JU)^p9+C-Q44MR8(8|WK})8dx#e}T%`v`wFOp3_q9I1QsXihN zJVaEgK9Y|1KAJgEb`m$%VXVVh!8pM>`_Eli`}OBJfVb0i{tF{QT8%v&>u>-7002ov JPDHLkV1feuD8K*! literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/calendar_add.png b/app - Kopie/DD-Record-Organiser/Resources/calendar_add.png new file mode 100644 index 0000000000000000000000000000000000000000..17679db6bdaa6771296fb016d21b0fdfc79e48b2 GIT binary patch literal 723 zcmV;^0xbQBP)5ETnpqPAn6zU<&FIp9Il1xF$N9eryjdy0$g_1Iflt9aIG62{ zJh%k%4xHmhLo?3#;voiuIS4Atz|yRg7EJQs@{lI*wgUi{`ac_PABetl_Z_I|3#8?`eD|ed6f0%TQcqH8_?!MPbDcMaNaP9 zID)f}I*Fo?b1j|35nOoE$%C)^xO?7^8AZ<;nKNMoiOUGW!7B)eqks)d%85f*Ut3O5 z2y1J~34@4P(`OKd5v!{!vZqb$PX^8#GKfRC{H%*7-3NGlMMxrkzLPKvXnpw>efz<- zL+i*V2}yntup}dJsUeA?2-Z}W0WfXy6oMdN)xt6+rt=t6;#s+T8Fd@$sj8kz$=Hk3 zZm&ETLN;{(Q5bOJWj6qApFR-~(46b$`TH|e&0c^HJqyOKzz2@nc}oH6k;Ja!@6_`> zujX8rB$7<5R4{TFutjs$=EoolyOHUV|OXy7|=wB>Mn!!NA5kcv+BTC4y7002ovPDHLk FV1h%aQKkR@ literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/cmb.PNG b/app - Kopie/DD-Record-Organiser/Resources/cmb.PNG new file mode 100644 index 0000000000000000000000000000000000000000..d2718bad755289a81fcbaf7c8ddc9b70ac5d781f GIT binary patch literal 669 zcmV;O0%HA%P)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0y0TNK~!i%?N~8x z!!Qi=Khg)ZpXi>k$P@g6jG5XYbJt8BI%Mx!1PC$&=qrLCZ|DP9F*apMRwc@205y;S zA#x;<6puVguAn?wdZ5bEs$vurU@{GY0!;3}yf$CJZ4WPR;I>Tn_ixS88H1p39|Yxa zIOvA&<&pKkXkZ8&${abfF0ffV!|bVRi!Gewgeyr$SU%RUIj0K6b%tHazU4ku27kT< zjE|zY|M67@W}de&SDUvstp3}GI$#Pg2B244*RT`W_)v&d{9| zz0H(cMqz7*5HO?V@Vqe!7zCxNDj;w~fZ;@7mr+D>J&2vN_ie`EIF6l~T2tb@xpW>G z&h5w4l$Z{p!2KF#t7GqF@47bFw0vB{q-HNL=yYl(zLYIEhJE@K114y6%kdhFt0Rb7 zI{v5i=l}(djZ)M%YAO9 z(7Q;+pi*CC=~J1HE{GaZGsd7f3ycIEQ3^C|6QVM+#$cbGo7Nao;uKMRbs=rHav?p?@hn_c{`hmk48KbA2!Ih9T4!n=|%y7n`HO=N{yXhvI{h!_0ot^nS)JXfldwbvK_6nsG2Z&Wi&v@PQ zheULFT39nvnw}fe2u3u2dsOe=oVI#j9M1QC>zmd3XI9C7d+1ER`oBP|zA^0tJC|RwkIug^e1fA zX~N2H7aFgMFJ&|`u{>vFkyaX=K50U-_$2WeLXrR?y%y9osP$m;9(wLDa(L0IUjO100%{ufD~Y>02&pjbm4v#?whc82VKwMSB#SqZE`$mB-jcCHlU+0 z5!eC}fZ@6i#^osNm{8QAUxQqp!Je3uR3kxXnuJ~O)qerH3OWj$UL38Ff>!fEx(x_D ze9vUyrvmBUlf}BOj>p;pw*yU}8i3vdQv(|vr;&lW3vL^{HjGO;yJh@AvLL%V=8X-d zj-N^keq9GM0OdgtfE|S-5NpMdyD8XjL8D3d)Ci3ms|*JAHOZR#{F@d3_1R~2nP^IO zx1jHVVL;UcM?t(JNH>#EYr=^m)YgmC{@kfR@+(bUGOoFIyidRT#pP%sAgjUt2GomC z-GbUC?3chRN8#8QO)J9o??pQO=z9z5hjj@+!++`xv!lb9;ml&Wvph&Nw86?bNyh%=cqNQD8i+$LPB!e5mg zGpxOzX7}R-bs>C2a6nYto*kyOG|b@Xj8Ib}DhS31*TztPJc)IANu4e{-2WFIIaS?u SuzCdm0000SnGmCiDW=$CNrKKl=k6|oC2!t0dB6XE{wGI=bI-kV?wL7d&YYRqONbsZ zA$E2am>ZJY`h*k`LM$vaWfwg{rWz0;5D*4$S64#H3<=_E%O-?)_n`Qi@^~XczU!~U zwP3P_(qf8*LAni}u*`Mt7`@9B7grmhqlRkv6IE2Bt+> z+LXBCBqAfpF6OvE=EMoAj^3?>NV_Ek+ zgIHmGV)9h`JgX=l;Av65?m6@rGWh52(eMXF5ZBJ9S#Ktt~siyysIVL^Lz}~W_UG_53 z{%@bUzdBwW2keyr#^N(VY;O``+(d{0(yd2<{FjpM{Y}``O>C34P3JkCKz0cK)p@Sz zC0%!Px9meF={!qIW-4Y|T4t%cJtLUslWzCPGt6~m+V`|fbNZa#r)7#q%hO7pn&_Tm zZbc`1hHjj68 zgaq)cNR)d|GFa4?#L9Y;adK1Q$8#aEST{uENTNL*iONnu28o3v*x!hxA>ekvSJB`6-dO+{zN45Cp`8rBH<+vr8I%?oyQXqe78S z#KUzKk$U7{jaV{B5J3DqrxEs`LBusai?C92NLW}HNeB)h!vbT;gs3Poa>^(&eNs3H z3zqO4Z7Lj$M!pJ)rp`>Q|U{aQm zME2&Sl80D+)46W$_eJyL}oty&#y} z*c?Vq6%HrIHx4D|Dn^h~i^q|3%O{butFp+&JsITY;pyb}rdaay%v9t;P4x8E5iWNT zk&EXO7H1t{$yX4WbR97;d6#tV{vNTisv!DZs!1oS2GZTOfmk`#6K9uQ#6z^3IPne= zw(tWYQyd^FpLdAwz)I3RVKuRfE+&TK))3d3#iV~&1rZ1CBb_qeBiyNnNO))o85>kU z!sjk0Q&S7bApa^76mpOR4X-8f@r@)YZZ`>R_61Mmhaq_%Mgaa=TJ zviK6oF1$h}&%Z-53x6VMr9YGW(z_(J;02k!_z9W199RE}-$`EeEkaKIN;n_iBP%wP zlKN%y$Nw$5)mR_-+F! zT5^Rf|KJOve&<`VXw~;*^~PI7z3v5Bx$_y>T=P5GdGI&#$&nAqnq%LR56(O%S5G#R z;~&2u%~zk3%U`@8Enht+U*CSg@cO_1M?}+~Z&tKqp1WB3r>lrccUJCHPjmZ|HAE%q zg9jTM8+WQX;c-lG2dgXV8fYW*-s_x*!UKbu6d1fjee_^WZEbpPX?k_z z`|4?|H;@$`9ISnZ2+@xoJWx}csm@KGb>zsAI`!Pw$ZCgPg6N2Upl0^m^z`&=NX+N?T!Pdit#Q+wf0B zOo_I}ey^*)hN-26!QW2%rwRvxA*pg!Wjp-HDL+a}8yZRuY0w`wB0Uw`v(sl|H&L!@ ztLu&&d5KR(Cj9i1`siGB9rN~w8hl!Z_A6GHm0nuc9{+U0l%IwkotsyO#C%$J<>eF)a`4veeI7TMr=KY{aMNw1u^sYHBL^LAn9M2EHnePKk?4dGK)VgVq-> zS|8P7hn6v~#|mZX>N<)a__D&D;$nGBa&q$b&nWt{$B!N!tzurz{K+a!pN;gi!(UK* z;)FaVB_(D2a}D~#hYwpCbyenOrKfK~{FfC<7o2ErJ{^^Y>B+Ol59?bHpH@M-Xu`fi ze9{j8P;v8x3+E%pW165=*Vol+Dm;96tp@RtlTCC!w^b-T)KYxm!o`c><0njr34iBK zeccsZg@-K+D;j)V1sv5!#fX1>crsRq`TkDZ`(cXE9|M=On6Bn;vzkZ6L zY5X^Buh(3(lrLfMwQIe!o_1t0t#CdZy9v{+_BF1Qt2LdkZJ@NC>Gw+)u3x-(VR&R* z4EAl>{k9sPmX~PIbp(~xYli943B!zZQMVWQo1p}9cl z86J}o6&1zQsMpX=?uA`jA@}~C{yFO1jPp<3+xY=054h|W?&HA}^Afy4PiLE(@Bz)$nCBx7W;D0a=AE@U z&2*=?_PJVn|JA%ndtaB|q-7rs9kdZ7gK3P(yJ^dj+B{90kJaWgw0VX$|5cOgX>$Y2 zDWApT_BF6}TvHILPeM~_z3l&7bc<4LO_pR2=&VKxvE zeSEa4s%C9wEpr+>T+Y)F${fR($JdTlRIRV1N0%c<%5!(_bYl=kMkD34HXd70;m=FQ zqe|nEN_Bd*M%5oV*;=G-ppRSd`I_|f^%S8oEB&zc`M61?4W&)=5QERR&(5UBqk~99 zqvrY7NmGtD<~3bw!Gi^(@}j0+Q=6mSseMk8Qir@l4=JTr9%1{Xc-)|DT4WTvlU5Z0vEYM+yD3nNhjROkKndsW4j%=9g&SyxrLt2*oE(C#R(R`r`M;R3&57|1IkD9lYpJO&1oOXg-mW zmUjDoJ)`lXT1^iw+xX&84MOQ9)JBs~17BIMRluow|1Mulw9g-ZapB_iGZWI%zWI!5 zeKfTk-8N55l9|CR{q6Z()UiLoHq!2B9zT58R4&GW*F2|`qndwVcvMWvP0gXBsgyp} zJXc>q%3D6Zc;SRFIxaaX2{rDzeCDy{IjLjL5m!+IKCw_vwcpjbVurQQWM*;^)M2UC zdlmK9g$q68!DEx6<#gKW9wSy=X(?*Chl*A$EM9ow%X6bbLr1lH%DkpdUDs6lp#G2a z!8&zmxu#RK4gckgQ6uP|`v^CE;6AElO{jTnM%Cj8YC>M9jmQZ>&8H)%u}q-}wU(P2 zKY{_~dI+Xku*Q5KLLTZ)vs*RlOgFfR>PxFFZIMY-Pq9F-L-kqw4Zro-oyM}vimC(qnDW`^o2}32Mzwweqaz$@K0E%y|6%M* zifF`m@bu!vq?>d<`beN;m6I&@KJZJ;KOKa@$tRSK3}}hBRVN5oEB-ifBDXR zeEO!OIqQkk&*11$wQbE>JLAS9#Q4ZzVvH5=+^D8tpl(#_T|25aT3@N|a^u&@}+Gw%~CHL;IZbaELp zuoIU8y^fZcI0SLb`VQpu?Ca^s;d?l$QiDS3TBUv`K^busJOj^wL|y}IcEMA3`@nC- zHhoS?Y^*Cqb`FcA_Uy3|2e(0TXAh2yFSBCi9W%Go`hSHNHTHLsikOV_?A$xbqcbN` zVCosnGY^Uon8wD5O-9AbOvX@%6Pu3;=XW0F=h7uy>D+s$!g0W4XYS^ ob{NCNN~ z2M{n3VDMCcz~nn1^KJx*bRX~?6YhH0I9(Ro^sg1$+pm(?Ij4)Aco8y350S(X4ZRMc zZhvKN(LNt4G_j49nD`78nvaZdH=R61VZ1ooyVL3%U!$^|K}KsRWOx}b3v}s{?d@z? z;OWq-+=Wx}txQ=DzNxJsN(6=n?-T&^V}mH*A_NZq3_>S70%gz{@DNpj3v13}p^f`> zv31|0VmrI75_{)7Tr2SsN51D@nOo74ZVp3)W+8cgMk}^Q>3>=~oWQRq6)J67+L{loNb(`P$}8vGdGJMR}td(@0p@Wy`U#{qbZ0FaFa(9_?5^XEMX38{l_ z7F)qL={|%`Z3Xn(GjogOQu3RtL)4ELZ*oR#GvNJK=a#3VXKztIkr|Z_e`a1qOS*(( zyvEt8SiQR?A%^QFc^U`Mc^<(xw~BJ<(j!FJxtBk$pN-PVPA+$Fm=NGsa8F13uxtR@ z=gva_c*8V27#eQ{sk92Lt>49+XdQIzwHq)_pbZ9%_y(lNyCbjaInJ$n?dO)r-gyd@ zTOPPZ6g)+Dy082z9ySdz{G>8Q|A$1e`IHEEGhw`_OHaBURJfio4yO~w&{&9Zt%~hg zBUzlapS7obL=J%0SOB{)4G-K{G`Lzf0H0sU&`#;6K*yjx5A-@H$2#DO(i;wbQ>JsMVNcFwSM0CCFoAMd>#eW5nk@X<76JN%8TOejBq&(D7-bDZE((HRr_WFRgOW$(= z{Qe6g#EwcoclZ8c4(?4(11J3}+NUhm$jwf24G)$o00YyVD1UY_G&pe&Fg#G%BuCjq z*E;1PWXj9AWX)>=W8;kw9DERZ^w$}=#XZwny_~H+3E*3A^y53Joq4;y|1-4DTCSmo(oew< zdC==z1-`xqI>;Y~kSD-H*(6K=kdD%<8NW1?L6bB*xO*N0ef{-JozC4WnZ4rA&>y>^ z`ri2&7650Hp?FHz!-2>Hk6U<4NBfY(3os`A3!rj_u2nkUb^T6hpR-z{H|Xf6xgPf? zW(?ZPpZKa-e1VNtzrJd$gOxb5A+)3CLrA0KZ`^ZF|JOLI04=1!2&#*ahHPKHNT2!mJ&-ukt+VK`yU?xWtoh z>~~80f{i!_CcjQUGY(<^V+BB$fm+!VsFAM@5dbdH0B*yP2h^KPyH!G$E}I}I=pgun zH8VW?8}wTwFD!?qA~`%hl>u;LDPRmI(0$dOwI2k6-7qZaLWemswctJsPiTTUi+_X_ zy8t4mze0bvL*U@B1H!@&LucntpuKGBjq-Is2!M_USJa#OxHdEEHz=r<882bT^|tvV zab$0hvn2ikfr^?PUt7O)JqxE{Fjx5)IG5)D7#9f5leA$2nIjhOWpp5B4fJhhWRn@nCJU6Wz5F#i*oOnKhT>R6 zJ^_VdA9U`#iJ`xnRTT`3#QE<$ytH;5dRnHkYL+5+?f_uzZdwTAJqUAT?=*Ixta17e_zh1v) z=+tRL8$HYzaPMk(kOG)^qK@Yc(9;k1YUDwu`&oP504shoh)1-7bnsOe9i7_h&+2*E zkJF=Uuv@q2a5ocsdWOXpzotjv7$jwumq2OtS_qk#3g>fp&^$-PK-1hvn78IvW~~lM zyac^_Zv(NU3O+c~3Kv^&+27RYZf!gWTY+?Md`Umj0#wg;SXm@hC*{b&L@Q93ld=cwr^nZ`uo6jt%8*szhP+q@>_s!e+2mS3xIWd zH0Kus>|=&j4(|uzic03 z^l15D(@UZ5-HIaJJEuhp&BQ|l#3DA9yrz%h7zmX4CxB$`0+L@1xfy}5X?7GeqkPo? z#sf2RhW2}V+K)B^?5YP?`5wT$^#HM1nl-AU_f5GT@<3&ind}KzS#5*R&^m?>^L`EB z>PPplnfD{z?P~YO={;2sGTjy_Fq^}i$wkJFNq9cNb^O{qvWeWimt?;Wq@WJS;zr2L z428@p0TK&|Eesqcl}6hnph5`upY?r zkARe&fyg2?G|v`5^RkqeP&ytkwix1tRX`4_$YT{7G2A4qCYm}G8jxj znYZc`kd2=J*?tu;jvY>BqD)#o8Jbs4Yl9EV76Hcm!@z;nFm>8#h>QCG#!Wc=RvvV` zjGd2tj{2Mdu4NrB2Er$RG5pYNU@JIyQu=4zLH%=$oFnni53uyXF?cjlX{wGCcAh#^ zV5*E&bj5R7$3*)-ar{-7yXig{=2QXMdIiWXl+9INgVBMnp&~~P&7~8ed2KEO^)n&? zf0F^JgBO8%!6isdI{}G_M@%rqF z)?bBVa4f>rd{(r;Y)Gugl<~&5=YZ0mGW9C6udc1R4@PR#gZJD7QhOUn1IqB@k0E#I zIA|`!HL)fa&aIveHRJuDc2Xc5U%wKH3eQ1m`jtOLyKXFWIh|irpQifK01491&bfuQ zh&(ykgZ=S5xHQC2O6@nJWM=uprDkK%-o|fFJH4j#Po8;|*;nb_RCD$|bXV^KQuiZ} zW4{17^&60LFTlHUFPzMF)66G2r`o~ZRTVIQ?Qj1P50sbLrO$vRx&+jwigwdjFSKo| z>{KR6DhrFf!}QJ<1siTkkeQ~Bl$*-lME{JOs~u$Ijqh5)I{Q5!^*;kS`y2@FTjawh zFks(#sG8*p%|*kYdCABQaAwIEC|`N>-{v86@gumv>7kp7wRGE;O{cTBYZbLL%rZEvD-#<#GESBjDtMcsN#+2Fq4`@u&F6Sa=Wkiu2&i-TI}-$#<;Wna`ni zcdZ>xe}s&5T^C_6Ye%%+r9`>u^x+Cq&yLh<=1)%krMK=)35#!l!J-d<9Q*-D^|wGO zzXbB`H89$E4i=3PLt}DJsGl?tPM2mvrDHd>O0gX6)!WlS`lhEck2-Sa|v>@35jwuk2laiEi|kiZhqU! z=ma|XuG?4X{LEbS1T3?wfo#46WXESfHetT585~9~0B-yoh@O%LAI#!IV}>6z<;7|C z4!VCJR4puhISq&@1&B=9iim9^Hc(X1^$k%6WybzJ%{dBXxA5P!nsox zYIrzC+Br53_u)6tZ{gs2^nX;oH84H<60F_%s7)u($q8K^vG9MufXdj_XMn6c33^M8 zK zb%c`>%$c)M^OWwuKzdJDI(IR|_=Y`EIP`AuX7xSn&+EU=-*rH?52yb~FDI*TFPENS zL9RU$Mo7D7Z5eL%9sV}($Y4S5fJjMq>kudE$^7GleApqV5pKxk`(U7NJ)~xR19@ew z9p(U?Q$h1Dg5@-{+oo>=GIc8$rLKWaV^;x5MH{Xb98&WkH8l*XQhURt?7nbjNeBab zXUKkCmdN{Q+#u(RK|=d#IoocHlxo=sR)|*d@$^E@MjC zc+i`G{(*D%fph8yP;IV+rL+9t{fV})e_}uQc%l&lrzV;*_i88heNm9iKAAW&X!0PT z4L8u!vA0TPM|IDCi}qJ}LOzll`E^a0qn&LZ#3o$=D!VED!O?gY;k?J#0}G0-0RFBK zMrM5iUNcWZ->~gqpK$PJx9sDeyUsrSDL?1TB_0Ad=jD4*2>69Eigs>Gfd353|rs71KIC90xH`n zpU&L!ixOv-p^R+DGr3eM?a?04H`yJ3^J_`%g>Hd?=14F4AykHHO@F_p@4wowf2E9k z2oOq8etoZ7D`Bx`fC7~RF5Kn2B+jnhBA&>moqveVgEs-CRR@2CtpBJkhqorciNAl9 z6My#xXMV+USI*3E547V`|F71T|Ci?Pe?-(jmHz30|Ic~=Ed^-Vr@uSV{66PJCkzI~ zGRAPyd!z|-Tg=s%8*6j=`y5)Pzqes>A8l?+Z(`Er)MG-^U&z(k`b>`6LK7{c<%h{p zI^CpYU5=NOZkqn?oc>IQCeUOAZsG;D3mE81>7ji^`NW`Fre84VRgc~SCcQnUaawi= zDull&PD>BZ8~Ta?3S&Hbn4u5W9OFz((Fbjax;&McNcG>6=ro|QJ`Cut(Qj(#*8 zJhOC{uy`&~wkR2Wk2?_dNZI0InUiZ2#@={f?2RqP-dNH;p|s-6rF8r$T4=jT0*lVW zC8oVcD?8bZRGP8lJxzHOMku>-hl+dieK`YU?k;0<2nkeT+1m6@>;Jk5N@c$-cfr8LWlmzfoh z@H8zPq3m23Be7Vj;<>MPay!!MnfQqDs|Aj|hcQW~f#aP0OlZyfPCTI3Ct`c&T8XpA zJduOTAi1M}FLDy~W5x#O44pe~>yHuguCj67X6gn0o$Bxm-tbh=O#B1V(IJ&Z7#&0V#RH7@SXCBoIA%knQR0d))071PU9$6r3NOp0 z??d>cM-Yi_C{7Ie8PQkT)nYs2*VQ-J00F5_m^d05f8xm7`-0~<_7@LpyBo~dIJ$0= zItxZgoLp(VT+a|36KuR~UZCA)2!7+_`$TW6jCikJXjJLf+h4-!tK@LRLeA)Aa>W6r z?cuWlqGzE!KNNtCz8wciGx}vUF(l41jc-lo`=>Eh&cdV2*a&P~zY$yaJ}qVmmrEVp zgad^GEwt-|>4SCCTrQ09>Tx4}pmqLmAA7eTg-3rW%gxQrC8fB1+oMsM#~}^92EC-g z!oCSi(8s47^#p>^SEy@Wmk%2C12_rK0@rEkV~i;}EoRH6%AMu5bgk<8;6OeX#s}H| z6r-@)5g~E%_i^KSy1S$-ezon?g#d|p8XIj-q@joF6%Ykq13}C$ARUeI1LN>~fHdf0 zQS5~$fy=D~@6dDL8E_IXX6`$b6>D%l@{~%YnXdhn1@W*lL-hn>1TGBrU}cKAqt?Bt z?Ws!u#>_(>3EJjO(a&RQz70G)_AqfIyqH$TXFCvM7<4{okHOc$%WFU5J6FYjgFd(E z55#QI7KMw#9d&qfUHiqe!|&lYV<6bw_FI)O=o)Q1Y}^kJpZ%QijZ?m9+nLJ&=ry(J zQX0D1HMNa@PyR(F4uSfO>Dr*Nb|I5n!J^lDK zo(F{ zLE||n4cR%yi#mn~f_z%EL@(^vp&l!J}Re;9dM*Yt;mI34c8Q-VO{|so_&v=Bg>0KE|Ag22W z_CKTNQ{PU_>U6;G`M{_7PLLcl4|u%YFlpg4rq45%K4Z?C`AcrWvWl1O8+WZ_e3=Gj zyTDM2wq5j@F>51Cvp%WsSQq!9jJbvUPkSt5x$af5oqYV_@^#-F+MW;R zW;>xR#}>+F6*Fx!Ht@0kgFb-$P`2d<#&)f<>03F}gSk2SLkP+MhwBUtozcEbX`t~0 z)OXs=wvm~i%7nYv{?um*hrZ{-1ihz(dh}$)iikPg^NLQ{{D~~I5mNsxZJ+w%wDXesP`dk}ojbS{oPyDAISfD& z_W)*$OM4L~?DKgLzsH_fsbw(Q$oiq5q|HvVWaq(a1Lkf6_Uuwj=) zQJsE?m-pNfCF)udE9vZxc6RE!XOb*x+XTZYJAf=a1R({Bpm|{gV}Cxkcm&}0dD`0E zQ3p`C>7^fx`det+fUbRAZp6QhF&1c_$Ns@@C1L+({4#xD--{JPjm}33yR96lFdr2s z?_{fMpUo>z@EBAL21V$fU2_%&tUUxLi{sI!GM)ka&JZkH`yEWqYJsV9zJ%Q6PdeJE zv_6LRJ}kW+_%8JE;DqlY*ZGj}+f~^9?60LR@=3m2HxBOgjdKHy-bwa0 znf{Xh&2d!jeRKhsxrX0w0yFKM9mZ)&@D z<)p8r`)aVjrBB6BgY5M~40eqfXfj*ZK8wFIDlDR*!#rQM`#zZMz|^# zi)X{}=?XY9I~qQk7Y8-P^U$aB>l^8yZHI-|gDW?EwT#UZdhtZPBb3%X$|5=?ZHzKF zIBK97ezQ)K*!-TCS+Rx7i{bn~3raotvZ4rKQY#>Zh=dFkx^CLfLV?i!_Q zpXLs(jXQ@YUWJ6DGcdETqx}-U*9Co+oCZ?*AsFTF1A~Ht&}YUv$e0)oC(~(M$^Ztc z^HO2lxDU{tR?({Ba6S(g*=-suuo>gaw(<;g?IVjWnXst_USdX zb)o&SoF(|^+c(*_(@K7Z0eNVLpMkPs62{fEv;StK1;V~bHh|xWgY9`Eewh^|xDn}L zeN1lOYpcxGa(SA!)#ienq#M%{+|~^Bv37}<^|pMq{q|)i-k#Bp{6l-f!wVW*_<^C>G@2;$FmRWSNQuH6Oky~*iNPDM9-*H=T&R; z?mvAl`=gGbXJ8I@y_*yN-6*+>ypP0A(jEPYW*8UV{_OX+wDm`H{MBdBWQ)JmHKw0m zrQn0m4Z#?Jj*o7PbbPeW85<4aF*cK?Kge(5Gio=%PmwTWRS8sv=#SRNvDVRvZ+)542bmj; z_cPT`@UrR?E_ZVFc60OeboI(saFsbyXO}?=7gu*BTRgzi&C?9$j{&}??aVqMsGA9b z`8Yp|KBK&Q4T+Ksm@X2`KPKc(ydk!+`b2Eo|3i!i*(hasB*|C;nJ357Rw^B2j&qOc z!}I{l(enp)-a5;_*XE*Ni=qHk{%LXCBap{@2iA^tFFf4xo(OH}Sk<3 zlrLqY&7c0>O@Ccn*N@|US?lq~F-zr=;$yMXpD?kO{X|!o*jD-;3KH?!-$bnN+hW_k z4Y=PW$X!&F21ERo=eL0Z+beRh`Xa46b^*r4qt4vj^(wICXTd+=2?ITNmw@m4DG2P9 zpG(=2=@PEeRH2A9+VRfl-=%J85AgepOx>BNZ%|!R-|h++b=}R-!o)u(KVa&+I|Sa6 zvxT`{t}<$uG1{^!1Ip&jfzY_~Kh9oLDgx@OzYi-;iYXUY)K%bwP8C+Y&g2UYqXQ z`|t>_J~L7REPK)VGv#U_p@d+n-;> z3}i1&54KUy2n#6}WGR7E@?~{{s`XK)C<_ literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/database.png b/app - Kopie/DD-Record-Organiser/Resources/database.png new file mode 100644 index 0000000000000000000000000000000000000000..3d09261a26eb97c6dedc1d3504cbc2cf915eb642 GIT binary patch literal 390 zcmV;10eSw3P);1k*-!zk~CMF9Bv_3(^PCOq;$< zN?sD2BV4j9Yl`*+fsWQD?H_4>L?~r48B=l;Spkuc)A?yA6iP)R5d;DO`2BwH_g=3D z!!XcjG|+Ch%jCP5&1Rc|$N`LEvA9yN*EyX%X^loByIQT_h>#+l_9wi@{(Z?D2RE zUDq)j4#hY2{Z&BrR!Yn$4g z^!3C0RHpz#W@n--_jThHPEAe2R834DnuV#1kUlxXv}=C^n7~&>f1RO6h@8fUuT`wRE91*{Z%LW-oO8KckjTdf s77ewwyuEar+*b)ffn+a07*qoM6N<$f>LlT?EnA( literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/database_connect.png b/app - Kopie/DD-Record-Organiser/Resources/database_connect.png new file mode 100644 index 0000000000000000000000000000000000000000..3a111977cd9dcd631ce1de85d5ce82b9ed477c27 GIT binary patch literal 763 zcmV-F$IpKw}ImgOJ; z7f9UkeLqXqGzqfxt7QF3)<-1d`T2Q|JMMspFO%GpXf%2y9*-j&4kHu_f!^zMI#5*= zjYb2lR%?Ug7ES=x*VkWXGMU+li3xBVcdBjIby2NWQLEKf0>=*tFc*u({#ko6nFJ|g z?nDoqo*3BN+=QlS$mjD227?eqk(Hq9I@;|vn$0FssT2kLZQ|-id%$+QRo569<9qv% zBnjnm8M$1JiK%TxQD9jX1VLcAK49g|FTrt~4?&Sj3z0ZJ?)<=HM1kjdtcg@W0W=PK zM#c1;^}sOgal>-cAqn6)AN*Jv@9IG$QdhCIwua^9WsnCLfUZ<{=zsybx}CIan}V?0 z(jf9aq{ui*&$pQ6>FH?{i$&Pv&LM~b`VLgXi0VYFk?86scD^Y%BLayFDZKrnV|#lW zi9~`4jsobO0XnL2(RM88rUON{plT*+du<%376#5=!^`(R3b$_eU!?$QpE}}O=L(Xl zTXHla@d^=2JO_a%GalgJ`5qcOEzISoaA`8ae&guqD6-iso5p&*t_ugM(H#y2M2}E4 z!@_QpjO%X=M%RSdwJ?@atIWY8Xx%dePiIz*;vQsHA#%EP6lrG0Mp{)++EaGtq_b;C96!L6rv t?W2=fDwT$aV2XrKn)Z2danU+@{s+9Sw^uGDfpq`?002ovPDHLkV1o6HVQ&Bc literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/database_delete.png b/app - Kopie/DD-Record-Organiser/Resources/database_delete.png new file mode 100644 index 0000000000000000000000000000000000000000..cce652e845cde732ac3ce9a4132b597301ad660e GIT binary patch literal 659 zcmV;E0&M+>P)ps_J1 zHhTmGl@tMUh=_=a3Fb%)BqZVTW3s!xH?UsxE?7A5@n+t<@6Gq#%m~l(@IOPFT;%il z03|#}Sa4nU2-$-Kn!4}FekQv@$S0FY$L9!N0g;c={9!m8K4zLG48uSu6aw$J+ii5a zT~sO+G#ZW9!I0fqFSvY9*@h|sR=YqL#x%oU@(yD@pz0* zr-R{eDEHX6V*RaK<|4rWl@GKt@8COeKZT>%ICBq4+h_I-+?Y*V28oxmqBc+Oz5 zc>4@kzJgDe<1lkKXYEtktsNC`FoTI)4qLaF!_1E&4qv>EKx`iUcee83)!MzalltZ# z3K)~8`*H_w9^uf5^9X)<39-6>(AOuJvu0IKc#FRkFoCa%ULtC>8v6bIR-H|{S~CWm zy|LB2yL+L!Vs5g8ONBz=aUzj0EX$JbfSV}a#vT*B_2)32Uc<0oLyzLS9V$=7hM4?~ znM@`|iEa~8)bZW?7q}d~l*7K(I`+@}grT|_=WaH**u tj~DMRZZpzVy^OjT85Vq(G=8XD@S91FH}kp`d7hyPh1 z5CCa%X>*RH50W(1GMNlqE*ChCgTvu4bCM)M5Co)BDTG2HvvyYjmSvI4<)A2v`CcxU zQ79BpEEdf*P56K_c;lUWy=bic9s#4IZm`yWps?HR<^;5uf_%3rLf1Uy7}ym7{u3SG zgQxL#;V@<+y-&7GK#MIB!!Xb^&5SuEhPoOV9{wDJpWonQN~qlHho`!h-y&cUDCjiw zot3{JSR;b3Z$U9V2&bDtVsaL$Qu?FFtIb;kXm<)qqyl<=9Kq@&_)r^^)N|OJWjH)_ za7i;6X_aj`duRB^h5&`toyKA^3V-E1_yb`=eg>PPj8Y+p^vFkpk)_tg?(s>=HO~R< zNVkfdL~{$}rBQI|9QHR{MrpYhcBg@2p$?h%pAnUsbBDUeKUv#oTc6-&EEZdf$Kwze zM&QwZLDd6D&pd?=1#1F{N2f6?Hf8gwvt`>|pf)ft5F|nm_AI~XywcT&?}K--v^WN? z_7vo-s3)9F{TXfF{hpqll^q2vdwBb}datvKg-yfc+gC^|#8-K5)%lB$rlxi}-rEGO xUZ|2A>wRp~(I5;*aZFyx-fDe3J-^%i_y?+(!m^mX(n$aS002ovPDHLkV1gwlT*CkW literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/database_error.png b/app - Kopie/DD-Record-Organiser/Resources/database_error.png new file mode 100644 index 0000000000000000000000000000000000000000..578221aaab1c7f6f1f5f9eb4adf02aaad93bf407 GIT binary patch literal 682 zcmV;b0#*HqP)87 z5D7ClS`>i>siY*D_Hz7r-uLe7+&8^)8l^=KKF+=8o%5aVo_ns%Fbw?9=NR3j(`lIq z&l4_j&X15iM4%;qPxcepJA`yB7SpX9o27t~=V*Q3@ApT8!5};y58Q4y#D7Im(CKtg zsZ`KtG+vYMVmuzNnu#JnAeBlzFPF=roH6NRj2XFH&PXPcD^{M}l0uuKfk5D&XAXrz zpdx3t^?;lvW4&I7%jJSB%WyiKrmxrQq19@kTCE}+4x6zP2^(duC2SE#)bB9=iVf68`kSQeakO%!CNk8ZR-m z?*w*FFTmM-3w@)sMZq=#Gl@t{bZZ!XeF5)YAM_uOFn#O_`sF9!I-5*jRo65I^~*E( zBNu?dI#%!A!!BPRgIX3|y(Et%5U{H2%16kyA-q#PaP>1aiIe;_%$~lEAY1pW-a6^s zLLj7ztD;GSyh8%7JcV!OIC$?J<@T`{kAM$r)ZhXRM9)c@I=uF`f~8C*(=8T@aDLBH z?I;- zi%TAvMLVRO5!65AQFy%kz&7qVzqz^CG<5E!W7`eUT(0v?OSAIJVzcSlpH|(e&rbmL QkpKVy07*qoM6N<$f|gM=-T(jq literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/database_gear.png b/app - Kopie/DD-Record-Organiser/Resources/database_gear.png new file mode 100644 index 0000000000000000000000000000000000000000..7c0ab2b4c643f33162c0ebd80c4b0f8418acef2c GIT binary patch literal 468 zcmV;_0W1EAP)xrrOlR+AYYd7dzkRXrG^eM& z0Ukd7oRTC-k|gQnMef{;h-hbg699m%$}xbdi0=mUTP2n)`eug$pemyB(~7A5(p8B9 zpo-`-pi=3n1vBanKvhJor`FPV@4HbW;>w}!^`!?_&$o+c)M|~!f&*g2sIl2&+nRI7 z2dg4_dK!Hio3Z4v0sAzDZropP7e%esh`Tl#_R2+_g}2LFOq{)tc4JXTKlp1=*9P-? z()(@ByuPV7UnkqEhjpwo;fJpEp5FC1>gt?lJU4c>+hFP*|&0tGt{!YG|5fRw@-UpUxK})gOY{KjH!sGG4?RHzSe!mY<6j86&kw_%0+>rt+UvTG zPNxG!QLHl_`>TN6lhf(69Pnfg>e~`ot!6OL_K}%<0mC@>2*2;ZcEFQ4iGwF{@R*{j z7!M|qd3hZgQye2(un7;}EWl(MRHj3v{mH--l93DO%KKRTaX^3MX`58z^<+{ z6<23&!!Q{PW`ItyBW>gC_$Bnz0p8cvrP&8U;E(_Zug)QpWlpZPzmjE&ksHm>&{4WL zcWMqjtuMUYDzy&;xOM)i=ubqW(I5dCx}hU{e1gb^CAKTo5EzT#!}bO?zL#36j`?8+ z3*~b8c`}*w$6_%IbOkHrWx4~^auW|u<6?Xs@2VxNZ5G?Ij>|hs<|oJSYs}?xlO%MH zkQM~t1b+*>9q#P0c*i_HG3Qv{e6_1E^9qr_9C}QDj%+r2jL4@6j4t)_BWY1InA104 gM*QcJxn<}50%n)c1HutrKL7v#07*qoM6N<$f)5Qpt^fc4 literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/database_go1.png b/app - Kopie/DD-Record-Organiser/Resources/database_go1.png new file mode 100644 index 0000000000000000000000000000000000000000..61a8556c403a1b56cb7719f4916d07ed82cd55ff GIT binary patch literal 698 zcmV;r0!96aP)U4c>+hFP*|&0tGt{!YG|5fRw@-UpUxK})gOY{KjH!sGG4?RHzSe!mY<6j86&kw_%0+>rt+UvTG zPNxG!QLHl_`>TN6lhf(69Pnfg>e~`ot!6OL_K}%<0mC@>2*2;ZcEFQ4iGwF{@R*{j z7!M|qd3hZgQye2(un7;}EWl(MRHj3v{mH--l93DO%KKRTaX^3MX`58z^<+{ z6<23&!!Q{PW`ItyBW>gC_$Bnz0p8cvrP&8U;E(_Zug)QpWlpZPzmjE&ksHm>&{4WL zcWMqjtuMUYDzy&;xOM)i=ubqW(I5dCx}hU{e1gb^CAKTo5EzT#!}bO?zL#36j`?8+ z3*~b8c`}*w$6_%IbOkHrWx4~^auW|u<6?Xs@2VxNZ5G?Ij>|hs<|oJSYs}?xlO%MH zkQM~t1b+*>9q#P0c*i_HG3Qv{e6_1E^9qr_9C}QDj%+r2jL4@6j4t)_BWY1InA104 gM*QcJxn<}50%n)c1HutrKL7v#07*qoM6N<$f)5Qpt^fc4 literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/database_key.png b/app - Kopie/DD-Record-Organiser/Resources/database_key.png new file mode 100644 index 0000000000000000000000000000000000000000..333414767983f2db7c3d182cd6b4966cd136a255 GIT binary patch literal 764 zcmV8(Zs~5pkxC`Czx(!Sg&Qcw=J& zxm*s3L;~q_`XljO2nK`6ZG=!LG!>7>X*g{!E0s!GG#b@LMn(oHxKb?nwAIwq;D1(M zUk?)G%uc_FICawM>MCqD8?06<%x1Ih6Gai3Oa{qh5=~7_6o5SeCX)%-Y!;H

pF9-}}pM_km`i<<9%0L!kg& zHM|`S9?)9>o?I`wTT9JRj>01G&nP+8I;`zk;Y>x#KrXX7SZU)~8fqBTtCD8c_% zS6AaB9~{#;3e)zk2>f;yaTq1L()i3!Yv)$ra!6F7YA%2-kfQsxJb6!U@NQN5ZA{HZ zVnJxmu!@Y|xifx~ij zN1SL74|jaya2G1TI^?^rtu05j^Gp!5#KgtZZWfMjyvxXdObJ1*hQRovUa%w@w2IO63tC{Op?ZSiX2R@XSmzPj` zpgaSuU>5#}k1IBA$b9fFhaB_!KxZ|FN%@*^ZxR?`f|Qn@MA)bF+W=t&cxrynbK(t7 zq|{SxN=UDAhPJNXfdGh7P(26uLd<@f{owAUQ^~5&*Li8pBWqR+TY4;*Z+^7ZdvQ`k zePhDWfUj%o%E^w}7pty+2bqB>gAA=;i>U}mUkRu;3XI7)+*z|B|DFqNy>Epiz8j!1 zU?w0z`2_^f0Uu1&0u2YC>wyL^lfZSsOoUvu%(VmPmlK8+60|C+{@rtrW!zC1KbYwP zMx^D(g}<6Vp#V*&T>tf?W7kG$^VcZFTssGcbB;`Pk^GT080<-LF#XMM z0_|*8Gwp&Gw%bG#sFHUU>OX5=_02J8SlA^8AGFK1S$yDd~j$esI|4#^anoFDT{KTwvMxo ziT$5Fk$yz2JG$o1fsKuQoYrpx1^zw6)A`X>J1k(^r>CFAA3pVR2nL$Tg(+(IW{?bB z_rlS%OLqe6LzozVXkH>5X$BpZ5ns}lCb>G(3 zh7KvC%1*ARsHpFx9%Ib4p|lya?)mX~RZ8?PuTOJY+>}o(fE0VDS3c=jtiv{*pw>3F+MWe&`@NB>SvL|GDWglN=;Z7MGlrnlmBi=HUHxUQlh4&X32L3%^*8{bY= z$*%Q2TqoyAjow&aZ~OO80JfZ)5@v+9?V0*Cyj1N%EAyZ>w4t&H(P2DvEdjkk9V+J6 z&Y}zWLNsH&oF5gF*pz_;j|qUlf&hmZV0X%)bfGO2AGnfMjL?>qS+qE80(d}%3^8{M5(<0%J@`oKK5&%gtO+@z+DtSPtiBYs{ zDk$id$uozp0|D(Yd%;pJk&T?w{MVEkpYfI4b8R@!^kjF%?Y?Zz;8v~Cc3+i&Q{T^@ z1X$SEdw_Tv45 zo3_#VOBm9AN(oXaCsKJG*{oysUN7=qE#}jJeBn1PbtkFkGmqZezLjeZ5}X*{>+`wp z#YGnK7w%%2oRrb}Mn+bmA%H<77;H}(RPrqJrAGhAGr^1q#qqoUr5IwqH~9|GC#uv! zl+ooeCJ-fCui7^bD^kiq>|(-!)*J#;d;3BQ#D6eHmM1zu+<=SjfEa+1uVtA5TWj4? zPV@pcjTamvictF?QeYri61{Nv$GL7ulJM$r7=q@bXN_o!;>W`uySuwXsiywaKxjgC zqUe0}f)G{qcE979aG0P_1Ba!hB^4DFFg76&Vt5QCtOm}M z4-N(`fi`H>rScJ!boRzM=@Mz$!%vPWDk_S3qO%m}18-lK`#)+iVOva0LycrHE!n^@pj%~xueQ2*&u8BsbE zAtjLZ+MvWn9!1lDa*~&K3+7iKYd`{n=RfPXwj5uX=@}xmu+Y)M5cwm|6fs}c&v?!U zVV7BU6M>Ozg#o!w@Zi9^5eO?7vZ3|)3en7*{}eyl*V1{&LQ0F=hlOU6`8$>-{n32L9Pn!{@T!j4y*wLPP`^z(K%0Cn`?Lu^!7XmWOhX~SZJkOW<`TX9TWOl)v^IvRlShx&Tj zk&zKq<4;diqg=!Fxv{h;hNh(JphS@? z8PyozGOJzY;@~5eb{E?JuCE6(;r!j&vi6k$UWl!GGhE-R}GipSXa_`;z#j2gQO!~s+={IvD$ebe=UKVie zU)}t7s>%TvE>Zsr5Y3;gdNiNUbQg_sX+$zBPY>(W8a2rroZU60Lv;4%r_Q+(OQT0g z;V*q1wHNg}b8qgq!EZbme#DrbnRy5^97?F1u5rOuBP757!rD5NI%U$)=I|PNIC(Ui zabWaK-nOMZzI^_f7HKA6L_;CcRn^sjoRNj$ii!ZJtDsxnK1_ZlKmtaUiN&V#?RI02nNW^wUpHV7 z&flxA4%50cK#m*+D4I>yzTg0fXI9-o8C|n>5@!L@a&&amLkNJ)N3B8~P#dXvjJ~@< z9kQ^q!+99bpunCK1jyRW>Ghf+H|3`h;AjY8{s!N`$L8kjD&LVcp=zh;Fd(IqaTQ22 zZX(pPBqCwHLnSb>jCt`j2z7GdMCQ}gPN*%_E$T#Rbr9$u3JS1M3^7n2FrxgJ=zxk! z84VIGA&l#QAY+SqR@{IF0gV(S8&H!PuFf{TpKsTL+>%30PwzKBX6SO6;VE&29Bi_w zj6}89n%{2t4JJG1=-6}a7(j}ids)Y|uI}gY8rL0!pZb~<>K36Q!&MYY?)>rj)6XBi z@3@OS-Dv{0o{B)=QW_wbVi(MRum&w%O~j0n1kH2ApohXuz+4TxrArMX`)?@rz+(}R zgLa96R)9xz_4I&uU3gWWpprK@IoVUO=iNBq9t&^vVg}Lx^(xpTTKZ^c;ogT|enHJu zQ&pwAsjyds7y7Yd-&Zb2Q>lc%dD3xlIPcNsVdHr0r{jCLzwKuJ_1jeXyn1znD0c^5 zq)(ce%$|k8RDuB|wCEODZ&<^A0zyH3x?Ao1{^=W)ym?pAH}KE>Q|RU>Jx;f1vg}#W zYl(YrBcx?FP2-jT&jPmH{ny6}!oFZ;5D*4o^qN#TR&PXOpzQ!;k<~rVcV9$gib{UDAc}+J z>ty6bZ&Tn+R6EgL_)B$lbxlaJ^q$G(kO0lQj{%SfxF;x&1Sw7X1LEbtB@`Ck{#H}- zD3Q(l*)wJImOSmk_E6acLxHs7v0fAZ`Z%V0)w4wvdw%ppPYQJaQq+MSw+ZtWlu)QH zp{-_S6TXt!4?*$*>q}o0F3CsI=j**MJv; z8h?CHzjA^`?t-hJNr_EBCD+vj`$AKj8V7S$Fp_%GhZNm^Y#eK#$1nSX$Z}NWZ?O~& zW!UW*?@-_YR|(`S-2MEdZFXq)QY!|r1OjLT(9?md(&R)re4vC?+m->h1_(-SNt6f{ z`@w?;qHfDL01oo=^WQPO6wA~FDtoEZV(%LA5{nDXuvzKq4-nX0P-SQDw60~$5*j^y z>NVZYQR8=YaeDp2+1Z))mS_BfBdU$JPfK)R`CjFI&d% zlSTpc<-F)&5qYZa9=Su`z2sUzPCcyNQw0HR!IjQbU;lfmyI*)%n0_^HQV$5m6Ab|Z zX;zQY6MNXe9|f}#U?$kpq{Q4Z>HAoRcp&)yU-ycax)PNMVxRYD^kD z_eveA(peIeprl#MHTlKJD$3En%}F|nn{*5V?*~w?BN82R92bos8tQX{Fp7qN+X2r3 zX>{j2lrbRfMFRFk-o1O*GUG8v2yDDgTjX6jyih&?fws>RLv|Dt`4J2t$+6w8sjddj z4;!X`6WRnN&f465Hn@1ko6()0U~-2jHFtI%Fen<8pp4F&wy!cc@b=5EHSck`HRi0; zUpD!$X8N)y8PmCAETrFN1ca$j0PM!~uUa<_1!&SbEzJFV+Q#=!Q6dX)>m!(pUJSrY zYc(rZ#CrN4JOJ|w7;b=Onnx)fFlP%QB|;t-sOQww+yvvpf-4nhxiBrD`n%*&dHll9 zG{KXz@#Z)fV!)jw1ML-RU{9Jw`H$W%;M1T5ya6evr&q-O1cqyH>J*GbqFhodSL>x$ zc(q3AG*ndciVq(?+=gBYq}CB5+IyfcYymTXAUm;RcZew{C@8g`=tP5YGT_m)k6fhc zeqQY;>;olR9a6Ulc;VI%Z1XCE$sZ!g`UhRl&e&7?%Bk+8_ECS9n`(w4#}FTm`~bR9Kyp6N`!z zXgR3X0iY77OGWBj8=`VQ(5t}Q0d580R$4{fg^1LhGXhh_7Bs>Ax6~cKq;Y+q!Ozbh zl#{~@?h3#ofK32>0v56ajl!{Evjjc$6NAcye6Iu4AfWWIu&~M+8VCSAKzt@6SErq7 zrg@PA1KWu`R$OsQHnU&1&P_I1o7O}TCHkWqhp!VD5g&?2?V*Ex0$C9iuYg!B|B&5D z<(&Mqt0s81=AN!xtrhcWjk;(Q58RZh>_c`!K)*d-?7$UHyn%x`A+NDf#&OHO+9=l z-{0Q{7Dw zN6$;_m~))vkA>4zppwAw$9tnHstt_n#Vf4gVPmg_-*^Ygp3RLRo@`^;gh86PM)gX81f z^ZH`)>BBjON<3-0UEjV$PH(+BTF`#SM8TJhtgL(ggC4lo;#cfz$794*PoBMA^~x9I z~>@2cDVyRpp)nv@ADE=TH%FxGj@dU1$%fImeN46IeqPI(faZ0zjV zZi4}%%=*nTVT7ZMqw(-X?&j2r8^64IBHP$~AVq*?ZvXq2lQn>BUM|w8$e-zUIEmXs zMp0^OuH@k9tuFY#SKGfMT}6NDj&@p<(;kEXtU0eam;;UilRFw{`o}jF5*ovxS+LT? z0=T#*;ua>XoTx$+ZW+{opPVjL^z7RjLEy;|kfpby7E8dGFkvV3Z8;bl3u_`=)kOs^ z&nm{C=#!vyxP0St0S0aSJZ2IZ63}%9?2pX&B4GA5gHdHhOqOuXqnhWVy&9e}{ab@Z ze0+RIyVpl#`x5amu!HQy{-HzdzeG+~Y-I{1xtvKo6^U$5HxBEhaas1(>`sCc3!%uh z(5ax`rU3brz00UX7d#&NAq7S}a5AaPnelFbJqT}LXpBxP5h#1jmPlG1^@yb7ks|yU z7=#YHm0us~fLelegRV=fc*2sh)yuA+K7npKk&C4;P+>dViM}Pcb za~i=W6E2(7{H-FHC|>E7dwb<1HxPUPoS)k6l|1z?;-;(h2e*U{SK347;-GYmx17UG zIVoJ&V9L$t|EOKqVkN+@h1d2U%3A`PT3Ibn`04S6XJ5+Q3V9YSq?LeL+|n;-NOG{j z9LRkKtdN}Ay{TG4-1q(cc#^&+eB0lbh=9y}kjT~p%Lo$04@{Ysu@XbH3-_~RA`J?K zYOyQ}!4-6h%EDIJTa?V8Xk38*!8E|SD*E-da^f8- z0)~5Os+8%bz>3InB_|GjX;gDSKt%^2BF#AUVx;b0QPPF1830z)`x%C_4XG(u4PZpUkl z%G^h6QQ6beYOp5(V*zG8m;zArk#{2)oqmdIUI+id{QIF9&Iin++7);oUB`_*WD0cz z23o)Zz}o)CqXO)w)YLh7Xo@x9C)K?Rq_P- zpBn-3{TCu)cb6|o{8m|5qRis%&SWJv_&2*pG^ApsPLrfsfk=XRdNOFliM5t8y|Li# z?6+75d_jshtVe*`_Qguv9ixufe*8+OgEm2~xvKf@>?V$Es~=%D|&sUkEBgu6hBjgK);ZFD$dM zbl1H1aM^HB%2JwYzO0{HHWE9ewPoEleRc?CWoLlF7S%WazBC==@tOm}ilSFXcA$p> zv5vBWzIQOjn_U0%fPr{~Dt|Mp!W9_pYV9@U(xNInXl8J+C_^B4d|^3&(lMlvIS&KS zY^bZ2B!QA@0MreE%M^g6K6lsdHDsfp`y2nPm~L=pGQ=0HxYgDI9Yh-&1~X!l?We(v zZ8Vsv_`sX)F4hQiku_*eIpEoZFBnuoMpfO_N@Rl=>B=l1GzMEs_UTVss^NTas|sg4 zO;ZZcV2J_5lpMOOUC8D*dcpiF;R~X78`tzhieQ4OvS{#i0plj0uyB{qnL%X6x15l%Z(3;&M+0F% z!2d`V*+F<`6{IIN)x`I#5h?3i7UfD5!qt(gIhr3TE6F9ZUg7Oz;^j9lT zD3~^ygwO4SkF3dqsBLNJ-UsRLP(8@aZo5S(!Ud8947s z>Tz(-^5kQwz6&)z3Vurz9+DIMb^@%Vl%RTu!ITa)R$sJt#qDP$U{FA+@C?2fU9vM@ z$s;4$tYIn~OaP8)W`FXJ5g$1vVMEV84t)-qpO9v1@xBCf1vMS2AF!l#GFN`!rQ>bB z5CG5yO{u6+nKOOS2^7;Ft2*<>dd?__QO8uIVGtwUe>zuMYU;Nvin>UU`%t+=2;RTJ z&ZU=Uvrv%McHn$AV>5Mc$10?Z=7Mq>_ zjNk-82=vxr_*wl75tv6|1Uo(T>MG3*VH#D3A0diMHP#K@a%(%@I#%gn@;V^CA;Kt@mRG+5tC`XbU#LiR(B z)6{`QIpAUJoplm29Qpo27&r~;*?7P&W?ruUjx=xNS@o}|6t!W;=D8i)r{Zh0h?dbJ zJ?7Ltej%X_gI@SFpk{zaK=EYH=nX+ccWFLZj7}Lh4am%WR;cEL2xj^W=?dN+AS~g4 zPDNg9i^ffr!Jv_h9Ovv#iy)BwF#A!~Vf74{v2P$EA3RQqn5t9EO<<0L+cm#nV|-*% z@NzLlICiA9$_*daQKeu6x-1n9O&g#C>RD4x3b5UnRZc=U@k>b|UlEeVzRzk0kBJe_ z5;%ARVax?;*v^p-#02P4D9IDpcQ~#DL>0&qpb8p$H#Y6mu4W~HFW`R4uBklAqNB_$H8Q0 zn72SMvAmD6as%W8=VhBa5zHCj`-Yhs>?%QPYtLfh<55(6(I{{wSl|u?FUN$;&dbMo zXow@=#Pv(Y@?qiZDnL2{#pMG`Qox}CGT~lese*V#O`33~p!`#U-J*N@?dgI+>2Hp~ z9+9d7l9EJP6wi0(WyY#l8?wp*65ke_rT0Dr37E|SJqQ84=D_AKYbI9tap zt!F&IZRocWfc|<<#CtZ8O&O3ZR2UFX2t;$7>0`|jh`=Qp3c{tft2{l&&AZBEmP;g_ zxuf>fhTSV}3u(4lt@ykREu#OG3_G&1KFVFiWPMEa;fQD9Kd{&ZL9l)znUZ;rT$N#Y zBk!5hgmEhx;0|~QfQkWQljAhl9KqWUM-7TAzn7IEl6pEY1wX&XeABzSKdxP zUz);L(9+xyJ-qUGrwALQ zUe7bIU1sYRjY2v62cnelrq|*66Cek|CTn>7i*<{*BfnE2q<&% zED^Z!v$qqJ%%D`kyz1!q0IZ+=B6Dy$5K40}kSrjqjc-_=Jp`MAqF81Za7HKsvx_fJ zds0eNl#_sffG=(-|6U**Q7na(mawiecmyZS+}y|@GvI8azBC-mMEn7%wX3FbdMk$9 z_0Lc0S1s=Ng$JyJAHbYhjg3G^Fc81UnL8V+p(=>KqJO}d<}k_+bKSeNG#O3`Sy(#A zIq-TE>4E|Rxkv5vJ|<1`QLnMm+g_VWAaBhY(?5Gz;Tk!^OY87_DDozEgPUL*~Pa5wWp01S`1{ zYJ2Zxqty#6bAsAXUV#u|NfayFVZr|siG*V-^VQSNmU)Z_F!%gDMA=Igz;%FHP>|UH zL^;@wZ@dIc%n0~_%wR~-l(H72Mf|dV`Gh^`USzZe|2CY$!{sq;`YCjTa|+E3=txKV zho$3|aD)Wj2L7pffZERI&q-lexR($?p<>u&{Qo0lWiE4)WA<=ZmHUYN>>*Oa3mcao z`SU00Xdo0Y2ul%H;zRETbVS{R!<8La+FZ$~lRRRXU|0pWHSC7t*Eu-#LZJYRm1w3q z+yUGb)FS3&74y}B%%5_Jm@`<&H$^&JG;vE8hu)W!B0hc>fTw`bh0{HWeJiBvv-dOA z-Cw>mhrt~B9h@?CobvGZ&x#ZyuVas5ff>%*+gnLDjQKTD_)^%Df8Q9v$0~@Eyy^u4 zBy=BPO%*Y83KbkP7N;OEkAMiecyYQ92Mb|<;b!~U-w)n2GgsF)%#kiLn+g{wYa^(< zAQr=c8*s&d>o;PY-IDjmm%Uj!KwjLlri ziEo>KNQRk4p@A(^4lHm8?vy@jZXO;Mn%Ige7q%*uLFYW}R#3R$Oj)ZEsI-*Ox|^@h zo8wW|0k}NRz0R9YaUVL;Ti|PnrwRBh5;KUoL|CpG|ZjS*GD!A7p+YsYMjjgR(iw193H0xq7Tj1$q?szX!0xSb>DqQe|Z50P+&p!z&b?-ff@pM z9<02%R^JxDUky%b!D^QciY>5mxSsyAM)`)Y3lm4eA9+e1a;v`=MFUv?oG*0u-7ryL z7S1E=3%}hR;-u-np-ubUq|_3euBZt%Tok>n*^U&jAFuW0VIY=oblwQ+O@rH6LogNkT_qQ1;DiY_LEf z4(wZz1xFo(9qhZ*MZ45I^dPI~4|aE+!d+qne?C_#u@aDGsf1I|py`0VXw>L^qd+6O z3yz3QqzHUDj$AM*9S6{h${z4*LGOe~0|s6gG5PaHKrsh9HR#ysKw@u!zXdr9%6ppH z2Ac563ob2+6&*{{`d6`ylfXJc8XJ{@m>a1Jr~n4M_ddPYoOHmCz!f(fO*u@|y}VPj z8u?qfm+kE*(wQmyszvhb6U?i>@mDyu$gEB<0>2wT7L_(d-8A(jh4a(bE6o=-p%LA#2xZ3(m4Bm6-|u(+kx z6c5gmpj!Yq^UY5Jctg62SQ%z}e4{DCqr|p>fyMrLf&!`E8YqC2_iL0w;{6EWusGTm zs;rJt#%cQ8J3hY4R{6B9!vwiGGmjszc7YkIuMr~0mQ9rMKdD^SL?d__IPXei`+a;w ziGm?VAtnyuIE+4_N-~~%mi7HB^)JnnO;d`aTM7)q$=MOaASsJZqJHOlj#^+?lK&>d zw}M%P8JC!CFr@z>Lc+N6a(V8_NZP=Xyc{L$?I}H{UHUYIRCP^fR+@P2KsoAbZN*q${q7xs za82c-VkwSWBUVJ`qWeMk!8D5!#vWWnjzo7Icz>dF4$jf*eG__;q|Rsn&Jq4~vp?{7!y%%WdAxYTr822ZcYgw%7f zr0)l;f5Or^?K!g~iwEn&q}0`JnPsKW?zcMGszqoz$Yts`XQZTv$Zv)+psb-0MHn_= z2g>;M{oMZ>!QM1M*bLb{A6{PFeY|)O71Jz|f=vFS_p07Xn)I+}*ixE)aF;K9PD29k zbhrTc+#HWDRZ&j*TgW}?7Fq|8ln~d)WClVI7lQwX-^3$035(@gtoNv?sp%@Zuo3bp z8uHX^yXBd;ceU9|qvQl=oIkd`yK?oQLM2;klOV#BUVe2dah*Pe3-;6@7H65If~yh=`f`B%aXT3)jilWe*U9$R>v zPr+E@@+EwhLyZeDtF(K9tqn=B#?l0B%0iS-ezu z$$-W2+VG(lLvz2Q;mHfxl?W&weK{?Hf=Zu?v9Imzl_1DIU)hRKILv7qafL|TvtPZ^ zE0W?PXOHEYr}4N7oH{vRY_}=Ps9dXZfKX}()U=ilkZuI92p%qnwr?DE0w)rIyFo0h zs5(bpJSHy=MzWjt3HPcs7=Gj459M7LYW&r1#}(9otSPi*P}Gn4jYs+nHp>d>W=8Tz zIh$X^{)v7XApEbb)4!=FViCtN`w-Y?0WtCVqO8``lb7973x!7$#Z3ygYutEq8tIP0 zI61wwbsgu63Ue7%=iMh zY_cT(QrDThEHqg8tAtaReGKzHP5tV>4n~x% zdS&V!7W;YT#ErX>_6veWF>9YWc<;|TvFytts+x?(aG0SXg5n(EQN$nc@?*k_O>Qzz zY6(Otd9s2Pl%Vyhx2>&>3@V0*>vxs&>TW8pAMuAV(mQPA`4;st&(U;W)$SR%8$k-9 zE35T|03iVb*Gq;-V4lxdo_&Cp0f#)uL)d-bzm@z8elZwX;mJLx)B&9pHX2zer_|1O z*36rO&OgP5*B>g<^&`8l|NBn%kc~_Rw)bS(?t12Lh)FuRfsdpn9tVmMKfAnOTqRZz z#EO`$_;6Mk_zwM+0Kxgso*f#4stAD6I_CA##8Y@*JLxRTkgvye8m$ zAQmi4Ot_*=5&ib@JZs7iHI%4!sBgG2S_>Z;z@122T*bx?!sT<+K1c-PEBgwW%?%c% z(~2U`a1m4AcCN$xUT=6^gMy@!A&WGaw_0>gR^bK`!7fMFMsQ^Xtgnfb8o|f9tsE9_ zV`W;g2ybtaq1zwxW+f5dx5uk@BkRp9R%tHjly zec*d6@7m@-uq2Qppy?{BtA_)X@z!BvDERY{Wzbh^!dr=j2UrENyoiPby8&V7xB}-L z(XB*dA`WjXEWezjLRHlhCv6br+boqF=b&T0&N?B(?kT{?`A^};aX)x3v==J*Gdd~R z2;?IY*4f4QuAO_UJyNXVu3&ZUY&HKLH+cp{%WbeK1=VkScsL7@oPht0YzeUr0&E11l)(5%UIIbD z35>lz8cVMvm$)V>Il)MUU=~KV!w>um1p#+%n|j@&97s%3YMO3TvwC(=EacmgRG(9| zAZ80tD{rKYQ{!o?DOI<71K@rJ=F7CIf=?c@Po4ZtjGy=f6>V+A#Sw2mKD7Uzx*07p znao;enD10Xtwexe`3W`8=ho=LZKHcp745Ed=BG)URktI03Y2LB+1nQkwosHjK6)|8 z*-~jvfNH8Y_@E}4n65H73mGG?R!JhgaV9Pc0YmV_CY6F60w}H5e@CS@{YZV^Xnf=5 znmb+k*A}MB0@_NN6C{YGs&b;qz#aG+4Du2P20pg2)Mr=A7(zXn( zK;yelSq5fl`$V}NN_^GX)Vz~W2UW1S3gPUFuH1hqKb7v(f-Ztw&}_V))<)XCIcNM(wLOUlX__wec%XOoV4Bfyrc&eKFoVBvS6dzQBF} zCm>%X>ZOIFls_q(Osv_WS^IN>tklD_UXi3(x+ol@;`v~G%*boI5wjTN- zbAXoC;*`MU%()&O2ZH>n-p{LY69yehG6muSyv1?5(k%+aNF~fZm`8I#oiTzdIYnNY zzpyUHPVibyZ5q;S$<(B5S(E!7yj2o!XS|zE_dlu+JWuN2>u&gaJ+YH$rqOM`-H!$O zXo4hp`PiQu$OX@zcex`uhECRttkf<^&_Os6Onl#U8`6`iYyb?nGv#>oy0muFsrL5u zv$N{_s|?^+Jzj&@T0B}bk@12W53s;>1WY5IF`TN4NV8EEHU}htJpnXCFyhcuc8=)o z8*t|gV^SEkQ~HpA99D3{%+j2hJR_=p1eWP52-!^g!ibl5D7RFOayv=RIimCqYi>ka zjnwqBthDr|3O2Axmc*XmRN|v@JYFn~hDp_qe*WBqFmlcwi8X{80+sLJaubN#F$ir;K^C6cbE9K)Y_>U5E3S3 zlh#Zdz8g5<-|CRR)?2vDZXk|gZZ7g$>@%8=j{B!g3 z2gyrALLXpdoN7ZBX7tg>z>T%K4N~>)1c|Fxpb$;O472Q%?ECQ!j6piB`1$n_$7}BE z`^^8=ZtOKTQ0&DTjwnj|PmSLMHz2HXcIOd|_%l6pAV+K=Gb?Oj&BK2uzgtp(moOas zmjkg;d~Kxr~DaUyYodt-X^AG=KYfoII|-vI)EFO0kwQ`ACzt)340-Msu-Fp^9Jf)5(V_^XbQBh+jw3k|VUf9*@Zc+ZgB2&OKq4G41{R-Z7IwU_3-&&B zN*7PR2)q&y?;zDf1zz!RKci7@U6D(TXC9d420U)VEq|~c{}vVsFxq)SPG>MsY<}RV zklPuX#7%c6W)`HPWlj&%i>RM&H`Dr9^BnJx5RO--)$p|rs>o4p%-?kJbF$?6h$1>#Se?d7{-tK*Nxl@x)Lsa$T;72 zmrT9;1<+GbC>vLsX=&37^!2VKi`xPJye3heiV*2JQZu9sxxi`4@czjsuvXq+`X$&E zbSJ}zmm^0JZr)v}#7J#CD@aKa??_`i>agwW7)k3~W{1*V*eOxu_^>)6LVt>`bR%#I zxRIj)-C{EW2Wo$AIQTEEzyo&)!S0u~Pd;!SL9M1F+4NU2&2eSUCCsCrJp51O+H^vq z0QxHm3J&hivr%l;O#jFF(fep9#}Wzk_dxbRIQX{tRANV8Uy#by1bY^XbqRVqtUA0A z;E*F=ONV*&74jqsrH1}Cb?$c97er~MF&J`DHFeYVoy^{cHq*g<)AQ*@wM zXqMn=A=qKv)tHeR2C$gd4w%i;2TCpt{4%-UmefpZhW78Oys7h}hyOhr#k}j(=VtPz zh-9w3y{o68nvtb&(w<7yM~sM&%52FPzJChF$oSnwJgXKgimhy}_XE;t0fT+_u3%fr p3KYQ?cKx^W-%stFW^-1Nv{F`yznOGa#mY?*#n8gwAN^Bd{{xVshL-KF&E55PFenPv6ZGyTQ6o2N!Y7IFId@C zbkPe0VtCO_(uHYc2u9?hE(($$bb%K^7hyM=oOOOqBK!lo@*KYBJkRHR&w1b+IG~X| zEe$!Yp=lD+-*_=k%}XJ-5sJF?l-$3+(<1Ro|d`G6~8 z*T%zKi8gUP+CukugqzVe?#wmQ zD>}J9*u#UN9v;5vVOZQ_WOjs6(aVJR_|Jnahs!tce{LY(uGUFSUaaOQE|6etiZ%h< zE@xq$Jw4lyqE~@O@w$o&3d4p)5K_FAF6Cgk3JhzcA>7)_bdP#+8^o~#zH!DKe&N>CHr7x24F%odB; zY%)lL1d38+-)b?NauyDhAOv=cC6P*pOu=egSY0y2<1q6crmn-QB)F-r* Kt6p`Fy7v!olf+N} literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/ico858.ico b/app - Kopie/DD-Record-Organiser/Resources/ico858.ico new file mode 100644 index 0000000000000000000000000000000000000000..aeefdf8a80e9737aae4d0770896a1bd87d26cb26 GIT binary patch literal 1078 zcma)5F>ZrE5FA1zkRrwYfvF;wNNFNbI8UN?;VXF#5(Nd#J%uu*OBYryGq)Tel8Y=J z@6PTHdpfUy3{R-4J^eGjo`5$1`@QjF2E69Lk-3WaB-AH!?0syGMOK_M$8U!4-qWiP z;s+rpBKRn!FO=QJ$TzI(9BQVLu{EDI)^=U9q0?CYycLS@PqKE&5ZZh{_3ZoJibI9+wM)*2J##-a0>JPIPW_LVR4 zC{TTouRO^m(7YtK6Qt?s1ix}S!8%_tW&DyQVMY>t=BJaq6aD tJj*N$DyuP)jGlUfiHCke$)P}4*HwX@?mb` zzgiE#M5fLDxtj=lZ6q=+Lkt2$!wyVqxC~@X03De&Gn$t$kdWJig()R`(|L#ldNHNi zi?tK@-;xA1zab1r3XkO&T;m5wdrx2~XU8>fpl4v~7ZF1h+!NXGy*rQ6jw}?mrNKGI zL&zzIrIL-VTRiLE`+jy5wt-SCISiy4pO}x6>V>$`&V{7&3{GoOF)87oTao_ek0H|L zXxL5q?8f4p7$RLZL=Q4>?LH3$EqhS@^b{VAG@wL(0y*{DquI)BECvw!(ty8jr^s8DqzY3Mx|xw6AM%RhNVG>V(j48H=@2*+n87;k63kFsH&hc^Czx zU)p@TON5%2#gM-!LRIG_NS|MUrcZ`*_YPuLB^9Iro+W2D85SRofmAHM&xik`9B1#a z@o-oLow*L$!CJHqC_n){?E(&Zwhf|^V!qqZ#X+&c)jMMwsg3*W31W<{FoWOGV1 zuOTTStWS(&DYr&0v}HowTZPN*IY_RcCU%rj3Cs*;4T3Shy&sFSmGFOV!%!{P*`>;C zSiN43jAg&56(U(ojS}1r;P)+00001b5ch_0Itp) z=>Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0oF-GK~z{r?N`l8 z0#OtmZJUZxf{akh5o$605@lcnAyHA2nVh5V5Rog-|)j5;mxAeHY|{{nY#RW_EqA17*dUD}M|}2MtEQ%SsEn zWF|x$Uf$lJbZ|zN(^$k}@rZgu5M|vp_}v7rb>I^(NI=t`GPYN*WfK&Fgw@TG2XIba zByKo9zYZcTXN}JVO%RR~SU}Cw&@p7a@^M6B6R_ znF!p#xFAuO+Ia|VjiEN+oSOu?#;pY>370pIaCmw(p(cG(R4!_qN>3|iTo7Hrw7jbi zc*wG%;^`5*Jpo;iNTt73`>F9t+%T8T{jwYEjME0_G&)OR5(ljX`j`{+dew;vi2@z& z#>g87B%rXg0<(z}$oYi{pwtQYna<2lllM=}i~kO$T!I8af|Xj~1e1g>g+%^yEX21v P00000NkvXXu0mjfU5xYZ literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/lightbulb.png b/app - Kopie/DD-Record-Organiser/Resources/lightbulb.png new file mode 100644 index 0000000000000000000000000000000000000000..3e8743bbc7aafa0296a35daec7bf42966860c05a GIT binary patch literal 645 zcmV;00($+4P)RCwBSQ_pJ?K@|QryOESuLj#i9 z#9$GuqC`=t^pH#bgLo0ViM1iOcu_>8MK2yB6r}a&wcw9Gz?&CQP-CmsqHVJY+jP?= zano)#yR*KXwPoF`58lk1H{bi-o0&I)ZQJn6o7r%VrfJfNzpi(r3)$J;3qMxy5>Q}* zru(TYHwy7|4g=97_v@`Hl=3Uc@1M^zv-^mMs{1jLmn|ek9-PfR$;VEdhiz`d?)~Ea z$j|`BGE*2H%jB0|-WJJq>mbIH{ra)=)%tfvO5vll;gkz<1hE{MW6D!T!3=rU}pP4|Qq#Nvv6s)Y&p!|@X%=iB39q)pe_h@>!xw`3Q zgEtr z6tQT6K1vv2dIi%sgm#AoV}qQAVW8D&b9<-RM7OKseX_hQMgJ64VgUTuVX_4iRmQ%|%N&1VIKW z6ly_}Niis=j1O#s|KSprLH24(6;msP^w!;>QD2}~Bd>N!nVR)Lt@FeB=w?vJK@BNvc%LDG&20)2m|BSOT zG|GYVcTq|a#BPX7Q8i>wYmuZj)g4Rb?d zoVa*{?96A>%WfKfzN5XZB^D+3Hxl3sDvoG6cLzPuPx0$};+E57TQ6Xj`pC9+z|{wv zz4sm=4ys+P57Xl7YZ7dNID=S?(*+ KMK`oJJU4u@cS5UYBKf&%yzLEJ@`|~Dem~&2^c_%Z2)^!C|aU9>D zpDUaza2)5h%`kwCFbvmuo=*eUpK+)CXzu_smt}#rZ4XP!vP|+>mJuhe>)uclMQ<%D ziUOLZk$*{&pss5W1ObvHA&{>u=Xt(1O>?OEzQ6M0I1>7qWy3ItWxOq2*SFf`a)DtO zfTI9}&>^sA@x@JYn-8Q_(JR{(Y)?C58JD2m%0AHdH5+-F(V_AYq#6h7&%7o};s<;X?aTRRiI nGpsNmuxB4=IQcq5cEf#?tmu5G!emQp95}O~k7g!GhAFSZF{YO5=}%o}v&+ ztF;D=tuc+e+1+v8Y&KMcs1F`*X6LCWHW4@5GZS86v1{@w*czF8%g}0Lafp zlOnfX7N6G*vASl6Pv6LO@iFiChp)Pz9O+YT4Y}q5*_I6^GgOd@EU$wUT^2h!!5aTNj^0Bwu~6M_6pBg{%`DqUgdf%{?w<}Rs%?R0$nMZsFX;&%Qt50&Gj$VVu^Y%1 z-(#h;h~)L8D(aa$gM1;6U7`uTb`zOZ9mm@JN)xN1$^O{VJG|%` z=|pI>8(+S!U`xHg{hKqO98LaIlUjJBCKSn}pwRS8Y zhyiyQoE+^!u9(C8%SUMQw_EDT*QSNm4I!vSzwkOJL~-Ku$w$A=H70o!cU1`VIO#$f;czYdb; z4*;58$>4b+qfQQ`6pHR2Ufr z!EI=jWf;Km|8+n2IrHqe<9xxFVk)&(Nh?w$Xk`TAyvb=#e=0aySC z00NkRDM597_LiNIJ2M^qhuTvB004REvvU8@of{r?P8tmo3;+Pk0F0@*jAMhdOkS&1 zhJPPfQa;pP0|4+Yk%#j>X}o-s#EF1_DMV93FsfPP`G*>Ks>L&)Q}w2g%slu0kBfW1 z+*$*0BC^oTl6>OGIq(9BgG4|C90Dk-N_mPazGrQ7uHZ|>BLD!-KmZ)z1e^#?1Sf(M z!6m}K(^b|i%$TcA5bC}r$tAA?0C)g1@CgWliJ;NAk&ZF+-w#}$`-3nZ32C6IVKrHp zr+(!L2hRfF&AsTw>_@ z1y23;E%Oz}?q^Q2d($ayO;-sON2t7$w(Z|o0Pw1YnSp^}0PI+I5HnDNsFCA?oorkG z5sUIGIq=FSyxcj+xlhkm0en=52Bx3@02o12gdAU$_i?v6iyFMuc7P9#zQ-Hf; zVuV$t9P5`m)F2w1?t6{<8%wk{w-PP#Sj#%1MbsjrSI6n;D_@8q9`~W98dNQf$j=iI z6~hpgww&be%X_HI50Hhx@W==u4TLPB;ei-J-1}G8wH}|{i#Lk-WZAyfv}k4y0|fvU zZTy^$u6L>2nWo(NDJNR5;6x zll@CmQ5eTZ^k*a#RQf}fVOdd`5NJh6S(>6Cf$wEW#f&JyAR#GAn9>Gml;nOf3WCDa z5({5&UB$(IF?G#$x4X@Ickg!Y-HU!Z_rzX=qAq-XI_LS^=lOCT0|0{#{kBkYDS7{3 zD`iu%E=`cDX_^#^#n$5SIQ|4Zhsk8>N|zXHXG@*41$i-7`Jr{8`3S_OEcmY|RF48wXkk?WpdVM4OePBSbfh z#4_=eXJg@3epx~gi>QbUmO}Bm(ENN3+@c?jWiKvSrm(o|W}Ud*?vy~fn1!V~Cl4kB zI-;c!8f~-v)jX82%EG($>?;KSD$64f2&4qQ#=Yyrcpy$57RAVuV#vKMP)0hT$r6m# zc^F^XaJ8R9Q|}x^NoJYIvYZkq-z}Tnj@UJK2l2H zG}p+VvtjP2Z%bsb$~7QLJ9#pC0dKi`ppOd^_V;ME6tdzC0PtV|r=@e@37O`%0k^=5^`%cf$eu00N17Ro!{^30krz>a%3j34C?*{Mt2^a4~ zK=P+Qq%|f;Tc&+9ps;@Mw`EE%rgs&#y=j6BUGg96oIqdwj9-fiy*N(|@o)eD002ov JPDHLkV1j#pUPb@_ literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/refresh_16xLG.png b/app - Kopie/DD-Record-Organiser/Resources/refresh_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..652cd855abafc4ee596fef9c823886ea0db2e1fe GIT binary patch literal 407 zcmV;I0cie-P)fFz(*#}D0l~?P>$*@B#kybDH7(E5;6$4&rewnR zePA?AgX8hIUI#Iyfk~SLB~dbolOzF#O(blv!7vOUq!=3v1YYxhgK->zVKGgI#PXWR zAPolDAbApxHceBI*F-MT;367C$uugENHI+Xd07qcd6u|&3&U{pXnw&Ja!}(=?tAi4W_C5YWFkV|-vNJMoF(u=ein{0)(3#3#Kq7LNb`002ovPDHLkV1m@} BrN{sP literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/save.bmp b/app - Kopie/DD-Record-Organiser/Resources/save.bmp new file mode 100644 index 0000000000000000000000000000000000000000..dbd0f92370b0971acba9a6b2833243d2fa7e5559 GIT binary patch literal 1334 zcmeHD!3~5k3^Nk6eFW*oxCt2G{_NDzx><3O3QoX_A5yIn+ck}p{MKcHVHtrh)u(*} zk_Us6Rn@!C01t9@Vx>eWg{(ofgIZOQ$a*Z;I$iw7yOUH5F$t-v#Wa_Q)+)& h9=t{1OY^eBe2anLIpzjD@;KhZ`X65V#nU{ec{lX39aaDU literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/save1.bmp b/app - Kopie/DD-Record-Organiser/Resources/save1.bmp new file mode 100644 index 0000000000000000000000000000000000000000..dbd0f92370b0971acba9a6b2833243d2fa7e5559 GIT binary patch literal 1334 zcmeHD!3~5k3^Nk6eFW*oxCt2G{_NDzx><3O3QoX_A5yIn+ck}p{MKcHVHtrh)u(*} zk_Us6Rn@!C01t9@Vx>eWg{(ofgIZOQ$a*Z;I$iw7yOUH5F$t-v#Wa_Q)+)& h9=t{1OY^eBe2anLIpzjD@;KhZ`X65V#nU{ec{lX39aaDU literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/save_16xLG.png b/app - Kopie/DD-Record-Organiser/Resources/save_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..199d45b03a87d30da4d28391e1fa2cf85c9c4388 GIT binary patch literal 206 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP_V(% z#WAEJ?(Jklt_A}h*ZoIVPImvu^)B{G_gAG?mo`2Swdo4(wz^_v@?gONMs@ib4aqns zuT26>7Ed}V-p`MCHp9!yQueItDy^j&uQx4SBDHtxHP(iUmf=cD9|W>>Jv~0S32A1q zmw&n2V9g>C<9A_;sow_mAFT4Viw)WG6Xt*BV@@-?dQ41S9_SVZPgg&ebxsLQ0QP}L AfB*mh literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/save_16xLG1.png b/app - Kopie/DD-Record-Organiser/Resources/save_16xLG1.png new file mode 100644 index 0000000000000000000000000000000000000000..199d45b03a87d30da4d28391e1fa2cf85c9c4388 GIT binary patch literal 206 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP_V(% z#WAEJ?(Jklt_A}h*ZoIVPImvu^)B{G_gAG?mo`2Swdo4(wz^_v@?gONMs@ib4aqns zuT26>7Ed}V-p`MCHp9!yQueItDy^j&uQx4SBDHtxHP(iUmf=cD9|W>>Jv~0S32A1q zmw&n2V9g>C<9A_;sow_mAFT4Viw)WG6Xt*BV@@-?dQ41S9_SVZPgg&ebxsLQ0QP}L AfB*mh literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/shield_go.png b/app - Kopie/DD-Record-Organiser/Resources/shield_go.png new file mode 100644 index 0000000000000000000000000000000000000000..e9bd8522470048751f54164dc66c2ca533cc2cc8 GIT binary patch literal 775 zcmV+i1Ni)jP)VbsWd>_wU(r)Ga$pr#Q!2ut=L3{<%oAf+b{E;+-G}C0%qCSQkM=7lG`eZo2X^ z4eBCEy@)7AgN%7FT@r(le`@L`$DC`&?HtdZ=lA@6-%sb_Tu6{Ny)Onwlls1`t zw)FcKN4tlPVEJu=d0u<&4Wf)_5kpiLXL-K=B^rL2w`R^wXUCEiDQ$fRCf=R>X2((2 z(M5UlL9%d~DC5@O*C{Lzte}VmOL?8`PrgE>k|5 z#7u>;Yon7s@IrM&xs$}d{c+;i4T|Ww|s z5qVmiB>u~l}_mRoZMJquve`lQtb5o{q@GZQ)4}@ z)qZ;?H({v*^S?igg&t-MOZZtL{{8uP_`{2P&Xag2Oq$we;FVVOuf5SY{oEgSwjVzN zYI%J2*Z)mYU_bC>^@R5;6} zlTS!gQ5431?~i{f-N>j^(nf@gnz4vsG~1*?ZHy3tqD@4b(p4K*Q47IE5Jb6XVMKux zSz4`PETXXnBWf%+CAA199Uoz1qRzYL-WG3|8Cw}$xO|**x!?Kjch9kmG5pVR0q(w9 zyl4z(#pnjDHKIXjjfh6HL5VKef+&M%{dV9~Q`7~}#`N_>t3&@%`O>}Fa6y4+9Re8t zdK;w`N)*0U_~I8)RN<_@bpYR&iV}jrhm*U`Y^eJ3s=`-N^gu)dFp|h@h@g9a4Y^VR zl_vl=(O$>>$$5?+s4wJ3lk@b%im{hnU9Z3wjW!0?fzdY^9LMHiGJ|DuWY zbD??rW^(>tPcVS%SR9MiGCsAy(P-T|1*P$9I*U?zy#k}bwc+Wz1so?p2yy^dAKl^m z`~=G@i>&!Ma%=m5);xjI7-J}N;PBpB;wg{LNU<%hjSaIT2|5l&X{c%9#mpGVPmhW9 z4qve$=sEz$wuq-Z0OBc+c*^7Xw8#6;4`|sLL2MziwF|L)Vtd*E&Ibfa1s>SY842M! z0d_`0914f#Z3A& zsdR$=u3HQ~J58li0kE3?1v7bhwSU`zl2002ovPDHLkV1n}7B%A;M literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/table_refresh.png b/app - Kopie/DD-Record-Organiser/Resources/table_refresh.png new file mode 100644 index 0000000000000000000000000000000000000000..ab92010c2c970d77e0412120172b4c04278fab5b GIT binary patch literal 795 zcmV+$1LXXPP)pL8W^+72efa&*(*OEc&2j); z!-o+QLL07Cg!0AT$Kd7{8Gf8Hp+ zj(3rXQmk%lW6j()UR}_};#?C=4b9B1n`Z4-uMGjjP7U*(ID*b|qeM~2>ERx#siwXv zPydZRhR3epDvmzgT)$l+Z1++h(Cl2B7yO-#{(Z{jNKT??rIrPSN z9C@>oa%mbXMC#($jpie0=Rjn!qCWFM2!?VK6qs( zTZa1hc}GtfAar7Q?@2`P`to{a#Q_WQDe7yI z;s_Q#m1cHrnuFcDnX=nN3FV!yUt-f2FH&NH4eje#v1}QxA}41u@SY{}GK}0T^GrjE z;`K>(9eaz~Yz?i8T2ND#ENVu*VqO_64)e>Io?aC_8f-mu>8v^@R5;6} zllxCnVHn5HpVV5;by;h+VV6~?IE`7f*=DPitC_81F*JteShZ>uk`$7rj_5>VHAx6D zkWkV{?PeG30_TKWA}Cwu+c^g-4xQh8w(l?R^L;-1?s?yr06;89gx>xE9k(OUTHir4 zFo%=9uR&T~K9(|DMiS~CPh$Ss!#KKK47wgLATqh1C|1+;Syl>Q_AGoW_7bOkZP0qv z(0E9ka5W2ujmBq?0+`%ignsYzRhYw9&^>ukXo!k8?7uuE2`~;bLcg$xK5q<#;thK* zghYV4{z^r)c^h^Z%2C@@A@UPee^f+dQaPy32LA$-eR4&WX)D`0+=BLzR>;q75eE4h z7>(uuR3HXwEDFbX6mLGKv9ohb0MuBvD=LheS@M1pYK(HMKUIoy-9`-hVzBb^)Bh)U z^)ZENoex}OB^Q}(b~K`_V=cQ*Q?f~aXCA5SB5VO#@KS*#fRKVqVB^$a-2*N%>TlNJ zu>Alw=vK39)T?BCqITPRBr}V!2Wi|L&x;s(LL;61w^>z>5*jy&gH!__nJsNuDf_dJ zw!ybZeEorYp?m`8B=?XU6Eq4{YpCKQgNuxk<11u^x1sKz697ZppmRyYEk7;V!ShHG zD!otg9gsI(V1Wa;o-%^h9p(W1K(TgpKKdmEIBK3nJpCPXGKWv`EFyFUM5We?VwD|p xQc{2;rkT-0hHz%zr76^(4`KJ2;PSpQuixh%8O#OXSReoZ002ovPDHLkV1kXP)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0jNntK~z{r?U+xl zf-n%qxrZ0 zd4vZ6qdQI4s%y6mZ#A2P$$8yUCkMXZa@c{6klPtHhw{G<#?9&8JfQ;=`%!y$n7YlF zHaw#6TCmuTu+=Y4Eff((23zsa=CjUZg012yq|GPHalh2?rA3gyh;ZT6{fL(yX8+1mjF!p(Pgmd;7~5l zm%;5)_P1=@i0E-J#fcjcYKM_ABKQkop&~~SQCmgsQI$=RYYUOyQ|lsUX0Wpbw2G(t z&n|MNHkZw)ZQ77%`Xa}j!n*qf0n4|DbT3W5rln&UR1&}fI5UCF^5S3toS8so`8QTb VbmOUHouvQ(002ovPDHLkV1g(v=}`ax literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/userAccounts.bmp b/app - Kopie/DD-Record-Organiser/Resources/userAccounts.bmp new file mode 100644 index 0000000000000000000000000000000000000000..0e6389769e7bcfbfaa283e4c66f77f88a1aff04a GIT binary patch literal 776 zcmZ?rHw6wI^+S=*Ur_Y!%qo=2*qobpFZ(=PbG#P4z<{7q1CE2bLPxXkMBHA z^ZMJ7{jfIh*YPR;FE4mn9`K_idg7dbwnGi?zdi_EA6k5=IOtH2RhJdeJ)b^(+P8e} z@^C*VO{7J@LI+SY}&W+pSx-L`6k4G&Cff8r6z#LXdRK zUZ3!6_ul>XOaD7810lO5|JCXb{qD^78U>a&j_rOO)V;Q{ZF1z&>pq)4 zd2M(TzW0B?w*O8`Uqu$xpFe;8-Me>IR#usrnZ3QeOO`D0_xCq*@BpTe{1rzv+jj;n zxsY!RlJn7%*5AK>|L4!2m?;o0a_{xW$$Kx)KXQG+feXNB`u+PiP>O*808*TsGynhq literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/user_16xLG.png b/app - Kopie/DD-Record-Organiser/Resources/user_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..b13824433b3532256f3e0535185c796c8720161f GIT binary patch literal 284 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAQ1G0m zi(^Pd+|fyfe9ZeVdZ5B>)m+=ik}5t(pj^$ZfkC|lG2Thx2pCXnauS3=672U zP5#4~pYHUD#`x`@tZ}#?!svYQNp2;LE~b5APb&9Kn6YYA(!;y6>vlf4SUQ)xCGpc8 zK0TG=>UXxCbzq5{ruv4-#U@>%?QogZoz^=I51mV6=g&IGZQ;c6%vDrl=?wAT@_+U# fyyHDq*b-r<@j8dQz)5ru&}R&uu6{1-oD!M3!D zZfa?ojY$@yCfls+a1%C3!?bPMoJoiMdi{ifAhYP=;XUyGJ@1Lv1Axc>uU*mi_s!1e4vIF-H#zjvi{6P9o7zm~Hif`95cSO@Tw_#RTVDspTCI z?1WjG!bBB?H3jy17EBr*CLT#JGjJG|1`1Y%7iN^+_#&sEmmS*TR?wE>{mu5i50)3r zn0j6Zo9P&A#u&_fP@^wz+rsO{#Px0kH{x~-S%>do+MvP0OBF%Q^sPn}YIyzzw?{}< z(i?*=pB}Br+>1rSU3`Dj!LTr*1f9DNClXJN#^0{pys98gNpFg+%29?Cu`%T6g0wUU zjn_^wEcJC$EeI~$jk2`tLa|P3?vTXF_G9381A1*0Xm}??wJ{CS0RhBM zc(^l?fyc8lgo$?{qD0u7+*rH8B}lF-EKX`Vjux|sVJUcXP=K;$@hH+?Kz?@=vfD#Z zF_Z*JKOYHlF5)Y*s$Bw89_QC|mk`%`&!M!R$57mNks0T8MIx(>i*!{G`1MDTsR@Rq zHy?wUzCT=oS66+VR-K3x9KkI^DhbArRilynARJe;T+&7mNf;zg`8Z#B5H@`QhO_;g zF2QJ1N{%td=O@1|5Yf`zr0~+JgiHJpF5U@Ke!wEh6s&lKk7|J@t(W>ll_$K7EDLm= zDcwUZEC8V;{s<`wARKUph`3*C9+vx!w+KAl{>Fdd57Mf|@r@oVseQC_m=rUfa}difiP=7Q#%M zshc`Wm&;AX{0?nQQx{}VMAAhV>V;rJ@&0>zF9w3lqKhA#^YHwCJm(xv5P+cnVawvp ztLfDxoZV2f8Bnl7AZ12EoSxeFR|2V6RIW~mf*~;sdI}9M6f$-Qvg7taoFz1FDj&57n{Mq4D7Y_TdR9C(EO|SzKHEmo zPOn#{+hEQ;;thBNzT#Oh`*z)EZQ(_1cpLEJT{q48TPx~`^I%-$NUju1T~|0)V}~FC6c#zk#8D6LRk;) zT0D?8Orf&Nhs26LtPbknDLzd41-|Ax#58f}=OyC^;x)af?Do-=b _ +Partial Class frmCalendar + 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 TimeRuler1 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler() + Dim TimeRuler2 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler() + Dim TimeRuler3 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler() + Me.SchedulerControl1 = New DevExpress.XtraScheduler.SchedulerControl() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.SwitchToDayViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToDayViewItem() + Me.SwitchToWorkWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem() + Me.SwitchToWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWeekViewItem() + Me.SwitchToFullWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem() + Me.SwitchToMonthViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToMonthViewItem() + Me.SwitchToTimelineViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem() + Me.SwitchToGanttViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToGanttViewItem() + Me.SwitchTimeScalesItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesItem() + Me.ChangeScaleWidthItem1 = New DevExpress.XtraScheduler.UI.ChangeScaleWidthItem() + Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit() + Me.SwitchTimeScalesCaptionItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem() + Me.SwitchCompressWeekendItem1 = New DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem() + Me.SwitchShowWorkTimeOnlyItem1 = New DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem() + Me.SwitchCellsAutoHeightItem1 = New DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem() + Me.ChangeSnapToCellsUIItem1 = New DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem() + Me.EditAppointmentQueryItem1 = New DevExpress.XtraScheduler.UI.EditAppointmentQueryItem() + Me.EditOccurrenceUICommandItem1 = New DevExpress.XtraScheduler.UI.EditOccurrenceUICommandItem() + Me.EditSeriesUICommandItem1 = New DevExpress.XtraScheduler.UI.EditSeriesUICommandItem() + Me.DeleteAppointmentsItem1 = New DevExpress.XtraScheduler.UI.DeleteAppointmentsItem() + Me.DeleteOccurrenceItem1 = New DevExpress.XtraScheduler.UI.DeleteOccurrenceItem() + Me.DeleteSeriesItem1 = New DevExpress.XtraScheduler.UI.DeleteSeriesItem() + Me.SplitAppointmentItem1 = New DevExpress.XtraScheduler.UI.SplitAppointmentItem() + Me.ChangeAppointmentStatusItem1 = New DevExpress.XtraScheduler.UI.ChangeAppointmentStatusItem() + Me.ChangeAppointmentLabelItem1 = New DevExpress.XtraScheduler.UI.ChangeAppointmentLabelItem() + Me.ToggleRecurrenceItem1 = New DevExpress.XtraScheduler.UI.ToggleRecurrenceItem() + Me.ChangeAppointmentReminderItem1 = New DevExpress.XtraScheduler.UI.ChangeAppointmentReminderItem() + Me.RepositoryItemDuration1 = New DevExpress.XtraScheduler.UI.RepositoryItemDuration() + Me.NewAppointmentItem1 = New DevExpress.XtraScheduler.UI.NewAppointmentItem() + Me.NewRecurringAppointmentItem1 = New DevExpress.XtraScheduler.UI.NewRecurringAppointmentItem() + Me.NavigateViewBackwardItem1 = New DevExpress.XtraScheduler.UI.NavigateViewBackwardItem() + Me.NavigateViewForwardItem1 = New DevExpress.XtraScheduler.UI.NavigateViewForwardItem() + Me.GotoTodayItem1 = New DevExpress.XtraScheduler.UI.GotoTodayItem() + Me.ViewZoomInItem1 = New DevExpress.XtraScheduler.UI.ViewZoomInItem() + Me.ViewZoomOutItem1 = New DevExpress.XtraScheduler.UI.ViewZoomOutItem() + Me.GroupByNoneItem1 = New DevExpress.XtraScheduler.UI.GroupByNoneItem() + Me.GroupByDateItem1 = New DevExpress.XtraScheduler.UI.GroupByDateItem() + Me.GroupByResourceItem1 = New DevExpress.XtraScheduler.UI.GroupByResourceItem() + Me.CalendarToolsRibbonPageCategory1 = New DevExpress.XtraScheduler.UI.CalendarToolsRibbonPageCategory() + Me.AppointmentRibbonPage1 = New DevExpress.XtraScheduler.UI.AppointmentRibbonPage() + Me.ActionsRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.ActionsRibbonPageGroup() + Me.OptionsRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.OptionsRibbonPageGroup() + Me.HomeRibbonPage1 = New DevExpress.XtraScheduler.UI.HomeRibbonPage() + Me.AppointmentRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.AppointmentRibbonPageGroup() + Me.NavigatorRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.NavigatorRibbonPageGroup() + Me.ArrangeRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.ArrangeRibbonPageGroup() + Me.GroupByRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.GroupByRibbonPageGroup() + Me.SchedulerStorage1 = New DevExpress.XtraScheduler.SchedulerStorage(Me.components) + Me.TBPMOAPPOINTMENTSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSetCalendar = New DD_Record_Organiser.DD_DMSDataSetCalendar() + Me.TBPMORESOURCESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_APPOINTMENTSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_APPOINTMENTSTableAdapter() + Me.TBPMO_RESOURCESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter() + Me.SchedulerBarController1 = New DevExpress.XtraScheduler.UI.SchedulerBarController() + CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemDuration1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SchedulerStorage1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMOAPPOINTMENTSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSetCalendar, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMORESOURCESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SchedulerBarController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SchedulerControl1 + ' + Me.SchedulerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SchedulerControl1.Location = New System.Drawing.Point(0, 142) + Me.SchedulerControl1.MenuManager = Me.RibbonControl1 + Me.SchedulerControl1.Name = "SchedulerControl1" + Me.SchedulerControl1.Size = New System.Drawing.Size(926, 455) + Me.SchedulerControl1.Start = New Date(2014, 12, 23, 0, 0, 0, 0) + Me.SchedulerControl1.Storage = Me.SchedulerStorage1 + Me.SchedulerControl1.TabIndex = 0 + Me.SchedulerControl1.Text = "SchedulerControl1" + Me.SchedulerControl1.Views.DayView.TimeRulers.Add(TimeRuler1) + Me.SchedulerControl1.Views.FullWeekView.Enabled = True + Me.SchedulerControl1.Views.FullWeekView.TimeRulers.Add(TimeRuler2) + Me.SchedulerControl1.Views.WorkWeekView.TimeRulers.Add(TimeRuler3) + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.SwitchToDayViewItem1, Me.SwitchToWorkWeekViewItem1, Me.SwitchToWeekViewItem1, Me.SwitchToFullWeekViewItem1, Me.SwitchToMonthViewItem1, Me.SwitchToTimelineViewItem1, Me.SwitchToGanttViewItem1, Me.SwitchTimeScalesItem1, Me.ChangeScaleWidthItem1, Me.SwitchTimeScalesCaptionItem1, Me.SwitchCompressWeekendItem1, Me.SwitchShowWorkTimeOnlyItem1, Me.SwitchCellsAutoHeightItem1, Me.ChangeSnapToCellsUIItem1, Me.EditAppointmentQueryItem1, Me.EditOccurrenceUICommandItem1, Me.EditSeriesUICommandItem1, Me.DeleteAppointmentsItem1, Me.DeleteOccurrenceItem1, Me.DeleteSeriesItem1, Me.SplitAppointmentItem1, Me.ChangeAppointmentStatusItem1, Me.ChangeAppointmentLabelItem1, Me.ToggleRecurrenceItem1, Me.ChangeAppointmentReminderItem1, Me.NewAppointmentItem1, Me.NewRecurringAppointmentItem1, Me.NavigateViewBackwardItem1, Me.NavigateViewForwardItem1, Me.GotoTodayItem1, Me.ViewZoomInItem1, Me.ViewZoomOutItem1, Me.GroupByNoneItem1, Me.GroupByDateItem1, Me.GroupByResourceItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.CalendarToolsRibbonPageCategory1}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.HomeRibbonPage1}) + Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1, Me.RepositoryItemDuration1}) + Me.RibbonControl1.Size = New System.Drawing.Size(926, 142) + ' + 'SwitchToDayViewItem1 + ' + Me.SwitchToDayViewItem1.Id = 1 + Me.SwitchToDayViewItem1.Name = "SwitchToDayViewItem1" + ' + 'SwitchToWorkWeekViewItem1 + ' + Me.SwitchToWorkWeekViewItem1.Id = 2 + Me.SwitchToWorkWeekViewItem1.Name = "SwitchToWorkWeekViewItem1" + ' + 'SwitchToWeekViewItem1 + ' + Me.SwitchToWeekViewItem1.Caption = "&Wochenansicht (Arbeitswoche)" + Me.SwitchToWeekViewItem1.Id = 3 + Me.SwitchToWeekViewItem1.Name = "SwitchToWeekViewItem1" + ' + 'SwitchToFullWeekViewItem1 + ' + Me.SwitchToFullWeekViewItem1.Caption = "&Ganze Woche anzeigen" + Me.SwitchToFullWeekViewItem1.Id = 4 + Me.SwitchToFullWeekViewItem1.Name = "SwitchToFullWeekViewItem1" + ' + 'SwitchToMonthViewItem1 + ' + Me.SwitchToMonthViewItem1.Id = 5 + Me.SwitchToMonthViewItem1.Name = "SwitchToMonthViewItem1" + ' + 'SwitchToTimelineViewItem1 + ' + Me.SwitchToTimelineViewItem1.Id = 6 + Me.SwitchToTimelineViewItem1.Name = "SwitchToTimelineViewItem1" + ' + 'SwitchToGanttViewItem1 + ' + Me.SwitchToGanttViewItem1.Id = 7 + Me.SwitchToGanttViewItem1.Name = "SwitchToGanttViewItem1" + ' + 'SwitchTimeScalesItem1 + ' + Me.SwitchTimeScalesItem1.Id = 8 + Me.SwitchTimeScalesItem1.Name = "SwitchTimeScalesItem1" + ' + 'ChangeScaleWidthItem1 + ' + Me.ChangeScaleWidthItem1.Edit = Me.RepositoryItemSpinEdit1 + Me.ChangeScaleWidthItem1.Id = 9 + Me.ChangeScaleWidthItem1.Name = "ChangeScaleWidthItem1" + Me.ChangeScaleWidthItem1.UseCommandCaption = True + ' + 'RepositoryItemSpinEdit1 + ' + Me.RepositoryItemSpinEdit1.AutoHeight = False + Me.RepositoryItemSpinEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemSpinEdit1.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.[Default] + Me.RepositoryItemSpinEdit1.MaxValue = New Decimal(New Integer() {200, 0, 0, 0}) + Me.RepositoryItemSpinEdit1.MinValue = New Decimal(New Integer() {10, 0, 0, 0}) + Me.RepositoryItemSpinEdit1.Name = "RepositoryItemSpinEdit1" + ' + 'SwitchTimeScalesCaptionItem1 + ' + Me.SwitchTimeScalesCaptionItem1.Id = 10 + Me.SwitchTimeScalesCaptionItem1.Name = "SwitchTimeScalesCaptionItem1" + ' + 'SwitchCompressWeekendItem1 + ' + Me.SwitchCompressWeekendItem1.Id = 11 + Me.SwitchCompressWeekendItem1.Name = "SwitchCompressWeekendItem1" + ' + 'SwitchShowWorkTimeOnlyItem1 + ' + Me.SwitchShowWorkTimeOnlyItem1.Id = 12 + Me.SwitchShowWorkTimeOnlyItem1.Name = "SwitchShowWorkTimeOnlyItem1" + ' + 'SwitchCellsAutoHeightItem1 + ' + Me.SwitchCellsAutoHeightItem1.Id = 13 + Me.SwitchCellsAutoHeightItem1.Name = "SwitchCellsAutoHeightItem1" + ' + 'ChangeSnapToCellsUIItem1 + ' + Me.ChangeSnapToCellsUIItem1.Id = 14 + Me.ChangeSnapToCellsUIItem1.Name = "ChangeSnapToCellsUIItem1" + ' + 'EditAppointmentQueryItem1 + ' + Me.EditAppointmentQueryItem1.Id = 15 + Me.EditAppointmentQueryItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.EditOccurrenceUICommandItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditSeriesUICommandItem1)}) + Me.EditAppointmentQueryItem1.Name = "EditAppointmentQueryItem1" + Me.EditAppointmentQueryItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'EditOccurrenceUICommandItem1 + ' + Me.EditOccurrenceUICommandItem1.Id = 16 + Me.EditOccurrenceUICommandItem1.Name = "EditOccurrenceUICommandItem1" + ' + 'EditSeriesUICommandItem1 + ' + Me.EditSeriesUICommandItem1.Id = 17 + Me.EditSeriesUICommandItem1.Name = "EditSeriesUICommandItem1" + ' + 'DeleteAppointmentsItem1 + ' + Me.DeleteAppointmentsItem1.Id = 18 + Me.DeleteAppointmentsItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteOccurrenceItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteSeriesItem1)}) + Me.DeleteAppointmentsItem1.Name = "DeleteAppointmentsItem1" + Me.DeleteAppointmentsItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'DeleteOccurrenceItem1 + ' + Me.DeleteOccurrenceItem1.Id = 19 + Me.DeleteOccurrenceItem1.Name = "DeleteOccurrenceItem1" + ' + 'DeleteSeriesItem1 + ' + Me.DeleteSeriesItem1.Id = 20 + Me.DeleteSeriesItem1.Name = "DeleteSeriesItem1" + ' + 'SplitAppointmentItem1 + ' + Me.SplitAppointmentItem1.Id = 21 + Me.SplitAppointmentItem1.Name = "SplitAppointmentItem1" + ' + 'ChangeAppointmentStatusItem1 + ' + Me.ChangeAppointmentStatusItem1.Id = 22 + Me.ChangeAppointmentStatusItem1.Name = "ChangeAppointmentStatusItem1" + ' + 'ChangeAppointmentLabelItem1 + ' + Me.ChangeAppointmentLabelItem1.Id = 23 + Me.ChangeAppointmentLabelItem1.Name = "ChangeAppointmentLabelItem1" + ' + 'ToggleRecurrenceItem1 + ' + Me.ToggleRecurrenceItem1.Id = 24 + Me.ToggleRecurrenceItem1.Name = "ToggleRecurrenceItem1" + ' + 'ChangeAppointmentReminderItem1 + ' + Me.ChangeAppointmentReminderItem1.Edit = Me.RepositoryItemDuration1 + Me.ChangeAppointmentReminderItem1.Id = 25 + Me.ChangeAppointmentReminderItem1.Name = "ChangeAppointmentReminderItem1" + ' + 'RepositoryItemDuration1 + ' + Me.RepositoryItemDuration1.AllowNullInput = DevExpress.Utils.DefaultBoolean.[False] + Me.RepositoryItemDuration1.AutoHeight = False + Me.RepositoryItemDuration1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemDuration1.Name = "RepositoryItemDuration1" + Me.RepositoryItemDuration1.NullValuePromptShowForEmptyValue = True + Me.RepositoryItemDuration1.ShowEmptyItem = True + Me.RepositoryItemDuration1.ValidateOnEnterKey = True + ' + 'NewAppointmentItem1 + ' + Me.NewAppointmentItem1.Id = 26 + Me.NewAppointmentItem1.Name = "NewAppointmentItem1" + ' + 'NewRecurringAppointmentItem1 + ' + Me.NewRecurringAppointmentItem1.Id = 27 + Me.NewRecurringAppointmentItem1.Name = "NewRecurringAppointmentItem1" + ' + 'NavigateViewBackwardItem1 + ' + Me.NavigateViewBackwardItem1.Id = 28 + Me.NavigateViewBackwardItem1.Name = "NavigateViewBackwardItem1" + ' + 'NavigateViewForwardItem1 + ' + Me.NavigateViewForwardItem1.Id = 29 + Me.NavigateViewForwardItem1.Name = "NavigateViewForwardItem1" + ' + 'GotoTodayItem1 + ' + Me.GotoTodayItem1.Id = 30 + Me.GotoTodayItem1.Name = "GotoTodayItem1" + ' + 'ViewZoomInItem1 + ' + Me.ViewZoomInItem1.Id = 31 + Me.ViewZoomInItem1.Name = "ViewZoomInItem1" + ' + 'ViewZoomOutItem1 + ' + Me.ViewZoomOutItem1.Id = 32 + Me.ViewZoomOutItem1.Name = "ViewZoomOutItem1" + ' + 'GroupByNoneItem1 + ' + Me.GroupByNoneItem1.Id = 33 + Me.GroupByNoneItem1.Name = "GroupByNoneItem1" + ' + 'GroupByDateItem1 + ' + Me.GroupByDateItem1.Id = 34 + Me.GroupByDateItem1.Name = "GroupByDateItem1" + ' + 'GroupByResourceItem1 + ' + Me.GroupByResourceItem1.Id = 35 + Me.GroupByResourceItem1.Name = "GroupByResourceItem1" + ' + 'CalendarToolsRibbonPageCategory1 + ' + Me.CalendarToolsRibbonPageCategory1.Control = Me.SchedulerControl1 + Me.CalendarToolsRibbonPageCategory1.Name = "CalendarToolsRibbonPageCategory1" + Me.CalendarToolsRibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.AppointmentRibbonPage1}) + Me.CalendarToolsRibbonPageCategory1.Visible = False + ' + 'AppointmentRibbonPage1 + ' + Me.AppointmentRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ActionsRibbonPageGroup1, Me.OptionsRibbonPageGroup1}) + Me.AppointmentRibbonPage1.Name = "AppointmentRibbonPage1" + Me.AppointmentRibbonPage1.Visible = False + ' + 'ActionsRibbonPageGroup1 + ' + Me.ActionsRibbonPageGroup1.ItemLinks.Add(Me.EditAppointmentQueryItem1) + Me.ActionsRibbonPageGroup1.ItemLinks.Add(Me.DeleteAppointmentsItem1) + Me.ActionsRibbonPageGroup1.ItemLinks.Add(Me.SplitAppointmentItem1) + Me.ActionsRibbonPageGroup1.Name = "ActionsRibbonPageGroup1" + ' + 'OptionsRibbonPageGroup1 + ' + Me.OptionsRibbonPageGroup1.ItemLinks.Add(Me.ChangeAppointmentStatusItem1) + Me.OptionsRibbonPageGroup1.ItemLinks.Add(Me.ChangeAppointmentLabelItem1) + Me.OptionsRibbonPageGroup1.ItemLinks.Add(Me.ToggleRecurrenceItem1) + Me.OptionsRibbonPageGroup1.ItemLinks.Add(Me.ChangeAppointmentReminderItem1) + Me.OptionsRibbonPageGroup1.Name = "OptionsRibbonPageGroup1" + ' + 'HomeRibbonPage1 + ' + Me.HomeRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.AppointmentRibbonPageGroup1, Me.NavigatorRibbonPageGroup1, Me.ArrangeRibbonPageGroup1, Me.GroupByRibbonPageGroup1}) + Me.HomeRibbonPage1.Name = "HomeRibbonPage1" + ' + 'AppointmentRibbonPageGroup1 + ' + Me.AppointmentRibbonPageGroup1.ItemLinks.Add(Me.NewAppointmentItem1) + Me.AppointmentRibbonPageGroup1.ItemLinks.Add(Me.NewRecurringAppointmentItem1) + Me.AppointmentRibbonPageGroup1.Name = "AppointmentRibbonPageGroup1" + ' + 'NavigatorRibbonPageGroup1 + ' + Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.NavigateViewBackwardItem1) + Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.NavigateViewForwardItem1) + Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.GotoTodayItem1) + Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.ViewZoomInItem1) + Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.ViewZoomOutItem1) + Me.NavigatorRibbonPageGroup1.Name = "NavigatorRibbonPageGroup1" + ' + 'ArrangeRibbonPageGroup1 + ' + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToDayViewItem1) + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWorkWeekViewItem1) + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWeekViewItem1) + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToFullWeekViewItem1) + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToMonthViewItem1) + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToTimelineViewItem1) + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToGanttViewItem1) + Me.ArrangeRibbonPageGroup1.Name = "ArrangeRibbonPageGroup1" + ' + 'GroupByRibbonPageGroup1 + ' + Me.GroupByRibbonPageGroup1.ItemLinks.Add(Me.GroupByNoneItem1) + Me.GroupByRibbonPageGroup1.ItemLinks.Add(Me.GroupByDateItem1) + Me.GroupByRibbonPageGroup1.ItemLinks.Add(Me.GroupByResourceItem1) + Me.GroupByRibbonPageGroup1.Name = "GroupByRibbonPageGroup1" + ' + 'SchedulerStorage1 + ' + Me.SchedulerStorage1.Appointments.CustomFieldMappings.Add(New DevExpress.XtraScheduler.AppointmentCustomFieldMapping("RecordID", "CustomField1")) + Me.SchedulerStorage1.Appointments.CustomFieldMappings.Add(New DevExpress.XtraScheduler.AppointmentCustomFieldMapping("ControlID", "CustomField2")) + Me.SchedulerStorage1.Appointments.DataSource = Me.TBPMOAPPOINTMENTSBindingSource + Me.SchedulerStorage1.Appointments.Mappings.AllDay = "AllDay" + Me.SchedulerStorage1.Appointments.Mappings.Description = "Description" + Me.SchedulerStorage1.Appointments.Mappings.End = "EndDate" + Me.SchedulerStorage1.Appointments.Mappings.Label = "Label" + Me.SchedulerStorage1.Appointments.Mappings.Location = "Location" + Me.SchedulerStorage1.Appointments.Mappings.RecurrenceInfo = "RecurrenceInfo" + Me.SchedulerStorage1.Appointments.Mappings.ReminderInfo = "ReminderInfo" + Me.SchedulerStorage1.Appointments.Mappings.ResourceId = "ResourceID" + Me.SchedulerStorage1.Appointments.Mappings.Start = "StartDate" + Me.SchedulerStorage1.Appointments.Mappings.Status = "Status" + Me.SchedulerStorage1.Appointments.Mappings.Subject = "Subject" + Me.SchedulerStorage1.Appointments.Mappings.Type = "Type" + Me.SchedulerStorage1.Resources.DataSource = Me.TBPMORESOURCESBindingSource + Me.SchedulerStorage1.Resources.Mappings.Caption = "ResourceName" + Me.SchedulerStorage1.Resources.Mappings.Color = "Color" + Me.SchedulerStorage1.Resources.Mappings.Id = "ResourceID" + Me.SchedulerStorage1.Resources.Mappings.Image = "Image" + Me.SchedulerStorage1.Resources.Mappings.ParentId = "UniqueID" + ' + 'TBPMOAPPOINTMENTSBindingSource + ' + Me.TBPMOAPPOINTMENTSBindingSource.DataMember = "TBPMO_APPOINTMENTS" + Me.TBPMOAPPOINTMENTSBindingSource.DataSource = Me.DD_DMSDataSetCalendar + ' + 'DD_DMSDataSetCalendar + ' + Me.DD_DMSDataSetCalendar.DataSetName = "DD_DMSDataSetCalendar" + Me.DD_DMSDataSetCalendar.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMORESOURCESBindingSource + ' + Me.TBPMORESOURCESBindingSource.DataMember = "TBPMO_RESOURCES" + Me.TBPMORESOURCESBindingSource.DataSource = Me.DD_DMSDataSetCalendar + ' + 'TBPMO_APPOINTMENTSTableAdapter + ' + Me.TBPMO_APPOINTMENTSTableAdapter.ClearBeforeFill = True + ' + 'TBPMO_RESOURCESTableAdapter + ' + Me.TBPMO_RESOURCESTableAdapter.ClearBeforeFill = True + ' + 'SchedulerBarController1 + ' + Me.SchedulerBarController1.BarItems.Add(Me.SwitchToDayViewItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchToWorkWeekViewItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchToWeekViewItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchToFullWeekViewItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchToMonthViewItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchToTimelineViewItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchToGanttViewItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchTimeScalesItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ChangeScaleWidthItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchTimeScalesCaptionItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchCompressWeekendItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchShowWorkTimeOnlyItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SwitchCellsAutoHeightItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ChangeSnapToCellsUIItem1) + Me.SchedulerBarController1.BarItems.Add(Me.EditAppointmentQueryItem1) + Me.SchedulerBarController1.BarItems.Add(Me.EditOccurrenceUICommandItem1) + Me.SchedulerBarController1.BarItems.Add(Me.EditSeriesUICommandItem1) + Me.SchedulerBarController1.BarItems.Add(Me.DeleteAppointmentsItem1) + Me.SchedulerBarController1.BarItems.Add(Me.DeleteOccurrenceItem1) + Me.SchedulerBarController1.BarItems.Add(Me.DeleteSeriesItem1) + Me.SchedulerBarController1.BarItems.Add(Me.SplitAppointmentItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ChangeAppointmentStatusItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ChangeAppointmentLabelItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ToggleRecurrenceItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ChangeAppointmentReminderItem1) + Me.SchedulerBarController1.BarItems.Add(Me.NewAppointmentItem1) + Me.SchedulerBarController1.BarItems.Add(Me.NewRecurringAppointmentItem1) + Me.SchedulerBarController1.BarItems.Add(Me.NavigateViewBackwardItem1) + Me.SchedulerBarController1.BarItems.Add(Me.NavigateViewForwardItem1) + Me.SchedulerBarController1.BarItems.Add(Me.GotoTodayItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ViewZoomInItem1) + Me.SchedulerBarController1.BarItems.Add(Me.ViewZoomOutItem1) + Me.SchedulerBarController1.BarItems.Add(Me.GroupByNoneItem1) + Me.SchedulerBarController1.BarItems.Add(Me.GroupByDateItem1) + Me.SchedulerBarController1.BarItems.Add(Me.GroupByResourceItem1) + Me.SchedulerBarController1.Control = Me.SchedulerControl1 + ' + 'frmCalendar + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(926, 597) + Me.Controls.Add(Me.SchedulerControl1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmCalendar" + Me.Text = "Kalender Ansicht - Brainpool" + CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemDuration1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SchedulerStorage1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMOAPPOINTMENTSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSetCalendar, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMORESOURCESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SchedulerBarController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents SchedulerControl1 As DevExpress.XtraScheduler.SchedulerControl + Friend WithEvents SchedulerStorage1 As DevExpress.XtraScheduler.SchedulerStorage + Friend WithEvents DD_DMSDataSetCalendar As DD_Record_Organiser.DD_DMSDataSetCalendar + Friend WithEvents TBPMOAPPOINTMENTSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_APPOINTMENTSTableAdapter As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_APPOINTMENTSTableAdapter + Friend WithEvents TBPMORESOURCESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_RESOURCESTableAdapter As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents SwitchToDayViewItem1 As DevExpress.XtraScheduler.UI.SwitchToDayViewItem + Friend WithEvents SwitchToWorkWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem + Friend WithEvents SwitchToWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWeekViewItem + Friend WithEvents SwitchToFullWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem + Friend WithEvents SwitchToMonthViewItem1 As DevExpress.XtraScheduler.UI.SwitchToMonthViewItem + Friend WithEvents SwitchToTimelineViewItem1 As DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem + Friend WithEvents SwitchToGanttViewItem1 As DevExpress.XtraScheduler.UI.SwitchToGanttViewItem + Friend WithEvents SwitchTimeScalesItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesItem + Friend WithEvents ChangeScaleWidthItem1 As DevExpress.XtraScheduler.UI.ChangeScaleWidthItem + Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit + Friend WithEvents SwitchTimeScalesCaptionItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem + Friend WithEvents SwitchCompressWeekendItem1 As DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem + Friend WithEvents SwitchShowWorkTimeOnlyItem1 As DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem + Friend WithEvents SwitchCellsAutoHeightItem1 As DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem + Friend WithEvents ChangeSnapToCellsUIItem1 As DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem + Friend WithEvents SchedulerBarController1 As DevExpress.XtraScheduler.UI.SchedulerBarController + Friend WithEvents EditAppointmentQueryItem1 As DevExpress.XtraScheduler.UI.EditAppointmentQueryItem + Friend WithEvents EditOccurrenceUICommandItem1 As DevExpress.XtraScheduler.UI.EditOccurrenceUICommandItem + Friend WithEvents EditSeriesUICommandItem1 As DevExpress.XtraScheduler.UI.EditSeriesUICommandItem + Friend WithEvents DeleteAppointmentsItem1 As DevExpress.XtraScheduler.UI.DeleteAppointmentsItem + Friend WithEvents DeleteOccurrenceItem1 As DevExpress.XtraScheduler.UI.DeleteOccurrenceItem + Friend WithEvents DeleteSeriesItem1 As DevExpress.XtraScheduler.UI.DeleteSeriesItem + Friend WithEvents SplitAppointmentItem1 As DevExpress.XtraScheduler.UI.SplitAppointmentItem + Friend WithEvents ChangeAppointmentStatusItem1 As DevExpress.XtraScheduler.UI.ChangeAppointmentStatusItem + Friend WithEvents ChangeAppointmentLabelItem1 As DevExpress.XtraScheduler.UI.ChangeAppointmentLabelItem + Friend WithEvents ToggleRecurrenceItem1 As DevExpress.XtraScheduler.UI.ToggleRecurrenceItem + Friend WithEvents ChangeAppointmentReminderItem1 As DevExpress.XtraScheduler.UI.ChangeAppointmentReminderItem + Friend WithEvents RepositoryItemDuration1 As DevExpress.XtraScheduler.UI.RepositoryItemDuration + Friend WithEvents CalendarToolsRibbonPageCategory1 As DevExpress.XtraScheduler.UI.CalendarToolsRibbonPageCategory + Friend WithEvents AppointmentRibbonPage1 As DevExpress.XtraScheduler.UI.AppointmentRibbonPage + Friend WithEvents ActionsRibbonPageGroup1 As DevExpress.XtraScheduler.UI.ActionsRibbonPageGroup + Friend WithEvents OptionsRibbonPageGroup1 As DevExpress.XtraScheduler.UI.OptionsRibbonPageGroup + Friend WithEvents NewAppointmentItem1 As DevExpress.XtraScheduler.UI.NewAppointmentItem + Friend WithEvents NewRecurringAppointmentItem1 As DevExpress.XtraScheduler.UI.NewRecurringAppointmentItem + Friend WithEvents NavigateViewBackwardItem1 As DevExpress.XtraScheduler.UI.NavigateViewBackwardItem + Friend WithEvents NavigateViewForwardItem1 As DevExpress.XtraScheduler.UI.NavigateViewForwardItem + Friend WithEvents GotoTodayItem1 As DevExpress.XtraScheduler.UI.GotoTodayItem + Friend WithEvents ViewZoomInItem1 As DevExpress.XtraScheduler.UI.ViewZoomInItem + Friend WithEvents ViewZoomOutItem1 As DevExpress.XtraScheduler.UI.ViewZoomOutItem + Friend WithEvents GroupByNoneItem1 As DevExpress.XtraScheduler.UI.GroupByNoneItem + Friend WithEvents GroupByDateItem1 As DevExpress.XtraScheduler.UI.GroupByDateItem + Friend WithEvents GroupByResourceItem1 As DevExpress.XtraScheduler.UI.GroupByResourceItem + Friend WithEvents HomeRibbonPage1 As DevExpress.XtraScheduler.UI.HomeRibbonPage + Friend WithEvents AppointmentRibbonPageGroup1 As DevExpress.XtraScheduler.UI.AppointmentRibbonPageGroup + Friend WithEvents NavigatorRibbonPageGroup1 As DevExpress.XtraScheduler.UI.NavigatorRibbonPageGroup + Friend WithEvents ArrangeRibbonPageGroup1 As DevExpress.XtraScheduler.UI.ArrangeRibbonPageGroup + Friend WithEvents GroupByRibbonPageGroup1 As DevExpress.XtraScheduler.UI.GroupByRibbonPageGroup +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmCalendar.resx b/app - Kopie/DD-Record-Organiser/frmCalendar.resx new file mode 100644 index 0000000..ffdc838 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmCalendar.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 362, 17 + + + 171, 17 + + + 884, 17 + + + 623, 17 + + + 1121, 17 + + + 17, 56 + + + 134 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmCalendar.vb b/app - Kopie/DD-Record-Organiser/frmCalendar.vb new file mode 100644 index 0000000..e19f3c3 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmCalendar.vb @@ -0,0 +1,79 @@ +Public Class frmCalendar + Private Shared _Instance As frmCalendar = Nothing + Public Shared Function Instance() As frmCalendar + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmCalendar + End If + _Instance.BringToFront() + Return _Instance + End Function + + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "CALENDAR-UserLayout.xml") + + Private Sub frmCalendar_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + SaveCalendarLayout() + End Sub + + Private Sub SchedulerControl1_ActiveViewChanged(sender As Object, e As EventArgs) Handles SchedulerControl1.ActiveViewChanged + SaveCalendarLayout() + End Sub + + Private Sub frmCalendar_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString + + Me.TBPMO_RESOURCESTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_RESOURCES) + Me.TBPMO_APPOINTMENTSTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS) + + LoadCalendarLayout() + End Sub + + Private Sub AppointmentsInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.AppointmentsInserted, SchedulerStorage1.AppointmentsChanged, SchedulerStorage1.AppointmentsDeleted + Try + Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString + TBPMO_APPOINTMENTSTableAdapter.Update(DD_DMSDataSetCalendar) + DD_DMSDataSetCalendar.AcceptChanges() + Catch ex As Exception + MsgBox("Error in Appointment InsertedChangedDeleted: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub RessourcesInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.ResourcesInserted, SchedulerStorage1.ResourcesChanged, SchedulerStorage1.ResourcesDeleted + Try + Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString + TBPMO_RESOURCESTableAdapter.Update(DD_DMSDataSetCalendar) + DD_DMSDataSetCalendar.AcceptChanges() + Catch ex As Exception + MsgBox("Error in Ressources InsertedChangedDeleted: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub SaveCalendarLayout() + Try + SchedulerControl1.SaveLayoutToXml(XMLPath) + Catch ex As Exception + MsgBox("Das Kalender-Layout konnte nicht gespeichert werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub LoadCalendarLayout() + Try + SchedulerControl1.RestoreLayoutFromXml(XMLPath) + Catch notFoundEx As System.IO.FileNotFoundException + MsgBox("Das Kalender Layout konnte nicht gefunden werden. Es wird beim Schließen der Form angelegt.", MsgBoxStyle.Information) + Catch ex As Exception + MsgBox("Das Kalender Layout konnte nicht geladen werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub SchedulerControl1_EditAppointmentFormShowing(sender As Object, e As DevExpress.XtraScheduler.AppointmentFormEventArgs) Handles SchedulerControl1.EditAppointmentFormShowing + Dim scheduler As DevExpress.XtraScheduler.SchedulerControl = CType(sender, DevExpress.XtraScheduler.SchedulerControl) + Dim form As DD_Record_Organiser.frmCustomAppointment = New DD_Record_Organiser.frmCustomAppointment(scheduler, e.Appointment, e.OpenRecurrenceForm) + Try + e.DialogResult = form.ShowDialog + e.Handled = True + Finally + form.Dispose() + End Try + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConfig_Basic.Designer.vb b/app - Kopie/DD-Record-Organiser/frmConfig_Basic.Designer.vb new file mode 100644 index 0000000..6e6a711 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConfig_Basic.Designer.vb @@ -0,0 +1,415 @@ + _ +Partial Class frmConfig_Basic + 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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.chkbxUserAut = New System.Windows.Forms.CheckBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbDatenbank = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtActualConnection = New System.Windows.Forms.TextBox() + Me.txtServer = New System.Windows.Forms.TextBox() + Me.txtUser = New System.Windows.Forms.TextBox() + Me.txtPasswort = New System.Windows.Forms.TextBox() + Me.BtnConnect = New System.Windows.Forms.Button() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.CheckBoxWD_ShowEnitityDocs = New System.Windows.Forms.CheckBox() + Me.chkbxloadWDDocs = New System.Windows.Forms.CheckBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtwdSearch_Count = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.chkboxQuickMenue = New System.Windows.Forms.CheckBox() + Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnApplicationFolder = New System.Windows.Forms.Button() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.SuspendLayout() + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl1.Location = New System.Drawing.Point(0, 0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(695, 395) + Me.TabControl1.TabIndex = 0 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.chkbxUserAut) + Me.TabPage1.Controls.Add(Me.Label5) + Me.TabPage1.Controls.Add(Me.cmbDatenbank) + Me.TabPage1.Controls.Add(Me.Label4) + Me.TabPage1.Controls.Add(Me.Label1) + Me.TabPage1.Controls.Add(Me.Label2) + Me.TabPage1.Controls.Add(Me.Label3) + Me.TabPage1.Controls.Add(Me.txtActualConnection) + Me.TabPage1.Controls.Add(Me.txtServer) + Me.TabPage1.Controls.Add(Me.txtUser) + Me.TabPage1.Controls.Add(Me.txtPasswort) + Me.TabPage1.Controls.Add(Me.BtnConnect) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(687, 369) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Datenbank-Verbindung" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'chkbxUserAut + ' + Me.chkbxUserAut.AutoSize = True + Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36) + Me.chkbxUserAut.Name = "chkbxUserAut" + Me.chkbxUserAut.Size = New System.Drawing.Size(170, 17) + Me.chkbxUserAut.TabIndex = 47 + Me.chkbxUserAut.Text = "Windows-Authentifizierung" + Me.chkbxUserAut.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(5, 115) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(150, 13) + Me.Label5.TabIndex = 46 + Me.Label5.Text = "Aktueller ConnectionString:" + ' + 'cmbDatenbank + ' + Me.cmbDatenbank.FormattingEnabled = True + Me.cmbDatenbank.Location = New System.Drawing.Point(8, 82) + Me.cmbDatenbank.Name = "cmbDatenbank" + Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21) + Me.cmbDatenbank.TabIndex = 39 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(5, 62) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(67, 13) + Me.Label4.TabIndex = 44 + Me.Label4.Text = "Datenbank:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(5, 14) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(74, 13) + Me.Label1.TabIndex = 41 + Me.Label1.Text = "Server-Name:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(299, 14) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(84, 13) + Me.Label2.TabIndex = 42 + Me.Label2.Text = "Benutzername:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(423, 14) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(56, 13) + Me.Label3.TabIndex = 43 + Me.Label3.Text = "Passwort:" + ' + 'txtActualConnection + ' + Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtActualConnection.Location = New System.Drawing.Point(8, 135) + Me.txtActualConnection.Name = "txtActualConnection" + Me.txtActualConnection.ReadOnly = True + Me.txtActualConnection.Size = New System.Drawing.Size(547, 22) + Me.txtActualConnection.TabIndex = 45 + ' + 'txtServer + ' + Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText + Me.txtServer.Location = New System.Drawing.Point(8, 34) + Me.txtServer.Name = "txtServer" + Me.txtServer.Size = New System.Drawing.Size(288, 22) + Me.txtServer.TabIndex = 36 + ' + 'txtUser + ' + Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText + Me.txtUser.Location = New System.Drawing.Point(302, 34) + Me.txtUser.Name = "txtUser" + Me.txtUser.Size = New System.Drawing.Size(118, 22) + Me.txtUser.TabIndex = 37 + ' + 'txtPasswort + ' + Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText + Me.txtPasswort.Location = New System.Drawing.Point(426, 34) + Me.txtPasswort.Name = "txtPasswort" + Me.txtPasswort.Size = New System.Drawing.Size(64, 22) + Me.txtPasswort.TabIndex = 38 + Me.txtPasswort.UseSystemPasswordChar = True + ' + 'BtnConnect + ' + Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go + Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.BtnConnect.Location = New System.Drawing.Point(302, 82) + Me.BtnConnect.Name = "BtnConnect" + Me.BtnConnect.Size = New System.Drawing.Size(253, 25) + Me.BtnConnect.TabIndex = 40 + Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen" + Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.BtnConnect.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox3) + Me.TabPage2.Controls.Add(Me.GroupBox2) + Me.TabPage2.Controls.Add(Me.GroupBox1) + Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly) + Me.TabPage2.Controls.Add(Me.Button1) + Me.TabPage2.Controls.Add(Me.btnApplicationFolder) + Me.TabPage2.Controls.Add(Me.LinkLabel1) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(687, 369) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Diverse Einstellungen" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.CheckBoxWD_ShowEnitityDocs) + Me.GroupBox2.Controls.Add(Me.chkbxloadWDDocs) + Me.GroupBox2.Controls.Add(Me.Label6) + Me.GroupBox2.Controls.Add(Me.txtwdSearch_Count) + Me.GroupBox2.Location = New System.Drawing.Point(14, 6) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(277, 115) + Me.GroupBox2.TabIndex = 10 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Windream-Einstellungen" + ' + 'CheckBoxWD_ShowEnitityDocs + ' + Me.CheckBoxWD_ShowEnitityDocs.AutoSize = True + Me.CheckBoxWD_ShowEnitityDocs.Location = New System.Drawing.Point(10, 86) + Me.CheckBoxWD_ShowEnitityDocs.Name = "CheckBoxWD_ShowEnitityDocs" + Me.CheckBoxWD_ShowEnitityDocs.Size = New System.Drawing.Size(265, 17) + Me.CheckBoxWD_ShowEnitityDocs.TabIndex = 6 + Me.CheckBoxWD_ShowEnitityDocs.Text = "Windream-Suche bei Entitätswechsel auslösen" + Me.CheckBoxWD_ShowEnitityDocs.UseVisualStyleBackColor = True + ' + 'chkbxloadWDDocs + ' + Me.chkbxloadWDDocs.AutoSize = True + Me.chkbxloadWDDocs.Location = New System.Drawing.Point(10, 21) + Me.chkbxloadWDDocs.Name = "chkbxloadWDDocs" + Me.chkbxloadWDDocs.Size = New System.Drawing.Size(184, 17) + Me.chkbxloadWDDocs.TabIndex = 0 + Me.chkbxloadWDDocs.Text = "windream-Suche direkt starten" + Me.chkbxloadWDDocs.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(7, 41) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(209, 13) + Me.Label6.TabIndex = 3 + Me.Label6.Text = "max. Ergebnissanzahl windream-Suche:" + ' + 'txtwdSearch_Count + ' + Me.txtwdSearch_Count.Location = New System.Drawing.Point(10, 57) + Me.txtwdSearch_Count.Name = "txtwdSearch_Count" + Me.txtwdSearch_Count.Size = New System.Drawing.Size(61, 22) + Me.txtwdSearch_Count.TabIndex = 5 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.chkboxQuickMenue) + Me.GroupBox1.Location = New System.Drawing.Point(14, 129) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(233, 53) + Me.GroupBox1.TabIndex = 9 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Menü-Einstellungen" + ' + 'chkboxQuickMenue + ' + Me.chkboxQuickMenue.AutoSize = True + Me.chkboxQuickMenue.Location = New System.Drawing.Point(6, 21) + Me.chkboxQuickMenue.Name = "chkboxQuickMenue" + Me.chkboxQuickMenue.Size = New System.Drawing.Size(189, 17) + Me.chkboxQuickMenue.TabIndex = 8 + Me.chkboxQuickMenue.Text = "Quick-Menü (Buttons) anzeigen" + Me.chkboxQuickMenue.UseVisualStyleBackColor = True + ' + 'chkLogErrorsOnly + ' + Me.chkLogErrorsOnly.AutoSize = True + Me.chkLogErrorsOnly.Location = New System.Drawing.Point(349, 17) + Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly" + Me.chkLogErrorsOnly.Size = New System.Drawing.Size(105, 17) + Me.chkLogErrorsOnly.TabIndex = 7 + Me.chkLogErrorsOnly.Text = "Log Errors Only" + Me.chkLogErrorsOnly.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(481, 73) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(198, 23) + Me.Button1.TabIndex = 6 + Me.Button1.Text = "Open Log-Folder" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnApplicationFolder + ' + Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnApplicationFolder.Location = New System.Drawing.Point(481, 44) + Me.btnApplicationFolder.Name = "btnApplicationFolder" + Me.btnApplicationFolder.Size = New System.Drawing.Size(198, 23) + Me.btnApplicationFolder.TabIndex = 2 + Me.btnApplicationFolder.Text = "Open AppFolder User" + Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnApplicationFolder.UseVisualStyleBackColor = True + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LinkLabel1.Location = New System.Drawing.Point(478, 15) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(201, 17) + Me.LinkLabel1.TabIndex = 1 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Link zu Support-Tool Digital Data" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.CheckBox1) + Me.GroupBox3.Location = New System.Drawing.Point(14, 188) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(665, 98) + Me.GroupBox3.TabIndex = 11 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Formularaufrufe:" + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Checked = Global.DD_Record_Organiser.My.MySettings.Default.User_Calendar_isChild + Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organiser.My.MySettings.Default, "User_Calendar_isChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CheckBox1.Location = New System.Drawing.Point(10, 21) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(184, 30) + Me.CheckBox1.TabIndex = 0 + Me.CheckBox1.Text = "Kalender als Child aufrufen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Eingebettet in Hauptformular)" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'frmConfig_Basic + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(695, 395) + Me.Controls.Add(Me.TabControl1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmConfig_Basic" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "User-Grundeinstellungen" + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents chkbxUserAut As System.Windows.Forms.CheckBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents cmbDatenbank As System.Windows.Forms.ComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox + Friend WithEvents txtServer As System.Windows.Forms.TextBox + Friend WithEvents txtUser As System.Windows.Forms.TextBox + Friend WithEvents txtPasswort As System.Windows.Forms.TextBox + Friend WithEvents BtnConnect As System.Windows.Forms.Button + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents chkbxloadWDDocs As System.Windows.Forms.CheckBox + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button + Friend WithEvents txtwdSearch_Count As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents chkboxQuickMenue As System.Windows.Forms.CheckBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents CheckBoxWD_ShowEnitityDocs As System.Windows.Forms.CheckBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmConfig_Basic.resx b/app - Kopie/DD-Record-Organiser/frmConfig_Basic.resx new file mode 100644 index 0000000..7221ed3 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConfig_Basic.resx @@ -0,0 +1,500 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA + IACoJQAAHh0AACAgAAABACAAqBAAAMZCAAAQEAAAAQAgAGgEAABuUwAAKAAAADAAAABgAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADNZ2cA0WtrANRubgDWcHAA2XNzANt1dQDdd3cA4Hp6AOJ8 + fADlf38A54GBAOmDgwDshoYA5oSDAO6IiADJc3MA8IqKAPKMjADriYgA9Y+PAPeRkQD5k5MA2YCAAMt4 + eAD8lpYA/piYAM17ewD/mpoA/5ycAP+engDzlpYA/6CgAKlqagD/oqIA5pKSAI9cXAD/paUA0IeHAP+n + pwD/qakAmGVlAP+rqwD/rq4AxYaGAP+wsADnn58ArHd3AP+ysgD/tLQA6KSkAP+2tgD9tbQA+7SzAH5a + WgD/uLgAs4KCAKZ5eQD/u7sAq35+AP+9vQCYcXEA/7+/AP/BwQCziYkA/8TEAP/GxgDRoqIAgmVlANys + rACKbGwAt5CQAP/KygDEoKAA3ba2ALmamgBnVlYAdGNjAFxUVACwoaEAy7y8AFNNTQCemZkAqKSkAKGe + ngBqaWkA03FvANl5dwDlg4EA3H58AOmHhQDriYcA9JKQAPOSkADdj4wAtHVzAOucmQD0pqMA76WiAMCE + gwD2trQA56upAPy/vgD7wb8AzHFtANJ6dgDXfnoA24R/AOGHgwDiiYUAzH97APWalgDrlZAA86qmAPSt + qgD3sa4AuY2LAPW9ugDmtrQAzq2rAIt2dQB7a2oAloOCAM9+dwDlkIoA752XAOqjnQDzubUAvJWSALCQ + jQDajoYA7bu1AOSckwCojIgAxK6rAMiDeADMiX0A0o2CAN6ZjgDXlIkA3ZyQAOKroQDptKsA1pqNAN2l + mQC3j4cAwqKbAK+TjQDJq6UAya6pANKVhwDBmY8A0ZmKANSejwDbrJ8Ay6GVALmbkwDGp54Ay5eHAM+b + iwDRn48A1aSVALORhgDDn5QAvpuQAL+spgDGlIIAzZ6NANSqnADHppoAxKOYAMGhlgC+oJUAyaqfAMqs + ogDKrqQAyJyKAM2ikADPp5cAyaeZAMWjlgDJqJsArKCbAK+qqADFmYYAyZ+MANWyowDEpZcAza2fAM2w + owCompQAxZ2JAMmkkQDJqJgAza6eAKOKfgDPsaIAz7KkAJWRjwCWlJMAx6GNAMmjjwDHoo4AyKaTAMqp + lgDIp5UAza2bAMytnADLrJsAxqiXANCxoADQsqEA0LKiAM+xoQC4qJ8Awp+JAMShjADDoIsAw6GMAMak + jwDEoo0AxaOPAMalkADHppIAyqmVAMmolADLq5cAy6uYAMysmQDNrpsAza6cAM+wngDOr50A0bSiANO2 + pQB7cWoAmJiYAJSUlACSkpIAjo6OAIyMjACAgIAAfHx8AHp6egB3d3cAdHR0AG9vbwBjY2MAXl5eAFxc + XABbW1sAWFhYAFVVVQBTU1MATExMAAAAAAD/////////////////////////////VPX9+FXx7/////// + ////////////////////////////////////////7+/17u++w3ZKd0t6Ve////////////////////// + /////////////////////8esk3ZJ+5Po2UhISEhIee////////////////////////////////////// + //+3rKh1QkJCeYXOwEJCQkJChe//7+/08e///////////////////////////////6zR10JCQkJCdqPi + skJCQkJCgfW2w6RFTPfv/////////////////////////////5Ln3INBQUFBQYPhmkFBQUFBQ3nQsmdB + QXj77f///////////////////////////6zq35o/Pz8/Pz9mPz8/Pz8/drPAfz8/Pz9H+f////////// + /////////////6zs8ay14sk+Pj4+Pj4+Pj4+Pj4+Pj51Pj4+Pj4+eP//////////////////////rKyi + Q03D6NpkPDw8PDw8PDw8PDw8PDw8PDw8PDxk7/////////////////////+swslkOjpluslkOjo6Ojo6 + Ojo6Ojo6Ojo6Ojo6OjqA7/////////////////////+s4I03Nzc3N2Q3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3 + Nzd4/////////////////////4bSyjUzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzP+7//v7/L///// + /////////6vMoTExMTExMTExMTExMTE0jo6omo1zMTExMTExMTE7Tnh0MkT1/////////////8XOynIw + MDAwMDAwMDAwMEr/////rdDLoXIwMDAwMDAwczAwMDL97/////////////+148hyLS0tLS0tLS1yUP// + //////+p5d2QLS0tLS0tLS0tLS1G9f//////////////s+PIcSsrKysrKytP////////////ndLeoSsr + KysrKysrKysu+////////////////9XMvyoqKioqKkD//////////////53S3ZAqKioqKioqKioqev// + ////////////U5zjoCgoKCgoYVL///////////////+d5dliKCgoKCgoKChi////////////xus7OX5h + YScnJycnOP//////////////////xOCnJycnJycnJzL/////////////ztclJSUlJSUlJSUlef////// + ////////////gOfcfiUlJSUlY/////////////+R5LkiIiIiIiIiIiIi9v///////////////////9Xh + mSIiIiIiRO7///////////+R46AgICAgICAgICBe8////////////////////6rO1yAgICAgL/727P// + //////+R46AeHh4eHh4eHh4m9P///////////////////5XS3H0eHh4eHiMvTPz0//////+R5NcdHR0d + HR0dHR0m9//////////////////////p3oQdHR0dHR0dHR/7//////+k5tyEbxwcHBwcHBwf+/////// + ///////////////q34ocHBwcHBwcHBz7////////paXBzLGMbxoaGhoaTv/////////////////////q + y4oaGhoaGhoaGhr7////////////pbPgnxkZGRkZRPD////////////////////q3ooZGRkZGRkZGRn6 + /////////////6TksBYWFhYWX/j////////////////////p23AWFhYWFhYWFhby////////////U6un + XBUVFRUVFVHs///////////////////n2V0VFRUVFRUVXWD///////////++448UFBQUFBQUFCH4//// + /////////////6vjmBQUFBQUY9b//////////////6XNixISEhISEhISEhJM9P///////////////9Db + fBISEhISNvP/////////////perflhEREREREREREREXUfH/////////////nOSYERERERERG/7t//// + /////////6PjvxMPDw8PDw8PDw8PG1Hy//////////+lz6dbDw8PDw8PDyH97f///////////5XS24IN + DQ0NDQ0NDQ0NDRhO+P///////7e7p1oNDQ0NDQ0NDQ0h/f////////////+8zLgMDAwMbWwMDAwMDAwM + KU779e7seqSLDgwMDAwMDAwMDAwMIf////////////+U0tuJI6Wb4r9YCwsLCwsLCwsQKSlfXgsLCwsL + CwsLCwsLCwsLPf//////////////0tIj//+l0txrCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgpZVP// + //////////////////+szrgJCQkJCQkJCQkJCQkJCQkJCQkJCQmCnmsJCQkv//////////////////// + //+14YkICAgICAgICAgICAgICAgICAgICAiXnt6uWRf//////////////////////6XT3WoHBwcHBwcH + BwcHBwcHBwcHBwcHBwc2eq6urv///////////////////////5LOuAYGBgYGBleIVwYGBgYGBgYGBgYG + BgYh+P///////////////////////////6Pkv2kFBQUFBajLiAUFBQUFBYmIBQUFBQUFTv////////// + //////////////////+15L97BAQEO7TMpgQEBAQEauXZaQQEBAQERP////////////////////////// + ////rujdiFYs/6PkuAMDAwMDENTMpgMDAwMDbv///////////////////////////////3e9vb3//5Ll + 1wICAgICJIHT3ocCAmhu/////////////////////////////////////////6/n2GgCAgICKYGdztlu + bv///////////////////////////////////////////6/T24doAQEBgf////////////////////// + //////////////////////////////+vr6+vr6+v//////////////////////////////wH//8AAP// + AAP//wAA//wAA///AAD/8AACD/8AAP/gAAAH/wAA/+AAAAP/AAD/4AAAA/8AAP8AAAAD/wAA/gAAAAP/ + AAD8AAAAA/8AAPwAAAAH/wAA+AAAAAI/AAD4AAAAAB8AAPgAB4AADwAA/AAP4AAPAAD+AB/wAA8AAP8A + P/gADwAA/gA//AAfAADwAH/+AD8AAPAAf/4AfwAA4AB//wA/AADgAH//AA8AAOAAf/8AAwAA4AB//4AD + AADgAH//gAMAAPAAf/+AAwAA/gA//4ADAAD/AD//gAMAAP4AH/+ABwAA/AAf/wA/AAD4AA//AD8AAPAA + B/4AHwAA+AAD/AAPAAD4AAH4AA8AAPwAAAAADwAA/AAAAAAPAAD+MAAAAA8AAP/wAAAAHwAA//AAAAA/ + AAD/4AAAAH8AAP/gAAAD/wAA/+AAAAP/AAD/8AAAA/8AAP/4EAAD/wAA//wwAAf/AAD///AAH/8AAP// + 8Af//wAA///4D///AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH9s + bQDRZmcA2W9wANdubwDTbG0A13BxANtzdADfdncA43l6AOV9fgDmfn8A6oKDAO6FhgD3i40A9oyNAPWN + jgC6bG0A/JOUAPuTlAD9nZ4A/6GiAP+lpgD/tbYA/7m6AP+6uwD/vb4A/8PEAP/FxgDVa2sA2HFxANVx + cADgd3cA2nR0AN54eADie3sA4Xt7AOWAfwDlf38A439+AOmDgwDlgIAA7oaGAOWCgQDjgIAA3Hx8AOyG + hgDphIQA8ImJANt+fQDwiooA7YqJAOeGhQDIdHMA9I6OAOuIiAD4kZEA/JSUAPuUlAD3kZEA9pOSAP2Y + lwD+mJgA6oyMAP+bmwD/np4A/6GhALh0dAD/paUArG9vAP+npwCfaGgA/6ioAP+srAD+q6sA+qqpAP+u + rgCvd3cA/6+vANuWlgDChoYA/rCwAO2kpAD/srIA76moAIVdXQD/tLQA9q2tAP+1tQD/trYAoXNzAI9n + ZwD/ubkA1pubAK9/fwD/vLwApXp6AOWrqwDVn58A/8DAAP2+vgCGZWUAfl9fAP/DwwCogIAAtYuLAP3E + xAD/x8cAjG1tAHRbWwD/ysoA/83NAJN3dwB5ZGQAiHFxAN25uQCrkJAAdGVlAF5SUgCjkpIAqJmZAGxn + ZwBeWloAioWFAIOAgABnZmYAZmVlAFZVVQClpKQAzmxqANJvbQDYdXMA2Hh2AOWGgwDskY4A+52aAPaa + lwDqlZIA4JWSAPynpQDRjYsA252cAPazsQD4t7UAyJWUAP2+vQD+wL8A3KqpAPnFwwDgtLMArI2MANF5 + dADbhH8A44uGAPOWkgDyqqYA+K+sAPmzsADVgXsA3IuFAOqinADuqaMA7rizAPK9uQCIbmwAinx7AG9k + YwDgk4sA6JuTAPCzrQCNengA042DAMqGfQDRk4oAt5uXAJqTkgDSkIUAy4yCAOWtpADIpJ4A5rasAJR/ + ewDFrKcAuqypAN+rngC4kokAxqmiANihkgCXhH8AyZSEANSgkADMmooA1qOUAMKnnwCpmZQAyZiHANGf + jgDRoZEAz6KSAMegkgDUq5wA0LSqAKeUjQC+mowAzaueALOWiwDGp5oAyKyhAMqvpACjjYQAyqCNAM6l + kgDOqZgAwJ6PAMirngC+pJkAzaeUANCrmADLp5UAwqKSAMamlgCfhnkAs5iLAMClmADEqp0AZGJhAM6p + lQDEpJIAyq6eAM6tmQDLrZoAyauZAMeqmQDKrZwAwaaWAMOrnQDJqpYAy6+dAMGmkgDHrJgAwaqZAJKR + jwCbm5sAmJiYAJSUlACTk5MAjIyMAIaGhgCEhIQAfX19AGpqagBlZWUAYGBgAFxcXABYWFgAAAAAAP// + ////////////////8/P49vP///////////////////////////////N8+fPKrnS8efP///////////// + //////////////O8s5WmzdSUbm619fPz////////////////////////3KNra5PcyGprb3B5vJZ1+v// + /////////////////9flohxnG7S0G2drkN20G6Jyff////////////////97qu64Z2NjY2NjY2OSopFj + Y2Sl////////////////3pNp3MgZX19fX19fX18aGl9fYa///////////////+OyGBmPjlxcXFwYGBkY + XFxcXFxp9v////////////+62Z1ZWFlZWFhZVo6pqZ1ZF1hYWGh6pXB+/////////8/Zm1ZTU1NTU1dz + ///J1LicU1NTV41UUXH4/////////87Ym05MTExSt///////0NihTkxMTE5MkH3//////////+DTS0lJ + Spb/////////5NibSUlJSUlLeP///////68BubiLSEhPgP//////////6MBGSEhISGL/////////xUYW + FkRERGD////////////Q7KAWRERegP///////9vAQkJCQkJCcf/////////////muxVCQmb79f////// + 1btBQUFBQUF1/////////////9bTFEFBiU1lff/////OxYdAQEBAQG3/////////////uuKIQEBAQED+ + ////////zMCoPT4+W/b///////////+22Zo+Pj4+Pv3/////////19OaOTpD+////////////8HiPDo6 + OhIT+P///////7fLiTs7Oz929P//////////3744OziGiqD/////////x4YPNjY2NkX99P/////////v + pxA2DqTx/////////+jEMDIyMjIyN1X89P//////rsUzMjIwR3/y////////uuyZDSoNKi4uL1V/9/// + /8LGmSouLi4qR/z/////////560MNKefDCgoKBFtf+G1rYUMKCgoKCgrbP/////////k5OTk8L8nJiYm + KSwtMSsLCyYmJgoLJTF3/////////////+TqsAkkJCQkJCQjIyQkJAmfXZgjUP//////////////5Nqe + CCIiCAgiIiIiCCIiIEPRXV3////////////////P0oMHISGrniEhISGEISEhEXr///////////////// + /+TmsR8DQ+29BgYEntKXAwYepP///////////////////+Tkv4z/68OCBR018L0FBTVd//////////// + ///////////////g0oECAlq35qxd/////////////////////////////+TpsbGt//////////////// + /////B///8AP//8AA///AAD//gAAf/wAAH/4AAB/8AAAf+AAAA/gAwAH8AfAB/gP4AfgD/AP4B/wD8Af + +AfAH/gDwB/4A/AP+AP4D/gD8Af4B/AD+A/gAfAH4ADgB/AAAAfwAAAH/gAAD/4AAB/+AAB//gAAf/8I + AH//+AH///g//ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZAMSU + lADFlpYAw5SUAMycnAC7j48Auo6OALKIiADOnp4Av5OTALeNjQCziooAsomJALqQkADNoKAAu5KSAKuF + hQDQo6MAo4CAALWPjwCae3sAkXR0ANasrACYenoAk3Z2AI9zcwCnh4cAiG5uANOsrADOqKgAiG9vANCq + qgCJcHAAtZWVAMWlpQCzlpYAknt7AKeNjQCxmJgAppCQALegoACkkZEAuKSkAJyMjACYiIgAZ2FhAFJO + TgBjX18AYl5eAJ+fnwCYmJgAkZGRAImJiQCDg4MAgoKCAICAgAB5eXkAc3NzAG5ubgBtbW0AZ2dnAGVl + ZQBkZGQAX19fAF5eXgBWVlYAU1NTAE9PTwBNTU0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARkZGRkZG + RjVDNEZGRkZGRkZGRkYtQCIBGT0sQThGRkZGRkYPAR8MAQ0WAQY7RkZGRkY5EAEBAQEBAQEIRDw5RkYF + Cw0BAQEgAQEBAwgEMEZGAQEBASlGRkZGAQEBASpGRiQBASVGRkZGRkYBASE+Nx4OAQQ6RkZGRkZGCQEN + E0MBAQERP0ZGRkZGRh4BAQEzHh4BAkUyRkZGRkYBAREmRkYjAQEcQjNGRkYnAQEVMUZGAQEBARovQi4Y + AQEBAShGRhceDwEBAQEBAQEHGwFGRkZGRhIBAQEBAQEBCjZGRkZGRkYXAR4dARQrAQFGRkZGRkZGRkZG + FwEBRkZGRkZGRv4//7rwB1lY4AdYWMABjqmAAVkXg8FYaIfgcH4H4P//B+D/zwPhVlOBwVNTgAH//4AD + uJzgB1NX4A9Rcfx///8oAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAkAAAAPAAAAFQAAABAAAAADAAAAKgAAAGAAAACLAAAArAAAAKEAAACUAAAAfwAAAF0AAAAYAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAQAAAAJwAAAEwAAABxAAAAiwAAAG5ZRkJDhHFlr5Z8bOTnubT72a6u882kpO6xjo7lhWpq1hkU + FKYAAAA9AAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAADQAAADEdGRd3ZFRLxKODfeHjtLL2v5eX6gAAAKebeXLMzq+d/8Ogi///ysr//8rK///K + yv//ysr//8rK/1JBQcYAAABbAAAADAAAAAkAAAAPAAAAEwAAABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAKOS0qaZF3bNjTq57/87+7///Hx///x8f//8fH/2JMTNGlhn3uza2b/8mk + kf//x8f//8fH///Hx///x8f//8fH/5Z1ddoAAABrAAAAHwAAAEsAAABwAAAAiAAAAH0AAAA9AAAADQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACjfnd7xKWU98Ofiv//xsb//8bG///Gxv//xsb//8bG/+ay + svfFn5X/y6uX/9Cnl///xsb//8bG///Gxv//xsb//8bG/6N+fuAAAACLemdfoJJ6bNy6lInx2qio8j0v + L8gAAACdAAAAVAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIXRz7Ce/8Sijf/vubT//8TE///E + xP//xMT//8TE///ExP/rvbb/yaiU/9ytof//xMT//8TE///ExP//xMT//8TE/82enu5XREDMy6yb/86n + lv/7wb///8TE///ExP9yV1fXAAAApwAAAGsAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAADQAAABKSZ2V80rWk/8em + kv/brKD//8HB///Bwf//wcH//8HB///Bwf//wcH//L++///Bwf//wcH//8HB///Bwf//wcH//8HB/+au + rvfMppr/yaWS//O5tf//wcH//8HB///Bwf//wcH/sIWF5wAAAKMAAAAwAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAABDAAAAZwAA + AH8kGBiIyamb/8url//Joo///7+///+/v///v7///7+///+/v///v7///7+///+/v///v7///7+///+/ + v///v7///7+///+/v///v7//97q4//+/v///v7///7+///+/v///v7///7+//1xFRbIAAAAcAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACXNc + VoOIc2bUrYh87M6Zme1QOzvLoH938M6vnf/DoYz/87ay//+9vf//vb3//729//+9vf//vb3//729//+9 + vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3/9LW1+gAA + AHEAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABfFlXa82unv/Io5D/97a0//+7u///u7v/56up/9Wyo//Io4//97a0//+7u///u7v//7u7//+7 + u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7 + u///u7v/tISE4QAAAEUAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYOjocuZiM68mplf/gqp///7i4//+4uP//uLj//7i4//+4uP/3tLL//7i4//+4 + uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4 + uP//uLj//7i4//+4uP//uLj/aUxMwwAAAC0AAAADAAAACQAAAA8AAAAVAAAABwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGWbmqPz7Gg/8eijv/7tLP//7a2//+2tv//trb//7a2//+2 + tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2 + tv//trb//7a2//+2tv//trb//7a2//+2tv//trb/AAAAtQAAAGgAAAA6AAAATgAAAHEAAACCAAAASAAA + AAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIFWVhO+m5DxyqmW/9immP//tLT//7S0//+0 + tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//bW0/++1r//jsqf/1qqb/9uq + nf/kq6L/97Gu//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT/oXJy4yMeG75rUUzKsH584eej + o/ZjRUXPAAAAiwAAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDMrZ7wzK2a/8ei + jv/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv/Mj4+ghF1dHwAA + AAGZZmYwuZSLcsGekuDLrJv/yKeT/9KklP/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//ew + rf//srL//7Ky//+ysv/moaH3AAAArQAAAFEAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACkdXJgyaib/8urmP/HoY3/86yo//+wsP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/9amp+XpU + VGQAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAACug31gw6CU8M2um//Fo47/36ab//+wsP//sLD//7Cw//+w + sP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/c09P1QAAAIwAAAAbAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAApHVyYMinmf/Lq5j/xqCM//Oqpv//rq7//66u//+urv//rq7//66u//+u + rv//rq7/YEJCfwAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmELiSidDPsZ//xqWQ/9ej + lf//rq7//66u//+urv//rq7//66u//+urv//rq7//66u//+urv//rq7/5pyc9wAAAKcAAAA0AAAABgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAB5hsaWfPsaH/yqqW/8Weiv//q6v//6ur//+r + q///q6v//6ur//+rq/+gbGzMAAAAKAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm + ZhC4konQz7Gf/8Wjj//fpJn//6ur//+rq///q6v//6ur//+rq///q6v//6ur//+rq///q6v//6ur/2JC + QqcAAAAtAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMAAAArAAAARQAAAFu0kojty6uY/9Cg + kP//qan//6mp//+pqf//qan//6mp//SiovokGBhxAAAADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACZZmYgxKKW8M2um//DoYv/76Wg//+pqf//qan//6mp//+pqf//qan//6mp//+p + qf//qan/7p6e75BfX1UAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDEpJYNQQjnAmGRk15Zi + Ytnoo5//8qei//emo///p6f//6en//+np///p6f//6en/6dtbdsAAAA3AAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApHVyYM+xov/JqZX/zJ+N//+np///p6f//6en//+n + p///p6f//6en//+np//nl5flTTIyNQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvZyRt82t + m//Cnon//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl/0QsLLQAAAAcAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKJguDPsJ7/xKKN/+ui + m///paX//6Wl//+lpf//paX//6Wl/7R0dOEsHBxdAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAt4+H/8ysmf/Jn4z//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki/wAA + AI8AAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKR1 + cmDPsaH/yaiU/9Sej///oqL//6Ki//+iov//oqL//6Ki/2RAQMwAAABtAAAAIgAAAA0AAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///6Cg//+goP//oKD//6Cg//+goP//oKD//6Cg//+g + oP//oKD/2omJ8gAAAIUAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADAnZLwzK2a/8Kfif//oKD//6Cg//+goP//oKD//6Cg/6FlZeMAAACyAAAAkQAA + AGcAAAA3AAAAGwAAAAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///56e//+env//np7//56e//+e + nv//np7//56e//+env//np7/zoCA7QAAAIgAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxioOzz7Gf/8Sijf/vnZf//56e//+env//np7//56e//+e + nv/mj4/3oWRk4j8nJ8MAAACqAAAAiQAAABYAAAAAAAAAAAAAAAAAAAAAt4+H/8ysmf/Bnoj//5yc//+c + nP//nJz//5yc//+cnP//nJz//5yc//+cnP//nJz/zH197wAAAJsAAAAYAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACleXWD0bSi/8alkP/jm5L//5yc//+c + nP//nJz//5yc//+cnP//nJz//5yc//+cnP/zlZX7AAAApgAAABgAAAAAAAAAAAAAAAAAAAAAuZOK782u + nP/Eoo3/5JyT//Oalv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/85KS+wAAAKcAAAAlAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSYWFU07al/8em + kv/fmo///5qa//+amv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/AAAApwAAABgAAAAAAAAAAAAA + AAAAAAAAmWZmILCIgXLFpJiyyaiY/8qql//NopD/3ZyQ//eZlv/+mJj//piY//6YmP/+mJj//piY/xcO + DrQAAABGAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACQYGBE07em/8imkv/fmo///piY//6YmP/+mJj//piY//6YmP/+mJj//piY//6YmP/+mJj/AAAApwAA + ABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmEKh7d4DIp5n/yqmV/8+bi//8lpb//JaW//yW + lv/8lpb//JaW/2I6Os0AAABzAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACKXFxH07al/8elkf/dmI3//JaW//yWlv/8lpb//JaW//yWlv/8lpb//JaW//yW + lv/8lpb/AAAApAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2+mpD/zKyZ/8ic + iv/5k5P/+ZOT//mTk//5k5P/+ZOT/6xlZecAAACgAAAAKwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYa2l30bSi/8Wkj//rlZD/+ZOT//mTk//5k5P/+ZOT//mT + k//5k5P/+ZOT//mTk//5k5P/AAAAgwAAABUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFkg2 + NHTAoJH5zp+O//SSkP/3kZH/95GR//eRkf/3kZH/95GR//eRkf8VDQ26AAAAZwAAABIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmgXubz7Ce/8Ogi//zkpD/95GR//eR + kf/3kZH/95GR//eRkf/3kZH/95GR//OSkP/pkI3kAAAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAWb1ZSn8urmf/Wmo3/9Y+P//WPj//1j4//9Y+P//WPj//1j4//9Y+P//WPj/+bWlrjAAAAoQAA + AD8AAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa5lozny6yY/9GZ + iv/1j4//9Y+P//WPj//1j4//9Y+P/756duuWf3Gto4N2XY13ahcAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAmhg3qryKeV/9eWiv/yjIz/8oyM//KMjP/yjIz/8oyM//KMjP/yjIz/8oyM//KM + jP/yjIz/OiEhyQAAAIkAAAAuAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRO + TlTLq5z/xqSQ/+WQiv/yjIz/8oyM//KMjP/yjIz/8oyM/102NtAAAACFAAAAIgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZkZGLStaT/x6aS/9KVh//wior/8IqK//CKiv/wior/8IqK//CK + iv/wior/8IqK//CKiv/wior/2Hx89xUMDLwAAACAAAAALQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAADaqIf9TMrJn/0JiJ//CKiv/wior/8IqK//CKiv/wior/8IqK/8x1dfMAAACyAAAAawAA + AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDCnpP/y6yY/8Wdif/riYj/7oiI/+6I + iP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/8pzc/MUDAy7AAAAgwAAAD0AAAAQAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAMfF1Zh8ytnP/MnYz/64mH/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6I + iP+kXV3nAAAArQAAAGsAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACzi4Sx0LKg/8Wk + j//bjob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/IcXHzOCAgyAAA + AKAAAABjAAAAMAAAABYAAAANAAAADAAAABlLOTZuwqKU+Myejf/ph4X/7IaG/+yGhv/shob/7IaG/+yG + hv/shob/7IaG/+yGhv/shob/olxc5wAAAKwAAABWAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACZZmZAza2f/8qql//Gmof/6YOD/+mDg//pg4P/6YOD/+KJhf/hh4P/6YOD/+mDg//pg4P/6YOD/+mD + g//pg4P/6YOD/4VKSt8nFha9AAAApgAAAIsAAABtAAAAZ1hHQqq+moz61pKI/+aEg//pg4P/6YOD/+mD + g//pg4P/6YOD/+mDg//pg4P/6YOD/+mDg//pg4P/6YOD/5dVVdwAAABLAAAACQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAt5CIwNCxoP/GpI//1o2D/+F9fdXKdXWXy6GV/8url//EnYn/5YOB/+eB + gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/xW5u85JRUeGHS0varWto7N6OiP/ngYH/54GB/+eB + gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/3VBQb4AAAAlAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmMMmqnIKxlINJAAAABgAAAAAAAAAAr4yEmdCy + oP/Foo3/3YR//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/ + f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//23p6+iIT + E2oAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADsY2E2M2tm//Fmof/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8 + fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/2Y2G/8uXh//ZhH7/4nx8/+J8 + fP/ifHz/lFFRxAAAACcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAB3UFApyaia/8molP/OjYH/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6 + ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/wJeN+s6v + nf/GpZD/zZGD/9x+e//VdHTqPSEhOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACcdG970bOh/8Wjjv/Xfnr/3Xd3/913d//dd3f/3Xd3/913 + d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913 + d//dd3f/ZTY202tPTLTEopbjw6WTtreWgoipW1sqAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1kIfUza2b/8WZhv/bdXX/23V1/9t1 + df/bdXX/23V1/9t1df/Yenj/zol+/9l3dv/bdXX/23V1/9t1df/bdXX/23V1/9t1df/bdXX/23V1/9t1 + df/bdXX/23V1/9t1df/bdXX/olZW6wAAAKEAAAAlAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCn5T/zKyZ/8Sd + if/Uenb/2XNz/9lzc//Zc3P/2XNz/9lzc//TqJr/yKeT/8uKfv/Zc3P/2XNz/9lzc//Zc3P/2XNz/9lz + c//RjYP/zId9/9lzc//Zc3P/2XNz/9lzc//Zc3P/2XNz/xQKCrQAAABCAAAABwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACkdXJgyaib/8ysmf/Fnor/z353/9ZwcP/WcHD/1nBw/5FSUr/Fo5b/yqmW/8aSgf/WcHD/1nBw/9Zw + cP/WcHD/1nBw/9Z9ev/Nrpv/w6GL/9B6df/WcHD/1nBw/9ZwcP/WcHD/1nBw/1ovL74AAABJAAAACgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAroN+MMKglODOr53/xaOP/8mIfP/TcW//sVxcvgAAAB/Cn5T/y6yZ/8SY + hf/Ubm7/1G5u/9Rubv/Ubm7/1G5u/8lxcP/QsqL/yqmW/8WVg//Ubm7/1G5u/9Rubv/Ubm7/1G5u/5lP + T5sAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZhC1jIWvxqaX4b+fi6e4hXd4hkREGQAA + AAG7lYzhza6b/8Kfif/Ra2v/0Wtr/9Fra//Ra2v/0Wtr/3s/P9mhe3bV0LKh/8alkP/Ig3j/0Wtr/9Fr + a//MaGj1nVBQawAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAC1j4bCz7Ce/8ShjP/Mc27/0Gpq/9Bqav/Qamr/0Gpq/3U8PMY7JydTxKKW8M2t + m//DoIv/xnFs5b5hYYx8Pz8bAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIWQ0LKh/8akj//Hgnf/ynFs/81nZ//NZ2f/zWdn/39A + QGcAAAAKpnd0UMqunmSiiHkoAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC5koogvZmOgcSmlpS5lIjCw6OTxMWm + k7W2loN5pYZzOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4AAf//AAD/+AAB//8AAP/wAAAP/wAA/+AAAAf/ + AAD/4AAAA/8AAP/gAAAB/wAA/wAAAAD/AAD+AAAAAf8AAPwAAAAB/wAA+AAAAAH/AAD4AAAAAB8AAPAA + AAAADwAA8AAAAAAPAADwAAAAAAcAAPgAB8AABwAA/AAP4AADAAD4AA/wAAMAAPAAH/gABwAA4AAf/AAP + AADgAD/+AB8AAOAAP/4ABwAA4AA//wADAADgAD//AAEAAOAAP/8AAQAA4AAf/wABAADgAB//AAEAAPwA + H/8AAQAA/gAP/wABAAD8AA//AAMAAPgAB/4ABwAA8AAD/gAfAADwAAH8AA8AAPAAAHgABwAA+AAAAAAD + AAD4AAAAAAMAAPwAAAAAAwAA/DAAAAAHAAD/4AAAAAcAAP/gAAAADwAA/+AAAAAfAAD/4AAAAP8AAP/g + AAAA/wAA/+AAAAD/AAD/8AAAAf8AAP/4AAAD/wAA///wAAf/AAD///AAP/8AAP//8Af//wAAKAAAACAA + AABAAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAALAAAAEwAAABkAAAANAAAAPQAAAGcAAAB7AAAAcQAAAFgAAAAfAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAANAAAAKwAAAFkUEBCHAAAAgmFSSnyMc2rDsY6O4Z+AgN6AZmbTJB0drAAA + AE4AAAANAAAACwAAAA0AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAADTUrJ2R4YVjGxJ6X7t+xsPRIOTjIrY6C7c6pmP/5xcP//8vL///K + yv99Y2PTAAAAbAAAADoAAABVAAAAXwAAADgAAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBQUwihfXZ5xKKS9fK9uf//yMn//8fH/9moqPPGpJb91Kyd//3E + xP//x8f//83N/4ZjZOAnHhyseGVZw598eNxJOTnEAAAAlAAAAFEAAAAPAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAGa2KgMvOrZn/7bix///Fxv//w8P//8PE/+e3 + rv/qt6///8PE///Dw///x8f/wpOS8pl+cfDitKf//8PE/+21tflxVlbWAwICmgAAAC4AAAAFAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADh0ZFlcmHBuJZEpIvMGmkv7crqH//8LC///A + wP//wMD//8HB///AwP//wMD//8DA///AwP/+wL//77iy//2+vf//wMD//8DA//2+vv5QPDypAAAAJQAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASIbGWIq41+5tqioPKqfHzpxKWU/NSq + mv/+u7r//7y9//+8vP//vLz//7y8//+8vP//vLz//7y8//+8vf//vb7//729//+8vP//vLz/5Kio9Tgq + KoMAAAATAAAABQAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAelVUP8Skkv7lraT//7m6//+6 + u//4t7X/9bWx//+5uf//ubn//7m5//+5uf//ubr//7m6//+6u///ubr//7m5//+5uf//ubn//7m5//+5 + uf+vf3/hAAAAcgAAACwAAAA2AAAAPQAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAGwjIK+0auZ//my + r///trf//7W1//+2tv//trb//7W1//+1tf//trb//rS0//axsP/wtK7/8LGr//izsP//trf//7W2//+1 + tf//tbX//7W1/5xvb+EUEA+wUTs5rmxLS8EIBgaeAAAAQwAAAAcAAAAAAAAAAAAAAAAAAAAAl2NkBsCd + kNnPq5j/8a2n//+ztP//srL//7Ky//+ysv//srL//7Ky//esrPrGioqYxZGOTLePh2XBnZDDzqiY/96r + nv/4r6z//7Kz//+ysv//srL/9aqq+9mZmPTvqKf7/rCw/1U7O8sAAAB7AAAAFgAAAAAAAAAAAAAAAAAA + AACVX2EBoXNwRcGgkuvNqJX/8aql//+vr///rq7//66u//+urv/soaH3bUtLcwAAAA4AAAAAAAAAAAAA + AACsg3xYxKaW5M2mlP/uqaP//6+w//+urv//rq7//66v//+vr///rq7/x4iI7QAAAJkAAAApAAAABAAA + AAAAAAAAAAAAAAAAAAEAAAAXbVFPXL+llO3PpZP/+aqo//+srP//rKz//qur/4teXrYAAAAcAAAAAAAA + AAAAAAAAAAAAAAAAAAC5lIs8xaaW6M2nlP/0qKX//6yt//+srP//rKz//6ys//+srP/6qan8Vzo6hAAA + ABYAAAABAAAAAAAAAAAAAAAATEE7GEExLYZJLzC0tI2D8+KonP/8p6X//6io//+oqP/Zj4/vAAAAXgAA + AAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwhX9hx6qY/tWjlP/+p6f//6io//+oqP//qKj//6io/8mE + hMZAKiokAAAAAQAAAAAAAAAAAAAAAAAAAAC9oJCzz56P+P+np///pqb//6Wm//+lpf//paX//6Wl/5Nf + X9QAAAA9AAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZiYwK5k4rAyKqV/+uimv//pab//6Wl//+l + pf+haWnaBgQEWQAAABYAAAAIAAAAAAAAAAAAAAAAAAAAAMKikv/WopP//6Gh//+hof//oaH//6Gh//+h + of//oaH/TDExvwAAADUAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9xb1PLrpv/16CS//+h + ov//oaH//6Gh/2I9PdIAAACaAAAAbAAAAEUAAAAIAAAAAAAAAAAAAAAAwJ6P/9ihkv//np7//56e//+e + nv//np7//56e//+env9FKyu9AAAAOgAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAondzHcOj + lerNpJH//Z2e//+env//np7/6ZCQ+KVmZuNoQEDNAAAAlwAAABgAAAAAAAAAAAAAAADEo5T10qKR//ud + mv//mpr//5qb//+bm///m5v//5ub/0YqKsEAAABSAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACldnMQuJSJzM6plf/2mpf//5ub//+bm///m5v//5ub//+bm/8AAACnAAAAGAAAAAAAAAAAAAAAAL6Z + j1W+nY+qxZ6P3Najlf/om5P//ZiX//6YmP/+mJj/eEhI1AAAAHUAAAASAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAGsiICxz6uY//OXk///mJj//piY//6YmP/+mJj//piY/wAAAKMAAAAYAAAAAAAA + AAAAAAAAAAAAAAAAAAB2VlQuuJ2O6M2lkv/zlJH//JSU//qUlP+waGjoAAAAmwAAAC8AAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAhVxbDLGOhMfPqZX/9pOS//uUlP/6lJT/+5SU//yTlP/7k5T/AAAAewAA + ABMAAAAAAAAAAAAAAAAAAAAAAAAADGFPSXu8loj26ZeQ//eRkP/3kZH/95GR/+qKivslFRW8AAAAawAA + ABcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPb2keupyO6dSgkP/4kJD/95GR//iRkf/sj4393o2J7OWR + jNcAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAASUeHB0xZ2O9uuSjv/2jI3/9I6O//SOjv/0jo7/9I6O/6Nf + X+UAAACkAAAAUgAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAIRiX1vHrJj/4pSL//WNjv/0jo7/94uN/nFR + TNYdGxd7AAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAnmxsJ8OllfTRn47/74mJ//GKiv/wior/8IqK//CK + iv/wior/64eH/Wo9PdYAAACgAAAAVwAAABoAAAAHAAAAAQAAAAEAAAAXo4Z809Ghkf/tion/8YqK//CK + iv/wiYn/k1dW4wAAAKkAAABkAAAAFQAAAAAAAAAAAAAAAAAAAACXZGQCuJOJycqqlv/gi4b/7oWG/+2G + hv/uhYb/7YaG/+yGhv/shob/6YSE/nNCQtoAAACqAAAAeQAAAEMAAAAhAAAAJ4BoYazPopL/5oqG/+6G + hv/shob/7IaG/+yGhv/uhob/k1JT4gIBAaAAAAA4AAAABwAAAAAAAAAAAAAAAAAAAACidHJSyauZ/9CX + if/pgoL/54aF/92Siv/fioT/6oKD/+mDg//pg4P/6YOD/69iYutRLS3MCwYGrw4LCqR8YVnP0JGI/eWG + g//qgoP/6YOD/+mDg//pg4P/6YOD/+mDg//mgYH+YTY2uQAAAC4AAAAEAAAAAAAAAAAAAAAAAAAAAJlm + Zgi/m5CawqGOoMlzcFGycW9UwKaV986aiv/jf37/5X9//+V/f//lf3//5YCA/+N/f/7benr72nx7++SC + gf/mf3//5n5//+V/f//lf4D/5H9//+V9fv/mfn//5YB//9p6evpLKiqDAAAAEwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9jYT6/o5P40pCF/+N5ev/he3v/4Xt7/+F7e//he3v/4Xt7/+F7 + e//ie3v/4nt7/+F7e//he3v/4Xt7/+J5ev/ZjIb/0ZyN/9uEf//ienv/sGFhxAAAACUAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoH12lMunlf/WgXv/33Z3/954eP/eeHj/3nZ2/992 + d//eeHj/3nh4/954eP/eeHj/3nd3/954eP/eeHj/4Hd3/65paPCUe3Dcv5yL5MmCeqmJSkokAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJVpaA+6mYzQy6GO/9h1c//bc3T/2nR0/9p1 + df/TjYP/04F6/9p0dP/adHT/2nR0/9p1df/YeHb/2nR0/9p0dP/adHT/vGJj8hMLDK0AAAA6AAAABwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn25tCreQh5nLrZn/zI6B/9Vx + cP/Zb3D/t2Zm5sqtm/nIk4P/1nBw/9dwcf/Xbm//1oB8/8qgjv/ReXT/2G9w/9dxcf/YcXH/TyorrQAA + ADQAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmGRlAriS + in7GqJftx5SF9MNraMR7SUpOv6WW78mYh//Sb23/02xt/9Vra//AcnD4v6mX+smVhf/TbGz/021t/8lo + aO6FRUVlAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAMCckja+o5BAj1lTFAAAAAG/oZTqyZ+M/85sav/PZmb/0mZn/4VKSsWfgnmsy62a/8d+ + dfC9XV6eoFJSNwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu4B8AbqXjaLFpJLnxYZ88cp+d+zJe3PUmFdVS2xL + TBXGrZw0pXBmFwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/gAf//gAA//wA + AH/8AAA/+AAAH/AAAB/gAAAH4AAAA8AAAAPAAAADwAOAAcAHwAHAB+ADwAfgA8AH8AHAB/ABwAfwAcAH + 8AHwA/AB4APwA8AB8AfAAAADwAAAAeAAAAHgAAAD/gAAA/wAAAf8AAAf/AAAH/4AAD//gAB///AB/ygA + AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAA + AD0AAAAiAAAAdgAAAKwAAABuAAAAIgAAAD0AAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWJJ + SacAAACgoXl5ysyZmf+DYmLfAAAAmGRLS6MAAAChAAAAfwAAABUAAAAAAAAAAAAAAAAAAAABAAAAFseV + leTMmZn/dllZ3a+Dg/HMmZn/roOD8oJhYeHMmZn/uYuL9gAAAJEAAAAnAAAAFgAAAAEAAAABAAAAJQAA + AIa1iIjqzJmZ/8yZmf/MmZn/zJmZ/8yZmf/MmZn/zJmZ/66CgvMAAACwAAAAkgAAAIYAAAAniGZmGMmX + l/OyhYXuroOD8syZmf/MmZn/zJmZ/8OSksjMmZn/zJmZ/8yZmf/Ek5P5roKC88KSkvsTDg6pAAAARsyZ + mWDMmZn/zJmZ/8yZmf/MmZn/jWpqogAAABUAAAAAzJmZEMyZmYDMmZn/zJmZ/8yZmf/MmZn/dVhYqAAA + ACUAAAAQmXNzv8yZmf/MmZn/c1ZWxwAAACEAAAAAAAAAAAAAAAAAAAAAzJmZcMyZmf/MmZn/dllZ3AAA + AJoAAAB9w5KSt7SHh+vMmZn/wpKS+wAAAIwAAAASAAAAAAAAAAAAAAAAAAAAAAAAAADLmJjwzJmZ/66D + g/Kac3PoAAAArMyZmf/MmZn/zJmZ/6V8fO0AAACbAAAAIgAAAAAAAAAAAAAAAAAAAAAAAAABwZGRysyZ + mf/MmZn/zJmZ/wAAAGfMmZmAwZGRysyZmf/DkpL6AAAAsgAAAGAAAAAZAAAAAQAAAAAAAAADVD8/J8yZ + mf/MmZn/pXx87YlnZ78AAAAtgmJiGa+Dg7nMmZn/zJmZ/3ZYWN4AAACpAAAAZwAAACsAAAAcAAAAMZFt + bbTMmZn/zJmZ/45ra+QTDg6qAAAAT8qYmHHMmZn/zJmZ/8yZmf/MmZn/gWFh4hINDboAAACpJRwcsoZk + ZNrMmZn/zJmZ/8yZmf/MmZn/gGBgsgAAACXMmZkQzJmZz8OSkqbHlZXkzJmZ/8yZmf/MmZn/zJmZ/8yZ + mf/MmZn/zJmZ/7iKiveXcXHXxpSU1mBISCIAAAABAAAAAAAAAAAAAAABypeX4syZmf/MmZn/zJmZ/8yZ + mf/MmZn/zJmZ/8yZmf+8jY3yAAAAfAAAABkAAAABAAAAAAAAAAAAAAAAzJmZEMyZmc/MmZn/lnBwbcaU + lMXMmZn/rIGB44RjY5TMmZn/xZSU11ZAQCYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZMAAA + AATMmZmAzJmZ/7aJiX0AAAAKzJmZMAAAAAQAAAAAAAAAAAAAAAAAAAAA8AcAAOADAACAAAABAACCvgAA + mf8BAK//A8C3/wPgtf8DwLb/AIC2/wAAtf8AALX/AAC2/8ABtP/AA7D/8A+u/w== + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConfig_Basic.vb b/app - Kopie/DD-Record-Organiser/frmConfig_Basic.vb new file mode 100644 index 0000000..0c8cb84 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConfig_Basic.vb @@ -0,0 +1,138 @@ +Public Class frmConfig_Basic + + Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click + Try + Dim con As String + If chkbxUserAut.Checked Then + con = "Data Source=" & Me.txtServer.Text & ";Initial Catalog=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;" + Else + con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" + End If + + + Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString) + 'während Verbindungsaufbau Sanduhr-Mauszeiger + Cursor = Cursors.WaitCursor + connection.Open() + Cursor = Cursors.Default + 'DialogResult = Windows.Forms.DialogResult.OK + Dim result As MsgBoxResult + result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + 'Set the construction string + MyConnectionString = con 'csb.ConnectionString + My.Settings.Save() + If chkbxUserAut.Checked = False Then + Dim wrapper As New ClassEncryption("!35452didalog=") + Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text) + Dim pw As String = cipherText + con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";" + End If + SaveMySettingsValue("MyConnectionString", con) + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.ConnectionString = MyConnectionString + Dim constr = connection.ConnectionString + constr = constr.Replace(csb.Password, "XXXXX") + Me.txtActualConnection.Text = constr + End If + Catch ex As Exception + Cursor = Cursors.Default + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub cmbDatenbank_MouseClick(sender As Object, e As MouseEventArgs) Handles cmbDatenbank.MouseClick + Try + Me.Cursor = Cursors.WaitCursor + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.DataSource = Me.txtServer.Text + csb.IntegratedSecurity = False + csb.UserID = Me.txtUser.Text + csb.Password = Me.txtPasswort.Text + + Dim con As String + If chkbxUserAut.Checked Then + con = "Data Source=" & Me.txtServer.Text & ";Trusted_Connection=True;" + Else + con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" + End If + Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString) + connection.Open() + Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) + cmd.CommandType = CommandType.StoredProcedure + ' Ausführen und Ergebnis in einer ListBox anzeigen + Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + Do While dr.Read + cmbDatenbank.Items.Add(dr("Database_Name")) + Loop + cmbDatenbank.DroppedDown = True + Else + MsgBox("The standard-databases could not be retrieved. Check rights in sql-server for user: " & Me.txtUser.Text, MsgBoxStyle.Exclamation) + End If + connection.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:") + End Try + Cursor = Cursors.Default + End Sub + + Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + SaveMySettingsValue("WDResultListCount", txtwdSearch_Count.Text) + End Sub + + Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If Not MyConnectionString = String.Empty Then + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.ConnectionString = MyConnectionString + + Dim constr = MyConnectionString + constr = constr.Replace(csb.Password, "XXXXX") + Me.txtActualConnection.Text = constr + chkbxloadWDDocs.Checked = Sett_LoadWD_Docs + chkLogErrorsOnly.Checked = LogErrorsOnly + txtwdSearch_Count.Text = WDResultListCount + chkboxQuickMenue.Checked = Sett_ShowQuickMenue + CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs + End If + End Sub + + Private Sub chkbxloadWDDocs_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxloadWDDocs.CheckedChanged + Sett_LoadWD_Docs = chkbxloadWDDocs.Checked + SaveMySettingsValue("Sett_LoadWD_Docs", Sett_LoadWD_Docs) + End Sub + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + ' Specify that the link was visited. + Me.LinkLabel1.LinkVisited = True + ' Navigate to a URL. + System.Diagnostics.Process.Start("http://www.didalog.de/Support") + End Sub + + Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click + Process.Start(Application.UserAppDataPath()) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Process.Start(ClassLogger.DateiSpeicherort) + End Sub + + Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged + LogErrorsOnly = chkLogErrorsOnly.Checked + SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly) + End Sub + + Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged + Sett_ShowQuickMenue = chkboxQuickMenue.Checked + SaveMySettingsValue("Sett_ShowQuickMenue", Sett_ShowQuickMenue) + End Sub + + Private Sub CheckBoxWD_ShowEnitityDocs_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxWD_ShowEnitityDocs.CheckedChanged + WD_ShowEnitityDocs = CheckBoxWD_ShowEnitityDocs.Checked + SaveMySettingsValue("WD_ShowEnitityDocs", WD_ShowEnitityDocs) + End Sub + + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged + My.Settings.Save() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.Designer.vb b/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.Designer.vb new file mode 100644 index 0000000..71d9f2c --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.Designer.vb @@ -0,0 +1,198 @@ + _ +Partial Class frmConfiguration_Basic + 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.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtDelimiterVersion = New System.Windows.Forms.TextBox() + Me.txtDelimiterFile = New System.Windows.Forms.TextBox() + Me.txtwddriveletter = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.chkUnicode = New System.Windows.Forms.CheckBox() + Me.btnsave = New System.Windows.Forms.Button() + Me.lblSaveresult = New System.Windows.Forms.Label() + Me.CheckBox2 = New System.Windows.Forms.CheckBox() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(15, 18) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(235, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Trennzeichen für Versionierung der Dateien:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 18) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(167, 13) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Laufwerkbuchstabe Windream:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(15, 59) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(261, 13) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Trennzeichen zur Nutzung in Namenskonvention:" + ' + 'txtDelimiterVersion + ' + Me.txtDelimiterVersion.Location = New System.Drawing.Point(18, 34) + Me.txtDelimiterVersion.Name = "txtDelimiterVersion" + Me.txtDelimiterVersion.Size = New System.Drawing.Size(49, 22) + Me.txtDelimiterVersion.TabIndex = 4 + ' + 'txtDelimiterFile + ' + Me.txtDelimiterFile.Location = New System.Drawing.Point(18, 75) + Me.txtDelimiterFile.Name = "txtDelimiterFile" + Me.txtDelimiterFile.Size = New System.Drawing.Size(49, 22) + Me.txtDelimiterFile.TabIndex = 5 + ' + 'txtwddriveletter + ' + Me.txtwddriveletter.Location = New System.Drawing.Point(9, 34) + Me.txtwddriveletter.Name = "txtwddriveletter" + Me.txtwddriveletter.Size = New System.Drawing.Size(49, 22) + Me.txtwddriveletter.TabIndex = 7 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.txtDelimiterFile) + Me.GroupBox1.Controls.Add(Me.txtDelimiterVersion) + Me.GroupBox1.Location = New System.Drawing.Point(218, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(293, 105) + Me.GroupBox1.TabIndex = 8 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Allgemeine Funktionen:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.chkUnicode) + Me.GroupBox2.Controls.Add(Me.Label2) + Me.GroupBox2.Controls.Add(Me.txtwddriveletter) + Me.GroupBox2.Location = New System.Drawing.Point(12, 12) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(200, 105) + Me.GroupBox2.TabIndex = 9 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Globale windream-Einstellungen" + ' + 'chkUnicode + ' + Me.chkUnicode.AutoSize = True + Me.chkUnicode.Location = New System.Drawing.Point(9, 62) + Me.chkUnicode.Name = "chkUnicode" + Me.chkUnicode.Size = New System.Drawing.Size(117, 17) + Me.chkUnicode.TabIndex = 8 + Me.chkUnicode.Text = "Unicode-Version?" + Me.chkUnicode.UseVisualStyleBackColor = True + ' + 'btnsave + ' + Me.btnsave.Enabled = False + Me.btnsave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsave.Location = New System.Drawing.Point(12, 187) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(87, 22) + Me.btnsave.TabIndex = 10 + Me.btnsave.Text = "Speichern" + Me.btnsave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnsave.UseVisualStyleBackColor = True + ' + 'lblSaveresult + ' + Me.lblSaveresult.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSaveresult.AutoSize = True + Me.lblSaveresult.BackColor = System.Drawing.Color.Yellow + Me.lblSaveresult.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveresult.Location = New System.Drawing.Point(277, 192) + Me.lblSaveresult.Name = "lblSaveresult" + Me.lblSaveresult.Size = New System.Drawing.Size(234, 17) + Me.lblSaveresult.TabIndex = 78 + Me.lblSaveresult.Text = "Änderungen erfolgreich gespeichert!" + Me.lblSaveresult.Visible = False + ' + 'CheckBox2 + ' + Me.CheckBox2.AutoSize = True + Me.CheckBox2.Checked = Global.DD_Record_Organiser.My.MySettings.Default.User_DesignPanels_areChild + Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organiser.My.MySettings.Default, "User_DesignPanels_areChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CheckBox2.Location = New System.Drawing.Point(12, 135) + Me.CheckBox2.Name = "CheckBox2" + Me.CheckBox2.Size = New System.Drawing.Size(194, 30) + Me.CheckBox2.TabIndex = 79 + Me.CheckBox2.Text = "Design-Panels als Child aufrufen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Eingebettet in Hauptformular)" + Me.CheckBox2.UseVisualStyleBackColor = True + ' + 'frmConfiguration_Basic + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(697, 218) + Me.Controls.Add(Me.CheckBox2) + Me.Controls.Add(Me.lblSaveresult) + Me.Controls.Add(Me.btnsave) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmConfiguration_Basic" + Me.Text = "Grundeinstellungen Record Organizer" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtDelimiterVersion As System.Windows.Forms.TextBox + Friend WithEvents txtDelimiterFile As System.Windows.Forms.TextBox + Friend WithEvents txtwddriveletter As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents chkUnicode As System.Windows.Forms.CheckBox + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents lblSaveresult As System.Windows.Forms.Label + Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.resx b/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.vb b/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.vb new file mode 100644 index 0000000..b9ef822 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConfiguration_Basic.vb @@ -0,0 +1,79 @@ +Public Class frmConfiguration_Basic + Dim loaded As Boolean = False + Dim changes_ModuleKonfig As Boolean = False + Dim changes_Konfig As Boolean = False + Private Sub frmConfiguration_Basic_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim sql As String = "select * from TBDD_MODULES where NAME = 'Global-Indexer'" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + If Not dt Is Nothing Then + If dt.Rows.Count = 1 Then + Me.txtDelimiterVersion.Text = dt.Rows(0).Item("VERSION_DELIMITER") + Me.txtDelimiterFile.Text = dt.Rows(0).Item("FILE_DELIMITER") + Me.txtwddriveletter.Text = dt.Rows(0).Item("STRING1") + End If + End If + sql = "select * from TBPMO_KONFIGURATION where GUID = 1" + dt = ClassDatabase.Return_Datatable(sql) + If Not dt Is Nothing Then + If dt.Rows.Count = 1 Then + Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE") + End If + End If + Catch ex As Exception + MsgBox("Error in Form Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + loaded = True + End Sub + + Private Sub TextChanged_ModuleKonfig(sender As Object, e As EventArgs) Handles txtDelimiterFile.TextChanged, txtDelimiterVersion.TextChanged, txtwddriveletter.TextChanged + If loaded = True Then + changes_ModuleKonfig = True + btnsave.Enabled = True + End If + End Sub + + Private Sub chkUnicode_CheckedChanged(sender As Object, e As EventArgs) Handles chkUnicode.CheckedChanged + If loaded = True Then + changes_Konfig = True + btnsave.Enabled = True + End If + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + If changes_ModuleKonfig = True Then + Try + Dim sql As String = "UPDATE TBDD_MODULES SET VERSION_DELIMITER = '" & Me.txtDelimiterVersion.Text & "',FILE_DELIMITER = '" & Me.txtDelimiterFile.Text & "',STRING1 = '" & Me.txtwddriveletter.Text & "',CHANGED_WHO = '" & Environment.UserName & "' where NAME = 'Global-Indexer'" + If ClassDatabase.Execute_non_Query(sql, True) = True Then + lblSaveresult.Visible = True + Else + lblSaveresult.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save ModuleConfig: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + If changes_Konfig = True Then + Try + Dim wduni As Integer = 0 + If chkUnicode.Checked Then + wduni = 1 + End If + Dim sql As String = "UPDATE TBPMO_KONFIGURATION SET WD_UNICODE = " & wduni & ",CHANGED_WHO = '" & Environment.UserName & "' where GUID = 1" + If ClassDatabase.Execute_non_Query(sql, True) = True Then + lblSaveresult.Visible = True + Else + lblSaveresult.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save Config: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + + End Sub + + + Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged + My.Settings.Save() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConnections.Designer.vb b/app - Kopie/DD-Record-Organiser/frmConnections.Designer.vb new file mode 100644 index 0000000..152c672 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConnections.Designer.vb @@ -0,0 +1,664 @@ + _ +Partial Class frmConnections + 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 GUIDLabel As System.Windows.Forms.Label + Dim DESCRIPTIONLabel As System.Windows.Forms.Label + Dim COMMENTLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim SQL_PROVIDERLabel As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnections)) + Me.TBPMO_CONNECTIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.TBPMO_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBPMO_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.DESCRIPTIONTextBox = New System.Windows.Forms.TextBox() + Me.SERVERTextBox = New System.Windows.Forms.TextBox() + Me.USERNAMETextBox = New System.Windows.Forms.TextBox() + Me.PASSWORDTextBox = New System.Windows.Forms.TextBox() + Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() + Me.AKTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.btnCheck_Con = New System.Windows.Forms.Button() + Me.cmbInitialCatalog = New System.Windows.Forms.ComboBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CheckBoxwin_aut = New System.Windows.Forms.CheckBox() + Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox() + Me.lblSave = New System.Windows.Forms.Label() + Me.TBPMO_CONNECTIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONNECTIONTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.SQL_PROVIDERComboBox = New System.Windows.Forms.ComboBox() + Me.lblDataSource = New System.Windows.Forms.Label() + Me.lblInitialCatalog = New System.Windows.Forms.Label() + Me.lblUserId = New System.Windows.Forms.Label() + Me.lblPassword = New System.Windows.Forms.Label() + Me.DATABASETextBox = New System.Windows.Forms.TextBox() + GUIDLabel = New System.Windows.Forms.Label() + DESCRIPTIONLabel = New System.Windows.Forms.Label() + COMMENTLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + SQL_PROVIDERLabel = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + CType(Me.TBPMO_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_CONNECTIONBindingNavigator.SuspendLayout() + CType(Me.TBPMO_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(180, 28) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(20, 13) + GUIDLabel.TabIndex = 2 + GUIDLabel.Text = "Id:" + ' + 'DESCRIPTIONLabel + ' + DESCRIPTIONLabel.AutoSize = True + DESCRIPTIONLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DESCRIPTIONLabel.Location = New System.Drawing.Point(254, 28) + DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" + DESCRIPTIONLabel.Size = New System.Drawing.Size(83, 13) + DESCRIPTIONLabel.TabIndex = 4 + DESCRIPTIONLabel.Text = "Interner Name:" + ' + 'COMMENTLabel + ' + COMMENTLabel.AutoSize = True + COMMENTLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + COMMENTLabel.Location = New System.Drawing.Point(180, 184) + COMMENTLabel.Name = "COMMENTLabel" + COMMENTLabel.Size = New System.Drawing.Size(69, 13) + COMMENTLabel.TabIndex = 14 + COMMENTLabel.Text = "Bemerkung:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(180, 267) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel.TabIndex = 20 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(290, 267) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13) + ADDED_WHENLabel.TabIndex = 22 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(400, 267) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel.TabIndex = 24 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(509, 267) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel.TabIndex = 26 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'SQL_PROVIDERLabel + ' + SQL_PROVIDERLabel.AutoSize = True + SQL_PROVIDERLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + SQL_PROVIDERLabel.Location = New System.Drawing.Point(179, 67) + SQL_PROVIDERLabel.Name = "SQL_PROVIDERLabel" + SQL_PROVIDERLabel.Size = New System.Drawing.Size(52, 13) + SQL_PROVIDERLabel.TabIndex = 30 + SQL_PROVIDERLabel.Text = "Provider:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Label1.Location = New System.Drawing.Point(400, 67) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(67, 13) + Label1.TabIndex = 37 + Label1.Text = "Datenbank:" + ' + 'TBPMO_CONNECTIONBindingNavigator + ' + Me.TBPMO_CONNECTIONBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBPMO_CONNECTIONBindingNavigator.BindingSource = Me.TBPMO_CONNECTIONBindingSource + Me.TBPMO_CONNECTIONBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBPMO_CONNECTIONBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBPMO_CONNECTIONBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_CONNECTIONBindingNavigatorSaveItem, Me.ToolStripButton1}) + Me.TBPMO_CONNECTIONBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_CONNECTIONBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBPMO_CONNECTIONBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBPMO_CONNECTIONBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBPMO_CONNECTIONBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBPMO_CONNECTIONBindingNavigator.Name = "TBPMO_CONNECTIONBindingNavigator" + Me.TBPMO_CONNECTIONBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBPMO_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(831, 25) + Me.TBPMO_CONNECTIONBindingNavigator.TabIndex = 0 + Me.TBPMO_CONNECTIONBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'TBPMO_CONNECTIONBindingSource + ' + Me.TBPMO_CONNECTIONBindingSource.DataMember = "TBPMO_CONNECTION" + Me.TBPMO_CONNECTIONBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBPMO_CONNECTIONBindingNavigatorSaveItem + ' + Me.TBPMO_CONNECTIONBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBPMO_CONNECTIONBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_CONNECTIONBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBPMO_CONNECTIONBindingNavigatorSaveItem.Name = "TBPMO_CONNECTIONBindingNavigatorSaveItem" + Me.TBPMO_CONNECTIONBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBPMO_CONNECTIONBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "ToolStripButton1" + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBPMO_CONNECTIONBindingSource + Me.ListBox1.DisplayMember = "DESCRIPTION" + Me.ListBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(12, 28) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(162, 277) + Me.ListBox1.TabIndex = 1 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(183, 44) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(68, 22) + Me.GUIDTextBox.TabIndex = 3 + ' + 'DESCRIPTIONTextBox + ' + Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "DESCRIPTION", True)) + Me.DESCRIPTIONTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DESCRIPTIONTextBox.Location = New System.Drawing.Point(257, 44) + Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox" + Me.DESCRIPTIONTextBox.Size = New System.Drawing.Size(267, 22) + Me.DESCRIPTIONTextBox.TabIndex = 5 + ' + 'SERVERTextBox + ' + Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "SERVER", True)) + Me.SERVERTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SERVERTextBox.Location = New System.Drawing.Point(184, 122) + Me.SERVERTextBox.Name = "SERVERTextBox" + Me.SERVERTextBox.Size = New System.Drawing.Size(202, 22) + Me.SERVERTextBox.TabIndex = 9 + ' + 'USERNAMETextBox + ' + Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "USERNAME", True)) + Me.USERNAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.USERNAMETextBox.Location = New System.Drawing.Point(183, 161) + Me.USERNAMETextBox.Name = "USERNAMETextBox" + Me.USERNAMETextBox.Size = New System.Drawing.Size(203, 22) + Me.USERNAMETextBox.TabIndex = 11 + ' + 'PASSWORDTextBox + ' + Me.PASSWORDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "PASSWORD", True)) + Me.PASSWORDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.PASSWORDTextBox.Location = New System.Drawing.Point(403, 161) + Me.PASSWORDTextBox.Name = "PASSWORDTextBox" + Me.PASSWORDTextBox.Size = New System.Drawing.Size(121, 22) + Me.PASSWORDTextBox.TabIndex = 13 + ' + 'BEMERKUNGTextBox + ' + Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "COMMENT", True)) + Me.BEMERKUNGTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(184, 200) + Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" + Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(340, 22) + Me.BEMERKUNGTextBox.TabIndex = 15 + ' + 'AKTIVECheckBox + ' + Me.AKTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_CONNECTIONBindingSource, "AKTIVE", True)) + Me.AKTIVECheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.AKTIVECheckBox.Location = New System.Drawing.Point(530, 42) + Me.AKTIVECheckBox.Name = "AKTIVECheckBox" + Me.AKTIVECheckBox.Size = New System.Drawing.Size(104, 24) + Me.AKTIVECheckBox.TabIndex = 17 + Me.AKTIVECheckBox.Text = "Aktiv" + Me.AKTIVECheckBox.UseVisualStyleBackColor = True + ' + 'btnCheck_Con + ' + Me.btnCheck_Con.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnCheck_Con.Image = Global.DD_Record_Organiser.My.Resources.Resources.RadioButton_701 + Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheck_Con.Location = New System.Drawing.Point(530, 81) + Me.btnCheck_Con.Name = "btnCheck_Con" + Me.btnCheck_Con.Size = New System.Drawing.Size(171, 23) + Me.btnCheck_Con.TabIndex = 18 + Me.btnCheck_Con.Text = "Test DB-Verbindung" + Me.btnCheck_Con.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCheck_Con.UseVisualStyleBackColor = True + ' + 'cmbInitialCatalog + ' + Me.cmbInitialCatalog.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbInitialCatalog.FormattingEnabled = True + Me.cmbInitialCatalog.Location = New System.Drawing.Point(403, 123) + Me.cmbInitialCatalog.Name = "cmbInitialCatalog" + Me.cmbInitialCatalog.Size = New System.Drawing.Size(121, 21) + Me.cmbInitialCatalog.TabIndex = 19 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(183, 283) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(100, 22) + Me.ADDED_WHOTextBox.TabIndex = 21 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(293, 283) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(100, 22) + Me.ADDED_WHENTextBox.TabIndex = 23 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(403, 283) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(100, 22) + Me.CHANGED_WHOTextBox.TabIndex = 25 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(512, 283) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(100, 22) + Me.CHANGED_WHENTextBox.TabIndex = 27 + ' + 'CheckBoxwin_aut + ' + Me.CheckBoxwin_aut.AutoSize = True + Me.CheckBoxwin_aut.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBoxwin_aut.Location = New System.Drawing.Point(530, 127) + Me.CheckBoxwin_aut.Name = "CheckBoxwin_aut" + Me.CheckBoxwin_aut.Size = New System.Drawing.Size(170, 17) + Me.CheckBoxwin_aut.TabIndex = 28 + Me.CheckBoxwin_aut.Text = "Windows-Authentifizierung" + Me.CheckBoxwin_aut.UseVisualStyleBackColor = True + ' + 'chkOR_ohne_TNS + ' + Me.chkOR_ohne_TNS.AutoSize = True + Me.chkOR_ohne_TNS.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(530, 161) + Me.chkOR_ohne_TNS.Name = "chkOR_ohne_TNS" + Me.chkOR_ohne_TNS.Size = New System.Drawing.Size(127, 17) + Me.chkOR_ohne_TNS.TabIndex = 29 + Me.chkOR_ohne_TNS.Text = "Ohne tnsnames.ora" + Me.chkOR_ohne_TNS.UseVisualStyleBackColor = True + ' + 'lblSave + ' + Me.lblSave.AutoSize = True + Me.lblSave.BackColor = System.Drawing.Color.Yellow + Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(400, 254) + Me.lblSave.Name = "lblSave" + Me.lblSave.Size = New System.Drawing.Size(193, 13) + Me.lblSave.TabIndex = 30 + Me.lblSave.Text = "Connection erfolgreich gespeichert!" + ' + 'TBPMO_CONNECTIONTableAdapter + ' + Me.TBPMO_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Me.TBPMO_CONNECTIONTableAdapter + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'SQL_PROVIDERComboBox + ' + Me.SQL_PROVIDERComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "SQL_PROVIDER", True)) + Me.SQL_PROVIDERComboBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_PROVIDERComboBox.FormattingEnabled = True + Me.SQL_PROVIDERComboBox.Items.AddRange(New Object() {"Oracle", "MS-SQLServer"}) + Me.SQL_PROVIDERComboBox.Location = New System.Drawing.Point(183, 83) + Me.SQL_PROVIDERComboBox.Name = "SQL_PROVIDERComboBox" + Me.SQL_PROVIDERComboBox.Size = New System.Drawing.Size(121, 21) + Me.SQL_PROVIDERComboBox.TabIndex = 31 + ' + 'lblDataSource + ' + Me.lblDataSource.AutoSize = True + Me.lblDataSource.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblDataSource.Location = New System.Drawing.Point(181, 106) + Me.lblDataSource.Name = "lblDataSource" + Me.lblDataSource.Size = New System.Drawing.Size(74, 13) + Me.lblDataSource.TabIndex = 32 + Me.lblDataSource.Text = "DataSource*:" + ' + 'lblInitialCatalog + ' + Me.lblInitialCatalog.AutoSize = True + Me.lblInitialCatalog.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblInitialCatalog.Location = New System.Drawing.Point(400, 107) + Me.lblInitialCatalog.Name = "lblInitialCatalog" + Me.lblInitialCatalog.Size = New System.Drawing.Size(84, 13) + Me.lblInitialCatalog.TabIndex = 33 + Me.lblInitialCatalog.Text = "InitialCatalog*:" + ' + 'lblUserId + ' + Me.lblUserId.AutoSize = True + Me.lblUserId.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblUserId.Location = New System.Drawing.Point(181, 145) + Me.lblUserId.Name = "lblUserId" + Me.lblUserId.Size = New System.Drawing.Size(48, 13) + Me.lblUserId.TabIndex = 34 + Me.lblUserId.Text = "UserId*:" + ' + 'lblPassword + ' + Me.lblPassword.AutoSize = True + Me.lblPassword.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblPassword.Location = New System.Drawing.Point(400, 145) + Me.lblPassword.Name = "lblPassword" + Me.lblPassword.Size = New System.Drawing.Size(61, 13) + Me.lblPassword.TabIndex = 35 + Me.lblPassword.Text = "Passwort*:" + ' + 'DATABASETextBox + ' + Me.DATABASETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "DATABASE", True)) + Me.DATABASETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DATABASETextBox.Location = New System.Drawing.Point(403, 83) + Me.DATABASETextBox.Name = "DATABASETextBox" + Me.DATABASETextBox.Size = New System.Drawing.Size(121, 22) + Me.DATABASETextBox.TabIndex = 36 + ' + 'frmConnections + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(831, 331) + Me.Controls.Add(Label1) + Me.Controls.Add(Me.DATABASETextBox) + Me.Controls.Add(Me.lblPassword) + Me.Controls.Add(Me.lblUserId) + Me.Controls.Add(Me.lblInitialCatalog) + Me.Controls.Add(Me.lblDataSource) + Me.Controls.Add(SQL_PROVIDERLabel) + Me.Controls.Add(Me.SQL_PROVIDERComboBox) + Me.Controls.Add(Me.lblSave) + Me.Controls.Add(Me.chkOR_ohne_TNS) + Me.Controls.Add(Me.CheckBoxwin_aut) + Me.Controls.Add(CHANGED_WHENLabel) + Me.Controls.Add(Me.CHANGED_WHENTextBox) + Me.Controls.Add(CHANGED_WHOLabel) + Me.Controls.Add(Me.CHANGED_WHOTextBox) + Me.Controls.Add(ADDED_WHENLabel) + Me.Controls.Add(Me.ADDED_WHENTextBox) + Me.Controls.Add(ADDED_WHOLabel) + Me.Controls.Add(Me.ADDED_WHOTextBox) + Me.Controls.Add(Me.cmbInitialCatalog) + Me.Controls.Add(Me.btnCheck_Con) + Me.Controls.Add(Me.AKTIVECheckBox) + Me.Controls.Add(COMMENTLabel) + Me.Controls.Add(Me.BEMERKUNGTextBox) + Me.Controls.Add(Me.PASSWORDTextBox) + Me.Controls.Add(Me.USERNAMETextBox) + Me.Controls.Add(Me.SERVERTextBox) + Me.Controls.Add(DESCRIPTIONLabel) + Me.Controls.Add(Me.DESCRIPTIONTextBox) + Me.Controls.Add(GUIDLabel) + Me.Controls.Add(Me.GUIDTextBox) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.TBPMO_CONNECTIONBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmConnections" + Me.Text = "Connections-Verwaltung" + CType(Me.TBPMO_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_CONNECTIONBindingNavigator.ResumeLayout(False) + Me.TBPMO_CONNECTIONBindingNavigator.PerformLayout() + CType(Me.TBPMO_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_CONNECTIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_CONNECTIONTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_CONNECTIONBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_CONNECTIONBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents DESCRIPTIONTextBox As System.Windows.Forms.TextBox + Friend WithEvents SERVERTextBox As System.Windows.Forms.TextBox + Friend WithEvents USERNAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents PASSWORDTextBox As System.Windows.Forms.TextBox + Friend WithEvents BEMERKUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents AKTIVECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents btnCheck_Con As System.Windows.Forms.Button + Friend WithEvents cmbInitialCatalog As System.Windows.Forms.ComboBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CheckBoxwin_aut As System.Windows.Forms.CheckBox + Friend WithEvents chkOR_ohne_TNS As System.Windows.Forms.CheckBox + Friend WithEvents lblSave As System.Windows.Forms.Label + Friend WithEvents SQL_PROVIDERComboBox As System.Windows.Forms.ComboBox + Friend WithEvents lblDataSource As System.Windows.Forms.Label + Friend WithEvents lblInitialCatalog As System.Windows.Forms.Label + Friend WithEvents lblUserId As System.Windows.Forms.Label + Friend WithEvents lblPassword As System.Windows.Forms.Label + Friend WithEvents DATABASETextBox As System.Windows.Forms.TextBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmConnections.resx b/app - Kopie/DD-Record-Organiser/frmConnections.resx new file mode 100644 index 0000000..1d24de3 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConnections.resx @@ -0,0 +1,363 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 56 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + 160, 17 + + + 17, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 17, 17 + + + 414, 17 + + + 662, 17 + + + + AAABAAMAICAQAAEABADoAgAANgAAACAgAAABAAgAqAgAAB4DAAAgIAAAAQAgAKgQAADGCwAAKAAAACAA + AABAAAAAAQAEAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAP///////wAAAAAAAAAAD/// + ////////8AAAAAAAD//4d3d3d3d3j//wAAAAD/+Hd3d3d3d3d3d4//AAAA/3d3d3d3d3d3d3d3/wAAD/ + d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3 + /wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3 + d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3 + d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/ + d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3eI/////4h3d3f/AAD/d3f//////////3d3 + /wAA/3eP///////////4d/8AAP93j///////////+Hf/AAD/d3f//////////3d3/wAAD/d3d4j///// + iHd3f/AAAA//h3d3d3d3d3d3eP/wAAAAD//4d3d3d3d3j//wAAAAAAAP///////////wAAAAAAAAAAD/ + //////8AAAAAAP/AA//+AAB/+AAAH+AAAAfgAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA+AA + AAfgAAAH+AAAH/4AAH//wAP/KAAAACAAAABAAAAAAQAIAAAAAAAABAAAAAAAAAAAAAAAAQAAAAEAAAAA + AABCQkIATU1NAG9vbwB5eXkAhoaGAJGRkQCamZkApKOkALOzswDFxMUAycnJANDPzwDm5OUA6+vrAPHv + 8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wAAAAAAAAAAAAAAEREQEBAQEBAQEBERAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEBAQEBAQEBAQEBAA + AAAAAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQIDBgkOEBAQAAAAAAAAAAAREBALBAEBAQEBAQEBAQEBAQEB + AQEECxAQEQAAAAAAABAQBQEBAQEBAQEBAQEBAQEBAQEBAQEBBRAQAAAAAAAQEAUBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBBRAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEB + AQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAA + EBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQ + AAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQQICg0P + Dw8PDw8NCggEAQEBAQEQEAAAAAAQEAEBAgcNDw8PDw8PDw8PDw8PDw8NBwIBARAQAAAAABAOAQEMDw8P + Dw8PDw8PDw8PDw8PDw8PDAEBEBAAAAAAEA4BAQwPDw8PDw8PDw8PDw8PDw8PDw8MAQEQEAAAAAAQEAUB + AgcNDw8PDw8PDw8PDw8PDw8NBwIBBRAQAAAAAAAQDgUBAQEECAoNDw8PDw8PDQoIBAEBAQUOEAAAAAAA + ABEQEAsEAQEBAQEBAQEBAQEBAQEBAQQLEBARAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQEDBgkOEBAQAAAA + AAAAAAAAAAAAEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAARERAQEBAQEBAQEREAAAAA + AAAAAAAA/8AD//4AAH/4AAAf4AAAB+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD4AAAB+AA + AAf4AAAf/gAAf//AA/8oAAAAIAAAAEAAAAABACAAAAAAAIAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYg9vb2cPb29p/29va/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29va/9vb2n/b29nD29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29hD29vZw9vb23/b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vbf9vb2cPb29hAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b2 + 9lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2n/b29v/29vb/ycnJ/3p6ev9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/enp6/8nJ + yf/29vb/9vb2//b29p8AAAAAAAAAAAAAAAAAAAAAAAAAAPb29nD29vb/9vb2/4aGhv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/4aGhv/29vb/9vb2//b29nAAAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 + 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA + AAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAA + AAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b2 + 9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b2 + 9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAA + AAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAA + AAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 + 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv95eHj/pKOk/8XExf/m5OX/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/5uTl/8XExf+ko6T/eXh4/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA + AAAAAAAA9vb2//b29v9CQkL/QkJC/01NTf+amZn/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZmf9NTU3/QkJC/0JCQv/29vb/9vb2/wAA + AAAAAAAAAAAAAAAAAAD29vb/6+vr/0JCQv9CQkL/0M/P//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/9DPz/9CQkL/QkJC//b2 + 9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/r6+v/QkJC/0JCQv/Qz8//8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/0M/P/0JC + Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/01NTf+amZn/5uTl//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZ + mf9NTU3/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vZw9vb2/+vr6/+Ghob/QkJC/0JC + Qv9CQkL/eXh4/6SjpP/FxMX/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/+bk5f/FxMX/pKOk/3l4 + eP9CQkL/QkJC/0JCQv+Ghob/6+vr//b29v/29vZwAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaf9vb2//b2 + 9v/Jycn/enp6/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv96enr/ycnJ//b29v/29vb/9vb2nwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD29vYQ9vb2cPb29t/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb23/b29nD29vYQAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29iD29vZw9vb2n/b29r/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29r/29vaf9vb2cPb29iAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP8AAP/4AAAf8AAAD+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPgAAAH8AAAD/gAAB//AAD/ + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConnections.vb b/app - Kopie/DD-Record-Organiser/frmConnections.vb new file mode 100644 index 0000000..5116344 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConnections.vb @@ -0,0 +1,247 @@ +Imports Oracle.ManagedDataAccess.Client + + +Public Class frmConnections + + Private Sub TBPMO_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_CONNECTIONBindingNavigatorSaveItem.Click + Try + Me.Validate() + Me.TBPMO_CONNECTIONBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_CONNECTION.GetChanges Is Nothing = False Then + CHANGED_WHOTextBox.Text = Environment.UserName + TBPMO_CONNECTIONBindingSource.EndEdit() + TBPMO_CONNECTIONTableAdapter.Update(DD_DMSDataSet.TBPMO_CONNECTION) + Me.lblSave.Visible = True + Else + Me.lblSave.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save Connection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub frmConnections_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBPMO_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + Load_Connections() + End Sub + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + Load_Connections() + End Sub + + Sub Load_Connections() + Try + Me.TBPMO_CONNECTIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_CONNECTION) + Catch ex As Exception + MsgBox("Error in Laod Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub SQL_PROVIDERComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SQL_PROVIDERComboBox.SelectedIndexChanged + If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then + Me.btnCheck_Con.Visible = True + CheckBoxwin_aut.Visible = False + chkOR_ohne_TNS.Visible = False + Select Case Me.SQL_PROVIDERComboBox.SelectedItem + Case "MS-SQLServer" + + Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:" + Me.lblInitialCatalog.Text = "Datenbank-Name:" + Me.SERVERTextBox.ReadOnly = False + Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window + Me.SERVERTextBox.Text = "" + Me.lblUserId.Text = "UserId:" + Me.lblPassword.Text = "Passwort:" + Me.lblInitialCatalog.Visible = False + 'Me.DATENBANKTextBox.Visible = False + Me.cmbInitialCatalog.Visible = True + 'Me.lblDatenbank.Visible = True + CheckBoxwin_aut.Visible = True + Case "Oracle" + Me.cmbInitialCatalog.Visible = False + Me.lblDataSource.Text = "IP Oracle-Server:" + Me.lblInitialCatalog.Text = "Servicename:" + Me.SERVERTextBox.ReadOnly = False + Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window + Me.SERVERTextBox.Text = "" + Me.lblUserId.Text = "UserId:" + Me.lblPassword.Text = "Passwort:" + Me.lblInitialCatalog.Visible = True + + 'Me.DATENBANKTextBox.Visible = True + chkOR_ohne_TNS.Visible = True + End Select + + Me.lblDataSource.Visible = True + Me.lblUserId.Visible = True + Me.lblPassword.Visible = True + Me.SERVERTextBox.Visible = True + Me.USERNAMETextBox.Visible = True + Me.PASSWORDTextBox.Visible = True + Else + Me.lblDataSource.Visible = False + Me.lblUserId.Visible = False + Me.lblPassword.Visible = False + Me.SERVERTextBox.Visible = False + Me.USERNAMETextBox.Visible = False + Me.PASSWORDTextBox.Visible = False + End If + End Sub + + Private Sub CheckBoxwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxwin_aut.CheckedChanged + If CheckBoxwin_aut.Checked Then + Me.USERNAMETextBox.Enabled = False + Me.PASSWORDTextBox.Enabled = False + Me.USERNAMETextBox.Text = "WINAUTH" + Me.PASSWORDTextBox.Text = "" + Else + Me.USERNAMETextBox.Enabled = True + Me.PASSWORDTextBox.Enabled = True + Me.USERNAMETextBox.Text = "" + Me.PASSWORDTextBox.Text = "" + End If + End Sub + + Private Sub chkOR_ohne_TNS_CheckedChanged(sender As Object, e As EventArgs) Handles chkOR_ohne_TNS.CheckedChanged + If chkOR_ohne_TNS.Checked Then + Me.BEMERKUNGTextBox.Text = "without tnsnames" + Me.BEMERKUNGTextBox.Enabled = False + Else + Me.BEMERKUNGTextBox.Text = "" + Me.BEMERKUNGTextBox.Enabled = True + End If + End Sub + + Private Sub btnCheck_Con_Click(sender As Object, e As EventArgs) Handles btnCheck_Con.Click + Dim msg_string As String + Try + If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then + Cursor = Cursors.WaitCursor + + Select Case Me.SQL_PROVIDERComboBox.SelectedItem + Case "MS-SQLServer" + Dim con As String + If CheckBoxwin_aut.Checked Then + con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;" + Else + con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";" + End If + msg_string = con + Dim connection As New SqlClient.SqlConnection(con) + connection.Open() + Cursor = Cursors.Default + MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:") + My.Settings.Save() + 'DialogResult = Windows.Forms.DialogResult.OK + Case "Oracle" + My.Settings.Save() + Dim connstr As String + Try + Dim conn As New OracleConnectionStringBuilder + + If chkOR_ohne_TNS.Checked Then + connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + DATABASETextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";" + Else + conn.DataSource = DATABASETextBox.Text + conn.UserID = USERNAMETextBox.Text + conn.Password = PASSWORDTextBox.Text + conn.PersistSecurityInfo = True + conn.ConnectionTimeout = 120 + connstr = conn.ConnectionString + End If + + Dim connection As New OracleConnection(connstr) + connection.Open() + + MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:") + My.Settings.Save() + + Catch ex As Exception + MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") + End Try + + Case Else + MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:") + End Select + End If + + + Catch ex As Exception + Dim template As String = ex.Message + Clipboard.SetDataObject(template) + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical) + End Try + Cursor = Cursors.Default + End Sub + + Private Sub cmbInitialCatalog_Click(sender As Object, e As EventArgs) Handles cmbInitialCatalog.Click + Get_MSSQL_Databases() + End Sub + Sub Get_MSSQL_Databases() + Try + ' Dim csb As New SqlClient.SqlConnectionStringBuilder + If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then + + Select Case Me.SQL_PROVIDERComboBox.SelectedItem + Case "MS-SQLServer" + Dim con As String + If CheckBoxwin_aut.Checked Then + con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;" + Else + con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";" + End If + 'csb.DataSource = Me.txtDataSource.Text + 'csb.IntegratedSecurity = False + 'csb.UserID = Me.txtUserId.Text + 'csb.Password = Me.txtPassword.Text + Dim connection As New SqlClient.SqlConnection(con) + 'während Verbindungsaufbau Sanduhr-Mauszeiger + Cursor = Cursors.WaitCursor + connection.Open() + Cursor = Cursors.Default + ' SQLCommand-Objekt über alle Datenbanken erstellen + Dim cmd As New SqlClient.SqlCommand("SELECT [name] FROM master.dbo.sysdatabases WHERE name NOT IN ('master', 'tempdb', 'model', 'msdb')", connection) + 'cmd.CommandType = CommandType. + ' Ausführen und Ergebnis in einer ListBox anzeigen + Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + cmbInitialCatalog.Items.Clear() + Do While dr.Read + cmbInitialCatalog.Items.Add(dr("name")) + Loop + cmbInitialCatalog.DroppedDown = True + End If + End Select + End If + + + Catch ex As Exception + Cursor = Cursors.Default + + Dim template As String = ex.Message + Clipboard.SetDataObject(template) + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub TBPMO_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_CONNECTIONBindingSource.AddingNew + Me.DD_DMSDataSet.TBPMO_CONNECTION.ADDED_WHOColumn.DefaultValue = Environment.UserName + Me.DD_DMSDataSet.TBPMO_CONNECTION.ADDED_WHENColumn.DefaultValue = Date.Now + End Sub + + + + Private Sub TBPMO_CONNECTIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_CONNECTIONBindingSource.CurrentChanged + Me.lblSave.Visible = False + End Sub + + Private Sub BEMERKUNGTextBox_TextChanged(sender As Object, e As EventArgs) Handles BEMERKUNGTextBox.TextChanged + If BEMERKUNGTextBox.Text.Contains("without tnsnames") Then + Me.chkOR_ohne_TNS.Checked = True + Else + Me.chkOR_ohne_TNS.Checked = False + End If + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.Designer.vb b/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.Designer.vb new file mode 100644 index 0000000..ba7a3ea --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.Designer.vb @@ -0,0 +1,993 @@ + _ +Partial Class frmConstructorDesigner + 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 GUIDLabel As System.Windows.Forms.Label + Dim FORM_TITLELabel As System.Windows.Forms.Label + Dim SEQUENCE_MENULabel As System.Windows.Forms.Label + Dim SHORT_TITLELabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim WINDREAM_SEARCHLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label + Dim SQL_SELECT_EBENE1Label As System.Windows.Forms.Label + Dim SQL_SELECT_EBENE2Label As System.Windows.Forms.Label + Dim COLUMN_NAME1Label1 As System.Windows.Forms.Label + Dim SEARCH_PATTERN1Label1 As System.Windows.Forms.Label + Dim SEARCH_PATTERN2Label1 As System.Windows.Forms.Label + Dim SEARCH_PATTERN3Label As System.Windows.Forms.Label + Dim SEARCH_PATTERN4Label As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructorDesigner)) + Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TreeView1 = New System.Windows.Forms.TreeView() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.CONSTRUCTOR_IDTextBox = New System.Windows.Forms.TextBox() + Me.FORM_TITLETextBox = New System.Windows.Forms.TextBox() + Me.SEQUENCE_MENUNumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.SHORT_TITLETextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.LEVEL1_SELECTCheckBox = New System.Windows.Forms.CheckBox() + Me.WINDREAM_SEARCHTextBox = New System.Windows.Forms.TextBox() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.Label4 = New System.Windows.Forms.Label() + Me.COLUMN_NAME1ComboBox = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.SQL_SELECT_EBENE1TextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.SQL_SELECT_EBENE2TextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + Me.SEARCH_PATTERN4ComboBox = New System.Windows.Forms.ComboBox() + Me.SEARCH_PATTERN3ComboBox = New System.Windows.Forms.ComboBox() + Me.SEARCH_PATTERN2ComboBox = New System.Windows.Forms.ComboBox() + Me.SEARCH_PATTERN1ComboBox = New System.Windows.Forms.ComboBox() + Me.XtraTabPage5 = New DevExpress.XtraTab.XtraTabPage() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tslblSaveDetail = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.tsbtnSave = New System.Windows.Forms.ToolStripButton() + Me.TreeView_Free = New System.Windows.Forms.TreeView() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.TBPMO_FORM_CONSTRUCTORBindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + GUIDLabel = New System.Windows.Forms.Label() + FORM_TITLELabel = New System.Windows.Forms.Label() + SEQUENCE_MENULabel = New System.Windows.Forms.Label() + SHORT_TITLELabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + WINDREAM_SEARCHLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel1 = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + CHANGED_WHENLabel1 = New System.Windows.Forms.Label() + SQL_SELECT_EBENE1Label = New System.Windows.Forms.Label() + SQL_SELECT_EBENE2Label = New System.Windows.Forms.Label() + COLUMN_NAME1Label1 = New System.Windows.Forms.Label() + SEARCH_PATTERN1Label1 = New System.Windows.Forms.Label() + SEARCH_PATTERN2Label1 = New System.Windows.Forms.Label() + SEARCH_PATTERN3Label = New System.Windows.Forms.Label() + SEARCH_PATTERN4Label = New System.Windows.Forms.Label() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.SuspendLayout() + CType(Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCE_MENUNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + Me.XtraTabPage4.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(247, 28) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(86, 13) + GUIDLabel.TabIndex = 2 + GUIDLabel.Text = "Constructor-ID:" + ' + 'FORM_TITLELabel + ' + FORM_TITLELabel.AutoSize = True + FORM_TITLELabel.Location = New System.Drawing.Point(247, 69) + FORM_TITLELabel.Name = "FORM_TITLELabel" + FORM_TITLELabel.Size = New System.Drawing.Size(142, 13) + FORM_TITLELabel.TabIndex = 4 + FORM_TITLELabel.Text = "Titel des Kombiformulares:" + ' + 'SEQUENCE_MENULabel + ' + SEQUENCE_MENULabel.AutoSize = True + SEQUENCE_MENULabel.Location = New System.Drawing.Point(247, 112) + SEQUENCE_MENULabel.Name = "SEQUENCE_MENULabel" + SEQUENCE_MENULabel.Size = New System.Drawing.Size(106, 13) + SEQUENCE_MENULabel.TabIndex = 6 + SEQUENCE_MENULabel.Text = "Reihenfolge Menü:" + ' + 'SHORT_TITLELabel + ' + SHORT_TITLELabel.AutoSize = True + SHORT_TITLELabel.Location = New System.Drawing.Point(413, 112) + SHORT_TITLELabel.Name = "SHORT_TITLELabel" + SHORT_TITLELabel.Size = New System.Drawing.Size(60, 13) + SHORT_TITLELabel.TabIndex = 8 + SHORT_TITLELabel.Text = "Kurzname:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(248, 154) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel.TabIndex = 10 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(413, 154) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13) + ADDED_WHENLabel.TabIndex = 12 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(248, 195) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel.TabIndex = 14 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(413, 195) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel.TabIndex = 16 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.AutoSize = True + GUIDLabel1.Location = New System.Drawing.Point(12, 11) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(21, 13) + GUIDLabel1.TabIndex = 18 + GUIDLabel1.Text = "ID:" + ' + 'WINDREAM_SEARCHLabel + ' + WINDREAM_SEARCHLabel.AutoSize = True + WINDREAM_SEARCHLabel.Location = New System.Drawing.Point(5, 11) + WINDREAM_SEARCHLabel.Name = "WINDREAM_SEARCHLabel" + WINDREAM_SEARCHLabel.Size = New System.Drawing.Size(114, 13) + WINDREAM_SEARCHLabel.TabIndex = 34 + WINDREAM_SEARCHLabel.Text = "WINDREAM SEARCH:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Location = New System.Drawing.Point(70, 183) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel1.TabIndex = 43 + ADDED_WHOLabel1.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel1 + ' + ADDED_WHENLabel1.AutoSize = True + ADDED_WHENLabel1.Location = New System.Drawing.Point(236, 183) + ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" + ADDED_WHENLabel1.Size = New System.Drawing.Size(77, 13) + ADDED_WHENLabel1.TabIndex = 44 + ADDED_WHENLabel1.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Location = New System.Drawing.Point(70, 224) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel1.TabIndex = 45 + CHANGED_WHOLabel1.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel1 + ' + CHANGED_WHENLabel1.AutoSize = True + CHANGED_WHENLabel1.Location = New System.Drawing.Point(236, 224) + CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" + CHANGED_WHENLabel1.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel1.TabIndex = 46 + CHANGED_WHENLabel1.Text = "Geändert wann:" + ' + 'SQL_SELECT_EBENE1Label + ' + SQL_SELECT_EBENE1Label.AutoSize = True + SQL_SELECT_EBENE1Label.Location = New System.Drawing.Point(69, 48) + SQL_SELECT_EBENE1Label.Name = "SQL_SELECT_EBENE1Label" + SQL_SELECT_EBENE1Label.Size = New System.Drawing.Size(73, 13) + SQL_SELECT_EBENE1Label.TabIndex = 34 + SQL_SELECT_EBENE1Label.Text = "SQL Ebene 1:" + ' + 'SQL_SELECT_EBENE2Label + ' + SQL_SELECT_EBENE2Label.AutoSize = True + SQL_SELECT_EBENE2Label.Location = New System.Drawing.Point(69, 91) + SQL_SELECT_EBENE2Label.Name = "SQL_SELECT_EBENE2Label" + SQL_SELECT_EBENE2Label.Size = New System.Drawing.Size(73, 13) + SQL_SELECT_EBENE2Label.TabIndex = 36 + SQL_SELECT_EBENE2Label.Text = "SQL Ebene 2:" + ' + 'COLUMN_NAME1Label1 + ' + COLUMN_NAME1Label1.AutoSize = True + COLUMN_NAME1Label1.Location = New System.Drawing.Point(69, 133) + COLUMN_NAME1Label1.Name = "COLUMN_NAME1Label1" + COLUMN_NAME1Label1.Size = New System.Drawing.Size(114, 13) + COLUMN_NAME1Label1.TabIndex = 48 + COLUMN_NAME1Label1.Text = "Spaltenname Entität:" + ' + 'SEARCH_PATTERN1Label1 + ' + SEARCH_PATTERN1Label1.AutoSize = True + SEARCH_PATTERN1Label1.Location = New System.Drawing.Point(5, 52) + SEARCH_PATTERN1Label1.Name = "SEARCH_PATTERN1Label1" + SEARCH_PATTERN1Label1.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN1Label1.TabIndex = 39 + SEARCH_PATTERN1Label1.Text = "SEARCH PATTERN1:" + ' + 'SEARCH_PATTERN2Label1 + ' + SEARCH_PATTERN2Label1.AutoSize = True + SEARCH_PATTERN2Label1.Location = New System.Drawing.Point(5, 92) + SEARCH_PATTERN2Label1.Name = "SEARCH_PATTERN2Label1" + SEARCH_PATTERN2Label1.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN2Label1.TabIndex = 40 + SEARCH_PATTERN2Label1.Text = "SEARCH PATTERN2:" + ' + 'SEARCH_PATTERN3Label + ' + SEARCH_PATTERN3Label.AutoSize = True + SEARCH_PATTERN3Label.Location = New System.Drawing.Point(170, 52) + SEARCH_PATTERN3Label.Name = "SEARCH_PATTERN3Label" + SEARCH_PATTERN3Label.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN3Label.TabIndex = 41 + SEARCH_PATTERN3Label.Text = "SEARCH PATTERN3:" + ' + 'SEARCH_PATTERN4Label + ' + SEARCH_PATTERN4Label.AutoSize = True + SEARCH_PATTERN4Label.Location = New System.Drawing.Point(170, 92) + SEARCH_PATTERN4Label.Name = "SEARCH_PATTERN4Label" + SEARCH_PATTERN4Label.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN4Label.TabIndex = 42 + SEARCH_PATTERN4Label.Text = "SEARCH PATTERN4:" + ' + 'DD_ECMAdmin + ' + Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" + Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMO_FORM_CONSTRUCTORBindingSource + ' + Me.TBPMO_FORM_CONSTRUCTORBindingSource.DataMember = "TBPMO_FORM_CONSTRUCTOR" + Me.TBPMO_FORM_CONSTRUCTORBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'TBPMO_FORM_CONSTRUCTORTableAdapter + ' + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + ' + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.ClearBeforeFill = True + ' + 'TBPMO_FORM_CONSTRUCTORBindingNavigator + ' + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.BindingSource = Me.TBPMO_FORM_CONSTRUCTORBindingSource + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem}) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Name = "TBPMO_FORM_CONSTRUCTORBindingNavigator" + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Size = New System.Drawing.Size(1341, 25) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.TabIndex = 0 + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem + ' + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Name = "TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem" + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource + ' + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.DataMember = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'TreeView1 + ' + Me.TreeView1.AllowDrop = True + Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left + Me.TreeView1.ImageIndex = 0 + Me.TreeView1.ImageList = Me.ImageList1 + Me.TreeView1.Location = New System.Drawing.Point(0, 0) + Me.TreeView1.Name = "TreeView1" + Me.TreeView1.SelectedImageIndex = 1 + Me.TreeView1.Size = New System.Drawing.Size(292, 340) + Me.TreeView1.TabIndex = 1 + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "medal_bronze_1.png") + Me.ImageList1.Images.SetKeyName(1, "medal_gold_2.png") + ' + 'CONSTRUCTOR_IDTextBox + ' + Me.CONSTRUCTOR_IDTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CONSTRUCTOR_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "GUID", True)) + Me.CONSTRUCTOR_IDTextBox.Location = New System.Drawing.Point(250, 44) + Me.CONSTRUCTOR_IDTextBox.Name = "CONSTRUCTOR_IDTextBox" + Me.CONSTRUCTOR_IDTextBox.ReadOnly = True + Me.CONSTRUCTOR_IDTextBox.Size = New System.Drawing.Size(83, 22) + Me.CONSTRUCTOR_IDTextBox.TabIndex = 3 + ' + 'FORM_TITLETextBox + ' + Me.FORM_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "FORM_TITLE", True)) + Me.FORM_TITLETextBox.Location = New System.Drawing.Point(250, 85) + Me.FORM_TITLETextBox.Name = "FORM_TITLETextBox" + Me.FORM_TITLETextBox.Size = New System.Drawing.Size(310, 22) + Me.FORM_TITLETextBox.TabIndex = 5 + ' + 'SEQUENCE_MENUNumericUpDown + ' + Me.SEQUENCE_MENUNumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SEQUENCE_MENU", True)) + Me.SEQUENCE_MENUNumericUpDown.Location = New System.Drawing.Point(250, 129) + Me.SEQUENCE_MENUNumericUpDown.Name = "SEQUENCE_MENUNumericUpDown" + Me.SEQUENCE_MENUNumericUpDown.Size = New System.Drawing.Size(43, 22) + Me.SEQUENCE_MENUNumericUpDown.TabIndex = 7 + ' + 'SHORT_TITLETextBox + ' + Me.SHORT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SHORT_TITLE", True)) + Me.SHORT_TITLETextBox.Location = New System.Drawing.Point(416, 128) + Me.SHORT_TITLETextBox.Name = "SHORT_TITLETextBox" + Me.SHORT_TITLETextBox.Size = New System.Drawing.Size(144, 22) + Me.SHORT_TITLETextBox.TabIndex = 9 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(251, 170) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(149, 22) + Me.ADDED_WHOTextBox.TabIndex = 11 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(417, 170) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(144, 22) + Me.ADDED_WHENTextBox.TabIndex = 13 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(251, 211) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(149, 22) + Me.CHANGED_WHOTextBox.TabIndex = 15 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(416, 211) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(144, 22) + Me.CHANGED_WHENTextBox.TabIndex = 17 + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "GUID", True)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(15, 27) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.ReadOnly = True + Me.GUIDTextBox1.Size = New System.Drawing.Size(34, 22) + Me.GUIDTextBox1.TabIndex = 19 + ' + 'LEVEL1_SELECTCheckBox + ' + Me.LEVEL1_SELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LEVEL1_SELECT", True)) + Me.LEVEL1_SELECTCheckBox.Location = New System.Drawing.Point(72, 25) + Me.LEVEL1_SELECTCheckBox.Name = "LEVEL1_SELECTCheckBox" + Me.LEVEL1_SELECTCheckBox.Size = New System.Drawing.Size(122, 24) + Me.LEVEL1_SELECTCheckBox.TabIndex = 25 + Me.LEVEL1_SELECTCheckBox.Text = "Level 1 Auswahl? " + Me.LEVEL1_SELECTCheckBox.UseVisualStyleBackColor = True + ' + 'WINDREAM_SEARCHTextBox + ' + Me.WINDREAM_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "WINDREAM_SEARCH", True)) + Me.WINDREAM_SEARCHTextBox.Location = New System.Drawing.Point(8, 27) + Me.WINDREAM_SEARCHTextBox.Name = "WINDREAM_SEARCHTextBox" + Me.WINDREAM_SEARCHTextBox.Size = New System.Drawing.Size(670, 22) + Me.WINDREAM_SEARCHTextBox.TabIndex = 35 + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Location = New System.Drawing.Point(15, 249) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(1147, 365) + Me.XtraTabControl1.TabIndex = 40 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.XtraTabControl2) + Me.XtraTabPage1.Controls.Add(Me.StatusStrip1) + Me.XtraTabPage1.Controls.Add(Me.ToolStrip1) + Me.XtraTabPage1.Controls.Add(Me.TreeView1) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1145, 340) + Me.XtraTabPage1.Text = "Entitäten-Übersicht" + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(292, 25) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 + Me.XtraTabControl2.Size = New System.Drawing.Size(853, 293) + Me.XtraTabControl2.TabIndex = 35 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4, Me.XtraTabPage5}) + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.AutoScroll = True + Me.XtraTabPage3.Controls.Add(Me.Label4) + Me.XtraTabPage3.Controls.Add(COLUMN_NAME1Label1) + Me.XtraTabPage3.Controls.Add(Me.COLUMN_NAME1ComboBox) + Me.XtraTabPage3.Controls.Add(Me.Label2) + Me.XtraTabPage3.Controls.Add(Me.SQL_SELECT_EBENE1TextBox) + Me.XtraTabPage3.Controls.Add(CHANGED_WHENLabel1) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHENTextBox1) + Me.XtraTabPage3.Controls.Add(SQL_SELECT_EBENE1Label) + Me.XtraTabPage3.Controls.Add(CHANGED_WHOLabel1) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.XtraTabPage3.Controls.Add(Me.SQL_SELECT_EBENE2TextBox) + Me.XtraTabPage3.Controls.Add(ADDED_WHENLabel1) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHENTextBox1) + Me.XtraTabPage3.Controls.Add(ADDED_WHOLabel1) + Me.XtraTabPage3.Controls.Add(GUIDLabel1) + Me.XtraTabPage3.Controls.Add(SQL_SELECT_EBENE2Label) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHOTextBox1) + Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1) + Me.XtraTabPage3.Controls.Add(Me.LEVEL1_SELECTCheckBox) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(851, 268) + Me.XtraTabPage3.Text = "Allgemein" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(189, 133) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(236, 13) + Me.Label4.TabIndex = 51 + Me.Label4.Text = "Dient zur Anzeige der Selektion von Datensätzen" + ' + 'COLUMN_NAME1ComboBox + ' + Me.COLUMN_NAME1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "COLUMN_NAME1", True)) + Me.COLUMN_NAME1ComboBox.FormattingEnabled = True + Me.COLUMN_NAME1ComboBox.Location = New System.Drawing.Point(72, 149) + Me.COLUMN_NAME1ComboBox.Name = "COLUMN_NAME1ComboBox" + Me.COLUMN_NAME1ComboBox.Size = New System.Drawing.Size(247, 21) + Me.COLUMN_NAME1ComboBox.TabIndex = 49 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(186, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(319, 13) + Me.Label2.TabIndex = 48 + Me.Label2.Text = "Kann man für diese Entität auf der ersten Ebene Daten selektieren?" + ' + 'SQL_SELECT_EBENE1TextBox + ' + Me.SQL_SELECT_EBENE1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE1", True)) + Me.SQL_SELECT_EBENE1TextBox.Location = New System.Drawing.Point(72, 64) + Me.SQL_SELECT_EBENE1TextBox.Name = "SQL_SELECT_EBENE1TextBox" + Me.SQL_SELECT_EBENE1TextBox.Size = New System.Drawing.Size(757, 22) + Me.SQL_SELECT_EBENE1TextBox.TabIndex = 35 + ' + 'CHANGED_WHENTextBox1 + ' + Me.CHANGED_WHENTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(239, 240) + Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" + Me.CHANGED_WHENTextBox1.ReadOnly = True + Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(160, 22) + Me.CHANGED_WHENTextBox1.TabIndex = 47 + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(73, 240) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.ReadOnly = True + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(160, 22) + Me.CHANGED_WHOTextBox1.TabIndex = 46 + ' + 'SQL_SELECT_EBENE2TextBox + ' + Me.SQL_SELECT_EBENE2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE2", True)) + Me.SQL_SELECT_EBENE2TextBox.Location = New System.Drawing.Point(72, 107) + Me.SQL_SELECT_EBENE2TextBox.Name = "SQL_SELECT_EBENE2TextBox" + Me.SQL_SELECT_EBENE2TextBox.Size = New System.Drawing.Size(757, 22) + Me.SQL_SELECT_EBENE2TextBox.TabIndex = 37 + ' + 'ADDED_WHENTextBox1 + ' + Me.ADDED_WHENTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(239, 199) + Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" + Me.ADDED_WHENTextBox1.ReadOnly = True + Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(160, 22) + Me.ADDED_WHENTextBox1.TabIndex = 45 + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(73, 199) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.ReadOnly = True + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(160, 22) + Me.ADDED_WHOTextBox1.TabIndex = 44 + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN4Label) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN4ComboBox) + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN3Label) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN3ComboBox) + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN2Label1) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN2ComboBox) + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN1Label1) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN1ComboBox) + Me.XtraTabPage4.Controls.Add(Me.WINDREAM_SEARCHTextBox) + Me.XtraTabPage4.Controls.Add(WINDREAM_SEARCHLabel) + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(851, 268) + Me.XtraTabPage4.Text = "windream-Suche Konfiguration" + ' + 'SEARCH_PATTERN4ComboBox + ' + Me.SEARCH_PATTERN4ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN4", True)) + Me.SEARCH_PATTERN4ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN4ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN4ComboBox.Location = New System.Drawing.Point(173, 108) + Me.SEARCH_PATTERN4ComboBox.Name = "SEARCH_PATTERN4ComboBox" + Me.SEARCH_PATTERN4ComboBox.Size = New System.Drawing.Size(171, 21) + Me.SEARCH_PATTERN4ComboBox.TabIndex = 43 + ' + 'SEARCH_PATTERN3ComboBox + ' + Me.SEARCH_PATTERN3ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN3", True)) + Me.SEARCH_PATTERN3ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN3ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN3ComboBox.Location = New System.Drawing.Point(173, 68) + Me.SEARCH_PATTERN3ComboBox.Name = "SEARCH_PATTERN3ComboBox" + Me.SEARCH_PATTERN3ComboBox.Size = New System.Drawing.Size(171, 21) + Me.SEARCH_PATTERN3ComboBox.TabIndex = 42 + ' + 'SEARCH_PATTERN2ComboBox + ' + Me.SEARCH_PATTERN2ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN2", True)) + Me.SEARCH_PATTERN2ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN2ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN2ComboBox.Location = New System.Drawing.Point(8, 108) + Me.SEARCH_PATTERN2ComboBox.Name = "SEARCH_PATTERN2ComboBox" + Me.SEARCH_PATTERN2ComboBox.Size = New System.Drawing.Size(156, 21) + Me.SEARCH_PATTERN2ComboBox.TabIndex = 41 + ' + 'SEARCH_PATTERN1ComboBox + ' + Me.SEARCH_PATTERN1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN1", True)) + Me.SEARCH_PATTERN1ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN1ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN1ComboBox.Location = New System.Drawing.Point(8, 68) + Me.SEARCH_PATTERN1ComboBox.Name = "SEARCH_PATTERN1ComboBox" + Me.SEARCH_PATTERN1ComboBox.Size = New System.Drawing.Size(156, 21) + Me.SEARCH_PATTERN1ComboBox.TabIndex = 40 + ' + 'XtraTabPage5 + ' + Me.XtraTabPage5.Name = "XtraTabPage5" + Me.XtraTabPage5.Size = New System.Drawing.Size(851, 268) + Me.XtraTabPage5.Text = "XtraTabPage5" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblSaveDetail}) + Me.StatusStrip1.Location = New System.Drawing.Point(292, 318) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(853, 22) + Me.StatusStrip1.TabIndex = 35 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tslblSaveDetail + ' + Me.tslblSaveDetail.BackColor = System.Drawing.Color.Yellow + Me.tslblSaveDetail.Name = "tslblSaveDetail" + Me.tslblSaveDetail.Size = New System.Drawing.Size(191, 17) + Me.tslblSaveDetail.Text = "Eingaben erfolgreich gespeichert - " + Me.tslblSaveDetail.Visible = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave}) + Me.ToolStrip1.Location = New System.Drawing.Point(292, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(853, 25) + Me.ToolStrip1.TabIndex = 34 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'tsbtnSave + ' + Me.tsbtnSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnSave.Name = "tsbtnSave" + Me.tsbtnSave.Size = New System.Drawing.Size(79, 22) + Me.tsbtnSave.Text = "Speichern" + ' + 'TreeView_Free + ' + Me.TreeView_Free.ImageIndex = 0 + Me.TreeView_Free.ImageList = Me.ImageList1 + Me.TreeView_Free.Location = New System.Drawing.Point(1182, 62) + Me.TreeView_Free.Name = "TreeView_Free" + Me.TreeView_Free.SelectedImageIndex = 1 + Me.TreeView_Free.Size = New System.Drawing.Size(139, 498) + Me.TreeView_Free.TabIndex = 41 + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBPMO_FORM_CONSTRUCTORBindingSource + Me.ListBox1.DisplayMember = "FORM_TITLE" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(15, 44) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(224, 199) + Me.ListBox1.TabIndex = 42 + Me.ListBox1.ValueMember = "GUID" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 28) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(128, 13) + Me.Label1.TabIndex = 43 + Me.Label1.Text = "Alle Constructor-Forms:" + ' + 'TBPMO_FORM_CONSTRUCTORTableAdapter1 + ' + Me.TBPMO_FORM_CONSTRUCTORTableAdapter1.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'frmConstructorDesigner + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1341, 837) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.TreeView_Free) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(CHANGED_WHENLabel) + Me.Controls.Add(Me.CHANGED_WHENTextBox) + Me.Controls.Add(CHANGED_WHOLabel) + Me.Controls.Add(Me.CHANGED_WHOTextBox) + Me.Controls.Add(ADDED_WHENLabel) + Me.Controls.Add(Me.ADDED_WHENTextBox) + Me.Controls.Add(ADDED_WHOLabel) + Me.Controls.Add(Me.ADDED_WHOTextBox) + Me.Controls.Add(SHORT_TITLELabel) + Me.Controls.Add(Me.SHORT_TITLETextBox) + Me.Controls.Add(SEQUENCE_MENULabel) + Me.Controls.Add(Me.SEQUENCE_MENUNumericUpDown) + Me.Controls.Add(FORM_TITLELabel) + Me.Controls.Add(Me.FORM_TITLETextBox) + Me.Controls.Add(GUIDLabel) + Me.Controls.Add(Me.CONSTRUCTOR_IDTextBox) + Me.Controls.Add(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmConstructorDesigner" + Me.Text = "Designer " + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.ResumeLayout(False) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.PerformLayout() + CType(Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCE_MENUNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPage3.ResumeLayout(False) + Me.XtraTabPage3.PerformLayout() + Me.XtraTabPage4.ResumeLayout(False) + Me.XtraTabPage4.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Friend WithEvents TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TreeView1 As System.Windows.Forms.TreeView + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Friend WithEvents CONSTRUCTOR_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents FORM_TITLETextBox As System.Windows.Forms.TextBox + Friend WithEvents SEQUENCE_MENUNumericUpDown As System.Windows.Forms.NumericUpDown + Friend WithEvents SHORT_TITLETextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents LEVEL1_SELECTCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents WINDREAM_SEARCHTextBox As System.Windows.Forms.TextBox + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TreeView_Free As System.Windows.Forms.TreeView + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter1 As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents tslblSaveDetail As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents tsbtnSave As System.Windows.Forms.ToolStripButton + Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents XtraTabPage5 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SQL_SELECT_EBENE1TextBox As System.Windows.Forms.TextBox + Friend WithEvents SQL_SELECT_EBENE2TextBox As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents COLUMN_NAME1ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents SEARCH_PATTERN4ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents SEARCH_PATTERN3ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents SEARCH_PATTERN2ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents SEARCH_PATTERN1ComboBox As System.Windows.Forms.ComboBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.resx b/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.resx new file mode 100644 index 0000000..70348b4 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.resx @@ -0,0 +1,427 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 160, 17 + + + 461, 17 + + + 757, 17 + + + 17, 56 + + + 930, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 1248, 17 + + + 356, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS + CQAAAk1TRnQBSQFMAgEBAgEAAZgBCAGYAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgA + AfQBeQFSAisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKa + AZMEdAF1AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0 + AVMEAAFZAcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQA + ATgBwwSaBXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKa + AcMFmgR6JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPD + AZoBegFYARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEI + AXgFlwGYAUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFP + JgAB4wGUBRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEB + BQABgBcAA/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQA + AcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQA + AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHBAAL + + + + 304, 95 + + + 197, 95 + + + 969, 56 + + + 1277, 56 + + + 17, 95 + + + 250 + + + + AAABAAQAEBAQAAAAAAAoAQAARgAAABAQAAAAAAAAaAUAAG4BAAAgIBAAAAAAAOgCAADWBgAAICAAAAAA + AACoCAAAvgkAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA + AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA + AAAA//8AAAAAAAD//wAAAAAAAP/wcAAABwAA//AAAAAAAA///wAAAAAAD///8AAAAAAP//8Ad3eQAA// + /wd3d3AAAAAABwdwcAAAAAEAAAAIAAAAAAAAiIgAAAAAAIiIgAAAAAAAgIiIcAAAAAAACAAAAAAAAAAA + AACAA///gAH//4AB//+AAf//gAH//wAD//8AB///AAP//wAD//8AA///8AD///AA///wAf//+AD///gA + ///5J///KAAAABAAAAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAIAAAIAAAACA + gACAAAAAgACAAICAAADAwMAAwNzAAPDKpgAEBAQACAgIAAwMDAAREREAFhYWABwcHAAiIiIAKSkpAFVV + VQBNTU0AQkJCADk5OQCAfP8AUFD/AJMA1gD/7MwAxtbvANbn5wCQqa0AAAAzAAAAZgAAAJkAAADMAAAz + AAAAMzMAADNmAAAzmQAAM8wAADP/AABmAAAAZjMAAGZmAABmmQAAZswAAGb/AACZAAAAmTMAAJlmAACZ + mQAAmcwAAJn/AADMAAAAzDMAAMxmAADMmQAAzMwAAMz/AAD/ZgAA/5kAAP/MADMAAAAzADMAMwBmADMA + mQAzAMwAMwD/ADMzAAAzMzMAMzNmADMzmQAzM8wAMzP/ADNmAAAzZjMAM2ZmADNmmQAzZswAM2b/ADOZ + AAAzmTMAM5lmADOZmQAzmcwAM5n/ADPMAAAzzDMAM8xmADPMmQAzzMwAM8z/ADP/MwAz/2YAM/+ZADP/ + zAAz//8AZgAAAGYAMwBmAGYAZgCZAGYAzABmAP8AZjMAAGYzMwBmM2YAZjOZAGYzzABmM/8AZmYAAGZm + MwBmZmYAZmaZAGZmzABmmQAAZpkzAGaZZgBmmZkAZpnMAGaZ/wBmzAAAZswzAGbMmQBmzMwAZsz/AGb/ + AABm/zMAZv+ZAGb/zADMAP8A/wDMAJmZAACZM5kAmQCZAJkAzACZAAAAmTMzAJkAZgCZM8wAmQD/AJlm + AACZZjMAmTNmAJlmmQCZZswAmTP/AJmZMwCZmWYAmZmZAJmZzACZmf8AmcwAAJnMMwBmzGYAmcyZAJnM + zACZzP8Amf8AAJn/MwCZzGYAmf+ZAJn/zACZ//8AzAAAAJkAMwDMAGYAzACZAMwAzACZMwAAzDMzAMwz + ZgDMM5kAzDPMAMwz/wDMZgAAzGYzAJlmZgDMZpkAzGbMAJlm/wDMmQAAzJkzAMyZZgDMmZkAzJnMAMyZ + /wDMzAAAzMwzAMzMZgDMzJkAzMzMAMzM/wDM/wAAzP8zAJn/ZgDM/5kAzP/MAMz//wDMADMA/wBmAP8A + mQDMMwAA/zMzAP8zZgD/M5kA/zPMAP8z/wD/ZgAA/2YzAMxmZgD/ZpkA/2bMAMxm/wD/mQAA/5kzAP+Z + ZgD/mZkA/5nMAP+Z/wD/zAAA/8wzAP/MZgD/zJkA/8zMAP/M/wD//zMAzP9mAP//mQD//8wAZmb/AGb/ + ZgBm//8A/2ZmAP9m/wD//2YAIQClAF9fXwB3d3cAhoaGAJaWlgDLy8sAsrKyANfX1wDd3d0A4+PjAOrq + 6gDx8fEA+Pj4APD7/wCkoKAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAFBQUFBQUFBQU + FBQUFAAAABT09PT0FBQUFBQUEhIUAAAU9PT09BQUFBQUFBIUFAAAFPT09BSaFBQUFBIUmhQAABT09PQU + FBQUFBQSEhQUABT09PT09BQUFBQUFBISAAAU9PT09PT0FBQUFBQUAAAAFPT09PT0FBSampqadRQAABT0 + 9PT09BSampqampoUAAAUFBQUFBQUmhSamhSaFAAAAAAAABQQFBQUFBQUFK8UFAAAAAAUQ0MUZ2eugo2v + FBQAAAAAFBQUFOvrgo2NFBQAAAAAAAAUFGbrZ4KCja+wFAAAAAAAFBQUFBQUghQUFBQAAAAAABQUABQU + ABQUAAAAgAP//4AB//+AAf//gAH//4AB//8AA///AAf//wAD//8AA///AAP///AA///wAP//8AH///gA + ///4AP//+Sf//ygAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA + AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAICIg4iIiAAAAAAIeP//8AAIiIiIiIhwAAAACHj///AAgIiIiIiHcAAAAI + eP///wADiIiIiIiHAAAACHj///8ACAiIiIiIAAAAAAh4///wd3CIiIiIgHdwAAAIeIiIAHdwiIiIiIB3 + cAAACHiHdwAAAAiIiIiIAAAAAIePh4gAAACIiIiIiId3AACHj4ePAAAAiIiIiIh4dwAAh4h4//AACAAA + AACIh3AAAIeIeP/wAAAHd3d3AIdwAACHiHj//wAHdwAAB5kAAAAIePiI////B3d3d3d5AAAACHj///// + 8Hd3d3d3d5AAAAh4//////B3d3d3d3eQAAAIeP/////wdwcHdwcHkAAAAAAAAAAAAHeAh3eAh5AAAAAA + AAAAAAB3d3d3d3AAAAAAAAAAAAEAd3d3AAAIiAAAAAAAAAAAAAAAAAiIiIh3cAAAAAAAAAAACDCIiIh3 + hwAAAAAAAAAAAIAIOIiHiAAAAAAAAAAAAAAAgIiIiHAAAAAAAAAAAAAACAiIiHiHAAAAAAAAAAAAAACA + iIeHh3AAAAAAAAAAAAgICIiIh4d3cAAAAAAAAAAAAIAIhYAAAAAAAAAAAAAAAAgAAIiAAAAAAAAAAAAA + AAAAAAAIcAAAAAAAAAAAAAAAAAAAAAAAAAD//AAf4AAAD+AAAAfgAAAHwAAAB8AAAAfAAAADwAAAA8AA + AAGAAAABgAAAAYAAAAOAAAADgAAABwAAAB8AAAAPAAAADwAAAA8AAAAP/+AAD//AAAD/gAAA/4AAAf8A + AAP/AAAP//AAB//wAAH/4AAA/+AAAP/BCD//xxw///+ePygAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAA + AAAAAAAAAAEAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDcwADwyqYABAQEAAgI + CAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ/wCTANYA/+zMAMbW + 7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz/wAAZgAAAGYzAABm + ZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADMZgAAzJkAAMzMAADM + /wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMzZgAzM5kAMzPMADMz + /wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ/wAzzAAAM8wzADPM + ZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYAmQBmAMwAZgD/AGYz + AABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZMwBmmWYAZpmZAGaZ + zABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8AzACZmQAAmTOZAJkA + mQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz/wCZmTMAmZlmAJmZ + mQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/mQCZ/8wAmf//AMwA + AACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxmMwCZZmYAzGaZAMxm + zACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzMzADMzP8AzP8AAMz/ + MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8zzAD/M/8A/2YAAP9m + MwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/MMwD/zGYA/8yZAP/M + zAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEApQBfX18Ad3d3AIaG + hgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICAgAAAAP8AAP8AAAD/ + /wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAUFBQUFBQUFBQUFBQUAAAAAAAAAAAUFBQUFBQU + FBQUFBJtEm1t627s7JLskpIUAAAAAAAAABTr8ev09PT09BQUEhJtbW3r6+vs7JKSku8UAAAAAAAAFOvx + 6/T09PT0FBQSbRJt623r7OzskpLv7xQAAAAAABTr8ev09PT09PQUEhJKbW1t6+vs65LskpLvFAAAAAAA + FOvx6/T09PT09BQUFG0SbW3r7OuN7JKSFBQUAAAAAAAU6/Hr9PT09PQUmpqaFG1tbevr7HOS7BSampoU + AAAAABTr8evr6+vrFBSampoUbW1t6+vr7OySFJqamhQAAAAAFOvx6+vx8fEUFBQUFBISbett6+zs7JKS + FBQUFBQAABTr8ev06/Hr6xQUFBQSEm1tbevr7OuS7JKS7+/vFAAAFOvx6/Tr8ev0FBQUEhQSbW3rbevs + 7OySku+S7wcUAAAU6/Hr6/Hr9PT0FBQUEm0SFBQUFBQUFJKSku8HFAAAABTr8evr8ev09PQUFBQSFBSa + mpqampqaFBSS7+8UAAAAFOvx6+vx6/T09PQUFBSampoUFBQUFJp1dRQUFAAAABTr8ev06+vr9PT09PT0 + FJqampqampqampp1FAAAAAAAFOvx6/T09PT09PT09BSampqampqampqampp1FAAAAAAU6/Hr9PT09PT0 + 9PT0FJqampqampqampqamnUUAAAAABTr8ev09PT09PT09PQUmpoUmhSampoUmhSadRQAAAAAFBQUFBQU + FBQUFBQUFBSamuwU7JqamuwU7Jp1FAAAAAAAAAAAAAAAAAAAABQUFJqampqampqampqaFBQUAAAAAAAA + AAAAAAAAAAAUEGcUmpqampqaFBQUFBSvjq8UFBQUAAAAAAAAAAAAFD1mQxQUFBQUFBRnjY2Ngo6vjrC2 + sBQAAAAAAAAAAAAUQ0NEZxRnZ21oZ42CjY2vjbCwr7AUAAAAAAAAAAAAFENDRENmRGdtZ2euaK6Ngo2w + jq8UFAAAAAAAAAAAAAAUFBQUFBRnFGdn62eNgo2Nja+wFAAAAAAAAAAAAAAAAAAAAAAUEhRnZ+tnjYKN + jY2wjq+wFAAAAAAAAAAAAAAAAAAAABRnZ2dnZ41njY2CsI2wjrC2FBQAAAAAAAAAAAAAAAAUEkRmbWfr + Z42Ngo2NjbCvsLDRthQAAAAAAAAAAAAAABQUZ0QUZ2eNZxSNjYivFBQUFBQUFAAAAAAAAAAAAAAUREMU + FAAU62cUABSCr44UAAAAAAAAAAAAAAAAAAAAABQUFAAAABRnFAAAABSNsBQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAABQUAAAAABQUFAAAAAAAAP/8AB/gAAAP4AAAB+AAAAfAAAAHwAAAB8AAAAPAAAADwAAAAYAA + AAGAAAABgAAAA4AAAAOAAAAHAAAAHwAAAA8AAAAPAAAADwAAAA//4AAP/8AAAP+AAAD/gAAB/wAAA/8A + AA//8AAH//AAAf/gAAD/4AAA/8EIP//HHD///54/ + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.vb b/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.vb new file mode 100644 index 0000000..70fffb2 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmConstructorDesigner.vb @@ -0,0 +1,163 @@ +Public Class frmConstructorDesigner + Dim formloaded As Boolean = False + Private Sub TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Click + Me.Validate() + Me.TBPMO_FORM_CONSTRUCTORBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DD_ECMAdmin) + + End Sub + + Private Sub frmConstructorDesigner_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin1.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen. + Try + formloaded = False + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString + Load_Head() + Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE" + Dim DTFORMS As DataTable = ClassDatabase.Return_Datatable(sql1, "") + 'FORM_IDComboBox.DataSource = DTFORMS + 'FORM_IDComboBox.DisplayMember = DTFORMS.Columns(1).ColumnName + 'FORM_IDComboBox.ValueMember = DTFORMS.Columns(0).ColumnName + + Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.FORM_TYPE_ID IN (1,2) AND T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE" + Dim DTParent As DataTable = ClassDatabase.Return_Datatable(sql2, "") + 'PARENT_IDComboBox.DataSource = DTParent + 'PARENT_IDComboBox.DisplayMember = DTParent.Columns(1).ColumnName + 'PARENT_IDComboBox.ValueMember = DTParent.Columns(0).ColumnName + + Catch ex As Exception + MsgBox("Error Loading Form:" & vbNewLine & ex.Message) + End Try + End Sub + Sub Load_Head() + Try + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR) + Catch ex As Exception + MsgBox("Error Loading Form:" & vbNewLine & ex.Message) + End Try + End Sub + Private Sub Load_Detail(ID As Integer) + Try + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL, ID) + Catch ex As System.Exception + MsgBox("Error Loading Details:" & vbNewLine & ex.Message) + End Try + + End Sub + + Private Sub frmConstructorDesigner_Shown(sender As Object, e As EventArgs) Handles Me.Shown + formloaded = True + Load_TreeViewEbene() + End Sub + Sub Load_TreeViewEbene() + Try + Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0 AND FORM_TYPE_ID = 1 AND CONSTRUCT_ID = " & CONSTR_ID) + If DT.Rows.Count = 1 Then + TreeView1.Nodes.Clear() + For Each rowEbene0 As DataRow In DT.Rows + Dim Node As TreeNode + Node = TreeView1.Nodes.Add("E1: " & rowEbene0.Item("FORM_TITLE").ToString) + Node.Tag = rowEbene0.Item("GUID") + 'Jetzt die Ebene1Knoten einhängen + Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, CONSTRUCT_ID, FORM_ID, FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = " & rowEbene0.Item("FORM_ID") & _ + " AND FORM_TYPE_ID in (2,5) AND CONSTRUCT_ID = " & CONSTR_ID & " ORDER BY SEQUENCE") + If dtEbene1.Rows.Count > 0 Then + For Each rowEbene1 As DataRow In dtEbene1.Rows + Dim Node1 As TreeNode + Node1 = Node.Nodes.Add("E2: " & rowEbene1.Item("FORM_TITLE").ToString) + Node1.Tag = rowEbene1.Item("GUID") + 'Jetzt die Ebene2 Knoten einhängen + Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, CONSTRUCT_ID, FORM_ID, FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = " & rowEbene1.Item("FORM_ID") & _ + " AND FORM_TYPE_ID in (3,5) AND CONSTRUCT_ID = " & CONSTR_ID & " ORDER BY SEQUENCE") + If dtEbene2.Rows.Count > 0 Then + For Each rowEbene2 As DataRow In dtEbene2.Rows + Dim Node2 As TreeNode + Node2 = Node1.Nodes.Add("E3: " & rowEbene2.Item("FORM_TITLE").ToString) + Node2.Tag = rowEbene2.Item("GUID") + Next + End If + + Next + + End If + Next + TreeView1.ExpandAll() + TreeView1.Nodes(0).EnsureVisible() + Else + MsgBox("Achtung Konfigurationsfehler: Mehrere oder keine Level 0 Entität gefunden!" & "Korrigieren Sie bitte Ihre Eingaben", MsgBoxStyle.Exclamation) + End If + Catch ex As Exception + MsgBox("Error in Load_TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub TBPMO_FORM_CONSTRUCTORBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingSource.CurrentChanged + If formloaded = True Then + Try + If CONSTRUCTOR_IDTextBox.Text <> "" Then + Load_TreeViewEbene() + End If + Catch ex As Exception + MsgBox("Error Loading Construct-Data:" & vbNewLine & ex.Message) + End Try + End If + End Sub + + Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect + Try + If Not TreeView1.SelectedNode Is Nothing Then + Dim construct_id As Integer = Integer.Parse(TreeView1.SelectedNode.Tag) + Me.tslblSaveDetail.Visible = False + Load_Detail(construct_id) + + End If + Catch ex As Exception + MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub LEVEL1_SELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LEVEL1_SELECTCheckBox.CheckedChanged + Try + If LEVEL1_SELECTCheckBox.Checked Then + SQL_SELECT_EBENE1TextBox.Enabled = True + Else + SQL_SELECT_EBENE1TextBox.Enabled = False + End If + Dim view As String + If SQL_SELECT_EBENE1TextBox.Text <> "" Then + view = SQL_SELECT_EBENE1TextBox.Text.ToUpper.Replace("SELECT * FROM ", "") + view = view.Trim + Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')" + Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql) + If DT IsNot Nothing Then + COLUMN_NAME1ComboBox.Items.Clear() + For Each row As DataRow In DT.Rows + COLUMN_NAME1ComboBox.Items.Add(row.Item(0)) + Next + End If + End If + Catch ex As Exception + MsgBox("Error in LEVEL1_SELECTCheckBox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click + Try + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit() + If DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox1.Text = Environment.UserName + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit() + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL) + tslblSaveDetail.Text = "Constructor-Details erfolgreich gespeichert - " & Now + Me.tslblSaveDetail.Visible = True + Else + Me.tslblSaveDetail.Visible = False + End If + + Catch ex As Exception + MsgBox("Error in Save Constructor-Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmCustomAppointment.Designer.vb b/app - Kopie/DD-Record-Organiser/frmCustomAppointment.Designer.vb new file mode 100644 index 0000000..1ba8210 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmCustomAppointment.Designer.vb @@ -0,0 +1,226 @@ + _ +Partial Class frmCustomAppointment + Inherits DevExpress.XtraScheduler.UI.AppointmentForm + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtRecordID = New System.Windows.Forms.TextBox() + Me.txtControlID = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + CType(Me.chkAllDay.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtStartDate.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtStartDate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtEndDate.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtEndDate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtStartTime.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtEndTime.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtLabel.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtShowTimeAs.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbSubject.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtResource.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtResources.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edtResources.ResourcesCheckedListBoxControl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chkReminder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbDescription.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cbReminder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbLocation.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.panel1.SuspendLayout() + Me.progressPanel.SuspendLayout() + CType(Me.tbProgress, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbProgress.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblLabel + ' + Me.lblLabel.Appearance.BackColor = System.Drawing.Color.Transparent + ' + 'chkAllDay + ' + ' + 'btnOk + ' + ' + 'edtStartDate + ' + Me.edtStartDate.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0) + ' + 'edtEndDate + ' + Me.edtEndDate.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0) + ' + 'edtStartTime + ' + Me.edtStartTime.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0) + ' + 'edtEndTime + ' + Me.edtEndTime.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0) + ' + 'edtLabel + ' + ' + 'edtShowTimeAs + ' + ' + 'tbSubject + ' + ' + 'edtResource + ' + ' + 'edtResources + ' + ' + ' + ' + Me.edtResources.ResourcesCheckedListBoxControl.CheckOnClick = True + Me.edtResources.ResourcesCheckedListBoxControl.Dock = System.Windows.Forms.DockStyle.Fill + Me.edtResources.ResourcesCheckedListBoxControl.Location = New System.Drawing.Point(0, 0) + Me.edtResources.ResourcesCheckedListBoxControl.Name = "" + Me.edtResources.ResourcesCheckedListBoxControl.Size = New System.Drawing.Size(200, 100) + Me.edtResources.ResourcesCheckedListBoxControl.TabIndex = 0 + ' + 'chkReminder + ' + ' + 'tbDescription + ' + Me.tbDescription.Size = New System.Drawing.Size(496, 108) + ' + 'cbReminder + ' + ' + 'tbLocation + ' + ' + 'tbProgress + ' + Me.tbProgress.Properties.LabelAppearance.Options.UseTextOptions = True + Me.tbProgress.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + ' + 'lblPercentComplete + ' + Me.lblPercentComplete.Appearance.BackColor = System.Drawing.Color.Transparent + ' + 'lblPercentCompleteValue + ' + Me.lblPercentCompleteValue.Appearance.BackColor = System.Drawing.Color.Transparent + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(324, 319) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(60, 13) + Me.Label1.TabIndex = 29 + Me.Label1.Text = "Record-ID:" + ' + 'txtRecordID + ' + Me.txtRecordID.Location = New System.Drawing.Point(412, 316) + Me.txtRecordID.Name = "txtRecordID" + Me.txtRecordID.ReadOnly = True + Me.txtRecordID.Size = New System.Drawing.Size(100, 21) + Me.txtRecordID.TabIndex = 30 + ' + 'txtControlID + ' + Me.txtControlID.Location = New System.Drawing.Point(96, 316) + Me.txtControlID.Name = "txtControlID" + Me.txtControlID.ReadOnly = True + Me.txtControlID.Size = New System.Drawing.Size(100, 21) + Me.txtControlID.TabIndex = 31 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(13, 319) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(61, 13) + Me.Label2.TabIndex = 32 + Me.Label2.Text = "Control-ID:" + ' + 'frmCustomAppointment + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.ClientSize = New System.Drawing.Size(528, 382) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtControlID) + Me.Controls.Add(Me.txtRecordID) + Me.Controls.Add(Me.Label1) + Me.MinimumSize = New System.Drawing.Size(518, 307) + Me.Name = "frmCustomAppointment" + Me.Controls.SetChildIndex(Me.edtShowTimeAs, 0) + Me.Controls.SetChildIndex(Me.edtEndTime, 0) + Me.Controls.SetChildIndex(Me.edtEndDate, 0) + Me.Controls.SetChildIndex(Me.btnRecurrence, 0) + Me.Controls.SetChildIndex(Me.btnDelete, 0) + Me.Controls.SetChildIndex(Me.btnCancel, 0) + Me.Controls.SetChildIndex(Me.lblShowTimeAs, 0) + Me.Controls.SetChildIndex(Me.lblEndTime, 0) + Me.Controls.SetChildIndex(Me.tbLocation, 0) + Me.Controls.SetChildIndex(Me.lblSubject, 0) + Me.Controls.SetChildIndex(Me.lblLocation, 0) + Me.Controls.SetChildIndex(Me.tbSubject, 0) + Me.Controls.SetChildIndex(Me.lblStartTime, 0) + Me.Controls.SetChildIndex(Me.btnOk, 0) + Me.Controls.SetChildIndex(Me.edtStartDate, 0) + Me.Controls.SetChildIndex(Me.edtStartTime, 0) + Me.Controls.SetChildIndex(Me.panel1, 0) + Me.Controls.SetChildIndex(Me.progressPanel, 0) + Me.Controls.SetChildIndex(Me.tbDescription, 0) + Me.Controls.SetChildIndex(Me.Label1, 0) + Me.Controls.SetChildIndex(Me.txtRecordID, 0) + Me.Controls.SetChildIndex(Me.txtControlID, 0) + Me.Controls.SetChildIndex(Me.Label2, 0) + CType(Me.chkAllDay.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtStartDate.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtStartDate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtEndDate.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtEndDate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtStartTime.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtEndTime.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtLabel.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtShowTimeAs.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbSubject.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtResource.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtResources.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edtResources.ResourcesCheckedListBoxControl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chkReminder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbDescription.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cbReminder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbLocation.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.panel1.ResumeLayout(False) + Me.panel1.PerformLayout() + Me.progressPanel.ResumeLayout(False) + Me.progressPanel.PerformLayout() + CType(Me.tbProgress.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbProgress, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtRecordID As System.Windows.Forms.TextBox + Friend WithEvents txtControlID As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmCustomAppointment.resx b/app - Kopie/DD-Record-Organiser/frmCustomAppointment.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmCustomAppointment.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmCustomAppointment.vb b/app - Kopie/DD-Record-Organiser/frmCustomAppointment.vb new file mode 100644 index 0000000..3ae9bbb --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmCustomAppointment.vb @@ -0,0 +1,93 @@ +#Region "Note" +' +'{**************************************************************************************************************} +'{ This file is automatically created when you open the Scheduler Control smart tag } +'{ *and click Create Customizable Appointment Dialog. } +'{ It contains a a descendant of the default appointment editing form created by visual inheritance. } +'{ In Visual Studio Designer add an editor that is required to edit your appointment custom field. } +'{ Modify the LoadFormData method to get data from a custom field and fill your editor with data. } +'{ Modify the SaveFormData method to retrieve data from the editor and set the appointment custom field value. } +'{ The code that displays this form is automatically inserted } +'{ *in the EditAppointmentFormShowing event handler of the SchedulerControl. } +'{ } +'{**************************************************************************************************************} +' +#End Region ' Note + +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports System.Data +Imports System.Drawing +Imports System.Text +Imports System.Windows.Forms +Imports DevExpress.XtraScheduler + +Partial Public Class frmCustomAppointment + Inherits DevExpress.XtraScheduler.UI.AppointmentForm + + Private _recordid As Integer + Private _controlid As Integer + + Public Sub New() + InitializeComponent() + End Sub + Public Sub New(ByVal control As DevExpress.XtraScheduler.SchedulerControl, ByVal apt As DevExpress.XtraScheduler.Appointment) + MyBase.New(control, apt) + InitializeComponent() + End Sub + Public Sub New(ByVal control As DevExpress.XtraScheduler.SchedulerControl, ByVal apt As DevExpress.XtraScheduler.Appointment, ByVal openRecurrenceForm As Boolean) + MyBase.New(control, apt, openRecurrenceForm) + InitializeComponent() + End Sub + '''

+ ''' Add your code to obtain a custom field value and fill the editor with data. + ''' + Public Overrides Sub LoadFormData(ByVal appointment As DevExpress.XtraScheduler.Appointment) + If appointment.CustomFields("RecordID") Is Nothing Then + txtRecordID.Text = "" + Else + _recordid = appointment.CustomFields("RecordID").ToString() + txtRecordID.Text = _recordid + End If + + If appointment.CustomFields("ControlID") Is Nothing Then + txtControlID.Text = "" + Else + _controlid = appointment.CustomFields("ControlID").ToString() + txtControlID.Text = _controlid + End If + + MyBase.LoadFormData(appointment) + End Sub + ''' + ''' Add your code to retrieve a value from the editor and set the custom appointment field. + ''' + Public Overrides Function SaveFormData(ByVal appointment As DevExpress.XtraScheduler.Appointment) As Boolean + If txtRecordID.Text.Length = 0 Then + appointment.CustomFields("RecordID") = 0 + Else + appointment.CustomFields("RecordID") = Integer.Parse(txtRecordID.Text) + End If + + If txtControlID.Text.Length = 0 Then + appointment.CustomFields("ControlID") = 0 + Else + appointment.CustomFields("ControlID") = Integer.Parse(txtControlID.Text) + End If + + Return MyBase.SaveFormData(appointment) + End Function + ''' + ''' Add your code to notify that any custom field is changed. Return true if a custom field is changed, otherwise false. + ''' + Public Overrides Function IsAppointmentChanged(ByVal appointment As DevExpress.XtraScheduler.Appointment) As Boolean + Return True + End Function + + Private Sub frmCustomAppointment_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb b/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb new file mode 100644 index 0000000..44cf3ba --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb @@ -0,0 +1,565 @@ + _ +Partial Class frmDD_EMAIL_ACCOUNT + 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 GUIDLabel As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim EMAIL_FROMLabel As System.Windows.Forms.Label + Dim EMAIL_SMTPLabel As System.Windows.Forms.Label + Dim EMAIL_USERLabel As System.Windows.Forms.Label + Dim EMAIL_PWLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDD_EMAIL_ACCOUNT)) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.TBDD_EMAIL_ACCOUNTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_EMAIL_ACCOUNTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_EMAIL_ACCOUNTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_FROMTextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_SMTPTextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_USERTextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_PWTextBox = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.lblSave = New System.Windows.Forms.Label() + Me.btnEmailTest = New System.Windows.Forms.Button() + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.lbltest = New System.Windows.Forms.Label() + Me.txttestReceipiant = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + GUIDLabel = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + EMAIL_FROMLabel = New System.Windows.Forms.Label() + EMAIL_SMTPLabel = New System.Windows.Forms.Label() + EMAIL_USERLabel = New System.Windows.Forms.Label() + EMAIL_PWLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_EMAIL_ACCOUNTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_EMAIL_ACCOUNTBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(12, 25) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(21, 15) + GUIDLabel.TabIndex = 1 + GUIDLabel.Text = "ID:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Location = New System.Drawing.Point(77, 25) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(68, 15) + NAMELabel.TabIndex = 3 + NAMELabel.Text = "Profilname:" + ' + 'EMAIL_FROMLabel + ' + EMAIL_FROMLabel.AutoSize = True + EMAIL_FROMLabel.Location = New System.Drawing.Point(77, 69) + EMAIL_FROMLabel.Name = "EMAIL_FROMLabel" + EMAIL_FROMLabel.Size = New System.Drawing.Size(94, 15) + EMAIL_FROMLabel.TabIndex = 5 + EMAIL_FROMLabel.Text = "Email-Absender:" + ' + 'EMAIL_SMTPLabel + ' + EMAIL_SMTPLabel.AutoSize = True + EMAIL_SMTPLabel.Location = New System.Drawing.Point(351, 69) + EMAIL_SMTPLabel.Name = "EMAIL_SMTPLabel" + EMAIL_SMTPLabel.Size = New System.Drawing.Size(134, 15) + EMAIL_SMTPLabel.TabIndex = 7 + EMAIL_SMTPLabel.Text = "Mailserver (SMTP/POP):" + ' + 'EMAIL_USERLabel + ' + EMAIL_USERLabel.AutoSize = True + EMAIL_USERLabel.Location = New System.Drawing.Point(77, 113) + EMAIL_USERLabel.Name = "EMAIL_USERLabel" + EMAIL_USERLabel.Size = New System.Drawing.Size(33, 15) + EMAIL_USERLabel.TabIndex = 9 + EMAIL_USERLabel.Text = "User:" + ' + 'EMAIL_PWLabel + ' + EMAIL_PWLabel.AutoSize = True + EMAIL_PWLabel.Location = New System.Drawing.Point(351, 113) + EMAIL_PWLabel.Name = "EMAIL_PWLabel" + EMAIL_PWLabel.Size = New System.Drawing.Size(57, 15) + EMAIL_PWLabel.TabIndex = 11 + EMAIL_PWLabel.Text = "Passwort:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(77, 157) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 15) + ADDED_WHOLabel.TabIndex = 15 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(77, 201) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 15) + ADDED_WHENLabel.TabIndex = 17 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(211, 201) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 15) + CHANGED_WHENLabel.TabIndex = 19 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBDD_EMAIL_ACCOUNTBindingSource + ' + Me.TBDD_EMAIL_ACCOUNTBindingSource.DataMember = "TBDD_EMAIL_ACCOUNT" + Me.TBDD_EMAIL_ACCOUNTBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBDD_EMAIL_ACCOUNTTableAdapter + ' + Me.TBDD_EMAIL_ACCOUNTTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Me.TBDD_EMAIL_ACCOUNTTableAdapter + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_EMAIL_ACCOUNTBindingNavigator + ' + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.BindingSource = Me.TBDD_EMAIL_ACCOUNTBindingSource + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.CountItemFormat = "von {0} Email-Profilen" + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem}) + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.Name = "TBDD_EMAIL_ACCOUNTBindingNavigator" + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.Size = New System.Drawing.Size(616, 25) + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.TabIndex = 0 + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(122, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Email-Profilen" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(58, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(15, 43) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(56, 23) + Me.GUIDTextBox.TabIndex = 2 + Me.GUIDTextBox.TabStop = False + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "NAME", True)) + Me.NAMETextBox.Location = New System.Drawing.Point(80, 43) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(265, 23) + Me.NAMETextBox.TabIndex = 4 + ' + 'EMAIL_FROMTextBox + ' + Me.EMAIL_FROMTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_FROM", True)) + Me.EMAIL_FROMTextBox.Location = New System.Drawing.Point(80, 87) + Me.EMAIL_FROMTextBox.Name = "EMAIL_FROMTextBox" + Me.EMAIL_FROMTextBox.Size = New System.Drawing.Size(265, 23) + Me.EMAIL_FROMTextBox.TabIndex = 6 + ' + 'EMAIL_SMTPTextBox + ' + Me.EMAIL_SMTPTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_SMTP", True)) + Me.EMAIL_SMTPTextBox.Location = New System.Drawing.Point(354, 87) + Me.EMAIL_SMTPTextBox.Name = "EMAIL_SMTPTextBox" + Me.EMAIL_SMTPTextBox.Size = New System.Drawing.Size(244, 23) + Me.EMAIL_SMTPTextBox.TabIndex = 8 + ' + 'EMAIL_USERTextBox + ' + Me.EMAIL_USERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_USER", True)) + Me.EMAIL_USERTextBox.Location = New System.Drawing.Point(80, 131) + Me.EMAIL_USERTextBox.Name = "EMAIL_USERTextBox" + Me.EMAIL_USERTextBox.Size = New System.Drawing.Size(265, 23) + Me.EMAIL_USERTextBox.TabIndex = 10 + ' + 'EMAIL_PWTextBox + ' + Me.EMAIL_PWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_PW", True)) + Me.EMAIL_PWTextBox.Location = New System.Drawing.Point(354, 131) + Me.EMAIL_PWTextBox.Name = "EMAIL_PWTextBox" + Me.EMAIL_PWTextBox.Size = New System.Drawing.Size(244, 23) + Me.EMAIL_PWTextBox.TabIndex = 12 + Me.EMAIL_PWTextBox.UseSystemPasswordChar = True + ' + 'ACTIVECheckBox + ' + Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(354, 41) + Me.ACTIVECheckBox.Name = "ACTIVECheckBox" + Me.ACTIVECheckBox.Size = New System.Drawing.Size(100, 25) + Me.ACTIVECheckBox.TabIndex = 14 + Me.ACTIVECheckBox.Text = "Profil Aktiv?" + Me.ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(80, 175) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(125, 23) + Me.ADDED_WHOTextBox.TabIndex = 16 + Me.ADDED_WHOTextBox.TabStop = False + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(80, 219) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(125, 23) + Me.ADDED_WHENTextBox.TabIndex = 18 + Me.ADDED_WHENTextBox.TabStop = False + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(214, 219) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 23) + Me.CHANGED_WHENTextBox.TabIndex = 20 + Me.CHANGED_WHENTextBox.TabStop = False + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(211, 157) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 15) + CHANGED_WHOLabel.TabIndex = 20 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(214, 175) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(131, 23) + Me.CHANGED_WHOTextBox.TabIndex = 21 + Me.CHANGED_WHOTextBox.TabStop = False + ' + 'lblSave + ' + Me.lblSave.AutoSize = True + Me.lblSave.BackColor = System.Drawing.Color.Yellow + Me.lblSave.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(75, 245) + Me.lblSave.Name = "lblSave" + Me.lblSave.Size = New System.Drawing.Size(200, 15) + Me.lblSave.TabIndex = 79 + Me.lblSave.Text = "Email-Profil erfolgreich gespeichert!" + Me.lblSave.Visible = False + ' + 'btnEmailTest + ' + Me.btnEmailTest.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnEmailTest.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddressEnvelope_16xLG + Me.btnEmailTest.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEmailTest.Location = New System.Drawing.Point(14, 68) + Me.btnEmailTest.Name = "btnEmailTest" + Me.btnEmailTest.Size = New System.Drawing.Size(110, 23) + Me.btnEmailTest.TabIndex = 80 + Me.btnEmailTest.Text = "Teste Versand" + Me.btnEmailTest.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnEmailTest.UseVisualStyleBackColor = True + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem + ' + Me.TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.Name = "TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem" + Me.TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'lbltest + ' + Me.lbltest.AutoSize = True + Me.lbltest.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltest.Location = New System.Drawing.Point(11, 21) + Me.lbltest.Name = "lbltest" + Me.lbltest.Size = New System.Drawing.Size(89, 15) + Me.lbltest.TabIndex = 81 + Me.lbltest.Text = "Testempfänger:" + ' + 'txttestReceipiant + ' + Me.txttestReceipiant.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttestReceipiant.Location = New System.Drawing.Point(14, 39) + Me.txttestReceipiant.Name = "txttestReceipiant" + Me.txttestReceipiant.Size = New System.Drawing.Size(224, 23) + Me.txttestReceipiant.TabIndex = 82 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.txttestReceipiant) + Me.GroupBox1.Controls.Add(Me.btnEmailTest) + Me.GroupBox1.Controls.Add(Me.lbltest) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(354, 160) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(244, 100) + Me.GroupBox1.TabIndex = 83 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Überprüfung:" + ' + 'frmDD_EMAIL_ACCOUNT + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(616, 272) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.lblSave) + Me.Controls.Add(CHANGED_WHOLabel) + Me.Controls.Add(Me.CHANGED_WHOTextBox) + Me.Controls.Add(CHANGED_WHENLabel) + Me.Controls.Add(Me.CHANGED_WHENTextBox) + Me.Controls.Add(ADDED_WHENLabel) + Me.Controls.Add(Me.ADDED_WHENTextBox) + Me.Controls.Add(ADDED_WHOLabel) + Me.Controls.Add(Me.ADDED_WHOTextBox) + Me.Controls.Add(Me.ACTIVECheckBox) + Me.Controls.Add(EMAIL_PWLabel) + Me.Controls.Add(Me.EMAIL_PWTextBox) + Me.Controls.Add(EMAIL_USERLabel) + Me.Controls.Add(Me.EMAIL_USERTextBox) + Me.Controls.Add(EMAIL_SMTPLabel) + Me.Controls.Add(Me.EMAIL_SMTPTextBox) + Me.Controls.Add(EMAIL_FROMLabel) + Me.Controls.Add(Me.EMAIL_FROMTextBox) + Me.Controls.Add(NAMELabel) + Me.Controls.Add(Me.NAMETextBox) + Me.Controls.Add(GUIDLabel) + Me.Controls.Add(Me.GUIDTextBox) + Me.Controls.Add(Me.TBDD_EMAIL_ACCOUNTBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmDD_EMAIL_ACCOUNT" + Me.Text = "Hinterlegte Email Profile" + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_EMAIL_ACCOUNTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_EMAIL_ACCOUNTBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.ResumeLayout(False) + Me.TBDD_EMAIL_ACCOUNTBindingNavigator.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout + +End Sub + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBDD_EMAIL_ACCOUNTBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_EMAIL_ACCOUNTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_EMAIL_ACCOUNTBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAIL_FROMTextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAIL_SMTPTextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAIL_USERTextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAIL_PWTextBox As System.Windows.Forms.TextBox + Friend WithEvents ACTIVECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents lblSave As System.Windows.Forms.Label + Friend WithEvents btnEmailTest As System.Windows.Forms.Button + Friend WithEvents lbltest As System.Windows.Forms.Label + Friend WithEvents txttestReceipiant As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.resx b/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.resx new file mode 100644 index 0000000..21e2f74 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.resx @@ -0,0 +1,686 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 160, 17 + + + 423, 17 + + + 680, 17 + + + 853, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + False + + + + AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA + IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw + AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wDUfQEASMJaALGkswAAfAAAlGRcAOqgUwD0yckAkouLALOEaADIxcUA16enAPbo4wC4iowA2Yo8AACf + AADsyaoAo5qcAMdtFABLs0YA0szbAJ9pRgDdtroApHV1ANBjAADt0t4AxLGxAP/r9QDql0EAubjCALWh + lwDhys4ArYGBAOjMvQDPfxEAj2lrAO/YyACrkZEA2cjBALimpgDTcAwAo4eJAM28vADUzc0A99fXAKuo + qACzk4QAuLS0APj1+ACvl54A6Lq6AP/h4QDgt68A1nIAAO3d4AD/6uoAnY6PAJmFhgC2rrwArYqKANHB + xwCzrKwApH6BAODCwgCdlZUA7c3NANS9twC9u7sAsIuCAOrNxQColpcA0MfVAPPq6gDpx7EAs4+PALur + qwD/8vIA+t3dALSGhgDVrasA1mcAAKyjowD/9/cA99LSAMjAwADkyMgAtJuUANFyEgCqfH4Av7S0AKOT + lADErawA++bmALaiogDVzdYA1MLCAK2GhADMZwEAqIiMAK6ZmQCtiH8AsoqLAP/7/ADZzc0A7MuxAPjg + 4AC3q64AspmbAP/v7wD36ekAsY+DAPHLywD/5uYAsYGBAP3n6QDu1coAoZ2dAP/t+ACxjY0Aq39/AKmJ + iQCkmZkAq46QALOShwCtgYQAroiGALmysgDVpqkA/+3tALu2wgCtkZMAqJiZANJuCwCsg4MAqYmOAK+J + iQCzjIwAqpKTALWOjgCPZ2oA6p9RALCLiwD96ekAsYmJAPzo6ACsgIAAroWFAJ6WlgD/8fEA/+zsAP/r + 6wD/6ekA/+LiAK6BgwCzjY0ApZmaALSPjgCnmJgAxLCyAP3o6QCsf38ArYODAK2FhQCzhoYAopOUALKK + igCyjY0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAA5nzyThqKioiGSoRgAAABbWVamTYGXllJBejSkAAClfYAgZm2YcTg+lAme + TwAAPxdQEZtTlZeXj5FzoA4AAIc1KSKnLFVtOJgcFAWjAABlB0BKSwswbpWBdgMQfgAAfEaFaXd3joiJ + nYuQYZoAAG+NN3QnaF8VSD1DXAAAAABXDVgPE2IZUTYCIxYAAAAALx0lGh6COwQyRQoGAAAAAB8BMUJE + WkxebINjjAAAAABrZ0lwYCsbKGQmeSQAAAAAf06ZXWotVAgzDHJ4AAAAAHUuEpyER4p7KjoAAAAAAAAA + AAAAAAAAAAAAAAAAAAD//wAA4AEAAMABAACAAQAAgAEAAIABAACAAQAAgAEAAIAHAACABwAAgAcAAIAH + AACABwAAgAcAAIAfAAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAB/VVlbx7K09K+MjP6wh4f+roWF/q+Fhf6vhYX+r4WF/q+Dg/6ugoL+roGB/qV1 + dfcAAAAAAAAAAAAAAACPX2NZq3t98+TIyP+yior///Ly///t7f//6+v//+zs/6yjo/+dlZX/pJmZ///h + 4f+1h4f9AAAAAAAAAACMXmNVr4CD8dWmqf/hys7/soqL///v7///6en//+bm///q6v+zrKz/npaW/5KL + i/+nmJj/toeH/QAAAAAAAAAApHt+6d22uv/Vrav/7Mmq/7ONjf//9/f///Hx///r6///6+v//enp//zo + 6P/95+n//ejp/7qLjf0AAAAAAAAAAKuJjvTgt6//03AM/+jMvf+yjY3/1M3N/8jAwP//7+///+rq///p + 6f//6/X/S7NG/wB8AP+vhob9AAAAAAAAAACviH706qBT/+DCwv/px7H/s4+P/8jFxf+4tLT/9+np///x + 8f//7e3//+34/0jCWv8AnwD/sImH/QAAAAAAAAAAtZKH9OrNxf/Sbgv/7Mux/7GNjf+xjY3/sIuL/6+J + if+zjIz/tI+O/7WOjv+xiYn/r4iG/q+ChPwAAAAAAAAAALOPg/Tqn1H/7d3g/+7Vyv/ZyMH/2c3N/9XN + 1v/SzNv/0MfV/9HBx//Uvbf/xq+u+wAAAAAAAAAAAAAAAAAAAAC2nJT09ujj/9FyEv/Zijz/x20U/8xn + Af/QYwD/1mcA/9ZyAP/UfQH/z38R/6BoRPcAAAAAAAAAAAAAAAAAAAAAtZOE9OqXQf/v2Mj/7dLe/7m4 + wv+7tsL/tq68/7Gks/+vl57/sIuC/7OEaP+VZFv4AAAAAAAAAAAAAAAAAAAAALeimPT/////+PX4/+3N + zf+9u7v/v7S0/7urq/+2oqL/spmb/62Rk/+oiIz/kGdq+AAAAAAAAAAAAAAAAAAAAAC5rbD0//v8//Pq + 6v/zzc3+1MLC/828vP/EsbH/uKam/66Zmf+rkZH/qYmJ/5Bpa/gAAAAAAAAAAAAAAAAAAAAAvLS08vrd + 3f//4uL/++bm//jg4P/319f/99LS//TJyf/ourr/16en/7ODg/6sdXXNAAAAAAAAAAAAAAAAAAAAAJSM + jICrpqaYoJSWt6SUlsSolJbQqZSV3qyRk+utj5H3on+Bz4llZ42JX2RLAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD//wAA4AEAAMABAACAAQAAgAEAAIABAACAAQAAgAEAAIAHAACABwAAgAcAAIAHAACABwAAgAcAAIAf + AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A14EmACy0 + QAC2p60AgmNjAPiyZgAAkAAA+Ne7ALiJaQCUypAAyVkAAOWslwDNxMsAmpGRAOrc5QDafAAA25FIABme + GACec3MAvn8/ALyWiADnuroAwGsgAOGgZgDwxKEAzp2dAJtpWgD/7OwA/tbWAOWxfQDNs6oArIaDAOPN + 1AC+trwAop+fANFyEwDSqYUA9KZUAPDt/ADkjzUA1GoAAAefDwC6m5sAxXssABiLFQDUuroA68y1AL+E + UAD/3OUArpOTANytsgCfe4kA78vLANilpQDWhj8Aj2hpANPR0QDNqpMA5MXFALmGhgDjuZ0AyoVHAOq3 + kAD/+vIA8+nqANzEtQDBsLAAy2kKADmzQwCle3sA8dbWALyIXACziXUA4t3dAMm7xADTgTIAy62fAO27 + qQDeqIIApIuLAMGiogD04eEA2MLCAPfx8wCaZmYA4ogsAPzNzQDIt7cAuZKSALettgDIciIApJaRAN21 + lQDIbRYA+dPeAJ2AgADtw8MA9atfAMtlAADBp6sA06usAKygoADlnl0AwsDAAK6LiwC2oaIAsZiZANh0 + AADsvZcA38vLAJptbQCpjZgA5cO2AN65uQD/5eUAn5mZAKKHggDQoqQA1nYZAMisrADnvcQA13cQAKWB + hwDXrKEA6t3dAMy8vADQtbUA3K2UAMqYmAD/3t4A//LyANjR1wDvxJgA4MDAALunpwDbgywA1sfHAMvF + xQDKchsA78/PAJ94eACpipAA//n5AOjQ0ACkgnsAv7S0AODL2gC2lIUA+PT5AMS5vgD07OwAtJ2eAKKN + kQC8rq4A0GEAAM5pBADKbBAAhWdnAObJyQC7sbkAnZSUALeNcgCqmJgAnoyMALmoswC+np4A1r6+AKJ6 + gACnhowAr4+OAO3U1ADv2toA/9HRAP/h4QDYtroAxHkxAOHEygCph4cAspaVALeblgClf38AqYJ+AMe0 + uwDgsLAA2K+vAPnu7gC5qakA1W8AAJxpXwDLwMgAoH+MAMG6ugCsiH4Ao4+KAPDf3wDqx8cAonV1AKOX + mwD92NgA3cjIAKSdnQD69fUAwn5BALqHYAChg4YAp4ODALSYmAC2hWkA1K6wAMu/vwDIuMEAx7q6AKOi + ogCrjY0A06WlAP/29gD/7+8A8+7xAP/p6QCicnIAonx8AOXGuQCofnsA2Lu7AKaJiQDJsK0A/9nZAMG3 + twCykpEAz2UAANd9AAD88O0A2oUpAMh5LQClhYUApIh/ANCtrQDgiC8A1XkSAJxrawDJx8cAw7y8AKCd + nQC+q6sAzJqaAPbx8QC8g08AvLS6AK2RlQC+o6MAoX+AAKeFiQCtiocAuKWlALWcmwAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACeBaTr6+vrzrW13d2NExMTbwAAAAAAADgaVStp2dtzc3OuflhD4x2C + EwAAAAAAb4E28KZp2dtzc3OuflhD9IeCEwAAAAATGho2E1Gqgxzb23NzflhD9IeCEwAAAMXX13YzqGTl + 2Bwc29tzbshTpy6ujQAAE7m50WU3F13l2NnZHNtzc66CguOujQAA3XKvfJzpXh7lj4PZ2Rzbc3MKBy2u + jQAA+7GAejd5cLfPjznxaBzbc3MKKhJzjQAAzT8oT5MM0B/PATnxaNkc23MKA0WujQAAkQZxIUzvm20r + AQGPj9iD2dkc23Mc3QAAdazedyROFUKzz7Oqqmn9ICC2391GjQAAmRlWGA9fpYQNDb6+S9O34k06JbQA + AAAA7GIvJz0CY51bsMswSAlJwfy/NDgAAAAAwuhBEQtnPuqLRObmKbxsEBAQ5xsAAAAAxgjuiC8xliL4 + oFoE/5SizPcULL0AAAAAwiaFldrH1OSSmrv+aphr+Y6pe28AAAAAXEABVJcd0vLkkpq7apizMtayzm8A + AAAAyQHK9kEdimjAkpq7/phrMtayzm8AAAAAyY/2l1JXNcQ7huB/ePr/Mtayzm8AAAAAybpHrcdSw6yr + jDU1YRa4NvU83G8AAAAADmaJSkp9fcOsq5CfO4btWbXhowAAAAAAAADVI/N0oQ6kpKRQ4WCkAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A/AABAPgAAQDwAAEA4AABAMAAAQCAAAEAgAABAIAA + AQCAAAEAgAABAIAAAQCAAAcAgAAHAIAABwCAAAcAgAAHAIAABwCAAAcAgAAHAIAABwCAAA8A4AD/AP// + /wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDWlohflpa1HtWVtWagoK/pYSE96eG + hvmmhIT3poWF9aaCgvSlf3/0pX9/9KN8fPSie3v0oXZ29KB0dPSfcnL0nnBw9JloaOcAAAAAAAAAAAAA + AAAAAAAAAAAAAKBqaiaNYWHi0J2d/5pmZv+7mpr/roqK///v7///6Oj//+fn///l5f//5OT//+Li/8y7 + u//It7f/wbCw///Y2P//19f//97e/55ycvgAAAAAAAAAAAAAAAAAAAAArG9vLJloaOfKmJj/2KSk/5xr + a/++np7/r4yM///w8P//6Oj//+fn///l5f//5OT//+Li/8y8vP/It7f/wa+v/76rq/+7pqb//97e/59z + c/gAAAAAAAAAAAAAAACuc3MyoG9v6s6dnf/MnJz/2aWl/59xcf/BoqL/r42N///x8f//6+v//+np///o + 6P//5ub//+Tk/8y9vf/It7f/wbCw/76rq/+7p6f//9/f/591dfgAAAAAAAAAAKNycjmjc3Pu0qWl/9Ol + pf/QoqT/3K2y/6J6gP/Bp6v/sZGR///19f//7e3//+vr///q6v//6Oj//+Xl/9/Ly//dyMj/2MLC/9a+ + vv/Uurr//+Dg/6F2dvgAAAAAAAAAAJxvb+LYsLD/166u/9SusP/Tq6z/14Y+/8BrIP/dtZX/spKR///2 + 9v//7+///+7u///s7P//6en//+fn///l5f//4uL//9/f///d3f//2tr//+Hh/6B4ePgAAAAAAAAAAKF3 + d+neubn/2La6/9esof/OaQT/2oUp/8htFv/lsX3/tJSS///5+f//8vL///Dw///u7v//6+v//+np///m + 5v//4+P/lMqP/wCQAP8YixX//+Hh/6F4ePgAAAAAAAAAAKF8fenhxMr/3K2U/9d3EP/VhkD/573E/6mN + mP/GtLv/tJeY///7+//T0ND/ycfH/8G/v///7Oz//+rq///n5///5OT/lMqQ/wefD/8Znhj//+Pj/6F5 + efgAAAAAAAAAAKGAg+nqt5D/5I81/96ogv/gy9r/5ayX/7aFaf/Ns6r/tJmZ///+/v/T0dH/ycfH/8G/ + v///7u7//+vr///o6P//5eX/lMuQ/yy0QP85s0P//+Li/6F5efgAAAAAAAAAAKR/d+n4smb/5cO2/+PN + 1P/TgTL/1XkS/9BhAP/svZf/uZyb/////////f3///v7///4+P//9vb///Pz///w8P//7u7//+vr///o + 6P//5eX//+vr/6R9ffgAAAAAAAAAAKKEf+nw2tr/5ca5/9Z2Gf/RchP/7bup/7yWiP/cxLX/spaV/7SY + l/+ylJP/sJGP/6+Pjf+tjIr/rYqH/6yHhP+rhYL/qYJ+/6h+e/+ke3v+pnt7+aF2dvAAAAAAAAAAAKKL + j+nwxKH/4ogs/+GgZv/q3OX/+dPe/7mos//Y0df/zcTM/83Dyv/Lwcn/yr/H/8m7xP/IuMH/x7S6/8mw + rf/LrZ//zaqT/9Kphf+5nJf0AAAAAAAAAAAAAAAAAAAAAKSGfOn1q1//7My1//Dt/P/juZ3/14Em/8tl + AP/KbBD/yHIi/8R5Mf/CfkH/v4RQ/7yIXP+4iWn/s4l1/6yIfv+nhYn/oH+M/597if+OY2fuAAAAAAAA + AAAAAAAAAAAAAKONien88O3/8ujp/9uRSP/JWQD/5Z5d/8qFR//IeS3/ynIb/8tpCv/OZAD/0GUA/9Rq + AP/VbwD/2HQA/9l7AP/bfQD/2n0A/9d9AP+bZlXuAAAAAAAAAAAAAAAAAAAAAKOWmun417v/4Igv/9uD + LP/qy7X//9zl/8S5vv++trz/vLS6/7uxuf+3rbb/tqet/7Scmv+2lIX/t41y/7qHYP+8g0//vn8//8V7 + LP+cZlvuAAAAAAAAAAAAAAAAAAAAAKONhen0plT/78SY//j0+f/z7vH//tfX/8e6uv/Btrb/v7Oz/72v + r/+6qqr/uKWm/7Wgov+znJ7/sJea/62Rlf+pipD/p4aM/6WBh/+aamvuAAAAAAAAAAAAAAAAAAAAAKSV + j+n/+vL//f3///fx8//z6+v//tXV/8u/v//DvLz/wbe3/7+0tP+8ra3/uaio/7aiov+0nZ3/sZeX/66S + kv+rjIz/qIaG/6iEhP+ba2vuAAAAAAAAAAAAAAAAAAAAAKSbm+n/////+vX1//bw8P/z6ur//dXV/8vF + xf/CwMD/wbq6/761tf+8r6//uaqq/7ekpP+0np7/sZiY/66Tk/+sjY3/qYeH/6eDg/+bamruAAAAAAAA + AAAAAAAAAAAAAKObm+n++Pj/9vHx//Tt7f/04OD//s/P/vDKyv/qx8f/5MTE/9/AwP/Yu7v/0LW1/8is + rP++o6P/tZub/6+Tk/+qjY3/qYeH/6eEhP+ba2vuAAAAAAAAAAAAAAAAAAAAAKWenun57u7/8dbW///R + 0f/82Nj/8+Hh/+/g4P/u2dn/7dPT/+/Pz//uy8v/8MrK/+3Dw//nurr/4LCw/9alpf/Mmpr/uYaG/6Jy + cv+ZZ2fpAAAAAAAAAAAAAAAAAAAAAJmRkemsoKD/1sfH/+Hc3P/j3d3/6dzc/+vd3f/w3t7/8Nzc/+zV + 1f/o0ND/5snJ/+PFxf/hwMD/0K2t/7mSkv+mfHzvonV1qaRzc16tamoVAAAAAAAAAAAAAAAAAAAAAJeN + jTaVkZFPk4+PXpOMjG2TjIx7k4iIipOEhJmSgoKoloKCt5qFhcWfhobUpIiI46iJifKbeXnXlXBwjJRz + c0ClbGwFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA////APwAAQD4AAEA8AABAOAAAQDAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAAHAIAA + BwCAAAcAgAAHAIAABwCAAAcAgAAHAIAABwCAAAcAgAAPAOAA/wD///8AKAAAACAAAABAAAAAAQAIAAAA + AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A3YAhAACyIwCvnqsAVV5eAPm3cwAAZgAAq3hgAOrJ + yQB3fn4AzFQAALrXqwDRmWkAmq+DAIdbWwCjgY0A48KYAOmYRAAAjwAA/uvXAMJ/QADIur8AyaSMAN3a + 5wDYdwAA06eoAOKtggBlbW0AkmdyALuNjQBDT08A7uzsAKDGjwC6jGwA1NLSANaOUgDwzrEAn56eAMls + EADmqGsA3bm5AOnf0QD/1dUAoXh4AMnXuQDXhDYA8b2IAMh2IwCRhoYAvYdYAACmEgC3r7kAvJqaANWc + fwDdoFMA/+ToAAB+AACukZEA2MXFAODVwQD/8vIA0WcAAMOpqgDgyK4A4crYAO3d5ADjjC4A9KtjANl3 + EAC5k34A8+/8AOG6pwCXZWUAxIAzAOG8igDKxsYAAJ4AANCengDMfBUAroeHAK+YnwBvd3cAvdy4APHS + 0gDuxaAA0ry1ALOurgBdZWUA3I9GAKa6jgDtoE4A3NjYAKt+gADoybwAxaabAL+1tQDJlZUA/9zdAJtt + bQDcpWQAuKSmANWvsAD45+EAvINNAKl9cQDz2toA05BiAPGvbQCigYIA1bK7ANGgcgDXgCsA4o45ALCA + ZgDk0+IA4a6NAOS3mADCZA4A5ubmAMO/vwDi398Au7S/ALyVlQC6mIcAmXR9AN6jbwCni5YAo4qLAPG1 + eQDZu8YAvK6uAM2ifwAAqhsAzK2tAPnr6wDOXwAA7+XwANJxEgCuoqIA559VAPn4/QDm2ukA2r69AASe + CADJfiQAkGRmAOHGxgC+fEcA9vLyANNuAwDz6OgA3pFNANG1tQDRv8YAtZuXAODMvgDnq3MAqZeYALyS + dgDy4NQA4cfQAOnQ0ADSkEsApoSEAJx0dADHfDgA6NLIAMKxuwCPW1sA1nELAKB8iQDWoGMAv4tmALOe + ngDRegQAyr3CAL+6ugDCrLEAk2BgANi0tADHpaUArJqkAK+MjADNbwIAy3UTAPDh3wD42NgA9rBoAP75 + +QDq6/MA6c3DAK+nrgCnmZ8A23wAAO3Z2QD/4+MA5pQ/ANDGxgCmwY0At4RaALCWlgDlzMwAvdGrAN6g + aQC/pKwAw9q2AKaQkQBYYmIA3IczAKN+fgCsk54A0aKiALqqqgDKoIcAmmlqAN2/yADAg0YAoYWKAK2B + gwDr6OkAnnaAAPj19QCwqaoA6t7rAPHOzgCkhZIA1ausAKqLiwDf2t4AtaGjAEdSUgDggyUA+dTSAKmP + mgCtm5sA/+3tAPXt7QDt1dQAtpKSAMuZmQD/6ekA/9jYAO7d3QCgdHQAtqSqAMpcAADgwsQAxba9AMGu + tgCto6gA+fDwAGBoaADx4uIAaXBwAHR7ewAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAADPD5KupICkpKSkpKSk0tLS0iwsLPT09GMAAAAAAAAA66ldqbdQ7MQ4xMTExMTExMTExMRi8vLy + 9AAAAAAAAOuz8B6z71DsOPHExMTExMQmUhzQH5nyKyv0AAAAAADrSWFOHkl7t+zxODjExMTExLu7u7tU + YmLyK/QAAAAAANfwTk571zW37PHx8fE4xMTxJgpS/vwF5zFiLAAAAABjThrU1DVjNbc97PHx8fE4xPFq + 7lRUVOEJ4WIsAAAApdTjGhrjzX1ltz3s7Ozx8fE47Cb/UhxYBecxYiwAAKUatONmbjajdg23vezs7Ozs + 8fHxxMTExGJiYmJiLAAApSm0tIJrPjeImLe9PT097Ozs8fE4xMTEYjynnOnSAAAsKY/YJIiKVgjWt709 + PT097Ozx8TjExDjLEzkHDl0AANL3k5hFLtia2rK3ASNMeLE97Ozx8cTEOC1NEzlaXQAAbZOMQ8xBoY+k + qLcBI0x4sT3s7PHxOMQ4LTOQE8ddAADabFt1c5NwZIiYtwEjTHixVz097PE4xDgtA4VNIV0AAIAGXo5I + iD5L9pi3AQEBAQG9vb09Pezs8WdTzgygXQAAgO7gG5Y+dBi2Fre3t7e3t7e3t7e3UFBQUNvb29ssAADP + Qijo0adC5bawsLAWFvj4qKj5P18XhG+sOgAAAAAAAJ5sEp2Jib9AlK2ffJvmBAS20+p/4hCrq92SAAAA + AAAAwbwlR0d+PhELiIiIiIg+uLmRShVoyHJpLJIAAAAAAACeZ426cPaWKhWmMCc+iD4+PpYZGRnCwsLC + HQAAAAAAAOuNVQKqWf2+NHp6eno09ZtGIjLZSpFPrxkdAAAAAAAA+oHFcSWNl9yDYGCDg9Vl5uauUdPq + f+Liq9cAAAAAAADARC+Nje2XIGBgYGCD1dVlrq7JOjrkpKTS1wAAAAAAAN8UAY2V7ZcgYHixYGCD1WXm + rsnJOuSkpNLXAAAAAAAA3wG93pXtl5V4eLFgYIPVZeaum8k65OSkpNcAAAAAAABX3t6V7Zf9lXh4sWBg + g9XVZa6byTrk5KSk1wAAAAAAAFf77e2Xl5fe3Hd5XCPGFmBlrsk65OSkpG1jAAAAAAAAV5eXl+2Vl7rz + w+6iosrKysrKk4+ZhrV70tcAAAAAAABXh70BPfuHl/3zw+6iypP3jykpKeN7XaXkAAAAAAAAAGCxsXhM + xsbGxjs7O5OTk5OTtDWkUMkAAAAAAAAAAAAAAAAAAAAAV1ff34uL657PgKSAngAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////4AAAH8AAAB+AAAAfAAAAHwAAAB4AAAAcAA + AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AA + AB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAD+AAAH//gAP//////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAl15eVoNS + UuOGUVHFt5mZuqmGhvmoiIj5qIaG+aaFhfemhYX3p4SE96aEhPemgoL3pYKC96aAgPekfn73pH1996N8 + fPeienr3onh496F2dvegdXX3oHNz96Fzc/eaaWnvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlr + a1SQW1v6rn5+/I5aWv+wjIz/r4iJ///u7v//5eX//+bm///k5P//4+P//+Tk///j4///4uL//+Hh///j + 4///5OT//+Xl///k5P//4eH//93d///Y2P//19f//9fX/6J0dPoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACvcXFTk19f+cuYmP+9jY38k2Bg/7aSkv+uiIn//+3t///m5v//5+f//+Xl///k5P//4+P//+Hh///h + 4f//5eX/npyc/294eP9jbGz/WGJi/0NPT//OtLT//9nZ///V1f//1NT/oXNz+gAAAAAAAAAAAAAAAAAA + AAAAAAAAtHZ2UZdlZfnJlZX/0p6e/7uPj/2XZGT/uZWV/66Ki///7e3//+fn///m5v//5ub//+Xl///k + 5P//4+P//+Li///k5P/42tr/99fX//nX1//31tb/89HR///c3P//29v//9jY///W1v+hdHT6AAAAAAAA + AAAAAAAAAAAAALN5eU+baWn5ypmZ/9Cfn//PnZ3/vZWV/Zlqav+6mZn/r4uL///v7///6en//+jo///o + 6P//5+f//+bm///k5P//4+P//+jo/6Gfn/93fn7/cXh4/2lwcP9gaGj/VV5e/0ZSUv+Shob//9vb/6J2 + dvoAAAAAAAAAAAAAAAC5e3tNnGtr+c2fn//TpaX/0aGh/9Khof/Am5v+mmxs/7ubm/+ui4r///Pz///r + 6///6ur//+rq///p6f//5+f//+bm///l5f//5+f/89ra/+/V1f/x1dX/8NLS//DQ0P/vzs7/6snJ//LO + zv//29v/onZ2+gAAAAAAAAAAqnh4TJ9xcfjPpKT/1qur/9Snp//SqKn/1ais/8Gmrv6ZdH3/uqGn/66L + iv//9PT//+3t///s7P//6+v//+rq///p6f//6Oj//+bm///r6/+fnp7/dHt7/252dv9mbW3/XWVl/1Vd + Xf9HUlL/kIaG///d3f+ieHj6AAAAAAAAAACabW3g0amp/9qysv/Vra3/1a+w/9Wyu//VnH//1JJM/sJk + Dv/RmWn/rouK///29v//7+///+7u///t7f//7Oz//+vr///p6f//6Oj//+jo//7k5P//4+P//+Dg///g + 4P//3+D//93g///b3v//2tz//9vd/6R4ePoAAAAAAAAAAJpxcePctrb/2bS0/9i1tv/Zu8b/05Bi/9Fn + AP/doFP/z10A/9+RTP+ui4r///j4///x8f//8PD///Dw///v7///7Oz//+vr///p6f//5+f//+bm///k + 5P//5OT//+Pk//7g3v/g1cH/5tPG/+DMvv/51NL/pnp7+gAAAAAAAAAAm3Nz49y6uv/cvL7/3L/J/9aO + Uv/PYgD/0nES/9K8tf+reGD/yqCH/66Liv//+vr///T0///z8///8vL///Dw///v7///7e3//+rq///o + 6P//5ub//+Tk///i4v//5Oj/vdGr/wCNAP8AfgD/AGYA/5qvg/+rfYD6AAAAAAAAAACed3fj4MLF/9/D + yP/dk07/2XcQ/9eENv/ev8b/0b/G/6OFif/CrLH/rouK///8/P/T0dH/ycfH/8G/v/+7uLj///Dw///v + 7///6+v//+np///n5///5eX//+Pj///j6f/J1Lf/AJsA/wCRAP8AfgD/prqO/61/g/oAAAAAAAAAAKB8 + fuPixsb/559V/+OMLv/eoGn/4crY/+HH0P/VwLz/qYeB/8Oyuv+ui4r///7+/9PR0f/Jx8f/wcDA/7u5 + uf//8fH//+/v///s7P//6ur//+jo///m5v//5OT//+Xq/8vXuv8AphL/BJ4I/wCQAP+mwY3/rXyC+gAA + AAAAAAAAn4GH4/KvbP/toE7/5LeY/+TT4v/ixsb/1n8s/9ylZP/OWgD/3pFM/66Liv//////09HR/8nH + x//BwMD/u7m5/7Oxsf//8PD///Dw///r6///6Oj//+bm///k5P//4+j/yNm7/wCyI/8Aqhv/AKAA/6DG + j/+rfYH6AAAAAAAAAAChhIrj+bdz/+jJvP/m2un/4bqn/8xgAP/QZwD/4byK/8pcAP/dj0z/rouK//// + //////////7+///8/P///Pz///r6///4+P//9vb///Hx///w8P//7u7//+3t///q6//56OL/vdy4/8Pa + tv+616v/8uDU/6p9f/oAAAAAAAAAAKKHiePt1tP/6t7r/+Ktgv/UbgT/0GgA/+Gujf/d2uf/q5ql/8i6 + wf+wjo7/rouK/66Liv+ui4r/rouK/66Liv+ui4r/rouK/66Liv+ui4r/rouK/66Jh/+uiIb/roaG/66F + hv+ug4b+roOF/K6BhPytgYP8pHh59gAAAAAAAAAApYuN4+7f5P/mqGv/4IMl/9yHM//p0Mn/7Nvk/9/a + 3v+unKL/yr7D/8m9wv/KvMH/yLq//8i4vv/Ft73/xLW8/8Oyu//BsLv/wa62/8Opqv/Fppv/yaSM/82i + f//RoHL/1qBj/7CPlPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACpk5jj8K9t/+mYRP/nq3P/7+Xt/+7l + 8v/pzcP/4Miu/758R/+/i2b/vJJ2/7qYh/+2m5f/sqCm/7CfrP+tnKr/q5il/6uSnv+oj5r/pouW/6WG + kv+jgY3/oX2J/596h/+edoD/j11f6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKiYnuP2sGj/8M6x//Pu + +//z8Pz/3qNv/9FoAP/jwpj/zFQA/89eAP/PXwD/z18A/89gAP/PYQD/0GcA/81vAv/LdRP/yXwj/8R/ + Mf/BgUD/vINN/7eEWv+wgGb/qX1x/6R6eP+QXWHpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAq5eZ4/bm + 3//29v//8eHd/9iAKv/KWwD/0WsG/+nf0f/CfUD/x3w4/8h2I//JbBD/zWUA/85gAP/QYwD/0mcA/9Nr + AP/VcAD/1nMA/9h4AP/ZegD/2n0A/9t9AP/aewD/3HoA/49hbekAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACrm5zj+vr//+7FoP/dgCH/1nEL/9yPRv/x4uH/6uvz/7evtv+9tb7/u7bA/7qyvv+5sr//tq67/7ak + qv+4nJT/uZN+/7qMbP+9h1j/wING/8SBNf/JfyT/zHwV/9F6BP/XdwD/kmFs6QAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAK6jqePxtXn/5pQ//+KOOf/vzbH/9vb///Po6//r6On/vLCw/7+1tf++s7P/va+v/7us + rP+6qar/uKan/7aipP+0oKT/spyh/6+Yn/+slJ3/qY6Z/6eKlv+khpT/ooOR/6B+iv+WY2XpAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAsKiv4/SrY//xvYj/+/j8//n3/P/27e7/8+bm/+3r6/+9tLT/wbi4/8C1 + tf++srL/va+v/7urq/+5qKj/t6Sk/7WgoP+zm5v/sZeX/6+Tk/+tj4//qouL/6iGhv+mgoL/pH9//5li + YukAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACyqazj/uvX///////7+vz/+fLy//Xs7P/y5+f/7+3t/7+4 + uP/Dvb3/wrm5/8C1tf++srL/vK6u/7qqqv+4paX/tqGh/7Sdnf+xmZn/r5SU/62QkP+rjIz/qYeH/6iD + g/+mgID/mWNj6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALOqq+P9+/3//fv7//n29v/38PD/9Ovr//Pm + 5v/z8fH/wr6+/8W/v//Du7v/wbi4/7+0tP+9r6//u6ur/7mnp/+2oqL/tJ6e/7Kamv+wlZX/rZGR/6uM + jP+piIj/p4WF/6WBgf+YZWXpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtKys4/r09P/59fX/9/Ly//Xt + 7f/z6en/8ePj//Ly8v/Bvr7/w7+//8G6uv/Atrb/vrOz/7uurv+6q6v/uaio/7ejo/+0n5//spqa/7CW + lv+ukZH/rI2N/6mIiP+nhIT/pYGB/5pkZOkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC2r6/j+PDw//Xu + 7v/17Oz/8+np//Ll5f/y6en/9fb2/+vo6P/m5ub/4t/f/9zY2P/U0tL/z8nJ/8m9vf+/tLT/uaen/7Gd + nf+tlZX/rJKS/6uNjf+pior/poeH/6aEhP+kgYH/mmho6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALav + r+P06ur/8+jo//Pn5//17u7/9vLy//Lp6f/v4OD/7d3d/+zZ2f/r1dX/6dLS/+nOzv/nzc3/583N/ufN + zf7nzs7+5c7O/uHHx/7bv7/+1be3/s6vr/7Jp6f+vZmZ/qV/f/6ZZWXpAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAuLGx4/rr6//++Pj///z8//z09P/67+//9+rq//Xm5v/y4uL/793d/+3Z2f/r1dX/6NDQ/+bL + y//jxsb/4MLC/96+vv/eurr/3rm5/9+4uP/Vq6v/wJSU/6t/f/+dcHDsrHd3oqx1dUoAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADBt7fRwLq6/MC9vf7GwcH/ysTE/8zExP/Qxsb/0cbG/9PFxf/XxcX/2MXF/9rG + xv/dxsb/38bG/+HGxv/ixsb/5MbG/9W0tP++m5v/rIaG/q6Cgt20hoaQsICAQbt7ewUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBycgK+wMALwLOzGLWwsCi3s7M3uLKyR7ivr1a4rKxltKendbGj + o4SxnZ2Urpubo6yUlLOnkZHDpouL0qSIiOKkhYXxooODzKV/f32ziIgvAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/////+AAAB/AAAAfgAAAHwAAAB8AAAAeAA + AAHAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAAfgAAAH4AAAB+AAAAfgAAAH4AA + AB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAA/gAAB//4AD///////KAAAADAAAABgAAAAAQAIAAAA + AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A2HwfACC0OQCvnqsAQYg6APm3cwAAZgAAqXhlAOjH + xwB+fn4AzFQAALrXqwDRmWkAmq+DAIlbWwCjgY0A48KYAOaaSgAAjgAA+ufTAL18QADKu7wAyqKLAN3a + 5wDVeQAA0qenAOSvgABlbW0AkmdyALuNjQBDT08A8OzuAKDGjwC8j24A0s/PANaOUgDw0bkAn5mZAMlu + FQDqqGUA3bq5AOnf0QD/1dUAoXl5AMnXuQDXgzEA776OAMd1JwCPiooAwIlcAAqjFgC4s7UAu5uZANWc + fwDcmlcA/+bmABKAEACukZEA1cXFAODVwQD/8/MAzmgBAMKqqwDewrIA4crYAOrh4gDjjC4A7qhhANl3 + EAC6lH8A8+/8AOXApwCXZmYAw4E1AOG7jwDJxsYAAJgBAM+dnQDMexYAr4eFAK+YngBycnIAvdy4AO7W + zQDpw58A0ry1ALSvrwBdZWUA2o1EAKa6jgDmm00A2tjYAK98fADozLoAxaabAL+0tQDJlZUA/93dAJxu + bgDfpWYAuaSlANawsAD45+EAu4BOAKl9cQD23NwAzpRcAPKvawCkgYIA1re6ANGgcgDVficA3406ALKC + awDk0+IA362OAOS3mADCZA4A6ePjAMO+vgDl398Au7S/ALiVlQC6mIcAmXR9AN2hcACpjJMApYmLAPG1 + eQDZu8YAvK6vANSjfgAZox8Aza2tAPzq6gDMYwAA7+XwANJzEwCroqIA6Z9VAPn4/QDm2ukA3r2+ABSY + FgDHfykAkmNnAODGxgC2bzwA9vLyANFvAwDy6OgA3pFNAM+1tQDRv8YAspmZAOPNugDlrXgAp5eYALyS + dgDy4NQA4MvOAOfQ0gDSkEsAp4SFAJ1zcwDFfDcA79XIAMKxuwCMWVkA0nANAKB8iQDWoGMAv4tjALOd + nQDSeAIAyr/DAL+6ugDErq4AkF9fANm0tADIpKMArJqkAK+NjADPbgMAyXMRAPLf3wD22dkA9rBoAP75 + +QDq6/MA6tC+AK+nrgCmn58A1n0AAOrY2gD/4+MA45NAAM/KygCmwY0AtIBaALCXlwDlzMwAvdGrAOCh + aAC/pqgAw9q2AKCSkgBYYmIA34s1AKR+fgCsk54A0qOhALmqqgDIm4MAmWlpAN2/xADBhEsApYaJALGC + ggDt5+cAnnaAAPn09QCwqaoA6t7rAPfNzQCkhZIA1qyrAKqLiwDe29sAtqGiAEdSUgDcgicA9tPTAKyS + mACsnJ0A/+3tAPTt7QDp1dUAtJKSAMqbmwD/6ekA/9nZAO7d3QCgdHQAuKapAMpcAADhwsIAxri6AMGu + tgCspqYA+PDwAGBoaADy4+MAbm5uAHh4eAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAY/T0LCz09PT09PT09PSlpWNjY2NjY9fX19fX10lJSUlJ + SQAAAAAAAAAAAAAAAAAApYc7FhYWFhYWFhYWFhYWFhYWFpmZmZmZmZmGhoaGhoYpSQAAAAAAAAAAAAAA + AAAApT3s/f39/f39/f39/f39/bq6ampqamq7u+np6enh4SkpSQAAAAAAAAAAAAAAAAAA9D3s7Ozs7Ozs + 7Ozs7PHx8Rbf34vBJs8xMZ5iYvLy8vcpSQAAAAAAAAAAAAAAAAAA9D3s7Ozs7Ozs7Ozs7Ozx8d8xMTEx + ClL+/jHEYmLy8vcpSQAAAAAAAAAAAAAAAAAA9D097Ozs7Ozs7Ozs7Ozs8WD6iyYmJjExMZ7EYmLy8gkp + SQAAAAAAAAAAAAAAD7Ob9D3s7Ozs7Ozs7Ozs7Ozs7PHx8fHxODjExMTExGJiYgmPSQAAAAAAAAAAAAAP + 9Km39D09PT3s7Ozs7Ozs7Ozs7Bbf34vBJiYmJs8xMZ5iYgmPSQAAAAAAAAAAALNd8LPv9L09PT09Pezs + 7Ozs7Ozs7N8xMTExCgoK/1L+/jFiYgmP1wAAAAAAAAAAkl1O8Env9L09PT09PT097Ozs7Ozs7LH6iyYm + Js/PMTExMZ5iYgmPSQAAAAAAAABJXfDw8El7LL09PT09PT09Pezs7Ozs7Ozs8fHx8fHxOMTExMRiYgn3 + 1wAAAAAAANddTvDwtdc1LL09PT09PT09PT3s7Ozs7Bbf34vBJiYmJs8xMZ7EYgn31wAAAAAAY9vUTk5O + GmM1LL09PT09PT09PT097Ozs7N8xMTExCgoK/1L+/jHExAn31wAAAACl2xrU1NTUhqU1LL09PT09PT09 + PT09Pezs7LH6iyYmJs/PMTExMZ7ExAn31wAAAKXb4xoaGhoamaXmLL09PT09PT09PT09Pezs7Ozs7PHx + 8fHx8Tg4xMTExMr31wAA0lBm4+Pj4+MahJTWLL29PT09PT09PT09PT3s7Ozs7Ozx8fHx8Tg4xMTExMr3 + 1wAApbW0ZmZmtBpwNz4b0r29vb09PT09PT09PT097Ozs7Ozx8fHxA4WQkDkFxMr31wAALBq0tLRu1LiW + ZJYb0gG9XMZMsbE033g9PT09Pezs7Ozs7PHxhU0TEzmQxKKTYwAALIYpKY90qj6KQHIX0gG9XCNMsbE0 + V3g9PT09Pezs7Ozs7PHxA5BNExOQxKKTYwAA0maP2BsCinDjoaQ/0gG9vb29vb29PT09PT09Pezs7Ozs + 7PHxAzOQTROF8aKTYwAAbZmTG9FwWSmPouSy0gG9XCNMsbE033g9PT09Pezs7Ozs7PHxA4UzkE2FOKKT + YwAAbW6dEsXMk/f3nHK10gG9XCNMeLE0V3g9PT09Pezs7Ozs7OzxAwMDhZADOKKTYwAA2htEjHShyilw + Gz4b0gEBvb29vb29vb09PT09Pezs7Ozs7OzxAwMDA4UDOKKTYwAAgBtsSKKidD6KS4ob0gG9XCNMeHix + NFdXsT09Pezs7Ozs7OzxAwMDAwMDOKKTYwAAgBu/osN+lj6KnK2EbQEBXCNMeHixNFdXeD09PT3s7Ozs + 7Ozx8fHx8Tg4OLqTYwAAz5PD7jcCii6TQuYWpAEBAQEBvb29vb29vT09PT09PT3s7Ozs7Ozx8fHx8fHx + YwAAz6GnjHHozMOiQmUWpDo65OTk5FCkpKSkbdLS0tIsLCz09PSlpaVjY2NjY2NjYwAAz0iMW8VVQsPD + QmWwsLCwFhYW+PhgYLKysj8/P83NZWU1OgAAAAAAAAAAAAAAAAAAnp1EKFT9/cM3S4qIPicwphVorSJG + tzrqf3/k2qTS0iz0swAAAAAAAAAAAAAAAAAA6xsv/ZftSIqKVXCIPj4+Pj4+Pj4+lpYZT0+RShVoyAgI + swAAAAAAAAAAAAAAAAAA617t7ZfMPj6qv2swubg+iIiIPj64uJa4r6+vwsLCwhm5kgAAAAAAAAAAAAAA + AAAA63nep3ECiopIIPg0YDSDZTVGIjLZppFPr68ZGRkZGRm5kgAAAAAAAAAAAAAAAAAAi3dVxXHoZP2X + IBZgg4ODg9XV9WXm5q5RUeq3UHLIaBUVSQAAAAAAAAAAAAAAAAAA3xuMjBIl3pf9ILBgYGCDg4PVZWXm + rq7JyTo65OSkpG0sSQAAAAAAAAAAAAAAAAAA3xtEL97e+5eX7UyxYGBgg4OD1WXm5q6byTo65OSkpG0s + SQAAAAAAAAAAAAAAAAAA3y8UAd7e7e2X7Ux4sbFgYIOD1WVl5q6uyck6t+RQpNIs1wAAAAAAAAAAAAAA + AAAA3yABvd6V7e2X7cZ4eLGxYGCDg9Vl5q6uyck6t+TkpKQsSQAAAAAAAAAAAAAAAAAAV9y9vd6V7e2X + lSN4eHixYGCDg9Vl5uauyck6OuTkpG0s1wAAAAAAAAAAAAAAAAAAV9zelZXt7Zf97SNMeHixYGCDg9Vl + 5uaum8k6OuTkpKQs1wAAAAAAAAAAAAAAAAAAV3f77e3tl5f9lXkjI0x4YGCD1dVl5q6uyck6OuTkpKQs + 1wAAAAAAAAAAAAAAAAAAV0Lt7ZeXl+2V7ZeXl5eX3P15XCMjxhZg1ebJOuTkpKTS1wAAAAAAAAAAAAAA + AAAANHmXl5ftle39/brzw+6iosrKk/f3jykpKSkptGaGtbf01wAAAAAAAAAAAAAAAAAAg8OX+9777ZeX + /brzw8PuosrKk/f3jykptLRm4/BQ9GOkAAAAAAAAAAAAAAAAAAAAV8bleXl3Qv39/f2688PDoqLKypP3 + j48ptLW3LCzkAAAAAAAAAAAAAAAAAAAAAAAAYGCxsbF4sWBXV9XVg4OysrKGhoaGmbXv0uTJAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN/f+ovr657P5M+eAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP/4 + AAAAAQAA//gAAAABAAD/+AAAAAEAAP/4AAAAAQAA//gAAAABAAD/+AAAAAEAAP/AAAAAAQAA/4AAAAAB + AAD/AAAAAAEAAP4AAAAAAQAA/AAAAAABAAD4AAAAAAEAAPAAAAAAAQAA4AAAAAABAADAAAAAAAEAAIAA + AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB + AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAA + AAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB// + AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAA//wAAgAAAAf//AACAAAAP//8AAP/8 + AH///wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ1v + b/+gdXX/oXV1/6F2dv+hdnb/oHZ2/6B1df+gdXX/oHV1/6B1df+fdHT/n3R0/59zc/+fc3P/nnJy/55x + cf+db2//nXBw/51ubv+dbW3/nGxs/5xsbP+ba2v/m2pq/5pra/+aaWn/mWho/5pnZ/+ZZ2f/mGdn/5hm + Zv+YZWX/l2Vl/5lmZv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAJ1xcf/86ur/1cXF/8u8vP/LvLz/zLy8/8y8vP/Mvb3/zL29/8y7u//MvLz/zLy8/8y7 + u//OvLz/zbu7/827u//Nu7v/zbq6/826uv/Nubn/zbi4/863t//Otrb/zrW1/860tP/OsrL/zrCw/82v + r//Nra3/zaur/82qqv/Nqan/4rq6/5ZkZP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ5xcf//8vL//+7u//bi4v/14+P/9ePj//Xj4//14+P/9eLi//Xi + 4v/14uL/9eHh//Xh4f/24eH/9uDg//bg4P/239//9t/f//be3v/23t7/9t3d//bc3P/22tr/9tnZ//bY + 2P/21dX/9tTU//bS0v/20ND/9s7O//fMzP/jurr/37i4/5VjY/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9zc///8/P//+/v///u7v//7e3//+3t///t + 7f//7e3//+zs///s7P//7Oz//+vr///r6///6ur//+rq///p6f/Fu7v/sKqq/6+oqP+qo6P/pp+f/6Ob + m/+ZkZH/lo6O/5OMjP+mmZn//9/f///d3f//2tr//9jY///Y2P/owsL/3rq6/5ZlZf8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9zc///8/P//+7u///u + 7v//7u7//+7u///t7f//7e3//+3t///t7f//7Oz//+zs///r6///6+v//+rq///q6v+uqan/k5OT/5CQ + kP+Kior/hISE/4CAgP9ycnL/b29v/2xsbP+GgID//+Dg///e3v//29v//9nZ///Z2f/ow8P/3ru7/5hm + Zv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ90 + dP//9PT///Dw///v7///7+///+7u///u7v//7u7//+7u///t7f//7e3//+3t///s7P//6+v//+vr///q + 6v/At7f/q6am/6ijo/+jnp7/nZiY/5yWlv+Ri4v/jomJ/42Hh/+il5f//+Hh///f3///3Nz//9ra///a + 2v/oxMT/3ry8/5dmZv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAjlpaOYVS + UuaGU1PXtJSUxp90dP//9PT//+/v///v7///7+///+/v///v7///7u7//+7u///u7v//7e3//+3t///s + 7P//7Oz//+vr///r6///6en//+np///p6f//6Oj//+fn///m5v//5ub//+Xl///l5f//4+P//+Li///g + 4P//3d3//9vb///b2//oxcX/3r6+/5dnZ/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACbZGQziFZW7ad1dfuMWVn/roqK/591df//9fX///Dw///w8P//8PD//+/v///v7///7+///+/v///u + 7v//7u7//+3t///t7f//7Oz//+vr///r6//FvLz/sKqq/6+pqf+qo6P/pp+f/6OcnP+gmpr/npeX/52W + lv+ZkZH/lo6O/5OLi/+mmJj//9zc///c3P/oxsb/3r29/5dnZ/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAJ1lZTKNWVnsr3x8/8yenvuRXl7/tJCQ/6F1df//9vb///Ly///w8P//8PD///Dw///w + 8P//7+///+/v///v7///7u7//+7u///t7f//7e3//+zs///r6/+uqan/k5OT/5CQkP+Kior/hISE/4CA + gP9+fn7/e3t7/3h4eP9ycnL/b29v/2xsbP+Gf3///93d///e3v/oxsb/3r6+/5loaP8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAn2hoLpFdXemue3v/z5ub/8mamvyVY2P/tpSU/6B2dv//9vb///Hx///x + 8f//8fH///Hx///w8P//8PD///Dw///v7///7+///+/v///u7v//7e3//+zs///s7P/AuLj/q6am/6ij + o/+jnp7/nZiY/5yXl/+ZlJT/l5KS/5WPj/+Ri4v/jomJ/42Hh/+ilpb//97e///d3f/ox8f/3r+//5ln + Z/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAClb28rlGBg6a98fP/Om5v/zZmZ/8uenvyYZWX/uJWV/6F3 + d///9/f///Pz///y8v//8fH///Hx///x8f//8PD///Dw///w8P//7+///+/v///u7v//7u7//+3t///s + 7P//6+v//+vr///q6v//6en//+jo///o6P//5+f//+fn///m5v//5eX//+Xl///k5P//4eH//9/f///e + 3v/oyMj/4MHB/5lpaf8AAAAAAAAAAAAAAAAAAAAAAAAAAKpxcSiXZWXlsH5+/8+env/Mmpr/zJqa/8yj + o/2Zamr/uZiY/6F4eP//9/f///Ly///y8v//8vL///Ly///x8f//8fH///Hx///w8P//8PD//+/v///v + 7///7u7//+3t///t7f/FvLz/sKur/6+pqf+qpKT/pp+f/6OcnP+gmpr/npiY/52Wlv+ZkZH/lo6O/5OM + jP+mmZn//+Dg///f3//oycn/38DA/5hoaP8AAAAAAAAAAAAAAAAAAAAArXZ2JJhnZ+WxgYH/0aKi/86f + n//Onp7/z52d/8+oqP2bbGz/upqa/6F4eP//+Pj///T0///z8///8/P///Ly///y8v//8vL///Hx///x + 8f//8PD///Dw///v7///7u7//+7u///t7f+uqqr/k5OT/5CQkP+Kior/hISE/4CAgP9+fn7/e3t7/3h4 + eP9ycnL/b29v/2xsbP+GgID//+Hh///g4P/oycn/38LC/5pqav8AAAAAAAAAAAAAAACqeXkjm2pq4bGC + gv/Tp6f/0qOj/9Cjo//QoqL/z6Gh/9Ctrf6dcXH/vJyc/6J4eP//+fn///Pz///z8///8/P///Pz///y + 8v//8vL///Ly///x8f//8fH///Dw///w8P//7+///+7u///t7f/AuLj/q6en/6ijo/+jnp7/nZmZ/5yX + l/+ZlJT/l5KS/5WQkP+Ri4v/jomJ/42Hh/+il5f//+Hh///i4v/oysr/38HB/5ppaf8AAAAAAAAAAKVw + cB+abW3gsYOD/9arq//Uqan/06en/9Knp//Spqb/0aWm/9O0tv6ddHb/vKCh/6J5ef//+Pj///T0///0 + 9P//9PT///Pz///z8///8/P///Ly///y8v//8fH///Hx///w8P//7+///+7u///u7v//7Oz//+zs///r + 6///6ur//+np///p6f//6Oj//+jo///n5///5ub//+bm///l5f//5OT//+Li///h4f/oy8v/38PD/5pr + a/8AAAAAAAAAAJ5yctCxhob/2K+v/9atrf/VrKz/1Kur/9Srq//Uq63/06ek/9amgv62bzz/yJuD/6J5 + ef//+vr///b2///09P//9PT///T0///z8///8/P///Pz///y8v//8vL///Hx///w8P//8PD//+/v///u + 7v//7e3//+zs///s7P//6+v//+rq///p6f//6en//+jo///o6P//5ub//+bm///l5f//5OT//+Pj///i + 4v/oy8v/38LC/5pqav8AAAAAAAAAAJ1ycuvMpqb/2LKy/9ewsP/XsLD/1q+v/9exs//WqqX/03sl/9ic + Vf/OZwD/57SB/6N7e///+vr///b2///29v//9vb///X1///19f//9PT///T0///z8///8/P///Ly///y + 8v//8fH///Dw///v7///7u7//+3t///t7f//6+v//+rq///q6v//6en//+np/yyrMf8knSH/JJUh/ySO + IP8kfyD/QYg6///l5f/ozc3/38TE/5tra/8AAAAAAAAAAJ51devNqKj/2rW1/9m0tP/ZtLX/2LW5/9eo + mf/ObAn/0W0H/9yoaP/RbwX/57OB/6R8fP///Pz///n5/9jW1v/OzMz/xcTE/768vP+6uLj/tbS0/66s + rP/Bvb3///T0///z8///8vL///Hx///w8P//7u7//+7u///t7f//7Oz//+vr///r6///6ur//+np/w+o + H/8BmQL/AJIA/wCLAP8AgQD/Iosf///l5f/ozs7/38XF/5ttbf8AAAAAAAAAAJ94eOvPq6v/3Lm5/9u4 + uf/cu7//2qeO/9JxDf/OagP/0W8N/97Csv+uf2z/yqKL/6R+fv///v7///j4/9rY2P/Pzc3/xcTE/7+9 + vf+7ubn/trW1/7Cvr//EwMD///T0///z8///8vL///Hx///w8P//7+///+7u///u7v//7Oz//+vr///r + 6///6ur//+rq/xOsJ/8EnQr/AJcA/wCRAP8AiAD/IpQf///l5f/oz8//38XF/5tsbP8AAAAAAAAAAKB5 + eevRr6//3r2+/92/xP/cpoL/2H0g/9V2F//UeiP/2bCm/9/Mzv+nhoj/wqus/6R+fv///f3///n5///5 + +f//+fn///j4///39///9/f///b2///19f//9fX///T0///z8///8vL///Hx///w8P//7+///+7u///u + 7v//7e3//+vr///r6///6ur//+rq/xewMP8KoxX/BJ0J/wCYAf8AkAD/Ipof///n5//oz8//38fH/5ts + bP8AAAAAAAAAAKJ+fuvTtLT/4MTI/+GofP/fizX/3IQr/9qNRP/evbv/3b2//+LQ0f+pi43/w66u/6V/ + f////v7///v7/9jX1//Ozc3/xcTE/769vf+6uLj/tbS0/66srP/Bvr7///X1///09P//8vL///Hx///x + 8f//7+///+7u///u7v//7e3//+zs///r6///6ur//+rq/xy1Ov8QqSH/CqMW/wafDf8BmQL/IqEf///m + 5v/oz8//38bG/5tsbP8AAAAAAAAAAKSBgevUuLr/5616/+eaSf/jkkD/4KBp/+HEyP/gw8b/38C//+HK + u/+1hGj/yKuh/6Z/f/////////r6/9rY2P/Pzs7/xcTE/7++vv+7ubn/trW1/7Cvr//EwMD///X1///0 + 9P//8/P///Hx///x8f//7+///+/v///u7v//7e3//+zs///r6///6+v//+rq/yG6Rf8Wry7/Eaok/w2m + HP8IoRD/J6gq///m5v/o0ND/4MbG/5tubv8AAAAAAAAAAKSFh+vgqnv/76hh/+qgU//ksoz/4svP/+PK + zv/fvLL/1n8t/92xf//PaQL/57KB/6aAgP////////z8///6+v//+vr///n5///4+P//+Pj///f3///2 + 9v//9vb///X1///09P//8/P///Ly///x8f//7+///+/v///u7v//7e3//+zs///r6///6+v//+rq/yjB + UP8dtjv/GLEy/xWuK/8QqSH/L685///m5v/nz8//3sbG/5xtbf8AAAAAAAAAAKWGievkrXz/8q9r/+jB + qv/kztP/5dDW/96ukf/OaAH/0nER/+C7jf/RdA//5rKB/6aAgP////////v7/9nY2P/Pz8//ycjI/8HA + wP+/vr7/u7q6/7W0tP+zsrL/sK6u/8C8vP//8/P///Ly///x8f//7+///+/v///u7v//7e3//+zs///r + 6///6+v//+rq/y7HXf8kvUn/ILlB/xy1Ov8YsTH/NrZH///m5v/nz8//3sbG/5xtbf8AAAAAAAAAAKeJ + i+vns4f/68zB/+fS1v/n1dr/3aFw/9BrBv/NaQL/0nMX/+XQuf/BjmT/06J8/6aBgf////////39/9nY + 2P/Pz8//ycjI/8PCwv/Avr7/vLu7/7a1tf+0srL/sK+v/8K9vf//8/P///Ly///x8f//8PD//+/v///u + 7v//7e3//+zs///r6///6+v//+rq///q6v//6Oj//+jo///n5///5ub//+bm///m5v/339//3sbG/5xt + bf8AAAAAAAAAAKiNjevdxsX/6tfa/+nV1P/fmlj/2Hwe/9R1Ff/XgzH/5MjB/+rg4/+0oKL/yLm8/6eD + g//////////////+/v///v7///39///7+///+/v///r6///5+f//+Pj///n5///4+P//9fX///T0///1 + 9f//8fH///Ly///w8P//8PD//+/v///u7v//7e3//+3t///s7P//6+v//+rq///q6v//6en//+jo///n + 5///6Oj//+fn/5tsbP8AAAAAAAAAAKmQkOvey87/7NHI/+SbUf/fizj/3IIo/9+haP/p2Nv/59PU/+rh + 4f+3pKX/yru7/6iGhv+tj4//rI+P/6uNjf+sjIz/q4qK/6mJif+ph4f/qIaG/6iFhf+nhIT/p4SE/6aB + gf+lgID/pH9//6R9ff+je3v/oXp6/6J6ev+geHj/n3Z2/6B1df+fdXX/nnNz/55ycv+dcXH/nHBw/51v + b/+cbm7/mmxs/5psbP+abGz/mmxs/51ubv8AAAAAAAAAAKqSlOvgvqf/66NZ/+abTf/jk0H/57+h/+ze + 5P/r2dr/6tjc/+vi4/+8pJ//y7/C/8rAxf/LvsP/yr7C/8q8v//Ku77/ybq8/8i3uv/Itrf/x7W1/8az + tP/FsLD/xa+v/8Otrf/Dq6z/wqmr/8Gnqf+/p6n/vqSn/72ipf+8oKT/upuf/7KPj/YAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK2WmevjrHb/7qhi/+qo + Zf/u1s3/7+Hl/+7h5P/s2tj/3ZhZ/+G7kf/RcxT/zGMA/8tnA//JbhX/x3Ql/8V4M//BfkT/v4RS/72I + Yf+6jW7/t5B8/7KSif+ukpT/rJGZ/6mNlP+pi5L/qIiO/6aFiv+lgYX/o36B/6N8f/+ienv/n3Jz/5Jd + XfIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK2a + nevnsH7/8r+P//Lk5P/x5ef/8unu/+bBp//Pbg3/0nER/+TGo//SfiT/zGQA/8xlAP/MZQD/zWUA/81l + AP/NZQD/zWYA/81oAP/OagD/0GsA/9FvAP/RcQD/0nUA/856Dv/LfRv/x4Ap/8OBNf+/gkH/uX9L/7R+ + V/+te2H/pXRp/5JeX/IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAK6cnevozLr/9Ozv//Tr7v/z6er/4KJn/9BqBP/NaAL/0m8N/+nUu//OlFz/x3Yo/8lx + GP/Lagj/zGUA/8xjAP/NYwD/zWMA/81nAP/OagD/z2wA/9BuAP/RcgD/0XQA/9J2AP/TeQD/1HsA/9V9 + AP/WfgD/1n0A/9Z8AP/WewD/y3UM/5JfZPIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAALGdnevn3uD/9/L2//HZyP/fjj7/2Hwf/9R1FP/Udxn/5r6i//Du + 8v/Dur3/u7K3/7yyuP+6sLf/uq2y/7qopv+8n5L/vZeB/76Qbv/AiVz/wYRL/8WAOv/HfSn/ynkZ/894 + C//SeAD/1XgA/9V6AP/VewD/1XsA/9V6AP/UeAD/yHQP/5NjafIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALGgoevq4+T/78OZ/+STQP/gjTj/24Im/+Ki + Y//x5eT/8ebp//Ds7P/Gvb3/vrKy/76xsf+9sLD/vK6v/7utrf+6q6z/uaiq/7imqf+2pKf/taGl/7Kf + pP+xnKL/r5mf/66WnP+skpf/rI2O/6+Jfv+yhG3/tIFd/7h+Tf+8ez//uHU7/5VkZ/IAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALSnqevksX//7KRb/+eb + T//kmUr/8NG5//fy9//06er/8eXl//Hs7P/JwcH/wLW1/7+0tP+/srL/vrGx/7yurv+7rKz/uqqq/7mn + p/+3pKT/tqGh/7Senv+zm5v/sZiY/7CVlf+ukpP/rY+Q/6uMjv+piov/qIWI/6WChf+lgIP/oXh7/5dj + ZPIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALWp + q+vmsX//7qhh//C/jv/69PP/+fT2//fv7//06ur/8ubm//Pt7f/LxMT/wri4/8G3t//AtbX/v7Oz/76x + sf+8rq7/u6ys/7qpqf+4pqb/tqOj/7WgoP+znZ3/spmZ/7CWlv+vk5P/rZCQ/6uNjf+qior/qIaG/6eD + g/+lgYH/oXl5/5hkZPIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAALWsrevqu47/+ufT//3////69/j/+PT0//bv7//06+v/8ufn//Lu7v/Nycn/w7y8/8K6 + uv/BuLj/wLa2/7+zs/+9sLD/vK2t/7qqqv+5p6f/t6Sk/7ahof+0np7/spub/7GXl/+vlJT/rpGR/6yO + jv+qior/qYeH/6eEhP+lgID/o3p6/5hmZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAALarrOvv6+z///7///37+//69vb/+PLy//bu7v/06+v/8ufn//Pu + 7v/Py8v/xb+//8S9vf/Durr/wbi4/8C1tf++srL/va+v/7usrP+5qan/uKWl/7aiov+0n5//s5ub/7GY + mP+vlZX/rpKS/6yOjv+ri4v/qYiI/6eEhP+ngoL/onp6/5hlZfIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALetrevt6en//Pj4//r4+P/59PT/9/Ly//Xt + 7f/06+v/8ubm//Pw8P/R0ND/xsLC/8W/v//EvLz/wrq6/8G2tv+/s7P/vbCw/7ytrf+6qan/uKam/7aj + o/+1oKD/s5yc/7GZmf+wlpb/rpKS/6yPj/+ri4v/qYiI/6iFhf+mgYH/ont7/5lnZ/IAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALmxsevs5+f/+vT0//jz + 8//38fH/9u7u//Xr6//z6Oj/8eTk//Tv7//T0tL/xsPD/8bBwf/Evr7/w7u7/8G3t/+/tLT/vrGx/7yt + rf+6qqr/uaen/7ejo/+1oKD/s52d/7KZmf+wlpb/rpOT/62Pj/+rjIz/qYiI/6iFhf+mg4P/ont7/5lm + ZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALqz + s+vq4+P/+PDw//bv7//27u7/9ezs//Pp6f/y5ub/8OLi//Xw8P/i4uL/1tTU/9DOzv/Lxsb/xb29/8C3 + t/++s7P/vK+v/7qsrP+4qKj/uKam/7ajo/+0n5//spyc/7KYmP+wlpb/rpOT/62Pj/+rjIz/qYmJ/6iF + hf+mgoL/ont7/5lmZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAALq0tOvp4eH/9ezs//Tr6//06ur/8+jo//Ln5//z6+v/9fPz//Pt7f/x5+f/8efn//Hn + 5//x6Oj/8Ojo/+7m5v/r4+P/597e/+HZ2f/c09P+1s3N/9HHx/7Mv7/+xba2/r+trf64oqL/sJeX/6yP + j/+pior/p4iI/6eEhP+mgoL/o3t7/5lmZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAALq1tevo3t7/8+jo//Ln5//z6Oj/9e/v//fy8v/07e3/8eXl//Di + 4v/u39//7dzc/+vZ2f/q1tb/6NLS/+fPz//lzMz/48rK/+LHx//gxMT/4MHB/96+vv/du7v/3bu7/ty6 + uv7bu7v+3Ly8/tm4uP7Vs7P+z6ur/sejo/60jo7+oHV1/5lnZ/EAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuzs+vn29v/9Onp//jx8f/69vb/9/Dw//bt + 7f/z6en/8+bm//Dj4//v4OD/7d3d/+za2v/q19f/6NTU/+fR0f/lzs7/5MvL/+LHx//hxMT/38HB/96+ + vv/cu7v/27i4/9m1tf/as7P/2LGx/9etrf/Gmpr/soeH/6Fzc/6cbW3wo3BwqKNtbU0AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALq0tOvRysr/3tvb/+Le + 3v/m4OD/6OLi/+ri4v/u5OT/8OTk//Hk5P/y5OT/8ODg/+/d3f/t2tr/7NfX/+nT0//n0ND/5s3N/+TK + yv/jx8f/4MPD/9+/v//dvb3/3ru7/9i0tP/GoKD/souL/6J6ev6hdnbmp3l5mah3d0mzaWkIAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMi+ + vnLIv7+eyMLCrsjBwb7IwcHOyMLC3ca9ve28tLT5uK6u/retrf64rKz+uqys/7ysrP+/ra3/wa2t/8Sv + r//Gr6//yK+v/8uvr//MsbH/zrGx/9Gzs//Gpqb/s5GR/6WAgP6sg4PZrYODiqx/fzpXW1sDAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACztLQDqaqqD7mwsB21qqots6enPbKl + pU20o6Ncs52dbK+cnHytmJiMrZaWm6uSkquqj4+7qIuLyqiJidqmhobJpYSEe7CKiisAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD/+AAAAAEAAP/4AAAAAQAA//gAAAAB + AAD/+AAAAAEAAP/4AAAAAQAA//gAAAABAAD/wAAAAAEAAP+AAAAAAQAA/wAAAAABAAD+AAAAAAEAAPwA + AAAAAQAA+AAAAAABAADwAAAAAAEAAOAAAAAAAQAAwAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB + AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA + AAAAAQAAgAAAAAABAACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB// + AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAA + AAAf/wAAgAAAAB//AACAAAAAP/8AAIAAAAH//wAAgAAAD///AAD//AB///8AAP///////wAA + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb b/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb new file mode 100644 index 0000000..f19a086 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb @@ -0,0 +1,41 @@ +Public Class frmDD_EMAIL_ACCOUNT + + Private Sub TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.Click + Save_EmailProfile() + End Sub + Sub Save_EmailProfile() + Try + Me.TBDD_EMAIL_ACCOUNTBindingSource.EndEdit() + If DD_DMSDataSet.TBDD_EMAIL_ACCOUNT.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBDD_EMAIL_ACCOUNTBindingSource.EndEdit() + TBDD_EMAIL_ACCOUNTTableAdapter.Update(Me.DD_DMSDataSet.TBDD_EMAIL_ACCOUNT) + lblSave.Visible = True + Else + lblSave.Visible = False + End If + Catch ex As Exception + MsgBox("Fehler bei Save_EmailProfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub frmDD_EMAIL_ACCOUNT_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + TBDD_EMAIL_ACCOUNTTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_EMAIL_ACCOUNTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_EMAIL_ACCOUNT) + Catch ex As Exception + MsgBox("Error in Load-Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew + Me.DD_DMSDataSet.TBDD_EMAIL_ACCOUNT.ADDED_WHOColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub btnEmailTest_Click(sender As Object, e As EventArgs) Handles btnEmailTest.Click + If txttestReceipiant.Text <> "" Then + If ClassEmail.Send_EMail(txttestReceipiant.Text, "Test Email Wiedervorlage", "Default-Bodytext: Wird mit dem Profil Bodytext ersetzt.", EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, EMAIL_FROMTextBox.Text) = True Then + MsgBox("Die Test Email wurde erfolgrecih versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:") + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb b/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb new file mode 100644 index 0000000..3fec4fc --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb @@ -0,0 +1,1560 @@ + _ +Partial Class frmDokumentart_Konfig + 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 GUIDLabel As System.Windows.Forms.Label + Dim BEZEICHNUNGLabel As System.Windows.Forms.Label + Dim KURZNAMELabel As System.Windows.Forms.Label + Dim ZIEL_PFADLabel As System.Windows.Forms.Label + Dim BESCHREIBUNGLabel As System.Windows.Forms.Label + Dim NAMENKONVENTIONLabel As System.Windows.Forms.Label + Dim ERSTELLTWERLabel As System.Windows.Forms.Label + Dim ERSTELLTWANNLabel As System.Windows.Forms.Label + Dim GEANDERTWERLabel As System.Windows.Forms.Label + Dim GEAENDERTWANNLabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim INDEXNAMELabel As System.Windows.Forms.Label + Dim VALUELabel As System.Windows.Forms.Label + Dim COMMENTLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim OBJEKTTYPLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentart_Konfig)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton16 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton17 = New System.Windows.Forms.ToolStripButton() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.ListBox3 = New System.Windows.Forms.ListBox() + Me.TBWH_DOKART_MODULEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.lblSaveDokart = New System.Windows.Forms.Label() + Me.btnNamenkonvention = New System.Windows.Forms.Button() + Me.OBJEKTTYPComboBox = New System.Windows.Forms.ComboBox() + Me.btnZielpfad = New System.Windows.Forms.Button() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.BEZEICHNUNGTextBox = New System.Windows.Forms.TextBox() + Me.KURZNAMETextBox = New System.Windows.Forms.TextBox() + Me.ZIEL_PFADTextBox = New System.Windows.Forms.TextBox() + Me.BESCHREIBUNGTextBox = New System.Windows.Forms.TextBox() + Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox() + Me.NAMENKONVENTIONTextBox = New System.Windows.Forms.TextBox() + Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox() + Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() + Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_EINGANGSARTENTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_DOKUMENTARTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter() + Me.TBDD_INDEX_AUTOMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.Label2 = New System.Windows.Forms.Label() + Me.lblSaveIndex = New System.Windows.Forms.Label() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.VALUEComboBox = New System.Windows.Forms.ComboBox() + Me.INDEXNAMEComboBox = New System.Windows.Forms.ComboBox() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.ListBox2 = New System.Windows.Forms.ListBox() + Me.TBDD_INDEX_AUTOMBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.Label3 = New System.Windows.Forms.Label() + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = 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.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Label1 = New System.Windows.Forms.Label() + Me.btnAddDokart_Entity = New System.Windows.Forms.Button() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.TBPMO_FORM_VIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox2 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton15 = New System.Windows.Forms.ToolStripButton() + Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter() + Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter() + Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter() + GUIDLabel = New System.Windows.Forms.Label() + BEZEICHNUNGLabel = New System.Windows.Forms.Label() + KURZNAMELabel = New System.Windows.Forms.Label() + ZIEL_PFADLabel = New System.Windows.Forms.Label() + BESCHREIBUNGLabel = New System.Windows.Forms.Label() + NAMENKONVENTIONLabel = New System.Windows.Forms.Label() + ERSTELLTWERLabel = New System.Windows.Forms.Label() + ERSTELLTWANNLabel = New System.Windows.Forms.Label() + GEANDERTWERLabel = New System.Windows.Forms.Label() + GEAENDERTWANNLabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + INDEXNAMELabel = New System.Windows.Forms.Label() + VALUELabel = New System.Windows.Forms.Label() + COMMENTLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + OBJEKTTYPLabel = New System.Windows.Forms.Label() + CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_DOKUMENTARTBindingNavigator.SuspendLayout() + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.TBWH_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.TBDD_INDEX_AUTOMBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_INDEX_AUTOMBindingNavigator.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + CType(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_FORM_VIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(356, 57) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(61, 15) + GUIDLabel.TabIndex = 2 + GUIDLabel.Text = "Dokart-ID:" + ' + 'BEZEICHNUNGLabel + ' + BEZEICHNUNGLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + BEZEICHNUNGLabel.AutoSize = True + BEZEICHNUNGLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + BEZEICHNUNGLabel.Location = New System.Drawing.Point(477, 57) + BEZEICHNUNGLabel.Name = "BEZEICHNUNGLabel" + BEZEICHNUNGLabel.Size = New System.Drawing.Size(78, 15) + BEZEICHNUNGLabel.TabIndex = 4 + BEZEICHNUNGLabel.Text = "Bezeichnung:" + ' + 'KURZNAMELabel + ' + KURZNAMELabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + KURZNAMELabel.AutoSize = True + KURZNAMELabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + KURZNAMELabel.Location = New System.Drawing.Point(356, 101) + KURZNAMELabel.Name = "KURZNAMELabel" + KURZNAMELabel.Size = New System.Drawing.Size(63, 15) + KURZNAMELabel.TabIndex = 8 + KURZNAMELabel.Text = "Kurzname:" + ' + 'ZIEL_PFADLabel + ' + ZIEL_PFADLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + ZIEL_PFADLabel.AutoSize = True + ZIEL_PFADLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ZIEL_PFADLabel.Location = New System.Drawing.Point(356, 145) + ZIEL_PFADLabel.Name = "ZIEL_PFADLabel" + ZIEL_PFADLabel.Size = New System.Drawing.Size(58, 15) + ZIEL_PFADLabel.TabIndex = 10 + ZIEL_PFADLabel.Text = "Ziel-Pfad:" + ' + 'BESCHREIBUNGLabel + ' + BESCHREIBUNGLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + BESCHREIBUNGLabel.AutoSize = True + BESCHREIBUNGLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + BESCHREIBUNGLabel.Location = New System.Drawing.Point(636, 189) + BESCHREIBUNGLabel.Name = "BESCHREIBUNGLabel" + BESCHREIBUNGLabel.Size = New System.Drawing.Size(82, 15) + BESCHREIBUNGLabel.TabIndex = 12 + BESCHREIBUNGLabel.Text = "Beschreibung:" + ' + 'NAMENKONVENTIONLabel + ' + NAMENKONVENTIONLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + NAMENKONVENTIONLabel.AutoSize = True + NAMENKONVENTIONLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + NAMENKONVENTIONLabel.Location = New System.Drawing.Point(477, 101) + NAMENKONVENTIONLabel.Name = "NAMENKONVENTIONLabel" + NAMENKONVENTIONLabel.Size = New System.Drawing.Size(114, 15) + NAMENKONVENTIONLabel.TabIndex = 16 + NAMENKONVENTIONLabel.Text = "Namenskonvention:" + ' + 'ERSTELLTWERLabel + ' + ERSTELLTWERLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + ERSTELLTWERLabel.AutoSize = True + ERSTELLTWERLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ERSTELLTWERLabel.Location = New System.Drawing.Point(356, 189) + ERSTELLTWERLabel.Name = "ERSTELLTWERLabel" + ERSTELLTWERLabel.Size = New System.Drawing.Size(67, 15) + ERSTELLTWERLabel.TabIndex = 18 + ERSTELLTWERLabel.Text = "Erstellt wer:" + ' + 'ERSTELLTWANNLabel + ' + ERSTELLTWANNLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + ERSTELLTWANNLabel.AutoSize = True + ERSTELLTWANNLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ERSTELLTWANNLabel.Location = New System.Drawing.Point(479, 189) + ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel" + ERSTELLTWANNLabel.Size = New System.Drawing.Size(77, 15) + ERSTELLTWANNLabel.TabIndex = 20 + ERSTELLTWANNLabel.Text = "Erstellt wann:" + ' + 'GEANDERTWERLabel + ' + GEANDERTWERLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + GEANDERTWERLabel.AutoSize = True + GEANDERTWERLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GEANDERTWERLabel.Location = New System.Drawing.Point(356, 233) + GEANDERTWERLabel.Name = "GEANDERTWERLabel" + GEANDERTWERLabel.Size = New System.Drawing.Size(80, 15) + GEANDERTWERLabel.TabIndex = 22 + GEANDERTWERLabel.Text = "Geändert wer:" + ' + 'GEAENDERTWANNLabel + ' + GEAENDERTWANNLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + GEAENDERTWANNLabel.AutoSize = True + GEAENDERTWANNLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GEAENDERTWANNLabel.Location = New System.Drawing.Point(479, 233) + GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" + GEAENDERTWANNLabel.Size = New System.Drawing.Size(90, 15) + GEAENDERTWANNLabel.TabIndex = 24 + GEAENDERTWANNLabel.Text = "Geändert wann:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.AutoSize = True + GUIDLabel1.Location = New System.Drawing.Point(311, 63) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(21, 15) + GUIDLabel1.TabIndex = 2 + GUIDLabel1.Text = "ID:" + ' + 'INDEXNAMELabel + ' + INDEXNAMELabel.AutoSize = True + INDEXNAMELabel.Location = New System.Drawing.Point(388, 63) + INDEXNAMELabel.Name = "INDEXNAMELabel" + INDEXNAMELabel.Size = New System.Drawing.Size(68, 15) + INDEXNAMELabel.TabIndex = 4 + INDEXNAMELabel.Text = "Indexname:" + ' + 'VALUELabel + ' + VALUELabel.AutoSize = True + VALUELabel.Location = New System.Drawing.Point(662, 63) + VALUELabel.Name = "VALUELabel" + VALUELabel.Size = New System.Drawing.Size(181, 15) + VALUELabel.TabIndex = 6 + VALUELabel.Text = "Automatischer Indexierungswert:" + ' + 'COMMENTLabel + ' + COMMENTLabel.AutoSize = True + COMMENTLabel.Location = New System.Drawing.Point(311, 107) + COMMENTLabel.Name = "COMMENTLabel" + COMMENTLabel.Size = New System.Drawing.Size(71, 15) + COMMENTLabel.TabIndex = 8 + COMMENTLabel.Text = "Bemerkung:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(311, 155) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 15) + ADDED_WHOLabel.TabIndex = 12 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(434, 155) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 15) + ADDED_WHENLabel.TabIndex = 14 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(583, 155) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 15) + CHANGED_WHOLabel.TabIndex = 16 + CHANGED_WHOLabel.Text = "Geändert wo:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(703, 155) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 15) + CHANGED_WHENLabel.TabIndex = 18 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'OBJEKTTYPLabel + ' + OBJEKTTYPLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + OBJEKTTYPLabel.AutoSize = True + OBJEKTTYPLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + OBJEKTTYPLabel.Location = New System.Drawing.Point(819, 57) + OBJEKTTYPLabel.Name = "OBJEKTTYPLabel" + OBJEKTTYPLabel.Size = New System.Drawing.Size(62, 15) + OBJEKTTYPLabel.TabIndex = 26 + OBJEKTTYPLabel.Text = "Objekttyp:" + ' + 'TBDD_DOKUMENTARTBindingNavigator + ' + Me.TBDD_DOKUMENTARTBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBDD_DOKUMENTARTBindingNavigator.BindingSource = Me.TBDD_DOKUMENTARTBindingSource + Me.TBDD_DOKUMENTARTBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBDD_DOKUMENTARTBindingNavigator.CountItemFormat = "von {0} Dokumentarten" + Me.TBDD_DOKUMENTARTBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBDD_DOKUMENTARTBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem, Me.ToolStripButton16, Me.ToolStripButton17}) + Me.TBDD_DOKUMENTARTBindingNavigator.Location = New System.Drawing.Point(3, 19) + Me.TBDD_DOKUMENTARTBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBDD_DOKUMENTARTBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBDD_DOKUMENTARTBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBDD_DOKUMENTARTBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBDD_DOKUMENTARTBindingNavigator.Name = "TBDD_DOKUMENTARTBindingNavigator" + Me.TBDD_DOKUMENTARTBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBDD_DOKUMENTARTBindingNavigator.Size = New System.Drawing.Size(1103, 25) + Me.TBDD_DOKUMENTARTBindingNavigator.TabIndex = 0 + Me.TBDD_DOKUMENTARTBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'TBDD_DOKUMENTARTBindingSource + ' + Me.TBDD_DOKUMENTARTBindingSource.DataMember = "TBDD_DOKUMENTART" + Me.TBDD_DOKUMENTARTBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(130, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Dokumentarten" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBDD_EINGANGSARTENBindingNavigatorSaveItem + ' + Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBDD_EINGANGSARTENBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem.Name = "TBDD_EINGANGSARTENBindingNavigatorSaveItem" + Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'ToolStripButton16 + ' + Me.ToolStripButton16.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton16.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton16.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton16.Name = "ToolStripButton16" + Me.ToolStripButton16.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton16.Text = "Refresh" + ' + 'ToolStripButton17 + ' + Me.ToolStripButton17.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton17.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton17.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton17.Name = "ToolStripButton17" + Me.ToolStripButton17.Size = New System.Drawing.Size(159, 22) + Me.ToolStripButton17.Text = "Lade alle Dokumentarten" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Button1) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.ListBox3) + Me.GroupBox1.Controls.Add(Me.lblSaveDokart) + Me.GroupBox1.Controls.Add(Me.btnNamenkonvention) + Me.GroupBox1.Controls.Add(Me.OBJEKTTYPComboBox) + Me.GroupBox1.Controls.Add(OBJEKTTYPLabel) + Me.GroupBox1.Controls.Add(Me.btnZielpfad) + Me.GroupBox1.Controls.Add(GUIDLabel) + Me.GroupBox1.Controls.Add(Me.GUIDTextBox) + Me.GroupBox1.Controls.Add(BEZEICHNUNGLabel) + Me.GroupBox1.Controls.Add(Me.BEZEICHNUNGTextBox) + Me.GroupBox1.Controls.Add(KURZNAMELabel) + Me.GroupBox1.Controls.Add(Me.KURZNAMETextBox) + Me.GroupBox1.Controls.Add(ZIEL_PFADLabel) + Me.GroupBox1.Controls.Add(Me.ZIEL_PFADTextBox) + Me.GroupBox1.Controls.Add(BESCHREIBUNGLabel) + Me.GroupBox1.Controls.Add(Me.BESCHREIBUNGTextBox) + Me.GroupBox1.Controls.Add(Me.AKTIVCheckBox) + Me.GroupBox1.Controls.Add(NAMENKONVENTIONLabel) + Me.GroupBox1.Controls.Add(Me.NAMENKONVENTIONTextBox) + Me.GroupBox1.Controls.Add(ERSTELLTWERLabel) + Me.GroupBox1.Controls.Add(Me.ERSTELLTWERTextBox) + Me.GroupBox1.Controls.Add(ERSTELLTWANNLabel) + Me.GroupBox1.Controls.Add(Me.ERSTELLTWANNTextBox) + Me.GroupBox1.Controls.Add(GEANDERTWERLabel) + Me.GroupBox1.Controls.Add(Me.GEANDERTWERTextBox) + Me.GroupBox1.Controls.Add(GEAENDERTWANNLabel) + Me.GroupBox1.Controls.Add(Me.GEAENDERTWANNTextBox) + Me.GroupBox1.Controls.Add(Me.ListBox1) + Me.GroupBox1.Controls.Add(Me.TBDD_DOKUMENTARTBindingNavigator) + Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(0, 0) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(1109, 314) + Me.GroupBox1.TabIndex = 1 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Dokumentarten" + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.Button1.Location = New System.Drawing.Point(1068, 180) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(29, 23) + Me.Button1.TabIndex = 80 + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.Crimson + Me.Label4.Location = New System.Drawing.Point(895, 163) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(120, 15) + Me.Label4.TabIndex = 79 + Me.Label4.Text = "Zuordnung zu Modul:" + ' + 'ListBox3 + ' + Me.ListBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBox3.DataSource = Me.TBWH_DOKART_MODULEBindingSource + Me.ListBox3.DisplayMember = "NAME" + Me.ListBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox3.ForeColor = System.Drawing.Color.Crimson + Me.ListBox3.FormattingEnabled = True + Me.ListBox3.ItemHeight = 15 + Me.ListBox3.Location = New System.Drawing.Point(898, 180) + Me.ListBox3.Name = "ListBox3" + Me.ListBox3.Size = New System.Drawing.Size(165, 94) + Me.ListBox3.TabIndex = 78 + ' + 'TBWH_DOKART_MODULEBindingSource + ' + Me.TBWH_DOKART_MODULEBindingSource.DataMember = "TBWH_DOKART_MODULE" + Me.TBWH_DOKART_MODULEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'lblSaveDokart + ' + Me.lblSaveDokart.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSaveDokart.AutoSize = True + Me.lblSaveDokart.BackColor = System.Drawing.Color.Yellow + Me.lblSaveDokart.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveDokart.Location = New System.Drawing.Point(356, 277) + Me.lblSaveDokart.Name = "lblSaveDokart" + Me.lblSaveDokart.Size = New System.Drawing.Size(240, 17) + Me.lblSaveDokart.TabIndex = 77 + Me.lblSaveDokart.Text = "Dokumentart erfolgreich gespeichert!" + Me.lblSaveDokart.Visible = False + ' + 'btnNamenkonvention + ' + Me.btnNamenkonvention.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnNamenkonvention.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnNamenkonvention.Location = New System.Drawing.Point(822, 118) + Me.btnNamenkonvention.Name = "btnNamenkonvention" + Me.btnNamenkonvention.Size = New System.Drawing.Size(176, 23) + Me.btnNamenkonvention.TabIndex = 27 + Me.btnNamenkonvention.TabStop = False + Me.btnNamenkonvention.Text = "Namenkonvention bearbeiten" + Me.btnNamenkonvention.UseVisualStyleBackColor = True + ' + 'OBJEKTTYPComboBox + ' + Me.OBJEKTTYPComboBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OBJEKTTYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "OBJEKTTYP", True)) + Me.OBJEKTTYPComboBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.OBJEKTTYPComboBox.FormattingEnabled = True + Me.OBJEKTTYPComboBox.Location = New System.Drawing.Point(823, 75) + Me.OBJEKTTYPComboBox.Name = "OBJEKTTYPComboBox" + Me.OBJEKTTYPComboBox.Size = New System.Drawing.Size(244, 23) + Me.OBJEKTTYPComboBox.TabIndex = 1 + ' + 'btnZielpfad + ' + Me.btnZielpfad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnZielpfad.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnZielpfad.Location = New System.Drawing.Point(775, 162) + Me.btnZielpfad.Name = "btnZielpfad" + Me.btnZielpfad.Size = New System.Drawing.Size(38, 23) + Me.btnZielpfad.TabIndex = 5 + Me.btnZielpfad.Text = "..." + Me.btnZielpfad.UseVisualStyleBackColor = True + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(359, 75) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(68, 23) + Me.GUIDTextBox.TabIndex = 3 + Me.GUIDTextBox.TabStop = False + ' + 'BEZEICHNUNGTextBox + ' + Me.BEZEICHNUNGTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) + Me.BEZEICHNUNGTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(480, 75) + Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox" + Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(333, 23) + Me.BEZEICHNUNGTextBox.TabIndex = 0 + ' + 'KURZNAMETextBox + ' + Me.KURZNAMETextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.KURZNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True)) + Me.KURZNAMETextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.KURZNAMETextBox.Location = New System.Drawing.Point(359, 119) + Me.KURZNAMETextBox.Name = "KURZNAMETextBox" + Me.KURZNAMETextBox.Size = New System.Drawing.Size(99, 23) + Me.KURZNAMETextBox.TabIndex = 2 + ' + 'ZIEL_PFADTextBox + ' + Me.ZIEL_PFADTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ZIEL_PFADTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ZIEL_PFAD", True)) + Me.ZIEL_PFADTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ZIEL_PFADTextBox.Location = New System.Drawing.Point(359, 163) + Me.ZIEL_PFADTextBox.Name = "ZIEL_PFADTextBox" + Me.ZIEL_PFADTextBox.Size = New System.Drawing.Size(409, 23) + Me.ZIEL_PFADTextBox.TabIndex = 4 + ' + 'BESCHREIBUNGTextBox + ' + Me.BESCHREIBUNGTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.BESCHREIBUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True)) + Me.BESCHREIBUNGTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BESCHREIBUNGTextBox.Location = New System.Drawing.Point(639, 207) + Me.BESCHREIBUNGTextBox.Multiline = True + Me.BESCHREIBUNGTextBox.Name = "BESCHREIBUNGTextBox" + Me.BESCHREIBUNGTextBox.Size = New System.Drawing.Size(234, 67) + Me.BESCHREIBUNGTextBox.TabIndex = 6 + ' + 'AKTIVCheckBox + ' + Me.AKTIVCheckBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True)) + Me.AKTIVCheckBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.AKTIVCheckBox.Location = New System.Drawing.Point(823, 162) + Me.AKTIVCheckBox.Name = "AKTIVCheckBox" + Me.AKTIVCheckBox.Size = New System.Drawing.Size(58, 24) + Me.AKTIVCheckBox.TabIndex = 15 + Me.AKTIVCheckBox.Text = "Aktiv" + Me.AKTIVCheckBox.UseVisualStyleBackColor = True + ' + 'NAMENKONVENTIONTextBox + ' + Me.NAMENKONVENTIONTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.NAMENKONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) + Me.NAMENKONVENTIONTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NAMENKONVENTIONTextBox.Location = New System.Drawing.Point(482, 119) + Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox" + Me.NAMENKONVENTIONTextBox.Size = New System.Drawing.Size(331, 23) + Me.NAMENKONVENTIONTextBox.TabIndex = 3 + ' + 'ERSTELLTWERTextBox + ' + Me.ERSTELLTWERTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True)) + Me.ERSTELLTWERTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(359, 207) + Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox" + Me.ERSTELLTWERTextBox.ReadOnly = True + Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(111, 23) + Me.ERSTELLTWERTextBox.TabIndex = 19 + Me.ERSTELLTWERTextBox.TabStop = False + ' + 'ERSTELLTWANNTextBox + ' + Me.ERSTELLTWANNTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True)) + Me.ERSTELLTWANNTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(482, 207) + Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox" + Me.ERSTELLTWANNTextBox.ReadOnly = True + Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(140, 23) + Me.ERSTELLTWANNTextBox.TabIndex = 21 + Me.ERSTELLTWANNTextBox.TabStop = False + ' + 'GEANDERTWERTextBox + ' + Me.GEANDERTWERTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True)) + Me.GEANDERTWERTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(359, 251) + Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" + Me.GEANDERTWERTextBox.ReadOnly = True + Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(111, 23) + Me.GEANDERTWERTextBox.TabIndex = 23 + Me.GEANDERTWERTextBox.TabStop = False + ' + 'GEAENDERTWANNTextBox + ' + Me.GEAENDERTWANNTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(482, 251) + Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" + Me.GEAENDERTWANNTextBox.ReadOnly = True + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(140, 23) + Me.GEAENDERTWANNTextBox.TabIndex = 25 + Me.GEAENDERTWANNTextBox.TabStop = False + ' + 'ListBox1 + ' + Me.ListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBox1.BackColor = System.Drawing.SystemColors.GradientActiveCaption + Me.ListBox1.DataSource = Me.TBDD_DOKUMENTARTBindingSource + Me.ListBox1.DisplayMember = "BEZEICHNUNG" + Me.ListBox1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 17 + Me.ListBox1.Location = New System.Drawing.Point(3, 44) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(335, 242) + Me.ListBox1.TabIndex = 1 + Me.ListBox1.TabStop = False + Me.ListBox1.ValueMember = "GUID" + ' + 'TBDD_EINGANGSARTENBindingSource + ' + Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN" + Me.TBDD_EINGANGSARTENBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBDD_EINGANGSARTENTableAdapter + ' + Me.TBDD_EINGANGSARTENTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Me.TBDD_EINGANGSARTENTableAdapter + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_DOKUMENTARTTableAdapter + ' + Me.TBDD_DOKUMENTARTTableAdapter.ClearBeforeFill = True + ' + 'TBDD_INDEX_AUTOMTableAdapter + ' + Me.TBDD_INDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'TBDD_INDEX_AUTOMBindingSource + ' + Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" + Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 581) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1109, 22) + Me.StatusStrip1.TabIndex = 2 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'ToolStripStatusLabel1 + ' + Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" + Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(121, 17) + Me.ToolStripStatusLabel1.Text = "ToolStripStatusLabel1" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.XtraTabControl1.Location = New System.Drawing.Point(3, 304) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(1064, 277) + Me.XtraTabControl1.TabIndex = 2 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(Me.Label2) + Me.XtraTabPage1.Controls.Add(Me.lblSaveIndex) + Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.XtraTabPage1.Controls.Add(ADDED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.ADDED_WHENTextBox) + Me.XtraTabPage1.Controls.Add(ADDED_WHOLabel) + Me.XtraTabPage1.Controls.Add(Me.ADDED_WHOTextBox) + Me.XtraTabPage1.Controls.Add(Me.ACTIVECheckBox) + Me.XtraTabPage1.Controls.Add(COMMENTLabel) + Me.XtraTabPage1.Controls.Add(Me.COMMENTTextBox) + Me.XtraTabPage1.Controls.Add(Me.VALUEComboBox) + Me.XtraTabPage1.Controls.Add(VALUELabel) + Me.XtraTabPage1.Controls.Add(Me.INDEXNAMEComboBox) + Me.XtraTabPage1.Controls.Add(INDEXNAMELabel) + Me.XtraTabPage1.Controls.Add(GUIDLabel1) + Me.XtraTabPage1.Controls.Add(Me.GUIDTextBox1) + Me.XtraTabPage1.Controls.Add(Me.ListBox2) + Me.XtraTabPage1.Controls.Add(Me.TBDD_INDEX_AUTOMBindingNavigator) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1058, 249) + Me.XtraTabPage1.Text = "Automatische Indexe" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(311, 25) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(510, 19) + Me.Label2.TabIndex = 79 + Me.Label2.Text = "Die hier definierten Indizes werden automatisch durch die Entitätzugehörigkeit zu" & _ + "geordnet." + ' + 'lblSaveIndex + ' + Me.lblSaveIndex.AutoSize = True + Me.lblSaveIndex.BackColor = System.Drawing.Color.Yellow + Me.lblSaveIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveIndex.Location = New System.Drawing.Point(827, 25) + Me.lblSaveIndex.Name = "lblSaveIndex" + Me.lblSaveIndex.Size = New System.Drawing.Size(192, 17) + Me.lblSaveIndex.TabIndex = 78 + Me.lblSaveIndex.Text = "Index erfolgreich gespeichert!" + Me.lblSaveIndex.Visible = False + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(706, 173) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(142, 23) + Me.CHANGED_WHENTextBox.TabIndex = 19 + Me.CHANGED_WHENTextBox.TabStop = False + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(586, 173) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(111, 23) + Me.CHANGED_WHOTextBox.TabIndex = 17 + Me.CHANGED_WHOTextBox.TabStop = False + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(435, 173) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(142, 23) + Me.ADDED_WHENTextBox.TabIndex = 15 + Me.ADDED_WHENTextBox.TabStop = False + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(314, 173) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(111, 23) + Me.ADDED_WHOTextBox.TabIndex = 13 + Me.ADDED_WHOTextBox.TabStop = False + ' + 'ACTIVECheckBox + ' + Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(864, 80) + Me.ACTIVECheckBox.Name = "ACTIVECheckBox" + Me.ACTIVECheckBox.Size = New System.Drawing.Size(104, 24) + Me.ACTIVECheckBox.TabIndex = 11 + Me.ACTIVECheckBox.Text = "Aktiv" + Me.ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.Location = New System.Drawing.Point(314, 125) + Me.COMMENTTextBox.Name = "COMMENTTextBox" + Me.COMMENTTextBox.Size = New System.Drawing.Size(534, 23) + Me.COMMENTTextBox.TabIndex = 2 + ' + 'VALUEComboBox + ' + Me.VALUEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True)) + Me.VALUEComboBox.FormattingEnabled = True + Me.VALUEComboBox.Items.AddRange(New Object() {"@Record-ID", "@Dokart"}) + Me.VALUEComboBox.Location = New System.Drawing.Point(665, 80) + Me.VALUEComboBox.Name = "VALUEComboBox" + Me.VALUEComboBox.Size = New System.Drawing.Size(183, 23) + Me.VALUEComboBox.TabIndex = 1 + ' + 'INDEXNAMEComboBox + ' + Me.INDEXNAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) + Me.INDEXNAMEComboBox.FormattingEnabled = True + Me.INDEXNAMEComboBox.Location = New System.Drawing.Point(391, 81) + Me.INDEXNAMEComboBox.Name = "INDEXNAMEComboBox" + Me.INDEXNAMEComboBox.Size = New System.Drawing.Size(268, 23) + Me.INDEXNAMEComboBox.TabIndex = 0 + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(314, 81) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.ReadOnly = True + Me.GUIDTextBox1.Size = New System.Drawing.Size(68, 23) + Me.GUIDTextBox1.TabIndex = 3 + Me.GUIDTextBox1.TabStop = False + ' + 'ListBox2 + ' + Me.ListBox2.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.ListBox2.DataSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.ListBox2.DisplayMember = "INDEXNAME" + Me.ListBox2.Dock = System.Windows.Forms.DockStyle.Left + Me.ListBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox2.FormattingEnabled = True + Me.ListBox2.ItemHeight = 15 + Me.ListBox2.Location = New System.Drawing.Point(0, 25) + Me.ListBox2.Name = "ListBox2" + Me.ListBox2.Size = New System.Drawing.Size(305, 224) + Me.ListBox2.TabIndex = 2 + Me.ListBox2.TabStop = False + Me.ListBox2.ValueMember = "GUID" + ' + 'TBDD_INDEX_AUTOMBindingNavigator + ' + Me.TBDD_INDEX_AUTOMBindingNavigator.AddNewItem = Me.ToolStripButton1 + Me.TBDD_INDEX_AUTOMBindingNavigator.BindingSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.TBDD_INDEX_AUTOMBindingNavigator.CountItem = Me.ToolStripLabel1 + Me.TBDD_INDEX_AUTOMBindingNavigator.CountItemFormat = "von {0} Indexen" + Me.TBDD_INDEX_AUTOMBindingNavigator.DeleteItem = Me.ToolStripButton2 + Me.TBDD_INDEX_AUTOMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7}) + Me.TBDD_INDEX_AUTOMBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBDD_INDEX_AUTOMBindingNavigator.MoveFirstItem = Me.ToolStripButton3 + Me.TBDD_INDEX_AUTOMBindingNavigator.MoveLastItem = Me.ToolStripButton6 + Me.TBDD_INDEX_AUTOMBindingNavigator.MoveNextItem = Me.ToolStripButton5 + Me.TBDD_INDEX_AUTOMBindingNavigator.MovePreviousItem = Me.ToolStripButton4 + Me.TBDD_INDEX_AUTOMBindingNavigator.Name = "TBDD_INDEX_AUTOMBindingNavigator" + Me.TBDD_INDEX_AUTOMBindingNavigator.PositionItem = Me.ToolStripTextBox1 + Me.TBDD_INDEX_AUTOMBindingNavigator.Size = New System.Drawing.Size(1058, 25) + Me.TBDD_INDEX_AUTOMBindingNavigator.TabIndex = 1 + Me.TBDD_INDEX_AUTOMBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "Neu hinzufügen" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(88, 22) + Me.ToolStripLabel1.Text = "von {0} Indexen" + Me.ToolStripLabel1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "Löschen" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "Erste verschieben" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.AccessibleName = "Position" + Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox1.Text = "0" + Me.ToolStripTextBox1.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton5.Text = "Nächste verschieben" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton6.Text = "Letzte verschieben" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image) + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton7.Text = "Daten speichern" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.AutoScroll = True + Me.XtraTabPage2.Controls.Add(Me.Label3) + Me.XtraTabPage2.Controls.Add(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView) + Me.XtraTabPage2.Controls.Add(Me.Label1) + Me.XtraTabPage2.Controls.Add(Me.btnAddDokart_Entity) + Me.XtraTabPage2.Controls.Add(Me.ComboBox1) + Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(1058, 249) + Me.XtraTabPage2.Text = "Zurodnung Dokumentart - Entität" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(11, 25) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(432, 19) + Me.Label3.TabIndex = 80 + Me.Label3.Text = "Eine Dokumentart kann auf eine oder mehrere Entitäten zugeordnet werden." + ' + 'TBPMO_WD_FORMVIEW_DOKTYPESDataGridView + ' + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToAddRows = False + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AutoGenerateColumns = False + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DataSource = Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Location = New System.Drawing.Point(11, 106) + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Name = "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView" + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ReadOnly = True + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Size = New System.Drawing.Size(964, 140) + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.TabIndex = 5 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" + Me.DataGridViewTextBoxColumn1.HeaderText = "ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "FORM_TITLE" + Me.DataGridViewTextBoxColumn3.HeaderText = "Entität - Formular" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "BEZEICHNUNG" + Me.DataGridViewTextBoxColumn5.HeaderText = "Dokumentart" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "ADDED_WHO" + Me.DataGridViewTextBoxColumn6.HeaderText = "Added who" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "ADDED_WHEN" + Me.DataGridViewTextBoxColumn7.HeaderText = "when" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "CHANGED_WHO" + Me.DataGridViewTextBoxColumn8.HeaderText = "Changed who" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "CHANGED_WHEN" + Me.DataGridViewTextBoxColumn9.HeaderText = "when" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'TBPMO_WD_FORMVIEW_DOKTYPESBindingSource + ' + Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource.DataMember = "TBPMO_WD_FORMVIEW_DOKTYPES" + Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(8, 57) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(229, 15) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Entität auswählen (Angezeigtes Formular):" + ' + 'btnAddDokart_Entity + ' + Me.btnAddDokart_Entity.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnAddDokart_Entity.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddDokart_Entity.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddDokart_Entity.Location = New System.Drawing.Point(291, 76) + Me.btnAddDokart_Entity.Name = "btnAddDokart_Entity" + Me.btnAddDokart_Entity.Size = New System.Drawing.Size(228, 23) + Me.btnAddDokart_Entity.TabIndex = 4 + Me.btnAddDokart_Entity.Text = "Entität zu Dokumentart hinzufügen" + Me.btnAddDokart_Entity.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddDokart_Entity.UseVisualStyleBackColor = False + ' + 'ComboBox1 + ' + Me.ComboBox1.DataSource = Me.TBPMO_FORM_VIEWBindingSource + Me.ComboBox1.DisplayMember = "FORM_TITLE" + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(11, 77) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(274, 23) + Me.ComboBox1.TabIndex = 3 + Me.ComboBox1.ValueMember = "GUID" + ' + 'TBPMO_FORM_VIEWBindingSource + ' + Me.TBPMO_FORM_VIEWBindingSource.DataMember = "TBPMO_FORM_VIEW" + Me.TBPMO_FORM_VIEWBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.ToolStripButton8 + Me.BindingNavigator1.BindingSource = Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource + Me.BindingNavigator1.CountItem = Me.ToolStripLabel2 + Me.BindingNavigator1.CountItemFormat = "von {0} Zuordnungen" + Me.BindingNavigator1.DeleteItem = Me.ToolStripButton9 + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripSeparator4, Me.ToolStripTextBox2, Me.ToolStripLabel2, Me.ToolStripSeparator5, Me.ToolStripButton12, Me.ToolStripButton13, Me.ToolStripSeparator6, Me.ToolStripButton8, Me.ToolStripButton9, Me.ToolStripButton14, Me.ToolStripButton15}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton10 + Me.BindingNavigator1.MoveLastItem = Me.ToolStripButton13 + Me.BindingNavigator1.MoveNextItem = Me.ToolStripButton12 + Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton11 + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.ToolStripTextBox2 + Me.BindingNavigator1.Size = New System.Drawing.Size(1058, 25) + Me.BindingNavigator1.TabIndex = 2 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image) + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.RightToLeftAutoMirrorImage = True + Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton8.Text = "Neu hinzufügen" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(120, 22) + Me.ToolStripLabel2.Text = "von {0} Zuordnungen" + Me.ToolStripLabel2.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton9.Image = CType(resources.GetObject("ToolStripButton9.Image"), System.Drawing.Image) + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.RightToLeftAutoMirrorImage = True + Me.ToolStripButton9.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton9.Text = "Löschen" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image) + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.RightToLeftAutoMirrorImage = True + Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton10.Text = "Erste verschieben" + ' + 'ToolStripButton11 + ' + Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image) + Me.ToolStripButton11.Name = "ToolStripButton11" + Me.ToolStripButton11.RightToLeftAutoMirrorImage = True + Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton11.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox2 + ' + Me.ToolStripTextBox2.AccessibleName = "Position" + Me.ToolStripTextBox2.AutoSize = False + Me.ToolStripTextBox2.Name = "ToolStripTextBox2" + Me.ToolStripTextBox2.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox2.Text = "0" + Me.ToolStripTextBox2.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image) + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.RightToLeftAutoMirrorImage = True + Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton12.Text = "Nächste verschieben" + ' + 'ToolStripButton13 + ' + Me.ToolStripButton13.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image) + Me.ToolStripButton13.Name = "ToolStripButton13" + Me.ToolStripButton13.RightToLeftAutoMirrorImage = True + Me.ToolStripButton13.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton13.Text = "Letzte verschieben" + ' + 'ToolStripSeparator6 + ' + Me.ToolStripSeparator6.Name = "ToolStripSeparator6" + Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton14 + ' + Me.ToolStripButton14.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton14.Image = CType(resources.GetObject("ToolStripButton14.Image"), System.Drawing.Image) + Me.ToolStripButton14.Name = "ToolStripButton14" + Me.ToolStripButton14.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton14.Text = "Daten speichern" + ' + 'ToolStripButton15 + ' + Me.ToolStripButton15.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton15.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton15.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton15.Name = "ToolStripButton15" + Me.ToolStripButton15.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton15.Text = "Refresh" + ' + 'TBPMO_FORM_VIEWTableAdapter + ' + Me.TBPMO_FORM_VIEWTableAdapter.ClearBeforeFill = True + ' + 'TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter + ' + Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.ClearBeforeFill = True + ' + 'TBWH_DOKART_MODULETableAdapter + ' + Me.TBWH_DOKART_MODULETableAdapter.ClearBeforeFill = True + ' + 'frmDokumentart_Konfig + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1109, 603) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.GroupBox1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmDokumentart_Konfig" + Me.Text = "Dokumentart - Konfiguration" + CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_DOKUMENTARTBindingNavigator.ResumeLayout(False) + Me.TBDD_DOKUMENTARTBindingNavigator.PerformLayout() + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.TBWH_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.TBDD_INDEX_AUTOMBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_INDEX_AUTOMBindingNavigator.ResumeLayout(False) + Me.TBDD_INDEX_AUTOMBindingNavigator.PerformLayout() + Me.XtraTabPage2.ResumeLayout(False) + Me.XtraTabPage2.PerformLayout() + CType(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_FORM_VIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBDD_EINGANGSARTENBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_EINGANGSARTENTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_DOKUMENTARTBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBDD_EINGANGSARTENBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents TBDD_DOKUMENTARTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter + Friend WithEvents TBDD_DOKUMENTARTBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents TBDD_INDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents BEZEICHNUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents KURZNAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents ZIEL_PFADTextBox As System.Windows.Forms.TextBox + Friend WithEvents BESCHREIBUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents AKTIVCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents NAMENKONVENTIONTextBox As System.Windows.Forms.TextBox + Friend WithEvents ERSTELLTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents ERSTELLTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEANDERTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEAENDERTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents btnZielpfad As System.Windows.Forms.Button + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ACTIVECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox + Friend WithEvents VALUEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents INDEXNAMEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ListBox2 As System.Windows.Forms.ListBox + Friend WithEvents TBDD_INDEX_AUTOMBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents OBJEKTTYPComboBox As System.Windows.Forms.ComboBox + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton9 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton10 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton11 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton12 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton13 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton14 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBPMO_FORM_VIEWBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter + Friend WithEvents TBPMO_WD_FORMVIEW_DOKTYPESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter + Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox + Friend WithEvents btnAddDokart_Entity As System.Windows.Forms.Button + Friend WithEvents TBPMO_WD_FORMVIEW_DOKTYPESDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents btnNamenkonvention As System.Windows.Forms.Button + Friend WithEvents ToolStripButton15 As System.Windows.Forms.ToolStripButton + Friend WithEvents lblSaveDokart As System.Windows.Forms.Label + Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lblSaveIndex As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents ToolStripButton16 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton17 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBWH_DOKART_MODULEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_DOKART_MODULETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents ListBox3 As System.Windows.Forms.ListBox + Friend WithEvents Button1 As System.Windows.Forms.Button +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.resx b/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.resx new file mode 100644 index 0000000..bb80478 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.resx @@ -0,0 +1,479 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 854, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + 1125, 17 + + + 17, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 905, 95 + + + 160, 17 + + + 423, 17 + + + 681, 17 + + + 1380, 17 + + + 267, 56 + + + 17, 56 + + + 511, 56 + + + 653, 56 + + + 770, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 255, 95 + + + 1190, 56 + + + 1036, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 17, 95 + + + 583, 95 + + + 1176, 95 + + + 89 + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAAB + AAAAAAAADioJAB9gAAAyiQcANI4GADylBwA8qAcAPawGAD+xBgBAtAUAQL8BAEC4BQBCvgQAULocAFmW + OgBamzkAWaA1AFumNQBdqDcAXKU4AGG5NQBlvzgAQcIBAELIAABFygMARc0BAEbQAgBG1QAAR9gAAEjb + AABK3gAAS+MAAE3gAwBM5gAATeoAAE7tAABQ8QAAUfQAAFXzBwBU/AAAVvkFAFn/BgBa/AoAXf8NAFni + FABg5h4AYf8SAGL+FABl/xcAZfsZAGf+GwBp/h4AXsUqAGfLNQBnxTgAasY9AGrMOQBrzDwAbMw9AG/Z + OgBj4iMAbv4lAHL+KwBy/iwAdP4uAG3iMgBu4jUAcOI3AHDiOAB14j8Adf4xAHv6OwB6/jgAff49AHKy + UgB0slYAd7tVAHnFUgB84UoAfuFMAH/+QACCzF4AgP5BAIL+RQCE/kcAhf5IAIX+TACJ/k0Aiv5QAIz+ + UwCGy2MAhMxhAIfMZACJy2cAi8xsAJT6YgCj/nkAm7iNAJy6jQCdvI0Au/6aAL/5vwDC/qMA2f7UAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsOQAAAAAOBAAAAAAAAAA8My85AAATCQUEAAAAAABBPz0x + KjkRGAwJBwQAAABFU0c/My8xYwwYDAkHBAAAWlNHRj9TXztjDBgMDA8AAABaUFZlRj8fDWMMGxIAAAAA + AF5nYEcxJhgVYxEAAAAAAABLTWZQPSotTAERAAAAAABaU0U3Uz8vIAIgIhQAAABdWVZTRRVkRwwiJiIf + FAAATllXVlBBNCYoKCYmIgwAAABOWVdTU0s5KSgmIhsAAAAAAE5ZV1oAADkoKBsAAAAAAAAATloAAAAA + NSAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AADzzwAA4YcAAMADAACAAQAAgAEAAMADAADgBwAA4AcAAMAD + AACAAQAAgAEAAMADAADhhwAA888AAP//AAA= + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.vb b/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.vb new file mode 100644 index 0000000..344a71d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDokumentart_Konfig.vb @@ -0,0 +1,305 @@ +Public Class frmDokumentart_Konfig + Private Shared _Instance As frmDokumentart_Konfig = Nothing + Private insert As Boolean = False + Public Shared akt_DokartID As Integer + Public Shared akt_Namenkonvention As String + Private IsInsert As Boolean = False + Public Shared Function Instance() As frmDokumentart_Konfig + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmDokumentart_Konfig + End If + _Instance.BringToFront() + Return _Instance + End Function + Private Sub TBDD_EINGANGSARTENBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_EINGANGSARTENBindingNavigatorSaveItem.Click + Save_Dokart() + End Sub + + Private Sub frmDokumentart_Konfig_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ClassWindowLocation.SaveFormLocationSize(Me, 99, 99, "frmDokumentartKonfig") + End Sub + + Private Sub frmDokumentart_Konfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + ClassWindowLocation.LoadFormLocationSize(Me, 99, 99, "frmDokumentartKonfig") + Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_EINGANGSARTENTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FORM_VIEWTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBWH_DOKART_MODULETableAdapter.Connection.ConnectionString = MyConnectionString + + Refresh_Dokart(False) + ClassWindream.Init() + ObjektTypenEintragen() + If GUIDTextBox.Text <> "" Then + Refresh_DokID_FORM_VIEW() + Refresh_DokartModule(GUIDTextBox.Text) + Refresh_Indexe_Auto(GUIDTextBox.Text) + akt_DokartID = GUIDTextBox.Text + akt_Namenkonvention = Me.NAMENKONVENTIONTextBox.Text + Refresh_DokartModule(GUIDTextBox.Text) + End If + + Me.TBPMO_FORM_VIEWTableAdapter.Fill(DD_DMSDataSet.TBPMO_FORM_VIEW) + Catch ex As Exception + MsgBox("Error in Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Refresh_DokID_FORM_VIEW() + Try + Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.Fill(DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPES, GUIDTextBox.Text) + Catch ex As Exception + MsgBox("Error in Refresh_DokID_FORM_VIEW:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Save_Dokart() + Try + Me.TBDD_DOKUMENTARTBindingSource.EndEdit() + If DD_DMSDataSet.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then + Me.GEANDERTWERTextBox.Text = Environment.UserName + Me.TBDD_DOKUMENTARTBindingSource.EndEdit() + Me.TBDD_DOKUMENTARTTableAdapter.Update(Me.DD_DMSDataSet.TBDD_DOKUMENTART) + If IsInsert = True Then + Dim DOCID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART WHERE BEZEICHNUNG = '" & BEZEICHNUNGTextBox.Text & "'", True) + If DOCID > 0 Then + Dim insert = "INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID, MODULE_ID) VALUES (" & DOCID & ", 0)" + If ClassDatabase.Execute_non_Query(insert, True) = True Then + Refresh_DokartModule(DOCID) + IsInsert = False + End If + End If + End If + Me.lblSaveDokart.Visible = True + Else + Me.lblSaveDokart.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save_Dokart:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Refresh_Dokart(All As Boolean) + Try + If All = False Then + If LogErrorsOnly = False Then ClassLogger.Add(">> Dokumentarten für RecordOrganizer werden geladen", False) + Me.TBDD_DOKUMENTARTTableAdapter.FillByPMO(Me.DD_DMSDataSet.TBDD_DOKUMENTART) + If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> Alle Dokumentarten werden geladen", False) + Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_DOKUMENTART) + End If + + Catch ex As Exception + MsgBox("Error in Refresh_Dokart:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Refresh_Indexe_Auto(DokTypeid As Integer) + Try + Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, DokTypeid) + Catch ex As Exception + MsgBox("Error in Refresh_Indexe_Auto:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Save_Indexe_Auto() + Try + Me.TBDD_INDEX_AUTOMBindingSource.EndEdit() + If DD_DMSDataSet.TBDD_INDEX_AUTOM.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBDD_INDEX_AUTOMBindingSource.EndEdit() + Me.TBDD_INDEX_AUTOMTableAdapter.Update(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM) + Me.lblSaveIndex.Visible = True + + Else + Me.lblSaveIndex.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save_Indexe_Auto:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Sub Refresh_Eingangsarten() + Try + Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_EINGANGSARTEN) + Catch ex As Exception + MsgBox("Error in Refresh_Eingangsarten:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew + Me.DD_DMSDataSet.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName + IsInsert = True + End Sub + + Private Sub TBDD_EINGANGSARTENBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EINGANGSARTENBindingSource.AddingNew + Me.DD_DMSDataSet.TBDD_EINGANGSARTEN.ERSTELLTWERColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub TBDD_INDEX_AUTOMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_AUTOMBindingSource.AddingNew + Me.DD_DMSDataSet.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName + Me.DD_DMSDataSet.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = GUIDTextBox.Text + load_Indices() + End Sub + + Private Sub btnZielpfad_Click(sender As Object, e As EventArgs) Handles btnZielpfad.Click + 'First create a FolderBrowserDialog object + Dim FolderBrowserDialog1 As New FolderBrowserDialog + ' Then use the following code to create the Dialog window + ' Change the .SelectedPath property to the default location + With FolderBrowserDialog1 + ' Desktop is the root folder in the dialog. + '.RootFolder = Environment.SpecialFolder.Desktop + ' Prompt the user with a custom message. + .Description = "Zielordner für Dokumentart wählen:" + If .ShowDialog = DialogResult.OK Then + Dim Path As String = .SelectedPath + ZIEL_PFADTextBox.Text = .SelectedPath + End If + End With + End Sub + + Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged + If ListBox1.SelectedIndex <> -1 Then + Refresh_Indexe_Auto(GUIDTextBox.Text) + akt_DokartID = GUIDTextBox.Text + akt_Namenkonvention = Me.NAMENKONVENTIONTextBox.Text + Refresh_DokID_FORM_VIEW() + Refresh_DokartModule(GUIDTextBox.Text) + End If + End Sub + Private Sub ObjektTypenEintragen() + Try + Dim oDokumentTyp As WINDREAMLib.WMObject + ' Combobox leeren + Me.OBJEKTTYPComboBox.Items.Clear() + ' alle Objekttypen durchlaufen + For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects + ' und in die Combobox eintragen + Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName) + Next + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") + End Try + + End Sub + + Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged + load_Indices() + End Sub + Sub load_Indices() + Try + If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then + Me.INDEXNAMEComboBox.Items.Clear() + Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text) + If indexe IsNot Nothing Then + For Each index As String In indexe + Me.INDEXNAMEComboBox.Items.Add(index) + Next + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei cmbDokumentTypen.SelectedIndexChanged: ") + End Try + End Sub + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click + Save_Indexe_Auto() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddDokart_Entity.Click + Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.cmdInsert(Me.ComboBox1.SelectedValue, Me.GUIDTextBox.Text, Me.OBJEKTTYPComboBox.Text, Environment.UserName) + Refresh_DokID_FORM_VIEW() + End Sub + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + Select Case XtraTabControl1.SelectedTabPageIndex + Case 1 + Refresh_DokID_FORM_VIEW() + Me.btnAddDokart_Entity.Text = "Entität zu Dokumentart ' " & Me.KURZNAMETextBox.Text & "' hinzufügen" + End Select + End Sub + + Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click + Save_Dokart() + Dim _temp As String + _temp = Me.NAMENKONVENTIONTextBox.Text + akt_Namenkonvention = _temp + akt_DokartID = GUIDTextBox.Text + frmDokumentart_NameConvention.ShowDialog() + Me.NAMENKONVENTIONTextBox.Text = akt_Namenkonvention + If _temp <> NAMENKONVENTIONTextBox.Text Then + Save_Dokart() + End If + End Sub + + Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click + + End Sub + + Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click + Dim i As Integer + i = TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.CurrentRow.Index + If TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Item(0, i).Value Is Nothing = False Then + TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.DeleteQuery(TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Item(0, i).Value) + Refresh_DokID_FORM_VIEW() + End If + End Sub + + Private Sub ToolStripButton15_Click(sender As Object, e As EventArgs) Handles ToolStripButton15.Click + Refresh_DokID_FORM_VIEW() + End Sub + + Private Sub TBDD_INDEX_AUTOMBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_AUTOMBindingSource.CurrentChanged + Me.lblSaveIndex.Visible = False + End Sub + + Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged + Me.lblSaveDokart.Visible = False + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click + Dim result As MsgBoxResult = MsgBox("Wollen Sie diese Dokumentart wirklich löschen?", MsgBoxStyle.YesNo, "Frage:") + If result = MsgBoxResult.Yes Then + Dim del As String = "DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = " & akt_DokartID + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & akt_DokartID + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_DOKUMENTART_MODULE WHERE DOKART_ID = " & akt_DokartID + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & akt_DokartID + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_DOKUMENTART WHERE GUID = " & akt_DokartID + If ClassDatabase.Execute_non_Query(del, True) = True Then + MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information) + Refresh_Dokart(False) + End If + End If + End If + End If + End If + End If + End Sub + + Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton16.Click + Refresh_Dokart(False) + End Sub + + Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs) Handles ToolStripButton17.Click + Refresh_Dokart(True) + End Sub + + Private Sub Refresh_DokartModule(dokart_id As Integer) + Try + Me.TBWH_DOKART_MODULETableAdapter.Fill(Me.DD_DMSDataSet.TBWH_DOKART_MODULE, dokart_id) + Catch ex As System.Exception + MsgBox("Error in Refresh_DokartModule:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + + End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + Try + TBWH_DOKART_MODULETableAdapter.InsertDokartModule(GUIDTextBox.Text) + Refresh_DokartModule(GUIDTextBox.Text) + Catch ex As Exception + MsgBox("Error in Add Dokart/Module:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb b/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb new file mode 100644 index 0000000..30396d6 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb @@ -0,0 +1,348 @@ + _ +Partial Class frmDokumentart_NameConvention + 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() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtnamenKonv = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.btnAddIndexA = New System.Windows.Forms.Button() + Me.btnAddIndexM = New System.Windows.Forms.Button() + Me.cmbIndex_A = New System.Windows.Forms.ComboBox() + Me.cmbIndex_m = New System.Windows.Forms.ComboBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.btnVersionTZ = New System.Windows.Forms.Button() + Me.btnTrennzeichen = New System.Windows.Forms.Button() + Me.btnVersion = New System.Windows.Forms.Button() + Me.btndelete = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.btnclose = New System.Windows.Forms.Button() + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.TBPMO_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_KONFIGURATIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_KONFIGURATIONTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_INDEX_AUTOMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.VERSION_DELIMITERTextBox = New System.Windows.Forms.TextBox() + Me.FILE_DELIMITERTextBox = New System.Windows.Forms.TextBox() + Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(9, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(438, 51) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Definieren Sie hier die Namenskonvention zur ausgewählten Dokumentart." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sie haben" & _ + " die Möglichkeit den Dateinamen aus den unten aufgeführten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Indizes und Textbaus" & _ + "teinen zusammenzustellen." + ' + 'txtnamenKonv + ' + Me.txtnamenKonv.Location = New System.Drawing.Point(12, 74) + Me.txtnamenKonv.Name = "txtnamenKonv" + Me.txtnamenKonv.Size = New System.Drawing.Size(401, 25) + Me.txtnamenKonv.TabIndex = 1 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.btnAddIndexA) + Me.GroupBox1.Controls.Add(Me.btnAddIndexM) + Me.GroupBox1.Controls.Add(Me.cmbIndex_A) + Me.GroupBox1.Controls.Add(Me.cmbIndex_m) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Location = New System.Drawing.Point(12, 114) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(237, 145) + Me.GroupBox1.TabIndex = 2 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Indexe zur Auswahl:" + ' + 'btnAddIndexA + ' + Me.btnAddIndexA.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddIndexA.Location = New System.Drawing.Point(197, 98) + Me.btnAddIndexA.Name = "btnAddIndexA" + Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23) + Me.btnAddIndexA.TabIndex = 5 + Me.btnAddIndexA.UseVisualStyleBackColor = True + ' + 'btnAddIndexM + ' + Me.btnAddIndexM.Enabled = False + Me.btnAddIndexM.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddIndexM.Location = New System.Drawing.Point(197, 50) + Me.btnAddIndexM.Name = "btnAddIndexM" + Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23) + Me.btnAddIndexM.TabIndex = 4 + Me.btnAddIndexM.UseVisualStyleBackColor = True + ' + 'cmbIndex_A + ' + Me.cmbIndex_A.DataSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.cmbIndex_A.DisplayMember = "INDEXNAME" + Me.cmbIndex_A.FormattingEnabled = True + Me.cmbIndex_A.Location = New System.Drawing.Point(19, 98) + Me.cmbIndex_A.Name = "cmbIndex_A" + Me.cmbIndex_A.Size = New System.Drawing.Size(172, 25) + Me.cmbIndex_A.TabIndex = 3 + Me.cmbIndex_A.ValueMember = "DOCTYPE_ID" + ' + 'cmbIndex_m + ' + Me.cmbIndex_m.DisplayMember = "DOKUMENTART_ID" + Me.cmbIndex_m.Enabled = False + Me.cmbIndex_m.FormattingEnabled = True + Me.cmbIndex_m.Location = New System.Drawing.Point(19, 50) + Me.cmbIndex_m.Name = "cmbIndex_m" + Me.cmbIndex_m.Size = New System.Drawing.Size(172, 25) + Me.cmbIndex_m.TabIndex = 2 + Me.cmbIndex_m.ValueMember = "DOKUMENTART_ID" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(16, 78) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(129, 17) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Automatischer Index:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Enabled = False + Me.Label2.Location = New System.Drawing.Point(16, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(104, 17) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Manueller Index:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.btnVersionTZ) + Me.GroupBox2.Controls.Add(Me.btnTrennzeichen) + Me.GroupBox2.Controls.Add(Me.btnVersion) + Me.GroupBox2.Location = New System.Drawing.Point(255, 114) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(192, 176) + Me.GroupBox2.TabIndex = 3 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Variablen:" + ' + 'btnVersionTZ + ' + Me.btnVersionTZ.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnVersionTZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVersionTZ.Location = New System.Drawing.Point(6, 115) + Me.btnVersionTZ.Name = "btnVersionTZ" + Me.btnVersionTZ.Size = New System.Drawing.Size(163, 43) + Me.btnVersionTZ.TabIndex = 7 + Me.btnVersionTZ.Text = "Versionstrennzeichen einfügen" + Me.btnVersionTZ.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVersionTZ.UseVisualStyleBackColor = True + ' + 'btnTrennzeichen + ' + Me.btnTrennzeichen.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnTrennzeichen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTrennzeichen.Location = New System.Drawing.Point(6, 66) + Me.btnTrennzeichen.Name = "btnTrennzeichen" + Me.btnTrennzeichen.Size = New System.Drawing.Size(163, 43) + Me.btnTrennzeichen.TabIndex = 6 + Me.btnTrennzeichen.Text = "Dateitrennzeichen einfügen" + Me.btnTrennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTrennzeichen.UseVisualStyleBackColor = True + ' + 'btnVersion + ' + Me.btnVersion.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnVersion.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVersion.Location = New System.Drawing.Point(6, 30) + Me.btnVersion.Name = "btnVersion" + Me.btnVersion.Size = New System.Drawing.Size(163, 29) + Me.btnVersion.TabIndex = 5 + Me.btnVersion.Text = "Versionstag einfügen" + Me.btnVersion.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVersion.UseVisualStyleBackColor = True + ' + 'btndelete + ' + Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndelete.Location = New System.Drawing.Point(419, 74) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(28, 25) + Me.btndelete.TabIndex = 4 + Me.btndelete.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnOK.Location = New System.Drawing.Point(270, 303) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(94, 36) + Me.btnOK.TabIndex = 5 + Me.btnOK.Text = "Speichern" + Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnOK.UseVisualStyleBackColor = True + ' + 'btnclose + ' + Me.btnclose.Location = New System.Drawing.Point(372, 303) + Me.btnclose.Name = "btnclose" + Me.btnclose.Size = New System.Drawing.Size(75, 36) + Me.btnclose.TabIndex = 6 + Me.btnclose.Text = "Abbruch" + Me.btnclose.UseVisualStyleBackColor = True + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMO_KONFIGURATIONBindingSource + ' + Me.TBPMO_KONFIGURATIONBindingSource.DataMember = "TBPMO_KONFIGURATION" + Me.TBPMO_KONFIGURATIONBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_KONFIGURATIONTableAdapter + ' + Me.TBPMO_KONFIGURATIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Me.TBPMO_KONFIGURATIONTableAdapter + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_INDEX_AUTOMTableAdapter + ' + Me.TBDD_INDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'VERSION_DELIMITERTextBox + ' + Me.VERSION_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.VERSION_DELIMITERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_KONFIGURATIONBindingSource, "VERSION_DELIMITER", True)) + Me.VERSION_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control + Me.VERSION_DELIMITERTextBox.Location = New System.Drawing.Point(31, 272) + Me.VERSION_DELIMITERTextBox.Name = "VERSION_DELIMITERTextBox" + Me.VERSION_DELIMITERTextBox.ReadOnly = True + Me.VERSION_DELIMITERTextBox.Size = New System.Drawing.Size(36, 18) + Me.VERSION_DELIMITERTextBox.TabIndex = 8 + ' + 'FILE_DELIMITERTextBox + ' + Me.FILE_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.FILE_DELIMITERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_KONFIGURATIONBindingSource, "FILE_DELIMITER", True)) + Me.FILE_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control + Me.FILE_DELIMITERTextBox.Location = New System.Drawing.Point(31, 303) + Me.FILE_DELIMITERTextBox.Name = "FILE_DELIMITERTextBox" + Me.FILE_DELIMITERTextBox.ReadOnly = True + Me.FILE_DELIMITERTextBox.Size = New System.Drawing.Size(36, 18) + Me.FILE_DELIMITERTextBox.TabIndex = 10 + ' + 'TBDD_INDEX_AUTOMBindingSource + ' + Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" + Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'frmDokumentart_namconvention + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(467, 345) + Me.ControlBox = False + Me.Controls.Add(Me.FILE_DELIMITERTextBox) + Me.Controls.Add(Me.VERSION_DELIMITERTextBox) + Me.Controls.Add(Me.btnclose) + Me.Controls.Add(Me.btnOK) + Me.Controls.Add(Me.btndelete) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.txtnamenKonv) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmDokumentart_namconvention" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Assistent zur Namenskonvention:" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtnamenKonv As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + + + + Friend WithEvents btnAddIndexM As System.Windows.Forms.Button + Friend WithEvents cmbIndex_A As System.Windows.Forms.ComboBox + Friend WithEvents cmbIndex_m As System.Windows.Forms.ComboBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents btnAddIndexA As System.Windows.Forms.Button + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents btnVersion As System.Windows.Forms.Button + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents btnclose As System.Windows.Forms.Button + Friend WithEvents btnTrennzeichen As System.Windows.Forms.Button + + Friend WithEvents btnVersionTZ As System.Windows.Forms.Button + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_KONFIGURATIONTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_KONFIGURATIONTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VERSION_DELIMITERTextBox As System.Windows.Forms.TextBox + Friend WithEvents FILE_DELIMITERTextBox As System.Windows.Forms.TextBox + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents TBDD_INDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.resx b/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.resx new file mode 100644 index 0000000..0858de0 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 871, 17 + + + 17, 17 + + + 17, 17 + + + 160, 17 + + + 432, 17 + + + 698, 17 + + + 17, 56 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.vb b/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.vb new file mode 100644 index 0000000..9b51fdc --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmDokumentart_NameConvention.vb @@ -0,0 +1,86 @@ +Public Class frmDokumentart_NameConvention + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click + If Not Me.cmbIndex_m.Text = "" Then + 'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version] + Dim text As String = "[%m" & Me.cmbIndex_m.Text.ToString.ToUpper & "]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End If + End Sub + + Private Sub btnAddIndexA_Click(sender As Object, e As EventArgs) Handles btnAddIndexA.Click + If Not Me.cmbIndex_A.Text = "" Then + 'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version] + Dim text As String = "[%a" & Me.cmbIndex_A.Text.ToString.ToUpper & "]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End If + End Sub + + Private Sub frmNamenkonvention_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + + End Sub + + Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_KONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen. + + Try + 'Me.TBINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_KONFIGURATION) + Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID) + 'Me.TBINDEX_MANTableAdapter.Fill(Me.DSDokumentart.TBINDEX_MAN, frmAdministration._aktDokID) + 'Me.TBINDEX_AUTOMTableAdapter.Fill(Me.DSDokumentart.TBINDEX_AUTOM, frmAdministration._aktDokID) + + txtnamenKonv.Text = frmDokumentart_Konfig.akt_Namenkonvention + Catch ex As Exception + MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click + + End Sub + + Private Sub btnVersion_Click(sender As Object, e As EventArgs) Handles btnVersion.Click + If txtnamenKonv.Text.Contains("[%Version]") Then + MsgBox("Versionstag ist bereits enthalten!", MsgBoxStyle.Exclamation) + Exit Sub + End If + Dim text As String = "[%Version]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + txtnamenKonv.Text = "" + End Sub + + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + frmDokumentart_Konfig.akt_Namenkonvention = txtnamenKonv.Text + Me.Close() + End Sub + + Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click + Me.Close() + End Sub + + Private Sub btnTrennzeichen_Click(sender As Object, e As EventArgs) Handles btnTrennzeichen.Click + Dim text As String = FILE_DELIMITERTextBox.Text + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End Sub + + Private Sub btnVersionTZ_Click(sender As Object, e As EventArgs) Handles btnVersionTZ.Click + Dim text As String = VERSION_DELIMITERTextBox.Text + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Constructor.designer.vb b/app - Kopie/DD-Record-Organiser/frmForm_Constructor.designer.vb new file mode 100644 index 0000000..b245cad --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Constructor.designer.vb @@ -0,0 +1,1343 @@ + _ +Partial Class frmForm_Constructor + 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 GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor)) + Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView() + Me.GridControlSelection = New DevExpress.XtraGrid.GridControl() + Me.grvwSelection = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.LayoutView1 = New DevExpress.XtraGrid.Views.Layout.LayoutView() + Me.GridControlParentEntity = New DevExpress.XtraGrid.GridControl() + Me.GridViewParentEntity = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.BindingSourceEntity = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tslblStatusMain = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslblEntity = New System.Windows.Forms.ToolStripStatusLabel() + Me.SplitContainerMain = New System.Windows.Forms.SplitContainer() + Me.SplitterLeft = New System.Windows.Forms.Splitter() + Me.TreeViewEbeneSelect = New System.Windows.Forms.TreeView() + Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.BindingNavigatorForm1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnOverviewRefresh = New System.Windows.Forms.ToolStripButton() + Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.ClearAllFiltersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CarouselToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TabelleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnsichtKomplettZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.tslblEntity1 = New System.Windows.Forms.ToolStripLabel() + Me.tslblEntity2 = New System.Windows.Forms.ToolStripLabel() + Me.tslblEntity3 = New System.Windows.Forms.ToolStripLabel() + Me.SplitCont_Details = New DevExpress.XtraEditors.SplitContainerControl() + Me.TCDetails = New DevExpress.XtraTab.XtraTabControl() + Me.TabPageDetails = New DevExpress.XtraTab.XtraTabPage() + Me.pnlDetails = New System.Windows.Forms.Panel() + Me.TabPageWD_Files = New DevExpress.XtraTab.XtraTabPage() + Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl() + Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip() + Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton() + Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPageFollowUp = New DevExpress.XtraTab.XtraTabPage() + Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox() + Me.lblWV_Date = New System.Windows.Forms.Label() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.ListBoxUser2Profile = New System.Windows.Forms.ListBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbWHUser = New System.Windows.Forms.ComboBox() + Me.btnAddUser_WV = New System.Windows.Forms.Button() + Me.btndelete = New System.Windows.Forms.Button() + Me.dtpWV = New System.Windows.Forms.DateTimePicker() + Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.lblFollowUp_save = New System.Windows.Forms.Label() + Me.chkFollowUp = New System.Windows.Forms.CheckBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.ListViewFollowUp = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.TabPageParentEntity = New DevExpress.XtraTab.XtraTabPage() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnRefreshPEntity = New System.Windows.Forms.Button() + Me.lblParentID = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.tsbtnAddForm2 = New System.Windows.Forms.ToolStripButton() + Me.tsbtnSaveForm2 = New System.Windows.Forms.ToolStripButton() + Me.TSDropDownButtonRecordFunctions = New System.Windows.Forms.ToolStripDropDownButton() + Me.WindreamSucheNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZeigeRecordLogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VorlageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VerknüpfungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.tsbtnshowTaskoverview = New System.Windows.Forms.ToolStripButton() + Me.tsbtnshowWorkflowtasks = New System.Windows.Forms.ToolStripButton() + Me.tsbtndeleteRecord = New System.Windows.Forms.ToolStripButton() + Me.StatusStrip2 = New System.Windows.Forms.StatusStrip() + Me.tserstellt_Details = New System.Windows.Forms.ToolStripStatusLabel() + Me.tsstatus_Detail = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslblactWFState = New System.Windows.Forms.ToolStripStatusLabel() + Me.BindingSourceForm2 = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingSourceForm3 = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingSourceForm4 = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingSourceForm5 = New System.Windows.Forms.BindingSource(Me.components) + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components) + Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() + Me.contextMenuCombo = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.StammdatenEditierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() + Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlParentEntity, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewParentEntity, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceEntity, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerMain.Panel1.SuspendLayout() + Me.SplitContainerMain.Panel2.SuspendLayout() + Me.SplitContainerMain.SuspendLayout() + Me.CMSEntity.SuspendLayout() + CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigatorForm1.SuspendLayout() + CType(Me.SplitCont_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitCont_Details.SuspendLayout() + CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TCDetails.SuspendLayout() + Me.TabPageDetails.SuspendLayout() + Me.TabPageWD_Files.SuspendLayout() + CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStripDokumente.SuspendLayout() + Me.TabPageFollowUp.SuspendLayout() + Me.grpbxFU_Profile.SuspendLayout() + Me.GroupBox3.SuspendLayout() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.TabPageParentEntity.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.StatusStrip2.SuspendLayout() + CType(Me.BindingSourceForm2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceForm3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceForm4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceForm5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.contextMenuCombo.SuspendLayout() + CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'grvwCarousel + ' + Me.grvwCarousel.GridControl = Me.GridControlSelection + Me.grvwCarousel.Name = "grvwCarousel" + Me.grvwCarousel.TemplateCard = Nothing + ' + 'GridControlSelection + ' + Me.GridControlSelection.AllowDrop = True + Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill + GridLevelNode1.LevelTemplate = Me.grvwCarousel + GridLevelNode1.RelationName = "Level1" + Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) + Me.GridControlSelection.Location = New System.Drawing.Point(298, 25) + Me.GridControlSelection.MainView = Me.grvwSelection + Me.GridControlSelection.Name = "GridControlSelection" + Me.GridControlSelection.Size = New System.Drawing.Size(927, 153) + Me.GridControlSelection.TabIndex = 13 + Me.GridControlSelection.TabStop = False + Me.GridControlSelection.UseEmbeddedNavigator = True + Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwSelection, Me.grvwCarousel}) + ' + 'grvwSelection + ' + Me.grvwSelection.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.grvwSelection.Appearance.EvenRow.Options.UseBackColor = True + Me.grvwSelection.Appearance.SelectedRow.BackColor = System.Drawing.Color.Salmon + Me.grvwSelection.Appearance.SelectedRow.BackColor2 = System.Drawing.Color.SeaShell + Me.grvwSelection.Appearance.SelectedRow.Options.UseBackColor = True + Me.grvwSelection.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.grvwSelection.GridControl = Me.GridControlSelection + Me.grvwSelection.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _ + "ssen" + Me.grvwSelection.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.grvwSelection.Name = "grvwSelection" + Me.grvwSelection.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.grvwSelection.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.grvwSelection.OptionsBehavior.Editable = False + Me.grvwSelection.OptionsBehavior.ReadOnly = True + Me.grvwSelection.OptionsView.ColumnAutoWidth = False + Me.grvwSelection.OptionsView.EnableAppearanceEvenRow = True + Me.grvwSelection.OptionsView.EnableAppearanceOddRow = True + Me.grvwSelection.OptionsView.ShowAutoFilterRow = True + ' + 'LayoutView1 + ' + Me.LayoutView1.GridControl = Me.GridControlParentEntity + Me.LayoutView1.Name = "LayoutView1" + Me.LayoutView1.TemplateCard = Nothing + ' + 'GridControlParentEntity + ' + Me.GridControlParentEntity.AllowDrop = True + Me.GridControlParentEntity.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + GridLevelNode2.LevelTemplate = Me.LayoutView1 + GridLevelNode2.RelationName = "Level1" + Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) + Me.GridControlParentEntity.Location = New System.Drawing.Point(3, 3) + Me.GridControlParentEntity.MainView = Me.GridViewParentEntity + Me.GridControlParentEntity.Name = "GridControlParentEntity" + Me.GridControlParentEntity.Size = New System.Drawing.Size(242, 259) + Me.GridControlParentEntity.TabIndex = 14 + Me.GridControlParentEntity.TabStop = False + Me.GridControlParentEntity.UseEmbeddedNavigator = True + Me.GridControlParentEntity.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewParentEntity, Me.LayoutView1}) + ' + 'GridViewParentEntity + ' + Me.GridViewParentEntity.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewParentEntity.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewParentEntity.Appearance.SelectedRow.BackColor = System.Drawing.Color.Salmon + Me.GridViewParentEntity.Appearance.SelectedRow.BackColor2 = System.Drawing.Color.SeaShell + Me.GridViewParentEntity.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewParentEntity.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.GridViewParentEntity.GridControl = Me.GridControlParentEntity + Me.GridViewParentEntity.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _ + "ssen" + Me.GridViewParentEntity.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.GridViewParentEntity.Name = "GridViewParentEntity" + Me.GridViewParentEntity.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewParentEntity.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewParentEntity.OptionsBehavior.Editable = False + Me.GridViewParentEntity.OptionsBehavior.ReadOnly = True + Me.GridViewParentEntity.OptionsView.ColumnAutoWidth = False + Me.GridViewParentEntity.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewParentEntity.OptionsView.EnableAppearanceOddRow = True + Me.GridViewParentEntity.OptionsView.ShowAutoFilterRow = True + ' + 'BindingSourceEntity + ' + Me.BindingSourceEntity.AllowNew = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatusMain, Me.tslblEntity}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 560) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1225, 24) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tslblStatusMain + ' + Me.tslblStatusMain.Image = CType(resources.GetObject("tslblStatusMain.Image"), System.Drawing.Image) + Me.tslblStatusMain.Name = "tslblStatusMain" + Me.tslblStatusMain.Size = New System.Drawing.Size(137, 19) + Me.tslblStatusMain.Text = "ToolStripStatusLabel1" + Me.tslblStatusMain.Visible = False + ' + 'tslblEntity + ' + Me.tslblEntity.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tslblEntity.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity.Name = "tslblEntity" + Me.tslblEntity.Size = New System.Drawing.Size(132, 19) + Me.tslblEntity.Text = "ToolStripStatusLabel1" + ' + 'SplitContainerMain + ' + Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerMain.Name = "SplitContainerMain" + Me.SplitContainerMain.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainerMain.Panel1 + ' + Me.SplitContainerMain.Panel1.Controls.Add(Me.GridControlSelection) + Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitterLeft) + Me.SplitContainerMain.Panel1.Controls.Add(Me.TreeViewEbeneSelect) + Me.SplitContainerMain.Panel1.Controls.Add(Me.BindingNavigatorForm1) + ' + 'SplitContainerMain.Panel2 + ' + Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitCont_Details) + Me.SplitContainerMain.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainerMain.Panel2.Controls.Add(Me.StatusStrip2) + Me.SplitContainerMain.Size = New System.Drawing.Size(1225, 560) + Me.SplitContainerMain.SplitterDistance = 178 + Me.SplitContainerMain.TabIndex = 1 + ' + 'SplitterLeft + ' + Me.SplitterLeft.BackColor = System.Drawing.SystemColors.InactiveCaption + Me.SplitterLeft.Location = New System.Drawing.Point(295, 25) + Me.SplitterLeft.Name = "SplitterLeft" + Me.SplitterLeft.Size = New System.Drawing.Size(3, 153) + Me.SplitterLeft.TabIndex = 12 + Me.SplitterLeft.TabStop = False + ' + 'TreeViewEbeneSelect + ' + Me.TreeViewEbeneSelect.AllowDrop = True + Me.TreeViewEbeneSelect.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.TreeViewEbeneSelect.ContextMenuStrip = Me.CMSEntity + Me.TreeViewEbeneSelect.Dock = System.Windows.Forms.DockStyle.Left + Me.TreeViewEbeneSelect.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TreeViewEbeneSelect.ImageIndex = 0 + Me.TreeViewEbeneSelect.ImageList = Me.ImageList1 + Me.TreeViewEbeneSelect.Location = New System.Drawing.Point(0, 25) + Me.TreeViewEbeneSelect.Name = "TreeViewEbeneSelect" + Me.TreeViewEbeneSelect.SelectedImageIndex = 1 + Me.TreeViewEbeneSelect.Size = New System.Drawing.Size(295, 153) + Me.TreeViewEbeneSelect.TabIndex = 9 + Me.TreeViewEbeneSelect.TabStop = False + Me.ttToolTip.SetToolTip(Me.TreeViewEbeneSelect, "Wählen Sie hier die zu filternde Entität (RechtsKlick für Zurücksetzen)") + ' + 'CMSEntity + ' + Me.CMSEntity.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ResetEbenenAuswahlToolStripMenuItem, Me.DateiimportEntitätToolStripMenuItem}) + Me.CMSEntity.Name = "ContextMenuStrip2" + Me.CMSEntity.Size = New System.Drawing.Size(195, 48) + ' + 'ResetEbenenAuswahlToolStripMenuItem + ' + Me.ResetEbenenAuswahlToolStripMenuItem.Name = "ResetEbenenAuswahlToolStripMenuItem" + Me.ResetEbenenAuswahlToolStripMenuItem.Size = New System.Drawing.Size(194, 22) + Me.ResetEbenenAuswahlToolStripMenuItem.Text = "Reset Ebenen-Auswahl" + ' + 'DateiimportEntitätToolStripMenuItem + ' + Me.DateiimportEntitätToolStripMenuItem.Image = CType(resources.GetObject("DateiimportEntitätToolStripMenuItem.Image"), System.Drawing.Image) + Me.DateiimportEntitätToolStripMenuItem.Name = "DateiimportEntitätToolStripMenuItem" + Me.DateiimportEntitätToolStripMenuItem.Size = New System.Drawing.Size(194, 22) + Me.DateiimportEntitätToolStripMenuItem.Text = "Dateiimport Entität" + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "medal_bronze_1.png") + Me.ImageList1.Images.SetKeyName(1, "medal_gold_2.png") + ' + 'BindingNavigatorForm1 + ' + Me.BindingNavigatorForm1.AddNewItem = Nothing + Me.BindingNavigatorForm1.BindingSource = Me.BindingSourceEntity + Me.BindingNavigatorForm1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigatorForm1.CountItemFormat = "von {0} Datensätzen" + Me.BindingNavigatorForm1.DeleteItem = Nothing + Me.BindingNavigatorForm1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnOverviewRefresh, Me.ToolStripDropDownButton1, Me.tslblEntity1, Me.tslblEntity2, Me.tslblEntity3}) + Me.BindingNavigatorForm1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigatorForm1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigatorForm1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigatorForm1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigatorForm1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigatorForm1.Name = "BindingNavigatorForm1" + Me.BindingNavigatorForm1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigatorForm1.Size = New System.Drawing.Size(1225, 25) + Me.BindingNavigatorForm1.TabIndex = 0 + Me.BindingNavigatorForm1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(111, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Datensätzen" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnOverviewRefresh + ' + Me.tsbtnOverviewRefresh.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tsbtnOverviewRefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnOverviewRefresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnOverviewRefresh.Name = "tsbtnOverviewRefresh" + Me.tsbtnOverviewRefresh.Size = New System.Drawing.Size(160, 22) + Me.tsbtnOverviewRefresh.Text = "Datensätze aktualisieren" + ' + 'ToolStripDropDownButton1 + ' + Me.ToolStripDropDownButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClearAllFiltersToolStripMenuItem, Me.ExportNachExcelToolStripMenuItem, Me.AnsichtUmschaltenToolStripMenuItem, Me.AnsichtKomplettZurücksetzenToolStripMenuItem}) + Me.ToolStripDropDownButton1.Image = CType(resources.GetObject("ToolStripDropDownButton1.Image"), System.Drawing.Image) + Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" + Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(145, 22) + Me.ToolStripDropDownButton1.Text = "Funktionen DataGrid" + ' + 'ClearAllFiltersToolStripMenuItem + ' + Me.ClearAllFiltersToolStripMenuItem.Image = CType(resources.GetObject("ClearAllFiltersToolStripMenuItem.Image"), System.Drawing.Image) + Me.ClearAllFiltersToolStripMenuItem.Name = "ClearAllFiltersToolStripMenuItem" + Me.ClearAllFiltersToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.ClearAllFiltersToolStripMenuItem.Text = "Alle Filter entfernen" + ' + 'ExportNachExcelToolStripMenuItem + ' + Me.ExportNachExcelToolStripMenuItem.Image = CType(resources.GetObject("ExportNachExcelToolStripMenuItem.Image"), System.Drawing.Image) + Me.ExportNachExcelToolStripMenuItem.Name = "ExportNachExcelToolStripMenuItem" + Me.ExportNachExcelToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.ExportNachExcelToolStripMenuItem.Text = "Export nach Excel" + ' + 'AnsichtUmschaltenToolStripMenuItem + ' + Me.AnsichtUmschaltenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CarouselToolStripMenuItem, Me.TabelleToolStripMenuItem}) + Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem" + Me.AnsichtUmschaltenToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.AnsichtUmschaltenToolStripMenuItem.Text = "Ansicht umschalten" + ' + 'CarouselToolStripMenuItem + ' + Me.CarouselToolStripMenuItem.Name = "CarouselToolStripMenuItem" + Me.CarouselToolStripMenuItem.Size = New System.Drawing.Size(120, 22) + Me.CarouselToolStripMenuItem.Text = "Carousel" + ' + 'TabelleToolStripMenuItem + ' + Me.TabelleToolStripMenuItem.Name = "TabelleToolStripMenuItem" + Me.TabelleToolStripMenuItem.Size = New System.Drawing.Size(120, 22) + Me.TabelleToolStripMenuItem.Text = "Tabelle" + ' + 'AnsichtKomplettZurücksetzenToolStripMenuItem + ' + Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Name = "AnsichtKomplettZurücksetzenToolStripMenuItem" + Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Text = "Ansicht komplett zurücksetzen" + ' + 'tslblEntity1 + ' + Me.tslblEntity1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity1.ForeColor = System.Drawing.Color.Fuchsia + Me.tslblEntity1.Image = CType(resources.GetObject("tslblEntity1.Image"), System.Drawing.Image) + Me.tslblEntity1.Name = "tslblEntity1" + Me.tslblEntity1.Size = New System.Drawing.Size(109, 22) + Me.tslblEntity1.Text = "ToolStripLabel1" + Me.tslblEntity1.Visible = False + ' + 'tslblEntity2 + ' + Me.tslblEntity2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.tslblEntity2.Image = CType(resources.GetObject("tslblEntity2.Image"), System.Drawing.Image) + Me.tslblEntity2.Name = "tslblEntity2" + Me.tslblEntity2.Size = New System.Drawing.Size(109, 22) + Me.tslblEntity2.Text = "ToolStripLabel1" + Me.tslblEntity2.Visible = False + ' + 'tslblEntity3 + ' + Me.tslblEntity3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity3.ForeColor = System.Drawing.Color.Purple + Me.tslblEntity3.Image = CType(resources.GetObject("tslblEntity3.Image"), System.Drawing.Image) + Me.tslblEntity3.Name = "tslblEntity3" + Me.tslblEntity3.Size = New System.Drawing.Size(109, 22) + Me.tslblEntity3.Text = "ToolStripLabel1" + Me.tslblEntity3.Visible = False + ' + 'SplitCont_Details + ' + Me.SplitCont_Details.AllowDrop = True + Me.SplitCont_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.SplitCont_Details.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitCont_Details.DataBindings.Add(New System.Windows.Forms.Binding("SplitterPosition", Global.DD_Record_Organiser.My.MySettings.Default, "Constructor_DetailsSplitter", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SplitCont_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitCont_Details.Location = New System.Drawing.Point(0, 25) + Me.SplitCont_Details.Name = "SplitCont_Details" + Me.SplitCont_Details.Panel1.Controls.Add(Me.TCDetails) + Me.SplitCont_Details.Panel1.Text = "Panel1" + Me.SplitCont_Details.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitCont_Details.Panel2.Text = "Panel2" + Me.SplitCont_Details.Size = New System.Drawing.Size(1225, 329) + Me.SplitCont_Details.SplitterPosition = Global.DD_Record_Organiser.My.MySettings.Default.Constructor_DetailsSplitter + Me.SplitCont_Details.TabIndex = 2 + Me.SplitCont_Details.Text = "SplitContainerControl1" + ' + 'TCDetails + ' + Me.TCDetails.AllowDrop = True + Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Magenta + Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.TCDetails.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.TCDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.TCDetails.Location = New System.Drawing.Point(0, 0) + Me.TCDetails.Name = "TCDetails" + Me.TCDetails.SelectedTabPage = Me.TabPageDetails + Me.TCDetails.ShowHeaderFocus = DevExpress.Utils.DefaultBoolean.[False] + Me.TCDetails.Size = New System.Drawing.Size(764, 325) + Me.TCDetails.TabIndex = 19 + Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageDetails, Me.TabPageWD_Files, Me.TabPageFollowUp}) + ' + 'TabPageDetails + ' + Me.TabPageDetails.Controls.Add(Me.pnlDetails) + Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD + Me.TabPageDetails.Name = "TabPageDetails" + Me.TabPageDetails.Size = New System.Drawing.Size(758, 294) + Me.TabPageDetails.Text = "Detailansicht:" + ' + 'pnlDetails + ' + Me.pnlDetails.AllowDrop = True + Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlDetails.Location = New System.Drawing.Point(0, 0) + Me.pnlDetails.Name = "pnlDetails" + Me.pnlDetails.Size = New System.Drawing.Size(758, 294) + Me.pnlDetails.TabIndex = 0 + ' + 'TabPageWD_Files + ' + Me.TabPageWD_Files.Controls.Add(Me.AxObjectListControl) + Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente) + Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 + Me.TabPageWD_Files.Name = "TabPageWD_Files" + Me.TabPageWD_Files.Size = New System.Drawing.Size(758, 293) + Me.TabPageWD_Files.Text = "windream-Dateien" + Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an") + ' + 'AxObjectListControl + ' + Me.AxObjectListControl.AllowDrop = True + Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill + Me.AxObjectListControl.Enabled = True + Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25) + Me.AxObjectListControl.Name = "AxObjectListControl" + Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State) + Me.AxObjectListControl.Size = New System.Drawing.Size(758, 268) + Me.AxObjectListControl.TabIndex = 5 + Me.AxObjectListControl.TabStop = False + ' + 'ToolStripDokumente + ' + Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2}) + Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0) + Me.ToolStripDokumente.Name = "ToolStripDokumente" + Me.ToolStripDokumente.Size = New System.Drawing.Size(758, 25) + Me.ToolStripDokumente.TabIndex = 1 + Me.ToolStripDokumente.Text = "ToolStrip2" + ' + 'tslblWindreamView + ' + Me.tslblWindreamView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblWindreamView.Name = "tslblWindreamView" + Me.tslblWindreamView.Size = New System.Drawing.Size(126, 22) + Me.tslblWindreamView.Text = "Windream-Dokumente" + ' + 'ToolStripDropDownButton2 + ' + Me.ToolStripDropDownButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem}) + Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image) + Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2" + Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(210, 22) + Me.ToolStripDropDownButton2.Text = "Konfiguration windream-Ansicht" + ' + 'KonfigurationToolStripMenuItem + ' + Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" + Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.KonfigurationToolStripMenuItem.Text = "Konfiguration User" + ' + 'TabPageFollowUp + ' + Me.TabPageFollowUp.Controls.Add(Me.grpbxFU_Profile) + Me.TabPageFollowUp.Controls.Add(Me.Label1) + Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp) + Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD + Me.TabPageFollowUp.Name = "TabPageFollowUp" + Me.TabPageFollowUp.Size = New System.Drawing.Size(758, 293) + Me.TabPageFollowUp.Text = "Wiedervorlage" + ' + 'grpbxFU_Profile + ' + Me.grpbxFU_Profile.Controls.Add(Me.lblWV_Date) + Me.grpbxFU_Profile.Controls.Add(Me.GroupBox3) + Me.grpbxFU_Profile.Controls.Add(Me.dtpWV) + Me.grpbxFU_Profile.Controls.Add(Me.lblFollowUp_save) + Me.grpbxFU_Profile.Controls.Add(Me.chkFollowUp) + Me.grpbxFU_Profile.Enabled = False + Me.grpbxFU_Profile.Location = New System.Drawing.Point(365, 28) + Me.grpbxFU_Profile.Name = "grpbxFU_Profile" + Me.grpbxFU_Profile.Size = New System.Drawing.Size(691, 254) + Me.grpbxFU_Profile.TabIndex = 105 + Me.grpbxFU_Profile.TabStop = False + ' + 'lblWV_Date + ' + Me.lblWV_Date.AutoSize = True + Me.lblWV_Date.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWV_Date.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.lblWV_Date.Location = New System.Drawing.Point(6, 18) + Me.lblWV_Date.Name = "lblWV_Date" + Me.lblWV_Date.Size = New System.Drawing.Size(41, 13) + Me.lblWV_Date.TabIndex = 23 + Me.lblWV_Date.Text = "Label2" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label3) + Me.GroupBox3.Controls.Add(Me.Label2) + Me.GroupBox3.Controls.Add(Me.ListBoxUser2Profile) + Me.GroupBox3.Controls.Add(Me.Label5) + Me.GroupBox3.Controls.Add(Me.cmbWHUser) + Me.GroupBox3.Controls.Add(Me.btnAddUser_WV) + Me.GroupBox3.Controls.Add(Me.btndelete) + Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(240, 18) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(445, 207) + Me.GroupBox3.TabIndex = 104 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Individuelle Empfänger für diesen Datensatz:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(190, 51) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(65, 13) + Me.Label3.TabIndex = 94 + Me.Label3.Text = "Email-User:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(7, 22) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(371, 13) + Me.Label2.TabIndex = 93 + Me.Label2.Text = "Achtung: Diese Liste übersteuert die zentral konfigurierte Empfängerliste!" + ' + 'ListBoxUser2Profile + ' + Me.ListBoxUser2Profile.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBoxUser2Profile.FormattingEnabled = True + Me.ListBoxUser2Profile.Location = New System.Drawing.Point(6, 51) + Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" + Me.ListBoxUser2Profile.Size = New System.Drawing.Size(181, 134) + Me.ListBoxUser2Profile.TabIndex = 80 + Me.ListBoxUser2Profile.TabStop = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(213, 21) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(92, 13) + Me.Label5.TabIndex = 91 + Me.Label5.Text = "User auswählen:" + ' + 'cmbWHUser + ' + Me.cmbWHUser.DisplayMember = "FORM_TITLE" + Me.cmbWHUser.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbWHUser.FormattingEnabled = True + Me.cmbWHUser.Location = New System.Drawing.Point(193, 67) + Me.cmbWHUser.Name = "cmbWHUser" + Me.cmbWHUser.Size = New System.Drawing.Size(234, 21) + Me.cmbWHUser.TabIndex = 89 + Me.cmbWHUser.TabStop = False + Me.cmbWHUser.ValueMember = "GUID" + ' + 'btnAddUser_WV + ' + Me.btnAddUser_WV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddUser_WV.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUser_WV.Location = New System.Drawing.Point(193, 94) + Me.btnAddUser_WV.Name = "btnAddUser_WV" + Me.btnAddUser_WV.Size = New System.Drawing.Size(234, 23) + Me.btnAddUser_WV.TabIndex = 90 + Me.btnAddUser_WV.TabStop = False + Me.btnAddUser_WV.Text = "User zu Wiedervorlage hinzufügen:" + Me.btnAddUser_WV.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUser_WV.UseVisualStyleBackColor = False + ' + 'btndelete + ' + Me.btndelete.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndelete.Image = CType(resources.GetObject("btndelete.Image"), System.Drawing.Image) + Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndelete.Location = New System.Drawing.Point(193, 123) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(234, 23) + Me.btndelete.TabIndex = 92 + Me.btndelete.TabStop = False + Me.btndelete.Text = "Userzuordnung löschen" + Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndelete.UseVisualStyleBackColor = True + ' + 'dtpWV + ' + Me.dtpWV.CalendarFont = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpWV.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TASK_DATE", True)) + Me.dtpWV.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpWV.Location = New System.Drawing.Point(9, 34) + Me.dtpWV.Name = "dtpWV" + Me.dtpWV.Size = New System.Drawing.Size(96, 21) + Me.dtpWV.TabIndex = 22 + ' + 'VWPMO_WF_USER_ACTIVEBindingSource + ' + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lblFollowUp_save + ' + Me.lblFollowUp_save.AutoSize = True + Me.lblFollowUp_save.BackColor = System.Drawing.Color.LawnGreen + Me.lblFollowUp_save.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFollowUp_save.Location = New System.Drawing.Point(11, 88) + Me.lblFollowUp_save.Name = "lblFollowUp_save" + Me.lblFollowUp_save.Size = New System.Drawing.Size(131, 13) + Me.lblFollowUp_save.TabIndex = 24 + Me.lblFollowUp_save.Text = "Wiedervorlage gespeichert" + Me.lblFollowUp_save.Visible = False + ' + 'chkFollowUp + ' + Me.chkFollowUp.AutoSize = True + Me.chkFollowUp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkFollowUp.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.chkFollowUp.Location = New System.Drawing.Point(9, 65) + Me.chkFollowUp.Name = "chkFollowUp" + Me.chkFollowUp.Size = New System.Drawing.Size(109, 17) + Me.chkFollowUp.TabIndex = 26 + Me.chkFollowUp.Text = "Undo CheckBox" + Me.chkFollowUp.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(11, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(143, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Hinterlegte Wiedervorlagen:" + ' + 'ListViewFollowUp + ' + Me.ListViewFollowUp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ListViewFollowUp.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) + Me.ListViewFollowUp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListViewFollowUp.FullRowSelect = True + Me.ListViewFollowUp.HideSelection = False + Me.ListViewFollowUp.Location = New System.Drawing.Point(11, 28) + Me.ListViewFollowUp.MultiSelect = False + Me.ListViewFollowUp.Name = "ListViewFollowUp" + Me.ListViewFollowUp.Size = New System.Drawing.Size(345, 258) + Me.ListViewFollowUp.TabIndex = 0 + Me.ListViewFollowUp.UseCompatibleStateImageBehavior = False + Me.ListViewFollowUp.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "ID" + Me.ColumnHeader1.Width = 40 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Wiedervorlagetitel" + Me.ColumnHeader2.Width = 280 + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Appearance.BackColor = System.Drawing.Color.DarkOrange + Me.XtraTabControl1.Appearance.Options.UseBackColor = True + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity + Me.XtraTabControl1.Size = New System.Drawing.Size(452, 325) + Me.XtraTabControl1.TabIndex = 0 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity}) + ' + 'TabPageParentEntity + ' + Me.TabPageParentEntity.Appearance.PageClient.BackColor = System.Drawing.SystemColors.ActiveCaptionText + Me.TabPageParentEntity.Appearance.PageClient.Options.UseBackColor = True + Me.TabPageParentEntity.Controls.Add(Me.Button1) + Me.TabPageParentEntity.Controls.Add(Me.btnRefreshPEntity) + Me.TabPageParentEntity.Controls.Add(Me.lblParentID) + Me.TabPageParentEntity.Controls.Add(Me.Label4) + Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity) + Me.TabPageParentEntity.Name = "TabPageParentEntity" + Me.TabPageParentEntity.Size = New System.Drawing.Size(446, 297) + Me.TabPageParentEntity.Text = "Parent-Entity" + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.Close_16xLG + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(340, 235) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(98, 27) + Me.Button1.TabIndex = 18 + Me.Button1.Text = "Schließen" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnRefreshPEntity + ' + Me.btnRefreshPEntity.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnRefreshPEntity.BackColor = System.Drawing.SystemColors.Control + Me.btnRefreshPEntity.FlatAppearance.BorderColor = System.Drawing.Color.DarkOrange + Me.btnRefreshPEntity.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnRefreshPEntity.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnRefreshPEntity.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRefreshPEntity.Location = New System.Drawing.Point(3, 270) + Me.btnRefreshPEntity.Name = "btnRefreshPEntity" + Me.btnRefreshPEntity.Size = New System.Drawing.Size(435, 31) + Me.btnRefreshPEntity.TabIndex = 17 + Me.btnRefreshPEntity.Text = "Parent-Datensatz aktualisieren" + Me.btnRefreshPEntity.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRefreshPEntity.UseVisualStyleBackColor = False + ' + 'lblParentID + ' + Me.lblParentID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblParentID.AutoSize = True + Me.lblParentID.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblParentID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.lblParentID.Location = New System.Drawing.Point(251, 38) + Me.lblParentID.Name = "lblParentID" + Me.lblParentID.Size = New System.Drawing.Size(168, 16) + Me.lblParentID.TabIndex = 16 + Me.lblParentID.Text = "Keine Auswahl getroffen" + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(251, 12) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(160, 16) + Me.Label4.TabIndex = 15 + Me.Label4.Text = "Aktueller Parent-Datensatz" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnAddForm2, Me.tsbtnSaveForm2, Me.TSDropDownButtonRecordFunctions, Me.tsbtnshowTaskoverview, Me.tsbtnshowWorkflowtasks, Me.tsbtndeleteRecord}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System + Me.ToolStrip1.Size = New System.Drawing.Size(1225, 25) + Me.ToolStrip1.TabIndex = 0 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'tsbtnAddForm2 + ' + Me.tsbtnAddForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.tsbtnAddForm2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnAddForm2.Name = "tsbtnAddForm2" + Me.tsbtnAddForm2.Size = New System.Drawing.Size(89, 22) + Me.tsbtnAddForm2.Text = "Hinzufügen" + ' + 'tsbtnSaveForm2 + ' + Me.tsbtnSaveForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG1 + Me.tsbtnSaveForm2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnSaveForm2.Name = "tsbtnSaveForm2" + Me.tsbtnSaveForm2.Size = New System.Drawing.Size(79, 22) + Me.tsbtnSaveForm2.Text = "Speichern" + ' + 'TSDropDownButtonRecordFunctions + ' + Me.TSDropDownButtonRecordFunctions.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.TSDropDownButtonRecordFunctions.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WindreamSucheNeuLadenToolStripMenuItem, Me.WorkflowTasksAnneuErzeugenToolStripMenuItem, Me.ZeigeRecordLogsToolStripMenuItem, Me.VorlageToolStripMenuItem, Me.VerknüpfungenToolStripMenuItem}) + Me.TSDropDownButtonRecordFunctions.Image = CType(resources.GetObject("TSDropDownButtonRecordFunctions.Image"), System.Drawing.Image) + Me.TSDropDownButtonRecordFunctions.ImageTransparentColor = System.Drawing.Color.Magenta + Me.TSDropDownButtonRecordFunctions.Name = "TSDropDownButtonRecordFunctions" + Me.TSDropDownButtonRecordFunctions.Size = New System.Drawing.Size(138, 22) + Me.TSDropDownButtonRecordFunctions.Text = "Record-Funktionen" + ' + 'WindreamSucheNeuLadenToolStripMenuItem + ' + Me.WindreamSucheNeuLadenToolStripMenuItem.Image = CType(resources.GetObject("WindreamSucheNeuLadenToolStripMenuItem.Image"), System.Drawing.Image) + Me.WindreamSucheNeuLadenToolStripMenuItem.Name = "WindreamSucheNeuLadenToolStripMenuItem" + Me.WindreamSucheNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.WindreamSucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden" + ' + 'WorkflowTasksAnneuErzeugenToolStripMenuItem + ' + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Image = CType(resources.GetObject("WorkflowTasksAnneuErzeugenToolStripMenuItem.Image"), System.Drawing.Image) + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Name = "WorkflowTasksAnneuErzeugenToolStripMenuItem" + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Text = "WorkflowTasks neu erzeugen" + ' + 'ZeigeRecordLogsToolStripMenuItem + ' + Me.ZeigeRecordLogsToolStripMenuItem.Enabled = False + Me.ZeigeRecordLogsToolStripMenuItem.Image = CType(resources.GetObject("ZeigeRecordLogsToolStripMenuItem.Image"), System.Drawing.Image) + Me.ZeigeRecordLogsToolStripMenuItem.Name = "ZeigeRecordLogsToolStripMenuItem" + Me.ZeigeRecordLogsToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.ZeigeRecordLogsToolStripMenuItem.Text = "Zeige Record-Logs" + ' + 'VorlageToolStripMenuItem + ' + Me.VorlageToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_white_office + Me.VorlageToolStripMenuItem.Name = "VorlageToolStripMenuItem" + Me.VorlageToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.VorlageToolStripMenuItem.Text = "Office-Vorlagen" + ' + 'VerknüpfungenToolStripMenuItem + ' + Me.VerknüpfungenToolStripMenuItem.Enabled = False + Me.VerknüpfungenToolStripMenuItem.Name = "VerknüpfungenToolStripMenuItem" + Me.VerknüpfungenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.VerknüpfungenToolStripMenuItem.Text = "Verknüpfungen anzeigen" + ' + 'tsbtnshowTaskoverview + ' + Me.tsbtnshowTaskoverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsbtnshowTaskoverview.Enabled = False + Me.tsbtnshowTaskoverview.Image = CType(resources.GetObject("tsbtnshowTaskoverview.Image"), System.Drawing.Image) + Me.tsbtnshowTaskoverview.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnshowTaskoverview.Name = "tsbtnshowTaskoverview" + Me.tsbtnshowTaskoverview.Size = New System.Drawing.Size(106, 22) + Me.tsbtnshowTaskoverview.Text = "Task-Übersicht" + Me.tsbtnshowTaskoverview.ToolTipText = "Show all Tasks" + ' + 'tsbtnshowWorkflowtasks + ' + Me.tsbtnshowWorkflowtasks.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsbtnshowWorkflowtasks.Enabled = False + Me.tsbtnshowWorkflowtasks.Image = CType(resources.GetObject("tsbtnshowWorkflowtasks.Image"), System.Drawing.Image) + Me.tsbtnshowWorkflowtasks.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbtnshowWorkflowtasks.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnshowWorkflowtasks.Name = "tsbtnshowWorkflowtasks" + Me.tsbtnshowWorkflowtasks.Size = New System.Drawing.Size(122, 22) + Me.tsbtnshowWorkflowtasks.Text = "Taskmanagement" + Me.tsbtnshowWorkflowtasks.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tsbtndeleteRecord + ' + Me.tsbtndeleteRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Delete1 + Me.tsbtndeleteRecord.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtndeleteRecord.Name = "tsbtndeleteRecord" + Me.tsbtndeleteRecord.Size = New System.Drawing.Size(71, 22) + Me.tsbtndeleteRecord.Text = "Löschen" + ' + 'StatusStrip2 + ' + Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Details, Me.tsstatus_Detail, Me.tslblactWFState}) + Me.StatusStrip2.Location = New System.Drawing.Point(0, 354) + Me.StatusStrip2.Name = "StatusStrip2" + Me.StatusStrip2.Size = New System.Drawing.Size(1225, 24) + Me.StatusStrip2.TabIndex = 1 + Me.StatusStrip2.Text = "StatusStrip2" + ' + 'tserstellt_Details + ' + Me.tserstellt_Details.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tserstellt_Details.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tserstellt_Details.Name = "tserstellt_Details" + Me.tserstellt_Details.Size = New System.Drawing.Size(124, 19) + Me.tserstellt_Details.Text = "ToolStripStatusLabel1" + ' + 'tsstatus_Detail + ' + Me.tsstatus_Detail.BackColor = System.Drawing.Color.LightBlue + Me.tsstatus_Detail.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tsstatus_Detail.Image = CType(resources.GetObject("tsstatus_Detail.Image"), System.Drawing.Image) + Me.tsstatus_Detail.Name = "tsstatus_Detail" + Me.tsstatus_Detail.Size = New System.Drawing.Size(141, 20) + Me.tsstatus_Detail.Text = "ToolStripStatusLabel1" + Me.tsstatus_Detail.Visible = False + ' + 'tslblactWFState + ' + Me.tslblactWFState.Image = CType(resources.GetObject("tslblactWFState.Image"), System.Drawing.Image) + Me.tslblactWFState.Name = "tslblactWFState" + Me.tslblactWFState.Size = New System.Drawing.Size(137, 19) + Me.tslblactWFState.Text = "ToolStripStatusLabel1" + Me.tslblactWFState.Visible = False + ' + 'BindingSourceForm2 + ' + Me.BindingSourceForm2.AllowNew = False + ' + 'BindingSourceForm3 + ' + Me.BindingSourceForm3.AllowNew = False + ' + 'BindingSourceForm4 + ' + Me.BindingSourceForm4.AllowNew = False + ' + 'BindingSourceForm5 + ' + Me.BindingSourceForm5.AllowNew = False + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'VWPMO_WF_USER_ACTIVETableAdapter + ' + Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True + ' + 'contextMenuCombo + ' + Me.contextMenuCombo.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammdatenEditierenToolStripMenuItem}) + Me.contextMenuCombo.Name = "ContextMenuStrip1" + Me.contextMenuCombo.Size = New System.Drawing.Size(192, 26) + ' + 'StammdatenEditierenToolStripMenuItem + ' + Me.StammdatenEditierenToolStripMenuItem.Name = "StammdatenEditierenToolStripMenuItem" + Me.StammdatenEditierenToolStripMenuItem.Size = New System.Drawing.Size(191, 22) + Me.StammdatenEditierenToolStripMenuItem.Text = "Stammdaten editieren" + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'TBPMO_FILES_USERBindingSource + ' + Me.TBPMO_FILES_USERBindingSource.DataMember = "TBPMO_FILES_USER" + Me.TBPMO_FILES_USERBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_FILES_USERTableAdapter + ' + Me.TBPMO_FILES_USERTableAdapter.ClearBeforeFill = True + ' + 'VWPMO_WF_ACTIVEBindingSource + ' + Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE" + Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'VWPMO_WF_ACTIVETableAdapter + ' + Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True + ' + 'frmForm_Constructor + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(1225, 584) + Me.Controls.Add(Me.SplitContainerMain) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmForm_Constructor" + Me.Text = "frmForm_Constructor" + CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlParentEntity, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewParentEntity, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceEntity, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.SplitContainerMain.Panel1.ResumeLayout(False) + Me.SplitContainerMain.Panel1.PerformLayout() + Me.SplitContainerMain.Panel2.ResumeLayout(False) + Me.SplitContainerMain.Panel2.PerformLayout() + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerMain.ResumeLayout(False) + Me.CMSEntity.ResumeLayout(False) + CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigatorForm1.ResumeLayout(False) + Me.BindingNavigatorForm1.PerformLayout() + CType(Me.SplitCont_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitCont_Details.ResumeLayout(False) + CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit() + Me.TCDetails.ResumeLayout(False) + Me.TabPageDetails.ResumeLayout(False) + Me.TabPageWD_Files.ResumeLayout(False) + Me.TabPageWD_Files.PerformLayout() + CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripDokumente.ResumeLayout(False) + Me.ToolStripDokumente.PerformLayout() + Me.TabPageFollowUp.ResumeLayout(False) + Me.TabPageFollowUp.PerformLayout() + Me.grpbxFU_Profile.ResumeLayout(False) + Me.grpbxFU_Profile.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.TabPageParentEntity.ResumeLayout(False) + Me.TabPageParentEntity.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.StatusStrip2.ResumeLayout(False) + Me.StatusStrip2.PerformLayout() + CType(Me.BindingSourceForm2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceForm3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceForm4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceForm5, System.ComponentModel.ISupportInitialize).EndInit() + Me.contextMenuCombo.ResumeLayout(False) + CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer + Friend WithEvents BindingNavigatorForm1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingSourceEntity As System.Windows.Forms.BindingSource + Friend WithEvents BindingSourceForm2 As System.Windows.Forms.BindingSource + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip + Friend WithEvents tsstatus_Detail As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStripDokumente As System.Windows.Forms.ToolStrip + Friend WithEvents AxObjectListControl As AxOBJECTLISTCONTROLLib.AxObjectListControl + Friend WithEvents tsbtnAddForm2 As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbtndeleteRecord As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbtnSaveForm2 As System.Windows.Forms.ToolStripButton + Friend WithEvents tslblWindreamView As System.Windows.Forms.ToolStripLabel + Friend WithEvents tsbtnshowWorkflowtasks As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbtnOverviewRefresh As System.Windows.Forms.ToolStripButton + Friend WithEvents ttToolTip As System.Windows.Forms.ToolTip + Friend WithEvents tsbtnshowTaskoverview As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingSourceForm3 As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter + Friend WithEvents contextMenuCombo As System.Windows.Forms.ContextMenuStrip + Friend WithEvents StammdatenEditierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BindingSourceForm4 As System.Windows.Forms.BindingSource + Friend WithEvents BindingSourceForm5 As System.Windows.Forms.BindingSource + Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents tslblStatusMain As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ClearAllFiltersToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Friend WithEvents TreeViewEbeneSelect As System.Windows.Forms.TreeView + Friend WithEvents tserstellt_Details As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents SplitterLeft As System.Windows.Forms.Splitter + Friend WithEvents CMSEntity As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ResetEbenenAuswahlToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ExportNachExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog + Friend WithEvents TSDropDownButtonRecordFunctions As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents WindreamSucheNeuLadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AnsichtKomplettZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DateiimportEntitätToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl + Friend WithEvents grvwSelection As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents ToolStripDropDownButton2 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents KonfigurationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TBPMO_FILES_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FILES_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter + Friend WithEvents tslblactWFState As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents WorkflowTasksAnneuErzeugenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView + Friend WithEvents AnsichtUmschaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CarouselToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TabelleToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents tslblEntity1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tslblEntity2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tslblEntity3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tslblEntity As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ZeigeRecordLogsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents VorlageToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TCDetails As DevExpress.XtraTab.XtraTabControl + Friend WithEvents TabPageDetails As DevExpress.XtraTab.XtraTabPage + Friend WithEvents pnlDetails As System.Windows.Forms.Panel + Friend WithEvents TabPageWD_Files As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TabPageFollowUp As DevExpress.XtraTab.XtraTabPage + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents ListViewFollowUp As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents lblWV_Date As System.Windows.Forms.Label + Friend WithEvents dtpWV As System.Windows.Forms.DateTimePicker + Friend WithEvents lblFollowUp_save As System.Windows.Forms.Label + Friend WithEvents chkFollowUp As System.Windows.Forms.CheckBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents ListBoxUser2Profile As System.Windows.Forms.ListBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents cmbWHUser As System.Windows.Forms.ComboBox + Friend WithEvents btnAddUser_WV As System.Windows.Forms.Button + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents grpbxFU_Profile As System.Windows.Forms.GroupBox + Friend WithEvents SplitCont_Details As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents TabPageParentEntity As DevExpress.XtraTab.XtraTabPage + Friend WithEvents VerknüpfungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GridControlParentEntity As DevExpress.XtraGrid.GridControl + Friend WithEvents LayoutView1 As DevExpress.XtraGrid.Views.Layout.LayoutView + Friend WithEvents GridViewParentEntity As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents lblParentID As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnRefreshPEntity As System.Windows.Forms.Button + Friend WithEvents Button1 As System.Windows.Forms.Button + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Constructor.resx b/app - Kopie/DD-Record-Organiser/frmForm_Constructor.resx new file mode 100644 index 0000000..7875caf --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Constructor.resx @@ -0,0 +1,1768 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 316, 17 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAZhJREFUOE9joDrweljzP/l0238oFw5MT6f/Z37giyGOAkCag//1/Pf914liiM2Z + 7P+sP8PAmOGqG3ZDkDW7/msC47BNJf9Bmtn+R4I1s38O/c/wCugKdEOQNfv8a/3v8K/+v9Gj3P9aR+PA + mmC2g9gwQ1j2OSEMST/dCTYApBlks/2j0v8W+1P/z/q3+7/1r2qIYqAmuAsee/833ZmI6gqQn2GabY9l + gdk6/4r+i/xLggRegjyEBhqAoRkGQH4OOlr5f/G/Q2BvqP7L+8/1J+q/3LOE/6G7y/9zavH9N10WjV0z + COSc6f5/5d/N/5X/FoOdLvk7Fexs5lOuYC/17pmL2wCQF0C2gsJh/8/9/w3/lYK9APKvzK4AsGZwWABj + wHxFLHb/g2yFaQTxk35N+W91Mx+uGeQSEA3ClrOjEIaAAg5mAEiz3L9McOCBvICumXWLw3+2Nbb/2fpM + UF0BineQZlDAgTSCAg+UiEB+JqgZBpQfJcNtB2mGCjNYLI0Ba2ZfaoNbMwyIPIpE0QwDVtMiCWsmHTAw + AADtKmj6rk3BRQAAAABJRU5ErkJggg== + + + + 1123, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N + zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu + 3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG + CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC + + + + 1013, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS + CQAAAk1TRnQBSQFMAgEBAgEAAWgBCAFoAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgA + AfQBeQFSAisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKa + AZMEdAF1AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0 + AVMEAAFZAcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQA + ATgBwwSaBXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKa + AcMFmgR6JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPD + AZoBegFYARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEI + AXgFlwGYAUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFP + JgAB4wGUBRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEB + BQABgBcAA/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQA + AcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQA + AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHBAAL + + + + 811, 17 + + + 134, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAJRJREFUOE/dkssNgCAQRLcUa6ELurAVKvJMJRw4eAKO6iAaXZFPvPmSSQjZ2cwk + S9775YuwYJZSLkKILsEDLznnRq11dqgkeOAlsD0mpVR2MCfMwhPNIIQwGGOaqmAGs/Ak+05rlVt0Tq3K + IzqnVOU1OuetSjE6h1epRucgprX2XIB3NToHZ3osiCfby08WXJW+GUQrK/59Ci2uLUYAAAAASUVORK5C + YII= + + + + + /9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYa + HSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgo + KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCAAZABkDASIAAhEBAxEB/8QA + GQAAAgMBAAAAAAAAAAAAAAAABgcCAwUE/8QAMxAAAAUCAwUCDwAAAAAAAAAAAQIDBAUAEQYSExUhIjFR + FHEWMjM1QlRhc3SBkZKhsdL/xAAWAQEBAQAAAAAAAAAAAAAAAAAFBAP/xAAiEQACAgIABgMAAAAAAAAA + AAABAgMRAAQSISIxQVGhweH/2gAMAwEAAhEDEQA/ADTAmFodzhlobYsaoJQEoidMom5jzvW2XDMH2jR8 + H43U+HLS2wzPyySyDSJJnEojnuHDlvvvTijXqTthdMQ1yl4r8ym/mjopA4rCoZRIKHjMOXwzANWSurBx + ZRMmbLlRLflSG2RF+oN/sCmVj5eVjiGVevkcyoiUhACwmC3oh0Cljrn6/mtteS2YeqyjVlt2X1X3hhEt + 5Bs3FWPeIJFWuI8ZbjvrqSeYkauCLIyKOYo3tnLYwdB9lCMD5hae5D9VTN+SJ8qNMLqeTYOdd1PS/wAf + uGOKZCTnGolfNmACmAiVQqoiYvdvpaZB6h9aip4hu6g2rNRGHEWN9sR0Y2BZma7rP//Z + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw + MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU + rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U + gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq + htNmAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD + EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG + RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD + EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG + RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD + EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG + RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB + AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAwU4AAB0cAAAAAAAACw== + + + + 646, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR + BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4 + 4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh + 4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3 + 9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT + QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf + D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY + DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + 299, 56 + + + 1349, 17 + + + 912, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 + JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAAECUlE + QVRIS62UfVDTdRzHx54YbBM2GGxzzD3+NsSdCEnQaBAsdkpnd6ilB1gJ9uRRd5RJd9ZZV4EPJ4ZIgkxM + RB5CkAcFTzl6uLi8SC7Ow0KEJE2cuDAIo8h3v3m37rf1vbKuP15/fF6f9/d9u9++vx8LwH9CrNAZY/Pe + qSbtmBDl/aC2ZeVk9c1DleDIIe29ECWJEIWeF2F+MDI4NFLB4wmC4wpKqx7vBzIbhm8JQ8LVpDMeiJKJ + 1BCfbMnfuc9a0jWUfmhwylE/fNtxqH/ssbar05k9M1j12TysWz5oJZ31QJQeuIJgkTlnuzP14AXYm67B + 0eaCo3sKjp5ZpPfOwdY9jeT2SVhbbiCj40dok1Zmk3r+IjwEiqWy+Ndqv0irG0da/XewtbqQcGoaS7vu + IKbzZ5iPu0E1umCovQZd9Rg0lZdhKf70ujA0fKF/l8/gZWnB/tP2ZhdSmq5j2YejiC4/P2su7ZtcUt7v + ttRcmjM3TNw10uX66lFoyi9CueM8VHuGEfN0SbN/l8/gQZ3y5AuOlltI2P3xTGRGfp1AYVzPE4jiuBye + nv5z9VJ19AqL89Kc1jkG9b6LiNr7DfTvnYMpv2wgzBCf59/nM3AFQmFqWZ87ZtOOc9ygBSnMnZewGKuV + qp2AtuoKTLu+AvXM7s9lxrg8NoslJeV9hqjEzOzFa185w2KxZEzPxLK53LmkcgRU7ttnJCpqTQCLJSTl + vPgMgWKJhi6PYDp/DBlPbV2g0D1B5wSkvT9E+X9ClCQEYSoeVyAKJe3+DqJkQhfzZXEZGx7Y3jYgoZZv + JGW8RKVveJEvDFUxnU+ACf1rRfKkrPxl21oGbUfol805BL4oNJGU9RC17o1i8+vNVwPYbAnT+4Q80NdT + utC+sSi2qHk4uXIItiOjsLe5Efvy/gH/rFgWxVY/km3XFTX36qrGITUnFvpnfAZOoFBiKTw69lD5IJKr + 6PLDw7A1jCOp/TaoXZ98L19btDNy5fNblKteKtJvrnDq3z37tebACCIPXMGi3OIv6Ssbwuzz4DsEsLnG + dds6bDWX75XHHx0H1XATupafYOy6C1MPYDoNGDp+xaJGNxRVY5DtGYKusN4VJJYkMbv+7PQXvCCRMr7k + 7MTiYy5ojt2EvnUGxpNzMHb+Av2JGWgaJ6GqGYe8YgTK0gvQPFfxrVAit/v3eCFKofnhHP1H0zC037lX + bDr1G6iT89C1zkJT54KWfizarcdvKFOzK3kcjo7U4YUoPaieff+EqZd+JN2/Q7X61aZw6+o3ZWm5ZTLr + mhIptXwTn8ePJp3zhyg98EUSNXV4dMrc5EaQOCyZlLkfiNJLROr6gui3On+gb4fP3f43EKUXNpvNE8m1 + j9IfNg5p/8+A9Qcd0cH9eDjxtgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKwSURBVDhPdVJdSJNhFH4jiC67Sfoj8SL68cYgMsqu + hBFBRBcRVBQZ/pCgN96ISaZYaT8q5Tad2/xc32ibs2Qswtna5uaiuYmKPxg6xcF0in0qA2tbT+/74la2 + OvB83+F855znOed8BEAaXC7XI4vFEurq6vrJwHwW+1duWsBsNmcYDIYf1N9mLKbX6w9Qd1s+f2wxBilb + ggK9vb2YmJhAIpFAPB7H2NgYj7FvLIflJhXxBrT7Jn2nbG5uDt3d3RgZGeEwmUw89qdt1RDS09OjpcD4 + +DhnZPB6vbBardDpdBzMZzGmJhaLYXR0FKxGrVbrCWWKTU1Nwe/3IxAIcEbG/rclFQ0NDcHpdMJut0Ol + UsUIlSdtbGxgaWkJMzMzmJ2dBZ0P09PTKUXMHxgYwOTkJGw2G8fw8DDa29slYjQaeYO1tTWsrq5ifn6e + y/X5fKkdMNay13ko1J7Ex082OBwOrratrU1iC+QNJEnCysoKIpEIQqEQZ2Wjud1uzljcmYuHluu4pjyG + fnsfJ1AqlRKht/0ejUaxvr6OcDjMi4PBIMrF8yjTnUGJcAoF6hzcf3sVRl8LKkyXIWvaB9egA62trZtE + FEUbW8jCwgIfgzVhuyjV5eJdQA6z/xUvfONrRnN/BQRvI0pEGU4/3o1nLxs8hJ5pF/05CgVB+Mq2u7i4 + iOXlZdyl87LiF33laPhQivr3Raix3EGttRhKVx1udubhyAMST/2SWq02Q6PR1NPbfvN4PLihOg7Dl2aI + n59DGGyExvOENrkHhasWReIFZFWTyMFKkpNqkERHR0c2va94RZGFiy2HkN+UgXNP9+CW9izkzhoU6GTI + rCbh/ZXkBMtPa5AE3bBMoVDY5XK5my7rUnbdjuhtIR+ZVSREi48m89IK/wcqOXq4aif2VpKs33GQX70k + /UVxpRUoAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKfSURBVDhPpZLdT1JxGMdpa+suWy8XzfUH9D943+yu + q9bWZhfNuVVb0portaKSuzSXmomkx4SpaIkg8qKAyotApUBQKgqHwzmHwzkesJHGaHyDs+l086KXi++e + 3+95Pt/n99ueRwbgv3Rk8m906EKSZE0q/m2ajnp26JVZMJ/NYAJGMD49WL/xJxvxumiarjno2T9QFEUw + a58K6bAVYsQObtmEVbsGEfMAYrYBbC+NQVx8h8z8UImLhacONSibLUzYCSFsw4qFgGGwAzpCBe2IAYTG + CBUxBa1aBadaAcHaBdHcCSHkCEkNEolEOxN1QwjOwKF7Dbc/ilFXFsPOLNQ2Ed2mLbTrebTpOOi9Waxa + h5Eaf4acXgkq7B2UpWLhNB2YQNQ/h2KxiCnfNoYcWaisIk6du4Cqs9V4PpZBiyZdjpzEsCEXaG0zgn1N + RVncry+lkzHs7u5KRZ0rh16zgE6jgKoz1Th5+jweDrO4p6bRWo4VpsIKsRA+djRAlkps/BJFEfl8HoVC + AfZgrvxlDkodi0daGk2DKdxVUWjoIfHWxktMha14NvRdJRkVWhC5xFfkcjmpEEt9R98Mi2YiWX6VxO3e + OG6+2kTLUBLL61mJqbBsJIA48aAgI9cjb9JLE8iUp7DFJJDNZhFc40BYSDT1r6GxdxXdk3H4vqQlo8gx + 4HzTSPbUw6NSeKQxri57PdRsPwSnGnzQLvKxMMOzqQTP85t7ymQym1zEx7CGTpBls7VdzkzKLx/bX6TA + vFXvHu0qboy1gTO+AGdTgXVqwDg0YOcIUPqXoPpuY1F5o2Tqeer/0Fh7XNqDvQYVubvlJwzK+qvjj+tG + Jp/UcSZF3Q+L4vrOTOu1/Pv7VxY0d2rl2luXLh70HGrwLzoy+eeC7DdDjRpyPiqHagAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok + pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ + 1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIPSURBVDhPrVPJqhpREO1VFvmAt0g+Iav8RHb5jCzzDa6S + 3cMZZ0QlgiOIuBLFEREnVBxQnFBwxLSK8JLWVO4p2kfeS0g2KTjQ1K1z6lTd29KfIpfLfY5GowuNRvMD + wDdy6vHfIxKJ3AUCge/0LJDz+/2v1LKnAfV4PD7xer1XAYrFYtTtdul6vdLlcqF2u805nKEGtU8c+Xy+ + B7URx3Q6pXA4TM1mkxEKhTj3a4DDZGHZLWakTqfDHYFSqUSJRAJFDHwjBzeKolCr1SJwnE6nX3K73Uq/ + 36darUb1ep07ovvzuDmqVquUzWYpnU6Tw+FQJGFPPp1OtF6vaTQa0Xg8JjEfDQaDR0f4zufz1Ov1KJlM + MhqNBtntdlkKBoMscDgcaL/f02w2Y7uVSuVxB+iKJYKYyWQYcGuz2WTJ4/GwgCzLtNvtaLPZ0GKx4K4Y + rVAoMBGW4QxOIIAGOp1Olkwm07fz+UzH45GWyyWTJ5MJDYdDvkoUg3hDKpVisXK5TGaz+QFXmERiPp/z + GBDBLuAAAjjD0gA4QWeIikdFBoMhix28EGN8ELcxRNFqtaLtdsvLhMBtaSBiN3gTWq12ajQaP4odvOS3 + gBAv7M7lcn2yWCxfi8Uii0AMC8QVi9cHyycx8r2oea3Sfg9xNW8EvuAnAhEzC4cgh/V6/Vu17N9htVrf + iU5pQSwIvFfT/zsk6SezNnG6NqT38QAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALESURBVDhPrVHdT5JhHKW75nV/Q9fdO6/a3NwylRgRYIB8 + DOVL7UVJgVc3y+EUJQRFCxTNUjRSqRCc+TEVljpd5ppzza+GCheuqNYNp/d9sNWy7jrbb3v2POec3/n9 + Hs5/xwpN58xbqNxotU50IJdh/2YJqYMyCaKU9vb8XSqX5ZzRz2OtpiqWMuiRVKtwzIhOTSacUhQ5JzXl + SFUZEGc4Z/TzoIW8zCezGd+cXThWK3Ag4JJiz+wd+0bzCzPRas3lrMBD51APqNxKu05U+1SPXe41pP1+ + pLQVOGFGYEU/zU5USiRkYmakIkxRhivEoM5rjN0LmWEN1sAUMGCPdx3fx0P44nYhWaEikVPVenwUC4mY + HWVfUPLLQEMrMu2R+/AveWAeo4g7a5B2dyHtdOK0rRVHUjERH8lKswa/J1D6SjGzNYX2SDNMo1XYuXWD + dE67u/HZ4cBpiw0JiYgIWYNDpjvNK8gYLZ1XaXoih6PukyL+YRFTmyGMxAfRE2jEgk6GXUEx+Qk2BbuL + Q5EAO9wCzMiloG1DqOqZg6ZpMMYp7y/D4vYsJtfHML4WwFDMi5oRHaz1LsRkQuYHirHLL0JMIkCTqQOq + jijaJzdQ719CkYnOMDuQZ4KrwxhdGcJw3A/fogfUsAZF5md4HttBo+81lG1hImKLNVA7piFteQWudRyc + Srs2T+tWJLQDKnhmnRhc9pJdlFiDmF4/QGBhG97wW1gGlmHonoPY9pKIy+wR8BoYAxYALug7tHKlS5au + 8MtR3i8j7uHVPTyefY8nTD2KbELaGiZiGZOINSAJ/kR1q+qShJZc5NN0xhd9B290Cw+ZBJ1M/FJbtjNr + wG+cQKGR2cG/oLC484R1fQkBQ7QF3sAV2oDcHoWw+QUKawPgGnuTZZQj/4z+d7Cjqc3dihKTO81vmGAi + B5Fv7P0qqe28k2VwOD8A3i8M0yVWkE8AAAAASUVORK5CYII= + + + + 17, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHpSURBVDhPjZLPSxthEIZz8FDRcysUrPSPkFKKLSLt + eakQ6KE3qQUhCtKDRQoGpB5shKTBWDz5o/TQg5dsurpGFE2lolGTGpNYisSLtMludollo7zOfNUliYt4 + eNiZb9552G9ZF4ArqO/qJEIm/l7AteSUrWoodJcIZsJdKObCKBs7AiMnIyN3I+ptGOdM5U6VIOptHD9O + TOLU3EBZU2Dl5wRc89mf1AyW39/+VLljF2R+kZp7iXJBhnU86QjP0uFX4KyTYEVLB/DvaORa9GyIBStO + AsPI9ODk9xuUdRUnh2+p7v/P4SBdY0HUZraXBYaTQNPiT2HudaJ08JpeN4JStlvUVj4sajPlhhZ/xgLN + SaAeLbbC2G2Hkegg0XP6cDs4LaVh/pTEGc9yaisLFCdB57r/DvT4YxS3nwiswgJdJ2b3PFv3N7HA/ids + wYXEn5y6h2K8TWDl50mwZvfJ6RZe9lfu1ArqieDe5xboW49IoAgB1/tf7vNykGis3KkSMBRoWvLWQ998 + SIJvJFhF4ccDRIdusaC5Nl/VMEOzCVdgbBhK5CsO9pOIrS5hYsKHwYG+M57V5q8ccCgY+IiN2Hf8SqXF + k3uPx4MbC8Y++KBGFCGYlyPwjY7eXHAJLYTcbjckSeLlkFMGgOscnY/lSF6G3lMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAstJREFUOE+tkdtPkmEcx+mued3f0HX3zqu2NrdMJSMCDBAhFBClFyEFXt0sh/OY + iocKEM0TGqlUKM48TH2dh+kyc841T80TF66o1s377X0ebbXssu/225697+/7+X1/zyP671pg2YRJJ5MY + tZjkuxo1dm6n09rNUiLKGO9OPmASSc9Z+3kt2SxczJyHY70Oh4LpxG7HCcPQ87EhB7ECM+YLC7iz9vPa + kGXwnx0OfK9vwqE+G7tSMS1yJt/Iv3VJCh+1GC5TA9vCJjCPmcT8apPc1p2HLfF1xAMBxIy5OBJWIKZf + sCOdFvtqhbBSKoYZ8xUKKPJauYdhB1yhQtiDZmxn3MCPgTC+ehpxnKujkWOWPHxSyKiZrLIjTf8NMPiy + +ZqRRwjMtMDRz1A6AcQ9TYjX1+OkqhIHKgU1H6gzTwF/JtD6MjG2NoyakXLY+wqweecmnRz3NONLXR1O + KtzYV8qpkQD2hOkfMpJ5q7PhKssOJoj0fhXmPk5jeDWM3rkOtAZLMWVSY0uaRl+CpCB3sSeXYlOcjDGN + Cqy7EwWtEzCUdXCinLYsTG+MY2i5HwNLQXRyXhT2muAqbgSnlgkvkIYtSSo4pRRl9lroaqOoGVpBcWAG + qfZuXmTwavjQYg/6FjrRMxeAb7oFTI8BqY4XeMltotT3FtqqCDWRIgB93ShUFW8gdg1AlF9tTDJ67u0b + 23VoGa9Hx6yX3kW6K4TR5V0EpzbgjbyDs30W5uYJKNyvqTmregQZJQKACMCFvFqjRtuojucGNMhpU1N6 + ZHEbz8fX0SXUs5FVqCoj1KwWEhEATfC3LJW6S0pWeVHC9vG+6Ht4o2t4KiRoEOJnuk8nE4CkdBAp1i7+ + zHZe2U5PkqzIvy8VGt3BeTSGV6CpjkJW/goptiBuWZ8cZzF1187a/y2ymt7RnC2x++OSkkEhcghiq/+b + 0tZw/7RDJPoJ1LcOxnbJXxoAAAAASUVORK5CYII= + + + + 481, 17 + + + 134, 56 + + + 1019, 17 + + + 1184, 17 + + + 1492, 17 + + + 577, 56 + + + 849, 56 + + + 1230, 56 + + + 1372, 56 + + + 17, 95 + + + 255, 95 + + + 488, 95 + + + 732, 95 + + + 154 + + + + AAABAA8AAAAQAAEABACmJAAA9gAAADAwEAABAAQAaAYAAJwlAAAgIBAAAQAEAOgCAAAELAAAGBgQAAEA + BADoAQAA7C4AABAQEAABAAQAKAEAANQwAAAAAAAAAQAIAOgtAAD8MQAAMDAAAAEACACoDgAA5F8AACAg + AAABAAgAqAgAAIxuAAAYGAAAAQAIAMgGAAA0dwAAEBAAAAEACABoBQAA/H0AAAAAAAABACAAp1gAAGSD + AAAwMAAAAQAgAKglAAAM3AAAICAAAAEAIACoEAAAtAEBABgYAAABACAAiAkAAFwSAQAQEAAAAQAgAGgE + AADkGwEAiVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAAAXNSR0IArs4c6QAAAARnQU1B + AACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAJCRJREFU + eF7tXYF6q7wO26Pv0e6b/bdAZGTFgW6n6wZRv++cdi0FrNiy7AT68eGHETACRsAIGAEjYASMgBEwAkbA + CBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyA + ETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgB + I2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMwIsQ+N///vff8u/j8zOeP/7777+Px3/rM95/vP58 + vF7eW7f3wwgYgeshEAHfgnsN9BbYCPo10B//8BzbLO9j+8fz8rnJ4Ho+4DOeDIE1SBHwyO4tyPF+F+yi + ApbtOmJIJDEZqDbXCPxlBCDrOXCX7M3vL3+vQU1yP7ZvhBGfc/ZXEmmqYNvWDyNgBH4NgU2S97I+ZH4L + ZNTzeF8DPRRBKw/S9sj8pAqiZFiO7YcRMALvQyBJ/Co4jzI9kwV6AdITAKGc9QRWMsHx32e+j2QE5kSA + s31kaJbzRXAPa/0I3L7WrwKfFYL2BlwKzOmPtvpNCCDjRxBSTc7vJVKgAOc6P+0DjUE8g0CoYViqgNh+ + UwDx7014+DBGYAoEVOqnaTue1pMmndb7a4BycKNEoIYgfyf1B7jzz6SSZgSW/bdpxClGxkYagR9EYAl8 + zeba3R816VKHn7v12tx7BKzuc8/k26KgckYgZfyt+birBM8K/KBbeNdzILCvyItpO87wMr+vvYBUn6tK + qGYEqG+gpJLk/WBdgKoLLxSaw0tt5YsRUNneSXLq1Gsdzw26CMhGGt1+aMFPF/A0e8DE0vUBRFmk4y/K + wg8jYASeQyA6+yPJrQGrdbusASgDXhf/UNOv7BdAOZDc5yDvyhNWFp4WfG7gvdXcCHTLdaVGL5tyLP+p + U59KhWpOny7s0fX/69Jgzfwc0DzNOJgt6BSISWBu57b1xwik5bmjYKOLcNL6/bQMl/oFrCA44EfZvgV2 + Cl4lGF0eXK0EPJxhsCcYASMQCETgI6si81LgcX0PFTAK0iTfsU+S79HF1/3r4iFWASLnqysD0+xAI5i+ + D+FpQbu+EQgENBhTI28QkJs8bwttOGPL9lFOHC0BlpmEYa9AyULUhDYgo3xQ4mBisB8YgVkR0Fo/NdBY + YqNulvd4FR9f9FM273Sun5t/rDZGZQQTSCHtY1pQ1xfw2oCo/9sFSo+/PTU4q/fPbrdOxfFqPKnZYwGP + 1P5QDmk5sDTu0MjT51RCFJl9DWiV/9o/4LpfyYntAXkUMwefnhqcPRImtL8InDKbIwiROUkJRJZH8FLv + AI1B3mfXMxDZH2sESBl0kn7UA6jKCzpnVQfpWNGInNAPbPJcCCTJr80+Di7KtGmhjUzZYZ3AM6VEUhGc + rUWJlM1DOTeog2GpISUFbNDnZT/pvbncwdb+NQRinX1zzE1iv+ihkrqQ0yy7U9Z8bJtk/iPAqrUCvHAo + gqtq1CH7qwpgFaFqg9QI3wswjnNU+/NxBv0DlwIfH+6HvCjWvrKbJchH/15xFRum97psiRpZg3HUaaeg + T3Ie7/NMQLVPPp40FaNUqBqFWhLocZgYCkIJBSMlQaUGttJgzgfG1CTwxvFH4D/8ds2oUACZED626bZv + PCLopT5P76MT3slh3HKbrr6jwE4kIKVBV/trYON8ogsvtw2LupyOXfQjqlWCZWBLQzDUDamBTW1hWvMb + YF/5KyD9GI8rG3ORc0fAL894MAms0rY55OfnQgJffJDkR1NuWM9TltXr+pfv8Fw+FEV5nQA3F7UpqD0H + zdbSF6gUyxakeYVhBHNVTjDxKME1kmGFAMxnyoIYxz0pfNHPvPn3EEBgKQGU5cDD65/tB5R1uJIByfxN + 9u6ZlgOelUI11Vd1+asbgyS1oJmcm4AFaUSAFuesSqaU+1J6aP8A9isRfG9Ur/Wtatn3tSy48NlC7o8U + QJKyzxJA1diTmhlZlLOpyvm4ZbfW/fibVAEHYZW1eUqwI4cqm7MSEOJK5z4gkjgeyf6wddAHGJcEF3aw + Z05dp3An7oE8A9fLt0G2jRqg9QKSCniUAbt0PzgFOHfLqIndEQxFwOlUHo5dZnep9bsyYDSlVzUIiwBO + Ev9M6uNcuL5nWa+KAX0Ffn58d8dW7iAEPF8+6n9kh035MWnPVPr8iVEY9QEiCLlufaTP6qS7QBdW77J7 + OLZM7TXy4SydyEG6/XzcSkGsmRgBVmUaDmCp39P+sA8mBCY7rvN5P/Q9JZakVAa9gL3B+Cdc5bUnwb0a + GgcTwGthPt0byoDnFEBBAFK/r1JWO/Iso3V7VguUpbnpVymBrnwQcqhKAQ1qEAQke6rnnyEMZHJSNxXZ + AZPlOdX5RfZft+X34xinQ3mhDWjGBf4QPnIhM+5yqlABPBNQKwC5hFWzIGfIqu4ncuCGHl6DjBCYqduv + WaL9rQHH5cPhjUDo3DXwI0i1n8E24fWjPEqEJ/I+gp7LhFHJUJQIG9Hd49LhTrGJOtts9ePtCBwRQARU + c8IYJKn3OYg6eQti4AGvMnahAKoATwShMl+Ip7rDT5fpEZBVSVCVEdQ7CBXBaqBqhCrhsBpox4eqCQIS + oriyPA5FRwowlBHh/3bn9wG35ZfVTABLURCBSth1EFn2s9xfAqFlyGUbdgJWAMs+9e8U5EQW1VSgvteV + B6jLpc5P583biD0luXHQtnIhEYtKeSoT1PETpqQC8D7WYmzlwfUekfmZnEGASvrXM+/6Z4wArEqANfCX + IKbn7rr7ro6jznbREKw69wjaqhz4StCPyECVxOiW4in7KikQuXXBzkpBSyNpeK1YEnEGiY56AqEurlcK + 8FhzsmAf2u2/fixd0oJqJgAZPwZH6lMNlAiIQh5X8o8DPQJCJHgiBcoUHHzVTEB374AlOEFEhQpIwTxS + AlpaqPJhGcsqiEsDznqsEETqd4qAiSH2cQFXI+LrVBSrrCgRL2DTHU8RgRaSkzN6c+BOBQghDG99RQog + ZWfpAVSZW7N2kBLPHAxmERZSYeKBjalhR70JEESlFFYSZOJgMqiIgQK221+V+VkRSOmQyCD1Cv6uJ0bW + Z9xYBSmeQfx/16Zbnhl32VEGlEGjwS5Oytm1UwIIBmRhBD41yuAw6Xn0+UH3n4O7yziiACpyCTtAgHQO + ZSBjn5rNxPHLS4dZDXCZxFiPlMHH371giBVZKnVSoy+XiBs5+/E7CFCmXAYvsiyyI2enh+Ntg8W/eNv/ + Rl5kWy4HtGlGCgDB9YxCiCXCo8wvykLlfUVQa4YXNZC2K5QCXwXI6iB9D+qJsn5k9ALfRDL8XSECBNZf + Cpyy0Uc2QkWF/VzumQB+J/bXo4qc7hQAnHeUjSizdsElWY4/Pwz6xz67WQGS2qPsPczqrEIoE3XOqM06 + zlqwhVRB5dTre5rdORBKYt1vEJrUAimMRKoxJn8jc5aNPlJBJZky6ZoAfpEAmjMh++O5umJtz177rbhT + RiOy0MyLYOEMDqdODcFBfX00E6CqAKR2RAiRtbnpN1ABEXzP9gEKkklkExJ+XxGHz2O7pLx2gsC58Ha/ + 5T2puUsEWa290EVZTAobgfjxOwg0puYgHKqAZZCb87JDp0zItTZnQ+2+ay+AAr/L/iQXn20WVjMP7ISV + GinlqdqjCoAyXcr+3B9gYqnKAc2GSqRMBviMVMC7SwFOEokcteRh5aU4YbwXf/Lj9xDgDI46Tgd1KD+b + 46bPudaXGrAjFmmylT2Ag44/S8+kJijgOuVQSVOt8TWDD1RJ9A2K7FdmvHbspJoaUfB7Kbt3AU8NNCKG + d2RRzfirimKblOQVa8YpYfZ7/u8jLwjIIC4DnaZymNk5GM6yIzd6qNPN5cEwiKXbzyXK4nhDeV98liQp + k9Igm6fyRTOXODmTZZLx2tmvFAGCgPsrihPUgaoA/g5e/5A3J7tOehiMHausruQKXH/opL3b5xHgzI/X + kTlF8ufas7+WfSUTSL9nGm4tCCtpvzhNRRBBAEUZkVQMqwchuaRylNT0vIUoSoJQGT/YZxcgVBKktRQn + DcAUlEwOzw/76ZaR8SvSPHqP8GOVtPhGIu4VMz/+DALI/Mvz8sDfCJbluav5qowLdufnQmbH/g5kfgT7 + Y1/P9Aa0yQhC6DKQqJcukyPTq6zVDNg+52zXEUSF2yjwtYSSEqAsx2ibfykForZnm6uypZD2UJEc5PEa + CaHsi/wZ9/eJLAgg6JkAMJCc/eN1yM9WD4oDd4w/kO+83fJag52z0UgtLOfZZa0WsEnZsFNLJgtHVqfF + eafatbg5KO+Pz4fIsCobmOhWsuKyi1UVE4Iqrfj73JejzCO7mCQ7ElNFIwQW56/EyUSryur8NL3FuxFA + 8K0SoKmANVNzKcASjwNCXodDsTxmghhl/uX94rNEJpD/5JhaLuj2lQpIjl5k83BsVTAcoPo9JQ8iySBO + zbJCpCnTF0HEZByZlsgh2c5YCm7pohycNxMOEfZKSgOCj8/auXbEz5iEre/2bh/vFIGqDEAQbE6513Hd + FV0cJBognHUpS6ijwvFZjmIbzfz4u+sTsNPC4UeOWWV2krjq2B0hSIlQBXiQjOyXt8Xralsmg/Q5AokC + E+fLxBaqiFQIZ+x0zrJNF/T4XEipJFs+L8H/X0qVUyf2Bt9HYKgAKKA5+0TwIfvTMyuAcGJynFVZNCfB + fjTIhwuHWJK212kfKlmZCDSb428K0JKYBsHeBaXYCBy6gOf98Tlwlj0LSCUwLhFEpjMprIGN82SsOPur + oiPceDzTfivbeT/O/t8Pznd8c9QITDcHWcoBlbAqU8kxw9Eo4OP7lK3LDP/4zogcgkBaqQKn5uAdZVYO + 2pEDpw52IfPZBr2/AGftsF8xq1SSBgtnTiYG4D3K/ni/GIeSCJQE6fujBVQ8rkEopdSnXkmM5zu82cf4 + FgJVIxDBlgKKZb1kjpCOcEBxsDLDIkvrM5EEvtfJfsrwKSNX5YBm2xZMVSmhC3pYOi826rFWuzVrVxld + AqUkISVMydqsxPg1ziHeK9SSKitVYmxnZ2OhrmJ7PsehgviWW/pL70JgGXBMBT5iY8vA5IzJsThTkIRO + DsFEERKQfnOvCF7O7uGsRAzY/7BkeIJESsdmGyp7SAanQC/OTRtmUAxlBmY1wOQg2AX2It+7Y4GIKAh1 + ZiXGSAKasQ8lowpIFYb2dSqCc/Z/Vwj/23GGZUBzJr7PHwd6pw40mNiZi1qRVcHoNY7HQTTq/qdsLQHK + l/9qk0zVCasZyN6jIA5pLPI7EQ4phRRkrCBYqej7CGx6DvXBygGBGsE3+C2GQmUBo66JWCmAA+XDePyb + Z/rbb0HgSAGkIEc2ZxXAGVI6v+WUE23PgXw0pacBWpEFqwaV7dWagE7q03lxsGuwdmSBzAdstO5H8HxI + H0VKlU5xERl05NPw386N7tWgJFEEuUp/HYP0edUHUVKH/fx+Oz93/t8Svv9+kJEC4OCHCkgBwDKWs9AR + ETSnHMnTJPGpVECAa3nCwQ4iY6kb2UyIKgVVlQ2hZgqHh7TnkqDL9hzgtK+0XSON9J4qJcroyPgYFxw/ + SIrKAJCvzpRoCYVjMxF0pcsIAxyPlUt6/e++6T28CYGqEYgsmRwOmU4zHnWpR1mTsxycjAO0el1l3OW7 + pSOPgrwqRdhRq/paMzRnQ95f4fyBFwe4bgfC5O4+Z3YJ/I44uNmq2ZeJmewYzbrweC2vOyLVep//bsom + bE4N1jc5rw/z7whg0Jcm4PJYnAXOEIFbBBI7u2YydSwuCdTJOND5dTUlmJQJlSOVqtDSQKV/ynyFjA01 + IYpAbYm6l+vl4jtdttfSA1m1UFGVymAV0l2URVIcY6GKQMk0jlGVRIS1Bjz3WLZj+XEpBKoyYHX+B8PD + eZISIGdITsiZi7NbJW2LGrNTARxQVBKU2YxLBiGrTkkU5985vyiDIDTN3irlSR0l7ERFMJGtGIIwUFez + atDPeF/YvsJYcABuih9PE8brx3d5PEryEix2DC/l/j7ZZxRAl9Ex+FQWcBCVCkDkJDvkoQoQST7a91Gm + 0wBPf2t2q+rzo4xeZX4uk0YKQkopDbLOTsIvES/eB5EU5UfZD2ikqQTJ2KDvEmoIhEOklJWI4+lyCIwa + gcvALs6Qsr/Uz6XTqsNXGVmyOxysy9bI7AMFgO07RyXSGJIRZzDNoJJlRwEQ2Kg9bDMCnbFkUlNVUSms + gmQqVRLnQwosxvCgJzCaSVHi7JQKKSV3/i8X+vsJV41AOJiSADteuSiFmlRpW3LsSsZ3mUeDmPYb8pSV + SOtfrDU51bG8bQSybFPZtO6HyYyzXlUiCNFhmi6RhO5PVICeXyJYJoZKYagaa3+PmqYgTf48bdsw7LCW + kmXByMF/4eBfTn1xtGUQ8YBzRPB/0Fx2lS1VErKTaGA0Rz5rSnUXBxVZPZxTyOFISXCQdRlTyg2oIL5W + gL+jCigahFJDjwKbv89KhRVNtT6fv1c1M1fiariX8l/IUgNf/+ZzAxYJu4v7//SnP1IAGGRWATHwyEj0 + rJIxZT9p/GmQ7mRT/1YAOzp/F86pmf4wcKr6W6S3BncXBIX9VTbMgUKqglRKUhuUybv3RXlUMxJxnqKO + QPJczhxmfCq7QCZBiET4zv43oI9KASDgODBZXqcAFmnLTpiyXyeT+3sBlpKVMlacT1EiVF3sFLgtM6bg + 5nMnJQFb+fsczLqPw0Bogcvf6V6P+iuP9yuy7MoZJiTB5jDDC7bYbyJzIZO82OgGATC7CVUjkLM/M3/K + 6pQ1u0DjbFU40LD2bEohSdeq/keGklqVHZeldJXBeVslLc56kYml1ImseuJAHYlw9i9IsbOh6mvw9wZl + lpIEY87EPioTYtyH/ZDZI+dG9nMZsPQClr9XJ3nU/xH0IpPDwVBzUqBr1uKASp+1YECQHDatJLPpfqoy + IUqBImDSNQs4dy5VBplvteWrDwQRKY6kIhgHslP7MVHqCAGu59TGh/eL74+UVZBY0WNJxEdKZJ81+CoI + 3v7PIgBHQPAnh2lE0AUxOR2XB7GdZLokK49kKmQp1aFlsLNaqEoCnB8yKCuWB7Elmc/bcMYjaf5sxq8G + uVMbnNUHwcfKgQO/a2TSvoKsBbtEsO2zClMmDz4+xvRfMPizzu8T2+8SvDhaUgDIgpwNi0CC44XTqCpg + h6+yrUh/dXJVCF0QiJII+SoBHFmtyMhJ0SDjNTte0uziEkLLmoEC2ANuv6/CUDkM9l8RRqckiIQOm4vr + OPlxOwRYATAB8IVBKWNwdhUlkLaTzMpZReUnnBLlBzJ0J19RlhQKIQKfsrhmMj2HVCYQYSz7ekngw1s4 + yKgUWOwcNep42m0571JJSGmm+Jd/VwqByx/gx3g4+G8X92FQ1Qjk+nMYJFwbMhHAKbn2liwH5+5qd9pO + nT4yFwVNeW7LPg7OAZI2nn8y8NltJFh5tkXXPsD2Uf3eZWrZd5qzp57BUT+ApT6vf3Ddf9/Y70gg9QFa + 1onasgV5kqFcEkhmSyUB19ZUUlQZSp2UVUG8lsYUn1M6P5H7OKeqXHlpxi98JtnaSIeVz2l934itKgNY + /fDno4DX7j8UV1cmRU9mgiCY2USeCcDryMDcAyB52AUdO6jKx0YUQSYkiZMzDurjtGadiaZ63c6D1QWv + 1FMn/+nAT36lTTvpX1RYdIRW9QyAd/HMpYPuX9VQKplCOcwcGZPYzgSQVEDLtAhcDuAIqirYG1GkjKvO + r8HOzUDpjof8PykrOnVCtXPc5zAR1XsHuCJALnVYJVTlUZf9qeEaxIb+BWPV8NTvMzmsZEDfeSsxvncY + fDRFYHEEVQGQlSn4OftwY4rLA67BRfonqUnNqHSsATFE8GD/3KyCEpDSIIKCSGojpV98EBFW1z10ga+z + FoPyR7M3lxR8HF4qzQG/YpXO7Rcx8qHfiwBq6yX7swLgDB4BWDSckvNx1qXmYGosSlf7meZU56wgEM50 + 8loVwV/Ial3pxMqHegOsBlJTjgmBiA8B3KkEJWH9DpUNSATv9T4f7dcROJ0J4D6ABpxIR+0gR52pmbtl + eg7+VKNqVtf6lo4bx1T1kfoBvw7zfgKjcojUj6qXqpxiUg4SLhqz+t2ShALvP4STT+V9CBw1AjcH2lbQ + JSlOtXrcrprrf2rSpXpTHZ1lbSXnq8x+VI6kHsT7MHz2SIFh0RSMfkeFSWCTbycWZMHjwZm+yPpaMvwF + dfQsft7uBxCoGoEpc7AKUCLgAJUsXJYHHLyPfbHTox+QlAMChbM+kYuqjF+v858ZHyYpaXp2AU2YptIA + Y0KlVpA0CERxKjC8BF7PYOptvo8A6r8lGNEHWN7jf2ug8T8OZJL4WnujuZTeJxWAjKgqAcdKTt/IQDMY + tr1KJtNpyoRNRaJc+3M5JWQa41OoC20M7mTxfb/xN2+CQNUIhINEgLYyoLs7DGeZ5pya+cuMzg0q1Piq + JnQbPhYpkasEfnIXsaW6mQnjxqVDvEbNT7V/Is4BniD8m7ivzfhXBEaNQM7OKVNLE06lKWRsRQSYEVgc + VT/nv8vPuH8Q0vdfrf+d77PiSepH+yCqulqwd8ro8X63AIrLJ1ZP62s/jAAhUDUC+aKgkJcyddS9zw5a + ZaDBjABKBa6BO5LAd8PZLz6EpHC6DC/qJ2V9fEZ4VNcIcGmxk8zFMfPp/wwCo0YgMvHynGpV6S53CkGc + tHNwIpII9KMSoGXCS8r9wZBFxmYsRdYzbokQGas0IyP3IEwl2s/4jvd6AwRQF2ojEE4XjsgdZpAC16Cq + EDiT0XaVhA0VoERwcbl/6B4UoCUmVQlQzcRoI5ZI5U6keYNQ+5smjK4J6BQAgvOjuG04E0I4oNT6rAyK + 1109fBe5Pxj2ZG+lmohwkwKrGqeC5zZ2fhiBJxD4zorAqP+5PNDpQa1z4dDSlNKm37LvaTIXEydnd2R/ + buYxfkq4qgKeGHdvYgQCAZQBWAuA6cH9R0PzisAUtNyQIsctO9xclxad6qmCf0Gf5u3T5cs8rcqYIfC5 + j9KIdhrSdNy+HoFKBcSCkSrbNKcbNfiYIDqpy70EynrTytZGml0zNfoftBSbCeOGzdHXe7b3+BQCrACg + AtD9j1mAJOFlZkBXqUl3+6zxN3P2qnof6bZnOlPAhPHU6HojI3CCwLAPoI2oqjalPkA5dbVkLall0UOY + NuvreFDHPzBsMyf8N4jaDm0EXorAWSNwC1S5t36VmapG4EDyz5z1dfB4lWTqBTjbv9TPvbMDBI4uDV6C + P2UmyU6a+dcMj1mAkig8FL0I2C+6QhPWKBmBtyEwvDSYmoBQAh0Z8NQeqwB+f6bpvbeNmg9kBF6FAE0x + ceOP5/zjBiBUs+rv8cX2Oj34qvP0foyAEXgdApiyww064kYdTbrj89SMWvoBOj2oV525fn3dIHlPRuDH + EKBAR+2ZLlbhbN9q/yrLV91rN/p+bNS8YyPwGgR4Hhp9gFgERNN3MRMgmT8CnyS/p/deMzbeixF4DwJo + 0LWVeVAAaXoq1f10mzBdtvqeM/ZRjIAReBkCFPisAljq6wzA+qs7XXnwsjPyjoyAEXgbAqjtu7X5bR06 + z+ljURA1+Sz53zZSPpAR+CEEYp5+u2V3mg0YLEtdFYAfRsAI3ACBNhvQNQK7+fwm/bE68Aam2wQjYASa + pEfjj68P4Dn/uEdALBwydEbACNwGAVxxxjcHiRuE8LLgxxJA1/63GXYbYgQ2BBDsCwHgwQSwqoG4OOjD + PQA7jhG4EwJ6aTCTAq4R+PxE9ncT8E5jb1uMQKiAhQhYAXRlwKoCXAbYZYzA7RCoLg3uy4At+D8fvYDb + AWCDjMDMCHAjsOoDxOXCngmY2U1s+10RGDUC4041LfO3WQArgLs6gu2aEwFtBA7vFOwSYE4HsdX3R+C0 + D9CagLFI6P6Q2EIjMA8CZwQQU4JeEjyPU9jSeRA4awRuC4IeMwAuA+ZxCls6DwJnKwJ5UdB6s1A/jIAR + uA8CzzQCsSz447Eg6D6W2xIjYARWBE77ACgBvB7AHmME7ofAGQFgBmDpBfjKwPuNvy2aHAE0AvW6gL3+ + X2t/BL/LgMn9xebfDAFVAKMFQV4ReLOBtzlGAD0AnQ70zUHsG0ZgIgRYBaAU4BJgqf9xe3D3ASZyDJs6 + BwJVGZB6AG0GwI3AOfzBVk6GgDYCQQh5KfCyDmC7Qchk8NhcI3BvBJ5pBG7TgRsJ3BsNW2cEJkMATb/R + VCCuBdjqfxPAZO5hc2dAQJcFd2VAC37fI3AGb7CN0yFQrQisFgOZAKZzDRs8AwLPrQh0H2AGX7CNEyLw + XAnQlgT7B0Mn9BCbfGsEzi4N5kbgujDIDyNgBO6FwNmS4HUWYMv+20+L+2EEjMB9EDgrA5bAxw+FeEnw + fcbdlhiBFQFWAOU1AS37kxIwckbACNwFAV0QpGsBfJPQu4y07TACBQJnjcB1DcCyEtB3Cbb/GIF7IqBl + QLo3AIK//WKw+wD39AFbNTECR41AXBC0qgDfI3BiL7Hpt0WgujQ43xxkKQG8IOi2DmDD5kbgvBHoPsDc + HmLrb43A2VqArQkIEvCKwFs7g42bE4HjMgC/FbhdGORG4Jw+YqtvjEClAvj2YHk9gG8QcmNXsGkzIsAK + gMkAJIASYL1FmK8MnNFFbPOdEagagftMADUBfY/AO7uBbZsVASYAXBPAC4JcAszqGbZ7GgRY+p/dJtyN + wGncwobOgsBzMwFtRsB9gFncwnbOgkDVCNybgI8pwPiREP9YyCw+YTsnQkD7AKkMQPCvVwVuC4Mmgsam + GoE5EDjqA/BqwHZx0Byg2EojMAsCR2UA3xcgSoNZgLGdRmAGBA4JoC0C+mw/He4fDZ3BI2zjVAgcE8D2 + O4H4wVBPBU7lGjZ2BgSqRiBfE4ClwPuMwAyo2EYjMBECYxWQrwr0rwZP5BQ2dR4EzhuB+70B/GMh8/iF + LZ0EAUj+o6sC96sDfWnwJG5hM2dB4KwRGHcIWn82zAuCZvEL2zkJAoeNwBb06TZhk+BiM43ANAioCijv + DdDWA0wDig01ArMgMOwD0A+FbGsCtn+z4GI7jcAUCJytCNxLAN8kdAqHsJFzIXA0E7Bl/HaH4KYI5kLH + 1hqBmyNw1AiM4CciuDkcNs8IzIfA0YpAVgG+S/B8vmGLJ0BAy4B9JkAuCnrMBnhF4AQOYRPnQuCsERhX + BnomYC7HsLVzIHDeCIwZAE8FzuEStnImBI4vDd7vDvz5KAG8FmAmz7Ct0yBwdl3AA4i4Qcg0oNhQIzAL + AseNQGR+rwacxR9s52QIPKcA1qXALgMm8w2bOwECh41AujmofytgAmewifMhcH5p8PJDIf65sPk8wxZP + g8CwDEDg8/M0qNhQIzAJAkeNQLoc2D2ASfzBZk6GwPFNQnGnYJcBk7mFzZ0FgeObhFIPwDMBs7iE7ZwJ + gbMVgesqwPVXgzcVMBM2ttUITIHAURmwB3/7vYApELGRRmAiBA4bgTEL4BWBE7mETZ0JAa8InGm0basR + EAQOG4Fo/j1+JMQ/GmrXMQI3ROBsRWC7HHhbC+BG4A09wCZNj4BXBE7vAgZgZgTOVgRiNsA3B5nZS2z7 + bRHwisDbDq0NMwLnCDyzInDL/tuPhpzv0VsYASNwGQSOVwS2oN8agL4w6DKj6hM1Al9AYFwG4KIg+smw + L+zXmxoBI3ABBI5XBC5TgG05sEuAC4ymT9EIfBGB42sC9uDfFgT5wqAvwuvNjcDfRuD4HoEt6EMFmAD+ + 9mj67IzAFxE4WxEYJYAbgV9E1psbgYsgoGUAVME29UcqwCXARUbUp2kEvoDA2ZWBn75J6BfQ9KZG4GII + PPVbAb5V+MVG1adrBJ5E4KgPsF4PQIuBVjXghxEwAvdB4FAB0DqA7deC9pmAvVfg2YH7eIMtmQ4BKADu + BURwt6BfGoL4ubD9s7ZEGDcQnQ45G2wEboBAVQIwKeyzAcVvBrTg9yKhGziCTZgTgUoB8Hv71YD9bwbE + DIGnCOd0Hlt9DwS4D8DrALjOx+3B0rTg3iS8BxC2wgjMiEBu6G2df/x74FH+jfdnxMs2G4FbIaCZvvp7 + CXj+57r/Vi5gY2ZHgDO+BrsGvoN/dm+x/bdEAIt+RgTgwL/lsNsoI7AjwCTgxT72DCNgBIyAETACRsAI + GAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIAR + MAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEj + YASMwE0R+D/raFAGdB5Q5gAAAABJRU5ErkJggigAAAAwAAAAYAAAAAEABAAAAAAAgAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA + /wD/AP//AAD///8AAAAAAAAAAAd2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcQcAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAh3d3AAAAAAAAAAAAAAAAAAAAAAAAAAAIh2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHh3AAAA + AAAAAAAAAAAAAAAAAAAAAAAAAId3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHgQAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHdwAAAAAAAAAAAAAAAAAAAAAAAAAAAACIdwAAAA + AAAAAAAAAAAAAAAAAAAAAAAAB3dwAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAAA + AAAAAAAACHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiHcAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAiHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAiHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI93AAAAAA + AAAAAAAAAAAAAAAAAAAAAAAIh3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIhwAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAIhwAAAAAAAAAAAAAAAAAAAAAAAAAAAACIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAABuRgAAAAAA + AAAAAAAAAAAAAAAAAAAAAACHZmgAAAAAAAAAAAAAAAAAAAAAAAAAAACIx+xwAAAAAAAAAHcAAAAAAAAA + AAAAAACIfk7mAAAAAAAAAGbnAAAAAAAAAAAAAACIbGfOaAAAAAAADnxs6AAAAAAAAAAAAACG5+bnzmgA + AAAAB+bnbOAAAAAAAAAAAAiHxs5+fOZgAAAA7Ixubn4AAAAAAAAAAAiGbnzn5+zn4AAAaO7H58eAAAAA + AAAAAAh4xuaMjIbOxoAI7H5+yO7AAAAAAAAAAAh2585+fufnbmbsbmzmjnfmAAAAAAAAAIh8bmjI587O + x+x27H5sd+zn4AAAAAAAAIh+bOfnzobn7G5sfmR27IZscAAAAAAAAIhsfsjOhuyM5ufmZsbn5uzuYAAA + AAAAB+duZ+fo535uZ8bH5ncAAAdn5wAAAAAAB4xnzsjsjOzs7m5mxmAAAACMbAAAAAAAB4Zm5+d+bn52 + fHznZwAAAAAA5oAAAAAACIeMbs53fsbs7mZ8ZwAAAAAADnAAAAAACIeAhozn7OfmfOZmcAAAAAAAAIAA + AAAAAIcAAG5shux+xnxmAAAAAAAAAAAAAAAAAAAAAAjm7H5s5uZ4AAAAAAAAAAAAAAAAAAAAAAAIbmzn + Z8ZwAAAAAAAAAAAAAAAAAAAAAAAADOduxmYAAAAAAAAAAAAAAAAAAAAAAAAAAAjG52AAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4/////AAD//h////8AAP/+B////wAA//w/////AAD//D// + //8AAP/8P////wAA//x/////AAD//H////8AAP/8f////wAA//h/////AAD/+H////8AAP/4/////wAA + //j/////AAD/+P////8AAP/w/////wAA//H/////AAD/8f////8AAP/x/////wAA//H/////AAD/4f// + //8AAP/h/////wAA/+P/////AAD/4/////8AAP/D/////wAA/8P/////AAD/wP////8AAP/Af/8//wAA + /8A//w//AAD/wA/+A/8AAP/AA/4B/wAA/4AB/AD/AAD/gAB8AH8AAP+AABgAfwAA/4AAAAA/AAD/AAAA + AB8AAP8AAAAAHwAA/wAAAAAfAAD+AAAAPg8AAP4AAAB/DwAA/gAAAP/HAAD+AAAA/+cAAP4QAAH/9wAA + /zwAA///AAD//gAD//8AAP//gAf//wAA///gD///AAD///gf//8AAP///////wAAKAAAACAAAABAAAAA + AQAEAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAA + wMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAHcAAAAAAAAAAAAAAAAAAAhwdwAAAAAA + AAAAAAAAAAAIdwAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAhwAAAAAAAAAAAAAAAAAAAHcAAA + AAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAIdwAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAA + hwAAAAAAAAAAAAAAAAAAAIcAAAAAAAAAAAAAAAAAAAiHAAAAAAAAAAAAAAAAAAAIhwAAAAAAAAAAAAAA + AAAACHcAAAAAAAAAAAAAAAAAAAiAAAAAAAAAAAAAAAAAAAAIcAAAAAAAAAAAAAAAAAAAfkcAAAAAAAAA + AAAAAAAAAIhmgAAAAAAAAAAAAAAAAACIzs4AAAAABmcAAAAAAAAAh+ZuaAAAAI7OaAAAAAAAAIbOyM5o + AABufO6AAAAAAAiH5+fnzmAI7OaM4AAAAAAIjGznzufObGfs6M4AAAAACI5ujobObn7OVo5nAAAAAAh8 + fsfn5+xmdmjs7OAAAAB+ZuyOzs7H7GcAAIZwAAAAiHxo5+fn5sdgAAAA6AAAAIhw7OyM7G5mgAAAAAgA + AAAHAAhubm7HxwAAAAAAAAAAAAAAB87HZmAAAAAAAAAAAAAAAACH5scAAAAAAAAAAAAAAAAAAAjgAAAA + AAAAAP/P////g////4////+P////n////5////8f////H////x////8/////P////j////4////+P/// + /n////5////8P////B////wP+P/8A/A//ADwH/gAYB/4AAAP+AAAD/gAAAfwAAPH8AAH8/EAB/v7gA// + /+Af///wP////n//KAAAABgAAAAwAAAAAQAEAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAA + AIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAH + eAAAAAAAAAAAAAAIdwAAAAAAAAAAAACHcAAAAAAAAAAAAACHcAAAAAAAAAAAAAB3AAAAAAAAAAAAAACH + AAAAAAAAAAAAAAB3AAAAAAAAAAAAAAiHAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAhwAAAAAAAAAAAAAAhw + AAAAAAAAAAAAAAhwAAAAAAAAAAAAAHZoAAAAAAAAAAAAAIjGAAAAAHAAAAAAAIjm5wAADmaAAAAAAIbO + fsgAB+zoAAAAAIfsjObobsfsgAAACIxujn7Gx25+YAAACG587Ozn5nCG6AAACGzofn5sZwAAjAAACHfs + 58bnYAAACAAACIAIbux8gAAAAAAAAAAAjH5mAAAAAAAAAAAAAAhwAAAAAAD+P/8A/j//APx//wD8f/8A + /P//APz//wD8//8A+P//APj//wD5//8A+f//APn//wDw//8A8P9/APA+HwDwDg8A8AAHAOAABwDgAEMA + 4ADzAOAB+wDmAf8A/wP/AP/n/wAoAAAAEAAAACAAAAABAAQAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA + ////AAAAhwAAAAAAAACIAAAAAAAAAIgAAAAAAAAIcAAAAAAAAAiAAAAAAAAACIAAAAAAAAAIgAAAAAAA + AAiAAAAAAAAAh2AAAGgAAACI54AIZoAAAIaM5n7OyAAAjs5+xnfmAACGjsZnAAeACI5+bncAAAAIcHx8 + cAAAAAAAAI4AAAAA8/8AAPP/AADz/wAA5/8AAOf/AADn/wAA5/8AAOf/AADHzwAAwYcAAMADAADAAwAA + wDkAAIA/AACQfwAA/P8AAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAAAFzUkdCAK7O + HOkAAAAEZ0FNQQAAsY8L/GEFAAAAIGNIUk0AAHomAACAhAAA+gAAAIDoAAB1MAAA6mAAADqYAAAXcJy6 + UTwAAC1mSURBVHhe7V1rsB1Vlfa3v/2T8sdUjYwWNTVO6TA4Vs38sigQR0QjGCUEAgyG8BgIEjBABBJe + BhMgkMSICISXJGggYELEVAKxYFQMQglRfKAlGJTyMUqNlj96+tu3v2bddffu7nNOnz7n3Pulquvce3NO + 7z7f3mvttb712G95i/4JASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISA + EBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgB + ISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBAC + QkAItITAWTtezI65/WD2Lxuezf5+7b5s3vV7snk3PPnmdfXubN6Vj0xdK7dnh1+5LZu/YX/W0vC6jRAQ + Al0isPLhX2UfvuNHbwq4FXgIO4UfP697OpuHV165Aph36dap64IvZ/Mu2pJdtPXbUgZdTqDGEgK9InDO + Ay9nR6zdP31nt4KOnyn8FHb+zf4dCoBKAAoA19IN4bXXZ9L7hYAQGCICpdBjF7cmfWyH9yY/d/6UErBW + AJVArgiOXvewFMEQ51S3FgK1CPz75h9O+fIxofd/8yZ/lVVAZRCzAqgETluTHXn53VICtbOkNwiBFhFY + vu2X9SZ+nfDHdn37Nwq+5QFiloCUQIszq1sJgQoEQOglfXvr11P4PcNvd3z6/mD7SfLBv88Fetp18ups + Hq8TLs7m4cLvfF/xGU2cEBACQ0Lggi3PZ/Nu/l4zMz/lCliB98Qed3b8vQj/lew/lQNJQAo+lQFf878P + 6evrtkJgbiKw+vEX+hd87v6xkB6E2kcBXPy/ZP+pAKyVgF2f1gKsgVwJvOWfP559eKX4gLm5UvWtW0UA + Pj4SdRoRe1U7Pnd6vDLOb6MEdUrA+vzWErAKwCuCVpHQzYTAHENgYMFnFh9eIewbn5t6tZcPA9rkH3wO + v1v237sBJhTo+YIlN++WKzDH1qy+bgsIID03CGmTcF6M4afgU+gh+LzAH6QUgI39W54gxgXErABaAMYS + aAEO3UIIzA0EkJtf7tIU7KaKgH47/H0r8LGfU1ZALBOQFgBfm7gCNnqQK4O5MXv6lkKgTwRA8AVz3wtm + E+GnmQ4BrRP8lBXgx6lyA3xNQIoPMEpAhGCfC0Mfm/0I/NtdEb+cigBWgBVOL6gQRrynqeDb91VZATFX + IJUMxJCgrQ+I5BDM/pnUNxQCPSBw7f6Xs8Py1N0Q04cwet88pQToj+O1H8FvYgWkqgGtG2DzB2AFFIVB + 4dVGBowl0AM8eqsQmL0IhJJcCHxK6FO7M839XIiD8jAKwP/eSDnEXI5YONDmD3guwOYG1CiBD16uysHZ + u6r1zWoRAMlX7vp2569SBDTHIfz5+47Y/EK4R18C7y2GKs4hpQiqXIG8R0BZJpywAs794kMiBWtXit4w + 6xAIvj4E0At+nfBD4PL3/MdtB7P3FRcVwFCUQKp8uKkV4LkA8QGzbi3rC/WIQBBUxuRp+lMZxBQAhLAg + +CD49oISGLoCqHIDbGKQrw5MEYJOCbzn3BtlBfS4hvT2CUTgpId//OaubwXe/uwVQCF8MPUh+EgK8gog + pQT6tgiqsgNTEYFYhiBcgIYJQp+8+h4pgQlc07Pqkb+w7sbs3PPOz85cclZ2xplLsuWXrGhtUYa4PgWd + Kbhe8C0RSEHLhTEm+FQCQ3EDfIqwTw/uJUOw6BcYuIBUmnARGZhVi6mPL4NIUB8f00cGQQBCD0HH69qb + 1mfXXP/58DuUwOmnn5EtXLR4oEkps/lSwh/b/YtdH7s9LyoBbwGQC2jVDYgpgKaFQrE0YZKBVUogrxyc + y67Au9flGZt51uZ1T/xkoPU2iCzMuc+uvva67N77H8h+9vOXs1cPvZZ9Y9dj2a2bNgcFcMbSC7JFpy4O + 11FHHdXXpASiD7u6FX4y754DwPuQtltk8EHQER60SiAm/DEyEOP1bf6nkoNiNQY2Q9CWDFslQDcArzFF + gN3f1ArMxSzBD9713am5z6/lDz3T11qbc8I76BfeunVrhuvAD57L/vKX/wvXU089na279UvZZSuvCK4A + 3ABYAP0ogDK854Xfkn42ClAI00fv/HEQ/KbCXxcNGEgR1BUJNXUFKPxWAaQShHJLYNW9c6dqMFiIEP6i + 5dqg61qfb4jA7XfcGXb/PXv3Zb/74x+zN/76t+yFgz/Kbrv9jmzllVeVCgAWwEeOP74xH4DWXNOSbqwF + wJ+tFWB2fSv8MSXgIwCeBwAfENv9h6IEqiIDtAAYFYDg42cqAiv8sfyAXAk0nMaJfht6O4TUbTZoyV8n + +gtN0sM/uP2hYO7v3rUzCD8sACiCu++7P4NrENyA3AKgAvjUSQtrJ2dabD/G8nseAEKUTzoEv074LRcQ + CwV6MtBn/vWtBHqNCNieA7bpiLUCYglCNjQ4R/iA8rCVYvcHDzBJMjTxz7ppw63BAjj0m/8NCgCKYMeO + HYEQpAIAEXjCJxZkxx77ocrJedf6p2aG+Kw/bXd/w/BT+JsoARsNqAsHNkr9bVo7QAIwViUYcwNiLcQ8 + F8A04YoGIks3PDhrBWLG0Wv5RrB424FZ+33HUlls2bIlEH+HXn215AGgEMADXLjiqmzp0rODBQAlkOIB + MGnBjIsl9Ngdn/9vfP064e+HC0hFA/q2AKpCgrFOwjEykJbAJXdP5QXgtc4KyMnBd316djYTDWslcu4i + ysDHUlBm60PBDcCFKACJQJCCJAIRCVhwylnhilkAH/hyXrXHiaSA253e+v+FmQezD4IdE/46NwD/n+IB + 6sjAgS0CTwjSGvCRAODBIiXLBUAJQPDtFUsTnuWuQNj5WV3p8itmq5yN9fdiJIA8wL7vvhQUwDkr1mYn + L70s+/iic8P1sfnzs82bNpYa+h+v3zm10IvwTaUFUJjJSAbiru4VQMoFiEUDmvABrYUCLWFpS5JjYUFi + QR4glSZMJZAiBW0HoZwPmA1ZgqGLcwV+UAxjLSiz9eFA+iH8BwWACwrg6pvvKRXAR0/5THbsgrODAkCS + EHAozdiYAvAWQMGWQ/htTL+pAmiSB9A0K3AgNyDlCthogFUA1hKIVQzSDYASqOsdMOGhQZzNOMPkdwoU + uQCzVcbG+nshHGhDgU8880pQAGd8dlP2iaVXZ1AAVALYiUI6K31Z7nScTMsD2NN4cuGBAgBTzwSfXhQA + 3usVQV1SEC2AgYU+lRjkCUEKPwW/FwXgTheONhCZ0NBgyRHVNHSV/z8iNQEFYIlAKIAVNz2SnXLxF4MC + OGbxVdmR85dn/3Dexjc729CEpa/reQAr/IVFAAVgrYAYD1DHAVSZ/rGcAN8nYGBlkOoXQOHH//NncgNU + kld8/c3jxNlIFK8+Q9DnCBh34H3LbpmoXTJk+Nm1EHObir+NaPlrWEQCQAS+dPDFQATuP/hGtuy6B7Lj + zr4xe+f8z04JvT0DD79TAWBR0w1gvz4ufLb1KqwCCB9O66UQ96IArAVAIpAWQF04cGChr2sawu9tLQAm + N9kGpTxnkK9UAjYi0KB3wKQ0EEme4UCXyeCGMx0liSNC4Kwrvxh2eeSgn7LmkezY1UXGms9QiykBLGLL + A1D4raYvLAAIoncDvBLg7yQKbRiQSsCTgrGoQF1S0EARgZgVwFTWmBIAJlCUNjxoLYC6qIA/kHTMzxks + yT4r6FwPVIhOacr/H4Hwn3bbrnCaLg7XXLXjlWz799/INj55KFv81bxmH5OHhYkdiQvQKwAmtthdjpOe + CA1CCVhfvhcrwFcG4rMQfr4OvUdAFRcQUwBVhUJUnFQEwJJ4N7ACxrVqsPIAFzZtxatJBIPLNILlryED + m59PBCYNOdnXPHooXKFBp1UA3gXAibdkrXmQJhe73QE9MZhbAoPwALQAbC6AF358F+7+dVbAQK5BnRVQ + lyAEi8BaAeQCrBKo4ALgko1TaBAlvCG+HyP6aPlAgTrBD2FBKYDRKSNMCAQFYRoI//U7D4WfA5HFxWgP + uLRWAHcxK/xFbv+MhWDcAMsDpCIC1gXAe2JRgCYJQa23C2tqBXChkwvwhCCJQU8G0h1oYAVACYxu5bw5 + ctgwfFafVYD4jsSNu78hS5X/P8JZ5CEaVgGUFVqsXkspAG/iUvi9FeAyBCGUVAI+KagJB2CVQa9KoLXk + oFQLc7oCVgCsErAZgjFS0CsAWycwZmcLhDJe4JAK7/HUZQo/3ssMQLNG0CZuhCIwt4cOE5JPDPx+lPHC + AgjlvNDQmEAuOuz84AKsBcAJtoog5gK4OgFLBPZqAXhLoJfiIGvyD2T+2wXtXQHLBeB7WzyaWAF1hKBL + E8Z8dB0axPoIDH9q18f3pmtoa0FswpRJo57bEjjib/+BWx4v2enj1+7NjlvzzezUjU9lR16bp/naWnZv + BeD3KguAiz+SIBQjAlO1Afy7dQNiSqCuTwAFvpXDQ6wC8A1MUwoghpV1A2w34TorwHYQKpTyhbcN/2wB + bA4gjStPaMb3hPBj3r27RAuR5n/+Hu3+I1YAgQgsrABMxjQrAIvbWAGoTDvs0nun/hZb0J4LsKahyQmA + EDIjkBZAlQKIcQBUAlV9Am1xUKuHh3gF4N0BvzPWWQEkBKuUQBUhOOSGorAOQ6l3VSYf5p7pzrESa2v6 + GwUwBstfj4AebB+/+zvZ/A37s4vu25stuXl3dsMDB8LriZ/5Urbgv28KGYHHnZo3CMnTgxsLPxc+Y76m + MrBXN4Cxf58Q5DMDe0kKSlkFjXMELLdR1TTEZgZWkYKx3AB7rkDFGYNwz9oODYKniTL7Pr5P4fe7vlUE + NlfEKBJJ3xghwIxAlAb/+U9/ypgSjEQhKAEoACQMVSoAmnmxaICpE/CFQdzlmQrsU4LrrIBYLkDTAqHG + Au93NqsArCtAhWd3zJgSsJ2DUtmBqR6CCWUwSAMRkL8o767d7S3B6Ym+GEYsA3eW0REbnxb5N0byHx5l + 29e3Z88/eyBUBT7349ezu77104wK4PjTLg9KoJECqMkHiLkBVvitAmDRUJNwYMoCYE5A6wVCMSsgxoz7 + +oAYIQgLwLoBVvht7YXtKxBpM95kTaH/PiI/wBY7PYjgsNv7AqequD6+Q11HJTL/EW6kyXPqPR0jwNJg + WABoE3bP3p9n51x1V7Zo2Y2lG9BIAcQsAPIARcvuuvLgWDpwnRKIVQjGDg7x5n/fUYGUG5ASHOYHWA6F + loAlXZlj4d9PP9t3FXLhQsTW8Z3Qo5FciOVByu/r+YuY9dLLju8Vgs2HMJho9+9YsJsOZ0uDoQC+/j+v + hcIgqwBCrUAVCZjKB7DFQUV5MAQWO5CN/9sy4VRCUCoxqK5EuMrv70sJVPEAqXJh6yYxS47+v8fOZxSy + +Mq2GEvxBNh1C2Wb3Klj+QxWCfD5inMZa3d8rwDwuUi4UCcANZXIjt9nS4NhBbAykKXBcAFCT4BeFIDd + DSuIQMsDpMqCq/oCpITfRgNsZiAXc1+C75ud+nBgKkHGugI2EcgSa3yPVSDeYrAKIHUEOf6Oe1AJ2PZs + qVAm5wr3Z9JScY+ehT+x+yOa0PGy1nBNEcA5AWWPwDf+PI0IRCQAPEAjIjC1k5kd05cH1zUItbUAqeYg + VAKwHCDsqQKh1M7YlzKwgkUrh8lP3hXgjmqr4vge7pSeP7HKAT/DCmBvATZmiR05BqLQJGEFHz+Vwchd + n9GMXEEMHDql1eAwUOVfU2kc0fugAFJEICyAxkSgVQIRK4DlwVaYEYrs1QXw/QHqkoK8FeCbhtSazX73 + Z6swCpcVfmsJcBeviqfj/yxhlrICGHqj65CqHciVALgWpl7jlRfdL/6fP4C1rpgqZhGUClS7/4ikt4Vh + YQWgRyBcgJ/84vcziMD/XJRXA9a5AA0sACwguxgHSQuuSgluGg7sO0uQFoDlOLij2ri/Ffwqtt1aAL62 + gIJluwvZjkKx8GCuJKAkkdATa8PmW6/HDl2JKclKlyBGAuffBWHGFpaobjFMBIZKBBqTFOZoLBzYKxfg + swJ7sQD6MvljFgBz3skFUFDrdvvY/3sOwFoEVqHYkGFde/H8uSj8MUVgU67pRtGFgitAd6ARD2CF37k1 + w1y3undLCKSIQDYJBQ9QSwRyofaYD+CFn4vWVg36UKCvDuQC7jUk2JPpn0oK8v58k7i6VwLeBfAWgQ0X + xghAHxVAqnD+txS2JFw9r2IVaWM+wMb93fdS3n9LAjrs25RE4Mu/mJYRiEjAyRes6y0jkIqAvi0XRWE2 + +zZhsUXaaz6ATw+u6xQ0sBWQ6nVvhZ8/N1EIXuCJIZuGUMBtohCTiPzhIzY/IP8/bwVYa8C7Al6BRvMI + vCKMmf7F3A973er+LSLQWkZgjAtwKbRVacHeAvA1AfZ3T2JV9QrEYm4lK9Artn6F3u6WtADYR9Ay/Txl + mFEEi6XPtuOpRGzsgs/m48R4AItzVbUlCVTrCtQSf/lzafdvUTi7uBWsgGef+V44LdgTgY1TglNEoOUB + ihi1rQ7sxQqwrkFdZWCMDGyqBGZYCRR0m+QSE34Kdi8WAKsD2SeQvRcxlq8/sASktURI0jJzkIeP5JYC + iFe788esACrWmBJNugO+SKj47jrxpwuJbXkMSwRCCQyUEZgKBxbmI4pPvAKIdQv2WYH2dy/8dRmBsVZh + jVwBFrakBNsLelPBh3AzMQhmO0x6KIKU0JvCqmlKIaUE6D4UYcEmVgAbrvpCq1gyVRkVivAZ2v1bFs4u + bmeJwD/8/nf9ZwQ2DAdWtQmLuQEpXqCJFWCbhjK85cNcM5QB4/nc8atM/ZQSiDH+wMd2BmbqbGynb/q3 + mBKgcikauVgFkAoPMr8i5UqVmGE89vpz3xHuXRfrVWO0jAAODA0ZgTkRiMrAXd/5dTgtCJWB7A3QKCMw + RQJG3ACSd1a4UxWCqRoBu1tVJQilqgOjVoAntpoIP/MAUmFA3JPxe6bdNhHwuuo7hiPxjFRWtt4AY+a/ + UwGwIrDKIiCOxBbzBPzIo4QKxsT3VM5/y4LZ5e08Ebj50R+GykD0BgAPgPMCGycExdwAY8bG2oV7N4Dc + QJOoQFWz0FinoGh828fyq3b2prs+fXK2VHN5EVEfn35+E+H3bbgomFQCTgGkFEGsOWsM0zD/CeFHJWKX + 61VjtYwAicBYRmArRCAXf0EE2nTVJkSgD1vZeDYXq80JsLUBtACgeKwbEBRBLInHmtW9+vkFG492ajjW + 6/Kt+6Zq79va8Z1imFbqa60VugEVkQDvDsR4FmIbcPKVfoxE5N+t5eWo23WNAHiAJ5/Yl/329ddDNKB1 + ItAKQL6ILQ8QSwsmMx2LV6eKg1KWAASflkDpy1Lw/aL2sfsYsReL7zMMl++6EHo7f0iJtYU6M5RBr7t9 + quzXZiYWCgDf3btWdVmC3uUKz4vd33/vIocBLcO7Xq8ar2UESAS+eui1kBDE0mDLA8zICPTHhDEc5ZNb + bEKQSQqygpyKBHCxxoTeJgE1yQiE0gmL2VfnxXZ5n/CTSuopCnX+ddVXw46fmpakAmgg/FRa/hQk/E6r + pnRr+JzFc1l2P+b7wwqoisKEluC4V6LkWfn+LQviqG5niUCcGkwiECnB5AF6IgJjPAAWZ2EJNDk2zOas + 15UHxzICbZ57EJCqCr2qnT614+eMPgR/1b27a3fAxdsOTO2gNqRXIfysm/BlzqninfD9bIVioeQs2Zoi + /6gEvCLAWGW1Ip/dcgAy/UclrsMZl0QgLAD0CAQR2HOPwB4SgpgVaE8OsuaqXZC2JsBnr1XlAZSL2J9U + axdyUzMfnzE+fq+zUHIBEcHnLg+23e70MX7DKruwQ8fIwJyAxD3rFAB5ALx6TiBYLVZp2WhHLvxi/Xtd + AWP+fk8EokkoewT2TATGFIHbAevKg1MKwBcIxcx//C0sXqbYxkJ1VSE+z3YXMfwjL797ho/fdFoDF5Cw + ALjjW4G3bo+3gIBNaPDJnd+GBI35b3MlUgVCsdyAac9p+ZvCNVLCT9NZn6D3+dJgHCHeV4/AHqwALEpv + AdAKsKm/dtf3FoDPAQhCweabPovPK4KUb8/PFWRaU1O/brpnnKJTdOOxpn6M7/CYUHkGQaUFYP3//Plj + 9/RmfswtCFYF7+ujF/kYCvnVzfKE/n8qI5ClweAAakuDLRFYkw8QSwv2CzKmBKgAGCmwAhP8fJup5smr + prt+sYsinHfN9v21Pn7TKUeLLF9cYwU1JaA+H4LtvadFFKi0QMIWSoFugLUsPKYW8xkuhVMEuF/T76r3 + TRgCIAIf3bkr84eFQAGcvPSy3noEpmoCIvkA9gjxumiAD1ExhBjMfZ5IQyGn8FslEPP3rblvBP/iu+vJ + vX6mOHABRkCpAHxWpBXMaGiOuzNdK7wi1dhYBeQWmrgCpVJJ9T/I/77xyUNSAP1M+qR8hkQgIgHfP/jb + QAQOlBHoE0gcD8Bjw2JugCcE/S6I30MijCX4KOxeCdSZ/kWBzuFXbstO3/zoUBd5sAJMONRbAFVhuRk7 + v2fnkX0YSRYisciwoK25wM9J4Tf3WrXjlaHiMikyMqufE0TggR88l6EoCKXBlghEXUDjHoG0AGrcAMtU + xxjrWJoqFUEIUcXMfSsUVhHEQllk9vOd87TbdnW2wO0unbIAYmZ/KajMU7DWTUU/f6sAfB1GOB6sJh9B + yT6zWuzf/HLMCEQ2oD8sBJEAXI0PC0m5AYYJJw9gS4RTpi8tgmnmvt3xvclv/y8Ry4ePf8zVWzsTfCKN + A1opdAz9YXf2ZJ/NhCyF39YUWMuGR3VH6gl8XgH5k2kkYkIJIEowR5a/vmZVj0AeGtoTEViTFRhrF25N + YLsLhkw+m8zD1Ff7aoWDu6QX/iKkNwrBtyvM7rzWDfBKgJGSIKzWirG7f6xrUMIVgKIJrlODpCQJ/xzT + CeAAQAS+dPDFzGcE9kUEVmUEFgvU8wA+Xg0lMK1oxws+hd6/esGHMsrNZPj5Pl9/FNNsuQBrBcSIzmAt + WLLPWjfY+VmpZ12DyI5elvX65iOR90r4R7EqRjzm7l07Q2+AFw7+KNQEMCPQEoGNDguxHACJQFt4Y+LL + VACx2oAyF5356D4ubdNf/Q5p4+LYIfNCnYvu2ztW5myMC2DIDoogWD0QTgosBZymf2HNTKvUq1ICNi/C + YmkUAKwDWCEjXooaflQI1GUENu4N4IlAn13nmHCvAEpz30YOfFaaFXr+bCMPueAftnpHhgy+UeFZNa7l + Anw2IIQ/ZA+mdn78vaj5D1jZDkYu2jKtks8So8TMKABl+Y3jSunwmaqIQPAAiAQ0IgJj1YGRykDscCzZ + DSm8WJRk97FYbaFLzALw7L5prT1qP7/JtFkuwLoCYfe3gmw5Dcb8af7TBfBtzGLkp82FcFaAhL/JjM3y + 92zetDH7xq7HMl8ajGPDwQM0PjWYCiCVGmxIKFYHlru+JahSFoBdvKzv7yCRp+3pt1YAlB2UQJmOyx3a + hzPxPbH7M+U5VumY6nVgFYBJzJLP3/bMTuj9yozAvEfgX/JTg/suDa6yAGylGXZ4xuPNgiz94zorgAqm + aLF94q2PjKW5X7UceLT3tOIeYuFj/hBs9P/HxR6Dsd4M1uWyQm+tgsINU5x/QoV1GI+9Z+++QATi1GAQ + gc+88JsZpcGNeQCa4zYc6N0Amvs2fs2fKfwxK8AW7OSCMK5+fpM58lzAjHCfFVq2/WaHYasEYkeR21wB + J/zgHS5+TB19mszRnHpPHRHYOBLA/PyYAqByoHB7X5+hLxJUlvE3fj7CesPK2+9y0md0DfI7P74/dn00 + GWWXYSoBcgHe7E8Jf35vFfZ0ObsTNlbVqcEgAmEBNCYCY1YAFUNs17flrfZnCATN/aJMt8v03WFPIczw + sgmHJ/zoInnhx+5vIwAxBWBDf4VboZLeYc/mhN8fRODje/YORgQyV9/u/lbwKfw+ddVnqFEYCoIPxNc7 + L/zSxPn5TZZEMP1j/jow9Lt+ytz34Vb7e46t/P0mMzHH30MiMGQEGiIQpwY37hFIYWeNPhWBF/yq3yEM + /BzaXOW5+7PB3E8tryPW7p9SAPaCANtDP3l+IHd/hgAZCUkoADXwnONC3cvXJxGIjEAoABKBjTMCrfAz + GhDLPEsJv931i2y3SWT3e8Gc7y0P32C6L/x7mP72qHD6/rQCqCSt8Bd/e/e6Pdnyh56ZlRZTP/jqMw0R + ABH41FNPh0iALw1mZWD0tKDYzu8z06yZ710A+vrstZ/vfm125Wn49Uf2tmAFUPiBAYSfF5SAdQW8FWA5 + gFxxIrowsi+igScbARCBUACp0mBEApJEoI1LY1H6MJ5l9i37zwVc7HAL139tTi7g0u2BsJ+2ZroCoBLw + VgAtrRz7uWItTbaEjfnTgwiEK4BDQ/2pwcmMQDL+MQUQC/d54S/M/bZ78Y051DMe7wO3PD7Ffdjd3/4c + CQMiHHr0uofnpMKctPmdiOctDwv5+cvRjEBYANMOC2FaKrPU2JK7zgIgeZXvaBD8ubrr+0Vx2HW7psx9 + CL63AvD3ghhEx+JxKG+eiEWth2yOAHZ/9AfwRKA9LahsEeaFH4vTFqrElACr9syu3+SUnebfYLLfedHW + b08pAGBJRZArAyhJhEEnodBpsmdAT/+WVI/AaaFA+KTcpfAzLQAoAFgBFH7LA5jQHhb3JKfxDnOZINEJ + 2ELg0ax0NodAh4mj7t0nAlu2bAmnBoMD4KnBJ34m333yMwLec+6NU6YprpNXT73GFAAz1RjaY4JQEd66 + 8Lb0oZp9PrY+JgSEQBsIQNA/vPLucAXGn6moJKQo/FAAJ1xcrQCs4Oe7/rs+vUaEVRuTpHsIgbYRAKOM + ePT8DfuzGx57LVzXPHpoKpyH2LMlpyD8vJiwYolAuAG8il3/g5d/WcLf9qTpfkKgLQSQPYbadDSJWPnw + r7Lrdx7KcDBEqFeHAmBVGgTeKgDvBpAMLBhruA0i+tqaJd1HCAwJgVCfnmejoTnk8m2/LC2AsjV3UwXA + 9NVcUaCd+JAeV7cVAkKgbQSQk47OtFAAMP9hBUAhhPRfFqd4CwA8AN2A4lW+ftszo/sJgQ4QgAJAi+pz + Hni5VAD4uVQAJAKtC4CfTcba+5bdol2/g7nSEEKgdQRCw0m02rp2Z3b82r3ZcWu+GUjBoABA5lW4Adj1 + l254UMLf+qzohkKgQwQq3QCWqTIJqLAEZPJ3OEEaSggME4GkG4A0XpOe+nfHnB+iAf907JIMRUTDfCbd + WwgIgY4QCAUpuRsA83/Jzbuz8zftyW544EB2+R37M3QHOmfF2nBWQOgRuODs7CPHH58tXXq2FEBH86Nh + hEAnCLA0GIeF4NDQ/QffyG6985Hs4lXrsyXLrsgW/tcF2aJTF2cnLvhkdvTRx0gBdDIrGkQIdIRAWRqM + w0JyBYC6gK/tfDK7+gsbswsuvS4748wlQQF86qSF2VFHHSUF0NG8aBgh0AkC03oE5goAgx74wXPZrZs2 + Z5etvCI797zzs9NPPyMogKOPkQXQyaRoECHQJQIsDX7jr38LVgA6BaFa8KpVq7JlF14YFEBwAXIFsPLK + q2QFdDk5GksIDBsBe1gIFACahaJhyDXXfz5bfsmK4AJACYAIhCUw7OfR/YWAEOgQARKBh159NVgAuHCK + 8BfW3RgUwJlLzgqCDytAPECHE6OhhEAXCJSnBqNHYKEA0DUYPMCFK64KCmDhoqlIgBRAFzOiMYRAhwh4 + IhBKAP0CLRFIBSAisMOJ0VBCoCsEPBEIdwDcwOprr8vOO39ZtuCUs0oiEORgV8+lcYSAEOgAAXtYCPMB + oBRABCISgHwAuAAgAkEIdvBIGkIICIGuEIAC2L1rZzg12BKBa29aXxKBVAByA7qaFY0jBDpCoCQCi4xA + KAEQgVYBYOc/4RMLRAR2NCcaRgh0hgCJQGQB0gIgEYjkH0QCYAEoEtDZlGggIdAtAjMyAvOwIFwDKIAz + ll4QfH9YAHABRAR2OzcaTQgMHQEIOw4LQUFQjAikAgARiOzAoT+QBhACQqA7BKAAkAH4yq8PBQWAlOAH + tz8UMgJ9JEBEYHfzopGEQCcI3H3f/dmjO3eFYiAWBoEb8JEAEYGdTIcGEQLdIoDdHtfzzx4ICgAWAEhB + KACUBosI7HY+NJoQ6BwBEIHPPvO9wANACbx08MVABFIBoCiIRCBcg84fUAMKASEwPASYEciEILgDUApg + /dEcBOQfFYCIwOHNg+4sBEaCgM0IhAvw29dfD24BU4LZFwCRAFUGjmSKNKgQGB4C7BEI05+RAKQIo0cg + IgFsECoicHhzoDsLgZEhQCIQ5B8sAFzgBBgJQFEQhF8WwMimSAMLgeEiYIlAuACICsA1uPSyy8pIAC0A + EYHDnQvdXQh0jgB7BIII/MPvfxfyAu684yshJZjtwWABIBlIh4V0Pj0aUAgMFwESgRB8KAA0B0GTUBsJ + gAKgEhju0+juQkAIdIoAMgLBBaAaEAoAbgCIQHQHIhEoHqDTKdFgQqA7BJAOjGgAiEAIPy4UCbEmAJEA + WgAKBXY3LxpJCHSGAKwACD0VACIBaBLKcwJsdyARgZ1NiwYSAt0gQCIQPACUAPICcH6AjQSQAwAx2M1T + aRQhIAQ6QQAKADwAFMBvDv06vN5/7z2BCPSRAJUGdzIlGkQIdIcAXAAw/8gBgAUABQCFQAVAHgDCLx6g + u3nRSEKgEwTA+jMhCPkAUAD79nwrEIEsChIR2MlUaBAhMBoEYAWgIQjdAHQJtpEAVgUeffQx2aYNt4oH + GM00aVQhMBwEQPrBEoACwAV3AILOSECZDJQrABGBw5kD3VUIjAwBEoEQfCgARAK2bNkSIgHgANAcBErg + 2GM/FK6RPagGFgJCoH0EwAGQB/jFz34aFAAShK743OfKSABIQAi/iMD28dcdhcBIEYD5z4QgWABQAvgb + IgEoAlJG4EinR4MLgeEjAJM/8AD5ISGwAEAKggiEz29DgSIChz8XGkEIdI4A0n/ZKRgKgM1BWBQkIrDz + KdGAQqA7BEAEsjCICgDRAdseDDwAr+6eTCMJASEwdAQg/HADUBgEBfD888+HlGAbCSgVQB4OHPoDaQAh + IAS6QwD+P6wAZAFSAWx/cFsZCTjlxPnl7g8eoLsn00hCQAh0goDlAWABMBIwrSgoF34RgZ1MhwYRAt0i + gOw/Hh2OpCA2B7GhwOAG5EpAPQK7nRuNJgSGjgBIP3ABEHwogO8+/VRICSYR+LH5uRtQWACICgz9gTSA + EBAC3SEA4YcSgAJAGBDXnbffHhQATgqyCkAZgd3Ni0YSAp0hYHkAKAAoBdsdCOnAtAI6eygNJASEQDcI + wOSH0NMCQHIQagLg85f9AQs3ANZBN0+lUYSAEOgEAaT/Ih/g6W8/GZQA24QzJZhFQSICO5kODSIEukUA + HAAPDIECAB8Aq+C885eFmoCQDyAisNtJ0WhCoCsEYP5D4LHzwwrAZVOCAxFYhAJFBHY1KxpHCHSIAHkA + hAGhAJASjEgA3ADwAFQAygjscFI0lBDoCgHLA0AB2JRgKAAbCYB10NVzaRwhIAQ6QOCa6z8f4v+oC4AC + iDUHIQ8AbqCDR9IQQkAIdIUAdnXLA0ARrFmzpuwOZKsCdVhIV7OicYRARwggDAgFANMfFgAUgCUCy0hA + QQZ29FgaRggIga4QAA+AiMD+vXuCErjzjq/MJAKlALqaDo0jBLpFAArA8gCwBmxKsHUDoBy6fTqNJgSE + wFARgLDD7If5DysARCBTgk9duLBsDoJcABGBQ50K3VwIdI8AOABcqAUgD2CJQJsRiOSg7p9QIwoBITA0 + BOD/ww2wRKDvDcB8AGUEDm0adGMhMDoEoACQBUg3gERg2Rug6BIsBTC6OdLIQmBoCOBkIIQEqQB8bwB0 + BUJCEBSAiMChTYNuLARGgwAUAE8OtkQgagJABFIBQAmgVmA0T6lRhYAQGAoC8PlB/O3YsSNEAmAJwC1g + k1AbClSPwKFMgW4qBEaHgCUC6QZYItBGAsQDjG6eNLIQGBoCM4jAokko3ADbJFSlwUObAt1YCIwOAfAA + IPjqiEApgNHNkUYWAkNDgBmByAT0RCBcABGBQ4NeNxYCo0cAPv/69euTRKBVACICRz9fegIh0CoCIAIR + CWBlIFwBKAVEApAQJCKwVbh1MyEwfghYIjCUBjsiMKQEqzR4/CZOTyQE2kAgEIFFizBYAKnTghQKbANt + 3UMIjBkCVUSgPy1o+SUrlBE4ZvOnxxECAyHQCxGo0uCBoNaHhcD4IUAiEKXBTAm2GYHhrIDitCC5AeM3 + f3oiITAwAj4jEFWCPCwE4T9bGTjwYLqBEBAC44WAzQgkEQgFwFODWRgkC2C85k1PIwRaQcASgTwshD0C + fUYg/t7KoLqJEBAC44GAJwKRGowEIR4bbnkAZQSOx5zpKYRAawjUEYGBA1CLsNbw1o2EwNghUJURWBKB + uRIQDzB2U6cHEgKDI+BLg9EwFP7+olMXT9UEyAIYHGTdQQiMKwIQ9liPQEQCfI9AEYHjOot6LiHQJwLs + EWh7A9jDQkKHoKIoCKRgn8PoY0JACIwjAr5HoC0NhgVgFYA6BI3jDOqZhMCACDQqDS7SggccSh8XAkJg + 3BCwh4XAAgARaE8NZm8ARQLGbeb0PEKgBQQg7OACLA8ApcCEoDIfILcC8PcWhtQthIAQGBcEmBEYIwJ9 + JEAZgeMya3oOIdASApYItKXBNhQIwYcLIDegJdB1GyEwTggg9MdTg598Yl+yR6AUwDjNmp5FCLSEwOpr + ryt7BMIKYEYgugQj/i8isCWgdRshMI4IsDSYpwWBD2BpMNKCRQSO46zpmYRASwiACMT14PaHyhZhsAp4 + arCtDFSPwJZA122EwLggAJMfPECqR2CqNJhWAhTFuHwXPYcQEAI9IoB+gKmMwFhlIFuH2eYhqB7scVi9 + XQgIgXFAAKa/zQgkEYgzAcrjwkxpMAqEPnXSwsAN4IJboGKhcZhJPYMQ6AMBhP5ipcFQCjDvKewQdOYD + sFcAlcB55y+TBdAH9vqIEBgLBED6gQjcsWNHCANS+KEAYOrjldf73//+DBeVANyEsfgSegghIAT6QwAc + AEx+CDsF3gs+LAEI/uGHHz6lAPL6APytvxH1KSEgBMYGASgACjx2dCoCCDjM/ve+973Z2972tuztb397 + qQAk/GMzfXoQITA4AmD3QeZhh4ew53cMr7wg/O94xzuCMpDZPzjeuoMQGDsEINgQcgj/W9/61nLX584P + v3/sHloPJASEQHsIIDWYOz3MfzD9sA7aG0F3EgJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgB + ISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBAC + QkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICIGRI/D/wsPX8EdPD0UAAAAA + SUVORK5CYIIoAAAAMAAAAGAAAAABAAgAAAAAAAAJAAAAAAAAAAAAAAABAAAAAQAAAAAAABEREQA+Pj8A + R0dHAExLSwBOTk0AVFJSAFZVVQBYV1cAXFtaAGBfXgBhYWAAZGRkAGloZQBubm0AcG9uAHFwbgB7dG8A + c3NzAHR0dAB8eHMAeXl5AHx8fACEWRkAhlwZAItdGQCNYRoAkmYZAJRnGQCSaRkAlWkZAJlqGQCdbRkA + oG4ZAKFxGQCgdBkApXQZAKh3GQCpeBkArXoZALJ9GQC0fhkAkGkqAJFtLACjdygArn89AJJrTACVbU4A + nHVDAJx7RwCffkgAnXZcAKF8UwCmf1AAm3liALWAGQC5ghkAvYMZALuFGQC9hRkAv4gZAL6JJQC2hy8A + vo0tALyPNQC/kDIAwYgZAMWKGQDGjRkAyY4ZAMyPGQDLkRkAzZEZAM+UGQDNlB0A0JIZANGUGQDVlhkA + 0pccANiXGQDVmBkA1JgfANiZGQDamx0Aw4sgAMGNKADEjygAzpQlAMeRKQDJlS0A0ZYgANKYJQDamyEA + 2pwhANqbJgDRly4A15kqANeaLgDbmygA2pstANucLQDHlzYAx5o3AMqZNgDMnD0A15kxANWfMgDbnDIA + 3J0wANucNwDcnTYA15o7ANqcOgDcnToA2pw+ANydPQDapjYAroFFAL+WQgC+lUQApoFZALGGVgC7mFAA + m4BoAIKBfwCbhXUAupBgALaYYgCxmG4Ap4l3AK6LdACrk3oAs5tzAMWaRwDKnUkA255BANyeQADZnEUA + 3Z5FANmdSQDen0sAy5hbANedUwDTo0AA0aNHAN6gQwDeoEUA26xHANCkSwDeoEgA3qJMAM6kUADCoV4A + 3qJRAN+tVADZoFkA4KNRAMqeYgDFpmcAyKVjAM6ibgDTr2UA1rFnAN+4ZgDWtG0A2bRoAMKmcwDGqn0A + 17d2AOC+dwDiwHoAhYSCAIWEhQCKiooAiouMAI2MjACTk5MAlZSSAJmZmwC2nIsAoJ+fAL6rnwCgoKEA + pKKgAKKjpAClpaUAqqqqAK2sqwCxqqQAua6nALGvrwC+tK4ArK2wALKzsQC0s7EAtLSyALKytgC0tLQA + ube2ALa4twC1trkAubi5AL28uwC9vb0AwquEAMq2qwDAv74A2sGsANLAtQDaxbMA3MWyAN/ItQDRxb0A + wcHBAMLCxADLxsIAxMjIAMvLyADNy8kA087LAN/RyQDV1dIA39nVANrZ2ADe398A6urpAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAA + AAAAAAAAAK8LBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALACAQMA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALasCa8WFgAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAycATCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAtskLDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAtsgIrwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtrYJAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtq8LAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAthMPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAC2ugsTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAC0ugavAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC6tgYAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADJsgYAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADWrAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAANbWExYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAALrJCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMPDCwAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM65CgAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN2wCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAw+GsEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAxuEQrAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyd8NAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2NYPAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACnz30UAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABmjhwrAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACdjRkeJswAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC90zAmPEZ6AAAA + AAAAAAAAAAAAAAAApn8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADX0nU7QkxSVQAAAAAAAAAAAAAAAAAA + NyE7hQAAAAAAAAAAAAAAAAAAAAAAAAAAAADbgjc7O0JLTEx3AAAAAAAAAAAAAACURiU3QkalAAAAAAAA + AAAAAAAAAAAAAAAAAADUMzs7O0ZaTEtMVJ4AAAAAAAAAAABhUEI7QktGkwAAAAAAAAAAAAAAAAAAAAAA + AMPNLjs7O0ZwmV9LS0tBAAAAAAAAAI+RkUxCS1BaTJoAAAAAAAAAAAAAAAAAAAAAAMPSeDc7QkyRjIyL + R0JLRj8AAAAAAFKRmXBLQnGckUyjAAAAAAAAAAAAAAAAAAAAAMmzNTs7QlCMjIyRkUtCQktCmAAAoUxS + cJFQS4yZmVBGAAAAAAAAAAAAAAAAAAAAANqBLTtCS2GMjIyRcXFiSUJLRkJBO0tLTExMO4uZjJFCWQAA + AAAAAAAAAAAAAAAAyd42Nzs8S2+Mk4yRcGtTUlBLQktCQkI7Ozs3JpmZkWxQQqUAAAAAAAAAAAAAAAAA + x9wuOztCS5GcjJGRcWRSUlBQS0JGQkZCNyEcPYxvaVJSS0IAAAAAAAAAAAAAAAAAv9B5OztCUIyMjJFx + cF1SUlJMS0s8Ozc7NyE+a1tLPEdLS0IAAAAAAAAAAAAAAACfoH4jO0JLYYyTjJGRbFJSUkxMRjw7NyYh + HDEAAAAAAGZCR0tmAAAAAAAAAAAAAAB3myEXN0JLcJmMjJFwZFJSTExLQkI7JiUeKwAAAAAAAACoVUJC + AAAAAAAAAAAAAACDtTQeN0JMjIyMjHFwXVJSTExLQjw3JiEZAAAAAAAAAAAAAF9CpQAAAAAAAAAAAAC+ + 3xR7hkxMYZmMkXFsUlJMTExGQjsmIxyAAAAAAAAAAAAAAABoaAAAAAAAAAAAAAC62g28AKpQS1eRkXBk + UlJSTEZCOzcjHysAAAAAAAAAAAAAAAAAlwAAAAAAAAAAAAAAtqsAAAAAakxHX3BdUkxMTEJCNyYhGQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlLREJLUFJMS0I7NyEchAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAj0JCQktCRjw3JSExAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAABZQkJCNzcjIRcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AKVYQjw3LAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAP/+P////wAA//4f////AAD//gf///8AAP/8P////wAA//w/////AAD//D// + //8AAP/8f////wAA//x/////AAD//H////8AAP/4f////wAA//h/////AAD/+P////8AAP/4/////wAA + //j/////AAD/8P////8AAP/x/////wAA//H/////AAD/8f////8AAP/x/////wAA/+H/////AAD/4f// + //8AAP/j/////wAA/+P/////AAD/w/////8AAP/D/////wAA/8D/////AAD/wH//P/8AAP/AP/8P/wAA + /8AP/gP/AAD/wAP+Af8AAP+AAfwA/wAA/4AAfAB/AAD/gAAYAH8AAP+AAAAAPwAA/wAAAAAfAAD/AAAA + AB8AAP8AAAAAHwAA/gAAAD4PAAD+AAAAfw8AAP4AAAD/xwAA/gAAAP/nAAD+EAAB//cAAP88AAP//wAA + //4AA///AAD//4AH//8AAP//4A///wAA///4H///AAD///////8AACgAAAAgAAAAQAAAAAEACAAAAAAA + AAQAAAAAAAAAAAAAAAEAAAABAAAAAAAAR0dGAFBQUABWVVUAY2NiAGRjYgBmZmYAa2ppAGxragBubW0A + dnV1AHl5eAB8fHsAkmAZAJNiHQCaZhkAnGkZAKFsGQCmbxkAqXEZALB2GQCxeBkAtHoZALZ8GgC5fRkA + vX8ZAIxfIACTZSMAkms2AJZwPQC0fykAoHxKAIN6dACFfHUAu4AZAL2AGQC+hCMAwYIZAMKFGQDEhRkA + w4YcAMiHGQDBiBkAx4kcAMmIGQDMihkAzY0ZANCOGQDSkBkA1ZIZANeVGQDSkBwA25YZANyXGQDbmBoA + 3pkZAN+cGQDYmB0A4JoZAOGeGQDFjCYAyYsgAMuNIgDGjioAyo0tAMyQKgDJki8A3pojANqZKgDfnSwA + ypQzAMyQOQDPmjoA0ZYyANGbPQDfnjoA4Z0lAOKfKgDhni0A4p81AOGfPwDdoC8A46AuAOOgMQDkoDgA + 46A/AOShPQDmpD4As4tHALSESQCqhlAAuotbALigfgDKl0AAyp5MANOfRQDKn1UA2atUAOWhQQDjoEUA + 5qJEAOekRQDnpEkA56VNAOemUADgsl4AwZ1hAMWacgDLpGAA0qxpANawagDZsmsA3LVrAM2tdQDYtXMA + 3Ll5AOS+cgCBgYMAiIeIAJGRkQCUlZcAl5eZAJmZmwCdnZ8AvKqcAKakogCqqqsArquqAKysrgCxsK8A + v7avALKysQC6ubcAubm5AL69uwC6v74Avb29AM2qigDOr40A3b2BAN+/hADYuJ4AwbKoANe4oQDpx4UA + 6siLANTArgDYwq8AxsC8ANvGtADfybQAwMHAAMTEwgDIx8YAxcnJANDR0QAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAsDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAACDegEDCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH53BAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAfnULAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+CQAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAHoJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDeQQAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIF3BgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhXYLAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACFCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIUJAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYhQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIWECQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmX8LAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACb + dwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABeQBpaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIqKECZqAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAlI8YLDdCAAAAAAAAAAAAFxRdAAAAAAAAAAAAAAAAAACYaxgmMTcxYAAAAAAAAHAxIywxkAAA + AAAAAAAAAAAAAIJbJiw3YzExPXEAAAAAU1cxMUw3kQAAAAAAAAAAAACYjlkmLFNmZkQsMT8AAHI7Vzcw + ZmMxAAAAAAAAAAAAAIWVHiYwUGNjU00xMSw9KCwsMSZoYzdKAAAAAAAAAAAAmo0YJjJlZVdSOzsyMSws + LCMRKGNSNywAAAAAAAAAAACTaxgsTGZjU1I7MjcxLCMjElh0YUYxMV8AAAAAAAAAbEcNFyxTZmNTUjo3 + MiwoFxEcAAAAAIs9LAAAAAAAAAB8kh0kMVBmV1M3NzIwLCMTDQAAAAAAAABCcAAAAAAAAIWHIABRMVBQ + Ujs3MS0mFBBcAAAAAAAAAABuAAAAAAAAAH0AAABpMDEyOzIxLBgRHwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAASSwwMCwlExsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi0gsJhQQAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAABzbgAAAAAAAAAAAAAAAAAAAP/P////g////4////+P////n////5////8f////H/// + /x////8/////P////j////4////+P////n////5////8P////B////wP+P/8A/A//ADwH/gAYB/4AAAP + +AAAD/gAAAfwAAPH8AAH8/EAB/v7gA///+Af///wP////n//KAAAABgAAAAwAAAAAQAIAAAAAABAAgAA + AAAAAAAAAAAAAQAAAAEAAAAAAABqamkAbGxsAHFxcQB1dXUAenp4AHx8ewB/f38AnGoeAKZwGQCrcxkA + rnYZALF4GQC0eRkAuH0ZAL9/GQCbcCwAlW42AKV3NACfeUAAh3xzAL2CGQDBghkAwYQZAMSGGQDDihsA + x4sfAMmKGQDNjBkAy44fANCPGQDQkRkA1ZIZANWUGQDYlRkA2ZgZAN6ZGQDgnBkAyZEuANycJADQlSkA + 25koAMyVMwDPmjYAz5s5AN6cMwDhnicA4p8qAOGfLADinzUA4J84AOOgOwDloj0AuIVBALuIQgCzjU8A + t49NAL+PWACPg3oAtJVrALSadQDMnEYAxp1LAMudTQDapkYA1aZJAN6xXQDioUAA5aJBAOWjRQDmpEgA + 5qRNAOinUwDhslcAwJhtAMmfeADHpGkAy6dpANetYgDQq2UA169mAMmkegDPqXwAz7F7AN65cwDfvn8A + hIWGAIqJhwCOjYwAj4+RAJKRkACWlpUAlpaYAJqZmQCcm5sAn5+fALagkACgoKAApqamAKqrqgCsrKwA + tqykALiyrQC1t7UAvLy6AMWigADcvYMAwbKoAMe1qgDNvbIA4cCCAOHCiQDBwcIAxMPCAMPDxQDJxsUA + ycjHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAXAZfAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAFbAAAAAAAA + AAAAAAAAAAAAAAAAAABwWQQAAAAAAAAAAAAAAAAAAAAAAAAAAABkBl8AAAAAAAAAAAAAAAAAAAAAAAAA + AABhBAAAAAAAAAAAAAAAAAAAAAAAAAAAAABhAQAAAAAAAAAAAAAAAAAAAAAAAAAAAABkBAAAAAAAAAAA + AAAAAAAAAAAAAAAAAHRcBQAAAAAAAAAAAAAAAAAAAAAAAAAAAGhYWwAAAAAAAAAAAAAAAAAAAAAAAAAA + AHBXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAUAAAAAAAAAAAA + AAAAAAAAAAAAAAAATzUQOwAAAAAAAAAAAAAAAAAAAAAAAAAAbGkOGgAAAAAAAAAAOAAAAAAAAAAAAAAA + cEsOIiI/AAAAAABBGBhCAAAAAAAAAAAAZjkYIkUjHU0AAAA0IyIwSQAAAAAAAAAAZTUYKUdFIyImUz0j + Ix9II24AAAAAAABtbBUdMUUzMCMiHh0YDBo0IygAAAAAAABSSg4eRUUxJSMiHQ8KOABUKx5VAAAAAABL + EgwjR0UwJSIeGAoRAAAAAE8sAAAAAABnOj4nLTQwJB4dDwgAAAAAAABqAAAAAABoZAAAQCIiIh4YCTwA + AAAAAAAAAAAAAAAAAAAAAG8qHRgKEwAAAAAAAAAAAAAAAAAAAAAAAAAAAE5NAAAAAAAAAAAAAAD+P/8A + /j//APx//wD8f/8A/P//APz//wD8//8A+P//APj//wD5//8A+f//APn//wDw//8A8P9/APA+HwDwDg8A + 8AAHAOAABwDgAEMA4ADzAOAB+wDmAf8A/wP/AP/n/wAoAAAAEAAAACAAAAABAAgAAAAAAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAKBuGQCseh0AsHkZALN9GQCMYiIAm3EtAKF3LwCWelAAu4AZALCFNgC4iTQA + wIUZAMWKHQDKjBoAzZAfANCRGgDUkRkA25UZAN6ZGQDgnB0Aw44oAMuRKgDWmSUA0ZU1ANiaMgDgnCIA + 4p8pAOKgMwDloTIA46A1AOOhOgC2kFAAu5dWAK6RYAC0l2IAvZ1iAKOPeQC8oG4AuqBwAMycSADRn0gA + xaFeAOGkQwDmpEkA5LFYAMCibADCpW8AzapuAMiteADKr30AmpmZAJ6dnQC0nYMAr6aYAKKiogClpKMA + paSkAKqpqACtrKsAtq+nALSwrACxsbAAuLazALm4twC6uroAvLy8AMXAuQDDwsIAxsXFAM/PzwDa2dkA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAA////AAAAAAA6NAAAAAAAAAAAAAAAAAAAOjoAAAAAAAAAAAAAAAAAAD5EAAAAAAAA + AAAAAAAAAEc5AAAAAAAAAAAAAAAAAABENAAAAAAAAAAAAAAAAAAAQTkAAAAAAAAAAAAAAAAAAEE+AAAA + AAAAAAAAAAAAAAA9QwAAAAAAAAAAAAAAAABGNSgAAAAAAAcmAAAAAAAAQTAdFycAAC8PDSoAAAAAAD8p + LB8OCiMVEBYYMgAAAABAGSwdFBAMCQYgCwIAAAAAPB0sGxQQDAUAAAAkMgAARDYtKxoSDgElAAAAAAAA + AEY5ACEEDAQIAAAAAAAAAAAAAAAAAC8iAAAAAAAAAADz/wAA8/8AAPP/AADn/wAA5/8AAOf/AADn/wAA + 5/8AAMfPAADBhwAAwAMAAMADAADAOQAAgD8AAJB/AAD8/wAAiVBORw0KGgoAAAANSUhEUgAAAQAAAAEA + CAYAAABccqhmAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAA + gOgAAHUwAADqYAAAOpgAABdwnLpRPAAAWCVJREFUeF7tfQmYVdWVdZLuJJ383el0Op38VzNqujuJ3Unb + f0e7Y3cSBxQVGQRkEKhCZpB5qoIqphqAoqqYiyrmwQFRQZR5HkWZZXCeDQ44K6AynX+tfc++77xbDxsV + kHrv8H33qwJqeHe9u/fZe+219/7KV/wfj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPg + EfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPg + EfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPg + EfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah6Bc45AUPjAX5zzX+p/oUfAI3DuEAgKF/4trr+BsX89KF50WVC8 + 5KZg+NKb8bFOMPSBOkHR4uxg6Pw6Qf68FkHO7KuCvlMvDrpX/J9z9wr9b/IIeATOCALBsAVyosPYvwUD + rxuMWNYqKFpSGZSs2RyUbdgfDF/1WjB89QdBybqPg5FrPwpK1h7Cv30SDFv8QTB44cfBwPveC3Luej7o + O/PBoHtly6DLmN+ckRfmf4hHwCNw9hCQE77ooX/CdV1Qsno0DHs1rg+DUeuPwthP4DJyjVwbXiX8uCZx + Fa80wbAlJhj0gAkG3muC/neZoOeMj4PbJ70cdBk/PGg/6k/BbUXfOnt34H+yR8AjcNoI4KT/mpz0RQ/9 + czB8eXtcU4LSDa8EpRsPBaM2nIThG7lKeNH4afQxJ0AHMHx14ipcboKhi0yQP98EOXNN0Ge2CbpPNcHt + lSeDzhPeC1oPHxi0LvBO4LTfJf+FHoGzgEBQ+OCPcF2OsH5mMGrd0zD8YzD6E7hg9O4VdwLWAYgzcCKA + EY4jKFhqkAogCrgPTuBuE/SeFTqBLhUm6DT+WNC+bFGQXRCchdvyP9Ij4BH4NASCokX/BfKuKYx+T1C2 + 6b3qBp/CAeipL9GA4wA0FdA0gJEAP5dUYHGYCuTOM0G/O+EEZpqg22Q4gYkm6DDGBG1Ld8AJ/MS/Wx4B + j8BZRoBlOpz2/xyUrBoPwz+AEP8TXOFJXxozeP5d/08iAUYA+BilAeoALBcQcQKMAFaZYMiD9vS/P0wB + eOXeY4K+c0zQY7oJulYxCoADKDdB6xEPB9nDvnGWb9//eI9AZiIQFD34feT3l8LwJ8LQXw7zemvgccPX + sF//Pfp/5QAcLqBoRWjoA2nYCO+7TTJB57E42UcbhPcw7hIT3FZsgqwCE7QYbIKmeSZoPgifD8G/j8LX + 4Os6jrNOoDg3M98df9cegbOIAOryfwpGrLwLYf67ONFPyknvGn3c0D8tEmBYz5A+Hzl9Pxh8b5zkfWfg + cxB8POGZ7/MatABOASc/T3xWAHjq98TXMfRn2J813AS35Jigfk8TNOhlgluHMhX4JGhd+G9nEQr/oz0C + mYMARDq/wYk/Iihd/zYM/0Rk9KkcgOsE4g6B+X3hMhg9ynm5yOEHwtCZ0zPPF8IP4T4jARJ+BSj9DXko + /H+y/ywB0gn0uwNVADiMntPC0L8z8n89+VsWwhH0MF/5bSM4gsGrkQp40VDmPKb+Ts8kAgj1/yIYvvgn + YPTHweCZ44cnfpzRP51/YxlvME7xPJB3g3Hi0+BHb0nwAsIFwDnw30n28esL4QQYITAtkCgA3zcA398f + FQBGASQAw1IgnMAEOAGkC+QAbkOqQEdQt/vhr/xL3V+fSUz8z/IIZAQCwYilFwclKzsE5Q+/EZRvhuFv + ShhrqpBfiT/3/yTExwmeh1Obxs/Tf/wOGP4j4TUGV9lm/Fz8bCUGNQoQJ4BIgVGAOAGkAhoFMD1gBUAJ + wO5T4ATIF8AJdKATAF/QemSYGrQYMjkj3jB/kx6BM4FAMHLpXwWla5oFZRt3wPiPioGWWeMni68h/6fl + /SLagcHytC/C5xN34dodGv/47SYYuzU8/ekEyh9O/Hxl/jUKYCrAKIBOYKhNBfLgSJgKqBOgIEirAKEe + ICQD21gn0AqkYbOBN58JbPzP8AikLQLBqOXfDkpW/Aqa/DlB+ZYjScYppzTLe3QA1glE7L7jFDTMH4Jw + nad/xV5cj4XGrxcdAC+NAtQJaBQgTsCKf6IoIJ4KwAlIKmAJQU0FujIVIB+gqQAqA4wCWhUeCJrmem1A + 2j69/sa+EAJB6aqLQO6VIyQ/AMM8GRo/TmiezuWMAGJRQFKdH7k7T2nm9czTebJPguHzogOYSAdgI4Ck + KGBbwgnIz6eTsfoAOgGRAYMQpFNRQpBSYJcQlCiAhCCigJ6oILAqwFRAogCKgqgJsKlAy6HLvhBI/ps9 + AumIQFC+/hYY/j6E5SeCMY9ao6TxWwcQGaeTBujpT+Mkm8/wnN9btd8ElfusA8BHiQDoBBwHMAGfaxQQ + /T46HI0yKA6yYiA6AUkDLBdAByCEIKoCTAVYEaAkWKsCSgimSgWyio8HzfN7p+N76O/JI/CZEcCp/w/B + 2IeHIS//WAySxqiXm59Ljq4ntHUCEurbE58GPRmGT+NXB6BOgMbPSOCUUQC4ABKB+vuUa6BKkIShWxaM + CEE4AdEGsCyI16DagD5WGyCEYCwVaI2qQPYIpAJFbwVNB3htwGd+Wvw3pA0CMPxvB6M3tILhPRKM33lC + CDle7mks+bkTBdAJMEfnyUxybwhO4LHbzMVTHjcX0vgnP55wAjR+cQAaCTAK2OPwAIwGnCjA5QI01RCJ + sBMFxLmAT0sFSAh2s06gE6sCTAVICMIJkA9oOeyRoEn/v02bN9TfiEfgdBG4YPTaXwRjt8wJT33LyCsr + D4NOcgI8mYUDsCy9iHJg+DDYS2H4NP6LYPh0AOIEqmDwGgmoE9AUICUZ6FYEbFlQuAdNBWyDkBCCVhwk + UQD4BjqASCHIKMASgnGBEFMBCoRYFWhbmuADmg8ac7qY+a/zCKQFAsGYDTcG47c9HUzYdTJRjmNJDoYv + UYB1AEl5OYyfxkdjQ3j+39OeNJdPfcJcPuUJc4l1ABepA0iZBjg8gKQCTjXgVFGAOgASghQHSWegOgFL + CHI4SFIUwPZgRxtAmTD5gEglaKsCdAKSCrA0mFc/Ld5YfxMegU9D4Ofla74VjN8yEIZ/BCE/CDhcLhE3 + 1nECavz8KOE+Tlrk+3+E4f/31PC6Ag7gMjoAnP6MAKI0gPl/PAJgGpAUBbipgKsLgPMh6ajpALkAFQZF + ZUGNAugErANQhaAQgogCtCrAOQGUCUubcEwgRJVgti0NNsn5B//0eATSEoGLy1b/xU/HrP+XYMK2RTh5 + T0SGL8ZPR8AQ3F4aAfAjDdGG2pdW7hXj5/U/1glcASfAKODfcdEBqBO4QLiAGBGoXIA4ARp/TBMgZUHr + gFQZyI+R7kDLglYiXAR1IIVFUVUA1QdGJ6IQdAhBkQlbJ6CEoAqE3FSgxZCFafnmn+ZN6YzG0/xy/2Vn + GoF9e/de0TIre1FW69vewMf3m93a4v2GjW/ZfnOjxld8kd/18/K13/vJ2M1tgok7D0jYTaOPDN9GAUkc + gFXnUYvPkh6cwFUw+KunPyWXOoEwAnhSIgBe6gD4MXIAcUfgagJEG6BOIJU60OECIolwjAvQPgFyASIR + tgpBdgvGFYKaCohMmANDrEyYrcNhVeBjlAY7fRGsa+r3YpbD1zDE5UY0eA1Ba/dFNfU+auTr7ti5y7qc + gfknRpaWm9HjJpiikSWm/4A807FLV5N1WxvTvEUrAyfQ7fPc3E/HrLskGLflPhj+UTF65tpq/OoI5O9K + AuIjiT6eqsj368x42tSG0deaQeOnE0AEgNM+SgPgGKI0IEYGSgSQKhJwnYBEAo4uQLgA+1ri6sAoErBO + IJII2yhAuYCklmGmAlYbIFFATCBEJ0CZcOQECl+DSvC3nwfrmvw9GOTy72i+eh2Cq2Po0yiqyfdSo177 + 4KEFR++ed6956plnzYHX3jDLV64yY8ZPNAPyB5vO3bqbVq3bmBZZrc1119U211xzzfc/y81dOG7zzSD6 + nofxn4xOfY0AxNCsM1CHQOKPJBsNCaF4nZlPy0UHwEsdAKOBP+LkZxrAS9IARABMBVweIKwG2IqAVgL4 + d9UDRMIgJQNTRAGiC9AypK0IRIRgTCIs3YK2TyDSBmjLcFwmjLbhSCCE0qD2CpAPaDlsY9Ak5+8+C9Y1 + +Wsxpfkf4Oy3iax7+OqTEHP5qsi5eEMH5OVPo/HvemyPOXb8uDlhjFm/abMZX1FpBg4aYjp37W6y27Qz + LbNbm9q1r6cD6Hi6r+vnEx7pipP1o5Bpt4YenbSO4avxs87PUx8Me12c+jfi4umvEcD1dACaBjg8gHIB + v1cy8FRRgCsKojOoRga68mCmJSl6BDQCEAdgewR0NqAoBLUq4LYM21QgEghRJoyqALUB7uwAlgYZBVAq + TCfQfFBpcEu/tN9EBOP/HqY03yFTnIhr4fKTQd7cNqf7nPmv+wIIwAGsunPuPWbt+g3mjbfeNh8dPW72 + 7H/cTJk+0wwpKDLde/Uxrdu2Ny0RAdS5qS4dwNJP+3W/LFvzF78eve7vfjLh0SoY/fGkfF+MXx2BwwOM + RbjN8hpy6F9X7DJ1ceLzEuO3EcD1SWlAdR6A5UDlAS61XEBCFKRkIIye2oBIGGRlwREh6JYELRmomoQo + CrC6AJUe6wjxpJkBcGLkAuJlQTYLMRXo6w4PsVUBEQgpH6AqQZYGB1z7Bd7e8/5bkfd/OyheVhFNaRYH + sPR4MOz+H573Lz4dXmDX7j0KKqomm5Vr1ph3P/gQ578xrx9809ApFI8cZXr26WfatO+ICOA2c3PDxnQA + L5zqvi8cufSbQfmaumD59ybq687Jr/m+6wTI8pNFR9hfH8Z+Ewydp784AHUC+DsdACOAa50ogClAvBzI + NICiICUDmQKEZCCUgTT+VNLgqEHIJQO1MkEy0nYKqhOQZiS3LGgrAiQDlRBkGhANDrF9AtH0IMwNYLOQ + dAzaKEAFQlQJSipgS4MtC1+GSjAtJwjh5Mc2pqX5dkx72HhFh1q47LWgZJnscfB/zgEC4ysmnVi1Zq15 + 4+13xAG8f+iweeChRaakbLTplzvQtO/YyWRlZZsmzW81tWrV+iTVS8KbGWBYR28IeN6Vkp6e9m7I77L/ + /Hfme2TOccrS+OvPekYujQDoDOIcAIlArQa4lQDVBFxuKwLKA6gyMCwHxhxAlAaABJRqQFwebHUBdABu + U5KUBXUYiSUDdVcAHYA7PmyYoxCkNkCjAA4P0bkB7vAQqgTboWMwURo8GbQYOvccPAbn9FcEBQ/8JVaw + 9cXJ/3HSRCdWfYqWfmqUeU5faCb8srHjJzy1ZNly8+dXXxMHcBREwKo160zZ2IkmJ2+wad+lG4jAtqZV + qyxGALy+5+ISDL73gmD4yodgFMdEvUcGXdn+yBFYHoB/Z8hvN+yo0bsfJQqw0cCNMPjUacCT4ghOpQlI + qAJj0mBxAqdKA7QkaFMVlgdFn2B1AW6TkPYiyEwC1wm44iBbFtTBIe4MwWiEmNUGdGUqYIeHcHaAWxXI + Kj4MlWB20GpoWvABCPv/CnsY2+K0PxwOc3HmOYxcczIoXFySCXZ33txjyajS++cvfNA89exz4gBOnDhp + Ht2+y4yeOMX0yysw7br0Mk2zOpnmWW1RCbjuOBxAa33xQf49v0POthPlGxA4eCMZ0ic5AJcAxOc8PUn0 + 4US9CcYdnfw2Aqhn83/+n5sKkBBkCsBUoNa0MArQSoArCmIkwEoAeQDtDQijAKc5KO4EePJHhKCWBK0T + YNTCCEC7E+ONQjKWLEWjULWWYXYLLggnCWsqoMNDejEVcGXCtldAU4FwgMjLIAT/DU7gL8+bB+dzvBBE + in+NnH8AjJ8r2arvamAJsHBR/c/xo/23fF4Ehg4r6Drv/vlm95695hOc/p8gBNiwdb8pmzjT9Bw4wrTq + lGsaZ3UzDVt1NTfdVPcTOIDRV93Q+RtB/tz/wFy8N6XsRX0+31CGynQA8RSAJ6lM311ufjfpMRB8T4UO + wIb98RRAowCe/lINwEfhAawjkHJg5ASeEElwQhlopcHCBeyv3iBUjQuIVQSq9QfEKwJWIqzCoGhoCO5P + ewSiIaIkBK1M2G0WcglBGSluOwajCULxhiEQgi2HrfrKpY0vDLKH1sj8GMb//WD4sgJETJ9EQ1zjw1tH + rH4bsx9/8XmfZf99nxOBO+6+xzyybbt5//AROIDjZv22Z0zB2DtNl9xyc2unfNMgq4+p17InxEC3nLyy + 1nV3BPnz2gYD7vokyOPwDeS5PPEYCrOUJyem8gA8QZEW0CCQ310G47tq6n5Te9oTOOFtBMDTXy/rECIH + oDyALQdqNUAjABEF2VSAlYBQE+A6gERvQNgm7FQEUlYD4lyAjWA0DXBnB/Je3QGi7uiwqFvQ9gm4k4Tj + MmF2DLq9AjJBCFUBpgLkA3R2QBacQPNBBUGDHjWOFMQ05wtw8k9PIvxSLWYZvvKRYOSyb3/Ox9h/2+dF + YPLU6UfWrFtn3n73XXPk42Nmw46XzdBx95kOueNM007DTL2sHHNTy76mfvMO5rfdR24J+s84GeQgf+XG + HDbAMKynAVC3LzyAdQDMlekcmB7g5L+saq/5w5T9phaMNHIAGgXwo00FGP5rRUC1AKkEQSoL/gN+nkYB + dABhGpCoBigZmCQPVgcQTQxyR4YpZ2FLg7wf6VJ0xoZFswPJAzijw9x2YZcQjLcMMwrItR2DMkIM2gBN + BZQP0NkB0jAEqTCdwC39a33e9/nL+D7Ien8eDF+xAM/A8U8d387np3jZcFQAvvplvM6M/p1jJ0w8oETg + Jx8fNRt2HjD54xaadrkVpmnnInNj1gBzWcN+5h+5GqsLTqfeKF/RAQxAXZvjsAqsAyA7Lt18rO2zpIMT + kCelpAW7zSVwAP9NB4AI4Eac3uIEHMN3HYCrByAZyFSAasDqPEBCFqxpgFYDlAxUTUBSFOA6gJTCIFcd + 6MiDpSIQ6xTUHYOuLkCiAEqE3SjA9gnoJGEdIUZtQBQFOBOEqA1wBUIyQKTgWfAB530aIHsaixZdFoxY + tSFpG3N8iKtyASPXHg+KF9co55YWTmPajJm/KCkt2/bAg4uECDx69JjZ+cSbpkfJAlO3yxhzScNB4TDL + bCjUWhZhrv0whKjIUekAuElnEIgt4QEwL49vLk9GPvy8GAE4vMBFiAJ+P3kf8vcnhNSLHIAbBeBzPf3J + E0g5UFMAKwmmE5ByoL0kDWB7sO0QpCiIUcAlDhmYGBTidAm6ugCXCIyXBKUiACcm0Y3VBUSEIFOBWFlQ + ForYioASgklcQEwbQEJQtQHaNuymAiwLSq9AtFtgxvn88CHf/xsw/S2xoPXP0Z5G3dXIVJHPSnyZy8g1 + 7yJa+On5fF9p+dqCloP/+K/1ei65vh1O+gHTTdaoReYPg5Dbc6adlKdw6tMBcGhFi4LQATAc7Y3+9lyc + XHloe2V4yweeij6eenyDeRoyR9a0AMTgxZV7JA34I3Jx5QHqzdQoINQBsBLAjzR8qQZYUZCWBJUMVBKQ + H6PmIKdFWJWBPP2rRQBaCUgpDLJVgahVWCXCjAJsRUC4AGd2YDQ0xJYFSXjqFOH4QhGWBXWpSDRINNXw + EMwRdCcIJTUMFR1BabAV1oydd1UB5Ps/QyhfAk7ocMT0R+va8HyQD2FUFF/cMmLVw/jev05LIztfbyro + OXXB5SVrTM85e03BwhfNAzsPm6nr3zEt5zwTinRYr6YT4EjrMPxMOIHO460DQC7Lh1ofdD74NAA6AJbJ + aChSHkQejQiAPf3/jShAeYBPqwZEaYBUA6AJcMuB7A6U3oCEJsCtBrhRQEIZGGsTdjUB7uDQSB7sGL+O + ENeyoKQBernioE/rE4gNDlFCMFovpjJhZ45gF9s27C4Xkfei8KWgcb/fni/6AIT8UPZhUWvJmk1Rvu+u + X9fFq8S2EDi4EQAjpvJ1nZD/n3cO7Xy13TPyutB1NZinNHPrvve9bIYved2MWPqGnMBC3uWA5CMxxVyU + pz73292KCIBRAAdbMg3gth2SgLzoBPhG8xIHAGNgGjCa5cGQGLwEUUCCBwjLgTztXTGQ6gFCQZAVA8Uq + AdQDhN2Byb0BIQ8QVgJORQYmtQgnRQEsCdoIIJoV4GgCVBhULQ1wZwfSAcRmBkSDQ1Qc5M4QTKENoExY + F40KIciqgFUJasMQCcEWQ5cH9bp/94w8DF/gh6CV90I09BTgPT+YtK9RT35dyUZM6RT4d1cHwPy/fM2v + Lihd6QnAL/A+fOZvDfrPzuJ2HU7T6T7vJVO46DUzatkbptM9L4YhLEUrnGrL6TUsR9EBuGkAqwAch8WQ + TvN+iQCsA+CbLA6AUUBIBF48aY+5AikAeYDaMFYN8+OagGqKQLczEJ9LX4A9/d1yYFwPIOPCkjQBVhT0 + v5YE6QhSCIPcwSWnnBfgiIOibkFncpAODqE2QAhBOz1I5gaAV9F14+5IcXe5iM4OoBNolp+LVOBLUQmG + uf7iq4IRq9ch5D+W2NCslRE29+C+uZmJPArx5L3HF7mMXHPwMz+8/hu+OAJBr8m/lZMa4W9nGH3BQ6+K + A+g//5XwTcrHG0d2mtNr+NC5EQAjAaYJjBSY9/NiBEBHIFGApgEkBm15EBHAj/AgUA9AHuB6GPBNMOS4 + DkA5ADcFUElwUnuwPf3dKUHJo8LCLkGdF5g0NdidHPy/lgRTdApKjwBPfrcioBOEP6UsyEhJCUGdIZhS + JqxRAFKwlAIh7RosOorZAZd98afh9H+ChPtFi34XjFg5FYb/rpz6qTY0sxeCBs/0SSYv4aJDcAVAfP5G + rMroUWinj/xZ+MqA4SneoOw7nzf5Cw+YkqWvm0H4KA835avsW5eVVnAAYe4ZRgF0ADzBxPjpBHCJA9AI + wHEAjALiPIAtB95EJyCioJAEdCMB7QnQSoCqArUceO30sBoQNgglZgXqoBBJA5IigHBkeFQOjA8LSdIE + 4LRKahJy5wXYiUFJugA4gqTFokwDiIGjEIwkwjYV4PgwnSEYNQuBEFSZcJI2gAIhRGLSNoz3w60KtCx4 + /Cw8Gil/JE78/whGrCjD6rbXYPgnwtPcnviq7adRD8ZcRHm2aPjAjg5Ayb+k/H/dR9gN0fJcvX7/e2II + IMzfJvk7Fmw0HLfJ1B210mRP2mJ+NwwCH55QrFVTr848VKMAcgDMUfmG6iAMftQ0IIoA8PDz4UgqBybr + AUQWjJPc5QESlYDw36P5ADIoxJKBVheQ4AGeNBQEsSIgUYBOCnI6BFNOC2Ik8Fk1AdEUYzgCtxwoy0vg + 7KJat3IBtiwYzQ8E3rpPwJ0kHA0SdeYG6GKR+PAQcQLO7IAWgyvOxsON0/4vRcZbvOhSmdc3av0rUteP + b2XWU53PEtezEQsav0uocjW7qwAUjmjThqB09Y/Pxmv3P/M0ERDDhZdmFMDTv3oUwErAaPOb9qXmp73B + CTCs09BfnUAUAVADgChAS4F8k1knj3iAsBx4BSKAq6Y+HqYB8d4ARxIclgNDJ+Aaf9KMADsnINIDqBPA + Rx0XlsQDgBMQVaCuD4tHAknTglK1CrslQaoDnTTAjQIihSAcQNJaMZ0hyMEhThSQqlmIKZisG8d7IBOF + LSEYXy7SquiToOnAZqgKfOM03/ZP/TJM6P0q6vK/xInfCiE6lHwb3kwa3OFuY+bnTPm4pYkr0iTftzm/ + YslIiBjEU4XydbdcULbKs/9n4k37vD8Dmv6qS0qWbf/n4ge3t5245rWO41easgX7TMdxK0yTftNN0+5j + zS2diky91gPNrUMhWonCfif8V4cgUYBDBGo5UPQAKAfi9Lxw0u6IB2A5kGlANVGQbQlWB5BqQIiqAt1S + YDgkhNLgMBJIlAMTI8OT5wTEZgaecmKQDWWjZiG2NjvCIG0X1g1GIg5yuAB3ZgCdpm4V0j4Bd5y4lgWj + TcMqE6YTQCrAioCmAjI7AJFAmJ69AD7gczXTBMMXfRN1+O8Io1+8uDbC/L5IX3YjmjlSXczD+2Lob++P + ZT2e+nzfdQScNITZvJ/kXwH4gLjxl6xDF+lKX/v/vIZ7Jr8PisC/Ly0fvYPDQJ557jnzERqDNux81eSN + X2I65E0xzbqONPVvyzfXt0b47xJ/cWegPIDrBCQNAEGmfQJwAKIHsH0BlAULGWhlwZoCRD0B1hlEY8Li + egB3UlBsXqCODXdHhYXCILtHUKOAeCoQXyKSUhhkuYDxKXoEInWgNRJ3uWjSKPFYt6ArExYuANoAmSEI + 42ca1m506ADIB1AjoPsF+O9MCVoMmR70mPRXqKl/+1fla6tVB3Dafh1G981g1Ipv4mu+FYxcflFQsuIK + XO0R4ldCvbcLhv02DB+sPsi9eMdedPJbhp9LWRnaU/GZNP/BIU5lyrND/ukchdINL53JZ9j/rC+IQEFR + cbd75y8wj+3da44cPmz2P/u2mbL0cdNp8HTTonupubntIHNTqxzHAVjyTzXvLg8QdwBUBYosmHqAkAeg + LJh9AdoezDBfSUDRAuiIsBgPoI1BOiYskgXHdgYwAuCwUOoBEuVAd4OQzglA/V+rAi4foOFrNTLQEoJu + STDaYkSFIIVBdnSYOzREGoVwSiZNDnIIQfZVyNwAGBVLgtQDkISlA6Aoi//Or5H/p3pQnQP7BxAZMD3o + MPZEkFWYi/D9sn8cs/E/fzpm49U/Gbvxqh+N3dQA69jqYRFry2Dspj7BmE2FwZjNd0oOPnrLK7g+BH9x + DK87nO0QP63dv8s2ZpQvGe6XwbijbcuucEr1E/jIHY5x5d/ItSewCr7vF3xk/befSQT69s/9MVuDH0Vr + 8Icffmhe/PP75s51L5iuBXNMq16jTaP2Q81N6AzEBKBk9l+rAHEewNUD0CBieoCwPfjxSBacpAp0R4RZ + HoBVgDgPkLwzILE0RIlATQPiDiApDUi1QahagxC4gCi81W5BcgGMAmyfgKsLIC8gA0OsPDi+V1CcgKMN + 0CGiNGz2BVCDwSqBOg3pLGS0wIYiOgn8v04W0nkClG0zIug0/ihq888Hk3YdDCbuePUnlbv34/MXoMR8 + E7n5Ozip30cqdggfj2JsOyY5bT0ZqRqTHJdl+KN5fXBWNHwaNE91hvbiHImNzfvdFImf8+elZv+fQ9Tx + kzP5/PqfdQYQmDJtxrE16zaYd955x7xx8EOzZMdbpufwe0x23/GmccdCUzcr19xYgAdAa/+u8evn8WoA + G0AkDbB6AEQBoR4g7Au4Bk5AiECkAhr+p5oRGDUG2YGhOh8gFAUllIHV5gUqF+BsD9L+gGpkYJImID4s + hDmt2yWIz6tFAXFCEAYQnZ62NKh9AloWpKHToHmyszogGgpbQZAOQ1zaXShbkVGdoXZARo1DOKTKwWjj + EKTbTBdgpBdX7T2OMWjHgkp8hBRbLt2GpAtZdO6h8hju4FO+z0Px+6j45O+mY6smm3acQNJAFeAz1J7+ + 8QlA5euHnIHH1f+IM43AuIkVry5ZvsIcePVV88H7h8zDTx8xfUrnm9v6V5gmnYtNvWwQgcNIBGr4n+Jj + kiAopgpM4gGsLBghOk/2ahEAtAFaARBRkDMgJGoP5tagJFlw2Bmoo8JUE6BpgHIByaIgpAKpNAEpowBH + GqwRQbUmIZsGuKmAVgRku7AtC8qpj9NcuymT6+PJTkC/R0q2/D6mAnAaMmp8TpgmaPOWriDnv+O1XQj1 + ZYDKS6AflaVXXkPmHYCgpYPmaU9nI9UJOCSJQvB6dbpyvGSacuGqTQVOdfrLgbD6l2f62fU/7wwggNbg + tUIEojX4Y0sEDhy3OCQCbw+JwNrZSgTGjd9WBdQB8KQj+80HSGXBygOACLwYp9EVtjHoRtECVNcDuJJg + d1y4OgDdGhTtDnSGhcZHhekSUXdeICOAZGFQTBeQxAPES4I2GnB7BHh/7gDRaJmITQVoXBrKy6QkGIMb + IaijoJHowFGNAoilDhmhgTIKYL8G5cMsF5IvcIeLslSINOSSiTvMjyaEF/YzhpekLWxtxutlOC9RBy/2 + cOC14v9DZ5kYqybj1eNciaYASaVTGylRAuyWCzWVKN+4LRi1/EuRL58BE0nvH0Ei8P4HFprHMCMwiQgc + NN3cCiKwQRslArUEGC8FqiIwlR6APEBCFiztwagGXA1Wnu3B1WYF6mwAZ2eAWwmIZMGIDFL1BagDcEeF + xbmAJGVgKiJQTzg3142HubLmTFuFY7oAjQJoYCqdpqGJWMhe1RyAUz5U41dnQAfCnFrLh0wbyAXoQJFo + mhAUgxRuIRr4HRzANZP3mqtIvFZiJoO9roLzvQr3/Hu8DyRWw/2L4FFsCTXcs5CQUp/+WDU4SnIXTB/i + eoGSdUeD8rVN0tuKavDd9e2f82MuBtlqicAXSASuBRE4zCECWQkY7vQAuFUALRFqOVAjAD1Z1AFIezD0 + AHAAOiZMFIG4kngApAHaFahlwaRyoB0WqhxA0t6AJEFQWAng5a4ST5YGI+dPlQrEhUER661kYCougH0C + OFl531odkdDXEoNaJkyS0VrDjwREygM4fIAYFrCnA9A0QHmAHlBn3l6FagA6CDUNoBNAqtBk9rOm0exn + TCPgyauBM3dBIyshVJlOOaVUllETeDFacpqpTrVohc6SSlK3ZMjPxZmt2RWULPe1//PZR0yZHhKBb7/9 + thCBi7YdND2K5yYRgTcUIryL9ABOOfBURKCeegyJdXy4OyaMPIDoAWxvgNMXkJgQlCwLlvkA9pLlobYv + INXOgIQo6Mmk0FbHhicWiaYQBlULc5FPR2vFHVJQCUGmAUrcRfdNw7fG757+8c8l9LdCGzn1XeN3+AOm + EREPgMoBIwBVC4pi0M4RYNs25jlcXLYRTiA0/sazQmfQwA5gccevEU+3r0KUlDJdKSyfJtIl6yxTlU11 + KIxL/IXh/1EskOl6Pj/7/rUBgfETJ726NE4Ejppv2igRSEVgRATaTkC3KSiuB2AUoBEAGWZnTBjTAOoB + Qlkwdf7hFKDqk4JDjiBcHBr2A/ByuQBNAyIHYNeIJ/cGnGpqcLxN+HS5AK19MwpAGiD97tZQecqLNNhq + AuTUd52A+7kavfNRjN9yAVEKAF5FtQIS+kMrwJkNavRk/8kFsH9DxUOcJoTejRum7AuNn1EAnQEurbbo + BCZiqrsXlEiVQavReLX/hTMhyUthUPz059/LNqzG6f9zb2TnOQIhEbjYPKeKwB1UBC427QdOFiKwQRtX + EegSgeoMnMYgty8gaUwYjAW5M+cEumPCUvEAYegfOoawJyCxPVg7A0UWrKvDkmYFhhOD5YqkwU9GJ1o0 + LUjUgTD6U7YJOyVBRgSRMtCG/zRuITthsDIKjUZvL/2cxq+jxPn1bhrg8gFKlrnGT6dKlSB1AiIOQriv + 68VYAaB8mKSglAfxOb+OVQD2EWgPweAHxQFoBBB+ntoJ0BmrI1VZNScthwSqOoEU1ROSkxrFRI0/QoCi + gWhNA4z9PiO9Cue5CdXsl0ci8L4FD5i9+/aBCDxidj/1ligCOzpEYJ1W/T89BYiGhNi+ABUFSWOQ7Quw + PEAkC7ZEICsCn9YarPMB40tDQhIrbA2OZgQ4S0N0c1BqVaAuErVNQqnEQTR8Nx0g+SeGzwjHGr4affyj + 1tY1Cogbv8v+0xnw/0kasgzHUh/zfHYE0ujZN8AUgDyL7ixgpMHfQdKR38//Y3mRDUasEpAfoNMo32Sa + 3xEavnICygfobkZNrcLyaiiuColUTZ8ScxaTOBO7/KUa8UeHMObhVTj9v1WzLSNDXn0fIQLnma3bt5tD + UASSCLxjzfNQBN4hisCG7agIzHWIQCUEnWiADkDLgUIEumkAHlYnDYjGhVseIBwZbmXBuisgWhsWbgqK + 0gBna5Cy2PHmIB0TxpNMewMY0urpz49ROVBJwFMuE7WiFyH4rGBHT/ZTGX/07zYCiLYK8WTUxhpr9HZV + upzoIgG2/QA82WXqMpynVBys+jCuQZCfze48SxZSM8DBLuwpoAOBM7gSUdctdAA2FaAzuNnhA2QMW9Ru + zaqAbmImfmFlgFFA0gp24kbiz+0diD5f/xFm/l2dIeaTHrdJInDt+vVCBB588wPzUBIRWCCKwJAIpJzV + XnFxkDsmLOIBmAvak8r2BVAPkBgX/mRIBrpzAq3xaxXAHRXulgI1bE01JzCaFISTjMafGBSSvE5cTjQ3 + FYgz3XztOviUhi85vub5+pGhP09k9++aEjg8gA7T4M+UdloYK0975vQU+fCUJ4Zq5O5H7URUZyAOAWIe + LTvq+G0ZyUWlIcqFJAohF/7d+K0SAWgUoLxAg1mh03WXs1JlqePXtKyqEVRi2jJSAVYl+B67Yb/KoMs2 + LEkPq8igu6AicOnylebV114zH7z3odkCRWDfJEXgAEsEOnl/VA50iEFXFkwOQGXBjh7gQocH4HyAVDxA + UnOQszNQiUCdD5CUBsREQcktwgxnE/sDqysDYyVBZfZpqKc88WPOwHUAEQ9ga/8M8ekA6DSjXYHI2cns + R3MU2W6s04eszkB7D071kU6Ar5U/XysRVA8ybSAvwFQAk3oY9kd8gC0N8u8uKajOVR2Aqio1igojKDhM + Gn0h0pV4A1E4C+JN1P396V/TfMeosnJRBD73/PPSGrx22wEzYOwiSwSOgCIwD63BBdWnAqWMAmI8gE4J + isaEJbcH0wHwcjsD9WRSTQCjAOUAdHmoEoKnnhYckoH6APMkS6gCQw4gsUmYDgAXRT/akCNMtj3dq+X4 + 8RPfjQqssevpqFuTmJv3waks25Vw2qc66SXHP5XxW0WfaPr5uSr8NBKwToCpGH8+0whyCDitpSSIS09/ + jQiYCrh9GDqLUQnWcN5CuIORURS1HAFn/52qe3DM5qEXlK32df+a5gAKhQhcKETgx0csEbhkv+lUjQhM + oQR0ZwS4smCXB3Dbg/EQRePC8WDR+KunAewLSKwNl74A7Q3AaZaoBtiQNVYJOHVvQHIKwEqANAixzj8K + EQtfv4TqbklPnUCqkN86Aj39o953e/LzJM6952Mh5GiUdAquijByAjprwOb7cuJbI5e+e0eE5A7eYIee + RgeSDtD5gITjfUgUgBQDn9MBpEoDRB8APN3R7Np+rU1XYVUl5AOEqEzSLjhlzPHb9/60fI0f91XTjJ+v + N2fAwAQReOiQeeGV96AIBBEoisAxIAKHhLMBIkVgjACMC4KS5gM4PICOC+eYMBge9QCcEpS0O9BpDdbx + YUmSYHd9eDQyPNEh6HYHxpuDXFVgRGrxgebrT2L2nRM9VW7v/lvUBkzHAcOnkfCU73/XkaDzuPlBr2lV + MJqPQkGUnu7xj7bNODJ6KzjS6bpUJ1KmzKqEinFcvkIWmVDrb3cWMHVhVYAdhCIKelaIP1UGqi5A04JE + KmC3M0W4hlUWOgBJMTQlitf9yzd/glkE19fEZ9+/ZovAtJmzjq3foIrAD8yi7dgZCEVg674TpDWYlYAb + CrU1OKYHcGcFpmoPdsuBONHCMWGQBeMh5pCQ2lYV6E4J1mahaEyYRgE2ElBVoPAAcVVgJAsOS1oqC06M + DWcuC2NlvixklpJ1ZO5jZJ4ae1KOj6/h90TEHj4nMZY//6SIdbpWVAUdShsG7UfJ/DvMVNgfzkewY8WS + Tn572kcTdtjCy24+GLyrvFOy0kYtKmsWPYNoFdQJsMvP3hv4ht9hgpHiSicgZGDEA4RpgRKCFGRpNECS + VfcyinPR/Y9J048kAjgZjN86xxtSDUdgfAUUgStWJlqDn0Jr8Kj7TZsc2xqcpAiM9QZE8wKQIiQ5ANsd + WI0HCNeG/Y8dE6aqQHdcOB/EuCDILQlqZ6COC0+qBqgYyOoCdI04HYDk2DylGSZrDT7K8ZXYsx9TGb17 + 4tMYZDIu8u2eU18OOo+fB8P/f0H7kr/XxyHInf21IH9eY+ETIgfgnPiu4cdPeCvCIQFHeS4jGNeZRb0O + wFKcBvkB/g6+bolEFshqtmj6EjCNegSUE7CSYUqF46QgI69L2VrM95RkI1uI3Y7HcPzbMxeNXv+vNfzx + 9y8fMwItEfgCWoMPmzWWCGw3IFQEhjMCQQS6Ob978uvnfFiinQFOy2nEA7BNNVwbxjSAA0IYAbDW744J + SywNDRWB7oAQdz4AHQHzVd0ZoCmA8gBKYv2ID7IO5xSVonvqx8i+yPCdVOBUht975gtBh/KJMPxTGkEw + 4I4LgqJlK0M9hM3zo9yeJ74VHdmyJE91Gj1r8DRyOjBNZ6L7s87t9/haaiuk/18dAO+NKj2kYhT40HEq + tjztNQUIicHE5ToB8i7sHhRuRNqecckodEfqPOaRoz8Z+3CHS0avO+9XmHsL/18QSCICDx8yu598y0xe + HBKBnBHI1mBRBIqhx8lAp104lR5AGXX2zjs8gI4JoxNgFMDmIA1DpRJg5wPGHUC0QtwKWFKqAu3EYBqO + 1PJlqzE+Ruo8fZBVwpuqjm+/BivVomhBB3v0mvlR0HnsgKBdyZWn83BheUZv/O5PxAHQUHWDDkN9K0TS + kz40+jD3psGHi1HD7j06Ox2NdhUjAjo2XuQLxAGAayCvgdP/YrQG8/sYyosTsHqLJD5AG4bkYygSYiTG + r5XTXt4zRBWiO7DzBMINSSf/ceK2cZeMXv+D07l//zXnOQI5A/J+fNc9UASiNfgwHMBzL78risDbU7YG + x1MA/D1yDPE0wEYBEQ/APDh5TBiJQN0Z4MqC1fB1QpAuDam2PdjKWLVNWE9JCVk5044Rierxkz5SSeco + 9lyhT/zE19Ja18pXgi7jxyK//yeE+qetdQ/6z/xOULxijxiTsPowWA35eYrbBad0WGL0cIZ0bFrxcKsg + vH86TIb3P0K/fzS6jA6A90BHByIy+ln4efw5jJxEdAVn4DoBt2mIn/P/MD/QliRtNUKdgE0FLp60c83v + xm666NIxG/ySz/Pctk/75ZEIXLdho3kbMwJfZ2swicDhJAIxI7BDgSUCrSLQ3RJ0OnoAnRLk6gEQuuq4 + cKYBcT2AOyrc3RikewOupyHYFmFdGUYnIFNwSMpp2Yphq17iAFSpl+KjEoJK8NHwqbHvPeO5oOOYChj9 + d4J2Iz/XhBuM3WoqBkoHQOPnyS/G/7iE+jzx+fp5yuuprfoHLYtq9HMNv4fGz8rBBPw8Xhqmy31vkBSC + kQQdAR1K6ARCzQVTgYQ60CEHkRb8m04RopOKNAfUKFjNwaRdr/znhEf+Cw7AG/9pW1cN+EJpDQYR+Cpn + BEIRuPHJw0IERjMChQhEbTnVjMBIIuz0BWg5UMpHthwY9QVgTJhtD2YlQFWBcR4gGhDC4aB6aSXAGop2 + B/IhjwZoMM8XlZ0lrlyjd9t2oxo+OQEb6guLjvtgLb33jA+CTmNHBO1LTyvU/7S3GYTgt0Go7ZDavTiA + UGNPkQ27F2n8NFIaeXw8mjsghaf/H6rUOHU6ET7KuC/biwFikFwCIws6AU0lwiggXNKqHYJuVeBSJSXJ + KYgDUOGRahV2fHhFxfa2NeBx9i/xsyJAInDhIrQGUxF46LBZvTVUBJIIbHr7CNMgaVlIijRAo4JUgiDl + AXRaMB409gUID4AHlWmAlAMdVSAf0qQ0wHUA9uTXCEDyU+rg6XT4O9T45fNYni/ddE7OH5X04AT4/aHh + v4tQfzJy/N/gxD8jnW3BgDlfDYYuaInXd0xYe9tkw9OfBsqTn8Yf35ng8iH8f478EsOUsNzm57qrgBUJ + /htLiMCWDoaRQBgFgEewzT/8HZoGaCTA8WFy4tP4o2GiNrrgv1c8duL3lTvLrpiw5bRTn8/6DPqv/xIR + UCJw//7HUQk4ZHY++aaZHFMEiiDIzffdz93IwF0bpr3zsXHhMibMGRcerhAHEWi3BrmSYOUB3AEhNIaL + K2AIDNNJTEqLLAkqIakSTkAXeepHdQBi+LZLjycnCb7+d32IE38hcvxLEe5/80y/HXAC38H+vUclDYCB + kvjjFB524YlxOox9JNO1ToH3fqUw/jBU7QPQj7qnkANEYlWFsKLwuE0xnrTDWMJmIK0KiPHz9GdJkQ5A + R4qrGAn/9qeqx+b9z8RHLzjTmPifd54gkDOQROC9aA3eYQ4f+jAkAqEIJBHYsidag7ksRBSBXHRhxUBR + KdCtDCgRiNM01dYgHRfujAkLl4Zod2CiN8AlAKV1VduD8VHCXea7TC+SNveyZMVx3Tz99bLpgHbQabjP + 18efweaZrpPuC9qXZZ3ttyMYOr8RXt9xGirDdDoAntDUNEgEYIk6V6dP4+dgTw71jIxfy3Pq0Gj8THWU + Y7A8Q5gKPB6lAuRL+PNkPDuiAlYLhDeRioLjAMQRhFWGa6bsffhPFdt+dbax8T//S0ZAFIEbN5l3ZEZg + ojVYiMCOJAJz7LIQdy6AUwY8HVlwtDYsTAOqjQlz2oPjKQBzYwn3KXWlA9DQN+4Aorq1RgT2o3bm0QGQ + KKRWv1vVjqBDWWOc+D88V/AjClgnJy6iABqncgBC/tkT312XTp7kStf4efLrfH86OmLBKUIRx2L1BTYV + UF0BdRGaCkidX4wf0YioD10HEKYB2DNw8uqp+x67unL7v58rbPzv+RIRIBG4bAWWhRywROATh0JFYNKM + QJcIdE5+TQeiCUF2XLg0BqUoB0Y8QGJacKQHsMq0UBEY5sV/YPirDoannoa/NP5IrBL7XB0Dv17bk5ku + DFpwEjv29oDZ709m/1xDjpXc9VBjP0IykCe08gAi3NHGJ+sMalHqzHunhkDvUx0f74vOTPkPkRyz74A5 + O43Y9g9YcRF/D6ONf6OxJzmLmPHj/y+s2nuy1tT9T107ede15xof//u+JARIBD64eIkQgR+jMWg1FIFc + FtKu2oxAZw6AWxKs1hdg24NdB+CsDSMPIGPC7LBQUQXGeQARpVh5K8lEPf1cBxB3AowSRLiC01Gn7dIR + cdVW39mvQb1XFnQY9aUOrcROvy3KBWiIzvBcowCG6CQGa2HAp4h8XCfnchw8+alyJKehDo+SZznZbSMR + Ig1NBcQ50HGoA+DPFmdhowAY/4/wnlw79fFnalftqovQX3oa/J8MQGAYmEAuC9m3f7/55MhhIQKrXEUg + tgaLIlAXXlbTAzgRgcqC42PCkmTBifbgatOCEQVcxh505ujM1bVfXplvcQRgvN1T0TUSkoIj2cWmBB8i + l26VM4N2o86LEw3LNxkFiJFyNgHLgcLW4yIhyEuiHhJy1U5+W+kg/tQpEB8ttaoTYLlRBEe2sYinvo4o + Eyds0wiZ1qRNSHtATO4z10x/4sB1k3c1zIBH3t+ii0Dffv1/HxKBmBEoROB7kSJQiECZEahEoDV299R3 + 9we4suBP2R7MacFue7COC5eHmj+bD2u8gy6KAqwD0GiAhsKTUCsPzPMH3vtR0LXyhaBT+dUI979/vrzj + Qc6s74BQXRtyAaH+X0N0GcYBQxSp76mMn7hwbThPf2ItegukA+oA+H1S17cOhA7CVTvy/9WJqhNApFB7 + 2uPP1568+5YrK7Z9/XzByr+Oc4jAtBmzTm7YBCJQFIHvhzMCVREIIlC2BhdBYquGX60/wEkPPrU9OBwX + Lu3BTANsd6A8wCztMXSX+XcpBma4DkA/Jxkmfes48WkU3GnfbfJO5Pl5hA/1/POqaSXInfVVRAHNUL78 + ULkAVQVeQWKwioy/G+FYfkPLmaz5c/4fOQ1GZLzvaAwbqyD26+XfYPyR7FkHmdhyKX8H0wAQhldN2//8 + NZU7a53Dx83/qvMNARCB7y5fuUoUge+/94HZaIlAVQTWzeaMwFMoAt3VYdG0YC0HOt2BSuKJ8CRsD760 + AuG+ioi0UiBKtEiF5szNs+GrimF0Jp5Ow+k75xAMv5Ka/fMNX/f1QBfwN2EUsPskDVDz9EiUE8/7VeNQ + jNCfuwDIabAiEo8CZGkJHILMO2DbrhU+xVucdV5jxZ6T/zNl786rK3decT7j5V/bOUCgfMxYEIFLzfMv + JIhAVQQ2gyKwHiTBYWtwXAsQawri/yetD485AKccGA2x4MPK00ivSIqaapoOHANPOdUahCO4mOevhYLv + mqD9yL86B3B94V8RDL63FqKAj4WEI1nHnJ8EnhvK6xZilftSt5CLi7V/VgB0GanyLnTEsqHJ7X1wFJCq + HeDPnbj7+H9W7V77x0nb/98Xvhn/A2o+AoXFw4s5I5BEIBWB2/cfjFqDb+0+ytwMIlAEQZg4m9wXgIcu + zgfEB4TItGDmotpqipOcDytPK570OvQyafglZa/usExbDtNTzg6/QLj/UtBpdHPk+f+3pr0LGLe2Vth5 + RAGibtTGm0jfYIVN1DHogFE6O6YAHEHG/n9edAZ0vNGwk1N0O7Kqwp89cfeRX1fsmHv5+C2X1DTM/Os9 + Swhga3BEBB4+9IF59qX3zMxVz0IRONsuC9EZgeoAbM6figystjWIUQBzUhuiMnSVB9H2yLuGH0UBbEm1 + U3RE/ALnoVJj5sE5c9/D/L0ZCPcvPt/y/NN5i8AFfC0YeNdvEaYfjbrvNH/Xj9rbQKPnLgFO/KUjECeA + vQLEQWYbWgcrSkcaf9wBsDOSkQDy/4m7Dv524raBF41YfMGPh80/r/iR08HNf81ZRIBEoCgCSQS+8b5Z + sPUNzAi8O9wajNbgiAh0JwRFvQBKAtoUQY1V14erhFdOfZag7BBM/Zhk+Gx3tR1pzFdl/yAYb+a+fPC7 + VS6Aiu+WswjFOfnRwcA7/iYoXnZnIuxXEk9PfhguKxrcBKxbhJgGMAXgeyArueFY3e1DGgW4jiBR/386 + GL60xuN2Tt6cTPwlmBEYEYEfojV4gxCB8xOtwSmJQLcfQAeHWoZax4RJrop/40kuk3H0YteZEwWI0Vsu + gKe/bOmB4UvO++BxhPsfYCJPZ4T7adOcgnkB2YiMjoc9DDZE13ZmOkuu/Op3lz31EfrLlCNgEt8s7C7s + 1J6HcBDKSeB+MijfeF+QP/fyTHyu/T2fJgIJIvAF89GHH5hVj/7ZDHAUgSEROMxZGur2A8R6A0Q0RIIQ + 4T4fThli4Rq/4wToEKIhFPg65v4uydd3zvtg9xHul3z/s0zkOc3b/lK/LOg79UJMDXopamBSR0Dj1e2/ + DP0575+5PzYAR+y/OoFUUUC45+AY5Nj7g7x7ugY9qy78Um/U//LzHwESgfeDCJTWYAiCdjx+UBSBsjW4 + 2yiZERh2BuIESgr93UqAVglg+Pwa5rNq/O5pT6N3mX+dbaenPstczHG7Va4JOpa3O//R+3yvMGhf/NUg + b95gnNQnwjydpTsYr3QqTkbuz1Xh08NIQHJ/KAAZBRBbioCY/8tlUwFZVILUYPjqtzGTcGpw+7h/CTqV + npHZBp/vDv131QgE9v/4F18dkJdviUC2Bh8yz7z0rhCB4bIQKgLdZSHx4SBOKsCQn+GrGD+JPBJ6Nu9X + o48TgNTwy8pr5LzM9bk1t+OYAhB8P6oRAH6BF4ko4GeIAl4W49dFI10qsOgTF50Atwz1wu4BIQDnhRWA + YcCYeKkDED4AjoDY5817KOg5uekXeEn+WzMVgWkzZ1si8F0Qge+ZBY+SCJxrsvuMk9bgpK3BKgHWSgAf + PhWnMOyXLjWW8qwD0BRAIwFdbMETjyE/Cb6cucch4V0Nkq9+0KY4Y2SpwcC7B0uqRCzI+HcYa4JOEwy6 + FxEFMQqYEaYEjAwkCkDpj1jrWLYh0EP0v2Nt0K2iJeTP/5Cpz6+/7y+IwISKSocI/MASgeGMwFs6FZlQ + EYjT2Z0ERIWazN9H2M5FkiJIwcMcdQDaWn9E/inDT0GP3SlAoq/7lDdQ0y+G4WfcAxz0qPgRyM69Er7T + AbQfjQhoXOgEsPJbIgFuIGIUQEfJbkByArlz38Eos21BpzF/wp6CGqeF+IKPq//2M41A2egxax9ctMQ8 + /3yCCMyVGYFVMiMwIgK1M1AXb/CBHACiiso8/hvzU55mjAA0CtAIgH8P89SQ4c+dezRoW7oyaDOiXtCk + f0bWpoO2hV8Lcmb/HunPkaD3rND428EJdBoP468K0wBuGmZqxGig17Tngq4TR8PwW/AZQJuzn9Z7po0h + E39eAYlAtAbvf/xx88nhD83OJ0IiMGlrcEu0BvPkpqGTkMrBg8krF6cTiTvlAKRLjd1nlgdgBKDhvra0 + 9pz2TpBdNDpoPjDjl01gj8DXg36zKkH4nRDWn+w/T36mAN2mHIIzOBh0mbAZRt8cKdJlmfh8+ns+iwiA + CPxOaiLwuSRF4DXNc8PTiKdTu3KEpQhZ++NUygFTPciy1HQQ2qaq+/E4IETq+iCxmM92HPtU0GpY+0w9 + 9VO9lUGXsf8II79Hcv/bJ72Pz+/HIJMpIES7owT6d+h1+Nbn3VFwFh8d/6PTBYFpM2b+YvqsOSc3RIrA + kAhs3KvKXJk93FzaBaFp21ITZI8wQQs0B/FjH4Sn4gBg1HlgqckDCENNHsBKUPl3RguMEDpPOBpkFc0K + Wg72wpRTPDjgQf4aMud/Rl7v6/fpYlzn+30ELQb9NGgxOOuG1vkfNRg41dw06A5Tr4DkHE545qDMRUlK + 3TbKBC0LTXArREG8ejECQK06ByHrQNSqhQewzT7M8yXcB3HF3DZ7+Dsw/Otx6v/t+Y6Hf30egYxCAEKT + d/+jfJNpWLnTlK84aEavPGgGLTwQjtqmUTMn7YzaNCOAlkVhBEAHQMKKaQB5gAEgqfi10qWGUJ8kH0tX + nSecCFoVboPhfzejQPU36xGoKQiA1HuBOv2Wc54Twx+59HVT8NCrYeMOBTpUo91eCQeAvL+V4wD4976I + EJQIpBNgKtAXDoEqtjajXg9aDCmpKTj41+kRyEgEgqEL13IcFffH5cx/xYxY+oYpXvy6uZyz5Mn49+eA + TbDS7ceYIGt4IgIgD9AbEUBfpgEw+j74vBccAiOD7OLlwa35f8hIQP1NewRqEgJB/r2DKd7hjPq+970M + 438NTuB1w0WSMgiEMtQeMGyq1LJHJvMA3eEYmAbcDqPvhighe8SRoNXQrijvnTcDOWvSe+Ffq0fgnCMQ + 5M6px9LdFVhb1f2+lyT8HwUH0GXei+GcOarQ2JvOkJ+nPolAlwfogsigM0qDWcVPBU1zfhY06fe5Vmqf + 8xv3v9Aj4BGAmqxH5W9RqjvGOv1/jVhl6pevM/VKV5rGY2yTCZl8pgEUp7hpQAsQgXQKbcuPB60K7vRY + egQ8AjUUgSCPacDDsTTgDdNoNtIA1vLZkuqmAYwAcF2cNeTDoOXQ9jX0tv3L9gh4BIgAxDzV0oASSQNe + SqQB1AJ0GG1+WrsHNAHDza+ua3f08qtu8Cy/f4Q8AjUdAaQBv8GU2XeZBtQtWWI6jl9helSuMaXzdpn8 + mZtMVv8q03XgaJN1+yDTuHVPc0PTLqZhg0bmmmuu2VTT792/fo+AR8BBYMKksDX4tdffwM7AIye3P/Gm + mThrkelfMN507DXEtGjX0zRt0cZk3dLQ1KpV64QHzyPgEUgjBMIZgUvMCy++ZE4e++Sl1986cnz+0o2m + qGyS6Zkz1LTp1MO0btXKZN/anBEArx+m0e37W/EIZDYCRcNHyLKQvZgRaE6eOHzo8NEmW7bvOT5+0hST + N2iYub1bd9M6O9u0uLWFue666+gAOmc2Yv7uPQJphMDA/Pzf3z3vPrNtxw7z0bHjxhw7uvul5581s2bN + MoWFRaZHz16m9W1tTbNbW5ob69ShA5ifRrfvb8Uj4BGYPiucEfju++8b/nkLS0Puve9+M6JklOndt79p + 0669OID6DRrSATzjEfMIeATSCAESgSu4NRhEIP8cOXrcLF66zJSOHmv65Q407Tp2Ns1atDSNbmlCItCk + 0a37W/EIeARGjx0nRODzL74sDuAErk1btpixEyaa3LxBpmOX202LVlmmSbOICPyeR80j4BFIEwRkWcgD + D5o9JALx59ixY2bvE0+YiqopZtCQYaZL1+5wANmmafMW5tqQCGydJrfub8Mj4BEYmD9IiMDtO3eaj46f + MMfhAF586SUDbsAMKyw2XXv0Mq1a3wYHcKu54cYb6QDu9qh5BDwCaYQAicANDz8MIvADcQBvvv2OmTvv + XlM8ssT06N3XtG7bHinAraZe/fp0AE+l0a37W/EIeAQqKicLEXjgtdclBTj08VGzaMlSM6p8tOmbM8C0 + ad/BNIUW4OZGjUkEHvOIeQQ8AmmEgBCBXBYCRSAdAKOAjZsfNmPGTzA5A/NMe1sJaNykmSoC/zqNbt/f + ikcgsxEoHlFSPH8hiMB9+yMH8Ni+fWZi5WSTN3iIVAJuRSWgcdNm5tprr6UTkG01/o9HwCOQBggoEbh1 + +3aE/59IBMDVYVNnzDKDhxVCEtzDtMxqLQ7g+htu8ERgGrzn/hY8AkkIzJg9x6zftNm8/d574gDeePMt + c/c980zh8BGmR68+JguVgFvgAG6qW88Tgf7Z8QikGwKTqqa8s3zlSnPg1deQBhw17x86bB4CLzC8pNT0 + 7MNKQDtxAPUa3Ewi8Gi63b+/H49ARiNQNmbsDioCn3vhBfPxRx+Zj3CtW7/BlI8dZysBHU0TaAEaNr7F + E4EZ/aT4m09LBAqKiqdwa/BekH8ff/yROXzokNmxc5cZXzHJDIAkuEOnLlIKbMieAE8EpuUz4G8qgxHA + 1uDGd91zr9m6bbuE/3QATzz1tJk8bbrJHzzUdL69m2mOpiBGANdfL0TgzAyGy9+6RyD9EKD8dyMUgQeh + BDxy+JA5cOBVM+fOu8xQzAbo2r2H9ATQAdxY5yY6gH3ph4C/I49ABiMwafKUd5atWGleOXBAIgDOBnhg + 4UKpBHTv1VsqAXQAdevV90RgBj8n/tbTFAHMCNy+cNFi8/Szz4oD+ABDQlavXmNGlpaZ3v36SyWgcZOm + pv7NMhyE1zfSFAp/Wx6BzEMArcFVnBG4+7E94gA+/OB9s3XrVpEE98tFTwCmA7EU2AAOgMNB4ABuzjyU + /B17BNIUARCBje6C+OeRR7fKiLD33n1HqgKTqiajEpCPnoBOMhikQcNGpnbt2ifhAKamKRT+tjwCmYkA + icB1GzdiRNhBcQAvvvSymTFzlhk0dBgqAV0xH7AF5gPebG64QWYD7MpMlPxdewTSFIGKyqq3li5bZl7A + UBA6ACoDOSR0SEEhpgN1My1athIOoM5NdZkGfJKmMPjb8ghkJgLlo8dsfeDBh8zjTz5p3n/3XfPWwYNm + +fLlpnjESPQE9DatslvLXABWAjwRmJnPiL/rNEYAJb9J83Di78CIsHdRBnz7zTfNJjQJlWI4SO8+/bAn + oI25GRyALQV6IjCNnwV/axmIQN6gwTffcfdcswkDQV4/+KZ5843XRRI8bkKF6ZeTa9qgFMgR4XQAGBLq + icAMfEb8Lac5AtMwB2DV2nXmpVf+bA6+/pp56umnTdWUqUmVgLr16pna11/vicA0fxb87WUgAhMnVR18 + aHEoCGIE8PwLL5q77roLPQGYDtQZTUHoCrwJEQCnBIMI/DgDIfK37BFIXwTKykdvuX/+ArNn7z5EAK+b + P7/8snnooQfNUFsJuBVNQSwF2p4ArwhM30fB31kmIlA8fMT4uzEW/JFHHzWvv/qqOfDKy2bN6tVmBMaE + d+vR07TEfEA6AFsKpAOonYk4+Xv2CKQlApgRWJ9dgOvWrzev/PnP4gC2bHnEoERoevYOx4OxEsAIAENC + SQROSEsg/E15BDIVAZJ+y1D/f/a5580rL71o9jz2mJkwcaLpi6ag29q0NY3QFVgHDgCSYEYA2zMVJ3/f + HoG0RGD8xImvLsCo8H3795k/QxX45FNPmZkzZ5rcgdgY3B5NQegKrHMTHAAqASACj6QlCP6mPAKZigCE + P+vnzptnduzYYV5+4Xnz3DNPm/vuu8/kDxpsOqApqGkzTgiuqz0Bfm14pj4o/r7TE4Gi4uFls8EDbNiw + wbyIQaHPP/uMWbZ0qSkoRE8AmoKat2gBMVC9yAEgDbg6PZHwd+URyEAEBgzMq8MuwBUYFf7MM8+Y555+ + yqxbu9aMHDnSdOuGleFsCqrfAItCqAXwRGAGPiL+ltMdgYrKSvPgQw+Z/ZgJ8Cw4gK0oC45mJYDjwbKz + MRgkbAuGJNgTgen+MPj7yzwExowb/+K9995rdoIHeObJJ8yuXbvM5Koq07cvmoLatDENGzUSNeB1YSXA + E4GZ94j4O05nBEpGlS6fPecO8/DmzYgAnjT79jwGSfCdJnfAANO2HeYDoinoxjp1tCfAE4Hp/DD4e8s8 + BIYVFhZPmz7drAYP8MT+/eaJvXvMAwsWSCWgY6dOphnGg4WlQNkTwMsTgZn3mPg7TlcEcgfmXVc1eYpZ + BB5g7549Zj8igOXLlppCVAI6d+limrEpCJOB6ACgBaAisDRdsfD35RHISATGjBuHkWD3me3YGLT/sd1m + E8qCJSUlpjsXhbREUxAqARQDQRLMCGBLRoLkb9ojkK4IjCote/LOO+4wm8ED7Nu9yzyKSsDECRNMr169 + okoAV4VdF1YCDqUrDv6+PAIZiUDx8OELpk6dJt2Ae+EAdmzbZmbNmIGegH7mNowHa4T5gNffcIP2BJzM + SJD8TXsE0hWBwUOG5lVCD7Bk0SKzG3MCd2/fZubdc48ZgJ4AVgJuYSXgxjpaCmQU8J/pioW/L49AxiHQ + LyfnyvEI+efff7/ZtvVRsxPXYgwHGTyYPQEdQQQ2D4nA2tIURCJwRMaB5G/YI5DOCIwaVWruvBN6gE2b + zK5tW6UsWFxcjJ6A282t6AmoV79+6ABCInB9OmPh780jkHEIDB8xcvf06SEPsOPRR8wGDAoZN2aM6d6j + B6YDtTINMB2IlQBLBL6fcQD5G/YIpDMCwwoK76jAMJBlS5aY7Y9sMY88vNlMnTLF9MZ0oNatW5uGmA7k + icB0fgL8vWU0AgPz8nuNGTvWLLj/PrMVDmDrw5vM3Xfeafrn5Ji2XBl+yy1hT8B10hPgicCMflr8zacd + An369v19WVmZufvuu83DWBz66OZNZuH8+SYvL8906NDRNG2K6UAYD0YH4InAtHv7/Q15BL7ylSKQfrNm + TDfrwAMwAli+dIkpKCgwXSAJbs5KAKYDsSvQKgI9EegfGo9AOiEwrKDg0cpJFWYFNgc/smmDWQtHUI6o + oFs3bgxuGVUC7GyAD9Pp3v29eAQyHoG8/Px5Y8H8P7TwATiAjWbT+nWGDkElwUIEJiTBXhGY8U+MByCt + EOjXr19ueXk5VIBzzeaNG8wWXHfOmWPw76YNhoMoEUg9gCUCf5NWAPib8QhkMgI9evS8dsSIEWbO7Nlm + A2YDbtmw3sxHl+BASILbt+9gmoAIlOEgCUXgkEzGy9+7RyDtEBg6dKiZOrnKrFqxXBzAUiwQHTZsmOnU + ubNpfitmAwgRGCkC16QdAP6GPAKZjMCgwYP3TJo4QRqDHoYDWL1yhSkrHWW6du0mikCZDQAHYInAdzIZ + K3/vHoG0Q2DAgAF3kAd4YP794gDWr11jJkEh2LNnT5OVlR0qAj0RmHbvu78hj4Ag0KdP394l2Atwz913 + oQqw3mxGJWDOrFmWCGxrGmNfoDMlmGTgLz10HgGPQJog0K1796vYBTgbOwLXrl4FB7DW3I+x4SER2F6I + QA4JpSDIKgI9EZgm772/DY+AIDBkyBAztarSrMCaMEYAizEwdBjIwc6WCKxbt17oAMLWYE8E+ufGI5BO + CED/v3vi+HEyFIQRwGpUBEpHkQjsalpySGiDBqEkOJwR6InAdHrz/b14BHJycmaWlZaaBdAAbF631mxY + t8ZUVoAItENCb27Y0BOB/jHxCKQrAugM7MEFoXOxIYiCIDqBObNmChF4GxWBJAKxL9CuC/NEYLo+CP6+ + MhMBNP/8qaioUCYDkwh8GDyASwRGrcEJIrB/ZiLl79ojkKYIcCDo5MpJERG4hEQgFIEdMSS0ObYFCREo + swGECFyWpjD42/IIZCYCIAJ3uUQgpcFJRGDytqC3MhMlf9cegTRFIDc3d0YpJMDz77tXUoD1a1YnFIHZ + 2UaJwGuvlUrAiTSFwd+WRyAzEejdu3f3kegMFCIQJCBnA6giUIhAzghMJgJ/nJlI+bv2CKQhAiAC/1iE + DcEkAtesskTgvHkmz1UEckZgggjsnYYw+FvyCGQuAkNIBFZVYUQYFYFrTYII7CTbgurWs0RgqAhcmLlI + +Tv3CKQhAtD/R0QgeYCVy5cJEXg7FIGyNhyKQGkNDh3Am2kIgb8lj0DmIpCbkzOjrKzUPIBdAaIIXENF + YEXYGuwSgaEk2BOBmfuo+DtPRwT69OljicC7zMZ168wmKgLRJSiKQK4Nb9w4JAITy0I8EZiOD4K/p8xE + IBUReB/WhketwU2ahMtCQARec41sDfZEYGY+Kv6u0xUBIQIrK81KEIHkAdghyLmBHTt2SigCpRLgicB0 + fQb8fWUwAsmKwHVmFYnAkpHSGpyCCDyYwVD5W/cIpB8CVASWKxGIUiAVgRUTJggRmO2JwPR7w/0deQRc + BJQIvPsuEoFQBIIMnD1zRmJGoG4NFh5Atgb/0CPoEfAIpAkC3bt3DxWBMPq1UARSEHQvNgeRCGynMwKV + CKwlRGDnNLl1fxseAY8AEWBr8BTMCCQRKDMCH3xQZgR26mQVgWgNlm1BoSBovkfNI+ARSCMESAROGDdW + pMAUBK1ajtZgJQJbuIpAEQS9lka37m/FI5DZCEybMfPrmBE4YzTWhIsiMEYERorAG25QQdDxzEbM371H + II0QgAP4at++fUURyGUhqghUIpCtwaIIvDFJEfi9NILA34pHILMR6N69xx85IzBcFrJa0gASgVgjFm4N + boJlIQlFINOAdpmNmL97j0AaIYAo4NshEVhVXREIIrC5bQ12OgM9EZhG77+/lQxHAA7gZy4RSEmwKAJH + lZjbb4cisEWLxLKQsBLgicAMf2b87acRAnAAP6QicHS5JQKRAriKQCECb8ayEBCBdkagJwLT6P33t+IR + +Erfvv16ChEoisB1ogqcNX26AUEoy0Ki1uCEItATgf658QikCwKDBg9pU1xUJETgOtkavM7cO9cqAtu1 + C7cGJxSBTANap8u9+/vwCGQ8AkgDboyIQOT/4dbgUBHYUYhALgupG20Nvuqqq+YBtO/g+oG9vouPf5nx + QHoAPAI1EQE4gFr5+fm7JmBrsCgCIQhauSwkAqU1GIrAevXrm9rXhzMCr7zySs4IvBJXPVwt7FULH32z + UE18APxrzmwE4AB+gQageUIEzr8/WhaircFZWVmmIbcGW0UgIgASgWwM4t7AQlyjcVXg6oCL0YD/4xHw + CNQkBAYNHvxgCbYG33P33aEiEGlARAS6MwItEfj1r3+9HPc3HtdUXLNxzbUfL69J9+1fq0fAIwAESkaV + 3svWYK4KZ2sw9QCqCGxnicAb69QRHuDqq682F1xwwSZr9Pfj4wJ70Qlc7QH1CHgEahgCEyomjRkyZIiZ + MhmKQBCB7oxAtga3bNnKNGrU2NTn4lC0BwdB8BhucbG9FuHjA7iYCvy8ht26f7keAY8AeIBGUAS+ztbg + RQsfMHfOmSNVAJKAHbA2nINCWRHQz7/3ve/tB2obcC3H9aAN/5t5JD0CHoEaiIAQgXn5zw3IzQ2NXYwe + F4w+/Dw0/qysbPPrSy55D7f4OK4tuJbhugNXF1wsDfo/HgGPQE1EoFv37lvU+MOTPjT8Zs2anQTzf+yX + v/zlYdzX67hewfWUdQBz8JEdgt+viffsX7NHwCOQQOCXP/jBDyZfdNFF6372858f/u53v8ty3ye43sH1 + Fi6OBj+A61lcO3CxAlAb1zc8iB4Bj0DNR4AhfCdcM3C9gOsoLp76b+B6FddLuJj7M+xvi+ufcH2t5t+2 + vwOPgEdAEaATYC2fAh+e9LuswbPUV4KLCsAAl5f++mfGI5CmCHwV9/VtXJfguhDXxbg0zPcnfpq+6f62 + PAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgE + PAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgE + PAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHIXAT+PwYoL4XL7Gt9AAAAAElFTkSuQmCCACgAAAAwAAAA + YAAAAAEAIAAAAAAAgCUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABmZma9WVlZ80A/P+4AAAAdAAAABgAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACTk5P/Pj4//w8PD/wAAAC4 + AAAAfwAAACoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHFxcSmampzt + hYSG/0ZFROAdHR2EAAAAgwAAAIIAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAHV1doCrrK/7dHR0/0NCQtUlJSRLAAAASwAAAE4AAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAHh4eKi1trn/ZGRk/0JCQcMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIODhLuysrb/V1ZW/kRDQ5sAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIyMjcqgoKL/TUxM7kVERDcAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaWl9+Ki4z/ + R0dG2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + dXV0WJ6foPRzc3P/RURExQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAd3Z2r6Slp/9hYGD/Q0NCtgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh4aGyampq/9UUlL+RENDnQAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnJyc2KWlp/9KSkn5RERDbQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9fHsGsLCx5ZmZm/9FREPn + RUVEEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJiIYy + v7/B8YWEhf9DQkLRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACKiYiEw8PE/HBvbv9DQ0KzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACRkI69vr6+/19eXflGRkVvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmpaPWtLS0/1ZVVO9ISEckAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIqJhyS7urnspqWk/05NTORLSkkG + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAImIhnfV1dL6 + lZSS/0tKSdkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAI6Niqbr6ur+goF//0xLScoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAKCenLvq6un/cnFu/01MS68AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKmnpsja2dj/ZGNg9lBOTVgAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALu/wNvAwcH/W1pY4AAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqX86qNm/qfWbhXX/ + WlROyQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACfcBkG + wI0c4NedU/+VZxn/h2AZ6YRcGXIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACndBkNxZRR5suYW/+LXRn/lWoZ/6p5Gf6NYhmId1QZBgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArZ+X19/Itf+cdUP/qXgZ/7+IGf/Mjxn/pncZwYpiGUMAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAk2wZCZxuGZuVaRmu + mWwZaZxuGQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcmIGxb+74tzFsv+ugUX/voUZ/8CIGf/TlRn/ + 2JkZ/72FGe6bbhlvkGcZEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + rn4ZbrV/Gf+fbxn/uYEZ/7eBGcyqehlWtIMZBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACOjYse0MvI7q6LdP+1ghn/ + vYUZ/72FGf/DiRn/zpIZ/9SVGf/Pkxn/sH0Zz5JoGUEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAxIsZx8uPGf+peBn/tYAZ/8eLGf/IjRn/xo4Zp8mSOBMAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJiol5 + 0MS8+Z12XP+5gxn/u4MZ/76HGf/IjRn/0Zch/9CVG//NkRn/0pQZ/8KIGfeoeBmok2gZKgAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACxgBlR15kp+tSYGf/Eihn/uYIZ/8aLGf/MkRn/yo8Z/9KXGcvUm0cf + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACUlZK2yrar/5JrTP+6gxn/vIUZ/8CIGf/Ljxn/2pw6/96iT//Qly3/y5EZ/8yRGf/Pkhn/ + uIMZ455wGXOPZhkcAAAAAAAAAAAAAAAAAAAAAK1+GQ7LkRnT3qBD/92fRP/QlBn/wogZ/8yRGf/Zmhn/ + 0pYg/9SXGf/XmSnLz5c9GgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACkpKLR2sWz/6aBWf+7gxn/vYUZ/8OIGf/QlBn/255B/96hTf/fok// + 2ZxF/8uTGf/Fihn/zI8Z/8uPGf+4ghnolmsZZAAAAAAAAAAAAAAAALGAGU/Zmhn/3p9H/9+jUP/bnT// + zJEZ/8mPGf/cnTr/4KNR/9qdRv/SlBn/z5UZqcmUNgEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIGAfQ21tLPjtpyL/6Z/UP+9gxn/vYUZ/8aKGf/Ulxn/ + 3qFJ/9+jTf/en0v/3qJH/9yeQP/NlB3/xo0Z/8eLGf/Ljxn/wogZ/6l5GbKUaRlMlGwZFb6IGarVlxn/ + 2psa/9yeNv/cnkD/15gZ/8mPGf/bn0j/36NT/9+jUf/Slxz/y48Z/8iRGW8AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAISDgWHMysj3p4l3/65/Pf+9hRn/ + v4cZ/8mPGf/XmSr/36NN/9+iTP/eoEn/3Z5B/9yfPf/dnzr/2psm/86TGf/Hixn/y48Z/8uPGf/Fihn/ + s38Z372FGf3Ljxn/zpIZ/9OVGf/Ulhn/0JQZ/7yFGf/YnEv/4KNT/9+iTP/bnT//yI4Z/8WLGejDjhkV + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJSUkZvf2dX9 + m3li/7aDGf+8hRn/wIgZ/8uRGf/anDr/36NN/9+jTP/eoEn/3Z9B/9ucO//bnDH/2psd/9maGf/Tlhn/ + zJEZ/8iNGf/Jjxn/yo8Z/8OJGf+/hxn/u4MZ/7mCGf++hRn/tH4Z/657Gf/dolL/36NQ/92fQf/cnTD/ + z5UZ/8SKGf/DixmovIoZAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAJqcm7bf0cn/lW1O/7qCGf+9hRn/w4kZ/9GVGf/dnkb/36NN/96fS//dn0f/3Z5A/9yeOf/amy3/ + 2ZoZ/9iZGf/Ylxn/1ZYZ/82RGf/Gixn/xIoZ/8WKGf/IjRn/xYoZ/7V/Gf+fbxn/kmYZ/76JJf/doEn/ + 15o7/9eZMf/amxn/2ZkZ/8uPGf/Eihn/vooZNAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAKuelsTSwLX/sYZW/72FGf+9hRn/xosZ/9SYGf/eokz/3qJM/96gSf/eoEb/ + 3Z49/9ucN//anCH/2ZkZ/9iZGf/Xlxn/0pUZ/86SGf/Jjxn/wIgZ/7mCGf+5ghn/vIUZ/7R/Gf+baxn/ + r3sZ5tWZGd7QkxnxyI4Z/sKJGf/FjRn/0ZQZ/9CTGf/DiRn/wosZfgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArnoZrMydZvG6kGD/oHQZ/7yFGf+/hxn/yo8Z/9eaL//fo03/ + 3qJM/96gSP/dn0T/3J0+/9ucM//Zmxr/2JkZ/9iXGf/UlRn/0JQZ/8uPGf/Fihn/vYUZ/7aAGf+qeBn/ + oG8Z/5RnGf+HXRnKrn8ZHsWQGw/AjBkfvIcZQr2HGXi/iBnew4kZ/8iOGf/Kjxn/w4oZ3r6KGRYAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsoAZ0dmgWf+gbRn/hFkZ/7N/Gf/CiBn/ + zpIZ/9qcPP/fok//3qJM/96gSf/cnkD/3J07/9ucLf/Zmhn/2JkZ/9WWGf/TlRn/zZEZ/8eNGf/CiBn/ + uYMZ/7B8Gf+ldBn/lmkZ/4hdGex6VhktAAAAAAAAAAAAAAAAAAAAAAAAAAC6hhkbvIcZl8CIGe7HjRn/ + xYoZ/8CLGWkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAg146q76rn/6hfFP/ + kmkZ/7WAGf/Hixn/z5QZ/92fR//eok7/36FK/96gSP/cnj//3J03/9qbIf/ZmRn/15cZ/9SVGf/RlBn/ + zJEZ/8WKGf+9hRn/tH8Z/6l3Gf+cbBn/jWEZ/3xWGXsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAALiFGT3DiRnqxooZ/7+JGaEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + mZeWwt7f3/97dG//fFk5wryDGcnSlRn/z5MZ/9KXL//go1H/36NM/96gRP/cnT3/250z/9mbGf/YmRn/ + 1ZYZ/9KVGf/Okhn/yI0Z/8CIGf+5ghn/rXoZ/6FxGf+SZhn/hFwZoHlWGQgAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAC2hBkpwokZ1cOKGde3hRkDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAl5eVzsvLyP9paWb/Z1lOgrSEGQfNkxmT05YZ+M+SGf/PlST/2ZxE/96gRv/cnTv/ + 25so/9maGf/YmRn/1ZYZ/9CUGf/Ljxn/w4kZ/7yFGf+zfhn/pnQZ/5hqGf+IXRnqfVgZIwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtoQZOL+IGcGufhkZAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfXt5Mn99erVcWle9Sk1NHgAAAAAAAAAAy5MZUtCUGePRkhn/ + yY8Z/86UJv/bnDn/2psm/9mZGf/Xlhn/1JYZ/82RGf/Hixn/v4cZ/7aAGf+reRn/nGwZ/41hGfx7VhlJ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALaEGR2xgRkP + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAMeRGSTLkRmWzpIZ/8iOGf/GjRn/y5MZ/9eYGf/Xlhn/0ZQZ/8uRGf/Eihn/u4UZ/7F9Gf+icRn/ + k2YZ/4JbGZsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxI4ZasaNGczGixn/v4cZ/8SKGf/Jjxn/yI4Z/8eNGf+/hxn/ + t4EZ/6l3Gf+Yahn/hFoZzHZTGRgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL2KGQm/iRlvxIoZ58WKGf/Eihn/ + vocZ/7eBGf+yfhn/qHcZ/5lrGf+GXBn/fFcZTQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + u4cZHr6JGVnAiRmoxIoZ7sKIGf+/hxn/s34Z/51uGe6IYRlzhWAZBwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuYUZJryHGV67hRl8q3sZc5VrGTAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAD//g////8AAP/+B////wAA//wD////AAD//AP///8AAP/8P////wAA//w/////AAD//D// + //8AAP/8f////wAA//h/////AAD/+H////8AAP/4f////wAA//h/////AAD/8H////8AAP/w/////wAA + //D/////AAD/8P////8AAP/w/////wAA/+D/////AAD/4f////8AAP/h/////wAA/+H/////AAD/4f// + //8AAP/j/////wAA/8P/////AAD/gf////8AAP+Af////wAA/8A//g//AAD/gA/+A/8AAP+AB/4B/wAA + /4AB/AD/AAD/gAB4AH8AAP+AADgAPwAA/wAAAAA/AAD/AAAAAB8AAP8AAAAADwAA/wAAAAAPAAD/AAAA + AA8AAP4AAAAABwAA/gAAAD4HAAD+AAAAf4cAAP4AAAB/wwAA/gAAAP/jAAD+GAAB//MAAP/8AAP//wAA + //8AA///AAD//4AH//8AAP//4Af//wAA///8H///AAAoAAAAIAAAAEAAAAABACAAAAAAAIAQAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBuSHd3d/1QT0/2 + AAAAZgAAABsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6enuT + mZmb/z4+PfMAAACvAAAAhgAAAC0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAIqKi7iQkJL/PDw7ywAAAEAAAABcAAAAOwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAlZWXxoGBg/87OzqqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACbm5zYampq9zs6OlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdHNyBpiYmvFVVFTjPDw7BgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9fXyXl5eZ/0ZFRNUAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJSTkrmUlZf/PTw8yAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAp6amyIiHiP87Ojqw + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0s7PZ + cnFx+Ds6OnIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + kZCNRLS0tO1eXVzoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACYl5OQu7u5/VJRT9kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAKSjoba6ubf/SEdGygAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAubi2xq6rqv9GRUO2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADHyMjVkpKR/UNFRW0AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApXQZZ97HsfJ1bGXlXT0eDQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC7gxnGyo0t/4laGfePYBnB + e08ZBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL+WasLNqor/ + nGkZ/8GFGf+mcRmvjGAZJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJtoGWmXZhlj + oG4ZDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + tq+pxte4of+6fhn/yYgZ/9+ZGf/Ehxnmnm0ZZpZmGQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0fhlI + t3wZ/LB2Gf/AghnTuoEZVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAC7ubfWx5tz/71/Gf/Ehhn/05IZ/9uYGf/TkBn/uH4ZvJ1rGT0AAAAAAAAAAAAAAAAAAAAA + AAAAAMmNGaTWkxn/vIAZ/82MGf/Rjxn91pcah9ibPwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAj5GQP7qwqOm6i1v/wYIZ/8iHGf/emhv/46BG/9iYHf/TkBn/yIgZ96x3GZiWZxku + AAAAAAAAAAC3gBk/46Ax/+akPv/Pjxn/0ZAZ/+GeJv/emhn/2JgjhgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACMjYuKwLCm+LSESf/Cghn/y4oZ/+CeL//npUj/56RH/9qZKv/Pjxn/ + 0Y4Z/8KFGeypcxl2kmQZFcCGGZvhnhn/5KE9/9+cGf/Tkhn/56VN/+OhRP/UkRn/zZEZUAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKGiobXbxrT/tH8p/8ODGf/RkBn/46A//+ekR//moj// + 5KA4/+GeJf/Wkxn/0pAZ/9CPGf/ChRnww4UZ+8yKGf/Qjxn/0Y8Z/8OHGf/nplD/56RG/9eWGf/JiRnW + w4oZEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtLm6xNi4nv+6fhn/xIUZ/9eVGf/npUX/ + 5qJE/+ShPf/joC7/4p4Z/9+ZGf/blRn/0Y8Z/82MGf/Kihn/yIgZ/7l+Gf+hbBn/wYgZ/+ekRP/fnSz/ + 4ZsZ/8+NGf/EiBl+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALB3GRjSuKLaxJpy/71/Gf/IiBn/ + 3poj/+ekSf/moUL/5KA5/+KfKv/gmxn/3pgZ/9uXGf/SkBn/yYkZ/7uAGf+6fhn/pm8Z/6FuGczTlRmc + zY4ZvcSHGeLPjhn/1JEZ/8mJGc7DihkLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtHwZsMyQOf6SYBn/ + tXwZ/82MGf/hnzb/56RJ/+ShQP/jnzf/4p0m/+CaGf/clxn/15MZ/82MGf/ChRn/tHoZ/6BsGf+CVRne + mmsZHQAAAADBiBkBwocZHsKGGYvJiRn1zYwZ/8SKGVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPcFmX + 1MCu/pJrNvW7fhnz1JEZ/+GfP//npUv/5KA9/+OfNP/hmxn/35kZ/9uVGf/SkBn/yYkZ/7uAGf+ocBn/ + kV8Z+nZOGVMAAAAAAAAAAAAAAAAAAAAAAAAAAL2FGTrIiBnsxYgZowAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAKCio7K6v77/ZVpRybyFGTralhnm15MZ/9+eOv/koT7/4p4s/+CbGf/emBn/15IZ/8yKGf/Bgxn/ + sXgZ/5pmGf+BVhmPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuFGTnBhRmlAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAgH58Hnl2c6lHS0taAAAAANOTGR7Tkhmy0o8Z+9STGf/bmRv/4JoZ/9uXGf/SkBn/ + yIgZ/7h9Gf+jbhn/hlgZyHpSGQsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALmCGRO0fxkF + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPkBlqzIoZ48iIGf/Qjxn/ + 0ZAZ/8qKGf+/gRn/q3MZ/45eGfN2Thk7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCiBkQ + xIcZiMiJGdrHiBn7wIMZ/7R6Gf+aZhn/flUZfgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAwocZEsSIGU7EhxmUu4AZppZmGWCFWxkFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP+D////gf///4H///+P////j////w////8f////H/// + /x////8f///+P////j////4////+P////j////w////8H////A/4//wD8H/8AfAf+ABgH/gAAA/4AAAH + +AAAB/AAAAPwAAED8AAD4/AAB/PxAAf5/8AP///gH///+B//KAAAABgAAAAwAAAAAQAgAAAAAABgCQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBgYLSXl5czlVVVI9VVVRN + VVVUEVVVVAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIKCg1qNjpHrSkpJ0VVVVJ1VVVR+VVVUMlVVVAMAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJSUlZKIiIrv + QUBAuFVVVEpVVVRdVVVUIlVVVAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAImJirN4eHjwPTw8glVVVAFVVVQBVVVUAQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAImJic1mZmbrOTk4OwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkpGRE5mZmd5YWFjfODg3EwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAApaWlUJ6en+lPT07OAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnZyajJWUlPJEREK1 + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApKOgt4qJiPVHRkWXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + tbSzyoKBfu1EQkFyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwL272XJ0dd4AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACnchlhsZmI7GdYTcgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC9iSa0uIVA/ZJjGemLWhmj + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKh1GQeUZRkPn28ZAQAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACwl4azxaF//Lh8Gf/GiBn4p3MZfpdoGRMAAAAAAAAAAAAAAAAAAAAA + AAAAAK54GWKibxnFrHcZasSKGQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwsbPB + yZ94/79/Gf/Ukhn/2JYZ/7yBGcWlcRlPo3EZAgAAAAAAAAAAs34ZFMqPGcnEhhn/xocZ/9CQGbPXmjce + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACqo57Vv49Y/8GCGf/WlRn/5qNF/9uZGf/Kixn4 + sHkZpqJwGTYAAAAAt4IZYuWiPf/YmRn/1JQZ/+GfLP/XmB29zZEZFAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAJOZm0ivo5vmu4hC/8WFGf/bmSj/5qRN/+KhQf/ZmRn/1ZIZ/8SGGeesdxmSwIUZzdqYGf/ZmBn/ + 0JIZ/+inU//ZmRn/yYwZigAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKOGcYq9raPvvYMZ/8qKGf/gnzj/ + 5qRI/+OgO//inyr/3pkZ/9aUGf/Qjxn/yosZ/8WGGf+yeBn/w4ob/+WiQf/dmhn/zY4Z7cGKGTkAAAAA + AAAAAAAAAAAAAAAAAAAAAL+LT73Al2v7uX4Z/9GRGf/lo0X/5aNG/+KfNf/gnBn/3pgZ/9aSGf/Kixn/ + vYEZ/6tzGf+cahnDyY0Ze8qMGZvIixne0I8Z/8aKGY0AAAAAAAAAAAAAAAAAAAAAAAAAAL+TYdaldzT/ + tHkZ/9qYGf/mpE3/5aJB/+GfLf/fmRn/2ZUZ/9CPGf/DhRn/rnYZ/4ZZGd6OYhkwAAAAAAAAAADAhhko + xYcZrciLGdvJiBkkAAAAAAAAAAAAAAAAAAAAAKiqqNeBc2nht4IZx9uXGfLenDP/46FA/+GeJ//emRn/ + 1pIZ/8mKGf+4fRn/mmcZ+XlQGV4AAAAAAAAAAAAAAAAAAAAAvIUZC76FGYm8gxk9AAAAAAAAAAAAAAAA + AAAAAIGCgIdaW1qCAAAAANSRGUzSkRnN0pIZ/9iWGf/alhn/0JAZ/8CEGf+mcBn/glcZmQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAALmDGQu1gRkMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPkBkd + xogZgsaIGeLNjBn/xIYZ/7B5Gf+MXhnTdE0ZHwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAw4gZAsOHGSfDhxlnw4cZqap0GaaFXBk6 + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP4H/wD8B/8A/Af/APwP/wD8f/8A + +H//APj//wD4//8A+P//APj//wD5//8A8f//APD+PwDwPh8A8AwPAPAEBwDgAAcA4AADAOAAAwDgAGEA + 4ADxAOQB+QD+Af8A/wP/ACgAAAAQAAAAIAAAAAEAIAAAAAAAQAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACurawCqaio/5iXl/COjYwDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAwcHBFauqqf+RkI+9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAMbFxUqwsLD/jo2MhwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAADGxcWkpaSk/46NjFEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwsLC85qZmf+OjYwYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxsXFBbu7u/+Yl5fkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMbFxSC6urr/kI+OrgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDw8NftLCs/42CdYAAAAAAAAAAAAAAAAAAAAAA + mGsZDnpWGTCUaBkMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwcDAwrSdg//CiSPUhl0ZRgAAAAAAAAAA + AAAAAJJpGUeXaRnmlWkZoKt6JiEAAAAAAAAAAAAAAAAAAAAAAAAAALy8vPzNqm7/5aEy/9WVHfWRZhme + hFwZKphrGQyjdiSnzZAf/8WKHf+xgCS7q3obHQAAAAAAAAAAAAAAAMbFxQu4trP/0Z9I/+akSP/joTr/ + yYwb/6VzGd6SZxmuwIcb8NCRGv/LkSr/0ZU1/6JzGZCsfBkCAAAAAAAAAADGxcUvubi3/9iaMv/npUn/ + 46A1/+CcHf/UkRn/wIYZ/7uAGf+SZBnooXEexrJ+IemreBn6nXEZMgAAAAAAAAAAxMPDcravp/3ioDP/ + 56RK/+KfKf/emRn/1JEZ/8GEGf+HWxn0clAZUah2GRmdbxkvnm8ZraJzGZWkcRkfAAAAAKyrq6uto5X2 + 3JomxN+eNu7gnCL/25UZ/8uMGf+gbhn/USoAhgAAAAAAAAAAAAAAAKd2GRaVahlmlmoZMQAAAACcm5uO + n56d7Zh8SG6jchm7s30Z/8CGGf+weRn/dlEZwkwmABgAAAAAAAAAAAAAAAAAAAAAAAAAAKF1GQQAAAAA + AAAAAI6NjBsAAAAArHgZF5psGVecbRmii2EZsFAsADIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + 4f8AAOP/AADj/wAA4/8AAOP/AADH/wAAx/8AAMePAADDhwAAwAMAAIABAACAAQAAgAAAAIA4AACAPgAA + 0H8AAA== + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Constructor.vb b/app - Kopie/DD-Record-Organiser/frmForm_Constructor.vb new file mode 100644 index 0000000..fe76e03 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Constructor.vb @@ -0,0 +1,2468 @@ +Imports DevExpress.XtraScheduler +Imports WINDREAMLib +Imports System.IO +Imports DevExpress.XtraGrid.Views.Grid +Imports System.Text +Imports DevExpress.XtraTreeList +Imports DevExpress.XtraTreeList.Nodes +Imports DevExpress.XtraEditors.Repository + +Public Class frmForm_Constructor + 'Private Shared _Instance As frmForm_Constructor = Nothing + 'Public Shared Function Instance() As frmForm_Constructor + ' If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + ' _Instance = New frmForm_Constructor + ' End If + ' _Instance.BringToFront() + ' Return _Instance + 'End Function +#Region "+++++ Konstanten und Variablen +++++" + Private CONSTRUCTORID As Integer + 'Private akt_ctrl As Control + Private FORM1_ID As Integer = Nothing + Private ACT_EBENE As Integer = 0 + Private ACT_EBENE_STRING As String = "" + + + Private EBENE1_ENTITY As String = Nothing + Private EBENE1_COLUMNNAME As String = Nothing + Private EBENE1_GRID_RESULT As String = Nothing + Private EBENE1_RECID As Integer = 0 + + Private EBENE2_PARENT_ID As Integer = 0 + Private EBENE2_ENTITY As String = Nothing + Private EBENE2_COLUMNNAME As String = Nothing + Private EBENE2_GRID_RESULT As String = Nothing + Private EBENE2_RECID As Integer = 0 + + Private EBENE3_PARENT_ID As Integer = 0 + Private EBENE3_ENTITY As String = Nothing + Private EBENE3_COLUMNNAME As String = Nothing + Private EBENE3_GRID_RESULT As String = Nothing + Private EBENE3_RECID As Integer = 0 + Private EBENE_SQLRESULT As String + + Private DT_CONSTRUCT_VIEW As DataTable + + Private DT_SELECTION As DataTable + Private thisFORMVIEW_ID As Integer + Private _windream As New ClassWindream + Private SelectedRecordID As Integer + Private EDIT_STATE As String = "none" + Private RECORD_CHANGED As Boolean = False + Private RECORD_NEEDS_REFRESH As Boolean = False + + Private PARENT_RECORDID As Integer = 0 + Private act_ParentEntity_String As String + Private act_PKEntity_String As String + 'Private act_ParentGridView As DevExpress.XtraGrid.Views.Grid.GridView + ' Private act_GridView As DevExpress.XtraGrid.Views.Grid.GridView + Private act_FormViewID As Integer + + + Private Record1_ID As Integer + Private Record2_ID As Integer + Private Record3_ID As Integer + Private insert = False + Private windream_Docshow As Boolean = False + Private FOLLOW_UPisActive As Boolean = False + Private WD_Suche As String + Private SP1 As String + Private SP2 As String + Private SP3 As String + Private SP4 As String + Private SP5 As String + Private FormLoaded As Boolean = False + Private vFormClosing As Boolean = False + Private dataloaded As Boolean = False + Private SaveRoutine_Active As Boolean = False + + Public Shared windream_temp_search + + Private CheckBoxEditorForDisplay As RepositoryItemCheckEdit + Private DocView + Private OpenedFileString As String + Private DocViewString As String + + Private DT_FU_Record As DataTable + Private DT_FU_ENTITY As DataTable + Private FOLL_UP_RECORD_DEFINED As Boolean = False + Private FOLL_UP_DATE_CTRL_ID As Integer + Private FOLL_UP_DONE_CTRL_ID As Integer + Private FOLL_UP_ID As Integer + 'Private Shared _Instance As frmFormInput = Nothing + 'Public Shared Function Instance() As frmForm_Constructor + ' If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + ' _Instance = New frmForm_Constructor + ' End If + ' _Instance.BringToFront() + ' Return _Instance + 'End Function + +#End Region +#Region "+++++ Mouse/Key Events +++++" + + Private Sub frmForm_Constructor_HandleDestroyed(sender As Object, e As EventArgs) Handles Me.HandleDestroyed + + End Sub + Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown + + End Sub + Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp + + End Sub + Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove + + End Sub + Private Sub frmForm_Constructor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + vFormClosing = True + Check_Record_Changed() + SaveLayout() + CloseWDDocview() + ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR") + End Sub + +#End Region + Private Sub SaveLayout() + Try + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "FORM_CONSTRUCT-Splitter-" & CONSTRUCTORID & "-UserLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting) + 'settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterPosition)) + ' settings.Add(New ClassSetting("SplitContainerControlDetails1", SplitContainerControlDetails.SplitterPosition)) + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + settings.Add(New ClassSetting("TreeViewEbeneSelect", TreeViewEbeneSelect.Size.ToString)) + 'settings.Add(New ClassSetting("GroupControlSelection", GroupControlSelection.Size.ToString)) + layout.Save(settings) + + Catch ex As Exception + MsgBox("Error while saving custom Layout:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub LoadLayouts() + Try + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "FORM_CONSTRUCT-Splitter-" & CONSTRUCTORID & "-UserLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) + settings = layout.Load() + + If settings.Count = 0 Then + 'settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterPosition)) + 'settings.Add(New ClassSetting("SplitContainerControlDetails1", SplitContainerControlDetails.SplitterPosition)) + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + settings.Add(New ClassSetting("TreeViewEbeneSelect", TreeViewEbeneSelect.Size.ToString)) + 'settings.Add(New ClassSetting("GroupControlSelection", GroupControlSelection.Size.ToString)) + layout.Save(settings) + End If + + For Each s As ClassSetting In settings + Select Case s._name + Case "SplitContainerDetails" + ' SplitContainerDetails.SplitterPosition = Integer.Parse(s._value) + Case "SplitContainerControlDetails1" + ' SplitContainerControlDetails.SplitterPosition = Integer.Parse(s._value) + Case "SplitContainerMain" + SplitContainerMain.SplitterDistance = Integer.Parse(s._value) + Case "TreeViewEbeneSelect" + Dim result() As String + result = s._value.Split(",") + Dim width As Integer + Dim height As Integer + For Each f As String In result + If f.Contains("{Width=") Then + Dim res = f.Replace("{Width=", "") + width = CInt(res) + Else + Dim res = f.Replace(" Height=", "") + res = res.Replace("}", "") + height = CInt(res) + End If + Next + TreeViewEbeneSelect.Size = New System.Drawing.Size(width, height) + Case "GroupControlSelection" + Dim result() As String + result = s._value.Split(",") + Dim width As Integer + Dim height As Integer + For Each f As String In result + If f.Contains("{Width=") Then + Dim res = f.Replace("{Width=", "") + width = CInt(res) + Else + Dim res = f.Replace(" Height=", "") + res = res.Replace("}", "") + height = CInt(res) + End If + Next + 'GroupControlSelection.Size = New System.Drawing.Size(width, height) + + End Select + Next + 'MsgBox(My.Settings.OV_Position) + 'Me.Location = New Point(My.Settings.OV_Position) + 'MsgBox(My.Settings.OV1_SEebene1_SD) + ' SplitContainerControlDetails1.SplitterPosition = My.Settings.OV1_SCDetails1 + Catch notFoundEx As System.IO.FileNotFoundException + MsgBox("Datagridview-Layout could not be loaded. Layout will be saved after closing", MsgBoxStyle.Information) + + Catch ex As Exception + MsgBox("Error while loading custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub frmForm_Constructor_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Me.Cursor = Cursors.WaitCursor + SplitCont_Details.Collapsed = True + CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID + ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR") + VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID) + If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then + 'Load Input Grid + Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE") + 'Die Standards ein/ausblenden + End If + Load_TreeViewEbene() + FormLoaded = True + + Catch ex As System.Exception + MsgBox("Error while Loading Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + tslblEntity.Text = "" + Me.Cursor = Cursors.Default + End Sub + Sub Load_TreeViewEbene() + Try + Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " ORDER BY SEQUENCE" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + Dim GRANDFATHERNODE1 As TreeNode + Dim GRANDFATHERNODE2 As TreeNode + Dim FATHERNODE As TreeNode + If dt Is Nothing Then + MsgBox("No Result for Level 1-Entities - Check logfile", MsgBoxStyle.Exclamation) + Else + If dt.Rows.Count = 1 Then + TreeViewEbeneSelect.Nodes.Clear() + GRANDFATHERNODE1 = TreeViewEbeneSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString) + GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID") + 'Ebene 2 Entities herausfinden + sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & GRANDFATHERNODE1.Tag & " ORDER BY SEQUENCE" + dt = ClassDatabase.Return_Datatable(sql) + If dt Is Nothing Then + MsgBox("No Result for Level 2-Entities - Check logfile", MsgBoxStyle.Exclamation) + Else + If dt.Rows.Count = 0 Then + MsgBox("Not allowed: No Result for Level 2-Entities! Check Config FormConstructor.", MsgBoxStyle.Exclamation) + Else + For Each rowentity2 As DataRow In dt.Rows + FATHERNODE = GRANDFATHERNODE1.Nodes.Add(rowentity2.Item("FORM_TITLE").ToString) + FATHERNODE.Tag = rowentity2.Item("FORM_ID") + EBENE2_PARENT_ID = dt.Rows(0).Item("PARENT_ID") + 'Ebene 3 Entities herausfinden + Dim DT3 As DataTable + sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & FATHERNODE.Tag & " ORDER BY SEQUENCE" + DT3 = ClassDatabase.Return_Datatable(sql) + If DT3 Is Nothing Then + MsgBox("No Result for Level 3-Entities - Check logfile", MsgBoxStyle.Exclamation) + Else + For Each rowEntity3 As DataRow In DT3.Rows + Dim CHILDNODE As TreeNode = FATHERNODE.Nodes.Add(rowEntity3.Item("FORM_TITLE").ToString) + CHILDNODE.Tag = rowEntity3.Item("FORM_ID") + EBENE3_PARENT_ID = rowEntity3.Item("PARENT_ID") + Next + End If + Next + End If + End If + ElseIf dt.Rows.Count = 2 Then + TreeViewEbeneSelect.Nodes.Clear() + GRANDFATHERNODE1 = TreeViewEbeneSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString) + GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID") + GRANDFATHERNODE2 = TreeViewEbeneSelect.Nodes.Add(dt.Rows(1).Item("FORM_TITLE").ToString) + GRANDFATHERNODE2.Tag = dt.Rows(1).Item("FORM_ID") + Else + MsgBox("More than 2 results #(" & dt.Rows.Count & ") for Level 1-Entities!", MsgBoxStyle.Exclamation) + End If + TreeViewEbeneSelect.ExpandAll() + End If + Catch ex As Exception + MsgBox("Error in Load TreeView Ebene:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function LoadGrid_Selection(Grid_SQL As String, Datatable_Grid As DataTable) + Try + DT_SELECTION = Datatable_Grid + EBENE_SQLRESULT = Grid_SQL + Dim i = EBENE_SQLRESULT.ToLower.IndexOf("from") + EBENE_SQLRESULT = EBENE_SQLRESULT.ToLower.Substring(i) + ' Alle Checkboxen für aktuelle Ansicht heraussuchen + Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & CURRENT_FORM_ID + Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck) + Dim listcheck As New List(Of String) + + 'Liste von allen Spaltentiteln mit Checkbox erstellen + If dtcheck.Rows.Count > 0 Then + For Each row As DataRow In dtcheck.Rows + listcheck.Add(row.Item(0)) + Next + End If + + 'Duplikate entfernen + listcheck = listcheck.Distinct().ToList() + + 'Grid leeren + GridControlSelection.DataSource = Nothing + grvwSelection.Columns.Clear() + 'Databinding Neu + Me.BindingSourceEntity.DataSource = Datatable_Grid + GridControlSelection.DataSource = BindingSourceEntity + + ' Den Editor Initialisieren und Optionen setzen + CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() + CheckBoxEditorForDisplay.ValueChecked = 1 + CheckBoxEditorForDisplay.ValueUnchecked = 0 + + ' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen + For Each col As String In listcheck + grvwSelection.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) + + If Not IsNothing(grvwSelection.Columns(col)) Then + grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay + End If + Next + grvwSelection.Columns("Record-ID").OptionsColumn.AllowShowHide = False + Load_GridSelection_Layout() + HideColumns() + Catch ex As Exception + MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + + End Function + Sub SelectedRecord_ShowData(GridColumn_String As String, Optional DirectRecID As Integer = 0) + Try + Me.pnlDetails.Visible = True + ZeigeRecordLogsToolStripMenuItem.Enabled = False + If DirectRecID = 0 Then + If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False) + 'Überhaupt Columns in Grid? + If grvwSelection.Columns.Count = 0 Then + Me.pnlDetails.Enabled = False + Me.tsbtnshowWorkflowtasks.Enabled = False + + tsstatus_Detail_show(True, "Keine Columns in Grid") + Exit Sub + End If + 'Überhaupt Rows in Grid? + If grvwSelection.RowCount > 0 Then + Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(GridColumn_String)) + If Grid_RecordID Is Nothing = False Then + SelectedRecordID = Grid_RecordID + CURRENT_RECORD_ID = Grid_RecordID + Else + tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!") + ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True) + Exit Sub + End If + End If + + Else 'Record wird direkt geladen + If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird DIREKT geladen", False) + SelectedRecordID = DirectRecID + CURRENT_RECORD_ID = DirectRecID + End If + + Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & CURRENT_RECORD_ID + Dim RC = ClassDatabase.Execute_Scalar(Record_Changes) + If Not RC Is Nothing Then + If RC > 0 Then + ZeigeRecordLogsToolStripMenuItem.Enabled = True + End If + End If + 'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen + Select Case ACT_EBENE + Case 1 + PARENT_RECORDID = 0 + EBENE1_RECID = SelectedRecordID + CURRENT_PARENTID = EBENE1_RECID + If Not EBENE1_COLUMNNAME Is Nothing Then + EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME) + End If + Case 2 + EBENE2_RECID = SelectedRecordID + If Not EBENE2_COLUMNNAME Is Nothing Then + EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME) + 'Dim sql As String = "select @p " & EBENE_SQLRESULT & " where [Record-ID] = " & SelectedRecordID + 'sql = sql.Replace("@p", EBENE2_COLUMNNAME) + 'Dim result = ClassDatabase.Execute_Scalar(sql) + 'EBENE2_GRID_RESULT = result 'grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE2_COLUMNNAME)) + + End If + If EBENE1_RECID > 0 Then + PARENT_RECORDID = EBENE1_RECID + CURRENT_PARENTID = EBENE1_RECID + Else + CURRENT_PARENTID = EBENE2_RECID + End If + Case 3 + EBENE3_RECID = SelectedRecordID + If Not EBENE3_COLUMNNAME Is Nothing Then + EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME) + 'EBENE3_GRID_RESULT = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE3_COLUMNNAME)) + End If + If EBENE2_RECID > 0 Then + PARENT_RECORDID = EBENE2_RECID + CURRENT_PARENTID = EBENE2_RECID + End If + End Select + + Me.pnlDetails.Enabled = True + Me.tsbtnshowWorkflowtasks.Enabled = True + Me.tsbtnshowTaskoverview.Enabled = True + tsstatus_Detail_show(False, "") + Catch ex As Exception + MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Function Get_GridResult(Columnname As String) + Dim result As String = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(Columnname)) + If result = String.Empty Then + Return "No Result for Column '" & Columnname & "'" + Else + Return result + End If + End Function + Private Function Check_FOLLOWUP_IsConfigured(ENTITY_ID As Integer) + Try + + Dim sql = "select * from TBPMO_FOLLOW_UP_EMAIL t where t.ACTIVE = 1 and t.DEPENDENT_DATE_CTRL_ID in (select guid from TBPMO_CONTROL where CONTROL_TYPE_ID = 4 and form_id = " & ENTITY_ID & ")" + DT_FU_ENTITY = ClassDatabase.Return_Datatable(sql) + If DT_FU_ENTITY.Rows.Count > 0 Then + 'Die Userauswahl füllen + Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL AND MODULE_RECORD_ORG = 1 order by USERNAME") + cmbWHUser.DataSource = DTUser + cmbWHUser.DisplayMember = DTUser.Columns(1).ColumnName + cmbWHUser.ValueMember = DTUser.Columns(0).ColumnName + TabPageFollowUp.PageVisible = True + FOLLOW_UPisActive = True + + 'Die Wiedervorlageprofile in den Listview laden + ListViewFollowUp.Items.Clear() + Dim anz As Integer = 0 + For Each DR As DataRow In DT_FU_ENTITY.Rows + ListViewFollowUp.Items.Add(DR.Item("GUID")) + ListViewFollowUp.Items(anz).SubItems.Add(DR.Item("NAME")) + anz += 1 + Next + + Else + FOLLOW_UPisActive = False + TabPageFollowUp.PageVisible = False + End If + Catch ex As Exception + MsgBox("Error in Check Follow Up:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + windream_Docshow = False + End Try + End Function + Private Function Check_windream_Show(FORM_VIEW_ID As Integer) + Try + Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID + Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql) + If DTWD.Rows.Count = 1 Then + TabPageWD_Files.PageVisible = True + + If IsDBNull(DTWD.Rows(0).Item(0)) Then + windream_Docshow = False + WindreamSucheNeuLadenToolStripMenuItem.Visible = False + Exit Function + End If + WindreamSucheNeuLadenToolStripMenuItem.Visible = True + windream_Docshow = True + Else + windream_Docshow = False + TabPageWD_Files.PageVisible = False + + WindreamSucheNeuLadenToolStripMenuItem.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Check windream show:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + windream_Docshow = False + End Try + + End Function + + Private Sub Load_Value(recID As Integer, CONTROLID As Integer, control As Control) + Try + Dim SQL = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_ID = " & CONTROLID + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + Dim result = DT.Rows(0).Item("VALUE") + + 'Dim RecordExists = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", recID, CONTROLID)) + + ClassControlValues.ClearControlValue(control) + + Select Case DT.Rows(0).Item("CONTROL_TYPE_ID") + Case 2 ' TextBox + Dim textbox As TextBox = DirectCast(control, TextBox) + textbox.Text = result + Case 10 ' CheckBox + Dim checkbox As CheckBox = DirectCast(control, CheckBox) + checkbox.Checked = CBool(result) + Case 11 'RadioButton + Dim radio As RadioButton = DirectCast(control, RadioButton) + radio.Checked = CBool(result) + Case 3 ' ComboBox + Dim combobox As ComboBox = DirectCast(control, ComboBox) + combobox.SelectedIndex = combobox.FindStringExact(result) + Case 4 'DateTimePicker + 'Console.WriteLine(result) + If result = "" Then + result = Now + End If + Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) + datepicker.DateTime = Date.Parse(result) + Case Else + 'MsgBox(DT.Rows(0).Item("CONTROL_TYPE_ID")) + End Select + Catch ex As Exception + MsgBox("Error in Load_Value:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Try + Dim Control As Control = sender + Dim ControlName As String = Control.Name + Dim ControlId As Integer = GetControlID_for_Name(ControlName, CURRENT_FORM_ID) + + Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId) + + If IsDBNull(dr.Item("INTEGER1")) OrElse dr.Item("INTEGER1") = 0 Then + MsgBox("FormId ist nicht definiert für " & ControlName) + Exit Sub + End If + + If IsDBNull(dr.Item("INTEGER2")) OrElse dr.Item("INTEGER2") = 0 Then + MsgBox("ScreenId ist nicht definiert für " & ControlName) + Exit Sub + End If + + Dim FormId As Integer = dr.Item("INTEGER1") + Dim ScreenId As Integer = dr.Item("INTEGER2") + + Cursor = Cursors.WaitCursor + OpenFormInputFor(FormId, ScreenId) + + Cursor = Cursors.Default + Catch ex As Exception + MsgBox("Error in OpenFormData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Try + Dim ctrl As Control = sender + ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, CURRENT_RECORD_ID, pnlDetails.Controls) + Catch ex As Exception + MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + 'Sub NewAppointment(ByVal sender As Control, FormID As Integer) + ' 'Try + ' Dim Control As Control = sender + ' Dim ControlName As String = Control.Name + ' Dim ControlId As Integer = GetControlID_for_Name(ControlName, FormID) + + ' Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId) + + ' Dim FromDateName As String = GetName_for_ControlID(dr.Item("INTEGER1"), FormID) + ' Dim ToDateName As String = GetName_for_ControlID(dr.Item("INTEGER2"), FormID) + ' Dim SubjectName As String = GetName_for_ControlID(dr.Item("STRING1"), FormID) + + ' Dim FromDateValue, ToDateValue As Date + ' Dim SubjectValue As String + + ' If FromDateName = Nothing Then + ' FromDateValue = Nothing + ' Else + ' Dim from_ctrls() As Control = sender.Parent.Controls.Find(FromDateName, True) + ' Dim from_ctrl As Control + ' If from_ctrls.Length = 1 Then + ' from_ctrl = from_ctrls(0) + ' Console.WriteLine(from_ctrl.Text) + ' FromDateValue = Date.Parse(from_ctrl.Text) + ' End If + ' End If + + ' If ToDateName = Nothing Then + ' ToDateValue = Nothing + ' Else + ' Dim to_ctrls() As Control = sender.Parent.Controls.Find(ToDateName, True) + ' Dim to_ctrl As Control + ' If to_ctrls.Length = 1 Then + ' to_ctrl = to_ctrls(0) + ' Console.WriteLine(to_ctrl.Text) + ' ToDateValue = Date.Parse(to_ctrl.Text) + ' End If + ' End If + + ' If SubjectName = Nothing Then + ' SubjectValue = Nothing + ' Else + ' Dim subject_ctrls() As Control = sender.Parent.Controls.Find(SubjectName, True) + ' Dim subject_ctrl As Control + ' If subject_ctrls.Length = 1 Then + ' subject_ctrl = subject_ctrls(0) + ' Console.WriteLine(subject_ctrl.Text) + ' SubjectValue = subject_ctrl.Text + ' End If + ' End If + + ' Dim apt As Appointment = frmCalendar.SchedulerStorage1.CreateAppointment(AppointmentType.Normal) + + ' If FromDateValue <> Nothing Then + ' apt.Start = FromDateValue + ' End If + + ' If ToDateValue <> Nothing Then + ' apt.End = ToDateValue + ' End If + + ' If SubjectValue IsNot Nothing Then + ' apt.Subject = SubjectValue + ' End If + + ' apt.AllDay = True + ' apt.CustomFields("RecordID") = thisRecordID + ' apt.CustomFields("ControlID") = ControlId + ' frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + ' 'Catch ex As Exception + ' ' MsgBox("Fehler beim Laden der Termininformationen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' 'End Try + 'End Sub + + + Sub EditAppointment(ByVal sender As Control, FormID As Integer) + Try + ' Load All appointments first + frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES) + frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS) + + Dim apt As Appointment = frmCalendar.SchedulerStorage1.Appointments.Items.Find(AddressOf FindAppointment) + If apt IsNot Nothing Then + frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + End If + + Catch ex As Exception + MsgBox("Error in EditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Function FindAppointment(ByVal apt As Appointment) As Boolean + Return Convert.ToInt32(apt.CustomFields("RecordID")) = SelectedRecordID + End Function + + Private Sub OnRecordChanged(sender As Object, e As System.EventArgs) + RECORD_CHANGED = True + End Sub + + Sub Load_Controls(FORM_VIEW_ID As Integer) + thisFORMVIEW_ID = FORM_VIEW_ID + CURRENT_FORM_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID) + CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip) + 'LoadControls(thisFormId) + CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder, + contextMenuCombo, + AddressOf NewEditAppointment, + AddressOf OpenFormData) + CtrlCommandUI.LoadControls(CURRENT_FORM_ID) + AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged + + End Sub + Sub set_pnlsize() + Try + Dim Height = ClassDatabase.Execute_Scalar("SELECT HEIGHT FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + Dim width = ClassDatabase.Execute_Scalar("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + + If Not IsDBNull(Height) Then + 'SplitContainerControlDetails.SplitterPosition = Height + 50 + 'Me.pnlDetails.Height = Height + 'If Not IsDBNull(width) Then + ' Me.pnlDetails.Width = width + 'End If + End If + Catch ex As Exception + MsgBox("Error in set_pnlsize:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function GetControlID(recID As Integer, control As Control) As Integer + Try + Dim ID As Integer = ClassDatabase.Execute_Scalar("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & control.Name & "'") + If ID > 0 Then + Return ID + Else + Return -1 + End If + Catch ex As Exception + MsgBox("Error in GetControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + Public Sub tsstatus_Detail_show(vis As Boolean, txt As String, Optional state As String = "NONE") + Me.tsstatus_Detail.Text = txt + tsstatus_Detail.Visible = vis + Select Case state + Case "insert" + tsstatus_Detail.BackColor = Color.Yellow + Case "update" + tsstatus_Detail.BackColor = Color.LightBlue + Case Else + tsstatus_Detail.BackColor = Color.LightGray + End Select + End Sub + Public Sub tslblStatusMain_show(vis As Boolean, txt As String) + Me.tslblStatusMain.Text = txt + tslblStatusMain.Visible = vis + End Sub + + Public Sub Refresh_CreatedChangedRecordByID(RECORD_ID As Integer) + Try + Dim result = ClassDatabase.Execute_Scalar("select 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID) + If IsDBNull(result) Or IsNothing(result) Then + Me.tserstellt_Details.Text = "" + Else + Select Case CURRENT_FORM_TYPE + Case 5 + Me.tserstellt_Details.Text = "Group-Record (" & RECORD_ID & ") - " & result.ToString + Case Else + Me.tserstellt_Details.Text = "Record (" & RECORD_ID & ") - " & result.ToString + End Select + + End If + tserstellt_Details.Visible = True + Catch ex As System.Exception + MsgBox("Error in Refresh_CreatedChangedRecordByID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String) + Try + If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Or TCDetails.SelectedTabPageIndex <> 1 Then + Exit Sub + End If + Cursor = Cursors.WaitCursor + Dim DTWD As DataTable + If Type = "ENTITY" Then + Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID + DTWD = ClassDatabase.Return_Datatable(_sql) + If DTWD.Rows.Count = 1 Then + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Clear_Windream_ResultList() + Exit Sub + End If + tslblWindreamView.Text = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING + Else + Clear_Windream_ResultList() + Exit Sub + End If + Else + Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID + DTWD = ClassDatabase.Return_Datatable(sql) + If DTWD.Rows.Count = 1 Then + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Clear_Windream_ResultList() + Exit Sub + End If + tslblWindreamView.Text = "Windream-Dokumente für Record: " & SelectedRecordID + Else + Clear_Windream_ResultList() + Exit Sub + End If + End If + 'Die SearchPatterns durchlaufen und zwischenspeichern + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Clear_Windream_ResultList() + Exit Sub + End If + BaseSearch = DTWD.Rows(0).Item(0) + SP1 = DTWD.Rows(0).Item(1) + If IsDBNull(DTWD.Rows(0).Item(2)) Then + SP2 = "" + Else + SP2 = DTWD.Rows(0).Item(2) + End If + If IsDBNull(DTWD.Rows(0).Item(3)) Then + SP3 = "" + Else + SP3 = DTWD.Rows(0).Item(3) + End If + If IsDBNull(DTWD.Rows(0).Item(4)) Then + SP4 = "" + Else + SP4 = DTWD.Rows(0).Item(4) + End If + If IsDBNull(DTWD.Rows(0).Item(5)) Then + SP5 = "" + Else + SP5 = DTWD.Rows(0).Item(5) + End If + + 'Eine tempfile generieren + Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() + 'Nur den Filenamen ohne Erweiterung + Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) + 'tempfile lsöchen + If My.Computer.FileSystem.FileExists(tempFilename1) Then + My.Computer.FileSystem.DeleteFile(tempFilename1) + End If + Try + Dim temppath = Path.GetTempPath + + Dim EncodingFormat As Encoding + Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1") + If WDUnicode = True Then + EncodingFormat = Encoding.GetEncoding(1252) '1252 + If LogErrorsOnly = False Then ClassLogger.Add(">> Unicode is used (Encoding.GetEncoding(1252))", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> UTF8 (Encoding.GetEncoding(65001))", False) + EncodingFormat = Encoding.GetEncoding(65001) + End If + + + Dim fileContents As String + If LogErrorsOnly = False Then ClassLogger.Add(">> ReadAlltext: " & windream_temp_search, False) + fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode + If LogErrorsOnly = False Then ClassLogger.Add(">> fileContents geladen", False) + fileContents = fileContents.Replace("Í", "Ö") + Dim _sp1 = SP1 + Dim _sp2 = SP2 + Dim _sp3 = SP3 + Dim _sp4 = SP4 + Dim _sp5 = SP5 + + + + If _sp1.ToString <> String.Empty Then + _sp1 = Return_SearchPattern(_sp1.ToString) + fileContents = fileContents.Replace("%pattern1%", _sp1) + fileContents = fileContents.Replace("471101", _sp1) + End If + If _sp2.ToString <> String.Empty Then + _sp2 = Return_SearchPattern(_sp2.ToString) + fileContents = fileContents.Replace("%pattern2%", _sp2) + fileContents = fileContents.Replace("471102", _sp2) + End If + If _sp3.ToString <> String.Empty Then + _sp3 = Return_SearchPattern(_sp3.ToString) + fileContents = fileContents.Replace("%pattern3%", _sp3) + fileContents = fileContents.Replace("471103", _sp3) + End If + If _sp4.ToString <> String.Empty Then + _sp4 = Return_SearchPattern(_sp4.ToString) + fileContents = fileContents.Replace("%pattern4%", _sp4) + fileContents = fileContents.Replace("471104", _sp4) + End If + If _sp5.ToString <> String.Empty Then + _sp5 = Return_SearchPattern(_sp5.ToString) + fileContents = fileContents.Replace("%pattern5%", _sp5) + fileContents = fileContents.Replace("471105", _sp5) + End If + 'Die windream File zusammensetzen + windream_temp_search = temppath & tempName & ".wdf" + 'Die File schreiben + My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) + My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat) + ' XML-Datei öffnen und laden + Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) + Dim Reader As New System.Xml.XmlTextReader(Stream) + + ' XML-Datei initialisieren + Dim xml As New System.Xml.XmlDocument() + ' XML-Datei öffnen und laden + xml.Load(Reader) + Reader.Close() + xml.Save(windream_temp_search) + If LogErrorsOnly = False Then ClassLogger.Add(">> Xml Generiert: " & windream_temp_search, False) + + Dim windreamSucheErgebnisse As WMObjects + Try + windreamSucheErgebnisse = Me._windream.GetSearchDocuments(windream_temp_search) + Catch ex As Exception + MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + If windreamSucheErgebnisse.Count > 0 Then + TabPageWD_Files.Text = "windream-Dateien (" & windreamSucheErgebnisse.Count & ")" + + AxObjectListControl.SetIconMode(True) + AxObjectListControl.RemoveAllColumnHeader() + Dim param As New List(Of String) + 'The file name + param.Add("szLongName") + 'The document-Type + param.Add("szText39") + 'Versionsnummer + param.Add("dwVersionNumber") + 'Datumsangaben + param.Add("dwCreationDate") + param.Add("dwCreation_Time") + Me.AxObjectListControl.SetSession(_windream.oSession, "foo", "bar") + 'Change the satus icon + 'ICON STATES: + Me.AxObjectListControl.SetStatusIcon(0) + + 'Change the icon + Me.AxObjectListControl.SetStatusIcon(2) + 'Add all search params + For Each spar As String In param + Dim width As Integer = 200 + Select Case spar + Case "szLongName" + 'The size + width = 300 + Case "szText39" + width = 160 + Case "dwCreationDate" + width = 90 + Case "dwCreation_Time" + width = 120 + End Select + 'You need to use the column name here + 'Please note that some attributes or indices will not be displayed + 'Try not to add the same header twice, it will throw cause problems if you do that + Me.AxObjectListControl.AddColumnHeader(spar, width) + Next + If LogErrorsOnly = False Then ClassLogger.Add(">> AxObjectListControl geladen ", False) + 'Execute the search + Dim results As WMObjects = windreamSucheErgebnisse + If LogErrorsOnly = False Then ClassLogger.Add(">> results geladen ", False) + 'Set the contents without displaying them + AxObjectListControl.SetContentsEx(results) + 'Change the icon + AxObjectListControl.SetStatusIcon(5) + 'Display the results... + 'The Previous Object Count + Dim poc As Integer = 0 + 'Display new objects, as long as the objectcount changes after displaying the objects + + Do Until (poc <> AxObjectListControl.GetObjectCount) + poc = AxObjectListControl.GetObjectCount + 'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader + 'But do not display to many at a time or the user interface could freeze + 'Maybe try 50 + AxObjectListControl.DisplayResults(WDResultListCount) + Loop + AxObjectListControl.SetStatusIcon(3) + Else + Clear_Windream_ResultList() + End If + If My.Computer.FileSystem.FileExists(windream_temp_search) Then + My.Computer.FileSystem.DeleteFile(windream_temp_search) + End If + + Catch ex As Exception + MsgBox("Error in execute-windreamSearch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + Cursor = Cursors.Default + Catch ex As Exception + MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Cursor = Cursors.Default + End Try + + + End Sub + Private Sub Refresh_FollowUp_TabHeader() + Try + DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & CURRENT_RECORD_ID, "Refresh FollowUp TabHeader") + If IsNothing(DT_FU_Record) Then + TabPageFollowUp.Text = "Wiedervorlage (Nicht Abrufbar)" + Exit Sub + End If + If DT_FU_Record.Rows.Count = 0 Then + TabPageFollowUp.Text = "Wiedervorlage (Nicht aktiviert)" + Else + TabPageFollowUp.Text = "Wiedervorlage (Aktive Profile)" + End If + Catch ex As Exception + MsgBox("Error in Refresh_FollowUp_TabHeader:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub Refresh_FollowUps() + Try + If DT_FU_ENTITY.Rows.Count > 0 Then + grpbxFU_Profile.Enabled = False + End If + Catch ex As Exception + MsgBox("Error in Refresh_FollowUps:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub Clear_Windream_ResultList() + AxObjectListControl.RemoveAllColumnHeader() + Me.AxObjectListControl.ClearResultList() + TabPageWD_Files.Text = "windream-Dateien" + End Sub + Private Function Return_SearchPattern(ByVal content As String) + Select Case content.ToUpper + Case "@Record-ID".ToUpper + Return SelectedRecordID + Case "@EntityID".ToUpper + Return CURRENT_FORM_ID + Case "@ParentID".ToUpper + Return PARENT_RECORDID + Case Else + MsgBox("Undefinierter Pattern '" & content & "' in der Windream-SuchKonfiguration. Bitte den Administrator verständigen", MsgBoxStyle.Exclamation) + ClassLogger.Add(" >> Undefinierter Such-Pattern: " & content, True) + End Select + End Function + + Private Sub tsbtnAddForm2_Click(sender As Object, e As EventArgs) Handles tsbtnAddForm2.Click + If CtrlCommandUI.IsInsert = True Then + Exit Sub + End If + RECORD_CHANGED = True + 'Das Flag INSERT setzen + Me.pnlDetails.Enabled = True + Me.tsbtnshowWorkflowtasks.Enabled = True + ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SelectedRecordID, pnlDetails.Controls) + CtrlCommandUI.IsInsert = True + + End Sub + + Private Function Update_Record_OnChange() As String + ' Record Speichern + Dim ResultMessage = CtrlCommandUI.SaveRecord(SelectedRecordID, CURRENT_FORM_ID, PARENT_RECORDID) + 'Jetzt die für die Entität notwendigen Prroceduren ausführen + Customer_Run_Procedures() + + Return ResultMessage + End Function + + Private Sub Customer_Run_Procedures() + Try + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & CURRENT_FORM_ID) + If Not DT Is Nothing Then + For Each row As DataRow In DT.Rows + Dim prsql As String = row.Item("EXECUTE_COMMAND") + prsql = prsql.ToUpper.Replace("@FORM_ID", CURRENT_FORM_ID) + prsql = prsql.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID) + ClassDatabase.Execute_non_Query(prsql, True) + Next + End If + Catch ex As Exception + MsgBox("Error in Customer_Run_Procedures:" & vbNewLine & ex.Message) + End Try + End Sub + + Private Sub tsbtnSaveForm2_Click(sender As Object, e As EventArgs) Handles tsbtnSaveForm2.Click + Try + tserstellt_Details.Visible = False + SaveRoutine_Active = True + If CtrlCommandUI.IsInsert = True Then + EDIT_STATE = "insert" + Else + EDIT_STATE = "update" + NEW_RECORD_ID = 0 + If RECORD_CHANGED = False Then + tslblStatusMain_show(True, "KEINE Änderungen an Datensatz.") + Exit Sub + End If + End If + + Dim ResultMessage = Update_Record_OnChange() + tsstatus_Detail_show(True, ResultMessage, EDIT_STATE) + + Dim recid As Integer + If EDIT_STATE = "update" Then + recid = CURRENT_RECORD_ID + Else + recid = NEW_RECORD_ID + End If + SelectedRecordID = recid + CURRENT_RECORD_ID = recid + + 'Load_Data_for_TreeView() + 'dd() + 'Search_RowHandle(recid) + If EDIT_STATE = "insert" Then + 'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden + Select Case ACT_EBENE + Case 1 + EBENE1_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME) + End If + Next + Case 2 + EBENE2_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME) + End If + Next + If EBENE1_RECID = 0 Then + 'Bis jetzt konnte noch keine Parent-ID angelegt werden! + MsgBox("Achtung es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation) + Show_Verknuepfungen() + End If + End Select + ElseIf EDIT_STATE = "update" Then + 'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden + Select Case ACT_EBENE + Case 1 + EBENE1_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME) + End If + Next + Case 2 + EBENE2_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME) + End If + Next + End Select + End If + 'ddd() + 'Jetzt den Record nochmal laden + SelectedRecord_ShowData("Record-ID", SelectedRecordID) + tslblStatusMain_show(True, "Record gespeichert - " & Now) + Refresh_CreatedChangedRecordByID(SelectedRecordID) + ' TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")" + 'Die Values in die Controls laden + ' Load_Control_Values(CtrlBuilder.AllControls) + 'Refresh_Treeview_SelectedData() + Refresh_Anzeige_Selected_Entity() + 'Die Daten neu laden + 'Load_Data_for_TreeView() + 'Und dann den Focus wieder setzen + If EDIT_STATE = "insert" Then + 'Die Daten neu laden + Load_Entity_Data_Only() + Search_RowHandle(NEW_RECORD_ID) + Else + 'Die Daten neu laden + Load_Entity_Data_Only() + Search_RowHandle(CURRENT_RECORD_ID) + 'Die Daten auf dem Panel laden + ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls) + pnlDetails.Enabled = True + End If + Catch ex As Exception + MsgBox("Error in Save Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + EDIT_STATE = "none" + RECORD_CHANGED = False + SaveRoutine_Active = False + End Sub + Sub Search_RowHandle(Value As String) + Try + Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(Value)) + If rowHandle > 0 Then + grvwSelection.FocusedRowHandle = rowHandle + End If + Catch ex As Exception + ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False) + End Try + End Sub + + Sub Check_Dropped_Files(FORMVIEW_ID As Integer) + Try + CURRENT_FORMVIEW_ID = FORMVIEW_ID + For Each Str As Object In ClassDragDrop.files_dropped + ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False) + Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1) + Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1) + TBPMO_FILES_USERTableAdapter.cmdInsert(CURRENT_WORKFILE, Environment.UserName, DropType) + Next + TBPMO_FILES_USERTableAdapter.Fill(DD_DMSDataSet.TBPMO_FILES_USER, Environment.UserName) + For Each Filerow As DataRow In DD_DMSDataSet.TBPMO_FILES_USER.Rows + Dim worked = ClassDatabase.Execute_Scalar("SELECT WORKED FROM TBPMO_FILES_USER WHERE GUID = " & Filerow.Item("GUID")) + If worked = False Then + 'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "") + CURRENT_FILEID = Filerow.Item(0) + frmWD_Index_Dokart.ShowDialog() + RUN_WD_SEARCH(WD_Suche, "RECORD") + End If + + + Next + + + 'ClassWindream._WDObjekttyp = "DIGITAL DATA - Entwicklung" + 'If ClassWindream.Stream_File(datei, "W:\Brainpool\Produktionen", "String 38", thisRecordID) = True Then + ' If windream_Docshow = True Then load_Documents_for_Record() + 'End If + 'End If + Catch ex As Exception + MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub tsbtndeleteForm2_Click(sender As Object, e As EventArgs) Handles tsbtndeleteRecord.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + EDIT_STATE = "delete" + If CtrlCommandUI.DeleteRecord(SelectedRecordID) = True Then + tsstatus_Detail_show(True, "Der Datensatz " & SelectedRecordID & " wurde erfolgreich gelöscht - " & Now) + Refresh_CreatedChangedRecordByID(SelectedRecordID) + Load_Data_for_TreeView() + End If + End If + EDIT_STATE = "none" + + + End Sub + Sub Show_act_WFTask() + Try + Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, CURRENT_RECORD_ID, Environment.UserName) + tslblactWFState.BackColor = Color.Black + If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then + CURRENT_TASK_ID = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("WF_TASK_ID") + Dim text = "Task: " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("TITLE") + text += " - " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_DESC") + text += " - " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("DUE_DATE") + tslblactWFState.Text = text + tslblactWFState.Visible = True + tsbtnshowWorkflowtasks.Visible = True + tsbtnshowWorkflowtasks.Enabled = True + + Dim Colorstring = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("COLOR") + If IsDBNull(Colorstring) Then + Exit Sub + End If + If Colorstring <> "" Then + grvwSelection.Appearance.FocusedRow.BackColor = ColorTranslator.FromWin32(CInt(Colorstring)) + 'grvwSelection.Appearance.FocusedRow.ForeColor = Color.Yellow + tslblactWFState.BackColor = ColorTranslator.FromWin32(CInt(Colorstring)) + Select Case tslblactWFState.BackColor + Case Color.Red + tslblactWFState.ForeColor = Color.White + End Select + End If + + Else + tslblactWFState.Visible = False + tsbtnshowWorkflowtasks.Visible = False + grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia + End If + Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" + sql1 = sql1.Replace("@FORM_ID", CURRENT_FORM_ID) + Dim result As Integer = ClassDatabase.Execute_Scalar(sql1) + If result > 0 Then + tsbtnshowWorkflowtasks.Visible = True + tsbtnshowWorkflowtasks.Enabled = True + End If + + + Catch ex As Exception + MsgBox("Error in Show act WFTask: " & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub tsbtnshowWorkflowtasks_Click(sender As Object, e As EventArgs) Handles tsbtnshowWorkflowtasks.Click + If SelectedRecordID > 0 Then + frmWF_TaskEditor.ShowDialog() + Show_act_WFTask() + Refresh_TaskOverview() + End If + End Sub + + + Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles tsbtnOverviewRefresh.Click + Check_Record_Changed() + Load_Data_for_TreeView() + End Sub + + Sub Refresh_TaskOverview() + Dim frmCollection As New FormCollection() + frmCollection = Application.OpenForms() + If frmTaskOverview.IsHandleCreated Then + If Sett_TaskOverviewKeepInFront = True Then + frmTaskOverview.Refresh() + End If + 'Else + ' Console.WriteLine("frmTaskOverview NICHT geladen") + End If + End Sub + 'Private Sub GridView2_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView2.FocusedRowChanged + ' If loaded = True Then + ' thisFORMVIEW_ID = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM2_FVID") + ' Dim SQL As String = "SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & DT_CONSTRUCT_VIEW.Rows(0).Item("FORM2_FVID") + ' thisFormId = ClassDatabase.Execute_Scalar(SQL) + ' Load_DataforRecord(GridView2, act_ParentEntity_String) + ' Refresh_TaskOverview() + ' GridView2.Appearance.FocusedRow.BackColor = Color.OrangeRed + ' End If + 'End Sub + + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles tsbtnshowTaskoverview.Click + Dim Record_ID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns("Record-ID").FieldName) + + 'Dim RowView As DataRowView = BindingSourceForm2.Item(BindingSourceForm2.Position) + If Record_ID Is Nothing = False Then + If (Not IsDBNull(Record_ID)) Then + SelectedRecordID = Record_ID + CURRENT_RECORD_ID = SelectedRecordID + frmTaskOverview.Show() + End If + End If + End Sub + + Private Sub StammdatenEditierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenEditierenToolStripMenuItem.Click + Dim MenuItem = DirectCast(sender, ToolStripMenuItem) + Dim ContextMenu As ContextMenuStrip = MenuItem.Owner + Dim SourceControl As Control = ContextMenu.SourceControl + Dim MasterDataId As Integer = SourceControl.Tag + + CURRENT_MASTER_FORM_ID = MasterDataId + ' frmQuickEdit.Show() + frmQuickInput.ShowDialog() + End Sub + Private Sub AxObjectListControl_ItemDblClick(sender As Object, e As AxOBJECTLISTCONTROLLib._DObjectListControlEvents_ItemDblClickEvent) Handles AxObjectListControl.ItemDblClick + Dim _index = AxObjectListControl.GetFirstSelectedObject + Dim path As String = AxObjectListControl.GetObjectPath(_index) + path = path.Replace("?", vWLaufwerk) + If System.IO.File.Exists(path) Then + Try + Dim p As New Process() + p.StartInfo.FileName = path + 'p.StartInfo.WindowStyle = ProcessWindowStyle.Normal + p.Start() + p.WaitForExit() + p.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei öffnen der windream-Suche:") + End Try + End If + + End Sub + Sub Load_GridSelection_Layout() + Try + Dim XMLPath = GetSelectionGridName() + If File.Exists(XMLPath) Then + GridControlSelection.MainView.RestoreLayoutFromXml(XMLPath) + grvwSelection.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + grvwSelection.ClearSelection() + grvwSelection.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + End Sub + Sub Load_GridViewParentEntity_Layout() + Try + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), GridControlParentEntity.Name & "-CONSTRUCT-" & CONSTRUCTORID & "-UserLayout.xml") + If File.Exists(XMLPath) Then + GridControlParentEntity.MainView.RestoreLayoutFromXml(XMLPath) + GridViewParentEntity.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewParentEntity.ClearSelection() + GridViewParentEntity.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Save_GridViewParentEntityLayout() + If GridViewParentEntity.RowCount > 0 Then + 'Console.WriteLine("grvwSelectionLayout-" & Now) + 'Das aktuelle Layout speichern + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), GridControlParentEntity.Name & "-CONSTRUCT-" & CONSTRUCTORID & "-UserLayout.xml") + GridControlParentEntity.MainView.SaveLayoutToXml(XMLPath) + tslblStatusMain_show(True, "Datagrid-Layout Selection saved") + End If + End Sub + Private Function GetSelectionGridName() + Return System.IO.Path.Combine(Application.UserAppDataPath(), GridControlSelection.Name & "-" & ACT_EBENE_STRING & "-" & CONSTRUCTORID & "-UserLayout.xml") + End Function + + Private Sub Refresh_Anzeige_Selected_Entity() + Try + Me.tslblEntity1.Visible = False + Me.tslblEntity2.Visible = False + Me.tslblEntity3.Visible = False + tslblEntity.Text = "" + Select Case ACT_EBENE + Case 1 + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + Me.tslblEntity1.Visible = True + Case 2 + If CURRENT_FORM_TYPE = 5 Then + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### Gruppen-Entität: " & EBENE2_ENTITY + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity2.Text = "Gruppen-Entität: " & EBENE2_ENTITY + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + + Exit Sub + End If + If EBENE1_GRID_RESULT Is Nothing = False Then + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + Else + tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + Me.tslblEntity1.Visible = True + End If + Case 3 + If CURRENT_FORM_TYPE = 5 Then + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity3.Text = "Gruppen-Entität: " & EBENE3_GRID_RESULT + + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + Me.tslblEntity3.Visible = True + Exit Sub + End If + If EBENE1_GRID_RESULT Is Nothing = False Then + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity3.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & _ + " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + Me.tslblEntity3.Visible = True + Else + tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity2.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + + End If + End Select + + Catch ex As Exception + MsgBox("Error in Refresh_Entity_Select:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub CreateColumns(ByVal tl As TreeList) + ' Create three columns. + tl.Columns.Clear() + tl.BeginUpdate() + tl.Columns.Add() + tl.Columns(0).Caption = "Entität" + tl.Columns(0).VisibleIndex = 0 + tl.Columns.Add() + tl.Columns(1).Caption = "Record-ID" + tl.Columns(1).VisibleIndex = 1 + tl.Columns.Add() + tl.EndUpdate() + End Sub + Private Sub CreateNodes(ByVal tl As TreeList) + tl.BeginUnboundLoad() + ' Create a root node . + Dim parentForRootNodes As TreeListNode = Nothing + Dim rootNode As TreeListNode = tl.AppendNode(New Object() {"Format", "4711"}, parentForRootNodes) + ' Create a child node for the node1 + tl.AppendNode(New Object() {"Produktion", "66"}, rootNode) + ' Creating more nodes + ' ... + tl.EndUnboundLoad() + End Sub + + Private Sub frmForm_Constructor_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + Private Sub frmForm_Constructor_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub GridControlSelection_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlSelection.DragDrop + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub GridControlSelection_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlSelection.DragEnter + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + Private Sub ClearAllFiltersToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearAllFiltersToolStripMenuItem.Click + grvwSelection.ClearColumnsFilter() + grvwSelection.ClearGrouping() + grvwSelection.ClearSelection() + End Sub + + Private Sub pnlDetails_DragEnter(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + + Private Sub pnlDetails_DragDrop(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub GridControlOverview_DragEnter(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + + Private Sub GridControlOverview_DragDrop(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub Check_Record_Changed() + If EDIT_STATE <> "none" Then + tslblStatusMain_show(False, "") + EDIT_STATE = "none" + End If + + If RECORD_CHANGED = True Then + Dim result As DialogResult = MessageBox.Show("Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?", "Ungespeicherte Änderungen", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = Windows.Forms.DialogResult.Yes Then + If CtrlCommandUI.IsInsert = True Then + EDIT_STATE = "none" + Me.pnlDetails.Enabled = False + CtrlCommandUI.IsInsert = False + End If + Update_Record_OnChange() + End If + RECORD_CHANGED = False + End If + End Sub + + Private Sub grvwSelection_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwSelection.FocusedRowChanged + If vFormClosing = True Or SaveRoutine_Active = True Then + Exit Sub + End If + + Check_Record_Changed() + + If dataloaded = True Then + If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False) + Dim selRecID = GetSelected_RecordID() + If Not selRecID Is Nothing And selRecID <> SelectedRecordID Or EDIT_STATE = "insert" Then + Focused_Row_Column_Changed() + Else + 'Console.WriteLine("SelRecordID identisch") + End If + End If + End Sub + Private Sub grvwSelection_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles grvwSelection.FocusedColumnChanged + If vFormClosing = True Or SaveRoutine_Active = True Then + Exit Sub + End If + If dataloaded = True Then + If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False) + Dim selRecID = GetSelected_RecordID() + If Not selRecID Is Nothing And selRecID <> SelectedRecordID Then + Focused_Row_Column_Changed() + Else + 'Console.WriteLine("SelRecordID identisch") + End If + End If + End Sub + Sub Focused_Row_Column_Changed() + Select Case EDIT_STATE + Case "none" + 'Ganz normalerDatensatzwechsel Wechsel + SelectedRecord_ShowData("Record-ID") + 'Refresh_Treeview_SelectedData() + tslblStatusMain_show(False, "") + Case "insert" + 'Refresh_Treeview_SelectedData() + Case "update" + ' Refresh_Treeview_SelectedData() + End Select + Select Case TCDetails.SelectedTabPageIndex + Case 0 + 'Die Values in die Controls laden + If EDIT_STATE = "none" Then + 'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")" + 'Die Daten auf dem Panel laden + ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_FORM_ID, CtrlBuilder.AllControls) + 'Load_Control_Values(CtrlBuilder.AllControls) + 'Refresh_Treeview_SelectedData() + RECORD_CHANGED = False + End If + Case 1 + RUN_WD_SEARCH(WD_Suche, "RECORD") + Case 2 + If FOLLOW_UPisActive = True Then Refresh_FollowUps() + End Select + DT_FU_Record = Nothing + VerknüpfungenToolStripMenuItem.Enabled = True + + If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader() + Refresh_CreatedChangedRecordByID(SelectedRecordID) + Refresh_Anzeige_Selected_Entity() + Show_act_WFTask() + Show_NodeAmounts() + If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged Complete - RecordID: " & CURRENT_RECORD_ID, False) + Refresh_TaskOverview() + + End Sub + Sub HideColumns() + Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_FORM_ID + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwSelection.Columns + + If DT.Rows.Count <> 0 Then + ' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False + For Each row As DataRow In DT.Rows + Dim colname As String = row.Item("CONTROL_COL_NAME") + Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwSelection.Columns.Item(colname) + + If Not IsNothing(col) Then + col.Visible = False + End If + Next + End If + + ' FormID und RecordID immer ausblenden + grvwSelection.Columns.Item("Record-ID").Visible = False + grvwSelection.Columns.Item("Form-ID").Visible = False + End Sub + Function GetSelected_RecordID() + Try + If grvwSelection.Columns.Count = 0 Then + Me.pnlDetails.Enabled = False + Me.tsbtnshowWorkflowtasks.Enabled = False + tsstatus_Detail_show(True, "Keine Columns in Grid") + Return Nothing + End If + 'Überhaupt Rows in Grid? + If grvwSelection.RowCount > 0 Then + Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns("Record-ID")) + If Grid_RecordID Is Nothing = False Then + Return Grid_RecordID + Else + tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!") + ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True) + Return Nothing + End If + Else + Return Nothing + End If + Catch ex As Exception + + End Try + End Function + Private Sub TreeViewEbeneSelect_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewEbeneSelect.AfterSelect + If FormLoaded = True Then + Check_Record_Changed() + Load_Data_for_TreeView() + End If + End Sub + Sub Load_Data_for_TreeView() + ACT_EBENE = 0 + If Not TreeViewEbeneSelect.SelectedNode Is Nothing Then + Try + Dim selnode As TreeNode = TreeViewEbeneSelect.SelectedNode + If (selnode.Parent IsNot Nothing) Then + If (selnode.Parent.GetType() Is GetType(TreeNode)) Then + ACT_EBENE = 2 + Dim pnode As TreeNode = selnode.Parent + If (pnode.Parent IsNot Nothing) Then + If (selnode.Parent.GetType() Is GetType(TreeNode)) Then + ACT_EBENE = 3 + End If + End If + + End If + Else + ACT_EBENE = 1 + End If + Catch ex As Exception + MsgBox("Error in Get ACT_EBENE:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + If LogErrorsOnly = False Then ClassLogger.Add(">> Tag (FormID) After Select: " & TreeViewEbeneSelect.SelectedNode.Tag.ToString, False) + Load_Entity_Data(TreeViewEbeneSelect.SelectedNode.Tag) + End If + End Sub + Sub Load_Entity_Data(FORM_ID As Integer) + Try + Dim IS_SINGLE_RECORD As Boolean + VerknüpfungenToolStripMenuItem.Enabled = False + CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID) + IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FORM_ID) + SelectedRecordID = 0 + Dim DT As DataTable + Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID + Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql) + If PARENT_ID Is Nothing Then + MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation) + Exit Sub + End If + dataloaded = False + 'Abhängig von der Entität die Selektierungs-Daten laden + Dim _sql As String + Select Case ACT_EBENE + Case 1 + PARENT_RECORDID = 0 + CURRENT_PARENTID = 0 + EBENE1_ENTITY = TreeViewEbeneSelect.SelectedNode.Text + ACT_EBENE_STRING = EBENE1_ENTITY + If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False) + EBENE2_ENTITY = "" + EBENE3_ENTITY = "" + tslblEntity2.Visible = False + tslblEntity3.Visible = False + + EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + EBENE2_COLUMNNAME = "" + EBENE3_COLUMNNAME = "" + EBENE2_GRID_RESULT = Nothing + EBENE3_GRID_RESULT = Nothing + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + Case 2 + Dim Level1Select = ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + If CBool(Level1Select) = False And CURRENT_FORM_TYPE <> 5 And EBENE1_RECID = 0 Then + MsgBox("Entität '" & TreeViewEbeneSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) + TreeViewEbeneSelect.SelectedNode = TreeViewEbeneSelect.SelectedNode.Parent + Exit Sub + End If + EBENE2_ENTITY = TreeViewEbeneSelect.SelectedNode.Text + ACT_EBENE_STRING = EBENE2_ENTITY + If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 2 in TreeView selektiert", False) + EBENE3_ENTITY = "" + 'Parent-ID setzen + If EBENE1_RECID > 0 Then + PARENT_RECORDID = EBENE1_RECID + CURRENT_PARENTID = EBENE1_RECID + End If + tslblEntity3.Visible = False + + EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + + EBENE3_COLUMNNAME = "" + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken + If EBENE1_RECID > 0 Then + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + _sql = _sql.Replace("@RecordID", EBENE1_RECID) + Else + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + End If + EBENE2_GRID_RESULT = Nothing + EBENE3_GRID_RESULT = Nothing + Case 3 + If EBENE2_RECID = 0 Then + MsgBox("Entität '" & TreeViewEbeneSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) + TreeViewEbeneSelect.SelectedNode = TreeViewEbeneSelect.SelectedNode.Parent + Exit Sub + End If + + EBENE3_ENTITY = TreeViewEbeneSelect.SelectedNode.Text + ACT_EBENE_STRING = EBENE3_ENTITY + If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False) + 'Parent-ID setzen + If EBENE2_RECID > 0 Then + PARENT_RECORDID = EBENE2_RECID + CURRENT_PARENTID = EBENE2_RECID + End If + + EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken + If EBENE2_RECID > 0 Then + Try + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID, True) + _sql = _sql.Replace("@RecordID", EBENE2_RECID) + Catch ex As Exception + + End Try + + Else + MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) + 'Grid leeren + GridControlSelection.DataSource = Nothing + grvwSelection.Columns.Clear() + Me.Cursor = Cursors.Default + Exit Sub + End If + EBENE3_GRID_RESULT = Nothing + Case 4 + + End Select + + Me.Cursor = Cursors.WaitCursor + + CURRENT_FORM_ID = FORM_ID + + CURRENT_ENTITYSTRING = ACT_EBENE_STRING + CURRENT_PARENTID = PARENT_RECORDID + act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & FORM_ID) + If EDIT_STATE = "none" Then + 'Die Controls der Entität laden + Load_Controls(act_FormViewID) + set_pnlsize() + End If + CURRENT_FORMVIEW_ID = act_FormViewID + + 'Überprüfen ob windream Dos angezeigt werden sollen? + Check_windream_Show(act_FormViewID) + + + + If windream_Docshow = True Then + Clear_Windream_ResultList() + If WD_ShowEnitityDocs = True Then + RUN_WD_SEARCH("", "ENTITY") + End If + End If + + Select Case CURRENT_FORM_TYPE + Case 5 + 'Nur eine Gruppen-Entität: d.h. es wird nur die Dateientab angezeigt + Console.WriteLine("OnlyGroupType") + Dim sqlRecord As String = "select guid from TBPMO_RECORD where Form_ID = " & CURRENT_FORM_ID + Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True) + If IsNothing(recid) Then + If ClassControlCommandsUI.CreateRecord(CURRENT_FORM_ID) = True Then + recid = ClassControlCommandsUI.GetLastRecord + If IsNothing(recid) Then + CURRENT_RECORD_ID = recid + ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "Group-Entity Link") + Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID) + End If + End If + Else + Try + CURRENT_RECORD_ID = CInt(recid) + Catch ex As Exception + MsgBox("Error while getting CURRENT_RECORDID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID) + End If + TabPageDetails.PageVisible = False + Refresh_Anzeige_Selected_Entity() + Case Else + TabPageDetails.PageVisible = True + Dim Beschreibung = ClassDatabase.Execute_Scalar("SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = " & act_FormViewID) + 'TabPageDetails.Text = "Detaileingabe zu " & Beschreibung + 'Den Spaltennamen für die Selektion laden + sql = "SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID + 'Jetzt die Datensätze zur Entität laden + CURRENT_ENTITYSQL = _sql + Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity") + Dim primaryKey(1) As DataColumn + primaryKey(0) = DTEntity.Columns("Record-ID") + DTEntity.PrimaryKey = primaryKey + + LoadGrid_Selection(_sql, DTEntity) + Select Case EDIT_STATE + Case "none" + Case "update" + Case "insert" + Case "delete" + End Select + Me.pnlDetails.Enabled = False + Me.tsbtnshowWorkflowtasks.Enabled = False + 'Überprüfen ob es für diese Entität Wiedervorlagen gibt? + Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID) + End Select + + Load_Templates() + + Me.Cursor = Cursors.Default + dataloaded = True + Catch ex As Exception + MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Sub Show_NodeAmounts() + Try + Dim selnode As TreeNode = TreeViewEbeneSelect.SelectedNode + Dim a As Integer = 0 + For Each childNodeLevel1 As TreeNode In selnode.Nodes + Dim PARENT_ID As Integer + Dim TYPE_ID As Integer + If a = 0 Then + Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & childNodeLevel1.Tag + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ShowNodeAmounts") + PARENT_ID = DT.Rows(0).Item(0) + TYPE_ID = DT.Rows(1).Item(0) + End If + If TYPE_ID <> 5 Then + Dim result As Integer = ReturnAmountofRecords(childNodeLevel1.Tag, PARENT_ID) + If result <> 99999999 Then + Dim origtext As String = childNodeLevel1.Text + If origtext.Contains(" (") Then + Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) + childNodeLevel1.Text = existingstring & " (" & result.ToString & ")" + Else + childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")" + End If + End If + + For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes + Dim origtext As String = childNodeLevel2.Text + If origtext.Contains(" (") Then + Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) + childNodeLevel2.Text = existingstring + End If + For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes + Dim origtext1 As String = childNodeLevel3.Text + If origtext1.Contains(" (") Then + Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1) + childNodeLevel1.Text = existingstring + End If + Next + Next + a += 1 + End If + + Next + Catch ex As Exception + + End Try + End Sub + Function ReturnAmountofRecords(EntityID As Integer, PARENT_ID As Integer) + 'Abhängig von der Entität die Selektierungs-Daten laden + Dim _sql As String + If EntityID = EBENE3_PARENT_ID Then + + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken + If EBENE1_RECID > 0 Then + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & EntityID) + _sql = _sql.Replace("@RecordID", EBENE1_RECID) + Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1") + Return DT2.Rows.Count + Else + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & EntityID) + End If + Else + If EBENE2_RECID = 0 Then + Return 99999999 + End If + + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken + If EBENE2_RECID > 0 Then + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & EntityID) + _sql = _sql.Replace("@RecordID", EBENE2_RECID) + Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1") + Return DT2.Rows.Count + Else + Return 99999999 + End If + End If + End Function + Sub Load_Entity_Data_Only() + Try + Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "Load_Entity_Data_Only") + Dim primaryKey(1) As DataColumn + primaryKey(0) = DTEntity.Columns("Record-ID") + DTEntity.PrimaryKey = primaryKey + + LoadGrid_Selection(CURRENT_ENTITYSQL, DTEntity) + Catch ex As Exception + MsgBox("Error in Load_Entity_Data_Only:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Sub Load_Templates() + Try + Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID & " ORDER BY TEMPLATE_NAME" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates") + If Not IsNothing(DT) Then + If DT.Rows.Count > 0 Then + VorlageToolStripMenuItem.Enabled = True + VorlageToolStripMenuItem.DropDownItems.Clear() + For Each row As DataRow In DT.Rows + Dim item As ToolStripMenuItem = VorlageToolStripMenuItem + Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(row.Item("TEMPLATE_NAME").ToString, Nothing, AddressOf TemplateItem_Click) + newItem.Tag = row.Item("TEMPLATE_ID") + item.DropDownItems.Add(newItem) ' subitem.DropDownItems.Add(newItem) + Next + Else + VorlageToolStripMenuItem.Enabled = False + End If + End If + Catch ex As Exception + MsgBox("Error in Load_Templates:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub TemplateItem_Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim TemplateID As Integer = Integer.Parse(item.Tag) + If CURRENT_RECORD_ID > 0 Then + Dim SOLLENTITY_ID = ClassDatabase.Execute_Scalar("select ENTITY_ID FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & TemplateID) + Dim REC_ENTITY_ID = ClassDatabase.Execute_Scalar("select FORM_ID FROM TBPMO_RECORD WHERE GUID = " & CURRENT_RECORD_ID) + + If Not IsNothing(SOLLENTITY_ID) Then + If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then + Cursor = Cursors.WaitCursor + If ClassOfficeTemplate.Open_Word_Template(TemplateID, CURRENT_RECORD_ID) = True Then + RUN_WD_SEARCH(WD_Suche, "RECORD") + tslblStatusMain_show(True, "Vorlagen-Datei erfolgreich nach windream importiert!") + End If + Cursor = Cursors.Default + Else + MsgBox("Bitte wählen Sie nochmal einen Datensatz aus!", MsgBoxStyle.Exclamation) + End If + End If + Else + MsgBox("Bitte wählen Sie zuerst einen Datensatz aus.", MsgBoxStyle.Exclamation) + End If + + + End Sub + Private Sub grvwSelection_Layout(sender As Object, e As EventArgs) Handles grvwSelection.Layout + If dataloaded = True Then + If grvwSelection.RowCount > 0 Then + 'Console.WriteLine("grvwSelectionLayout-" & Now) + 'Das aktuelle Layout speichern + Dim XMLPath = GetSelectionGridName() + GridControlSelection.MainView.SaveLayoutToXml(XMLPath) + tslblStatusMain_show(True, "Datagrid-Layout Selection saved") + End If + End If + End Sub + + Private Sub frmForm_Constructor_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.BringToFront() + LoadLayouts() + End Sub + Private Sub ExportNachExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportNachExcelToolStripMenuItem.Click + Dim saveFileDialog1 As New SaveFileDialog + saveFileDialog1.Filter = "Excel File|*.xlsx" + saveFileDialog1.Title = "Export to Excel:" + saveFileDialog1.ShowDialog() + If saveFileDialog1.FileName <> "" Then + Cursor = Cursors.WaitCursor + grvwSelection.ExportToXlsx(saveFileDialog1.FileName) + Dim result As MsgBoxResult + result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Process.Start(saveFileDialog1.FileName) + End If + + + End If + Cursor = Cursors.Default + End Sub + + Private Sub TreeViewEbeneSelect_DragDrop(sender As Object, e As DragEventArgs) Handles TreeViewEbeneSelect.DragDrop + + End Sub + + Private Sub TreeViewEbeneSelect_DragEnter(sender As Object, e As DragEventArgs) Handles TreeViewEbeneSelect.DragEnter + + End Sub + + Private Sub TreeViewRecordAuswahl_DragEnter(sender As Object, e As DragEventArgs) + + End Sub + + Private Sub WindreamSucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamSucheNeuLadenToolStripMenuItem.Click + RUN_WD_SEARCH(WD_Suche, "RECORD") + End Sub + + Private Sub AnsichtKomplettZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtKomplettZurücksetzenToolStripMenuItem.Click + Try + Dim XMLPath = GetSelectionGridName() + If File.Exists(XMLPath) Then + Me.Cursor = Cursors.WaitCursor + File.Delete(XMLPath) + Load_Data_for_TreeView() + tslblStatusMain_show(True, "Das Datagrid wurde erfolgreich zurückgesetzt - " & Now) + End If + Catch ex As Exception + MsgBox("Error in GridSetBack:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + Cursor = Cursors.Default + End Sub + + Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportEntitätToolStripMenuItem.Click + If CURRENT_PARENTID = 0 Then + Exit Sub + End If + frmWD_EntityImport.ShowDialog() + End Sub + + Private Sub KonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KonfigurationToolStripMenuItem.Click + frmwindreamView_Config.ShowDialog() + End Sub + + Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked + CheckDocView() + End Sub + Sub CheckDocView() + Dim _index = AxObjectListControl.GetFirstSelectedObject + Dim path As String = AxObjectListControl.GetObjectPath(_index) + path = path.Replace("?", vWLaufwerk) + DocViewString = path + + If WD_ShowDocs = True Then + CloseWDDocview() + ShowDocView() + End If + End Sub + Sub ShowDocView() + Try + CloseWDDocview() + DocView = Nothing + DocView = CreateObject("WMPViewXNG.Viewer") + ' open the viewer + DocView.ViewFile(DocViewString) + OpenedFileString = DocViewString + Catch ex As Exception + MsgBox("Error in ShowDocView:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + + End Sub + Sub CloseWDDocview() + Try + If DocView Is Nothing = False Then + DocView.CloseView(OpenedFileString, 0) + End If + + Catch ex As Exception + ClassLogger.Add(" ### Error in CloseDocView") + ClassLogger.Add("### " & ex.Message & " ###") + End Try + + End Sub + + Private Sub WorkflowTasksAnneuErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WorkflowTasksAnneuErzeugenToolStripMenuItem.Click + Try + Dim _MsgBoxResult As MsgBoxResult + _MsgBoxResult = MessageBox.Show("Möchten Sie die Workflow-Tasks wirklich neu erzeugen lassen? Die alten Daten werden gelöscht!", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If _MsgBoxResult = MsgBoxResult.Yes Then + Dim sql As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" + sql = sql.Replace("@FORM_ID", CURRENT_FORM_ID) + Dim result As Integer = ClassDatabase.Execute_Scalar(sql) + If result > 0 Then + sql = "EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID" + sql = sql.Replace("@FORM_ID", CURRENT_FORM_ID) + sql = sql.Replace("@RECORD_ID", CURRENT_RECORD_ID) + If ClassDatabase.Execute_non_Query(sql) = True Then + sql = "UPDATE TBPMO_WORKFLOW_TASK SET ACTIVE = 1, CHANGED_WHO = '@CHANGED_WHO' WHERE (RECORD_ID = '@RECORD_ID')" + sql = sql.Replace("@CHANGED_WHO", Environment.UserName) + sql = sql.Replace("@RECORD_ID", CURRENT_RECORD_ID) + If ClassDatabase.Execute_non_Query(sql) = True Then + Show_act_WFTask() + Else + MsgBox("Error during create WorkflowTask. Check Log", MsgBoxStyle.Exclamation) + End If + End If + End If + End If + Catch ex As Exception + MsgBox("Error in Create WF-Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub CarouselToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarouselToolStripMenuItem.Click + grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel + GridControlSelection.MainView = grvwCarousel + End Sub + + Private Sub TabelleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabelleToolStripMenuItem.Click + GridControlSelection.MainView = grvwSelection + End Sub + + Private Sub ResetEbenenAuswahlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ResetEbenenAuswahlToolStripMenuItem.Click + ACT_EBENE = 0 + ACT_EBENE_STRING = "" + EBENE1_ENTITY = "" + EBENE1_RECID = 0 + EBENE2_ENTITY = "" + EBENE2_RECID = 0 + EBENE3_ENTITY = "" + EBENE3_RECID = 0 + BindingSourceEntity.DataSource = Nothing + Load_TreeViewEbene() + End Sub + + Private Sub grvwSelection_CalcRowHeight(sender As Object, e As RowHeightEventArgs) Handles grvwSelection.CalcRowHeight + Dim datarow As System.Data.DataRowView = grvwSelection.GetRow(e.RowHandle) + If Not IsNothing(datarow) Then + Dim data() = datarow.Row.ItemArray + + For Each d In data + If TypeOf d Is Byte() Then + e.RowHeight = 50 + End If + Next + End If + End Sub + + Private Sub ZeigeRecordLogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeigeRecordLogsToolStripMenuItem.Click + frmRecord_Changes.ShowDialog() + End Sub + + + Private Sub GridControlSelection_MouseEnter(sender As Object, e As EventArgs) Handles GridControlSelection.MouseEnter + GridControlSelection.Select() + End Sub + + Private Sub GridControlSelection_KeyDown(sender As Object, e As KeyEventArgs) Handles GridControlSelection.KeyDown + MyBase.OnKeyDown(e) + If e.Control AndAlso e.KeyCode = Keys.C Then + If grvwSelection.GetRowCellValue(grvwSelection.FocusedRowHandle, grvwSelection.FocusedColumn) IsNot Nothing AndAlso grvwSelection.GetRowCellValue(grvwSelection.FocusedRowHandle, grvwSelection.FocusedColumn).ToString() <> String.Empty Then + Clipboard.SetText(grvwSelection.GetRowCellValue(grvwSelection.FocusedRowHandle, grvwSelection.FocusedColumn).ToString()) + MsgBox("The value in the selected cell is null or empty!", MsgBoxStyle.Information) + End If + End If + End Sub + + Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged + Select Case TCDetails.SelectedTabPageIndex + Case 0 + If RECORD_NEEDS_REFRESH = True Then + ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_FORM_ID, CtrlBuilder.AllControls) + UpdRECORD_NEEDS_REFRESH(False) + End If + + Refresh_CreatedChangedRecordByID(SelectedRecordID) + RECORD_CHANGED = False + Case 1 'windream-Dokumente + RUN_WD_SEARCH(WD_Suche, "RECORD") + Case 2 + Refresh_FollowUps() + End Select + End Sub + + Private Sub pnlDetails_MouseClick(sender As Object, e As MouseEventArgs) Handles pnlDetails.MouseClick + pnlDetails.Select() + grvwSelection.Appearance.FocusedRow.BackColor = Color.OrangeRed + End Sub + + Private Sub ListViewFollowUp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewFollowUp.SelectedIndexChanged + If Me.ListViewFollowUp.SelectedItems.Count > 0 Then + FOLL_UP_ID = ListViewFollowUp.SelectedItems(0).Text + lblFollowUp_save.Visible = False + For Each DR As DataRow In DT_FU_ENTITY.Rows + If FOLL_UP_ID = DR.Item("GUID") Then + grpbxFU_Profile.Enabled = True + dataloaded = False + FOLL_UP_DATE_CTRL_ID = DR.Item("DEPENDENT_DATE_CTRL_ID") + Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), CURRENT_RECORD_ID) + If Not IsNothing(datevalue) Then + FOLL_UP_RECORD_DEFINED = True + dtpWV.Value = CDate(datevalue) + Else + dtpWV.Value = CDate(Now) + FOLL_UP_RECORD_DEFINED = False + End If + Dim caption = ClassDatabase.Execute_Scalar("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"), True) + If Not IsNothing(caption) Then + lblWV_Date.Text = CStr(caption) + End If + FOLL_UP_DONE_CTRL_ID = DR.Item("DEPENDENT_DONE_CTRL_ID") + Dim checkvalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_RECORD_ID) + If Not IsNothing(checkvalue) Then + chkFollowUp.Checked = CBool(checkvalue) + Else + chkFollowUp.Checked = False + End If + Dim captionCheck = ClassDatabase.Execute_Scalar("SELECT CONTROL_TEXT FROM TBPMO_CONTROL_SCREEN WHERE SCREEN_ID = 1 AND CONTROL_ID = " & DR.Item("DEPENDENT_DONE_CTRL_ID"), True) + If Not IsNothing(captionCheck) Then + chkFollowUp.Text = CStr(captionCheck) + End If + + Load_FUUser(FOLL_UP_ID) + + dataloaded = True + End If + Next + End If + End Sub + Sub Load_FUUser(ID As Integer) + Try + Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_RECORD T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & ID & " AND T.RECORD_ID = " & CURRENT_RECORD_ID & " ORDER BY T1.USERNAME" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_FollowUpUser") + ListBoxUser2Profile.DataSource = DT + ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName + ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName + Catch ex As Exception + MsgBox("Fehler bei Load_FUUser:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpWV.ValueChanged + If dataloaded = False Then + Exit Sub + End If + If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, CURRENT_RECORD_ID, dtpWV.Value) = True Then + lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString + lblFollowUp_save.Visible = True + UpdRECORD_NEEDS_REFRESH(True) + Else + lblFollowUp_save.Visible = False + UpdRECORD_NEEDS_REFRESH(False) + End If + End Sub + + Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged + If dataloaded = False Then + Exit Sub + End If + If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, CURRENT_RECORD_ID, chkFollowUp.Checked.ToString) = True Then + lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString + lblFollowUp_save.Visible = True + UpdRECORD_NEEDS_REFRESH(True) + Else + lblFollowUp_save.Visible = False + UpdRECORD_NEEDS_REFRESH(False) + End If + End Sub + Sub UpdRECORD_NEEDS_REFRESH(state As Boolean) + If RECORD_NEEDS_REFRESH <> state Then + RECORD_NEEDS_REFRESH = state + End If + End Sub + + Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click + If cmbWHUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then + Try + Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbWHUser.SelectedValue & ", " & CURRENT_RECORD_ID & ", '" & Environment.UserName & "')" + If ClassDatabase.Execute_non_Query(ins, True) = True Then + Load_FUUser(FOLL_UP_ID) + End If + Catch ex As Exception + MsgBox("Fehler bei Add User 2 FollowUp_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + If ListBoxUser2Profile.SelectedIndex <> -1 Then + Try + Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE GUID = " & ListBoxUser2Profile.SelectedValue + If ClassDatabase.Execute_non_Query(del, True) = True Then + Load_FUUser(FOLL_UP_ID) + End If + Catch ex As Exception + MsgBox("Fehler bei Löschen Userverknüpfung:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub VerknüpfungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenToolStripMenuItem.Click + Show_Verknuepfungen() + End Sub + Sub Show_Verknuepfungen() + If SplitCont_Details.Collapsed = True Then + VerknüpfungenToolStripMenuItem.Text = "Verknüfungen ausblenden" + Load_ParentConnections() + XtraTabControl1.SelectedTabPageIndex = 0 + SplitCont_Details.Collapsed = False + Else + VerknüpfungenToolStripMenuItem.Text = "Verknüfungen einblenden" + SplitCont_Details.Collapsed = True + Save_GridViewParentEntityLayout() + My.Settings.Save() + End If + End Sub + Sub Load_ParentConnections() + Try + ' SELECT COLUMN_NAME1 FROM VWTEMP_cPMO_FORM + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT TOP 1 PARENT_ID,FORM_TITLE from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID, "Parent-Data") + Dim Parent_ID = DT.Rows(0).Item(0) + Dim Title = DT.Rows(0).Item(1) + Dim Colname = "[" & ClassDatabase.Execute_Scalar("SELECT TOP 1 COLUMN_NAME1 from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & Parent_ID, True) & "]" + Load_GridViewParentEntity_Layout() + If Not IsNothing(Parent_ID) And Not IsNothing(Colname) Then + Dim sql = "select [Record-ID], " & Colname & " from VWTEMP_PMO_FORM" & Parent_ID.ToString + Dim DTGrid As DataTable = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity") + GridControlParentEntity.DataSource = Nothing + GridViewParentEntity.Columns.Clear() + 'Databinding Neu + GridControlParentEntity.DataSource = DTGrid + TabPageParentEntity.Text = "Aktuelle Parent-Entity: " & Title + GridViewParentEntity.Columns.Item("Record-ID").Visible = False + End If + Catch ex As Exception + MsgBox("Fehler bei Load_ParentConnections:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub GridViewParentEntity_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewParentEntity.FocusedColumnChanged + GetFocusedParentID() + End Sub + + Private Sub GridViewParentEntity_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewParentEntity.FocusedRowChanged + GetFocusedParentID() + End Sub + Dim Linkparent_ID As Integer + Sub GetFocusedParentID() + Try + If GridViewParentEntity.RowCount > 0 Then + Dim Grid_RecordID = GridViewParentEntity.GetFocusedRowCellValue(GridViewParentEntity.Columns("Record-ID")) + If Grid_RecordID Is Nothing = False Then + Linkparent_ID = Grid_RecordID + lblParentID.Text = Grid_RecordID.ToString & " - " & GridViewParentEntity.GetFocusedRowCellValue(GridViewParentEntity.Columns(1)) + btnRefreshPEntity.BackColor = Color.DarkOrange + btnRefreshPEntity.FlatAppearance.BorderColor = Color.DarkOrange + Else + ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - GetFocusedParentID", True) + lblParentID.Text = "keine Auswahl möglich" + End If + Else + lblParentID.Text = "keine Rows gefunden" + End If + Catch ex As Exception + MsgBox("Fehler bei GetFocusedParentID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnRefreshPEntity_Click(sender As Object, e As EventArgs) Handles btnRefreshPEntity.Click + If lblParentID.Text = "" Then + Exit Sub + End If + If PARENT_RECORDID > 0 Then + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result <> MsgBoxResult.Yes Then + Exit Sub + Else + If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & CURRENT_RECORD_ID & " AND RECORD1_ID = " & PARENT_RECORDID, True) = False Then + Exit Sub + End If + End If + + End If + If ClassControlCommandsUI.ConnectRecord(Linkparent_ID, CURRENT_RECORD_ID, "ENTITY" & CURRENT_FORM_ID.ToString) = True Then + Save_GridViewParentEntityLayout() + MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information) + Check_Record_Changed() + Load_Data_for_TreeView() + btnRefreshPEntity.BackColor = Color.Lime + btnRefreshPEntity.FlatAppearance.BorderColor = Color.Lime + 'Show_Verknuepfungen() + End If + 'Dim PARENT_RECORD_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_RECORD_CONNECT WHERE ") + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Show_Verknuepfungen() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb b/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb new file mode 100644 index 0000000..08bd429 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb @@ -0,0 +1,1342 @@ + _ +Partial Class frmForm_Constructor_OLD + 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 GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor_OLD)) + Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView() + Me.GridControlSelection = New DevExpress.XtraGrid.GridControl() + Me.grvwSelection = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.LayoutView1 = New DevExpress.XtraGrid.Views.Layout.LayoutView() + Me.GridControlParentEntity = New DevExpress.XtraGrid.GridControl() + Me.GridViewParentEntity = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.BindingSourceEntity = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tslblStatusMain = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslblEntity = New System.Windows.Forms.ToolStripStatusLabel() + Me.SplitContainerMain = New System.Windows.Forms.SplitContainer() + Me.SplitterLeft = New System.Windows.Forms.Splitter() + Me.TreeViewEbeneSelect = New System.Windows.Forms.TreeView() + Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.BindingNavigatorForm1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnOverviewRefresh = New System.Windows.Forms.ToolStripButton() + Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.ClearAllFiltersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CarouselToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TabelleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnsichtKomplettZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.tslblEntity1 = New System.Windows.Forms.ToolStripLabel() + Me.tslblEntity2 = New System.Windows.Forms.ToolStripLabel() + Me.tslblEntity3 = New System.Windows.Forms.ToolStripLabel() + Me.SplitCont_Details = New DevExpress.XtraEditors.SplitContainerControl() + Me.TCDetails = New DevExpress.XtraTab.XtraTabControl() + Me.TabPageDetails = New DevExpress.XtraTab.XtraTabPage() + Me.pnlDetails = New System.Windows.Forms.Panel() + Me.TabPageWD_Files = New DevExpress.XtraTab.XtraTabPage() + Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl() + Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip() + Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton() + Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPageFollowUp = New DevExpress.XtraTab.XtraTabPage() + Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox() + Me.lblWV_Date = New System.Windows.Forms.Label() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.ListBoxUser2Profile = New System.Windows.Forms.ListBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbWHUser = New System.Windows.Forms.ComboBox() + Me.btnAddUser_WV = New System.Windows.Forms.Button() + Me.btndelete = New System.Windows.Forms.Button() + Me.dtpWV = New System.Windows.Forms.DateTimePicker() + Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.lblFollowUp_save = New System.Windows.Forms.Label() + Me.chkFollowUp = New System.Windows.Forms.CheckBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.ListViewFollowUp = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.TabPageParentEntity = New DevExpress.XtraTab.XtraTabPage() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnRefreshPEntity = New System.Windows.Forms.Button() + Me.lblParentID = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.tsbtnAddForm2 = New System.Windows.Forms.ToolStripButton() + Me.tsbtnSaveForm2 = New System.Windows.Forms.ToolStripButton() + Me.TSDropDownButtonRecordFunctions = New System.Windows.Forms.ToolStripDropDownButton() + Me.WindreamSucheNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZeigeRecordLogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VorlageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VerknüpfungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.tsbtnshowTaskoverview = New System.Windows.Forms.ToolStripButton() + Me.tsbtnshowWorkflowtasks = New System.Windows.Forms.ToolStripButton() + Me.tsbtndeleteRecord = New System.Windows.Forms.ToolStripButton() + Me.StatusStrip2 = New System.Windows.Forms.StatusStrip() + Me.tserstellt_Details = New System.Windows.Forms.ToolStripStatusLabel() + Me.tsstatus_Detail = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslblactWFState = New System.Windows.Forms.ToolStripStatusLabel() + Me.BindingSourceForm2 = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingSourceForm3 = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingSourceForm4 = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingSourceForm5 = New System.Windows.Forms.BindingSource(Me.components) + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components) + Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() + Me.contextMenuCombo = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.StammdatenEditierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() + Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlParentEntity, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewParentEntity, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceEntity, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerMain.Panel1.SuspendLayout() + Me.SplitContainerMain.Panel2.SuspendLayout() + Me.SplitContainerMain.SuspendLayout() + Me.CMSEntity.SuspendLayout() + CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigatorForm1.SuspendLayout() + CType(Me.SplitCont_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitCont_Details.SuspendLayout() + CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TCDetails.SuspendLayout() + Me.TabPageDetails.SuspendLayout() + Me.TabPageWD_Files.SuspendLayout() + CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStripDokumente.SuspendLayout() + Me.TabPageFollowUp.SuspendLayout() + Me.grpbxFU_Profile.SuspendLayout() + Me.GroupBox3.SuspendLayout() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.TabPageParentEntity.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.StatusStrip2.SuspendLayout() + CType(Me.BindingSourceForm2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceForm3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceForm4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourceForm5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.contextMenuCombo.SuspendLayout() + CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'grvwCarousel + ' + Me.grvwCarousel.GridControl = Me.GridControlSelection + Me.grvwCarousel.Name = "grvwCarousel" + Me.grvwCarousel.TemplateCard = Nothing + ' + 'GridControlSelection + ' + Me.GridControlSelection.AllowDrop = True + Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill + GridLevelNode1.LevelTemplate = Me.grvwCarousel + GridLevelNode1.RelationName = "Level1" + Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) + Me.GridControlSelection.Location = New System.Drawing.Point(298, 25) + Me.GridControlSelection.MainView = Me.grvwSelection + Me.GridControlSelection.Name = "GridControlSelection" + Me.GridControlSelection.Size = New System.Drawing.Size(927, 153) + Me.GridControlSelection.TabIndex = 13 + Me.GridControlSelection.TabStop = False + Me.GridControlSelection.UseEmbeddedNavigator = True + Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwSelection, Me.grvwCarousel}) + ' + 'grvwSelection + ' + Me.grvwSelection.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.grvwSelection.Appearance.EvenRow.Options.UseBackColor = True + Me.grvwSelection.Appearance.SelectedRow.BackColor = System.Drawing.Color.Salmon + Me.grvwSelection.Appearance.SelectedRow.BackColor2 = System.Drawing.Color.SeaShell + Me.grvwSelection.Appearance.SelectedRow.Options.UseBackColor = True + Me.grvwSelection.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.grvwSelection.GridControl = Me.GridControlSelection + Me.grvwSelection.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _ + "ssen" + Me.grvwSelection.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.grvwSelection.Name = "grvwSelection" + Me.grvwSelection.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.grvwSelection.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.grvwSelection.OptionsBehavior.Editable = False + Me.grvwSelection.OptionsBehavior.ReadOnly = True + Me.grvwSelection.OptionsView.ColumnAutoWidth = False + Me.grvwSelection.OptionsView.EnableAppearanceEvenRow = True + Me.grvwSelection.OptionsView.EnableAppearanceOddRow = True + Me.grvwSelection.OptionsView.ShowAutoFilterRow = True + ' + 'LayoutView1 + ' + Me.LayoutView1.GridControl = Me.GridControlParentEntity + Me.LayoutView1.Name = "LayoutView1" + Me.LayoutView1.TemplateCard = Nothing + ' + 'GridControlParentEntity + ' + Me.GridControlParentEntity.AllowDrop = True + Me.GridControlParentEntity.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + GridLevelNode2.LevelTemplate = Me.LayoutView1 + GridLevelNode2.RelationName = "Level1" + Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) + Me.GridControlParentEntity.Location = New System.Drawing.Point(3, 3) + Me.GridControlParentEntity.MainView = Me.GridViewParentEntity + Me.GridControlParentEntity.Name = "GridControlParentEntity" + Me.GridControlParentEntity.Size = New System.Drawing.Size(245, 262) + Me.GridControlParentEntity.TabIndex = 14 + Me.GridControlParentEntity.TabStop = False + Me.GridControlParentEntity.UseEmbeddedNavigator = True + Me.GridControlParentEntity.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewParentEntity, Me.LayoutView1}) + ' + 'GridViewParentEntity + ' + Me.GridViewParentEntity.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewParentEntity.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewParentEntity.Appearance.SelectedRow.BackColor = System.Drawing.Color.Salmon + Me.GridViewParentEntity.Appearance.SelectedRow.BackColor2 = System.Drawing.Color.SeaShell + Me.GridViewParentEntity.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewParentEntity.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.GridViewParentEntity.GridControl = Me.GridControlParentEntity + Me.GridViewParentEntity.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _ + "ssen" + Me.GridViewParentEntity.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.GridViewParentEntity.Name = "GridViewParentEntity" + Me.GridViewParentEntity.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewParentEntity.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewParentEntity.OptionsBehavior.Editable = False + Me.GridViewParentEntity.OptionsBehavior.ReadOnly = True + Me.GridViewParentEntity.OptionsView.ColumnAutoWidth = False + Me.GridViewParentEntity.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewParentEntity.OptionsView.EnableAppearanceOddRow = True + Me.GridViewParentEntity.OptionsView.ShowAutoFilterRow = True + ' + 'BindingSourceEntity + ' + Me.BindingSourceEntity.AllowNew = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatusMain, Me.tslblEntity}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 560) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1225, 24) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tslblStatusMain + ' + Me.tslblStatusMain.Image = CType(resources.GetObject("tslblStatusMain.Image"), System.Drawing.Image) + Me.tslblStatusMain.Name = "tslblStatusMain" + Me.tslblStatusMain.Size = New System.Drawing.Size(137, 19) + Me.tslblStatusMain.Text = "ToolStripStatusLabel1" + Me.tslblStatusMain.Visible = False + ' + 'tslblEntity + ' + Me.tslblEntity.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tslblEntity.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity.Name = "tslblEntity" + Me.tslblEntity.Size = New System.Drawing.Size(132, 19) + Me.tslblEntity.Text = "ToolStripStatusLabel1" + ' + 'SplitContainerMain + ' + Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerMain.Name = "SplitContainerMain" + Me.SplitContainerMain.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainerMain.Panel1 + ' + Me.SplitContainerMain.Panel1.Controls.Add(Me.GridControlSelection) + Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitterLeft) + Me.SplitContainerMain.Panel1.Controls.Add(Me.TreeViewEbeneSelect) + Me.SplitContainerMain.Panel1.Controls.Add(Me.BindingNavigatorForm1) + ' + 'SplitContainerMain.Panel2 + ' + Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitCont_Details) + Me.SplitContainerMain.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainerMain.Panel2.Controls.Add(Me.StatusStrip2) + Me.SplitContainerMain.Size = New System.Drawing.Size(1225, 560) + Me.SplitContainerMain.SplitterDistance = 178 + Me.SplitContainerMain.TabIndex = 1 + ' + 'SplitterLeft + ' + Me.SplitterLeft.BackColor = System.Drawing.SystemColors.InactiveCaption + Me.SplitterLeft.Location = New System.Drawing.Point(295, 25) + Me.SplitterLeft.Name = "SplitterLeft" + Me.SplitterLeft.Size = New System.Drawing.Size(3, 153) + Me.SplitterLeft.TabIndex = 12 + Me.SplitterLeft.TabStop = False + ' + 'TreeViewEbeneSelect + ' + Me.TreeViewEbeneSelect.AllowDrop = True + Me.TreeViewEbeneSelect.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.TreeViewEbeneSelect.ContextMenuStrip = Me.CMSEntity + Me.TreeViewEbeneSelect.Dock = System.Windows.Forms.DockStyle.Left + Me.TreeViewEbeneSelect.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TreeViewEbeneSelect.ImageIndex = 0 + Me.TreeViewEbeneSelect.ImageList = Me.ImageList1 + Me.TreeViewEbeneSelect.Location = New System.Drawing.Point(0, 25) + Me.TreeViewEbeneSelect.Name = "TreeViewEbeneSelect" + Me.TreeViewEbeneSelect.SelectedImageIndex = 1 + Me.TreeViewEbeneSelect.Size = New System.Drawing.Size(295, 153) + Me.TreeViewEbeneSelect.TabIndex = 9 + Me.TreeViewEbeneSelect.TabStop = False + Me.ttToolTip.SetToolTip(Me.TreeViewEbeneSelect, "Wählen Sie hier die zu filternde Entität (RechtsKlick für Zurücksetzen)") + ' + 'CMSEntity + ' + Me.CMSEntity.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ResetEbenenAuswahlToolStripMenuItem, Me.DateiimportEntitätToolStripMenuItem}) + Me.CMSEntity.Name = "ContextMenuStrip2" + Me.CMSEntity.Size = New System.Drawing.Size(195, 48) + ' + 'ResetEbenenAuswahlToolStripMenuItem + ' + Me.ResetEbenenAuswahlToolStripMenuItem.Name = "ResetEbenenAuswahlToolStripMenuItem" + Me.ResetEbenenAuswahlToolStripMenuItem.Size = New System.Drawing.Size(194, 22) + Me.ResetEbenenAuswahlToolStripMenuItem.Text = "Reset Ebenen-Auswahl" + ' + 'DateiimportEntitätToolStripMenuItem + ' + Me.DateiimportEntitätToolStripMenuItem.Image = CType(resources.GetObject("DateiimportEntitätToolStripMenuItem.Image"), System.Drawing.Image) + Me.DateiimportEntitätToolStripMenuItem.Name = "DateiimportEntitätToolStripMenuItem" + Me.DateiimportEntitätToolStripMenuItem.Size = New System.Drawing.Size(194, 22) + Me.DateiimportEntitätToolStripMenuItem.Text = "Dateiimport Entität" + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "medal_bronze_1.png") + Me.ImageList1.Images.SetKeyName(1, "medal_gold_2.png") + ' + 'BindingNavigatorForm1 + ' + Me.BindingNavigatorForm1.AddNewItem = Nothing + Me.BindingNavigatorForm1.BindingSource = Me.BindingSourceEntity + Me.BindingNavigatorForm1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigatorForm1.CountItemFormat = "von {0} Datensätzen" + Me.BindingNavigatorForm1.DeleteItem = Nothing + Me.BindingNavigatorForm1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnOverviewRefresh, Me.ToolStripDropDownButton1, Me.tslblEntity1, Me.tslblEntity2, Me.tslblEntity3}) + Me.BindingNavigatorForm1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigatorForm1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigatorForm1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigatorForm1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigatorForm1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigatorForm1.Name = "BindingNavigatorForm1" + Me.BindingNavigatorForm1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigatorForm1.Size = New System.Drawing.Size(1225, 25) + Me.BindingNavigatorForm1.TabIndex = 0 + Me.BindingNavigatorForm1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(111, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Datensätzen" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnOverviewRefresh + ' + Me.tsbtnOverviewRefresh.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tsbtnOverviewRefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnOverviewRefresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnOverviewRefresh.Name = "tsbtnOverviewRefresh" + Me.tsbtnOverviewRefresh.Size = New System.Drawing.Size(160, 22) + Me.tsbtnOverviewRefresh.Text = "Datensätze aktualisieren" + ' + 'ToolStripDropDownButton1 + ' + Me.ToolStripDropDownButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClearAllFiltersToolStripMenuItem, Me.ExportNachExcelToolStripMenuItem, Me.AnsichtUmschaltenToolStripMenuItem, Me.AnsichtKomplettZurücksetzenToolStripMenuItem}) + Me.ToolStripDropDownButton1.Image = CType(resources.GetObject("ToolStripDropDownButton1.Image"), System.Drawing.Image) + Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" + Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(145, 22) + Me.ToolStripDropDownButton1.Text = "Funktionen DataGrid" + ' + 'ClearAllFiltersToolStripMenuItem + ' + Me.ClearAllFiltersToolStripMenuItem.Image = CType(resources.GetObject("ClearAllFiltersToolStripMenuItem.Image"), System.Drawing.Image) + Me.ClearAllFiltersToolStripMenuItem.Name = "ClearAllFiltersToolStripMenuItem" + Me.ClearAllFiltersToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.ClearAllFiltersToolStripMenuItem.Text = "Alle Filter entfernen" + ' + 'ExportNachExcelToolStripMenuItem + ' + Me.ExportNachExcelToolStripMenuItem.Image = CType(resources.GetObject("ExportNachExcelToolStripMenuItem.Image"), System.Drawing.Image) + Me.ExportNachExcelToolStripMenuItem.Name = "ExportNachExcelToolStripMenuItem" + Me.ExportNachExcelToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.ExportNachExcelToolStripMenuItem.Text = "Export nach Excel" + ' + 'AnsichtUmschaltenToolStripMenuItem + ' + Me.AnsichtUmschaltenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CarouselToolStripMenuItem, Me.TabelleToolStripMenuItem}) + Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem" + Me.AnsichtUmschaltenToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.AnsichtUmschaltenToolStripMenuItem.Text = "Ansicht umschalten" + ' + 'CarouselToolStripMenuItem + ' + Me.CarouselToolStripMenuItem.Name = "CarouselToolStripMenuItem" + Me.CarouselToolStripMenuItem.Size = New System.Drawing.Size(120, 22) + Me.CarouselToolStripMenuItem.Text = "Carousel" + ' + 'TabelleToolStripMenuItem + ' + Me.TabelleToolStripMenuItem.Name = "TabelleToolStripMenuItem" + Me.TabelleToolStripMenuItem.Size = New System.Drawing.Size(120, 22) + Me.TabelleToolStripMenuItem.Text = "Tabelle" + ' + 'AnsichtKomplettZurücksetzenToolStripMenuItem + ' + Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Name = "AnsichtKomplettZurücksetzenToolStripMenuItem" + Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(236, 22) + Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Text = "Ansicht komplett zurücksetzen" + ' + 'tslblEntity1 + ' + Me.tslblEntity1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity1.ForeColor = System.Drawing.Color.Fuchsia + Me.tslblEntity1.Image = CType(resources.GetObject("tslblEntity1.Image"), System.Drawing.Image) + Me.tslblEntity1.Name = "tslblEntity1" + Me.tslblEntity1.Size = New System.Drawing.Size(109, 22) + Me.tslblEntity1.Text = "ToolStripLabel1" + Me.tslblEntity1.Visible = False + ' + 'tslblEntity2 + ' + Me.tslblEntity2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.tslblEntity2.Image = CType(resources.GetObject("tslblEntity2.Image"), System.Drawing.Image) + Me.tslblEntity2.Name = "tslblEntity2" + Me.tslblEntity2.Size = New System.Drawing.Size(109, 22) + Me.tslblEntity2.Text = "ToolStripLabel1" + Me.tslblEntity2.Visible = False + ' + 'tslblEntity3 + ' + Me.tslblEntity3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblEntity3.ForeColor = System.Drawing.Color.Purple + Me.tslblEntity3.Image = CType(resources.GetObject("tslblEntity3.Image"), System.Drawing.Image) + Me.tslblEntity3.Name = "tslblEntity3" + Me.tslblEntity3.Size = New System.Drawing.Size(109, 22) + Me.tslblEntity3.Text = "ToolStripLabel1" + Me.tslblEntity3.Visible = False + ' + 'SplitCont_Details + ' + Me.SplitCont_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.SplitCont_Details.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitCont_Details.DataBindings.Add(New System.Windows.Forms.Binding("SplitterPosition", Global.DD_Record_Organiser.My.MySettings.Default, "Constructor_DetailsSplitter", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SplitCont_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitCont_Details.Location = New System.Drawing.Point(0, 25) + Me.SplitCont_Details.Name = "SplitCont_Details" + Me.SplitCont_Details.Panel1.Controls.Add(Me.TCDetails) + Me.SplitCont_Details.Panel1.Text = "Panel1" + Me.SplitCont_Details.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitCont_Details.Panel2.Text = "Panel2" + Me.SplitCont_Details.Size = New System.Drawing.Size(1225, 329) + Me.SplitCont_Details.SplitterPosition = Global.DD_Record_Organiser.My.MySettings.Default.Constructor_DetailsSplitter + Me.SplitCont_Details.TabIndex = 2 + Me.SplitCont_Details.Text = "SplitContainerControl1" + ' + 'TCDetails + ' + Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Magenta + Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.TCDetails.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.TCDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.TCDetails.Location = New System.Drawing.Point(0, 0) + Me.TCDetails.Name = "TCDetails" + Me.TCDetails.SelectedTabPage = Me.TabPageDetails + Me.TCDetails.ShowHeaderFocus = DevExpress.Utils.DefaultBoolean.[False] + Me.TCDetails.Size = New System.Drawing.Size(764, 325) + Me.TCDetails.TabIndex = 19 + Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageDetails, Me.TabPageWD_Files, Me.TabPageFollowUp}) + ' + 'TabPageDetails + ' + Me.TabPageDetails.Controls.Add(Me.pnlDetails) + Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD + Me.TabPageDetails.Name = "TabPageDetails" + Me.TabPageDetails.Size = New System.Drawing.Size(762, 297) + Me.TabPageDetails.Text = "Detailansicht:" + ' + 'pnlDetails + ' + Me.pnlDetails.AllowDrop = True + Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlDetails.Location = New System.Drawing.Point(0, 0) + Me.pnlDetails.Name = "pnlDetails" + Me.pnlDetails.Size = New System.Drawing.Size(762, 297) + Me.pnlDetails.TabIndex = 0 + ' + 'TabPageWD_Files + ' + Me.TabPageWD_Files.Controls.Add(Me.AxObjectListControl) + Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente) + Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 + Me.TabPageWD_Files.Name = "TabPageWD_Files" + Me.TabPageWD_Files.Size = New System.Drawing.Size(762, 296) + Me.TabPageWD_Files.Text = "windream-Dateien" + Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an") + ' + 'AxObjectListControl + ' + Me.AxObjectListControl.AllowDrop = True + Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill + Me.AxObjectListControl.Enabled = True + Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25) + Me.AxObjectListControl.Name = "AxObjectListControl" + Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State) + Me.AxObjectListControl.Size = New System.Drawing.Size(762, 271) + Me.AxObjectListControl.TabIndex = 5 + Me.AxObjectListControl.TabStop = False + ' + 'ToolStripDokumente + ' + Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2}) + Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0) + Me.ToolStripDokumente.Name = "ToolStripDokumente" + Me.ToolStripDokumente.Size = New System.Drawing.Size(762, 25) + Me.ToolStripDokumente.TabIndex = 1 + Me.ToolStripDokumente.Text = "ToolStrip2" + ' + 'tslblWindreamView + ' + Me.tslblWindreamView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblWindreamView.Name = "tslblWindreamView" + Me.tslblWindreamView.Size = New System.Drawing.Size(126, 22) + Me.tslblWindreamView.Text = "Windream-Dokumente" + ' + 'ToolStripDropDownButton2 + ' + Me.ToolStripDropDownButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem}) + Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image) + Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2" + Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(210, 22) + Me.ToolStripDropDownButton2.Text = "Konfiguration windream-Ansicht" + ' + 'KonfigurationToolStripMenuItem + ' + Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" + Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.KonfigurationToolStripMenuItem.Text = "Konfiguration User" + ' + 'TabPageFollowUp + ' + Me.TabPageFollowUp.Controls.Add(Me.grpbxFU_Profile) + Me.TabPageFollowUp.Controls.Add(Me.Label1) + Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp) + Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD + Me.TabPageFollowUp.Name = "TabPageFollowUp" + Me.TabPageFollowUp.Size = New System.Drawing.Size(762, 296) + Me.TabPageFollowUp.Text = "Wiedervorlage" + ' + 'grpbxFU_Profile + ' + Me.grpbxFU_Profile.Controls.Add(Me.lblWV_Date) + Me.grpbxFU_Profile.Controls.Add(Me.GroupBox3) + Me.grpbxFU_Profile.Controls.Add(Me.dtpWV) + Me.grpbxFU_Profile.Controls.Add(Me.lblFollowUp_save) + Me.grpbxFU_Profile.Controls.Add(Me.chkFollowUp) + Me.grpbxFU_Profile.Enabled = False + Me.grpbxFU_Profile.Location = New System.Drawing.Point(365, 28) + Me.grpbxFU_Profile.Name = "grpbxFU_Profile" + Me.grpbxFU_Profile.Size = New System.Drawing.Size(691, 254) + Me.grpbxFU_Profile.TabIndex = 105 + Me.grpbxFU_Profile.TabStop = False + ' + 'lblWV_Date + ' + Me.lblWV_Date.AutoSize = True + Me.lblWV_Date.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWV_Date.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.lblWV_Date.Location = New System.Drawing.Point(6, 18) + Me.lblWV_Date.Name = "lblWV_Date" + Me.lblWV_Date.Size = New System.Drawing.Size(41, 13) + Me.lblWV_Date.TabIndex = 23 + Me.lblWV_Date.Text = "Label2" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label3) + Me.GroupBox3.Controls.Add(Me.Label2) + Me.GroupBox3.Controls.Add(Me.ListBoxUser2Profile) + Me.GroupBox3.Controls.Add(Me.Label5) + Me.GroupBox3.Controls.Add(Me.cmbWHUser) + Me.GroupBox3.Controls.Add(Me.btnAddUser_WV) + Me.GroupBox3.Controls.Add(Me.btndelete) + Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(240, 18) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(445, 207) + Me.GroupBox3.TabIndex = 104 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Individuelle Empfänger für diesen Datensatz:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(190, 51) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(65, 13) + Me.Label3.TabIndex = 94 + Me.Label3.Text = "Email-User:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(7, 22) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(371, 13) + Me.Label2.TabIndex = 93 + Me.Label2.Text = "Achtung: Diese Liste übersteuert die zentral konfigurierte Empfängerliste!" + ' + 'ListBoxUser2Profile + ' + Me.ListBoxUser2Profile.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBoxUser2Profile.FormattingEnabled = True + Me.ListBoxUser2Profile.Location = New System.Drawing.Point(6, 51) + Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" + Me.ListBoxUser2Profile.Size = New System.Drawing.Size(181, 134) + Me.ListBoxUser2Profile.TabIndex = 80 + Me.ListBoxUser2Profile.TabStop = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(213, 21) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(92, 13) + Me.Label5.TabIndex = 91 + Me.Label5.Text = "User auswählen:" + ' + 'cmbWHUser + ' + Me.cmbWHUser.DisplayMember = "FORM_TITLE" + Me.cmbWHUser.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbWHUser.FormattingEnabled = True + Me.cmbWHUser.Location = New System.Drawing.Point(193, 67) + Me.cmbWHUser.Name = "cmbWHUser" + Me.cmbWHUser.Size = New System.Drawing.Size(234, 21) + Me.cmbWHUser.TabIndex = 89 + Me.cmbWHUser.TabStop = False + Me.cmbWHUser.ValueMember = "GUID" + ' + 'btnAddUser_WV + ' + Me.btnAddUser_WV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddUser_WV.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUser_WV.Location = New System.Drawing.Point(193, 94) + Me.btnAddUser_WV.Name = "btnAddUser_WV" + Me.btnAddUser_WV.Size = New System.Drawing.Size(234, 23) + Me.btnAddUser_WV.TabIndex = 90 + Me.btnAddUser_WV.TabStop = False + Me.btnAddUser_WV.Text = "User zu Wiedervorlage hinzufügen:" + Me.btnAddUser_WV.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUser_WV.UseVisualStyleBackColor = False + ' + 'btndelete + ' + Me.btndelete.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndelete.Location = New System.Drawing.Point(193, 123) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(234, 23) + Me.btndelete.TabIndex = 92 + Me.btndelete.TabStop = False + Me.btndelete.Text = "Userzuordnung löschen" + Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndelete.UseVisualStyleBackColor = True + ' + 'dtpWV + ' + Me.dtpWV.CalendarFont = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpWV.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TASK_DATE", True)) + Me.dtpWV.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpWV.Location = New System.Drawing.Point(9, 34) + Me.dtpWV.Name = "dtpWV" + Me.dtpWV.Size = New System.Drawing.Size(96, 21) + Me.dtpWV.TabIndex = 22 + ' + 'VWPMO_WF_USER_ACTIVEBindingSource + ' + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lblFollowUp_save + ' + Me.lblFollowUp_save.AutoSize = True + Me.lblFollowUp_save.BackColor = System.Drawing.Color.LawnGreen + Me.lblFollowUp_save.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFollowUp_save.Location = New System.Drawing.Point(11, 88) + Me.lblFollowUp_save.Name = "lblFollowUp_save" + Me.lblFollowUp_save.Size = New System.Drawing.Size(131, 13) + Me.lblFollowUp_save.TabIndex = 24 + Me.lblFollowUp_save.Text = "Wiedervorlage gespeichert" + Me.lblFollowUp_save.Visible = False + ' + 'chkFollowUp + ' + Me.chkFollowUp.AutoSize = True + Me.chkFollowUp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkFollowUp.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.chkFollowUp.Location = New System.Drawing.Point(9, 65) + Me.chkFollowUp.Name = "chkFollowUp" + Me.chkFollowUp.Size = New System.Drawing.Size(109, 17) + Me.chkFollowUp.TabIndex = 26 + Me.chkFollowUp.Text = "Undo CheckBox" + Me.chkFollowUp.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(11, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(143, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Hinterlegte Wiedervorlagen:" + ' + 'ListViewFollowUp + ' + Me.ListViewFollowUp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ListViewFollowUp.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) + Me.ListViewFollowUp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListViewFollowUp.FullRowSelect = True + Me.ListViewFollowUp.HideSelection = False + Me.ListViewFollowUp.Location = New System.Drawing.Point(11, 28) + Me.ListViewFollowUp.MultiSelect = False + Me.ListViewFollowUp.Name = "ListViewFollowUp" + Me.ListViewFollowUp.Size = New System.Drawing.Size(345, 257) + Me.ListViewFollowUp.TabIndex = 0 + Me.ListViewFollowUp.UseCompatibleStateImageBehavior = False + Me.ListViewFollowUp.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "ID" + Me.ColumnHeader1.Width = 40 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Wiedervorlagetitel" + Me.ColumnHeader2.Width = 280 + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Appearance.BackColor = System.Drawing.Color.DarkOrange + Me.XtraTabControl1.Appearance.Options.UseBackColor = True + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity + Me.XtraTabControl1.Size = New System.Drawing.Size(445, 325) + Me.XtraTabControl1.TabIndex = 0 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity}) + ' + 'TabPageParentEntity + ' + Me.TabPageParentEntity.Appearance.PageClient.BackColor = System.Drawing.SystemColors.ActiveCaptionText + Me.TabPageParentEntity.Appearance.PageClient.Options.UseBackColor = True + Me.TabPageParentEntity.Controls.Add(Me.Button1) + Me.TabPageParentEntity.Controls.Add(Me.btnRefreshPEntity) + Me.TabPageParentEntity.Controls.Add(Me.lblParentID) + Me.TabPageParentEntity.Controls.Add(Me.Label4) + Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity) + Me.TabPageParentEntity.Name = "TabPageParentEntity" + Me.TabPageParentEntity.Size = New System.Drawing.Size(443, 300) + Me.TabPageParentEntity.Text = "Parent-Entity" + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.Close_16xLG + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(343, 239) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(98, 27) + Me.Button1.TabIndex = 18 + Me.Button1.Text = "Schließen" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnRefreshPEntity + ' + Me.btnRefreshPEntity.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnRefreshPEntity.BackColor = System.Drawing.Color.DarkOrange + Me.btnRefreshPEntity.FlatAppearance.BorderColor = System.Drawing.Color.DarkOrange + Me.btnRefreshPEntity.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnRefreshPEntity.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnRefreshPEntity.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnRefreshPEntity.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRefreshPEntity.Location = New System.Drawing.Point(3, 269) + Me.btnRefreshPEntity.Name = "btnRefreshPEntity" + Me.btnRefreshPEntity.Size = New System.Drawing.Size(438, 31) + Me.btnRefreshPEntity.TabIndex = 17 + Me.btnRefreshPEntity.Text = "Parent-Datensatz aktualisieren" + Me.btnRefreshPEntity.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRefreshPEntity.UseVisualStyleBackColor = False + ' + 'lblParentID + ' + Me.lblParentID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblParentID.AutoSize = True + Me.lblParentID.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblParentID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.lblParentID.Location = New System.Drawing.Point(254, 38) + Me.lblParentID.Name = "lblParentID" + Me.lblParentID.Size = New System.Drawing.Size(168, 16) + Me.lblParentID.TabIndex = 16 + Me.lblParentID.Text = "Keine Auswahl getroffen" + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(254, 12) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(160, 16) + Me.Label4.TabIndex = 15 + Me.Label4.Text = "Aktueller Parent-Datensatz" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnAddForm2, Me.tsbtnSaveForm2, Me.TSDropDownButtonRecordFunctions, Me.tsbtnshowTaskoverview, Me.tsbtnshowWorkflowtasks, Me.tsbtndeleteRecord}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System + Me.ToolStrip1.Size = New System.Drawing.Size(1225, 25) + Me.ToolStrip1.TabIndex = 0 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'tsbtnAddForm2 + ' + Me.tsbtnAddForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.tsbtnAddForm2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnAddForm2.Name = "tsbtnAddForm2" + Me.tsbtnAddForm2.Size = New System.Drawing.Size(89, 22) + Me.tsbtnAddForm2.Text = "Hinzufügen" + ' + 'tsbtnSaveForm2 + ' + Me.tsbtnSaveForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG1 + Me.tsbtnSaveForm2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnSaveForm2.Name = "tsbtnSaveForm2" + Me.tsbtnSaveForm2.Size = New System.Drawing.Size(79, 22) + Me.tsbtnSaveForm2.Text = "Speichern" + ' + 'TSDropDownButtonRecordFunctions + ' + Me.TSDropDownButtonRecordFunctions.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.TSDropDownButtonRecordFunctions.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WindreamSucheNeuLadenToolStripMenuItem, Me.WorkflowTasksAnneuErzeugenToolStripMenuItem, Me.ZeigeRecordLogsToolStripMenuItem, Me.VorlageToolStripMenuItem, Me.VerknüpfungenToolStripMenuItem}) + Me.TSDropDownButtonRecordFunctions.Image = CType(resources.GetObject("TSDropDownButtonRecordFunctions.Image"), System.Drawing.Image) + Me.TSDropDownButtonRecordFunctions.ImageTransparentColor = System.Drawing.Color.Magenta + Me.TSDropDownButtonRecordFunctions.Name = "TSDropDownButtonRecordFunctions" + Me.TSDropDownButtonRecordFunctions.Size = New System.Drawing.Size(138, 22) + Me.TSDropDownButtonRecordFunctions.Text = "Record-Funktionen" + ' + 'WindreamSucheNeuLadenToolStripMenuItem + ' + Me.WindreamSucheNeuLadenToolStripMenuItem.Image = CType(resources.GetObject("WindreamSucheNeuLadenToolStripMenuItem.Image"), System.Drawing.Image) + Me.WindreamSucheNeuLadenToolStripMenuItem.Name = "WindreamSucheNeuLadenToolStripMenuItem" + Me.WindreamSucheNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.WindreamSucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden" + ' + 'WorkflowTasksAnneuErzeugenToolStripMenuItem + ' + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Image = CType(resources.GetObject("WorkflowTasksAnneuErzeugenToolStripMenuItem.Image"), System.Drawing.Image) + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Name = "WorkflowTasksAnneuErzeugenToolStripMenuItem" + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Text = "WorkflowTasks neu erzeugen" + ' + 'ZeigeRecordLogsToolStripMenuItem + ' + Me.ZeigeRecordLogsToolStripMenuItem.Enabled = False + Me.ZeigeRecordLogsToolStripMenuItem.Image = CType(resources.GetObject("ZeigeRecordLogsToolStripMenuItem.Image"), System.Drawing.Image) + Me.ZeigeRecordLogsToolStripMenuItem.Name = "ZeigeRecordLogsToolStripMenuItem" + Me.ZeigeRecordLogsToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.ZeigeRecordLogsToolStripMenuItem.Text = "Zeige Record-Logs" + ' + 'VorlageToolStripMenuItem + ' + Me.VorlageToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_white_office + Me.VorlageToolStripMenuItem.Name = "VorlageToolStripMenuItem" + Me.VorlageToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.VorlageToolStripMenuItem.Text = "Office-Vorlagen" + ' + 'VerknüpfungenToolStripMenuItem + ' + Me.VerknüpfungenToolStripMenuItem.Enabled = False + Me.VerknüpfungenToolStripMenuItem.Name = "VerknüpfungenToolStripMenuItem" + Me.VerknüpfungenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.VerknüpfungenToolStripMenuItem.Text = "Verknüpfungen anzeigen" + ' + 'tsbtnshowTaskoverview + ' + Me.tsbtnshowTaskoverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsbtnshowTaskoverview.Enabled = False + Me.tsbtnshowTaskoverview.Image = CType(resources.GetObject("tsbtnshowTaskoverview.Image"), System.Drawing.Image) + Me.tsbtnshowTaskoverview.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnshowTaskoverview.Name = "tsbtnshowTaskoverview" + Me.tsbtnshowTaskoverview.Size = New System.Drawing.Size(106, 22) + Me.tsbtnshowTaskoverview.Text = "Task-Übersicht" + Me.tsbtnshowTaskoverview.ToolTipText = "Show all Tasks" + ' + 'tsbtnshowWorkflowtasks + ' + Me.tsbtnshowWorkflowtasks.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsbtnshowWorkflowtasks.Enabled = False + Me.tsbtnshowWorkflowtasks.Image = CType(resources.GetObject("tsbtnshowWorkflowtasks.Image"), System.Drawing.Image) + Me.tsbtnshowWorkflowtasks.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbtnshowWorkflowtasks.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnshowWorkflowtasks.Name = "tsbtnshowWorkflowtasks" + Me.tsbtnshowWorkflowtasks.Size = New System.Drawing.Size(122, 22) + Me.tsbtnshowWorkflowtasks.Text = "Taskmanagement" + Me.tsbtnshowWorkflowtasks.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tsbtndeleteRecord + ' + Me.tsbtndeleteRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Delete1 + Me.tsbtndeleteRecord.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtndeleteRecord.Name = "tsbtndeleteRecord" + Me.tsbtndeleteRecord.Size = New System.Drawing.Size(71, 22) + Me.tsbtndeleteRecord.Text = "Löschen" + ' + 'StatusStrip2 + ' + Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Details, Me.tsstatus_Detail, Me.tslblactWFState}) + Me.StatusStrip2.Location = New System.Drawing.Point(0, 354) + Me.StatusStrip2.Name = "StatusStrip2" + Me.StatusStrip2.Size = New System.Drawing.Size(1225, 24) + Me.StatusStrip2.TabIndex = 1 + Me.StatusStrip2.Text = "StatusStrip2" + ' + 'tserstellt_Details + ' + Me.tserstellt_Details.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tserstellt_Details.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tserstellt_Details.Name = "tserstellt_Details" + Me.tserstellt_Details.Size = New System.Drawing.Size(124, 19) + Me.tserstellt_Details.Text = "ToolStripStatusLabel1" + ' + 'tsstatus_Detail + ' + Me.tsstatus_Detail.BackColor = System.Drawing.Color.LightBlue + Me.tsstatus_Detail.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tsstatus_Detail.Image = CType(resources.GetObject("tsstatus_Detail.Image"), System.Drawing.Image) + Me.tsstatus_Detail.Name = "tsstatus_Detail" + Me.tsstatus_Detail.Size = New System.Drawing.Size(141, 20) + Me.tsstatus_Detail.Text = "ToolStripStatusLabel1" + Me.tsstatus_Detail.Visible = False + ' + 'tslblactWFState + ' + Me.tslblactWFState.Image = CType(resources.GetObject("tslblactWFState.Image"), System.Drawing.Image) + Me.tslblactWFState.Name = "tslblactWFState" + Me.tslblactWFState.Size = New System.Drawing.Size(137, 19) + Me.tslblactWFState.Text = "ToolStripStatusLabel1" + Me.tslblactWFState.Visible = False + ' + 'BindingSourceForm2 + ' + Me.BindingSourceForm2.AllowNew = False + ' + 'BindingSourceForm3 + ' + Me.BindingSourceForm3.AllowNew = False + ' + 'BindingSourceForm4 + ' + Me.BindingSourceForm4.AllowNew = False + ' + 'BindingSourceForm5 + ' + Me.BindingSourceForm5.AllowNew = False + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'VWPMO_WF_USER_ACTIVETableAdapter + ' + Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True + ' + 'contextMenuCombo + ' + Me.contextMenuCombo.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammdatenEditierenToolStripMenuItem}) + Me.contextMenuCombo.Name = "ContextMenuStrip1" + Me.contextMenuCombo.Size = New System.Drawing.Size(192, 26) + ' + 'StammdatenEditierenToolStripMenuItem + ' + Me.StammdatenEditierenToolStripMenuItem.Name = "StammdatenEditierenToolStripMenuItem" + Me.StammdatenEditierenToolStripMenuItem.Size = New System.Drawing.Size(191, 22) + Me.StammdatenEditierenToolStripMenuItem.Text = "Stammdaten editieren" + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'TBPMO_FILES_USERBindingSource + ' + Me.TBPMO_FILES_USERBindingSource.DataMember = "TBPMO_FILES_USER" + Me.TBPMO_FILES_USERBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_FILES_USERTableAdapter + ' + Me.TBPMO_FILES_USERTableAdapter.ClearBeforeFill = True + ' + 'VWPMO_WF_ACTIVEBindingSource + ' + Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE" + Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'VWPMO_WF_ACTIVETableAdapter + ' + Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True + ' + 'frmForm_Constructor_OLD + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(1225, 584) + Me.Controls.Add(Me.SplitContainerMain) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmForm_Constructor_OLD" + Me.Text = "frmForm_Constructor" + CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlParentEntity, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewParentEntity, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceEntity, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.SplitContainerMain.Panel1.ResumeLayout(False) + Me.SplitContainerMain.Panel1.PerformLayout() + Me.SplitContainerMain.Panel2.ResumeLayout(False) + Me.SplitContainerMain.Panel2.PerformLayout() + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerMain.ResumeLayout(False) + Me.CMSEntity.ResumeLayout(False) + CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigatorForm1.ResumeLayout(False) + Me.BindingNavigatorForm1.PerformLayout() + CType(Me.SplitCont_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitCont_Details.ResumeLayout(False) + CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit() + Me.TCDetails.ResumeLayout(False) + Me.TabPageDetails.ResumeLayout(False) + Me.TabPageWD_Files.ResumeLayout(False) + Me.TabPageWD_Files.PerformLayout() + CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripDokumente.ResumeLayout(False) + Me.ToolStripDokumente.PerformLayout() + Me.TabPageFollowUp.ResumeLayout(False) + Me.TabPageFollowUp.PerformLayout() + Me.grpbxFU_Profile.ResumeLayout(False) + Me.grpbxFU_Profile.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.TabPageParentEntity.ResumeLayout(False) + Me.TabPageParentEntity.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.StatusStrip2.ResumeLayout(False) + Me.StatusStrip2.PerformLayout() + CType(Me.BindingSourceForm2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceForm3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceForm4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourceForm5, System.ComponentModel.ISupportInitialize).EndInit() + Me.contextMenuCombo.ResumeLayout(False) + CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer + Friend WithEvents BindingNavigatorForm1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingSourceEntity As System.Windows.Forms.BindingSource + Friend WithEvents BindingSourceForm2 As System.Windows.Forms.BindingSource + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip + Friend WithEvents tsstatus_Detail As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStripDokumente As System.Windows.Forms.ToolStrip + Friend WithEvents AxObjectListControl As AxOBJECTLISTCONTROLLib.AxObjectListControl + Friend WithEvents tsbtnAddForm2 As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbtndeleteRecord As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbtnSaveForm2 As System.Windows.Forms.ToolStripButton + Friend WithEvents tslblWindreamView As System.Windows.Forms.ToolStripLabel + Friend WithEvents tsbtnshowWorkflowtasks As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbtnOverviewRefresh As System.Windows.Forms.ToolStripButton + Friend WithEvents ttToolTip As System.Windows.Forms.ToolTip + Friend WithEvents tsbtnshowTaskoverview As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingSourceForm3 As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter + Friend WithEvents contextMenuCombo As System.Windows.Forms.ContextMenuStrip + Friend WithEvents StammdatenEditierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BindingSourceForm4 As System.Windows.Forms.BindingSource + Friend WithEvents BindingSourceForm5 As System.Windows.Forms.BindingSource + Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents tslblStatusMain As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ClearAllFiltersToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Friend WithEvents TreeViewEbeneSelect As System.Windows.Forms.TreeView + Friend WithEvents tserstellt_Details As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents SplitterLeft As System.Windows.Forms.Splitter + Friend WithEvents CMSEntity As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ResetEbenenAuswahlToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ExportNachExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog + Friend WithEvents TSDropDownButtonRecordFunctions As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents WindreamSucheNeuLadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AnsichtKomplettZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DateiimportEntitätToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl + Friend WithEvents grvwSelection As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents ToolStripDropDownButton2 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents KonfigurationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TBPMO_FILES_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FILES_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter + Friend WithEvents tslblactWFState As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents WorkflowTasksAnneuErzeugenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView + Friend WithEvents AnsichtUmschaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CarouselToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TabelleToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents tslblEntity1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tslblEntity2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tslblEntity3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tslblEntity As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ZeigeRecordLogsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents VorlageToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TCDetails As DevExpress.XtraTab.XtraTabControl + Friend WithEvents TabPageDetails As DevExpress.XtraTab.XtraTabPage + Friend WithEvents pnlDetails As System.Windows.Forms.Panel + Friend WithEvents TabPageWD_Files As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TabPageFollowUp As DevExpress.XtraTab.XtraTabPage + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents ListViewFollowUp As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents lblWV_Date As System.Windows.Forms.Label + Friend WithEvents dtpWV As System.Windows.Forms.DateTimePicker + Friend WithEvents lblFollowUp_save As System.Windows.Forms.Label + Friend WithEvents chkFollowUp As System.Windows.Forms.CheckBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents ListBoxUser2Profile As System.Windows.Forms.ListBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents cmbWHUser As System.Windows.Forms.ComboBox + Friend WithEvents btnAddUser_WV As System.Windows.Forms.Button + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents grpbxFU_Profile As System.Windows.Forms.GroupBox + Friend WithEvents SplitCont_Details As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents TabPageParentEntity As DevExpress.XtraTab.XtraTabPage + Friend WithEvents VerknüpfungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GridControlParentEntity As DevExpress.XtraGrid.GridControl + Friend WithEvents LayoutView1 As DevExpress.XtraGrid.Views.Layout.LayoutView + Friend WithEvents GridViewParentEntity As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents lblParentID As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnRefreshPEntity As System.Windows.Forms.Button + Friend WithEvents Button1 As System.Windows.Forms.Button + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.resx b/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.resx new file mode 100644 index 0000000..513e73a --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.resx @@ -0,0 +1,1751 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 316, 17 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAZhJREFUOE9joDrweljzP/l0238oFw5MT6f/Z37giyGOAkCag//1/Pf914liiM2Z + 7P+sP8PAmOGqG3ZDkDW7/msC47BNJf9Bmtn+R4I1s38O/c/wCugKdEOQNfv8a/3v8K/+v9Gj3P9aR+PA + mmC2g9gwQ1j2OSEMST/dCTYApBlks/2j0v8W+1P/z/q3+7/1r2qIYqAmuAsee/833ZmI6gqQn2GabY9l + gdk6/4r+i/xLggRegjyEBhqAoRkGQH4OOlr5f/G/Q2BvqP7L+8/1J+q/3LOE/6G7y/9zavH9N10WjV0z + COSc6f5/5d/N/5X/FoOdLvk7Fexs5lOuYC/17pmL2wCQF0C2gsJh/8/9/w3/lYK9APKvzK4AsGZwWABj + wHxFLHb/g2yFaQTxk35N+W91Mx+uGeQSEA3ClrOjEIaAAg5mAEiz3L9McOCBvICumXWLw3+2Nbb/2fpM + UF0BineQZlDAgTSCAg+UiEB+JqgZBpQfJcNtB2mGCjNYLI0Ba2ZfaoNbMwyIPIpE0QwDVtMiCWsmHTAw + AADtKmj6rk3BRQAAAABJRU5ErkJggg== + + + + 1289, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N + zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu + 3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG + CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC + + + + 1179, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS + CQAAAk1TRnQBSQFMAgEBAgEAAeABBwHgAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgA + AfQBeQFSAisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKa + AZMEdAF1AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0 + AVMEAAFZAcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQA + ATgBwwSaBXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKa + AcMFmgR6JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPD + AZoBegFYARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEI + AXgFlwGYAUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFP + JgAB4wGUBRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEB + BQABgBcAA/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQA + AcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQA + AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHBAAL + + + + 811, 17 + + + 134, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAJRJREFUOE/dkssNgCAQRLcUa6ELurAVKvJMJRw4eAKO6iAaXZFPvPmSSQjZ2cwk + S9775YuwYJZSLkKILsEDLznnRq11dqgkeOAlsD0mpVR2MCfMwhPNIIQwGGOaqmAGs/Ak+05rlVt0Tq3K + IzqnVOU1OuetSjE6h1epRucgprX2XIB3NToHZ3osiCfby08WXJW+GUQrK/59Ci2uLUYAAAAASUVORK5C + YII= + + + + + /9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYa + HSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgo + KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCAAZABkDASIAAhEBAxEB/8QA + GQAAAgMBAAAAAAAAAAAAAAAABgcCAwUE/8QAMxAAAAUCAwUCDwAAAAAAAAAAAQIDBAUAEQYSExUhIjFR + FHEWMjM1QlRhc3SBkZKhsdL/xAAWAQEBAQAAAAAAAAAAAAAAAAAFBAP/xAAiEQACAgIABgMAAAAAAAAA + AAABAgMRAAQSISIxQVGhweH/2gAMAwEAAhEDEQA/ADTAmFodzhlobYsaoJQEoidMom5jzvW2XDMH2jR8 + H43U+HLS2wzPyySyDSJJnEojnuHDlvvvTijXqTthdMQ1yl4r8ym/mjopA4rCoZRIKHjMOXwzANWSurBx + ZRMmbLlRLflSG2RF+oN/sCmVj5eVjiGVevkcyoiUhACwmC3oh0Cljrn6/mtteS2YeqyjVlt2X1X3hhEt + 5Bs3FWPeIJFWuI8ZbjvrqSeYkauCLIyKOYo3tnLYwdB9lCMD5hae5D9VTN+SJ8qNMLqeTYOdd1PS/wAf + uGOKZCTnGolfNmACmAiVQqoiYvdvpaZB6h9aip4hu6g2rNRGHEWN9sR0Y2BZma7rP//Z + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw + MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU + rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U + gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq + htNmAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD + EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG + RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD + EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG + RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD + EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG + RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB + AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEARH0AAAwaAAAAAAAACw== + + + + 646, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR + BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4 + 4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh + 4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3 + 9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT + QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf + D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY + DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC + + + + 472, 56 + + + 1349, 17 + + + 912, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 + JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAAECUlE + QVRIS62UfVDTdRzHx54YbBM2GGxzzD3+NsSdCEnQaBAsdkpnd6ilB1gJ9uRRd5RJd9ZZV4EPJ4ZIgkxM + RB5CkAcFTzl6uLi8SC7Ow0KEJE2cuDAIo8h3v3m37rf1vbKuP15/fF6f9/d9u9++vx8LwH9CrNAZY/Pe + qSbtmBDl/aC2ZeVk9c1DleDIIe29ECWJEIWeF2F+MDI4NFLB4wmC4wpKqx7vBzIbhm8JQ8LVpDMeiJKJ + 1BCfbMnfuc9a0jWUfmhwylE/fNtxqH/ssbar05k9M1j12TysWz5oJZ31QJQeuIJgkTlnuzP14AXYm67B + 0eaCo3sKjp5ZpPfOwdY9jeT2SVhbbiCj40dok1Zmk3r+IjwEiqWy+Ndqv0irG0da/XewtbqQcGoaS7vu + IKbzZ5iPu0E1umCovQZd9Rg0lZdhKf70ujA0fKF/l8/gZWnB/tP2ZhdSmq5j2YejiC4/P2su7ZtcUt7v + ttRcmjM3TNw10uX66lFoyi9CueM8VHuGEfN0SbN/l8/gQZ3y5AuOlltI2P3xTGRGfp1AYVzPE4jiuBye + nv5z9VJ19AqL89Kc1jkG9b6LiNr7DfTvnYMpv2wgzBCf59/nM3AFQmFqWZ87ZtOOc9ygBSnMnZewGKuV + qp2AtuoKTLu+AvXM7s9lxrg8NoslJeV9hqjEzOzFa185w2KxZEzPxLK53LmkcgRU7ttnJCpqTQCLJSTl + vPgMgWKJhi6PYDp/DBlPbV2g0D1B5wSkvT9E+X9ClCQEYSoeVyAKJe3+DqJkQhfzZXEZGx7Y3jYgoZZv + JGW8RKVveJEvDFUxnU+ACf1rRfKkrPxl21oGbUfol805BL4oNJGU9RC17o1i8+vNVwPYbAnT+4Q80NdT + utC+sSi2qHk4uXIItiOjsLe5Efvy/gH/rFgWxVY/km3XFTX36qrGITUnFvpnfAZOoFBiKTw69lD5IJKr + 6PLDw7A1jCOp/TaoXZ98L19btDNy5fNblKteKtJvrnDq3z37tebACCIPXMGi3OIv6Ssbwuzz4DsEsLnG + dds6bDWX75XHHx0H1XATupafYOy6C1MPYDoNGDp+xaJGNxRVY5DtGYKusN4VJJYkMbv+7PQXvCCRMr7k + 7MTiYy5ojt2EvnUGxpNzMHb+Av2JGWgaJ6GqGYe8YgTK0gvQPFfxrVAit/v3eCFKofnhHP1H0zC037lX + bDr1G6iT89C1zkJT54KWfizarcdvKFOzK3kcjo7U4YUoPaieff+EqZd+JN2/Q7X61aZw6+o3ZWm5ZTLr + mhIptXwTn8ePJp3zhyg98EUSNXV4dMrc5EaQOCyZlLkfiNJLROr6gui3On+gb4fP3f43EKUXNpvNE8m1 + j9IfNg5p/8+A9Qcd0cH9eDjxtgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKwSURBVDhPdVJdSJNhFH4jiC67Sfoj8SL68cYgMsqu + hBFBRBcRVBQZ/pCgN96ISaZYaT8q5Tad2/xc32ibs2Qswtna5uaiuYmKPxg6xcF0in0qA2tbT+/74la2 + OvB83+F855znOed8BEAaXC7XI4vFEurq6vrJwHwW+1duWsBsNmcYDIYf1N9mLKbX6w9Qd1s+f2wxBilb + ggK9vb2YmJhAIpFAPB7H2NgYj7FvLIflJhXxBrT7Jn2nbG5uDt3d3RgZGeEwmUw89qdt1RDS09OjpcD4 + +DhnZPB6vbBardDpdBzMZzGmJhaLYXR0FKxGrVbrCWWKTU1Nwe/3IxAIcEbG/rclFQ0NDcHpdMJut0Ol + UsUIlSdtbGxgaWkJMzMzmJ2dBZ0P09PTKUXMHxgYwOTkJGw2G8fw8DDa29slYjQaeYO1tTWsrq5ifn6e + y/X5fKkdMNay13ko1J7Ex082OBwOrratrU1iC+QNJEnCysoKIpEIQqEQZ2Wjud1uzljcmYuHluu4pjyG + fnsfJ1AqlRKht/0ejUaxvr6OcDjMi4PBIMrF8yjTnUGJcAoF6hzcf3sVRl8LKkyXIWvaB9egA62trZtE + FEUbW8jCwgIfgzVhuyjV5eJdQA6z/xUvfONrRnN/BQRvI0pEGU4/3o1nLxs8hJ5pF/05CgVB+Mq2u7i4 + iOXlZdyl87LiF33laPhQivr3Raix3EGttRhKVx1udubhyAMST/2SWq02Q6PR1NPbfvN4PLihOg7Dl2aI + n59DGGyExvOENrkHhasWReIFZFWTyMFKkpNqkERHR0c2va94RZGFiy2HkN+UgXNP9+CW9izkzhoU6GTI + rCbh/ZXkBMtPa5AE3bBMoVDY5XK5my7rUnbdjuhtIR+ZVSREi48m89IK/wcqOXq4aif2VpKs33GQX70k + /UVxpRUoAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKfSURBVDhPpZLdT1JxGMdpa+suWy8XzfUH9D943+yu + q9bWZhfNuVVb0portaKSuzSXmomkx4SpaIkg8qKAyotApUBQKgqHwzmHwzkesJHGaHyDs+l086KXi++e + 3+95Pt/n99ueRwbgv3Rk8m906EKSZE0q/m2ajnp26JVZMJ/NYAJGMD49WL/xJxvxumiarjno2T9QFEUw + a58K6bAVYsQObtmEVbsGEfMAYrYBbC+NQVx8h8z8UImLhacONSibLUzYCSFsw4qFgGGwAzpCBe2IAYTG + CBUxBa1aBadaAcHaBdHcCSHkCEkNEolEOxN1QwjOwKF7Dbc/ilFXFsPOLNQ2Ed2mLbTrebTpOOi9Waxa + h5Eaf4acXgkq7B2UpWLhNB2YQNQ/h2KxiCnfNoYcWaisIk6du4Cqs9V4PpZBiyZdjpzEsCEXaG0zgn1N + RVncry+lkzHs7u5KRZ0rh16zgE6jgKoz1Th5+jweDrO4p6bRWo4VpsIKsRA+djRAlkps/BJFEfl8HoVC + AfZgrvxlDkodi0daGk2DKdxVUWjoIfHWxktMha14NvRdJRkVWhC5xFfkcjmpEEt9R98Mi2YiWX6VxO3e + OG6+2kTLUBLL61mJqbBsJIA48aAgI9cjb9JLE8iUp7DFJJDNZhFc40BYSDT1r6GxdxXdk3H4vqQlo8gx + 4HzTSPbUw6NSeKQxri57PdRsPwSnGnzQLvKxMMOzqQTP85t7ymQym1zEx7CGTpBls7VdzkzKLx/bX6TA + vFXvHu0qboy1gTO+AGdTgXVqwDg0YOcIUPqXoPpuY1F5o2Tqeer/0Fh7XNqDvQYVubvlJwzK+qvjj+tG + Jp/UcSZF3Q+L4vrOTOu1/Pv7VxY0d2rl2luXLh70HGrwLzoy+eeC7DdDjRpyPiqHagAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok + pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ + 1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIPSURBVDhPrVPJqhpREO1VFvmAt0g+Iav8RHb5jCzzDa6S + 3cMZZ0QlgiOIuBLFEREnVBxQnFBwxLSK8JLWVO4p2kfeS0g2KTjQ1K1z6lTd29KfIpfLfY5GowuNRvMD + wDdy6vHfIxKJ3AUCge/0LJDz+/2v1LKnAfV4PD7xer1XAYrFYtTtdul6vdLlcqF2u805nKEGtU8c+Xy+ + B7URx3Q6pXA4TM1mkxEKhTj3a4DDZGHZLWakTqfDHYFSqUSJRAJFDHwjBzeKolCr1SJwnE6nX3K73Uq/ + 36darUb1ep07ovvzuDmqVquUzWYpnU6Tw+FQJGFPPp1OtF6vaTQa0Xg8JjEfDQaDR0f4zufz1Ov1KJlM + MhqNBtntdlkKBoMscDgcaL/f02w2Y7uVSuVxB+iKJYKYyWQYcGuz2WTJ4/GwgCzLtNvtaLPZ0GKx4K4Y + rVAoMBGW4QxOIIAGOp1Olkwm07fz+UzH45GWyyWTJ5MJDYdDvkoUg3hDKpVisXK5TGaz+QFXmERiPp/z + GBDBLuAAAjjD0gA4QWeIikdFBoMhix28EGN8ELcxRNFqtaLtdsvLhMBtaSBiN3gTWq12ajQaP4odvOS3 + gBAv7M7lcn2yWCxfi8Uii0AMC8QVi9cHyycx8r2oea3Sfg9xNW8EvuAnAhEzC4cgh/V6/Vu17N9htVrf + iU5pQSwIvFfT/zsk6SezNnG6NqT38QAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALESURBVDhPrVHfT5JhGKW75nV/Q9fdO6/a3NwylRgRYIAg + Q/kl9KGkwKeb5XCKEIq/ChTNUjRSqRCc+WMqLnW6zDXnmooNFS5YUa0bTt/3aqtl3XW2Z3v3vuec5zzP + y/nvWKXpnHkrlRs1akVxuQwHN0tIxcskiFKa2/N3qVyWc0Y/j/VqQyyl1yGpUuKYEaXNZqQpipyT6gqk + DHqsMJwz+nk4hbzsJ4sF39ydOFYpEBdwSbFn9o59c/ALs1Gj+jIR0N10DvWAyq1yaEU1T3XY415Dxu9H + SlOJE2YEVvTT7ERZjoRMzIxUhClKf4UY1HpNsXshC2zBapgDeuzzruP7eAhfPB1IVipJ5JRRh49iIRGz + oxwISn4ZqGlFti1yH/6lbljGKOLOGmQ8nci43Ui3tuBIKibiI1npqcHvCcp9pZjZnkJbpAnmUQN2b90g + nTOeLnx2uZButiMhEREha3DIdG/lFWRN1varND2Rw1H1SbHyYRFTWyGMrAyiJ9CABa0Me4Ji8hNsCnYX + hyIBdrkFmJFLQduHYOiZg7pxMMap6C/D4s4sJjfGML4ewFDMi+oRLWx1HYjJhMwPFGOPX4SYRIBGsxNK + ZxRtk5uo8y+hyExnmR3Is8G1YYyuDmF4xQ/fYjeoYTWKLM/wPLaLBt9rlLeGiYgt1kDlmoa0+RW4tnFw + qhyaPI1HkdAMKNE968bgspfsosQWxPRGHIGFHXjDb2EdWIa+aw5i+0siLnNEwKtnDFgAuKBzauTlHbJM + pV+Oin4ZcQ+v7ePx7Hs8YepRZAvSljARy5hErAFJ8CeMLcpLElpykU/TWV/0HbzRbTxkErQz8Uvtp51Z + A37DBApNzA7+BYXVkyes7UsIGKI98AYdoU3IHVEIm16gsCYArqk3WUa58s/ofwc7msrSpSgxezL8+gkm + chD5pt6vkpr2O6cMDucHYLoNAUaDA9cAAAAASUVORK5CYII= + + + + 190, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHpSURBVDhPjZLPSxthEIZz8FDRcysUrPSPkFKKLSLt + eakQ6KE3qQUhCtKDRQoGpB5shKTBWDz5o/TQg5dsurpGFE2lolGTGpNYisSLtMludollo7zOfNUliYt4 + eNiZb9552G9ZF4ArqO/qJEIm/l7AteSUrWoodJcIZsJdKObCKBs7AiMnIyN3I+ptGOdM5U6VIOptHD9O + TOLU3EBZU2Dl5wRc89mf1AyW39/+VLljF2R+kZp7iXJBhnU86QjP0uFX4KyTYEVLB/DvaORa9GyIBStO + AsPI9ODk9xuUdRUnh2+p7v/P4SBdY0HUZraXBYaTQNPiT2HudaJ08JpeN4JStlvUVj4sajPlhhZ/xgLN + SaAeLbbC2G2Hkegg0XP6cDs4LaVh/pTEGc9yaisLFCdB57r/DvT4YxS3nwiswgJdJ2b3PFv3N7HA/ids + wYXEn5y6h2K8TWDl50mwZvfJ6RZe9lfu1ArqieDe5xboW49IoAgB1/tf7vNykGis3KkSMBRoWvLWQ998 + SIJvJFhF4ccDRIdusaC5Nl/VMEOzCVdgbBhK5CsO9pOIrS5hYsKHwYG+M57V5q8ccCgY+IiN2Hf8SqXF + k3uPx4MbC8Y++KBGFCGYlyPwjY7eXHAJLYTcbjckSeLlkFMGgOscnY/lSF6G3lMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAstJREFUOE+tkdtPkmEcx+mued3f0HX3zqu2NrdMJSMCDBAhFBClFyEFXt0sh/OY + iocKEM0TGqlUKM48TH2dh+kyc841T80TF66o1s377X0ebbXssu/225697+/7+X1/zyP671pg2YRJJ5MY + tZjkuxo1dm6n09rNUiLKGO9OPmASSc9Z+3kt2SxczJyHY70Oh4LpxG7HCcPQ87EhB7ECM+YLC7iz9vPa + kGXwnx0OfK9vwqE+G7tSMS1yJt/Iv3VJCh+1GC5TA9vCJjCPmcT8apPc1p2HLfF1xAMBxIy5OBJWIKZf + sCOdFvtqhbBSKoYZ8xUKKPJauYdhB1yhQtiDZmxn3MCPgTC+ehpxnKujkWOWPHxSyKiZrLIjTf8NMPiy + +ZqRRwjMtMDRz1A6AcQ9TYjX1+OkqhIHKgU1H6gzTwF/JtD6MjG2NoyakXLY+wqweecmnRz3NONLXR1O + KtzYV8qpkQD2hOkfMpJ5q7PhKssOJoj0fhXmPk5jeDWM3rkOtAZLMWVSY0uaRl+CpCB3sSeXYlOcjDGN + Cqy7EwWtEzCUdXCinLYsTG+MY2i5HwNLQXRyXhT2muAqbgSnlgkvkIYtSSo4pRRl9lroaqOoGVpBcWAG + qfZuXmTwavjQYg/6FjrRMxeAb7oFTI8BqY4XeMltotT3FtqqCDWRIgB93ShUFW8gdg1AlF9tTDJ67u0b + 23VoGa9Hx6yX3kW6K4TR5V0EpzbgjbyDs30W5uYJKNyvqTmregQZJQKACMCFvFqjRtuojucGNMhpU1N6 + ZHEbz8fX0SXUs5FVqCoj1KwWEhEATfC3LJW6S0pWeVHC9vG+6Ht4o2t4KiRoEOJnuk8nE4CkdBAp1i7+ + zHZe2U5PkqzIvy8VGt3BeTSGV6CpjkJW/goptiBuWZ8cZzF1187a/y2ymt7RnC2x++OSkkEhcghiq/+b + 0tZw/7RDJPoJ1LcOxnbJXxoAAAAASUVORK5CYII= + + + + 481, 17 + + + 307, 56 + + + 1019, 17 + + + 1184, 17 + + + 17, 56 + + + 750, 56 + + + 1022, 56 + + + 1446, 56 + + + 17, 95 + + + 154, 95 + + + 392, 95 + + + 625, 95 + + + 869, 95 + + + 154 + + + + AAABAA8AAAAQAAEABACmJAAA9gAAADAwEAABAAQAaAYAAJwlAAAgIBAAAQAEAOgCAAAELAAAGBgQAAEA + BADoAQAA7C4AABAQEAABAAQAKAEAANQwAAAAAAAAAQAIAOgtAAD8MQAAMDAAAAEACACoDgAA5F8AACAg + AAABAAgAqAgAAIxuAAAYGAAAAQAIAMgGAAA0dwAAEBAAAAEACABoBQAA/H0AAAAAAAABACAAp1gAAGSD + AAAwMAAAAQAgAKglAAAM3AAAICAAAAEAIACoEAAAtAEBABgYAAABACAAiAkAAFwSAQAQEAAAAQAgAGgE + AADkGwEAiVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAAAXNSR0IArs4c6QAAAARnQU1B + AACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAJCRJREFU + eF7tXYF6q7wO26Pv0e6b/bdAZGTFgW6n6wZRv++cdi0FrNiy7AT68eGHETACRsAIGAEjYASMgBEwAkbA + CBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyA + ETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgB + I2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMwIsQ+N///vff8u/j8zOeP/7777+Px3/rM95/vP58 + vF7eW7f3wwgYgeshEAHfgnsN9BbYCPo10B//8BzbLO9j+8fz8rnJ4Ho+4DOeDIE1SBHwyO4tyPF+F+yi + ApbtOmJIJDEZqDbXCPxlBCDrOXCX7M3vL3+vQU1yP7ZvhBGfc/ZXEmmqYNvWDyNgBH4NgU2S97I+ZH4L + ZNTzeF8DPRRBKw/S9sj8pAqiZFiO7YcRMALvQyBJ/Co4jzI9kwV6AdITAKGc9QRWMsHx32e+j2QE5kSA + s31kaJbzRXAPa/0I3L7WrwKfFYL2BlwKzOmPtvpNCCDjRxBSTc7vJVKgAOc6P+0DjUE8g0CoYViqgNh+ + UwDx7014+DBGYAoEVOqnaTue1pMmndb7a4BycKNEoIYgfyf1B7jzz6SSZgSW/bdpxClGxkYagR9EYAl8 + zeba3R816VKHn7v12tx7BKzuc8/k26KgckYgZfyt+birBM8K/KBbeNdzILCvyItpO87wMr+vvYBUn6tK + qGYEqG+gpJLk/WBdgKoLLxSaw0tt5YsRUNneSXLq1Gsdzw26CMhGGt1+aMFPF/A0e8DE0vUBRFmk4y/K + wg8jYASeQyA6+yPJrQGrdbusASgDXhf/UNOv7BdAOZDc5yDvyhNWFp4WfG7gvdXcCHTLdaVGL5tyLP+p + U59KhWpOny7s0fX/69Jgzfwc0DzNOJgt6BSISWBu57b1xwik5bmjYKOLcNL6/bQMl/oFrCA44EfZvgV2 + Cl4lGF0eXK0EPJxhsCcYASMQCETgI6si81LgcX0PFTAK0iTfsU+S79HF1/3r4iFWASLnqysD0+xAI5i+ + D+FpQbu+EQgENBhTI28QkJs8bwttOGPL9lFOHC0BlpmEYa9AyULUhDYgo3xQ4mBisB8YgVkR0Fo/NdBY + YqNulvd4FR9f9FM273Sun5t/rDZGZQQTSCHtY1pQ1xfw2oCo/9sFSo+/PTU4q/fPbrdOxfFqPKnZYwGP + 1P5QDmk5sDTu0MjT51RCFJl9DWiV/9o/4LpfyYntAXkUMwefnhqcPRImtL8InDKbIwiROUkJRJZH8FLv + AI1B3mfXMxDZH2sESBl0kn7UA6jKCzpnVQfpWNGInNAPbPJcCCTJr80+Di7KtGmhjUzZYZ3AM6VEUhGc + rUWJlM1DOTeog2GpISUFbNDnZT/pvbncwdb+NQRinX1zzE1iv+ihkrqQ0yy7U9Z8bJtk/iPAqrUCvHAo + gqtq1CH7qwpgFaFqg9QI3wswjnNU+/NxBv0DlwIfH+6HvCjWvrKbJchH/15xFRum97psiRpZg3HUaaeg + T3Ie7/NMQLVPPp40FaNUqBqFWhLocZgYCkIJBSMlQaUGttJgzgfG1CTwxvFH4D/8ds2oUACZED626bZv + PCLopT5P76MT3slh3HKbrr6jwE4kIKVBV/trYON8ogsvtw2LupyOXfQjqlWCZWBLQzDUDamBTW1hWvMb + YF/5KyD9GI8rG3ORc0fAL894MAms0rY55OfnQgJffJDkR1NuWM9TltXr+pfv8Fw+FEV5nQA3F7UpqD0H + zdbSF6gUyxakeYVhBHNVTjDxKME1kmGFAMxnyoIYxz0pfNHPvPn3EEBgKQGU5cDD65/tB5R1uJIByfxN + 9u6ZlgOelUI11Vd1+asbgyS1oJmcm4AFaUSAFuesSqaU+1J6aP8A9isRfG9Ur/Wtatn3tSy48NlC7o8U + QJKyzxJA1diTmhlZlLOpyvm4ZbfW/fibVAEHYZW1eUqwI4cqm7MSEOJK5z4gkjgeyf6wddAHGJcEF3aw + Z05dp3An7oE8A9fLt0G2jRqg9QKSCniUAbt0PzgFOHfLqIndEQxFwOlUHo5dZnep9bsyYDSlVzUIiwBO + Ev9M6uNcuL5nWa+KAX0Ffn58d8dW7iAEPF8+6n9kh035MWnPVPr8iVEY9QEiCLlufaTP6qS7QBdW77J7 + OLZM7TXy4SydyEG6/XzcSkGsmRgBVmUaDmCp39P+sA8mBCY7rvN5P/Q9JZakVAa9gL3B+Cdc5bUnwb0a + GgcTwGthPt0byoDnFEBBAFK/r1JWO/Iso3V7VguUpbnpVymBrnwQcqhKAQ1qEAQke6rnnyEMZHJSNxXZ + AZPlOdX5RfZft+X34xinQ3mhDWjGBf4QPnIhM+5yqlABPBNQKwC5hFWzIGfIqu4ncuCGHl6DjBCYqduv + WaL9rQHH5cPhjUDo3DXwI0i1n8E24fWjPEqEJ/I+gp7LhFHJUJQIG9Hd49LhTrGJOtts9ePtCBwRQARU + c8IYJKn3OYg6eQti4AGvMnahAKoATwShMl+Ip7rDT5fpEZBVSVCVEdQ7CBXBaqBqhCrhsBpox4eqCQIS + oriyPA5FRwowlBHh/3bn9wG35ZfVTABLURCBSth1EFn2s9xfAqFlyGUbdgJWAMs+9e8U5EQW1VSgvteV + B6jLpc5P583biD0luXHQtnIhEYtKeSoT1PETpqQC8D7WYmzlwfUekfmZnEGASvrXM+/6Z4wArEqANfCX + IKbn7rr7ro6jznbREKw69wjaqhz4StCPyECVxOiW4in7KikQuXXBzkpBSyNpeK1YEnEGiY56AqEurlcK + 8FhzsmAf2u2/fixd0oJqJgAZPwZH6lMNlAiIQh5X8o8DPQJCJHgiBcoUHHzVTEB374AlOEFEhQpIwTxS + AlpaqPJhGcsqiEsDznqsEETqd4qAiSH2cQFXI+LrVBSrrCgRL2DTHU8RgRaSkzN6c+BOBQghDG99RQog + ZWfpAVSZW7N2kBLPHAxmERZSYeKBjalhR70JEESlFFYSZOJgMqiIgQK221+V+VkRSOmQyCD1Cv6uJ0bW + Z9xYBSmeQfx/16Zbnhl32VEGlEGjwS5Oytm1UwIIBmRhBD41yuAw6Xn0+UH3n4O7yziiACpyCTtAgHQO + ZSBjn5rNxPHLS4dZDXCZxFiPlMHH371giBVZKnVSoy+XiBs5+/E7CFCmXAYvsiyyI2enh+Ntg8W/eNv/ + Rl5kWy4HtGlGCgDB9YxCiCXCo8wvykLlfUVQa4YXNZC2K5QCXwXI6iB9D+qJsn5k9ALfRDL8XSECBNZf + Cpyy0Uc2QkWF/VzumQB+J/bXo4qc7hQAnHeUjSizdsElWY4/Pwz6xz67WQGS2qPsPczqrEIoE3XOqM06 + zlqwhVRB5dTre5rdORBKYt1vEJrUAimMRKoxJn8jc5aNPlJBJZky6ZoAfpEAmjMh++O5umJtz177rbhT + RiOy0MyLYOEMDqdODcFBfX00E6CqAKR2RAiRtbnpN1ABEXzP9gEKkklkExJ+XxGHz2O7pLx2gsC58Ha/ + 5T2puUsEWa290EVZTAobgfjxOwg0puYgHKqAZZCb87JDp0zItTZnQ+2+ay+AAr/L/iQXn20WVjMP7ISV + GinlqdqjCoAyXcr+3B9gYqnKAc2GSqRMBviMVMC7SwFOEokcteRh5aU4YbwXf/Lj9xDgDI46Tgd1KD+b + 46bPudaXGrAjFmmylT2Ag44/S8+kJijgOuVQSVOt8TWDD1RJ9A2K7FdmvHbspJoaUfB7Kbt3AU8NNCKG + d2RRzfirimKblOQVa8YpYfZ7/u8jLwjIIC4DnaZymNk5GM6yIzd6qNPN5cEwiKXbzyXK4nhDeV98liQp + k9Igm6fyRTOXODmTZZLx2tmvFAGCgPsrihPUgaoA/g5e/5A3J7tOehiMHausruQKXH/opL3b5xHgzI/X + kTlF8ufas7+WfSUTSL9nGm4tCCtpvzhNRRBBAEUZkVQMqwchuaRylNT0vIUoSoJQGT/YZxcgVBKktRQn + DcAUlEwOzw/76ZaR8SvSPHqP8GOVtPhGIu4VMz/+DALI/Mvz8sDfCJbluav5qowLdufnQmbH/g5kfgT7 + Y1/P9Aa0yQhC6DKQqJcukyPTq6zVDNg+52zXEUSF2yjwtYSSEqAsx2ibfykForZnm6uypZD2UJEc5PEa + CaHsi/wZ9/eJLAgg6JkAMJCc/eN1yM9WD4oDd4w/kO+83fJag52z0UgtLOfZZa0WsEnZsFNLJgtHVqfF + eafatbg5KO+Pz4fIsCobmOhWsuKyi1UVE4Iqrfj73JejzCO7mCQ7ElNFIwQW56/EyUSryur8NL3FuxFA + 8K0SoKmANVNzKcASjwNCXodDsTxmghhl/uX94rNEJpD/5JhaLuj2lQpIjl5k83BsVTAcoPo9JQ8iySBO + zbJCpCnTF0HEZByZlsgh2c5YCm7pohycNxMOEfZKSgOCj8/auXbEz5iEre/2bh/vFIGqDEAQbE6513Hd + FV0cJBognHUpS6ijwvFZjmIbzfz4u+sTsNPC4UeOWWV2krjq2B0hSIlQBXiQjOyXt8Xralsmg/Q5AokC + E+fLxBaqiFQIZ+x0zrJNF/T4XEipJFs+L8H/X0qVUyf2Bt9HYKgAKKA5+0TwIfvTMyuAcGJynFVZNCfB + fjTIhwuHWJK212kfKlmZCDSb428K0JKYBsHeBaXYCBy6gOf98Tlwlj0LSCUwLhFEpjMprIGN82SsOPur + oiPceDzTfivbeT/O/t8Pznd8c9QITDcHWcoBlbAqU8kxw9Eo4OP7lK3LDP/4zogcgkBaqQKn5uAdZVYO + 2pEDpw52IfPZBr2/AGftsF8xq1SSBgtnTiYG4D3K/ni/GIeSCJQE6fujBVQ8rkEopdSnXkmM5zu82cf4 + FgJVIxDBlgKKZb1kjpCOcEBxsDLDIkvrM5EEvtfJfsrwKSNX5YBm2xZMVSmhC3pYOi826rFWuzVrVxld + AqUkISVMydqsxPg1ziHeK9SSKitVYmxnZ2OhrmJ7PsehgviWW/pL70JgGXBMBT5iY8vA5IzJsThTkIRO + DsFEERKQfnOvCF7O7uGsRAzY/7BkeIJESsdmGyp7SAanQC/OTRtmUAxlBmY1wOQg2AX2It+7Y4GIKAh1 + ZiXGSAKasQ8lowpIFYb2dSqCc/Z/Vwj/23GGZUBzJr7PHwd6pw40mNiZi1qRVcHoNY7HQTTq/qdsLQHK + l/9qk0zVCasZyN6jIA5pLPI7EQ4phRRkrCBYqej7CGx6DvXBygGBGsE3+C2GQmUBo66JWCmAA+XDePyb + Z/rbb0HgSAGkIEc2ZxXAGVI6v+WUE23PgXw0pacBWpEFqwaV7dWagE7q03lxsGuwdmSBzAdstO5H8HxI + H0VKlU5xERl05NPw386N7tWgJFEEuUp/HYP0edUHUVKH/fx+Oz93/t8Svv9+kJEC4OCHCkgBwDKWs9AR + ETSnHMnTJPGpVECAa3nCwQ4iY6kb2UyIKgVVlQ2hZgqHh7TnkqDL9hzgtK+0XSON9J4qJcroyPgYFxw/ + SIrKAJCvzpRoCYVjMxF0pcsIAxyPlUt6/e++6T28CYGqEYgsmRwOmU4zHnWpR1mTsxycjAO0el1l3OW7 + pSOPgrwqRdhRq/paMzRnQ95f4fyBFwe4bgfC5O4+Z3YJ/I44uNmq2ZeJmewYzbrweC2vOyLVep//bsom + bE4N1jc5rw/z7whg0Jcm4PJYnAXOEIFbBBI7u2YydSwuCdTJOND5dTUlmJQJlSOVqtDSQKV/ynyFjA01 + IYpAbYm6l+vl4jtdttfSA1m1UFGVymAV0l2URVIcY6GKQMk0jlGVRIS1Bjz3WLZj+XEpBKoyYHX+B8PD + eZISIGdITsiZi7NbJW2LGrNTARxQVBKU2YxLBiGrTkkU5985vyiDIDTN3irlSR0l7ERFMJGtGIIwUFez + atDPeF/YvsJYcABuih9PE8brx3d5PEryEix2DC/l/j7ZZxRAl9Ex+FQWcBCVCkDkJDvkoQoQST7a91Gm + 0wBPf2t2q+rzo4xeZX4uk0YKQkopDbLOTsIvES/eB5EU5UfZD2ikqQTJ2KDvEmoIhEOklJWI4+lyCIwa + gcvALs6Qsr/Uz6XTqsNXGVmyOxysy9bI7AMFgO07RyXSGJIRZzDNoJJlRwEQ2Kg9bDMCnbFkUlNVUSms + gmQqVRLnQwosxvCgJzCaSVHi7JQKKSV3/i8X+vsJV41AOJiSADteuSiFmlRpW3LsSsZ3mUeDmPYb8pSV + SOtfrDU51bG8bQSybFPZtO6HyYyzXlUiCNFhmi6RhO5PVICeXyJYJoZKYagaa3+PmqYgTf48bdsw7LCW + kmXByMF/4eBfTn1xtGUQ8YBzRPB/0Fx2lS1VErKTaGA0Rz5rSnUXBxVZPZxTyOFISXCQdRlTyg2oIL5W + gL+jCigahFJDjwKbv89KhRVNtT6fv1c1M1fiariX8l/IUgNf/+ZzAxYJu4v7//SnP1IAGGRWATHwyEj0 + rJIxZT9p/GmQ7mRT/1YAOzp/F86pmf4wcKr6W6S3BncXBIX9VTbMgUKqglRKUhuUybv3RXlUMxJxnqKO + QPJczhxmfCq7QCZBiET4zv43oI9KASDgODBZXqcAFmnLTpiyXyeT+3sBlpKVMlacT1EiVF3sFLgtM6bg + 5nMnJQFb+fsczLqPw0Bogcvf6V6P+iuP9yuy7MoZJiTB5jDDC7bYbyJzIZO82OgGATC7CVUjkLM/M3/K + 6pQ1u0DjbFU40LD2bEohSdeq/keGklqVHZeldJXBeVslLc56kYml1ImseuJAHYlw9i9IsbOh6mvw9wZl + lpIEY87EPioTYtyH/ZDZI+dG9nMZsPQClr9XJ3nU/xH0IpPDwVBzUqBr1uKASp+1YECQHDatJLPpfqoy + IUqBImDSNQs4dy5VBplvteWrDwQRKY6kIhgHslP7MVHqCAGu59TGh/eL74+UVZBY0WNJxEdKZJ81+CoI + 3v7PIgBHQPAnh2lE0AUxOR2XB7GdZLokK49kKmQp1aFlsLNaqEoCnB8yKCuWB7Elmc/bcMYjaf5sxq8G + uVMbnNUHwcfKgQO/a2TSvoKsBbtEsO2zClMmDz4+xvRfMPizzu8T2+8SvDhaUgDIgpwNi0CC44XTqCpg + h6+yrUh/dXJVCF0QiJII+SoBHFmtyMhJ0SDjNTte0uziEkLLmoEC2ANuv6/CUDkM9l8RRqckiIQOm4vr + OPlxOwRYATAB8IVBKWNwdhUlkLaTzMpZReUnnBLlBzJ0J19RlhQKIQKfsrhmMj2HVCYQYSz7ekngw1s4 + yKgUWOwcNep42m0571JJSGmm+Jd/VwqByx/gx3g4+G8X92FQ1Qjk+nMYJFwbMhHAKbn2liwH5+5qd9pO + nT4yFwVNeW7LPg7OAZI2nn8y8NltJFh5tkXXPsD2Uf3eZWrZd5qzp57BUT+ApT6vf3Ddf9/Y70gg9QFa + 1onasgV5kqFcEkhmSyUB19ZUUlQZSp2UVUG8lsYUn1M6P5H7OKeqXHlpxi98JtnaSIeVz2l934itKgNY + /fDno4DX7j8UV1cmRU9mgiCY2USeCcDryMDcAyB52AUdO6jKx0YUQSYkiZMzDurjtGadiaZ63c6D1QWv + 1FMn/+nAT36lTTvpX1RYdIRW9QyAd/HMpYPuX9VQKplCOcwcGZPYzgSQVEDLtAhcDuAIqirYG1GkjKvO + r8HOzUDpjof8PykrOnVCtXPc5zAR1XsHuCJALnVYJVTlUZf9qeEaxIb+BWPV8NTvMzmsZEDfeSsxvncY + fDRFYHEEVQGQlSn4OftwY4rLA67BRfonqUnNqHSsATFE8GD/3KyCEpDSIIKCSGojpV98EBFW1z10ga+z + FoPyR7M3lxR8HF4qzQG/YpXO7Rcx8qHfiwBq6yX7swLgDB4BWDSckvNx1qXmYGosSlf7meZU56wgEM50 + 8loVwV/Ial3pxMqHegOsBlJTjgmBiA8B3KkEJWH9DpUNSATv9T4f7dcROJ0J4D6ABpxIR+0gR52pmbtl + eg7+VKNqVtf6lo4bx1T1kfoBvw7zfgKjcojUj6qXqpxiUg4SLhqz+t2ShALvP4STT+V9CBw1AjcH2lbQ + JSlOtXrcrprrf2rSpXpTHZ1lbSXnq8x+VI6kHsT7MHz2SIFh0RSMfkeFSWCTbycWZMHjwZm+yPpaMvwF + dfQsft7uBxCoGoEpc7AKUCLgAJUsXJYHHLyPfbHTox+QlAMChbM+kYuqjF+v858ZHyYpaXp2AU2YptIA + Y0KlVpA0CERxKjC8BF7PYOptvo8A6r8lGNEHWN7jf2ug8T8OZJL4WnujuZTeJxWAjKgqAcdKTt/IQDMY + tr1KJtNpyoRNRaJc+3M5JWQa41OoC20M7mTxfb/xN2+CQNUIhINEgLYyoLs7DGeZ5pya+cuMzg0q1Piq + JnQbPhYpkasEfnIXsaW6mQnjxqVDvEbNT7V/Is4BniD8m7ivzfhXBEaNQM7OKVNLE06lKWRsRQSYEVgc + VT/nv8vPuH8Q0vdfrf+d77PiSepH+yCqulqwd8ro8X63AIrLJ1ZP62s/jAAhUDUC+aKgkJcyddS9zw5a + ZaDBjABKBa6BO5LAd8PZLz6EpHC6DC/qJ2V9fEZ4VNcIcGmxk8zFMfPp/wwCo0YgMvHynGpV6S53CkGc + tHNwIpII9KMSoGXCS8r9wZBFxmYsRdYzbokQGas0IyP3IEwl2s/4jvd6AwRQF2ojEE4XjsgdZpAC16Cq + EDiT0XaVhA0VoERwcbl/6B4UoCUmVQlQzcRoI5ZI5U6keYNQ+5smjK4J6BQAgvOjuG04E0I4oNT6rAyK + 1109fBe5Pxj2ZG+lmohwkwKrGqeC5zZ2fhiBJxD4zorAqP+5PNDpQa1z4dDSlNKm37LvaTIXEydnd2R/ + buYxfkq4qgKeGHdvYgQCAZQBWAuA6cH9R0PzisAUtNyQIsctO9xclxad6qmCf0Gf5u3T5cs8rcqYIfC5 + j9KIdhrSdNy+HoFKBcSCkSrbNKcbNfiYIDqpy70EynrTytZGml0zNfoftBSbCeOGzdHXe7b3+BQCrACg + AtD9j1mAJOFlZkBXqUl3+6zxN3P2qnof6bZnOlPAhPHU6HojI3CCwLAPoI2oqjalPkA5dbVkLall0UOY + NuvreFDHPzBsMyf8N4jaDm0EXorAWSNwC1S5t36VmapG4EDyz5z1dfB4lWTqBTjbv9TPvbMDBI4uDV6C + P2UmyU6a+dcMj1mAkig8FL0I2C+6QhPWKBmBtyEwvDSYmoBQAh0Z8NQeqwB+f6bpvbeNmg9kBF6FAE0x + ceOP5/zjBiBUs+rv8cX2Oj34qvP0foyAEXgdApiyww064kYdTbrj89SMWvoBOj2oV525fn3dIHlPRuDH + EKBAR+2ZLlbhbN9q/yrLV91rN/p+bNS8YyPwGgR4Hhp9gFgERNN3MRMgmT8CnyS/p/deMzbeixF4DwJo + 0LWVeVAAaXoq1f10mzBdtvqeM/ZRjIAReBkCFPisAljq6wzA+qs7XXnwsjPyjoyAEXgbAqjtu7X5bR06 + z+ljURA1+Sz53zZSPpAR+CEEYp5+u2V3mg0YLEtdFYAfRsAI3ACBNhvQNQK7+fwm/bE68Aam2wQjYASa + pEfjj68P4Dn/uEdALBwydEbACNwGAVxxxjcHiRuE8LLgxxJA1/63GXYbYgQ2BBDsCwHgwQSwqoG4OOjD + PQA7jhG4EwJ6aTCTAq4R+PxE9ncT8E5jb1uMQKiAhQhYAXRlwKoCXAbYZYzA7RCoLg3uy4At+D8fvYDb + AWCDjMDMCHAjsOoDxOXCngmY2U1s+10RGDUC4041LfO3WQArgLs6gu2aEwFtBA7vFOwSYE4HsdX3R+C0 + D9CagLFI6P6Q2EIjMA8CZwQQU4JeEjyPU9jSeRA4awRuC4IeMwAuA+ZxCls6DwJnKwJ5UdB6s1A/jIAR + uA8CzzQCsSz447Eg6D6W2xIjYARWBE77ACgBvB7AHmME7ofAGQFgBmDpBfjKwPuNvy2aHAE0AvW6gL3+ + X2t/BL/LgMn9xebfDAFVAKMFQV4ReLOBtzlGAD0AnQ70zUHsG0ZgIgRYBaAU4BJgqf9xe3D3ASZyDJs6 + BwJVGZB6AG0GwI3AOfzBVk6GgDYCQQh5KfCyDmC7Qchk8NhcI3BvBJ5pBG7TgRsJ3BsNW2cEJkMATb/R + VCCuBdjqfxPAZO5hc2dAQJcFd2VAC37fI3AGb7CN0yFQrQisFgOZAKZzDRs8AwLPrQh0H2AGX7CNEyLw + XAnQlgT7B0Mn9BCbfGsEzi4N5kbgujDIDyNgBO6FwNmS4HUWYMv+20+L+2EEjMB9EDgrA5bAxw+FeEnw + fcbdlhiBFQFWAOU1AS37kxIwckbACNwFAV0QpGsBfJPQu4y07TACBQJnjcB1DcCyEtB3Cbb/GIF7IqBl + QLo3AIK//WKw+wD39AFbNTECR41AXBC0qgDfI3BiL7Hpt0WgujQ43xxkKQG8IOi2DmDD5kbgvBHoPsDc + HmLrb43A2VqArQkIEvCKwFs7g42bE4HjMgC/FbhdGORG4Jw+YqtvjEClAvj2YHk9gG8QcmNXsGkzIsAK + gMkAJIASYL1FmK8MnNFFbPOdEagagftMADUBfY/AO7uBbZsVASYAXBPAC4JcAszqGbZ7GgRY+p/dJtyN + wGncwobOgsBzMwFtRsB9gFncwnbOgkDVCNybgI8pwPiREP9YyCw+YTsnQkD7AKkMQPCvVwVuC4Mmgsam + GoE5EDjqA/BqwHZx0Byg2EojMAsCR2UA3xcgSoNZgLGdRmAGBA4JoC0C+mw/He4fDZ3BI2zjVAgcE8D2 + O4H4wVBPBU7lGjZ2BgSqRiBfE4ClwPuMwAyo2EYjMBECYxWQrwr0rwZP5BQ2dR4EzhuB+70B/GMh8/iF + LZ0EAUj+o6sC96sDfWnwJG5hM2dB4KwRGHcIWn82zAuCZvEL2zkJAoeNwBb06TZhk+BiM43ANAioCijv + DdDWA0wDig01ArMgMOwD0A+FbGsCtn+z4GI7jcAUCJytCNxLAN8kdAqHsJFzIXA0E7Bl/HaH4KYI5kLH + 1hqBmyNw1AiM4CciuDkcNs8IzIfA0YpAVgG+S/B8vmGLJ0BAy4B9JkAuCnrMBnhF4AQOYRPnQuCsERhX + BnomYC7HsLVzIHDeCIwZAE8FzuEStnImBI4vDd7vDvz5KAG8FmAmz7Ct0yBwdl3AA4i4Qcg0oNhQIzAL + AseNQGR+rwacxR9s52QIPKcA1qXALgMm8w2bOwECh41AujmofytgAmewifMhcH5p8PJDIf65sPk8wxZP + g8CwDEDg8/M0qNhQIzAJAkeNQLoc2D2ASfzBZk6GwPFNQnGnYJcBk7mFzZ0FgeObhFIPwDMBs7iE7ZwJ + gbMVgesqwPVXgzcVMBM2ttUITIHAURmwB3/7vYApELGRRmAiBA4bgTEL4BWBE7mETZ0JAa8InGm0basR + EAQOG4Fo/j1+JMQ/GmrXMQI3ROBsRWC7HHhbC+BG4A09wCZNj4BXBE7vAgZgZgTOVgRiNsA3B5nZS2z7 + bRHwisDbDq0NMwLnCDyzInDL/tuPhpzv0VsYASNwGQSOVwS2oN8agL4w6DKj6hM1Al9AYFwG4KIg+smw + L+zXmxoBI3ABBI5XBC5TgG05sEuAC4ymT9EIfBGB42sC9uDfFgT5wqAvwuvNjcDfRuD4HoEt6EMFmAD+ + 9mj67IzAFxE4WxEYJYAbgV9E1psbgYsgoGUAVME29UcqwCXARUbUp2kEvoDA2ZWBn75J6BfQ9KZG4GII + PPVbAb5V+MVG1adrBJ5E4KgPsF4PQIuBVjXghxEwAvdB4FAB0DqA7deC9pmAvVfg2YH7eIMtmQ4BKADu + BURwt6BfGoL4ubD9s7ZEGDcQnQ45G2wEboBAVQIwKeyzAcVvBrTg9yKhGziCTZgTgUoB8Hv71YD9bwbE + DIGnCOd0Hlt9DwS4D8DrALjOx+3B0rTg3iS8BxC2wgjMiEBu6G2df/x74FH+jfdnxMs2G4FbIaCZvvp7 + CXj+57r/Vi5gY2ZHgDO+BrsGvoN/dm+x/bdEAIt+RgTgwL/lsNsoI7AjwCTgxT72DCNgBIyAETACRsAI + GAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIAR + MAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEj + YASMwE0R+D/raFAGdB5Q5gAAAABJRU5ErkJggigAAAAwAAAAYAAAAAEABAAAAAAAgAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA + /wD/AP//AAD///8AAAAAAAAAAAd2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcQcAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAh3d3AAAAAAAAAAAAAAAAAAAAAAAAAAAIh2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHh3AAAA + AAAAAAAAAAAAAAAAAAAAAAAAAId3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHgQAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHdwAAAAAAAAAAAAAAAAAAAAAAAAAAAACIdwAAAA + AAAAAAAAAAAAAAAAAAAAAAAAB3dwAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAAA + AAAAAAAACHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiHcAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAiHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAiHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI93AAAAAA + AAAAAAAAAAAAAAAAAAAAAAAIh3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIhwAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAIhwAAAAAAAAAAAAAAAAAAAAAAAAAAAACIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAABuRgAAAAAA + AAAAAAAAAAAAAAAAAAAAAACHZmgAAAAAAAAAAAAAAAAAAAAAAAAAAACIx+xwAAAAAAAAAHcAAAAAAAAA + AAAAAACIfk7mAAAAAAAAAGbnAAAAAAAAAAAAAACIbGfOaAAAAAAADnxs6AAAAAAAAAAAAACG5+bnzmgA + AAAAB+bnbOAAAAAAAAAAAAiHxs5+fOZgAAAA7Ixubn4AAAAAAAAAAAiGbnzn5+zn4AAAaO7H58eAAAAA + AAAAAAh4xuaMjIbOxoAI7H5+yO7AAAAAAAAAAAh2585+fufnbmbsbmzmjnfmAAAAAAAAAIh8bmjI587O + x+x27H5sd+zn4AAAAAAAAIh+bOfnzobn7G5sfmR27IZscAAAAAAAAIhsfsjOhuyM5ufmZsbn5uzuYAAA + AAAAB+duZ+fo535uZ8bH5ncAAAdn5wAAAAAAB4xnzsjsjOzs7m5mxmAAAACMbAAAAAAAB4Zm5+d+bn52 + fHznZwAAAAAA5oAAAAAACIeMbs53fsbs7mZ8ZwAAAAAADnAAAAAACIeAhozn7OfmfOZmcAAAAAAAAIAA + AAAAAIcAAG5shux+xnxmAAAAAAAAAAAAAAAAAAAAAAjm7H5s5uZ4AAAAAAAAAAAAAAAAAAAAAAAIbmzn + Z8ZwAAAAAAAAAAAAAAAAAAAAAAAADOduxmYAAAAAAAAAAAAAAAAAAAAAAAAAAAjG52AAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4/////AAD//h////8AAP/+B////wAA//w/////AAD//D// + //8AAP/8P////wAA//x/////AAD//H////8AAP/8f////wAA//h/////AAD/+H////8AAP/4/////wAA + //j/////AAD/+P////8AAP/w/////wAA//H/////AAD/8f////8AAP/x/////wAA//H/////AAD/4f// + //8AAP/h/////wAA/+P/////AAD/4/////8AAP/D/////wAA/8P/////AAD/wP////8AAP/Af/8//wAA + /8A//w//AAD/wA/+A/8AAP/AA/4B/wAA/4AB/AD/AAD/gAB8AH8AAP+AABgAfwAA/4AAAAA/AAD/AAAA + AB8AAP8AAAAAHwAA/wAAAAAfAAD+AAAAPg8AAP4AAAB/DwAA/gAAAP/HAAD+AAAA/+cAAP4QAAH/9wAA + /zwAA///AAD//gAD//8AAP//gAf//wAA///gD///AAD///gf//8AAP///////wAAKAAAACAAAABAAAAA + AQAEAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAA + wMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAHcAAAAAAAAAAAAAAAAAAAhwdwAAAAAA + AAAAAAAAAAAIdwAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAhwAAAAAAAAAAAAAAAAAAAHcAAA + AAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAIdwAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAA + hwAAAAAAAAAAAAAAAAAAAIcAAAAAAAAAAAAAAAAAAAiHAAAAAAAAAAAAAAAAAAAIhwAAAAAAAAAAAAAA + AAAACHcAAAAAAAAAAAAAAAAAAAiAAAAAAAAAAAAAAAAAAAAIcAAAAAAAAAAAAAAAAAAAfkcAAAAAAAAA + AAAAAAAAAIhmgAAAAAAAAAAAAAAAAACIzs4AAAAABmcAAAAAAAAAh+ZuaAAAAI7OaAAAAAAAAIbOyM5o + AABufO6AAAAAAAiH5+fnzmAI7OaM4AAAAAAIjGznzufObGfs6M4AAAAACI5ujobObn7OVo5nAAAAAAh8 + fsfn5+xmdmjs7OAAAAB+ZuyOzs7H7GcAAIZwAAAAiHxo5+fn5sdgAAAA6AAAAIhw7OyM7G5mgAAAAAgA + AAAHAAhubm7HxwAAAAAAAAAAAAAAB87HZmAAAAAAAAAAAAAAAACH5scAAAAAAAAAAAAAAAAAAAjgAAAA + AAAAAP/P////g////4////+P////n////5////8f////H////x////8/////P////j////4////+P/// + /n////5////8P////B////wP+P/8A/A//ADwH/gAYB/4AAAP+AAAD/gAAAfwAAPH8AAH8/EAB/v7gA// + /+Af///wP////n//KAAAABgAAAAwAAAAAQAEAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAA + AIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAH + eAAAAAAAAAAAAAAIdwAAAAAAAAAAAACHcAAAAAAAAAAAAACHcAAAAAAAAAAAAAB3AAAAAAAAAAAAAACH + AAAAAAAAAAAAAAB3AAAAAAAAAAAAAAiHAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAhwAAAAAAAAAAAAAAhw + AAAAAAAAAAAAAAhwAAAAAAAAAAAAAHZoAAAAAAAAAAAAAIjGAAAAAHAAAAAAAIjm5wAADmaAAAAAAIbO + fsgAB+zoAAAAAIfsjObobsfsgAAACIxujn7Gx25+YAAACG587Ozn5nCG6AAACGzofn5sZwAAjAAACHfs + 58bnYAAACAAACIAIbux8gAAAAAAAAAAAjH5mAAAAAAAAAAAAAAhwAAAAAAD+P/8A/j//APx//wD8f/8A + /P//APz//wD8//8A+P//APj//wD5//8A+f//APn//wDw//8A8P9/APA+HwDwDg8A8AAHAOAABwDgAEMA + 4ADzAOAB+wDmAf8A/wP/AP/n/wAoAAAAEAAAACAAAAABAAQAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA + ////AAAAhwAAAAAAAACIAAAAAAAAAIgAAAAAAAAIcAAAAAAAAAiAAAAAAAAACIAAAAAAAAAIgAAAAAAA + AAiAAAAAAAAAh2AAAGgAAACI54AIZoAAAIaM5n7OyAAAjs5+xnfmAACGjsZnAAeACI5+bncAAAAIcHx8 + cAAAAAAAAI4AAAAA8/8AAPP/AADz/wAA5/8AAOf/AADn/wAA5/8AAOf/AADHzwAAwYcAAMADAADAAwAA + wDkAAIA/AACQfwAA/P8AAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAAAFzUkdCAK7O + HOkAAAAEZ0FNQQAAsY8L/GEFAAAAIGNIUk0AAHomAACAhAAA+gAAAIDoAAB1MAAA6mAAADqYAAAXcJy6 + UTwAAC1mSURBVHhe7V1rsB1Vlfa3v/2T8sdUjYwWNTVO6TA4Vs38sigQR0QjGCUEAgyG8BgIEjBABBJe + BhMgkMSICISXJGggYELEVAKxYFQMQglRfKAlGJTyMUqNlj96+tu3v2bddffu7nNOnz7n3Pulquvce3NO + 7z7f3mvttb712G95i/4JASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISA + EBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgB + ISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBAC + QkAItITAWTtezI65/WD2Lxuezf5+7b5s3vV7snk3PPnmdfXubN6Vj0xdK7dnh1+5LZu/YX/W0vC6jRAQ + Al0isPLhX2UfvuNHbwq4FXgIO4UfP697OpuHV165Aph36dap64IvZ/Mu2pJdtPXbUgZdTqDGEgK9InDO + Ay9nR6zdP31nt4KOnyn8FHb+zf4dCoBKAAoA19IN4bXXZ9L7hYAQGCICpdBjF7cmfWyH9yY/d/6UErBW + AJVArgiOXvewFMEQ51S3FgK1CPz75h9O+fIxofd/8yZ/lVVAZRCzAqgETluTHXn53VICtbOkNwiBFhFY + vu2X9SZ+nfDHdn37Nwq+5QFiloCUQIszq1sJgQoEQOglfXvr11P4PcNvd3z6/mD7SfLBv88Fetp18ups + Hq8TLs7m4cLvfF/xGU2cEBACQ0Lggi3PZ/Nu/l4zMz/lCliB98Qed3b8vQj/lew/lQNJQAo+lQFf878P + 6evrtkJgbiKw+vEX+hd87v6xkB6E2kcBXPy/ZP+pAKyVgF2f1gKsgVwJvOWfP559eKX4gLm5UvWtW0UA + Pj4SdRoRe1U7Pnd6vDLOb6MEdUrA+vzWErAKwCuCVpHQzYTAHENgYMFnFh9eIewbn5t6tZcPA9rkH3wO + v1v237sBJhTo+YIlN++WKzDH1qy+bgsIID03CGmTcF6M4afgU+gh+LzAH6QUgI39W54gxgXErABaAMYS + aAEO3UIIzA0EkJtf7tIU7KaKgH47/H0r8LGfU1ZALBOQFgBfm7gCNnqQK4O5MXv6lkKgTwRA8AVz3wtm + E+GnmQ4BrRP8lBXgx6lyA3xNQIoPMEpAhGCfC0Mfm/0I/NtdEb+cigBWgBVOL6gQRrynqeDb91VZATFX + IJUMxJCgrQ+I5BDM/pnUNxQCPSBw7f6Xs8Py1N0Q04cwet88pQToj+O1H8FvYgWkqgGtG2DzB2AFFIVB + 4dVGBowl0AM8eqsQmL0IhJJcCHxK6FO7M839XIiD8jAKwP/eSDnEXI5YONDmD3guwOYG1CiBD16uysHZ + u6r1zWoRAMlX7vp2569SBDTHIfz5+47Y/EK4R18C7y2GKs4hpQiqXIG8R0BZJpywAs794kMiBWtXit4w + 6xAIvj4E0At+nfBD4PL3/MdtB7P3FRcVwFCUQKp8uKkV4LkA8QGzbi3rC/WIQBBUxuRp+lMZxBQAhLAg + +CD49oISGLoCqHIDbGKQrw5MEYJOCbzn3BtlBfS4hvT2CUTgpId//OaubwXe/uwVQCF8MPUh+EgK8gog + pQT6tgiqsgNTEYFYhiBcgIYJQp+8+h4pgQlc07Pqkb+w7sbs3PPOz85cclZ2xplLsuWXrGhtUYa4PgWd + Kbhe8C0RSEHLhTEm+FQCQ3EDfIqwTw/uJUOw6BcYuIBUmnARGZhVi6mPL4NIUB8f00cGQQBCD0HH69qb + 1mfXXP/58DuUwOmnn5EtXLR4oEkps/lSwh/b/YtdH7s9LyoBbwGQC2jVDYgpgKaFQrE0YZKBVUogrxyc + y67Au9flGZt51uZ1T/xkoPU2iCzMuc+uvva67N77H8h+9vOXs1cPvZZ9Y9dj2a2bNgcFcMbSC7JFpy4O + 11FHHdXXpASiD7u6FX4y754DwPuQtltk8EHQER60SiAm/DEyEOP1bf6nkoNiNQY2Q9CWDFslQDcArzFF + gN3f1ArMxSzBD9713am5z6/lDz3T11qbc8I76BfeunVrhuvAD57L/vKX/wvXU089na279UvZZSuvCK4A + 3ABYAP0ogDK854Xfkn42ClAI00fv/HEQ/KbCXxcNGEgR1BUJNXUFKPxWAaQShHJLYNW9c6dqMFiIEP6i + 5dqg61qfb4jA7XfcGXb/PXv3Zb/74x+zN/76t+yFgz/Kbrv9jmzllVeVCgAWwEeOP74xH4DWXNOSbqwF + wJ+tFWB2fSv8MSXgIwCeBwAfENv9h6IEqiIDtAAYFYDg42cqAiv8sfyAXAk0nMaJfht6O4TUbTZoyV8n + +gtN0sM/uP2hYO7v3rUzCD8sACiCu++7P4NrENyA3AKgAvjUSQtrJ2dabD/G8nseAEKUTzoEv074LRcQ + CwV6MtBn/vWtBHqNCNieA7bpiLUCYglCNjQ4R/iA8rCVYvcHDzBJMjTxz7ppw63BAjj0m/8NCgCKYMeO + HYEQpAIAEXjCJxZkxx77ocrJedf6p2aG+Kw/bXd/w/BT+JsoARsNqAsHNkr9bVo7QAIwViUYcwNiLcQ8 + F8A04YoGIks3PDhrBWLG0Wv5RrB424FZ+33HUlls2bIlEH+HXn215AGgEMADXLjiqmzp0rODBQAlkOIB + MGnBjIsl9Ngdn/9vfP064e+HC0hFA/q2AKpCgrFOwjEykJbAJXdP5QXgtc4KyMnBd316djYTDWslcu4i + ysDHUlBm60PBDcCFKACJQJCCJAIRCVhwylnhilkAH/hyXrXHiaSA253e+v+FmQezD4IdE/46NwD/n+IB + 6sjAgS0CTwjSGvCRAODBIiXLBUAJQPDtFUsTnuWuQNj5WV3p8itmq5yN9fdiJIA8wL7vvhQUwDkr1mYn + L70s+/iic8P1sfnzs82bNpYa+h+v3zm10IvwTaUFUJjJSAbiru4VQMoFiEUDmvABrYUCLWFpS5JjYUFi + QR4glSZMJZAiBW0HoZwPmA1ZgqGLcwV+UAxjLSiz9eFA+iH8BwWACwrg6pvvKRXAR0/5THbsgrODAkCS + EHAozdiYAvAWQMGWQ/htTL+pAmiSB9A0K3AgNyDlCthogFUA1hKIVQzSDYASqOsdMOGhQZzNOMPkdwoU + uQCzVcbG+nshHGhDgU8880pQAGd8dlP2iaVXZ1AAVALYiUI6K31Z7nScTMsD2NN4cuGBAgBTzwSfXhQA + 3usVQV1SEC2AgYU+lRjkCUEKPwW/FwXgTheONhCZ0NBgyRHVNHSV/z8iNQEFYIlAKIAVNz2SnXLxF4MC + OGbxVdmR85dn/3Dexjc729CEpa/reQAr/IVFAAVgrYAYD1DHAVSZ/rGcAN8nYGBlkOoXQOHH//NncgNU + kld8/c3jxNlIFK8+Q9DnCBh34H3LbpmoXTJk+Nm1EHObir+NaPlrWEQCQAS+dPDFQATuP/hGtuy6B7Lj + zr4xe+f8z04JvT0DD79TAWBR0w1gvz4ufLb1KqwCCB9O66UQ96IArAVAIpAWQF04cGChr2sawu9tLQAm + N9kGpTxnkK9UAjYi0KB3wKQ0EEme4UCXyeCGMx0liSNC4Kwrvxh2eeSgn7LmkezY1UXGms9QiykBLGLL + A1D4raYvLAAIoncDvBLg7yQKbRiQSsCTgrGoQF1S0EARgZgVwFTWmBIAJlCUNjxoLYC6qIA/kHTMzxks + yT4r6FwPVIhOacr/H4Hwn3bbrnCaLg7XXLXjlWz799/INj55KFv81bxmH5OHhYkdiQvQKwAmtthdjpOe + CA1CCVhfvhcrwFcG4rMQfr4OvUdAFRcQUwBVhUJUnFQEwJJ4N7ACxrVqsPIAFzZtxatJBIPLNILlryED + m59PBCYNOdnXPHooXKFBp1UA3gXAibdkrXmQJhe73QE9MZhbAoPwALQAbC6AF358F+7+dVbAQK5BnRVQ + lyAEi8BaAeQCrBKo4ALgko1TaBAlvCG+HyP6aPlAgTrBD2FBKYDRKSNMCAQFYRoI//U7D4WfA5HFxWgP + uLRWAHcxK/xFbv+MhWDcAMsDpCIC1gXAe2JRgCYJQa23C2tqBXChkwvwhCCJQU8G0h1oYAVACYxu5bw5 + ctgwfFafVYD4jsSNu78hS5X/P8JZ5CEaVgGUFVqsXkspAG/iUvi9FeAyBCGUVAI+KagJB2CVQa9KoLXk + oFQLc7oCVgCsErAZgjFS0CsAWycwZmcLhDJe4JAK7/HUZQo/3ssMQLNG0CZuhCIwt4cOE5JPDPx+lPHC + AgjlvNDQmEAuOuz84AKsBcAJtoog5gK4OgFLBPZqAXhLoJfiIGvyD2T+2wXtXQHLBeB7WzyaWAF1hKBL + E8Z8dB0axPoIDH9q18f3pmtoa0FswpRJo57bEjjib/+BWx4v2enj1+7NjlvzzezUjU9lR16bp/naWnZv + BeD3KguAiz+SIBQjAlO1Afy7dQNiSqCuTwAFvpXDQ6wC8A1MUwoghpV1A2w34TorwHYQKpTyhbcN/2wB + bA4gjStPaMb3hPBj3r27RAuR5n/+Hu3+I1YAgQgsrABMxjQrAIvbWAGoTDvs0nun/hZb0J4LsKahyQmA + EDIjkBZAlQKIcQBUAlV9Am1xUKuHh3gF4N0BvzPWWQEkBKuUQBUhOOSGorAOQ6l3VSYf5p7pzrESa2v6 + GwUwBstfj4AebB+/+zvZ/A37s4vu25stuXl3dsMDB8LriZ/5Urbgv28KGYHHnZo3CMnTgxsLPxc+Y76m + MrBXN4Cxf58Q5DMDe0kKSlkFjXMELLdR1TTEZgZWkYKx3AB7rkDFGYNwz9oODYKniTL7Pr5P4fe7vlUE + NlfEKBJJ3xghwIxAlAb/+U9/ypgSjEQhKAEoACQMVSoAmnmxaICpE/CFQdzlmQrsU4LrrIBYLkDTAqHG + Au93NqsArCtAhWd3zJgSsJ2DUtmBqR6CCWUwSAMRkL8o767d7S3B6Ym+GEYsA3eW0REbnxb5N0byHx5l + 29e3Z88/eyBUBT7349ezu77104wK4PjTLg9KoJECqMkHiLkBVvitAmDRUJNwYMoCYE5A6wVCMSsgxoz7 + +oAYIQgLwLoBVvht7YXtKxBpM95kTaH/PiI/wBY7PYjgsNv7AqequD6+Q11HJTL/EW6kyXPqPR0jwNJg + WABoE3bP3p9n51x1V7Zo2Y2lG9BIAcQsAPIARcvuuvLgWDpwnRKIVQjGDg7x5n/fUYGUG5ASHOYHWA6F + loAlXZlj4d9PP9t3FXLhQsTW8Z3Qo5FciOVByu/r+YuY9dLLju8Vgs2HMJho9+9YsJsOZ0uDoQC+/j+v + hcIgqwBCrUAVCZjKB7DFQUV5MAQWO5CN/9sy4VRCUCoxqK5EuMrv70sJVPEAqXJh6yYxS47+v8fOZxSy + +Mq2GEvxBNh1C2Wb3Klj+QxWCfD5inMZa3d8rwDwuUi4UCcANZXIjt9nS4NhBbAykKXBcAFCT4BeFIDd + DSuIQMsDpMqCq/oCpITfRgNsZiAXc1+C75ud+nBgKkHGugI2EcgSa3yPVSDeYrAKIHUEOf6Oe1AJ2PZs + qVAm5wr3Z9JScY+ehT+x+yOa0PGy1nBNEcA5AWWPwDf+PI0IRCQAPEAjIjC1k5kd05cH1zUItbUAqeYg + VAKwHCDsqQKh1M7YlzKwgkUrh8lP3hXgjmqr4vge7pSeP7HKAT/DCmBvATZmiR05BqLQJGEFHz+Vwchd + n9GMXEEMHDql1eAwUOVfU2kc0fugAFJEICyAxkSgVQIRK4DlwVaYEYrs1QXw/QHqkoK8FeCbhtSazX73 + Z6swCpcVfmsJcBeviqfj/yxhlrICGHqj65CqHciVALgWpl7jlRfdL/6fP4C1rpgqZhGUClS7/4ikt4Vh + YQWgRyBcgJ/84vcziMD/XJRXA9a5AA0sACwguxgHSQuuSgluGg7sO0uQFoDlOLij2ri/Ffwqtt1aAL62 + gIJluwvZjkKx8GCuJKAkkdATa8PmW6/HDl2JKclKlyBGAuffBWHGFpaobjFMBIZKBBqTFOZoLBzYKxfg + swJ7sQD6MvljFgBz3skFUFDrdvvY/3sOwFoEVqHYkGFde/H8uSj8MUVgU67pRtGFgitAd6ARD2CF37k1 + w1y3undLCKSIQDYJBQ9QSwRyofaYD+CFn4vWVg36UKCvDuQC7jUk2JPpn0oK8v58k7i6VwLeBfAWgQ0X + xghAHxVAqnD+txS2JFw9r2IVaWM+wMb93fdS3n9LAjrs25RE4Mu/mJYRiEjAyRes6y0jkIqAvi0XRWE2 + +zZhsUXaaz6ATw+u6xQ0sBWQ6nVvhZ8/N1EIXuCJIZuGUMBtohCTiPzhIzY/IP8/bwVYa8C7Al6BRvMI + vCKMmf7F3A973er+LSLQWkZgjAtwKbRVacHeAvA1AfZ3T2JV9QrEYm4lK9Artn6F3u6WtADYR9Ay/Txl + mFEEi6XPtuOpRGzsgs/m48R4AItzVbUlCVTrCtQSf/lzafdvUTi7uBWsgGef+V44LdgTgY1TglNEoOUB + ihi1rQ7sxQqwrkFdZWCMDGyqBGZYCRR0m+QSE34Kdi8WAKsD2SeQvRcxlq8/sASktURI0jJzkIeP5JYC + iFe788esACrWmBJNugO+SKj47jrxpwuJbXkMSwRCCQyUEZgKBxbmI4pPvAKIdQv2WYH2dy/8dRmBsVZh + jVwBFrakBNsLelPBh3AzMQhmO0x6KIKU0JvCqmlKIaUE6D4UYcEmVgAbrvpCq1gyVRkVivAZ2v1bFs4u + bmeJwD/8/nf9ZwQ2DAdWtQmLuQEpXqCJFWCbhjK85cNcM5QB4/nc8atM/ZQSiDH+wMd2BmbqbGynb/q3 + mBKgcikauVgFkAoPMr8i5UqVmGE89vpz3xHuXRfrVWO0jAAODA0ZgTkRiMrAXd/5dTgtCJWB7A3QKCMw + RQJG3ACSd1a4UxWCqRoBu1tVJQilqgOjVoAntpoIP/MAUmFA3JPxe6bdNhHwuuo7hiPxjFRWtt4AY+a/ + UwGwIrDKIiCOxBbzBPzIo4QKxsT3VM5/y4LZ5e08Ebj50R+GykD0BgAPgPMCGycExdwAY8bG2oV7N4Dc + QJOoQFWz0FinoGh828fyq3b2prs+fXK2VHN5EVEfn35+E+H3bbgomFQCTgGkFEGsOWsM0zD/CeFHJWKX + 61VjtYwAicBYRmArRCAXf0EE2nTVJkSgD1vZeDYXq80JsLUBtACgeKwbEBRBLInHmtW9+vkFG492ajjW + 6/Kt+6Zq79va8Z1imFbqa60VugEVkQDvDsR4FmIbcPKVfoxE5N+t5eWo23WNAHiAJ5/Yl/329ddDNKB1 + ItAKQL6ILQ8QSwsmMx2LV6eKg1KWAASflkDpy1Lw/aL2sfsYsReL7zMMl++6EHo7f0iJtYU6M5RBr7t9 + quzXZiYWCgDf3btWdVmC3uUKz4vd33/vIocBLcO7Xq8ar2UESAS+eui1kBDE0mDLA8zICPTHhDEc5ZNb + bEKQSQqygpyKBHCxxoTeJgE1yQiE0gmL2VfnxXZ5n/CTSuopCnX+ddVXw46fmpakAmgg/FRa/hQk/E6r + pnRr+JzFc1l2P+b7wwqoisKEluC4V6LkWfn+LQviqG5niUCcGkwiECnB5AF6IgJjPAAWZ2EJNDk2zOas + 15UHxzICbZ57EJCqCr2qnT614+eMPgR/1b27a3fAxdsOTO2gNqRXIfysm/BlzqninfD9bIVioeQs2Zoi + /6gEvCLAWGW1Ip/dcgAy/UclrsMZl0QgLAD0CAQR2HOPwB4SgpgVaE8OsuaqXZC2JsBnr1XlAZSL2J9U + axdyUzMfnzE+fq+zUHIBEcHnLg+23e70MX7DKruwQ8fIwJyAxD3rFAB5ALx6TiBYLVZp2WhHLvxi/Xtd + AWP+fk8EokkoewT2TATGFIHbAevKg1MKwBcIxcx//C0sXqbYxkJ1VSE+z3YXMfwjL797ho/fdFoDF5Cw + ALjjW4G3bo+3gIBNaPDJnd+GBI35b3MlUgVCsdyAac9p+ZvCNVLCT9NZn6D3+dJgHCHeV4/AHqwALEpv + AdAKsKm/dtf3FoDPAQhCweabPovPK4KUb8/PFWRaU1O/brpnnKJTdOOxpn6M7/CYUHkGQaUFYP3//Plj + 9/RmfswtCFYF7+ujF/kYCvnVzfKE/n8qI5ClweAAakuDLRFYkw8QSwv2CzKmBKgAGCmwAhP8fJup5smr + prt+sYsinHfN9v21Pn7TKUeLLF9cYwU1JaA+H4LtvadFFKi0QMIWSoFugLUsPKYW8xkuhVMEuF/T76r3 + TRgCIAIf3bkr84eFQAGcvPSy3noEpmoCIvkA9gjxumiAD1ExhBjMfZ5IQyGn8FslEPP3rblvBP/iu+vJ + vX6mOHABRkCpAHxWpBXMaGiOuzNdK7wi1dhYBeQWmrgCpVJJ9T/I/77xyUNSAP1M+qR8hkQgIgHfP/jb + QAQOlBHoE0gcD8Bjw2JugCcE/S6I30MijCX4KOxeCdSZ/kWBzuFXbstO3/zoUBd5sAJMONRbAFVhuRk7 + v2fnkX0YSRYisciwoK25wM9J4Tf3WrXjlaHiMikyMqufE0TggR88l6EoCKXBlghEXUDjHoG0AGrcAMtU + xxjrWJoqFUEIUcXMfSsUVhHEQllk9vOd87TbdnW2wO0unbIAYmZ/KajMU7DWTUU/f6sAfB1GOB6sJh9B + yT6zWuzf/HLMCEQ2oD8sBJEAXI0PC0m5AYYJJw9gS4RTpi8tgmnmvt3xvclv/y8Ry4ePf8zVWzsTfCKN + A1opdAz9YXf2ZJ/NhCyF39YUWMuGR3VH6gl8XgH5k2kkYkIJIEowR5a/vmZVj0AeGtoTEViTFRhrF25N + YLsLhkw+m8zD1Ff7aoWDu6QX/iKkNwrBtyvM7rzWDfBKgJGSIKzWirG7f6xrUMIVgKIJrlODpCQJ/xzT + CeAAQAS+dPDFzGcE9kUEVmUEFgvU8wA+Xg0lMK1oxws+hd6/esGHMsrNZPj5Pl9/FNNsuQBrBcSIzmAt + WLLPWjfY+VmpZ12DyI5elvX65iOR90r4R7EqRjzm7l07Q2+AFw7+KNQEMCPQEoGNDguxHACJQFt4Y+LL + VACx2oAyF5356D4ubdNf/Q5p4+LYIfNCnYvu2ztW5myMC2DIDoogWD0QTgosBZymf2HNTKvUq1ICNi/C + YmkUAKwDWCEjXooaflQI1GUENu4N4IlAn13nmHCvAEpz30YOfFaaFXr+bCMPueAftnpHhgy+UeFZNa7l + Anw2IIQ/ZA+mdn78vaj5D1jZDkYu2jKtks8So8TMKABl+Y3jSunwmaqIQPAAiAQ0IgJj1YGRykDscCzZ + DSm8WJRk97FYbaFLzALw7L5prT1qP7/JtFkuwLoCYfe3gmw5Dcb8af7TBfBtzGLkp82FcFaAhL/JjM3y + 92zetDH7xq7HMl8ajGPDwQM0PjWYCiCVGmxIKFYHlru+JahSFoBdvKzv7yCRp+3pt1YAlB2UQJmOyx3a + hzPxPbH7M+U5VumY6nVgFYBJzJLP3/bMTuj9yozAvEfgX/JTg/suDa6yAGylGXZ4xuPNgiz94zorgAqm + aLF94q2PjKW5X7UceLT3tOIeYuFj/hBs9P/HxR6Dsd4M1uWyQm+tgsINU5x/QoV1GI+9Z+++QATi1GAQ + gc+88JsZpcGNeQCa4zYc6N0Amvs2fs2fKfwxK8AW7OSCMK5+fpM58lzAjHCfFVq2/WaHYasEYkeR21wB + J/zgHS5+TB19mszRnHpPHRHYOBLA/PyYAqByoHB7X5+hLxJUlvE3fj7CesPK2+9y0md0DfI7P74/dn00 + GWWXYSoBcgHe7E8Jf35vFfZ0ObsTNlbVqcEgAmEBNCYCY1YAFUNs17flrfZnCATN/aJMt8v03WFPIczw + sgmHJ/zoInnhx+5vIwAxBWBDf4VboZLeYc/mhN8fRODje/YORgQyV9/u/lbwKfw+ddVnqFEYCoIPxNc7 + L/zSxPn5TZZEMP1j/jow9Lt+ytz34Vb7e46t/P0mMzHH30MiMGQEGiIQpwY37hFIYWeNPhWBF/yq3yEM + /BzaXOW5+7PB3E8tryPW7p9SAPaCANtDP3l+IHd/hgAZCUkoADXwnONC3cvXJxGIjEAoABKBjTMCrfAz + GhDLPEsJv931i2y3SWT3e8Gc7y0P32C6L/x7mP72qHD6/rQCqCSt8Bd/e/e6Pdnyh56ZlRZTP/jqMw0R + ABH41FNPh0iALw1mZWD0tKDYzu8z06yZ710A+vrstZ/vfm125Wn49Uf2tmAFUPiBAYSfF5SAdQW8FWA5 + gFxxIrowsi+igScbARCBUACp0mBEApJEoI1LY1H6MJ5l9i37zwVc7HAL139tTi7g0u2BsJ+2ZroCoBLw + VgAtrRz7uWItTbaEjfnTgwiEK4BDQ/2pwcmMQDL+MQUQC/d54S/M/bZ78Y051DMe7wO3PD7Ffdjd3/4c + CQMiHHr0uofnpMKctPmdiOctDwv5+cvRjEBYANMOC2FaKrPU2JK7zgIgeZXvaBD8ubrr+0Vx2HW7psx9 + CL63AvD3ghhEx+JxKG+eiEWth2yOAHZ/9AfwRKA9LahsEeaFH4vTFqrElACr9syu3+SUnebfYLLfedHW + b08pAGBJRZArAyhJhEEnodBpsmdAT/+WVI/AaaFA+KTcpfAzLQAoAFgBFH7LA5jQHhb3JKfxDnOZINEJ + 2ELg0ax0NodAh4mj7t0nAlu2bAmnBoMD4KnBJ34m333yMwLec+6NU6YprpNXT73GFAAz1RjaY4JQEd66 + 8Lb0oZp9PrY+JgSEQBsIQNA/vPLucAXGn6moJKQo/FAAJ1xcrQCs4Oe7/rs+vUaEVRuTpHsIgbYRAKOM + ePT8DfuzGx57LVzXPHpoKpyH2LMlpyD8vJiwYolAuAG8il3/g5d/WcLf9qTpfkKgLQSQPYbadDSJWPnw + r7Lrdx7KcDBEqFeHAmBVGgTeKgDvBpAMLBhruA0i+tqaJd1HCAwJgVCfnmejoTnk8m2/LC2AsjV3UwXA + 9NVcUaCd+JAeV7cVAkKgbQSQk47OtFAAMP9hBUAhhPRfFqd4CwA8AN2A4lW+ftszo/sJgQ4QgAJAi+pz + Hni5VAD4uVQAJAKtC4CfTcba+5bdol2/g7nSEEKgdQRCw0m02rp2Z3b82r3ZcWu+GUjBoABA5lW4Adj1 + l254UMLf+qzohkKgQwQq3QCWqTIJqLAEZPJ3OEEaSggME4GkG4A0XpOe+nfHnB+iAf907JIMRUTDfCbd + WwgIgY4QCAUpuRsA83/Jzbuz8zftyW544EB2+R37M3QHOmfF2nBWQOgRuODs7CPHH58tXXq2FEBH86Nh + hEAnCLA0GIeF4NDQ/QffyG6985Hs4lXrsyXLrsgW/tcF2aJTF2cnLvhkdvTRx0gBdDIrGkQIdIRAWRqM + w0JyBYC6gK/tfDK7+gsbswsuvS4748wlQQF86qSF2VFHHSUF0NG8aBgh0AkC03oE5goAgx74wXPZrZs2 + Z5etvCI797zzs9NPPyMogKOPkQXQyaRoECHQJQIsDX7jr38LVgA6BaFa8KpVq7JlF14YFEBwAXIFsPLK + q2QFdDk5GksIDBsBe1gIFACahaJhyDXXfz5bfsmK4AJACYAIhCUw7OfR/YWAEOgQARKBh159NVgAuHCK + 8BfW3RgUwJlLzgqCDytAPECHE6OhhEAXCJSnBqNHYKEA0DUYPMCFK64KCmDhoqlIgBRAFzOiMYRAhwh4 + IhBKAP0CLRFIBSAisMOJ0VBCoCsEPBEIdwDcwOprr8vOO39ZtuCUs0oiEORgV8+lcYSAEOgAAXtYCPMB + oBRABCISgHwAuAAgAkEIdvBIGkIICIGuEIAC2L1rZzg12BKBa29aXxKBVAByA7qaFY0jBDpCoCQCi4xA + KAEQgVYBYOc/4RMLRAR2NCcaRgh0hgCJQGQB0gIgEYjkH0QCYAEoEtDZlGggIdAtAjMyAvOwIFwDKIAz + ll4QfH9YAHABRAR2OzcaTQgMHQEIOw4LQUFQjAikAgARiOzAoT+QBhACQqA7BKAAkAH4yq8PBQWAlOAH + tz8UMgJ9JEBEYHfzopGEQCcI3H3f/dmjO3eFYiAWBoEb8JEAEYGdTIcGEQLdIoDdHtfzzx4ICgAWAEhB + KACUBosI7HY+NJoQ6BwBEIHPPvO9wANACbx08MVABFIBoCiIRCBcg84fUAMKASEwPASYEciEILgDUApg + /dEcBOQfFYCIwOHNg+4sBEaCgM0IhAvw29dfD24BU4LZFwCRAFUGjmSKNKgQGB4C7BEI05+RAKQIo0cg + IgFsECoicHhzoDsLgZEhQCIQ5B8sAFzgBBgJQFEQhF8WwMimSAMLgeEiYIlAuACICsA1uPSyy8pIAC0A + EYHDnQvdXQh0jgB7BIII/MPvfxfyAu684yshJZjtwWABIBlIh4V0Pj0aUAgMFwESgRB8KAA0B0GTUBsJ + gAKgEhju0+juQkAIdIoAMgLBBaAaEAoAbgCIQHQHIhEoHqDTKdFgQqA7BJAOjGgAiEAIPy4UCbEmAJEA + WgAKBXY3LxpJCHSGAKwACD0VACIBaBLKcwJsdyARgZ1NiwYSAt0gQCIQPACUAPICcH6AjQSQAwAx2M1T + aRQhIAQ6QQAKADwAFMBvDv06vN5/7z2BCPSRAJUGdzIlGkQIdIcAXAAw/8gBgAUABQCFQAVAHgDCLx6g + u3nRSEKgEwTA+jMhCPkAUAD79nwrEIEsChIR2MlUaBAhMBoEYAWgIQjdAHQJtpEAVgUeffQx2aYNt4oH + GM00aVQhMBwEQPrBEoACwAV3AILOSECZDJQrABGBw5kD3VUIjAwBEoEQfCgARAK2bNkSIgHgANAcBErg + 2GM/FK6RPagGFgJCoH0EwAGQB/jFz34aFAAShK743OfKSABIQAi/iMD28dcdhcBIEYD5z4QgWABQAvgb + IgEoAlJG4EinR4MLgeEjAJM/8AD5ISGwAEAKggiEz29DgSIChz8XGkEIdI4A0n/ZKRgKgM1BWBQkIrDz + KdGAQqA7BEAEsjCICgDRAdseDDwAr+6eTCMJASEwdAQg/HADUBgEBfD888+HlGAbCSgVQB4OHPoDaQAh + IAS6QwD+P6wAZAFSAWx/cFsZCTjlxPnl7g8eoLsn00hCQAh0goDlAWABMBIwrSgoF34RgZ1MhwYRAt0i + gOw/Hh2OpCA2B7GhwOAG5EpAPQK7nRuNJgSGjgBIP3ABEHwogO8+/VRICSYR+LH5uRtQWACICgz9gTSA + EBAC3SEA4YcSgAJAGBDXnbffHhQATgqyCkAZgd3Ni0YSAp0hYHkAKAAoBdsdCOnAtAI6eygNJASEQDcI + wOSH0NMCQHIQagLg85f9AQs3ANZBN0+lUYSAEOgEAaT/Ih/g6W8/GZQA24QzJZhFQSICO5kODSIEukUA + HAAPDIECAB8Aq+C885eFmoCQDyAisNtJ0WhCoCsEYP5D4LHzwwrAZVOCAxFYhAJFBHY1KxpHCHSIAHkA + hAGhAJASjEgA3ADwAFQAygjscFI0lBDoCgHLA0AB2JRgKAAbCYB10NVzaRwhIAQ6QOCa6z8f4v+oC4AC + iDUHIQ8AbqCDR9IQQkAIdIUAdnXLA0ARrFmzpuwOZKsCdVhIV7OicYRARwggDAgFANMfFgAUgCUCy0hA + QQZ29FgaRggIga4QAA+AiMD+vXuCErjzjq/MJAKlALqaDo0jBLpFAArA8gCwBmxKsHUDoBy6fTqNJgSE + wFARgLDD7If5DysARCBTgk9duLBsDoJcABGBQ50K3VwIdI8AOABcqAUgD2CJQJsRiOSg7p9QIwoBITA0 + BOD/ww2wRKDvDcB8AGUEDm0adGMhMDoEoACQBUg3gERg2Rug6BIsBTC6OdLIQmBoCOBkIIQEqQB8bwB0 + BUJCEBSAiMChTYNuLARGgwAUAE8OtkQgagJABFIBQAmgVmA0T6lRhYAQGAoC8PlB/O3YsSNEAmAJwC1g + k1AbClSPwKFMgW4qBEaHgCUC6QZYItBGAsQDjG6eNLIQGBoCM4jAokko3ADbJFSlwUObAt1YCIwOAfAA + IPjqiEApgNHNkUYWAkNDgBmByAT0RCBcABGBQ4NeNxYCo0cAPv/69euTRKBVACICRz9fegIh0CoCIAIR + CWBlIFwBKAVEApAQJCKwVbh1MyEwfghYIjCUBjsiMKQEqzR4/CZOTyQE2kAgEIFFizBYAKnTghQKbANt + 3UMIjBkCVUSgPy1o+SUrlBE4ZvOnxxECAyHQCxGo0uCBoNaHhcD4IUAiEKXBTAm2GYHhrIDitCC5AeM3 + f3oiITAwAj4jEFWCPCwE4T9bGTjwYLqBEBAC44WAzQgkEQgFwFODWRgkC2C85k1PIwRaQcASgTwshD0C + fUYg/t7KoLqJEBAC44GAJwKRGowEIR4bbnkAZQSOx5zpKYRAawjUEYGBA1CLsNbw1o2EwNghUJURWBKB + uRIQDzB2U6cHEgKDI+BLg9EwFP7+olMXT9UEyAIYHGTdQQiMKwIQ9liPQEQCfI9AEYHjOot6LiHQJwLs + EWh7A9jDQkKHoKIoCKRgn8PoY0JACIwjAr5HoC0NhgVgFYA6BI3jDOqZhMCACDQqDS7SggccSh8XAkJg + 3BCwh4XAAgARaE8NZm8ARQLGbeb0PEKgBQQg7OACLA8ApcCEoDIfILcC8PcWhtQthIAQGBcEmBEYIwJ9 + JEAZgeMya3oOIdASApYItKXBNhQIwYcLIDegJdB1GyEwTggg9MdTg598Yl+yR6AUwDjNmp5FCLSEwOpr + ryt7BMIKYEYgugQj/i8isCWgdRshMI4IsDSYpwWBD2BpMNKCRQSO46zpmYRASwiACMT14PaHyhZhsAp4 + arCtDFSPwJZA122EwLggAJMfPECqR2CqNJhWAhTFuHwXPYcQEAI9IoB+gKmMwFhlIFuH2eYhqB7scVi9 + XQgIgXFAAKa/zQgkEYgzAcrjwkxpMAqEPnXSwsAN4IJboGKhcZhJPYMQ6AMBhP5ipcFQCjDvKewQdOYD + sFcAlcB55y+TBdAH9vqIEBgLBED6gQjcsWNHCANS+KEAYOrjldf73//+DBeVANyEsfgSegghIAT6QwAc + AEx+CDsF3gs+LAEI/uGHHz6lAPL6APytvxH1KSEgBMYGASgACjx2dCoCCDjM/ve+973Z2972tuztb397 + qQAk/GMzfXoQITA4AmD3QeZhh4ew53cMr7wg/O94xzuCMpDZPzjeuoMQGDsEINgQcgj/W9/61nLX584P + v3/sHloPJASEQHsIIDWYOz3MfzD9sA7aG0F3EgJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgB + ISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBAC + QkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICIGRI/D/wsPX8EdPD0UAAAAA + SUVORK5CYIIoAAAAMAAAAGAAAAABAAgAAAAAAAAJAAAAAAAAAAAAAAABAAAAAQAAAAAAABEREQA+Pj8A + R0dHAExLSwBOTk0AVFJSAFZVVQBYV1cAXFtaAGBfXgBhYWAAZGRkAGloZQBubm0AcG9uAHFwbgB7dG8A + c3NzAHR0dAB8eHMAeXl5AHx8fACEWRkAhlwZAItdGQCNYRoAkmYZAJRnGQCSaRkAlWkZAJlqGQCdbRkA + oG4ZAKFxGQCgdBkApXQZAKh3GQCpeBkArXoZALJ9GQC0fhkAkGkqAJFtLACjdygArn89AJJrTACVbU4A + nHVDAJx7RwCffkgAnXZcAKF8UwCmf1AAm3liALWAGQC5ghkAvYMZALuFGQC9hRkAv4gZAL6JJQC2hy8A + vo0tALyPNQC/kDIAwYgZAMWKGQDGjRkAyY4ZAMyPGQDLkRkAzZEZAM+UGQDNlB0A0JIZANGUGQDVlhkA + 0pccANiXGQDVmBkA1JgfANiZGQDamx0Aw4sgAMGNKADEjygAzpQlAMeRKQDJlS0A0ZYgANKYJQDamyEA + 2pwhANqbJgDRly4A15kqANeaLgDbmygA2pstANucLQDHlzYAx5o3AMqZNgDMnD0A15kxANWfMgDbnDIA + 3J0wANucNwDcnTYA15o7ANqcOgDcnToA2pw+ANydPQDapjYAroFFAL+WQgC+lUQApoFZALGGVgC7mFAA + m4BoAIKBfwCbhXUAupBgALaYYgCxmG4Ap4l3AK6LdACrk3oAs5tzAMWaRwDKnUkA255BANyeQADZnEUA + 3Z5FANmdSQDen0sAy5hbANedUwDTo0AA0aNHAN6gQwDeoEUA26xHANCkSwDeoEgA3qJMAM6kUADCoV4A + 3qJRAN+tVADZoFkA4KNRAMqeYgDFpmcAyKVjAM6ibgDTr2UA1rFnAN+4ZgDWtG0A2bRoAMKmcwDGqn0A + 17d2AOC+dwDiwHoAhYSCAIWEhQCKiooAiouMAI2MjACTk5MAlZSSAJmZmwC2nIsAoJ+fAL6rnwCgoKEA + pKKgAKKjpAClpaUAqqqqAK2sqwCxqqQAua6nALGvrwC+tK4ArK2wALKzsQC0s7EAtLSyALKytgC0tLQA + ube2ALa4twC1trkAubi5AL28uwC9vb0AwquEAMq2qwDAv74A2sGsANLAtQDaxbMA3MWyAN/ItQDRxb0A + wcHBAMLCxADLxsIAxMjIAMvLyADNy8kA087LAN/RyQDV1dIA39nVANrZ2ADe398A6urpAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAA + AAAAAAAAAK8LBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALACAQMA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALasCa8WFgAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAycATCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAtskLDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAtsgIrwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtrYJAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtq8LAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAthMPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAC2ugsTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAC0ugavAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC6tgYAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADJsgYAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADWrAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAANbWExYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAALrJCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMPDCwAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM65CgAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN2wCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAw+GsEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAxuEQrAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyd8NAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2NYPAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACnz30UAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABmjhwrAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACdjRkeJswAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC90zAmPEZ6AAAA + AAAAAAAAAAAAAAAApn8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADX0nU7QkxSVQAAAAAAAAAAAAAAAAAA + NyE7hQAAAAAAAAAAAAAAAAAAAAAAAAAAAADbgjc7O0JLTEx3AAAAAAAAAAAAAACURiU3QkalAAAAAAAA + AAAAAAAAAAAAAAAAAADUMzs7O0ZaTEtMVJ4AAAAAAAAAAABhUEI7QktGkwAAAAAAAAAAAAAAAAAAAAAA + AMPNLjs7O0ZwmV9LS0tBAAAAAAAAAI+RkUxCS1BaTJoAAAAAAAAAAAAAAAAAAAAAAMPSeDc7QkyRjIyL + R0JLRj8AAAAAAFKRmXBLQnGckUyjAAAAAAAAAAAAAAAAAAAAAMmzNTs7QlCMjIyRkUtCQktCmAAAoUxS + cJFQS4yZmVBGAAAAAAAAAAAAAAAAAAAAANqBLTtCS2GMjIyRcXFiSUJLRkJBO0tLTExMO4uZjJFCWQAA + AAAAAAAAAAAAAAAAyd42Nzs8S2+Mk4yRcGtTUlBLQktCQkI7Ozs3JpmZkWxQQqUAAAAAAAAAAAAAAAAA + x9wuOztCS5GcjJGRcWRSUlBQS0JGQkZCNyEcPYxvaVJSS0IAAAAAAAAAAAAAAAAAv9B5OztCUIyMjJFx + cF1SUlJMS0s8Ozc7NyE+a1tLPEdLS0IAAAAAAAAAAAAAAACfoH4jO0JLYYyTjJGRbFJSUkxMRjw7NyYh + HDEAAAAAAGZCR0tmAAAAAAAAAAAAAAB3myEXN0JLcJmMjJFwZFJSTExLQkI7JiUeKwAAAAAAAACoVUJC + AAAAAAAAAAAAAACDtTQeN0JMjIyMjHFwXVJSTExLQjw3JiEZAAAAAAAAAAAAAF9CpQAAAAAAAAAAAAC+ + 3xR7hkxMYZmMkXFsUlJMTExGQjsmIxyAAAAAAAAAAAAAAABoaAAAAAAAAAAAAAC62g28AKpQS1eRkXBk + UlJSTEZCOzcjHysAAAAAAAAAAAAAAAAAlwAAAAAAAAAAAAAAtqsAAAAAakxHX3BdUkxMTEJCNyYhGQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlLREJLUFJMS0I7NyEchAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAj0JCQktCRjw3JSExAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAABZQkJCNzcjIRcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AKVYQjw3LAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAP/+P////wAA//4f////AAD//gf///8AAP/8P////wAA//w/////AAD//D// + //8AAP/8f////wAA//x/////AAD//H////8AAP/4f////wAA//h/////AAD/+P////8AAP/4/////wAA + //j/////AAD/8P////8AAP/x/////wAA//H/////AAD/8f////8AAP/x/////wAA/+H/////AAD/4f// + //8AAP/j/////wAA/+P/////AAD/w/////8AAP/D/////wAA/8D/////AAD/wH//P/8AAP/AP/8P/wAA + /8AP/gP/AAD/wAP+Af8AAP+AAfwA/wAA/4AAfAB/AAD/gAAYAH8AAP+AAAAAPwAA/wAAAAAfAAD/AAAA + AB8AAP8AAAAAHwAA/gAAAD4PAAD+AAAAfw8AAP4AAAD/xwAA/gAAAP/nAAD+EAAB//cAAP88AAP//wAA + //4AA///AAD//4AH//8AAP//4A///wAA///4H///AAD///////8AACgAAAAgAAAAQAAAAAEACAAAAAAA + AAQAAAAAAAAAAAAAAAEAAAABAAAAAAAAR0dGAFBQUABWVVUAY2NiAGRjYgBmZmYAa2ppAGxragBubW0A + dnV1AHl5eAB8fHsAkmAZAJNiHQCaZhkAnGkZAKFsGQCmbxkAqXEZALB2GQCxeBkAtHoZALZ8GgC5fRkA + vX8ZAIxfIACTZSMAkms2AJZwPQC0fykAoHxKAIN6dACFfHUAu4AZAL2AGQC+hCMAwYIZAMKFGQDEhRkA + w4YcAMiHGQDBiBkAx4kcAMmIGQDMihkAzY0ZANCOGQDSkBkA1ZIZANeVGQDSkBwA25YZANyXGQDbmBoA + 3pkZAN+cGQDYmB0A4JoZAOGeGQDFjCYAyYsgAMuNIgDGjioAyo0tAMyQKgDJki8A3pojANqZKgDfnSwA + ypQzAMyQOQDPmjoA0ZYyANGbPQDfnjoA4Z0lAOKfKgDhni0A4p81AOGfPwDdoC8A46AuAOOgMQDkoDgA + 46A/AOShPQDmpD4As4tHALSESQCqhlAAuotbALigfgDKl0AAyp5MANOfRQDKn1UA2atUAOWhQQDjoEUA + 5qJEAOekRQDnpEkA56VNAOemUADgsl4AwZ1hAMWacgDLpGAA0qxpANawagDZsmsA3LVrAM2tdQDYtXMA + 3Ll5AOS+cgCBgYMAiIeIAJGRkQCUlZcAl5eZAJmZmwCdnZ8AvKqcAKakogCqqqsArquqAKysrgCxsK8A + v7avALKysQC6ubcAubm5AL69uwC6v74Avb29AM2qigDOr40A3b2BAN+/hADYuJ4AwbKoANe4oQDpx4UA + 6siLANTArgDYwq8AxsC8ANvGtADfybQAwMHAAMTEwgDIx8YAxcnJANDR0QAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAsDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAACDegEDCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH53BAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAfnULAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+CQAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAHoJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDeQQAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIF3BgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhXYLAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACFCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIUJAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYhQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIWECQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmX8LAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACb + dwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABeQBpaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIqKECZqAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAlI8YLDdCAAAAAAAAAAAAFxRdAAAAAAAAAAAAAAAAAACYaxgmMTcxYAAAAAAAAHAxIywxkAAA + AAAAAAAAAAAAAIJbJiw3YzExPXEAAAAAU1cxMUw3kQAAAAAAAAAAAACYjlkmLFNmZkQsMT8AAHI7Vzcw + ZmMxAAAAAAAAAAAAAIWVHiYwUGNjU00xMSw9KCwsMSZoYzdKAAAAAAAAAAAAmo0YJjJlZVdSOzsyMSws + LCMRKGNSNywAAAAAAAAAAACTaxgsTGZjU1I7MjcxLCMjElh0YUYxMV8AAAAAAAAAbEcNFyxTZmNTUjo3 + MiwoFxEcAAAAAIs9LAAAAAAAAAB8kh0kMVBmV1M3NzIwLCMTDQAAAAAAAABCcAAAAAAAAIWHIABRMVBQ + Ujs3MS0mFBBcAAAAAAAAAABuAAAAAAAAAH0AAABpMDEyOzIxLBgRHwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAASSwwMCwlExsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi0gsJhQQAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAABzbgAAAAAAAAAAAAAAAAAAAP/P////g////4////+P////n////5////8f////H/// + /x////8/////P////j////4////+P////n////5////8P////B////wP+P/8A/A//ADwH/gAYB/4AAAP + +AAAD/gAAAfwAAPH8AAH8/EAB/v7gA///+Af///wP////n//KAAAABgAAAAwAAAAAQAIAAAAAABAAgAA + AAAAAAAAAAAAAQAAAAEAAAAAAABqamkAbGxsAHFxcQB1dXUAenp4AHx8ewB/f38AnGoeAKZwGQCrcxkA + rnYZALF4GQC0eRkAuH0ZAL9/GQCbcCwAlW42AKV3NACfeUAAh3xzAL2CGQDBghkAwYQZAMSGGQDDihsA + x4sfAMmKGQDNjBkAy44fANCPGQDQkRkA1ZIZANWUGQDYlRkA2ZgZAN6ZGQDgnBkAyZEuANycJADQlSkA + 25koAMyVMwDPmjYAz5s5AN6cMwDhnicA4p8qAOGfLADinzUA4J84AOOgOwDloj0AuIVBALuIQgCzjU8A + t49NAL+PWACPg3oAtJVrALSadQDMnEYAxp1LAMudTQDapkYA1aZJAN6xXQDioUAA5aJBAOWjRQDmpEgA + 5qRNAOinUwDhslcAwJhtAMmfeADHpGkAy6dpANetYgDQq2UA169mAMmkegDPqXwAz7F7AN65cwDfvn8A + hIWGAIqJhwCOjYwAj4+RAJKRkACWlpUAlpaYAJqZmQCcm5sAn5+fALagkACgoKAApqamAKqrqgCsrKwA + tqykALiyrQC1t7UAvLy6AMWigADcvYMAwbKoAMe1qgDNvbIA4cCCAOHCiQDBwcIAxMPCAMPDxQDJxsUA + ycjHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAXAZfAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAFbAAAAAAAA + AAAAAAAAAAAAAAAAAABwWQQAAAAAAAAAAAAAAAAAAAAAAAAAAABkBl8AAAAAAAAAAAAAAAAAAAAAAAAA + AABhBAAAAAAAAAAAAAAAAAAAAAAAAAAAAABhAQAAAAAAAAAAAAAAAAAAAAAAAAAAAABkBAAAAAAAAAAA + AAAAAAAAAAAAAAAAAHRcBQAAAAAAAAAAAAAAAAAAAAAAAAAAAGhYWwAAAAAAAAAAAAAAAAAAAAAAAAAA + AHBXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAUAAAAAAAAAAAA + AAAAAAAAAAAAAAAATzUQOwAAAAAAAAAAAAAAAAAAAAAAAAAAbGkOGgAAAAAAAAAAOAAAAAAAAAAAAAAA + cEsOIiI/AAAAAABBGBhCAAAAAAAAAAAAZjkYIkUjHU0AAAA0IyIwSQAAAAAAAAAAZTUYKUdFIyImUz0j + Ix9II24AAAAAAABtbBUdMUUzMCMiHh0YDBo0IygAAAAAAABSSg4eRUUxJSMiHQ8KOABUKx5VAAAAAABL + EgwjR0UwJSIeGAoRAAAAAE8sAAAAAABnOj4nLTQwJB4dDwgAAAAAAABqAAAAAABoZAAAQCIiIh4YCTwA + AAAAAAAAAAAAAAAAAAAAAG8qHRgKEwAAAAAAAAAAAAAAAAAAAAAAAAAAAE5NAAAAAAAAAAAAAAD+P/8A + /j//APx//wD8f/8A/P//APz//wD8//8A+P//APj//wD5//8A+f//APn//wDw//8A8P9/APA+HwDwDg8A + 8AAHAOAABwDgAEMA4ADzAOAB+wDmAf8A/wP/AP/n/wAoAAAAEAAAACAAAAABAAgAAAAAAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAKBuGQCseh0AsHkZALN9GQCMYiIAm3EtAKF3LwCWelAAu4AZALCFNgC4iTQA + wIUZAMWKHQDKjBoAzZAfANCRGgDUkRkA25UZAN6ZGQDgnB0Aw44oAMuRKgDWmSUA0ZU1ANiaMgDgnCIA + 4p8pAOKgMwDloTIA46A1AOOhOgC2kFAAu5dWAK6RYAC0l2IAvZ1iAKOPeQC8oG4AuqBwAMycSADRn0gA + xaFeAOGkQwDmpEkA5LFYAMCibADCpW8AzapuAMiteADKr30AmpmZAJ6dnQC0nYMAr6aYAKKiogClpKMA + paSkAKqpqACtrKsAtq+nALSwrACxsbAAuLazALm4twC6uroAvLy8AMXAuQDDwsIAxsXFAM/PzwDa2dkA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAA////AAAAAAA6NAAAAAAAAAAAAAAAAAAAOjoAAAAAAAAAAAAAAAAAAD5EAAAAAAAA + AAAAAAAAAEc5AAAAAAAAAAAAAAAAAABENAAAAAAAAAAAAAAAAAAAQTkAAAAAAAAAAAAAAAAAAEE+AAAA + AAAAAAAAAAAAAAA9QwAAAAAAAAAAAAAAAABGNSgAAAAAAAcmAAAAAAAAQTAdFycAAC8PDSoAAAAAAD8p + LB8OCiMVEBYYMgAAAABAGSwdFBAMCQYgCwIAAAAAPB0sGxQQDAUAAAAkMgAARDYtKxoSDgElAAAAAAAA + AEY5ACEEDAQIAAAAAAAAAAAAAAAAAC8iAAAAAAAAAADz/wAA8/8AAPP/AADn/wAA5/8AAOf/AADn/wAA + 5/8AAMfPAADBhwAAwAMAAMADAADAOQAAgD8AAJB/AAD8/wAAiVBORw0KGgoAAAANSUhEUgAAAQAAAAEA + CAYAAABccqhmAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAA + gOgAAHUwAADqYAAAOpgAABdwnLpRPAAAWCVJREFUeF7tfQmYVdWVdZLuJJ383el0Op38VzNqujuJ3Unb + f0e7Y3cSBxQVGQRkEKhCZpB5qoIqphqAoqqYiyrmwQFRQZR5HkWZZXCeDQ44K6AynX+tfc++77xbDxsV + kHrv8H33qwJqeHe9u/fZe+219/7KV/wfj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPg + EfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPg + EfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah4Bj4BHwCPg + EfAIeAQ8Ah4Bj4BHwCPgEfAIeAQ8Ah6Bc45AUPjAX5zzX+p/oUfAI3DuEAgKF/4trr+BsX89KF50WVC8 + 5KZg+NKb8bFOMPSBOkHR4uxg6Pw6Qf68FkHO7KuCvlMvDrpX/J9z9wr9b/IIeATOCALBsAVyosPYvwUD + rxuMWNYqKFpSGZSs2RyUbdgfDF/1WjB89QdBybqPg5FrPwpK1h7Cv30SDFv8QTB44cfBwPveC3Luej7o + O/PBoHtly6DLmN+ckRfmf4hHwCNw9hCQE77ooX/CdV1Qsno0DHs1rg+DUeuPwthP4DJyjVwbXiX8uCZx + Fa80wbAlJhj0gAkG3muC/neZoOeMj4PbJ70cdBk/PGg/6k/BbUXfOnt34H+yR8AjcNoI4KT/mpz0RQ/9 + czB8eXtcU4LSDa8EpRsPBaM2nIThG7lKeNH4afQxJ0AHMHx14ipcboKhi0yQP98EOXNN0Ge2CbpPNcHt + lSeDzhPeC1oPHxi0LvBO4LTfJf+FHoGzgEBQ+OCPcF2OsH5mMGrd0zD8YzD6E7hg9O4VdwLWAYgzcCKA + EY4jKFhqkAogCrgPTuBuE/SeFTqBLhUm6DT+WNC+bFGQXRCchdvyP9Ij4BH4NASCokX/BfKuKYx+T1C2 + 6b3qBp/CAeipL9GA4wA0FdA0gJEAP5dUYHGYCuTOM0G/O+EEZpqg22Q4gYkm6DDGBG1Ld8AJ/MS/Wx4B + j8BZRoBlOpz2/xyUrBoPwz+AEP8TXOFJXxozeP5d/08iAUYA+BilAeoALBcQcQKMAFaZYMiD9vS/P0wB + eOXeY4K+c0zQY7oJulYxCoADKDdB6xEPB9nDvnGWb9//eI9AZiIQFD34feT3l8LwJ8LQXw7zemvgccPX + sF//Pfp/5QAcLqBoRWjoA2nYCO+7TTJB57E42UcbhPcw7hIT3FZsgqwCE7QYbIKmeSZoPgifD8G/j8LX + 4Os6jrNOoDg3M98df9cegbOIAOryfwpGrLwLYf67ONFPyknvGn3c0D8tEmBYz5A+Hzl9Pxh8b5zkfWfg + cxB8POGZ7/MatABOASc/T3xWAHjq98TXMfRn2J813AS35Jigfk8TNOhlgluHMhX4JGhd+G9nEQr/oz0C + mYMARDq/wYk/Iihd/zYM/0Rk9KkcgOsE4g6B+X3hMhg9ynm5yOEHwtCZ0zPPF8IP4T4jARJ+BSj9DXko + /H+y/ywB0gn0uwNVADiMntPC0L8z8n89+VsWwhH0MF/5bSM4gsGrkQp40VDmPKb+Ts8kAgj1/yIYvvgn + YPTHweCZ44cnfpzRP51/YxlvME7xPJB3g3Hi0+BHb0nwAsIFwDnw30n28esL4QQYITAtkCgA3zcA398f + FQBGASQAw1IgnMAEOAGkC+QAbkOqQEdQt/vhr/xL3V+fSUz8z/IIZAQCwYilFwclKzsE5Q+/EZRvhuFv + ShhrqpBfiT/3/yTExwmeh1Obxs/Tf/wOGP4j4TUGV9lm/Fz8bCUGNQoQJ4BIgVGAOAGkAhoFMD1gBUAJ + wO5T4ATIF8AJdKATAF/QemSYGrQYMjkj3jB/kx6BM4FAMHLpXwWla5oFZRt3wPiPioGWWeMni68h/6fl + /SLagcHytC/C5xN34dodGv/47SYYuzU8/ekEyh9O/Hxl/jUKYCrAKIBOYKhNBfLgSJgKqBOgIEirAKEe + ICQD21gn0AqkYbOBN58JbPzP8AikLQLBqOXfDkpW/Aqa/DlB+ZYjScYppzTLe3QA1glE7L7jFDTMH4Jw + nad/xV5cj4XGrxcdAC+NAtQJaBQgTsCKf6IoIJ4KwAlIKmAJQU0FujIVIB+gqQAqA4wCWhUeCJrmem1A + 2j69/sa+EAJB6aqLQO6VIyQ/AMM8GRo/TmiezuWMAGJRQFKdH7k7T2nm9czTebJPguHzogOYSAdgI4Ck + KGBbwgnIz6eTsfoAOgGRAYMQpFNRQpBSYJcQlCiAhCCigJ6oILAqwFRAogCKgqgJsKlAy6HLvhBI/ps9 + AumIQFC+/hYY/j6E5SeCMY9ao6TxWwcQGaeTBujpT+Mkm8/wnN9btd8ElfusA8BHiQDoBBwHMAGfaxQQ + /T46HI0yKA6yYiA6AUkDLBdAByCEIKoCTAVYEaAkWKsCSgimSgWyio8HzfN7p+N76O/JI/CZEcCp/w/B + 2IeHIS//WAySxqiXm59Ljq4ntHUCEurbE58GPRmGT+NXB6BOgMbPSOCUUQC4ABKB+vuUa6BKkIShWxaM + CEE4AdEGsCyI16DagD5WGyCEYCwVaI2qQPYIpAJFbwVNB3htwGd+Wvw3pA0CMPxvB6M3tILhPRKM33lC + CDle7mks+bkTBdAJMEfnyUxybwhO4LHbzMVTHjcX0vgnP55wAjR+cQAaCTAK2OPwAIwGnCjA5QI01RCJ + sBMFxLmAT0sFSAh2s06gE6sCTAVICMIJkA9oOeyRoEn/v02bN9TfiEfgdBG4YPTaXwRjt8wJT33LyCsr + D4NOcgI8mYUDsCy9iHJg+DDYS2H4NP6LYPh0AOIEqmDwGgmoE9AUICUZ6FYEbFlQuAdNBWyDkBCCVhwk + UQD4BjqASCHIKMASgnGBEFMBCoRYFWhbmuADmg8ac7qY+a/zCKQFAsGYDTcG47c9HUzYdTJRjmNJDoYv + UYB1AEl5OYyfxkdjQ3j+39OeNJdPfcJcPuUJc4l1ABepA0iZBjg8gKQCTjXgVFGAOgASghQHSWegOgFL + CHI4SFIUwPZgRxtAmTD5gEglaKsCdAKSCrA0mFc/Ld5YfxMegU9D4Ofla74VjN8yEIZ/BCE/CDhcLhE3 + 1nECavz8KOE+Tlrk+3+E4f/31PC6Ag7gMjoAnP6MAKI0gPl/PAJgGpAUBbipgKsLgPMh6ajpALkAFQZF + ZUGNAugErANQhaAQgogCtCrAOQGUCUubcEwgRJVgti0NNsn5B//0eATSEoGLy1b/xU/HrP+XYMK2RTh5 + T0SGL8ZPR8AQ3F4aAfAjDdGG2pdW7hXj5/U/1glcASfAKODfcdEBqBO4QLiAGBGoXIA4ARp/TBMgZUHr + gFQZyI+R7kDLglYiXAR1IIVFUVUA1QdGJ6IQdAhBkQlbJ6CEoAqE3FSgxZCFafnmn+ZN6YzG0/xy/2Vn + GoF9e/de0TIre1FW69vewMf3m93a4v2GjW/ZfnOjxld8kd/18/K13/vJ2M1tgok7D0jYTaOPDN9GAUkc + gFXnUYvPkh6cwFUw+KunPyWXOoEwAnhSIgBe6gD4MXIAcUfgagJEG6BOIJU60OECIolwjAvQPgFyASIR + tgpBdgvGFYKaCohMmANDrEyYrcNhVeBjlAY7fRGsa+r3YpbD1zDE5UY0eA1Ba/dFNfU+auTr7ti5y7qc + gfknRpaWm9HjJpiikSWm/4A807FLV5N1WxvTvEUrAyfQ7fPc3E/HrLskGLflPhj+UTF65tpq/OoI5O9K + AuIjiT6eqsj368x42tSG0deaQeOnE0AEgNM+SgPgGKI0IEYGSgSQKhJwnYBEAo4uQLgA+1ri6sAoErBO + IJII2yhAuYCklmGmAlYbIFFATCBEJ0CZcOQECl+DSvC3nwfrmvw9GOTy72i+eh2Cq2Po0yiqyfdSo177 + 4KEFR++ed6956plnzYHX3jDLV64yY8ZPNAPyB5vO3bqbVq3bmBZZrc1119U211xzzfc/y81dOG7zzSD6 + nofxn4xOfY0AxNCsM1CHQOKPJBsNCaF4nZlPy0UHwEsdAKOBP+LkZxrAS9IARABMBVweIKwG2IqAVgL4 + d9UDRMIgJQNTRAGiC9AypK0IRIRgTCIs3YK2TyDSBmjLcFwmjLbhSCCE0qD2CpAPaDlsY9Ak5+8+C9Y1 + +Wsxpfkf4Oy3iax7+OqTEHP5qsi5eEMH5OVPo/HvemyPOXb8uDlhjFm/abMZX1FpBg4aYjp37W6y27Qz + LbNbm9q1r6cD6Hi6r+vnEx7pipP1o5Bpt4YenbSO4avxs87PUx8Me12c+jfi4umvEcD1dACaBjg8gHIB + v1cy8FRRgCsKojOoRga68mCmJSl6BDQCEAdgewR0NqAoBLUq4LYM21QgEghRJoyqALUB7uwAlgYZBVAq + TCfQfFBpcEu/tN9EBOP/HqY03yFTnIhr4fKTQd7cNqf7nPmv+wIIwAGsunPuPWbt+g3mjbfeNh8dPW72 + 7H/cTJk+0wwpKDLde/Uxrdu2Ny0RAdS5qS4dwNJP+3W/LFvzF78eve7vfjLh0SoY/fGkfF+MXx2BwwOM + RbjN8hpy6F9X7DJ1ceLzEuO3EcD1SWlAdR6A5UDlAS61XEBCFKRkIIye2oBIGGRlwREh6JYELRmomoQo + CrC6AJUe6wjxpJkBcGLkAuJlQTYLMRXo6w4PsVUBEQgpH6AqQZYGB1z7Bd7e8/5bkfd/OyheVhFNaRYH + sPR4MOz+H573Lz4dXmDX7j0KKqomm5Vr1ph3P/gQ578xrx9809ApFI8cZXr26WfatO+ICOA2c3PDxnQA + L5zqvi8cufSbQfmaumD59ybq687Jr/m+6wTI8pNFR9hfH8Z+Ewydp784AHUC+DsdACOAa50ogClAvBzI + NICiICUDmQKEZCCUgTT+VNLgqEHIJQO1MkEy0nYKqhOQZiS3LGgrAiQDlRBkGhANDrF9AtH0IMwNYLOQ + dAzaKEAFQlQJSipgS4MtC1+GSjAtJwjh5Mc2pqX5dkx72HhFh1q47LWgZJnscfB/zgEC4ysmnVi1Zq15 + 4+13xAG8f+iweeChRaakbLTplzvQtO/YyWRlZZsmzW81tWrV+iTVS8KbGWBYR28IeN6Vkp6e9m7I77L/ + /Hfme2TOccrS+OvPekYujQDoDOIcAIlArQa4lQDVBFxuKwLKA6gyMCwHxhxAlAaABJRqQFwebHUBdABu + U5KUBXUYiSUDdVcAHYA7PmyYoxCkNkCjAA4P0bkB7vAQqgTboWMwURo8GbQYOvccPAbn9FcEBQ/8JVaw + 9cXJ/3HSRCdWfYqWfmqUeU5faCb8srHjJzy1ZNly8+dXXxMHcBREwKo160zZ2IkmJ2+wad+lG4jAtqZV + qyxGALy+5+ISDL73gmD4yodgFMdEvUcGXdn+yBFYHoB/Z8hvN+yo0bsfJQqw0cCNMPjUacCT4ghOpQlI + qAJj0mBxAqdKA7QkaFMVlgdFn2B1AW6TkPYiyEwC1wm44iBbFtTBIe4MwWiEmNUGdGUqYIeHcHaAWxXI + Kj4MlWB20GpoWvABCPv/CnsY2+K0PxwOc3HmOYxcczIoXFySCXZ33txjyajS++cvfNA89exz4gBOnDhp + Ht2+y4yeOMX0yysw7br0Mk2zOpnmWW1RCbjuOBxAa33xQf49v0POthPlGxA4eCMZ0ic5AJcAxOc8PUn0 + 4US9CcYdnfw2Aqhn83/+n5sKkBBkCsBUoNa0MArQSoArCmIkwEoAeQDtDQijAKc5KO4EePJHhKCWBK0T + YNTCCEC7E+ONQjKWLEWjULWWYXYLLggnCWsqoMNDejEVcGXCtldAU4FwgMjLIAT/DU7gL8+bB+dzvBBE + in+NnH8AjJ8r2arvamAJsHBR/c/xo/23fF4Ehg4r6Drv/vlm95695hOc/p8gBNiwdb8pmzjT9Bw4wrTq + lGsaZ3UzDVt1NTfdVPcTOIDRV93Q+RtB/tz/wFy8N6XsRX0+31CGynQA8RSAJ6lM311ufjfpMRB8T4UO + wIb98RRAowCe/lINwEfhAawjkHJg5ASeEElwQhlopcHCBeyv3iBUjQuIVQSq9QfEKwJWIqzCoGhoCO5P + ewSiIaIkBK1M2G0WcglBGSluOwajCULxhiEQgi2HrfrKpY0vDLKH1sj8GMb//WD4sgJETJ9EQ1zjw1tH + rH4bsx9/8XmfZf99nxOBO+6+xzyybbt5//AROIDjZv22Z0zB2DtNl9xyc2unfNMgq4+p17InxEC3nLyy + 1nV3BPnz2gYD7vokyOPwDeS5PPEYCrOUJyem8gA8QZEW0CCQ310G47tq6n5Te9oTOOFtBMDTXy/rECIH + oDyALQdqNUAjABEF2VSAlYBQE+A6gERvQNgm7FQEUlYD4lyAjWA0DXBnB/Je3QGi7uiwqFvQ9gm4k4Tj + MmF2DLq9AjJBCFUBpgLkA3R2QBacQPNBBUGDHjWOFMQ05wtw8k9PIvxSLWYZvvKRYOSyb3/Ox9h/2+dF + YPLU6UfWrFtn3n73XXPk42Nmw46XzdBx95kOueNM007DTL2sHHNTy76mfvMO5rfdR24J+s84GeQgf+XG + HDbAMKynAVC3LzyAdQDMlekcmB7g5L+saq/5w5T9phaMNHIAGgXwo00FGP5rRUC1AKkEQSoL/gN+nkYB + dABhGpCoBigZmCQPVgcQTQxyR4YpZ2FLg7wf6VJ0xoZFswPJAzijw9x2YZcQjLcMMwrItR2DMkIM2gBN + BZQP0NkB0jAEqTCdwC39a33e9/nL+D7Ien8eDF+xAM/A8U8d387np3jZcFQAvvplvM6M/p1jJ0w8oETg + Jx8fNRt2HjD54xaadrkVpmnnInNj1gBzWcN+5h+5GqsLTqfeKF/RAQxAXZvjsAqsAyA7Lt18rO2zpIMT + kCelpAW7zSVwAP9NB4AI4Eac3uIEHMN3HYCrByAZyFSAasDqPEBCFqxpgFYDlAxUTUBSFOA6gJTCIFcd + 6MiDpSIQ6xTUHYOuLkCiAEqE3SjA9gnoJGEdIUZtQBQFOBOEqA1wBUIyQKTgWfAB530aIHsaixZdFoxY + tSFpG3N8iKtyASPXHg+KF9co55YWTmPajJm/KCkt2/bAg4uECDx69JjZ+cSbpkfJAlO3yxhzScNB4TDL + bCjUWhZhrv0whKjIUekAuElnEIgt4QEwL49vLk9GPvy8GAE4vMBFiAJ+P3kf8vcnhNSLHIAbBeBzPf3J + E0g5UFMAKwmmE5ByoL0kDWB7sO0QpCiIUcAlDhmYGBTidAm6ugCXCIyXBKUiACcm0Y3VBUSEIFOBWFlQ + ForYioASgklcQEwbQEJQtQHaNuymAiwLSq9AtFtgxvn88CHf/xsw/S2xoPXP0Z5G3dXIVJHPSnyZy8g1 + 7yJa+On5fF9p+dqCloP/+K/1ei65vh1O+gHTTdaoReYPg5Dbc6adlKdw6tMBcGhFi4LQATAc7Y3+9lyc + XHloe2V4yweeij6eenyDeRoyR9a0AMTgxZV7JA34I3Jx5QHqzdQoINQBsBLAjzR8qQZYUZCWBJUMVBKQ + H6PmIKdFWJWBPP2rRQBaCUgpDLJVgahVWCXCjAJsRUC4AGd2YDQ0xJYFSXjqFOH4QhGWBXWpSDRINNXw + EMwRdCcIJTUMFR1BabAV1oydd1UB5Ps/QyhfAk7ocMT0R+va8HyQD2FUFF/cMmLVw/jev05LIztfbyro + OXXB5SVrTM85e03BwhfNAzsPm6nr3zEt5zwTinRYr6YT4EjrMPxMOIHO460DQC7Lh1ofdD74NAA6AJbJ + aChSHkQejQiAPf3/jShAeYBPqwZEaYBUA6AJcMuB7A6U3oCEJsCtBrhRQEIZGGsTdjUB7uDQSB7sGL+O + ENeyoKQBernioE/rE4gNDlFCMFovpjJhZ45gF9s27C4Xkfei8KWgcb/fni/6AIT8UPZhUWvJmk1Rvu+u + X9fFq8S2EDi4EQAjpvJ1nZD/n3cO7Xy13TPyutB1NZinNHPrvve9bIYved2MWPqGnMBC3uWA5CMxxVyU + pz73292KCIBRAAdbMg3gth2SgLzoBPhG8xIHAGNgGjCa5cGQGLwEUUCCBwjLgTztXTGQ6gFCQZAVA8Uq + AdQDhN2Byb0BIQ8QVgJORQYmtQgnRQEsCdoIIJoV4GgCVBhULQ1wZwfSAcRmBkSDQ1Qc5M4QTKENoExY + F40KIciqgFUJasMQCcEWQ5cH9bp/94w8DF/gh6CV90I09BTgPT+YtK9RT35dyUZM6RT4d1cHwPy/fM2v + Lihd6QnAL/A+fOZvDfrPzuJ2HU7T6T7vJVO46DUzatkbptM9L4YhLEUrnGrL6TUsR9EBuGkAqwAch8WQ + TvN+iQCsA+CbLA6AUUBIBF48aY+5AikAeYDaMFYN8+OagGqKQLczEJ9LX4A9/d1yYFwPIOPCkjQBVhT0 + v5YE6QhSCIPcwSWnnBfgiIOibkFncpAODqE2QAhBOz1I5gaAV9F14+5IcXe5iM4OoBNolp+LVOBLUQmG + uf7iq4IRq9ch5D+W2NCslRE29+C+uZmJPArx5L3HF7mMXHPwMz+8/hu+OAJBr8m/lZMa4W9nGH3BQ6+K + A+g//5XwTcrHG0d2mtNr+NC5EQAjAaYJjBSY9/NiBEBHIFGApgEkBm15EBHAj/AgUA9AHuB6GPBNMOS4 + DkA5ADcFUElwUnuwPf3dKUHJo8LCLkGdF5g0NdidHPy/lgRTdApKjwBPfrcioBOEP6UsyEhJCUGdIZhS + JqxRAFKwlAIh7RosOorZAZd98afh9H+ChPtFi34XjFg5FYb/rpz6qTY0sxeCBs/0SSYv4aJDcAVAfP5G + rMroUWinj/xZ+MqA4SneoOw7nzf5Cw+YkqWvm0H4KA835avsW5eVVnAAYe4ZRgF0ADzBxPjpBHCJA9AI + wHEAjALiPIAtB95EJyCioJAEdCMB7QnQSoCqArUceO30sBoQNgglZgXqoBBJA5IigHBkeFQOjA8LSdIE + 4LRKahJy5wXYiUFJugA4gqTFokwDiIGjEIwkwjYV4PgwnSEYNQuBEFSZcJI2gAIhRGLSNoz3w60KtCx4 + /Cw8Gil/JE78/whGrCjD6rbXYPgnwtPcnviq7adRD8ZcRHm2aPjAjg5Ayb+k/H/dR9gN0fJcvX7/e2II + IMzfJvk7Fmw0HLfJ1B210mRP2mJ+NwwCH55QrFVTr848VKMAcgDMUfmG6iAMftQ0IIoA8PDz4UgqBybr + AUQWjJPc5QESlYDw36P5ADIoxJKBVheQ4AGeNBQEsSIgUYBOCnI6BFNOC2Ik8Fk1AdEUYzgCtxwoy0vg + 7KJat3IBtiwYzQ8E3rpPwJ0kHA0SdeYG6GKR+PAQcQLO7IAWgyvOxsON0/4vRcZbvOhSmdc3av0rUteP + b2XWU53PEtezEQsav0uocjW7qwAUjmjThqB09Y/Pxmv3P/M0ERDDhZdmFMDTv3oUwErAaPOb9qXmp73B + CTCs09BfnUAUAVADgChAS4F8k1knj3iAsBx4BSKAq6Y+HqYB8d4ARxIclgNDJ+Aaf9KMADsnINIDqBPA + Rx0XlsQDgBMQVaCuD4tHAknTglK1CrslQaoDnTTAjQIihSAcQNJaMZ0hyMEhThSQqlmIKZisG8d7IBOF + LSEYXy7SquiToOnAZqgKfOM03/ZP/TJM6P0q6vK/xInfCiE6lHwb3kwa3OFuY+bnTPm4pYkr0iTftzm/ + YslIiBjEU4XydbdcULbKs/9n4k37vD8Dmv6qS0qWbf/n4ge3t5245rWO41easgX7TMdxK0yTftNN0+5j + zS2diky91gPNrUMhWonCfif8V4cgUYBDBGo5UPQAKAfi9Lxw0u6IB2A5kGlANVGQbQlWB5BqQIiqAt1S + YDgkhNLgMBJIlAMTI8OT5wTEZgaecmKQDWWjZiG2NjvCIG0X1g1GIg5yuAB3ZgCdpm4V0j4Bd5y4lgWj + TcMqE6YTQCrAioCmAjI7AJFAmJ69AD7gczXTBMMXfRN1+O8Io1+8uDbC/L5IX3YjmjlSXczD+2Lob++P + ZT2e+nzfdQScNITZvJ/kXwH4gLjxl6xDF+lKX/v/vIZ7Jr8PisC/Ly0fvYPDQJ557jnzERqDNux81eSN + X2I65E0xzbqONPVvyzfXt0b47xJ/cWegPIDrBCQNAEGmfQJwAKIHsH0BlAULGWhlwZoCRD0B1hlEY8Li + egB3UlBsXqCODXdHhYXCILtHUKOAeCoQXyKSUhhkuYDxKXoEInWgNRJ3uWjSKPFYt6ArExYuANoAmSEI + 42ca1m506ADIB1AjoPsF+O9MCVoMmR70mPRXqKl/+1fla6tVB3Dafh1G981g1Ipv4mu+FYxcflFQsuIK + XO0R4ldCvbcLhv02DB+sPsi9eMdedPJbhp9LWRnaU/GZNP/BIU5lyrND/ukchdINL53JZ9j/rC+IQEFR + cbd75y8wj+3da44cPmz2P/u2mbL0cdNp8HTTonupubntIHNTqxzHAVjyTzXvLg8QdwBUBYosmHqAkAeg + LJh9AdoezDBfSUDRAuiIsBgPoI1BOiYskgXHdgYwAuCwUOoBEuVAd4OQzglA/V+rAi4foOFrNTLQEoJu + STDaYkSFIIVBdnSYOzREGoVwSiZNDnIIQfZVyNwAGBVLgtQDkISlA6Aoi//Or5H/p3pQnQP7BxAZMD3o + MPZEkFWYi/D9sn8cs/E/fzpm49U/Gbvxqh+N3dQA69jqYRFry2Dspj7BmE2FwZjNd0oOPnrLK7g+BH9x + DK87nO0QP63dv8s2ZpQvGe6XwbijbcuucEr1E/jIHY5x5d/ItSewCr7vF3xk/befSQT69s/9MVuDH0Vr + 8Icffmhe/PP75s51L5iuBXNMq16jTaP2Q81N6AzEBKBk9l+rAHEewNUD0CBieoCwPfjxSBacpAp0R4RZ + HoBVgDgPkLwzILE0RIlATQPiDiApDUi1QahagxC4gCi81W5BcgGMAmyfgKsLIC8gA0OsPDi+V1CcgKMN + 0CGiNGz2BVCDwSqBOg3pLGS0wIYiOgn8v04W0nkClG0zIug0/ihq888Hk3YdDCbuePUnlbv34/MXoMR8 + E7n5Ozip30cqdggfj2JsOyY5bT0ZqRqTHJdl+KN5fXBWNHwaNE91hvbiHImNzfvdFImf8+elZv+fQ9Tx + kzP5/PqfdQYQmDJtxrE16zaYd955x7xx8EOzZMdbpufwe0x23/GmccdCUzcr19xYgAdAa/+u8evn8WoA + G0AkDbB6AEQBoR4g7Au4Bk5AiECkAhr+p5oRGDUG2YGhOh8gFAUllIHV5gUqF+BsD9L+gGpkYJImID4s + hDmt2yWIz6tFAXFCEAYQnZ62NKh9AloWpKHToHmyszogGgpbQZAOQ1zaXShbkVGdoXZARo1DOKTKwWjj + EKTbTBdgpBdX7T2OMWjHgkp8hBRbLt2GpAtZdO6h8hju4FO+z0Px+6j45O+mY6smm3acQNJAFeAz1J7+ + 8QlA5euHnIHH1f+IM43AuIkVry5ZvsIcePVV88H7h8zDTx8xfUrnm9v6V5gmnYtNvWwQgcNIBGr4n+Jj + kiAopgpM4gGsLBghOk/2ahEAtAFaARBRkDMgJGoP5tagJFlw2Bmoo8JUE6BpgHIByaIgpAKpNAEpowBH + GqwRQbUmIZsGuKmAVgRku7AtC8qpj9NcuymT6+PJTkC/R0q2/D6mAnAaMmp8TpgmaPOWriDnv+O1XQj1 + ZYDKS6AflaVXXkPmHYCgpYPmaU9nI9UJOCSJQvB6dbpyvGSacuGqTQVOdfrLgbD6l2f62fU/7wwggNbg + tUIEojX4Y0sEDhy3OCQCbw+JwNrZSgTGjd9WBdQB8KQj+80HSGXBygOACLwYp9EVtjHoRtECVNcDuJJg + d1y4OgDdGhTtDnSGhcZHhekSUXdeICOAZGFQTBeQxAPES4I2GnB7BHh/7gDRaJmITQVoXBrKy6QkGIMb + IaijoJHowFGNAoilDhmhgTIKYL8G5cMsF5IvcIeLslSINOSSiTvMjyaEF/YzhpekLWxtxutlOC9RBy/2 + cOC14v9DZ5kYqybj1eNciaYASaVTGylRAuyWCzWVKN+4LRi1/EuRL58BE0nvH0Ei8P4HFprHMCMwiQgc + NN3cCiKwQRslArUEGC8FqiIwlR6APEBCFiztwagGXA1Wnu3B1WYF6mwAZ2eAWwmIZMGIDFL1BagDcEeF + xbmAJGVgKiJQTzg3142HubLmTFuFY7oAjQJoYCqdpqGJWMhe1RyAUz5U41dnQAfCnFrLh0wbyAXoQJFo + mhAUgxRuIRr4HRzANZP3mqtIvFZiJoO9roLzvQr3/Hu8DyRWw/2L4FFsCTXcs5CQUp/+WDU4SnIXTB/i + eoGSdUeD8rVN0tuKavDd9e2f82MuBtlqicAXSASuBRE4zCECWQkY7vQAuFUALRFqOVAjAD1Z1AFIezD0 + AHAAOiZMFIG4kngApAHaFahlwaRyoB0WqhxA0t6AJEFQWAng5a4ST5YGI+dPlQrEhUER661kYCougH0C + OFl531odkdDXEoNaJkyS0VrDjwREygM4fIAYFrCnA9A0QHmAHlBn3l6FagA6CDUNoBNAqtBk9rOm0exn + TCPgyauBM3dBIyshVJlOOaVUllETeDFacpqpTrVohc6SSlK3ZMjPxZmt2RWULPe1//PZR0yZHhKBb7/9 + thCBi7YdND2K5yYRgTcUIryL9ABOOfBURKCeegyJdXy4OyaMPIDoAWxvgNMXkJgQlCwLlvkA9pLlobYv + INXOgIQo6Mmk0FbHhicWiaYQBlULc5FPR2vFHVJQCUGmAUrcRfdNw7fG757+8c8l9LdCGzn1XeN3+AOm + EREPgMoBIwBVC4pi0M4RYNs25jlcXLYRTiA0/sazQmfQwA5gccevEU+3r0KUlDJdKSyfJtIl6yxTlU11 + KIxL/IXh/1EskOl6Pj/7/rUBgfETJ726NE4Ejppv2igRSEVgRATaTkC3KSiuB2AUoBEAGWZnTBjTAOoB + Qlkwdf7hFKDqk4JDjiBcHBr2A/ByuQBNAyIHYNeIJ/cGnGpqcLxN+HS5AK19MwpAGiD97tZQecqLNNhq + AuTUd52A+7kavfNRjN9yAVEKAF5FtQIS+kMrwJkNavRk/8kFsH9DxUOcJoTejRum7AuNn1EAnQEurbbo + BCZiqrsXlEiVQavReLX/hTMhyUthUPz059/LNqzG6f9zb2TnOQIhEbjYPKeKwB1UBC427QdOFiKwQRtX + EegSgeoMnMYgty8gaUwYjAW5M+cEumPCUvEAYegfOoawJyCxPVg7A0UWrKvDkmYFhhOD5YqkwU9GJ1o0 + LUjUgTD6U7YJOyVBRgSRMtCG/zRuITthsDIKjUZvL/2cxq+jxPn1bhrg8gFKlrnGT6dKlSB1AiIOQriv + 68VYAaB8mKSglAfxOb+OVQD2EWgPweAHxQFoBBB+ntoJ0BmrI1VZNScthwSqOoEU1ROSkxrFRI0/QoCi + gWhNA4z9PiO9Cue5CdXsl0ci8L4FD5i9+/aBCDxidj/1ligCOzpEYJ1W/T89BYiGhNi+ABUFSWOQ7Quw + PEAkC7ZEICsCn9YarPMB40tDQhIrbA2OZgQ4S0N0c1BqVaAuErVNQqnEQTR8Nx0g+SeGzwjHGr4affyj + 1tY1Cogbv8v+0xnw/0kasgzHUh/zfHYE0ujZN8AUgDyL7ixgpMHfQdKR38//Y3mRDUasEpAfoNMo32Sa + 3xEavnICygfobkZNrcLyaiiuColUTZ8ScxaTOBO7/KUa8UeHMObhVTj9v1WzLSNDXn0fIQLnma3bt5tD + UASSCLxjzfNQBN4hisCG7agIzHWIQCUEnWiADkDLgUIEumkAHlYnDYjGhVseIBwZbmXBuisgWhsWbgqK + 0gBna5Cy2PHmIB0TxpNMewMY0urpz49ROVBJwFMuE7WiFyH4rGBHT/ZTGX/07zYCiLYK8WTUxhpr9HZV + upzoIgG2/QA82WXqMpynVBys+jCuQZCfze48SxZSM8DBLuwpoAOBM7gSUdctdAA2FaAzuNnhA2QMW9Ru + zaqAbmImfmFlgFFA0gp24kbiz+0diD5f/xFm/l2dIeaTHrdJInDt+vVCBB588wPzUBIRWCCKwJAIpJzV + XnFxkDsmLOIBmAvak8r2BVAPkBgX/mRIBrpzAq3xaxXAHRXulgI1bE01JzCaFISTjMafGBSSvE5cTjQ3 + FYgz3XztOviUhi85vub5+pGhP09k9++aEjg8gA7T4M+UdloYK0975vQU+fCUJ4Zq5O5H7URUZyAOAWIe + LTvq+G0ZyUWlIcqFJAohF/7d+K0SAWgUoLxAg1mh03WXs1JlqePXtKyqEVRi2jJSAVYl+B67Yb/KoMs2 + LEkPq8igu6AicOnylebV114zH7z3odkCRWDfJEXgAEsEOnl/VA50iEFXFkwOQGXBjh7gQocH4HyAVDxA + UnOQszNQiUCdD5CUBsREQcktwgxnE/sDqysDYyVBZfZpqKc88WPOwHUAEQ9ga/8M8ekA6DSjXYHI2cns + R3MU2W6s04eszkB7D071kU6Ar5U/XysRVA8ybSAvwFQAk3oY9kd8gC0N8u8uKajOVR2Aqio1igojKDhM + Gn0h0pV4A1E4C+JN1P396V/TfMeosnJRBD73/PPSGrx22wEzYOwiSwSOgCIwD63BBdWnAqWMAmI8gE4J + isaEJbcH0wHwcjsD9WRSTQCjAOUAdHmoEoKnnhYckoH6APMkS6gCQw4gsUmYDgAXRT/akCNMtj3dq+X4 + 8RPfjQqssevpqFuTmJv3waks25Vw2qc66SXHP5XxW0WfaPr5uSr8NBKwToCpGH8+0whyCDitpSSIS09/ + jQiYCrh9GDqLUQnWcN5CuIORURS1HAFn/52qe3DM5qEXlK32df+a5gAKhQhcKETgx0csEbhkv+lUjQhM + oQR0ZwS4smCXB3Dbg/EQRePC8WDR+KunAewLSKwNl74A7Q3AaZaoBtiQNVYJOHVvQHIKwEqANAixzj8K + EQtfv4TqbklPnUCqkN86Aj39o953e/LzJM6952Mh5GiUdAquijByAjprwOb7cuJbI5e+e0eE5A7eYIee + RgeSDtD5gITjfUgUgBQDn9MBpEoDRB8APN3R7Np+rU1XYVUl5AOEqEzSLjhlzPHb9/60fI0f91XTjJ+v + N2fAwAQReOiQeeGV96AIBBEoisAxIAKHhLMBIkVgjACMC4KS5gM4PICOC+eYMBge9QCcEpS0O9BpDdbx + YUmSYHd9eDQyPNEh6HYHxpuDXFVgRGrxgebrT2L2nRM9VW7v/lvUBkzHAcOnkfCU73/XkaDzuPlBr2lV + MJqPQkGUnu7xj7bNODJ6KzjS6bpUJ1KmzKqEinFcvkIWmVDrb3cWMHVhVYAdhCIKelaIP1UGqi5A04JE + KmC3M0W4hlUWOgBJMTQlitf9yzd/glkE19fEZ9+/ZovAtJmzjq3foIrAD8yi7dgZCEVg674TpDWYlYAb + CrU1OKYHcGcFpmoPdsuBONHCMWGQBeMh5pCQ2lYV6E4J1mahaEyYRgE2ElBVoPAAcVVgJAsOS1oqC06M + DWcuC2NlvixklpJ1ZO5jZJ4ae1KOj6/h90TEHj4nMZY//6SIdbpWVAUdShsG7UfJ/DvMVNgfzkewY8WS + Tn572kcTdtjCy24+GLyrvFOy0kYtKmsWPYNoFdQJsMvP3hv4ht9hgpHiSicgZGDEA4RpgRKCFGRpNECS + VfcyinPR/Y9J048kAjgZjN86xxtSDUdgfAUUgStWJlqDn0Jr8Kj7TZsc2xqcpAiM9QZE8wKQIiQ5ANsd + WI0HCNeG/Y8dE6aqQHdcOB/EuCDILQlqZ6COC0+qBqgYyOoCdI04HYDk2DylGSZrDT7K8ZXYsx9TGb17 + 4tMYZDIu8u2eU18OOo+fB8P/f0H7kr/XxyHInf21IH9eY+ETIgfgnPiu4cdPeCvCIQFHeS4jGNeZRb0O + wFKcBvkB/g6+bolEFshqtmj6EjCNegSUE7CSYUqF46QgI69L2VrM95RkI1uI3Y7HcPzbMxeNXv+vNfzx + 9y8fMwItEfgCWoMPmzWWCGw3IFQEhjMCQQS6Ob978uvnfFiinQFOy2nEA7BNNVwbxjSAA0IYAbDW744J + SywNDRWB7oAQdz4AHQHzVd0ZoCmA8gBKYv2ID7IO5xSVonvqx8i+yPCdVOBUht975gtBh/KJMPxTGkEw + 4I4LgqJlK0M9hM3zo9yeJ74VHdmyJE91Gj1r8DRyOjBNZ6L7s87t9/haaiuk/18dAO+NKj2kYhT40HEq + tjztNQUIicHE5ToB8i7sHhRuRNqecckodEfqPOaRoz8Z+3CHS0avO+9XmHsL/18QSCICDx8yu598y0xe + HBKBnBHI1mBRBIqhx8lAp104lR5AGXX2zjs8gI4JoxNgFMDmIA1DpRJg5wPGHUC0QtwKWFKqAu3EYBqO + 1PJlqzE+Ruo8fZBVwpuqjm+/BivVomhBB3v0mvlR0HnsgKBdyZWn83BheUZv/O5PxAHQUHWDDkN9K0TS + kz40+jD3psGHi1HD7j06Ox2NdhUjAjo2XuQLxAGAayCvgdP/YrQG8/sYyosTsHqLJD5AG4bkYygSYiTG + r5XTXt4zRBWiO7DzBMINSSf/ceK2cZeMXv+D07l//zXnOQI5A/J+fNc9UASiNfgwHMBzL78risDbU7YG + x1MA/D1yDPE0wEYBEQ/APDh5TBiJQN0Z4MqC1fB1QpAuDam2PdjKWLVNWE9JCVk5044Rierxkz5SSeco + 9lyhT/zE19Ja18pXgi7jxyK//yeE+qetdQ/6z/xOULxijxiTsPowWA35eYrbBad0WGL0cIZ0bFrxcKsg + vH86TIb3P0K/fzS6jA6A90BHByIy+ln4efw5jJxEdAVn4DoBt2mIn/P/MD/QliRtNUKdgE0FLp60c83v + xm666NIxG/ySz/Pctk/75ZEIXLdho3kbMwJfZ2swicDhJAIxI7BDgSUCrSLQ3RJ0OnoAnRLk6gEQuuq4 + cKYBcT2AOyrc3RikewOupyHYFmFdGUYnIFNwSMpp2Yphq17iAFSpl+KjEoJK8NHwqbHvPeO5oOOYChj9 + d4J2Iz/XhBuM3WoqBkoHQOPnyS/G/7iE+jzx+fp5yuuprfoHLYtq9HMNv4fGz8rBBPw8Xhqmy31vkBSC + kQQdAR1K6ARCzQVTgYQ60CEHkRb8m04RopOKNAfUKFjNwaRdr/znhEf+Cw7AG/9pW1cN+EJpDQYR+Cpn + BEIRuPHJw0IERjMChQhEbTnVjMBIIuz0BWg5UMpHthwY9QVgTJhtD2YlQFWBcR4gGhDC4aB6aSXAGop2 + B/IhjwZoMM8XlZ0lrlyjd9t2oxo+OQEb6guLjvtgLb33jA+CTmNHBO1LTyvU/7S3GYTgt0Go7ZDavTiA + UGNPkQ27F2n8NFIaeXw8mjsghaf/H6rUOHU6ET7KuC/biwFikFwCIws6AU0lwiggXNKqHYJuVeBSJSXJ + KYgDUOGRahV2fHhFxfa2NeBx9i/xsyJAInDhIrQGUxF46LBZvTVUBJIIbHr7CNMgaVlIijRAo4JUgiDl + AXRaMB409gUID4AHlWmAlAMdVSAf0qQ0wHUA9uTXCEDyU+rg6XT4O9T45fNYni/ddE7OH5X04AT4/aHh + v4tQfzJy/N/gxD8jnW3BgDlfDYYuaInXd0xYe9tkw9OfBsqTn8Yf35ng8iH8f478EsOUsNzm57qrgBUJ + /htLiMCWDoaRQBgFgEewzT/8HZoGaCTA8WFy4tP4o2GiNrrgv1c8duL3lTvLrpiw5bRTn8/6DPqv/xIR + UCJw//7HUQk4ZHY++aaZHFMEiiDIzffdz93IwF0bpr3zsXHhMibMGRcerhAHEWi3BrmSYOUB3AEhNIaL + K2AIDNNJTEqLLAkqIakSTkAXeepHdQBi+LZLjycnCb7+d32IE38hcvxLEe5/80y/HXAC38H+vUclDYCB + kvjjFB524YlxOox9JNO1ToH3fqUw/jBU7QPQj7qnkANEYlWFsKLwuE0xnrTDWMJmIK0KiPHz9GdJkQ5A + R4qrGAn/9qeqx+b9z8RHLzjTmPifd54gkDOQROC9aA3eYQ4f+jAkAqEIJBHYsidag7ksRBSBXHRhxUBR + KdCtDCgRiNM01dYgHRfujAkLl4Zod2CiN8AlAKV1VduD8VHCXea7TC+SNveyZMVx3Tz99bLpgHbQabjP + 18efweaZrpPuC9qXZZ3ttyMYOr8RXt9xGirDdDoAntDUNEgEYIk6V6dP4+dgTw71jIxfy3Pq0Gj8THWU + Y7A8Q5gKPB6lAuRL+PNkPDuiAlYLhDeRioLjAMQRhFWGa6bsffhPFdt+dbax8T//S0ZAFIEbN5l3ZEZg + ojVYiMCOJAJz7LIQdy6AUwY8HVlwtDYsTAOqjQlz2oPjKQBzYwn3KXWlA9DQN+4Aorq1RgT2o3bm0QGQ + KKRWv1vVjqBDWWOc+D88V/AjClgnJy6iABqncgBC/tkT312XTp7kStf4efLrfH86OmLBKUIRx2L1BTYV + UF0BdRGaCkidX4wf0YioD10HEKYB2DNw8uqp+x67unL7v58rbPzv+RIRIBG4bAWWhRywROATh0JFYNKM + QJcIdE5+TQeiCUF2XLg0BqUoB0Y8QGJacKQHsMq0UBEY5sV/YPirDoannoa/NP5IrBL7XB0Dv17bk5ku + DFpwEjv29oDZ709m/1xDjpXc9VBjP0IykCe08gAi3NHGJ+sMalHqzHunhkDvUx0f74vOTPkPkRyz74A5 + O43Y9g9YcRF/D6ONf6OxJzmLmPHj/y+s2nuy1tT9T107ede15xof//u+JARIBD64eIkQgR+jMWg1FIFc + FtKu2oxAZw6AWxKs1hdg24NdB+CsDSMPIGPC7LBQUQXGeQARpVh5K8lEPf1cBxB3AowSRLiC01Gn7dIR + cdVW39mvQb1XFnQY9aUOrcROvy3KBWiIzvBcowCG6CQGa2HAp4h8XCfnchw8+alyJKehDo+SZznZbSMR + Ig1NBcQ50HGoA+DPFmdhowAY/4/wnlw79fFnalftqovQX3oa/J8MQGAYmEAuC9m3f7/55MhhIQKrXEUg + tgaLIlAXXlbTAzgRgcqC42PCkmTBifbgatOCEQVcxh505ujM1bVfXplvcQRgvN1T0TUSkoIj2cWmBB8i + l26VM4N2o86LEw3LNxkFiJFyNgHLgcLW4yIhyEuiHhJy1U5+W+kg/tQpEB8ttaoTYLlRBEe2sYinvo4o + Eyds0wiZ1qRNSHtATO4z10x/4sB1k3c1zIBH3t+ii0Dffv1/HxKBmBEoROB7kSJQiECZEahEoDV299R3 + 9we4suBP2R7MacFue7COC5eHmj+bD2u8gy6KAqwD0GiAhsKTUCsPzPMH3vtR0LXyhaBT+dUI979/vrzj + Qc6s74BQXRtyAaH+X0N0GcYBQxSp76mMn7hwbThPf2ItegukA+oA+H1S17cOhA7CVTvy/9WJqhNApFB7 + 2uPP1568+5YrK7Z9/XzByr+Oc4jAtBmzTm7YBCJQFIHvhzMCVREIIlC2BhdBYquGX60/wEkPPrU9OBwX + Lu3BTANsd6A8wCztMXSX+XcpBma4DkA/Jxkmfes48WkU3GnfbfJO5Pl5hA/1/POqaSXInfVVRAHNUL78 + ULkAVQVeQWKwioy/G+FYfkPLmaz5c/4fOQ1GZLzvaAwbqyD26+XfYPyR7FkHmdhyKX8H0wAQhldN2//8 + NZU7a53Dx83/qvMNARCB7y5fuUoUge+/94HZaIlAVQTWzeaMwFMoAt3VYdG0YC0HOt2BSuKJ8CRsD760 + AuG+ioi0UiBKtEiF5szNs+GrimF0Jp5Ow+k75xAMv5Ka/fMNX/f1QBfwN2EUsPskDVDz9EiUE8/7VeNQ + jNCfuwDIabAiEo8CZGkJHILMO2DbrhU+xVucdV5jxZ6T/zNl786rK3decT7j5V/bOUCgfMxYEIFLzfMv + JIhAVQQ2gyKwHiTBYWtwXAsQawri/yetD485AKccGA2x4MPK00ivSIqaapoOHANPOdUahCO4mOevhYLv + mqD9yL86B3B94V8RDL63FqKAj4WEI1nHnJ8EnhvK6xZilftSt5CLi7V/VgB0GanyLnTEsqHJ7X1wFJCq + HeDPnbj7+H9W7V77x0nb/98Xvhn/A2o+AoXFw4s5I5BEIBWB2/cfjFqDb+0+ytwMIlAEQZg4m9wXgIcu + zgfEB4TItGDmotpqipOcDytPK570OvQyafglZa/usExbDtNTzg6/QLj/UtBpdHPk+f+3pr0LGLe2Vth5 + RAGibtTGm0jfYIVN1DHogFE6O6YAHEHG/n9edAZ0vNGwk1N0O7Kqwp89cfeRX1fsmHv5+C2X1DTM/Os9 + Swhga3BEBB4+9IF59qX3zMxVz0IRONsuC9EZgeoAbM6figystjWIUQBzUhuiMnSVB9H2yLuGH0UBbEm1 + U3RE/ALnoVJj5sE5c9/D/L0ZCPcvPt/y/NN5i8AFfC0YeNdvEaYfjbrvNH/Xj9rbQKPnLgFO/KUjECeA + vQLEQWYbWgcrSkcaf9wBsDOSkQDy/4m7Dv524raBF41YfMGPh80/r/iR08HNf81ZRIBEoCgCSQS+8b5Z + sPUNzAi8O9wajNbgiAh0JwRFvQBKAtoUQY1V14erhFdOfZag7BBM/Zhk+Gx3tR1pzFdl/yAYb+a+fPC7 + VS6Aiu+WswjFOfnRwcA7/iYoXnZnIuxXEk9PfhguKxrcBKxbhJgGMAXgeyArueFY3e1DGgW4jiBR/386 + GL60xuN2Tt6cTPwlmBEYEYEfojV4gxCB8xOtwSmJQLcfQAeHWoZax4RJrop/40kuk3H0YteZEwWI0Vsu + gKe/bOmB4UvO++BxhPsfYCJPZ4T7adOcgnkB2YiMjoc9DDZE13ZmOkuu/Op3lz31EfrLlCNgEt8s7C7s + 1J6HcBDKSeB+MijfeF+QP/fyTHyu/T2fJgIJIvAF89GHH5hVj/7ZDHAUgSEROMxZGur2A8R6A0Q0RIIQ + 4T4fThli4Rq/4wToEKIhFPg65v4uydd3zvtg9xHul3z/s0zkOc3b/lK/LOg79UJMDXopamBSR0Dj1e2/ + DP0575+5PzYAR+y/OoFUUUC45+AY5Nj7g7x7ugY9qy78Um/U//LzHwESgfeDCJTWYAiCdjx+UBSBsjW4 + 2yiZERh2BuIESgr93UqAVglg+Pwa5rNq/O5pT6N3mX+dbaenPstczHG7Va4JOpa3O//R+3yvMGhf/NUg + b95gnNQnwjydpTsYr3QqTkbuz1Xh08NIQHJ/KAAZBRBbioCY/8tlUwFZVILUYPjqtzGTcGpw+7h/CTqV + npHZBp/vDv131QgE9v/4F18dkJdviUC2Bh8yz7z0rhCB4bIQKgLdZSHx4SBOKsCQn+GrGD+JPBJ6Nu9X + o48TgNTwy8pr5LzM9bk1t+OYAhB8P6oRAH6BF4ko4GeIAl4W49dFI10qsOgTF50Atwz1wu4BIQDnhRWA + YcCYeKkDED4AjoDY5817KOg5uekXeEn+WzMVgWkzZ1si8F0Qge+ZBY+SCJxrsvuMk9bgpK3BKgHWSgAf + PhWnMOyXLjWW8qwD0BRAIwFdbMETjyE/Cb6cucch4V0Nkq9+0KY4Y2SpwcC7B0uqRCzI+HcYa4JOEwy6 + FxEFMQqYEaYEjAwkCkDpj1jrWLYh0EP0v2Nt0K2iJeTP/5Cpz6+/7y+IwISKSocI/MASgeGMwFs6FZlQ + EYjT2Z0ERIWazN9H2M5FkiJIwcMcdQDaWn9E/inDT0GP3SlAoq/7lDdQ0y+G4WfcAxz0qPgRyM69Er7T + AbQfjQhoXOgEsPJbIgFuIGIUQEfJbkByArlz38Eos21BpzF/wp6CGqeF+IKPq//2M41A2egxax9ctMQ8 + /3yCCMyVGYFVMiMwIgK1M1AXb/CBHACiiso8/hvzU55mjAA0CtAIgH8P89SQ4c+dezRoW7oyaDOiXtCk + f0bWpoO2hV8Lcmb/HunPkaD3rND428EJdBoP468K0wBuGmZqxGig17Tngq4TR8PwW/AZQJuzn9Z7po0h + E39eAYlAtAbvf/xx88nhD83OJ0IiMGlrcEu0BvPkpqGTkMrBg8krF6cTiTvlAKRLjd1nlgdgBKDhvra0 + 9pz2TpBdNDpoPjDjl01gj8DXg36zKkH4nRDWn+w/T36mAN2mHIIzOBh0mbAZRt8cKdJlmfh8+ns+iwiA + CPxOaiLwuSRF4DXNc8PTiKdTu3KEpQhZ++NUygFTPciy1HQQ2qaq+/E4IETq+iCxmM92HPtU0GpY+0w9 + 9VO9lUGXsf8II79Hcv/bJ72Pz+/HIJMpIES7owT6d+h1+Nbn3VFwFh8d/6PTBYFpM2b+YvqsOSc3RIrA + kAhs3KvKXJk93FzaBaFp21ITZI8wQQs0B/FjH4Sn4gBg1HlgqckDCENNHsBKUPl3RguMEDpPOBpkFc0K + Wg72wpRTPDjgQf4aMud/Rl7v6/fpYlzn+30ELQb9NGgxOOuG1vkfNRg41dw06A5Tr4DkHE545qDMRUlK + 3TbKBC0LTXArREG8ejECQK06ByHrQNSqhQewzT7M8yXcB3HF3DZ7+Dsw/Otx6v/t+Y6Hf30egYxCAEKT + d/+jfJNpWLnTlK84aEavPGgGLTwQjtqmUTMn7YzaNCOAlkVhBEAHQMKKaQB5gAEgqfi10qWGUJ8kH0tX + nSecCFoVboPhfzejQPU36xGoKQiA1HuBOv2Wc54Twx+59HVT8NCrYeMOBTpUo91eCQeAvL+V4wD4976I + EJQIpBNgKtAXDoEqtjajXg9aDCmpKTj41+kRyEgEgqEL13IcFffH5cx/xYxY+oYpXvy6uZyz5Mn49+eA + TbDS7ceYIGt4IgIgD9AbEUBfpgEw+j74vBccAiOD7OLlwa35f8hIQP1NewRqEgJB/r2DKd7hjPq+970M + 438NTuB1w0WSMgiEMtQeMGyq1LJHJvMA3eEYmAbcDqPvhighe8SRoNXQrijvnTcDOWvSe+Ffq0fgnCMQ + 5M6px9LdFVhb1f2+lyT8HwUH0GXei+GcOarQ2JvOkJ+nPolAlwfogsigM0qDWcVPBU1zfhY06fe5Vmqf + 8xv3v9Aj4BGAmqxH5W9RqjvGOv1/jVhl6pevM/VKV5rGY2yTCZl8pgEUp7hpQAsQgXQKbcuPB60K7vRY + egQ8AjUUgSCPacDDsTTgDdNoNtIA1vLZkuqmAYwAcF2cNeTDoOXQ9jX0tv3L9gh4BIgAxDzV0oASSQNe + SqQB1AJ0GG1+WrsHNAHDza+ua3f08qtu8Cy/f4Q8AjUdAaQBv8GU2XeZBtQtWWI6jl9helSuMaXzdpn8 + mZtMVv8q03XgaJN1+yDTuHVPc0PTLqZhg0bmmmuu2VTT792/fo+AR8BBYMKksDX4tdffwM7AIye3P/Gm + mThrkelfMN507DXEtGjX0zRt0cZk3dLQ1KpV64QHzyPgEUgjBMIZgUvMCy++ZE4e++Sl1986cnz+0o2m + qGyS6Zkz1LTp1MO0btXKZN/anBEArx+m0e37W/EIZDYCRcNHyLKQvZgRaE6eOHzo8NEmW7bvOT5+0hST + N2iYub1bd9M6O9u0uLWFue666+gAOmc2Yv7uPQJphMDA/Pzf3z3vPrNtxw7z0bHjxhw7uvul5581s2bN + MoWFRaZHz16m9W1tTbNbW5ob69ShA5ifRrfvb8Uj4BGYPiucEfju++8b/nkLS0Puve9+M6JklOndt79p + 0669OID6DRrSATzjEfMIeATSCAESgSu4NRhEIP8cOXrcLF66zJSOHmv65Q407Tp2Ns1atDSNbmlCItCk + 0a37W/EIeARGjx0nRODzL74sDuAErk1btpixEyaa3LxBpmOX202LVlmmSbOICPyeR80j4BFIEwRkWcgD + D5o9JALx59ixY2bvE0+YiqopZtCQYaZL1+5wANmmafMW5tqQCGydJrfub8Mj4BEYmD9IiMDtO3eaj46f + MMfhAF586SUDbsAMKyw2XXv0Mq1a3wYHcKu54cYb6QDu9qh5BDwCaYQAicANDz8MIvADcQBvvv2OmTvv + XlM8ssT06N3XtG7bHinAraZe/fp0AE+l0a37W/EIeAQqKicLEXjgtdclBTj08VGzaMlSM6p8tOmbM8C0 + ad/BNIUW4OZGjUkEHvOIeQQ8AmmEgBCBXBYCRSAdAKOAjZsfNmPGTzA5A/NMe1sJaNykmSoC/zqNbt/f + ikcgsxEoHlFSPH8hiMB9+yMH8Ni+fWZi5WSTN3iIVAJuRSWgcdNm5tprr6UTkG01/o9HwCOQBggoEbh1 + +3aE/59IBMDVYVNnzDKDhxVCEtzDtMxqLQ7g+htu8ERgGrzn/hY8AkkIzJg9x6zftNm8/d574gDeePMt + c/c980zh8BGmR68+JguVgFvgAG6qW88Tgf7Z8QikGwKTqqa8s3zlSnPg1deQBhw17x86bB4CLzC8pNT0 + 7MNKQDtxAPUa3Ewi8Gi63b+/H49ARiNQNmbsDioCn3vhBfPxRx+Zj3CtW7/BlI8dZysBHU0TaAEaNr7F + E4EZ/aT4m09LBAqKiqdwa/BekH8ff/yROXzokNmxc5cZXzHJDIAkuEOnLlIKbMieAE8EpuUz4G8qgxHA + 1uDGd91zr9m6bbuE/3QATzz1tJk8bbrJHzzUdL69m2mOpiBGANdfL0TgzAyGy9+6RyD9EKD8dyMUgQeh + BDxy+JA5cOBVM+fOu8xQzAbo2r2H9ATQAdxY5yY6gH3ph4C/I49ABiMwafKUd5atWGleOXBAIgDOBnhg + 4UKpBHTv1VsqAXQAdevV90RgBj8n/tbTFAHMCNy+cNFi8/Szz4oD+ABDQlavXmNGlpaZ3v36SyWgcZOm + pv7NMhyE1zfSFAp/Wx6BzEMArcFVnBG4+7E94gA+/OB9s3XrVpEE98tFTwCmA7EU2AAOgMNB4ABuzjyU + /B17BNIUARCBje6C+OeRR7fKiLD33n1HqgKTqiajEpCPnoBOMhikQcNGpnbt2ifhAKamKRT+tjwCmYkA + icB1GzdiRNhBcQAvvvSymTFzlhk0dBgqAV0xH7AF5gPebG64QWYD7MpMlPxdewTSFIGKyqq3li5bZl7A + UBA6ACoDOSR0SEEhpgN1My1athIOoM5NdZkGfJKmMPjb8ghkJgLlo8dsfeDBh8zjTz5p3n/3XfPWwYNm + +fLlpnjESPQE9DatslvLXABWAjwRmJnPiL/rNEYAJb9J83Di78CIsHdRBnz7zTfNJjQJlWI4SO8+/bAn + oI25GRyALQV6IjCNnwV/axmIQN6gwTffcfdcswkDQV4/+KZ5843XRRI8bkKF6ZeTa9qgFMgR4XQAGBLq + icAMfEb8Lac5AtMwB2DV2nXmpVf+bA6+/pp56umnTdWUqUmVgLr16pna11/vicA0fxb87WUgAhMnVR18 + aHEoCGIE8PwLL5q77roLPQGYDtQZTUHoCrwJEQCnBIMI/DgDIfK37BFIXwTKykdvuX/+ArNn7z5EAK+b + P7/8snnooQfNUFsJuBVNQSwF2p4ArwhM30fB31kmIlA8fMT4uzEW/JFHHzWvv/qqOfDKy2bN6tVmBMaE + d+vR07TEfEA6AFsKpAOonYk4+Xv2CKQlApgRWJ9dgOvWrzev/PnP4gC2bHnEoERoevYOx4OxEsAIAENC + SQROSEsg/E15BDIVAZJ+y1D/f/a5580rL71o9jz2mJkwcaLpi6ag29q0NY3QFVgHDgCSYEYA2zMVJ3/f + HoG0RGD8xImvLsCo8H3795k/QxX45FNPmZkzZ5rcgdgY3B5NQegKrHMTHAAqASACj6QlCP6mPAKZigCE + P+vnzptnduzYYV5+4Xnz3DNPm/vuu8/kDxpsOqApqGkzTgiuqz0Bfm14pj4o/r7TE4Gi4uFls8EDbNiw + wbyIQaHPP/uMWbZ0qSkoRE8AmoKat2gBMVC9yAEgDbg6PZHwd+URyEAEBgzMq8MuwBUYFf7MM8+Y555+ + yqxbu9aMHDnSdOuGleFsCqrfAItCqAXwRGAGPiL+ltMdgYrKSvPgQw+Z/ZgJ8Cw4gK0oC45mJYDjwbKz + MRgkbAuGJNgTgen+MPj7yzwExowb/+K9995rdoIHeObJJ8yuXbvM5Koq07cvmoLatDENGzUSNeB1YSXA + E4GZ94j4O05nBEpGlS6fPecO8/DmzYgAnjT79jwGSfCdJnfAANO2HeYDoinoxjp1tCfAE4Hp/DD4e8s8 + BIYVFhZPmz7drAYP8MT+/eaJvXvMAwsWSCWgY6dOphnGg4WlQNkTwMsTgZn3mPg7TlcEcgfmXVc1eYpZ + BB5g7549Zj8igOXLlppCVAI6d+limrEpCJOB6ACgBaAisDRdsfD35RHISATGjBuHkWD3me3YGLT/sd1m + E8qCJSUlpjsXhbREUxAqARQDQRLMCGBLRoLkb9ojkK4IjCote/LOO+4wm8ED7Nu9yzyKSsDECRNMr169 + okoAV4VdF1YCDqUrDv6+PAIZiUDx8OELpk6dJt2Ae+EAdmzbZmbNmIGegH7mNowHa4T5gNffcIP2BJzM + SJD8TXsE0hWBwUOG5lVCD7Bk0SKzG3MCd2/fZubdc48ZgJ4AVgJuYSXgxjpaCmQU8J/pioW/L49AxiHQ + LyfnyvEI+efff7/ZtvVRsxPXYgwHGTyYPQEdQQQ2D4nA2tIURCJwRMaB5G/YI5DOCIwaVWruvBN6gE2b + zK5tW6UsWFxcjJ6A282t6AmoV79+6ABCInB9OmPh780jkHEIDB8xcvf06SEPsOPRR8wGDAoZN2aM6d6j + B6YDtTINMB2IlQBLBL6fcQD5G/YIpDMCwwoK76jAMJBlS5aY7Y9sMY88vNlMnTLF9MZ0oNatW5uGmA7k + icB0fgL8vWU0AgPz8nuNGTvWLLj/PrMVDmDrw5vM3Xfeafrn5Ji2XBl+yy1hT8B10hPgicCMflr8zacd + An369v19WVmZufvuu83DWBz66OZNZuH8+SYvL8906NDRNG2K6UAYD0YH4InAtHv7/Q15BL7ylSKQfrNm + TDfrwAMwAli+dIkpKCgwXSAJbs5KAKYDsSvQKgI9EegfGo9AOiEwrKDg0cpJFWYFNgc/smmDWQtHUI6o + oFs3bgxuGVUC7GyAD9Pp3v29eAQyHoG8/Px5Y8H8P7TwATiAjWbT+nWGDkElwUIEJiTBXhGY8U+MByCt + EOjXr19ueXk5VIBzzeaNG8wWXHfOmWPw76YNhoMoEUg9gCUCf5NWAPib8QhkMgI9evS8dsSIEWbO7Nlm + A2YDbtmw3sxHl+BASILbt+9gmoAIlOEgCUXgkEzGy9+7RyDtEBg6dKiZOrnKrFqxXBzAUiwQHTZsmOnU + ubNpfitmAwgRGCkC16QdAP6GPAKZjMCgwYP3TJo4QRqDHoYDWL1yhSkrHWW6du0mikCZDQAHYInAdzIZ + K3/vHoG0Q2DAgAF3kAd4YP794gDWr11jJkEh2LNnT5OVlR0qAj0RmHbvu78hj4Ag0KdP394l2Atwz913 + oQqw3mxGJWDOrFmWCGxrGmNfoDMlmGTgLz10HgGPQJog0K1796vYBTgbOwLXrl4FB7DW3I+x4SER2F6I + QA4JpSDIKgI9EZgm772/DY+AIDBkyBAztarSrMCaMEYAizEwdBjIwc6WCKxbt17oAMLWYE8E+ufGI5BO + CED/v3vi+HEyFIQRwGpUBEpHkQjsalpySGiDBqEkOJwR6InAdHrz/b14BHJycmaWlZaaBdAAbF631mxY + t8ZUVoAItENCb27Y0BOB/jHxCKQrAugM7MEFoXOxIYiCIDqBObNmChF4GxWBJAKxL9CuC/NEYLo+CP6+ + MhMBNP/8qaioUCYDkwh8GDyASwRGrcEJIrB/ZiLl79ojkKYIcCDo5MpJERG4hEQgFIEdMSS0ObYFCREo + swGECFyWpjD42/IIZCYCIAJ3uUQgpcFJRGDytqC3MhMlf9cegTRFIDc3d0YpJMDz77tXUoD1a1YnFIHZ + 2UaJwGuvlUrAiTSFwd+WRyAzEejdu3f3kegMFCIQJCBnA6giUIhAzghMJgJ/nJlI+bv2CKQhAiAC/1iE + DcEkAtesskTgvHkmz1UEckZgggjsnYYw+FvyCGQuAkNIBFZVYUQYFYFrTYII7CTbgurWs0RgqAhcmLlI + +Tv3CKQhAtD/R0QgeYCVy5cJEXg7FIGyNhyKQGkNDh3Am2kIgb8lj0DmIpCbkzOjrKzUPIBdAaIIXENF + YEXYGuwSgaEk2BOBmfuo+DtPRwT69OljicC7zMZ168wmKgLRJSiKQK4Nb9w4JAITy0I8EZiOD4K/p8xE + IBUReB/WhketwU2ahMtCQARec41sDfZEYGY+Kv6u0xUBIQIrK81KEIHkAdghyLmBHTt2SigCpRLgicB0 + fQb8fWUwAsmKwHVmFYnAkpHSGpyCCDyYwVD5W/cIpB8CVASWKxGIUiAVgRUTJggRmO2JwPR7w/0deQRc + BJQIvPsuEoFQBIIMnD1zRmJGoG4NFh5Atgb/0CPoEfAIpAkC3bt3DxWBMPq1UARSEHQvNgeRCGynMwKV + CKwlRGDnNLl1fxseAY8AEWBr8BTMCCQRKDMCH3xQZgR26mQVgWgNlm1BoSBovkfNI+ARSCMESAROGDdW + pMAUBK1ajtZgJQJbuIpAEQS9lka37m/FI5DZCEybMfPrmBE4YzTWhIsiMEYERorAG25QQdDxzEbM371H + II0QgAP4at++fUURyGUhqghUIpCtwaIIvDFJEfi9NILA34pHILMR6N69xx85IzBcFrJa0gASgVgjFm4N + boJlIQlFINOAdpmNmL97j0AaIYAo4NshEVhVXREIIrC5bQ12OgM9EZhG77+/lQxHAA7gZy4RSEmwKAJH + lZjbb4cisEWLxLKQsBLgicAMf2b87acRAnAAP6QicHS5JQKRAriKQCECb8ayEBCBdkagJwLT6P33t+IR + +Erfvv16ChEoisB1ogqcNX26AUEoy0Ki1uCEItATgf658QikCwKDBg9pU1xUJETgOtkavM7cO9cqAtu1 + C7cGJxSBTANap8u9+/vwCGQ8AkgDboyIQOT/4dbgUBHYUYhALgupG20Nvuqqq+YBtO/g+oG9vouPf5nx + QHoAPAI1EQE4gFr5+fm7JmBrsCgCIQhauSwkAqU1GIrAevXrm9rXhzMCr7zySs4IvBJXPVwt7FULH32z + UE18APxrzmwE4AB+gQageUIEzr8/WhaircFZWVmmIbcGW0UgIgASgWwM4t7AQlyjcVXg6oCL0YD/4xHw + CNQkBAYNHvxgCbYG33P33aEiEGlARAS6MwItEfj1r3+9HPc3HtdUXLNxzbUfL69J9+1fq0fAIwAESkaV + 3svWYK4KZ2sw9QCqCGxnicAb69QRHuDqq682F1xwwSZr9Pfj4wJ70Qlc7QH1CHgEahgCEyomjRkyZIiZ + MhmKQBCB7oxAtga3bNnKNGrU2NTn4lC0BwdB8BhucbG9FuHjA7iYCvy8ht26f7keAY8AeIBGUAS+ztbg + RQsfMHfOmSNVAJKAHbA2nINCWRHQz7/3ve/tB2obcC3H9aAN/5t5JD0CHoEaiIAQgXn5zw3IzQ2NXYwe + F4w+/Dw0/qysbPPrSy55D7f4OK4tuJbhugNXF1wsDfo/HgGPQE1EoFv37lvU+MOTPjT8Zs2anQTzf+yX + v/zlYdzX67hewfWUdQBz8JEdgt+viffsX7NHwCOQQOCXP/jBDyZfdNFF6372858f/u53v8ty3ye43sH1 + Fi6OBj+A61lcO3CxAlAb1zc8iB4Bj0DNR4AhfCdcM3C9gOsoLp76b+B6FddLuJj7M+xvi+ufcH2t5t+2 + vwOPgEdAEaATYC2fAh+e9LuswbPUV4KLCsAAl5f++mfGI5CmCHwV9/VtXJfguhDXxbg0zPcnfpq+6f62 + PAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgE + PAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHwCHgE + PAIeAY+AR8Aj4BHwCHgEPAIeAY+AR8Aj4BHIXAT+PwYoL4XL7Gt9AAAAAElFTkSuQmCCACgAAAAwAAAA + YAAAAAEAIAAAAAAAgCUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABmZma9WVlZ80A/P+4AAAAdAAAABgAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACTk5P/Pj4//w8PD/wAAAC4 + AAAAfwAAACoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHFxcSmampzt + hYSG/0ZFROAdHR2EAAAAgwAAAIIAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAHV1doCrrK/7dHR0/0NCQtUlJSRLAAAASwAAAE4AAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAHh4eKi1trn/ZGRk/0JCQcMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIODhLuysrb/V1ZW/kRDQ5sAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIyMjcqgoKL/TUxM7kVERDcAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaWl9+Ki4z/ + R0dG2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + dXV0WJ6foPRzc3P/RURExQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAd3Z2r6Slp/9hYGD/Q0NCtgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh4aGyampq/9UUlL+RENDnQAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnJyc2KWlp/9KSkn5RERDbQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9fHsGsLCx5ZmZm/9FREPn + RUVEEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJiIYy + v7/B8YWEhf9DQkLRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACKiYiEw8PE/HBvbv9DQ0KzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACRkI69vr6+/19eXflGRkVvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmpaPWtLS0/1ZVVO9ISEckAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIqJhyS7urnspqWk/05NTORLSkkG + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAImIhnfV1dL6 + lZSS/0tKSdkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAI6Niqbr6ur+goF//0xLScoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAKCenLvq6un/cnFu/01MS68AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKmnpsja2dj/ZGNg9lBOTVgAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALu/wNvAwcH/W1pY4AAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqX86qNm/qfWbhXX/ + WlROyQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACfcBkG + wI0c4NedU/+VZxn/h2AZ6YRcGXIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACndBkNxZRR5suYW/+LXRn/lWoZ/6p5Gf6NYhmId1QZBgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArZ+X19/Itf+cdUP/qXgZ/7+IGf/Mjxn/pncZwYpiGUMAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAk2wZCZxuGZuVaRmu + mWwZaZxuGQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcmIGxb+74tzFsv+ugUX/voUZ/8CIGf/TlRn/ + 2JkZ/72FGe6bbhlvkGcZEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + rn4ZbrV/Gf+fbxn/uYEZ/7eBGcyqehlWtIMZBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACOjYse0MvI7q6LdP+1ghn/ + vYUZ/72FGf/DiRn/zpIZ/9SVGf/Pkxn/sH0Zz5JoGUEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAxIsZx8uPGf+peBn/tYAZ/8eLGf/IjRn/xo4Zp8mSOBMAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJiol5 + 0MS8+Z12XP+5gxn/u4MZ/76HGf/IjRn/0Zch/9CVG//NkRn/0pQZ/8KIGfeoeBmok2gZKgAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACxgBlR15kp+tSYGf/Eihn/uYIZ/8aLGf/MkRn/yo8Z/9KXGcvUm0cf + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACUlZK2yrar/5JrTP+6gxn/vIUZ/8CIGf/Ljxn/2pw6/96iT//Qly3/y5EZ/8yRGf/Pkhn/ + uIMZ455wGXOPZhkcAAAAAAAAAAAAAAAAAAAAAK1+GQ7LkRnT3qBD/92fRP/QlBn/wogZ/8yRGf/Zmhn/ + 0pYg/9SXGf/XmSnLz5c9GgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACkpKLR2sWz/6aBWf+7gxn/vYUZ/8OIGf/QlBn/255B/96hTf/fok// + 2ZxF/8uTGf/Fihn/zI8Z/8uPGf+4ghnolmsZZAAAAAAAAAAAAAAAALGAGU/Zmhn/3p9H/9+jUP/bnT// + zJEZ/8mPGf/cnTr/4KNR/9qdRv/SlBn/z5UZqcmUNgEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIGAfQ21tLPjtpyL/6Z/UP+9gxn/vYUZ/8aKGf/Ulxn/ + 3qFJ/9+jTf/en0v/3qJH/9yeQP/NlB3/xo0Z/8eLGf/Ljxn/wogZ/6l5GbKUaRlMlGwZFb6IGarVlxn/ + 2psa/9yeNv/cnkD/15gZ/8mPGf/bn0j/36NT/9+jUf/Slxz/y48Z/8iRGW8AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAISDgWHMysj3p4l3/65/Pf+9hRn/ + v4cZ/8mPGf/XmSr/36NN/9+iTP/eoEn/3Z5B/9yfPf/dnzr/2psm/86TGf/Hixn/y48Z/8uPGf/Fihn/ + s38Z372FGf3Ljxn/zpIZ/9OVGf/Ulhn/0JQZ/7yFGf/YnEv/4KNT/9+iTP/bnT//yI4Z/8WLGejDjhkV + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJSUkZvf2dX9 + m3li/7aDGf+8hRn/wIgZ/8uRGf/anDr/36NN/9+jTP/eoEn/3Z9B/9ucO//bnDH/2psd/9maGf/Tlhn/ + zJEZ/8iNGf/Jjxn/yo8Z/8OJGf+/hxn/u4MZ/7mCGf++hRn/tH4Z/657Gf/dolL/36NQ/92fQf/cnTD/ + z5UZ/8SKGf/DixmovIoZAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAJqcm7bf0cn/lW1O/7qCGf+9hRn/w4kZ/9GVGf/dnkb/36NN/96fS//dn0f/3Z5A/9yeOf/amy3/ + 2ZoZ/9iZGf/Ylxn/1ZYZ/82RGf/Gixn/xIoZ/8WKGf/IjRn/xYoZ/7V/Gf+fbxn/kmYZ/76JJf/doEn/ + 15o7/9eZMf/amxn/2ZkZ/8uPGf/Eihn/vooZNAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAKuelsTSwLX/sYZW/72FGf+9hRn/xosZ/9SYGf/eokz/3qJM/96gSf/eoEb/ + 3Z49/9ucN//anCH/2ZkZ/9iZGf/Xlxn/0pUZ/86SGf/Jjxn/wIgZ/7mCGf+5ghn/vIUZ/7R/Gf+baxn/ + r3sZ5tWZGd7QkxnxyI4Z/sKJGf/FjRn/0ZQZ/9CTGf/DiRn/wosZfgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArnoZrMydZvG6kGD/oHQZ/7yFGf+/hxn/yo8Z/9eaL//fo03/ + 3qJM/96gSP/dn0T/3J0+/9ucM//Zmxr/2JkZ/9iXGf/UlRn/0JQZ/8uPGf/Fihn/vYUZ/7aAGf+qeBn/ + oG8Z/5RnGf+HXRnKrn8ZHsWQGw/AjBkfvIcZQr2HGXi/iBnew4kZ/8iOGf/Kjxn/w4oZ3r6KGRYAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsoAZ0dmgWf+gbRn/hFkZ/7N/Gf/CiBn/ + zpIZ/9qcPP/fok//3qJM/96gSf/cnkD/3J07/9ucLf/Zmhn/2JkZ/9WWGf/TlRn/zZEZ/8eNGf/CiBn/ + uYMZ/7B8Gf+ldBn/lmkZ/4hdGex6VhktAAAAAAAAAAAAAAAAAAAAAAAAAAC6hhkbvIcZl8CIGe7HjRn/ + xYoZ/8CLGWkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAg146q76rn/6hfFP/ + kmkZ/7WAGf/Hixn/z5QZ/92fR//eok7/36FK/96gSP/cnj//3J03/9qbIf/ZmRn/15cZ/9SVGf/RlBn/ + zJEZ/8WKGf+9hRn/tH8Z/6l3Gf+cbBn/jWEZ/3xWGXsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAALiFGT3DiRnqxooZ/7+JGaEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + mZeWwt7f3/97dG//fFk5wryDGcnSlRn/z5MZ/9KXL//go1H/36NM/96gRP/cnT3/250z/9mbGf/YmRn/ + 1ZYZ/9KVGf/Okhn/yI0Z/8CIGf+5ghn/rXoZ/6FxGf+SZhn/hFwZoHlWGQgAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAC2hBkpwokZ1cOKGde3hRkDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAl5eVzsvLyP9paWb/Z1lOgrSEGQfNkxmT05YZ+M+SGf/PlST/2ZxE/96gRv/cnTv/ + 25so/9maGf/YmRn/1ZYZ/9CUGf/Ljxn/w4kZ/7yFGf+zfhn/pnQZ/5hqGf+IXRnqfVgZIwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtoQZOL+IGcGufhkZAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfXt5Mn99erVcWle9Sk1NHgAAAAAAAAAAy5MZUtCUGePRkhn/ + yY8Z/86UJv/bnDn/2psm/9mZGf/Xlhn/1JYZ/82RGf/Hixn/v4cZ/7aAGf+reRn/nGwZ/41hGfx7VhlJ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALaEGR2xgRkP + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAMeRGSTLkRmWzpIZ/8iOGf/GjRn/y5MZ/9eYGf/Xlhn/0ZQZ/8uRGf/Eihn/u4UZ/7F9Gf+icRn/ + k2YZ/4JbGZsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxI4ZasaNGczGixn/v4cZ/8SKGf/Jjxn/yI4Z/8eNGf+/hxn/ + t4EZ/6l3Gf+Yahn/hFoZzHZTGRgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL2KGQm/iRlvxIoZ58WKGf/Eihn/ + vocZ/7eBGf+yfhn/qHcZ/5lrGf+GXBn/fFcZTQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + u4cZHr6JGVnAiRmoxIoZ7sKIGf+/hxn/s34Z/51uGe6IYRlzhWAZBwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuYUZJryHGV67hRl8q3sZc5VrGTAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAD//g////8AAP/+B////wAA//wD////AAD//AP///8AAP/8P////wAA//w/////AAD//D// + //8AAP/8f////wAA//h/////AAD/+H////8AAP/4f////wAA//h/////AAD/8H////8AAP/w/////wAA + //D/////AAD/8P////8AAP/w/////wAA/+D/////AAD/4f////8AAP/h/////wAA/+H/////AAD/4f// + //8AAP/j/////wAA/8P/////AAD/gf////8AAP+Af////wAA/8A//g//AAD/gA/+A/8AAP+AB/4B/wAA + /4AB/AD/AAD/gAB4AH8AAP+AADgAPwAA/wAAAAA/AAD/AAAAAB8AAP8AAAAADwAA/wAAAAAPAAD/AAAA + AA8AAP4AAAAABwAA/gAAAD4HAAD+AAAAf4cAAP4AAAB/wwAA/gAAAP/jAAD+GAAB//MAAP/8AAP//wAA + //8AA///AAD//4AH//8AAP//4Af//wAA///8H///AAAoAAAAIAAAAEAAAAABACAAAAAAAIAQAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBuSHd3d/1QT0/2 + AAAAZgAAABsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6enuT + mZmb/z4+PfMAAACvAAAAhgAAAC0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAIqKi7iQkJL/PDw7ywAAAEAAAABcAAAAOwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAlZWXxoGBg/87OzqqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACbm5zYampq9zs6OlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdHNyBpiYmvFVVFTjPDw7BgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9fXyXl5eZ/0ZFRNUAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJSTkrmUlZf/PTw8yAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAp6amyIiHiP87Ojqw + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0s7PZ + cnFx+Ds6OnIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + kZCNRLS0tO1eXVzoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACYl5OQu7u5/VJRT9kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAKSjoba6ubf/SEdGygAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAubi2xq6rqv9GRUO2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADHyMjVkpKR/UNFRW0AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApXQZZ97HsfJ1bGXlXT0eDQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC7gxnGyo0t/4laGfePYBnB + e08ZBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL+WasLNqor/ + nGkZ/8GFGf+mcRmvjGAZJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJtoGWmXZhlj + oG4ZDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + tq+pxte4of+6fhn/yYgZ/9+ZGf/Ehxnmnm0ZZpZmGQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0fhlI + t3wZ/LB2Gf/AghnTuoEZVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAC7ubfWx5tz/71/Gf/Ehhn/05IZ/9uYGf/TkBn/uH4ZvJ1rGT0AAAAAAAAAAAAAAAAAAAAA + AAAAAMmNGaTWkxn/vIAZ/82MGf/Rjxn91pcah9ibPwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAj5GQP7qwqOm6i1v/wYIZ/8iHGf/emhv/46BG/9iYHf/TkBn/yIgZ96x3GZiWZxku + AAAAAAAAAAC3gBk/46Ax/+akPv/Pjxn/0ZAZ/+GeJv/emhn/2JgjhgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACMjYuKwLCm+LSESf/Cghn/y4oZ/+CeL//npUj/56RH/9qZKv/Pjxn/ + 0Y4Z/8KFGeypcxl2kmQZFcCGGZvhnhn/5KE9/9+cGf/Tkhn/56VN/+OhRP/UkRn/zZEZUAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKGiobXbxrT/tH8p/8ODGf/RkBn/46A//+ekR//moj// + 5KA4/+GeJf/Wkxn/0pAZ/9CPGf/ChRnww4UZ+8yKGf/Qjxn/0Y8Z/8OHGf/nplD/56RG/9eWGf/JiRnW + w4oZEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtLm6xNi4nv+6fhn/xIUZ/9eVGf/npUX/ + 5qJE/+ShPf/joC7/4p4Z/9+ZGf/blRn/0Y8Z/82MGf/Kihn/yIgZ/7l+Gf+hbBn/wYgZ/+ekRP/fnSz/ + 4ZsZ/8+NGf/EiBl+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALB3GRjSuKLaxJpy/71/Gf/IiBn/ + 3poj/+ekSf/moUL/5KA5/+KfKv/gmxn/3pgZ/9uXGf/SkBn/yYkZ/7uAGf+6fhn/pm8Z/6FuGczTlRmc + zY4ZvcSHGeLPjhn/1JEZ/8mJGc7DihkLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtHwZsMyQOf6SYBn/ + tXwZ/82MGf/hnzb/56RJ/+ShQP/jnzf/4p0m/+CaGf/clxn/15MZ/82MGf/ChRn/tHoZ/6BsGf+CVRne + mmsZHQAAAADBiBkBwocZHsKGGYvJiRn1zYwZ/8SKGVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPcFmX + 1MCu/pJrNvW7fhnz1JEZ/+GfP//npUv/5KA9/+OfNP/hmxn/35kZ/9uVGf/SkBn/yYkZ/7uAGf+ocBn/ + kV8Z+nZOGVMAAAAAAAAAAAAAAAAAAAAAAAAAAL2FGTrIiBnsxYgZowAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAKCio7K6v77/ZVpRybyFGTralhnm15MZ/9+eOv/koT7/4p4s/+CbGf/emBn/15IZ/8yKGf/Bgxn/ + sXgZ/5pmGf+BVhmPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuFGTnBhRmlAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAgH58Hnl2c6lHS0taAAAAANOTGR7Tkhmy0o8Z+9STGf/bmRv/4JoZ/9uXGf/SkBn/ + yIgZ/7h9Gf+jbhn/hlgZyHpSGQsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALmCGRO0fxkF + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPkBlqzIoZ48iIGf/Qjxn/ + 0ZAZ/8qKGf+/gRn/q3MZ/45eGfN2Thk7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCiBkQ + xIcZiMiJGdrHiBn7wIMZ/7R6Gf+aZhn/flUZfgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAwocZEsSIGU7EhxmUu4AZppZmGWCFWxkFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP+D////gf///4H///+P////j////w////8f////H/// + /x////8f///+P////j////4////+P////j////w////8H////A/4//wD8H/8AfAf+ABgH/gAAA/4AAAH + +AAAB/AAAAPwAAED8AAD4/AAB/PxAAf5/8AP///gH///+B//KAAAABgAAAAwAAAAAQAgAAAAAABgCQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBgYLSXl5czlVVVI9VVVRN + VVVUEVVVVAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIKCg1qNjpHrSkpJ0VVVVJ1VVVR+VVVUMlVVVAMAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJSUlZKIiIrv + QUBAuFVVVEpVVVRdVVVUIlVVVAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAImJirN4eHjwPTw8glVVVAFVVVQBVVVUAQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAImJic1mZmbrOTk4OwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkpGRE5mZmd5YWFjfODg3EwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAApaWlUJ6en+lPT07OAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnZyajJWUlPJEREK1 + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApKOgt4qJiPVHRkWXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + tbSzyoKBfu1EQkFyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwL272XJ0dd4AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACnchlhsZmI7GdYTcgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC9iSa0uIVA/ZJjGemLWhmj + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKh1GQeUZRkPn28ZAQAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACwl4azxaF//Lh8Gf/GiBn4p3MZfpdoGRMAAAAAAAAAAAAAAAAAAAAA + AAAAAK54GWKibxnFrHcZasSKGQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwsbPB + yZ94/79/Gf/Ukhn/2JYZ/7yBGcWlcRlPo3EZAgAAAAAAAAAAs34ZFMqPGcnEhhn/xocZ/9CQGbPXmjce + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACqo57Vv49Y/8GCGf/WlRn/5qNF/9uZGf/Kixn4 + sHkZpqJwGTYAAAAAt4IZYuWiPf/YmRn/1JQZ/+GfLP/XmB29zZEZFAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAJOZm0ivo5vmu4hC/8WFGf/bmSj/5qRN/+KhQf/ZmRn/1ZIZ/8SGGeesdxmSwIUZzdqYGf/ZmBn/ + 0JIZ/+inU//ZmRn/yYwZigAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKOGcYq9raPvvYMZ/8qKGf/gnzj/ + 5qRI/+OgO//inyr/3pkZ/9aUGf/Qjxn/yosZ/8WGGf+yeBn/w4ob/+WiQf/dmhn/zY4Z7cGKGTkAAAAA + AAAAAAAAAAAAAAAAAAAAAL+LT73Al2v7uX4Z/9GRGf/lo0X/5aNG/+KfNf/gnBn/3pgZ/9aSGf/Kixn/ + vYEZ/6tzGf+cahnDyY0Ze8qMGZvIixne0I8Z/8aKGY0AAAAAAAAAAAAAAAAAAAAAAAAAAL+TYdaldzT/ + tHkZ/9qYGf/mpE3/5aJB/+GfLf/fmRn/2ZUZ/9CPGf/DhRn/rnYZ/4ZZGd6OYhkwAAAAAAAAAADAhhko + xYcZrciLGdvJiBkkAAAAAAAAAAAAAAAAAAAAAKiqqNeBc2nht4IZx9uXGfLenDP/46FA/+GeJ//emRn/ + 1pIZ/8mKGf+4fRn/mmcZ+XlQGV4AAAAAAAAAAAAAAAAAAAAAvIUZC76FGYm8gxk9AAAAAAAAAAAAAAAA + AAAAAIGCgIdaW1qCAAAAANSRGUzSkRnN0pIZ/9iWGf/alhn/0JAZ/8CEGf+mcBn/glcZmQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAALmDGQu1gRkMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPkBkd + xogZgsaIGeLNjBn/xIYZ/7B5Gf+MXhnTdE0ZHwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAw4gZAsOHGSfDhxlnw4cZqap0GaaFXBk6 + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP4H/wD8B/8A/Af/APwP/wD8f/8A + +H//APj//wD4//8A+P//APj//wD5//8A8f//APD+PwDwPh8A8AwPAPAEBwDgAAcA4AADAOAAAwDgAGEA + 4ADxAOQB+QD+Af8A/wP/ACgAAAAQAAAAIAAAAAEAIAAAAAAAQAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACurawCqaio/5iXl/COjYwDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAwcHBFauqqf+RkI+9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAMbFxUqwsLD/jo2MhwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAADGxcWkpaSk/46NjFEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwsLC85qZmf+OjYwYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxsXFBbu7u/+Yl5fkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMbFxSC6urr/kI+OrgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDw8NftLCs/42CdYAAAAAAAAAAAAAAAAAAAAAA + mGsZDnpWGTCUaBkMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwcDAwrSdg//CiSPUhl0ZRgAAAAAAAAAA + AAAAAJJpGUeXaRnmlWkZoKt6JiEAAAAAAAAAAAAAAAAAAAAAAAAAALy8vPzNqm7/5aEy/9WVHfWRZhme + hFwZKphrGQyjdiSnzZAf/8WKHf+xgCS7q3obHQAAAAAAAAAAAAAAAMbFxQu4trP/0Z9I/+akSP/joTr/ + yYwb/6VzGd6SZxmuwIcb8NCRGv/LkSr/0ZU1/6JzGZCsfBkCAAAAAAAAAADGxcUvubi3/9iaMv/npUn/ + 46A1/+CcHf/UkRn/wIYZ/7uAGf+SZBnooXEexrJ+IemreBn6nXEZMgAAAAAAAAAAxMPDcravp/3ioDP/ + 56RK/+KfKf/emRn/1JEZ/8GEGf+HWxn0clAZUah2GRmdbxkvnm8ZraJzGZWkcRkfAAAAAKyrq6uto5X2 + 3JomxN+eNu7gnCL/25UZ/8uMGf+gbhn/USoAhgAAAAAAAAAAAAAAAKd2GRaVahlmlmoZMQAAAACcm5uO + n56d7Zh8SG6jchm7s30Z/8CGGf+weRn/dlEZwkwmABgAAAAAAAAAAAAAAAAAAAAAAAAAAKF1GQQAAAAA + AAAAAI6NjBsAAAAArHgZF5psGVecbRmii2EZsFAsADIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + 4f8AAOP/AADj/wAA4/8AAOP/AADH/wAAx/8AAMePAADDhwAAwAMAAIABAACAAQAAgAAAAIA4AACAPgAA + 0H8AAA== + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.vb b/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.vb new file mode 100644 index 0000000..21a561b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Constructor_OLD.vb @@ -0,0 +1,2459 @@ +Imports DevExpress.XtraScheduler +Imports WINDREAMLib +Imports System.IO +Imports DevExpress.XtraGrid.Views.Grid +Imports System.Text +Imports DevExpress.XtraTreeList +Imports DevExpress.XtraTreeList.Nodes +Imports DevExpress.XtraEditors.Repository + +Public Class frmForm_Constructor_OLD + 'Private Shared _Instance As frmForm_Constructor = Nothing + 'Public Shared Function Instance() As frmForm_Constructor + ' If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + ' _Instance = New frmForm_Constructor + ' End If + ' _Instance.BringToFront() + ' Return _Instance + 'End Function +#Region "+++++ Konstanten und Variablen +++++" + Private CONSTRUCTORID As Integer + 'Private akt_ctrl As Control + Private FORM1_ID As Integer = Nothing + Private ACT_EBENE As Integer = 0 + Private ACT_EBENE_STRING As String = "" + + + Private EBENE1_ENTITY As String = Nothing + Private EBENE1_COLUMNNAME As String = Nothing + Private EBENE1_GRID_RESULT As String = Nothing + Private EBENE1_RECID As Integer = 0 + + Private EBENE2_PARENT_ID As Integer = 0 + Private EBENE2_ENTITY As String = Nothing + Private EBENE2_COLUMNNAME As String = Nothing + Private EBENE2_GRID_RESULT As String = Nothing + Private EBENE2_RECID As Integer = 0 + + Private EBENE3_PARENT_ID As Integer = 0 + Private EBENE3_ENTITY As String = Nothing + Private EBENE3_COLUMNNAME As String = Nothing + Private EBENE3_GRID_RESULT As String = Nothing + Private EBENE3_RECID As Integer = 0 + Private EBENE_SQLRESULT As String + + Private DT_CONSTRUCT_VIEW As DataTable + + Private DT_SELECTION As DataTable + Private thisFORMVIEW_ID As Integer + Private _windream As New ClassWindream + Private SelectedRecordID As Integer + Private EDIT_STATE As String = "none" + Private RECORD_CHANGED As Boolean = False + Private RECORD_NEEDS_REFRESH As Boolean = False + + Private PARENT_RECORDID As Integer = 0 + Private act_ParentEntity_String As String + Private act_PKEntity_String As String + 'Private act_ParentGridView As DevExpress.XtraGrid.Views.Grid.GridView + ' Private act_GridView As DevExpress.XtraGrid.Views.Grid.GridView + Private act_FormViewID As Integer + + + Private Record1_ID As Integer + Private Record2_ID As Integer + Private Record3_ID As Integer + Private insert = False + Private windream_Docshow As Boolean = False + Private FOLLOW_UPisActive As Boolean = False + Private WD_Suche As String + Private SP1 As String + Private SP2 As String + Private SP3 As String + Private SP4 As String + Private SP5 As String + Private FormLoaded As Boolean = False + Private vFormClosing As Boolean = False + Private dataloaded As Boolean = False + Private SaveRoutine_Active As Boolean = False + + Public Shared windream_temp_search + + Private CheckBoxEditorForDisplay As RepositoryItemCheckEdit + Private DocView + Private OpenedFileString As String + Private DocViewString As String + + Private DT_FU_Record As DataTable + Private DT_FU_ENTITY As DataTable + Private FOLL_UP_RECORD_DEFINED As Boolean = False + Private FOLL_UP_DATE_CTRL_ID As Integer + Private FOLL_UP_DONE_CTRL_ID As Integer + Private FOLL_UP_ID As Integer + 'Private Shared _Instance As frmFormInput = Nothing + 'Public Shared Function Instance() As frmForm_Constructor + ' If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + ' _Instance = New frmForm_Constructor + ' End If + ' _Instance.BringToFront() + ' Return _Instance + 'End Function + +#End Region +#Region "+++++ Mouse/Key Events +++++" + + Private Sub frmForm_Constructor_HandleDestroyed(sender As Object, e As EventArgs) Handles Me.HandleDestroyed + + End Sub + Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown + + End Sub + Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp + + End Sub + Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove + + End Sub + Private Sub frmForm_Constructor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + vFormClosing = True + Check_Record_Changed() + SaveLayout() + CloseWDDocview() + ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR") + End Sub + +#End Region + Private Sub SaveLayout() + Try + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "FORM_CONSTRUCT-Splitter-" & CONSTRUCTORID & "-UserLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting) + 'settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterPosition)) + ' settings.Add(New ClassSetting("SplitContainerControlDetails1", SplitContainerControlDetails.SplitterPosition)) + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + settings.Add(New ClassSetting("TreeViewEbeneSelect", TreeViewEbeneSelect.Size.ToString)) + 'settings.Add(New ClassSetting("GroupControlSelection", GroupControlSelection.Size.ToString)) + layout.Save(settings) + + Catch ex As Exception + MsgBox("Error while saving custom Layout:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub LoadLayouts() + Try + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "FORM_CONSTRUCT-Splitter-" & CONSTRUCTORID & "-UserLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) + settings = layout.Load() + + If settings.Count = 0 Then + 'settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterPosition)) + 'settings.Add(New ClassSetting("SplitContainerControlDetails1", SplitContainerControlDetails.SplitterPosition)) + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + settings.Add(New ClassSetting("TreeViewEbeneSelect", TreeViewEbeneSelect.Size.ToString)) + 'settings.Add(New ClassSetting("GroupControlSelection", GroupControlSelection.Size.ToString)) + layout.Save(settings) + End If + + For Each s As ClassSetting In settings + Select Case s._name + Case "SplitContainerDetails" + ' SplitContainerDetails.SplitterPosition = Integer.Parse(s._value) + Case "SplitContainerControlDetails1" + ' SplitContainerControlDetails.SplitterPosition = Integer.Parse(s._value) + Case "SplitContainerMain" + SplitContainerMain.SplitterDistance = Integer.Parse(s._value) + Case "TreeViewEbeneSelect" + Dim result() As String + result = s._value.Split(",") + Dim width As Integer + Dim height As Integer + For Each f As String In result + If f.Contains("{Width=") Then + Dim res = f.Replace("{Width=", "") + width = CInt(res) + Else + Dim res = f.Replace(" Height=", "") + res = res.Replace("}", "") + height = CInt(res) + End If + Next + TreeViewEbeneSelect.Size = New System.Drawing.Size(width, height) + Case "GroupControlSelection" + Dim result() As String + result = s._value.Split(",") + Dim width As Integer + Dim height As Integer + For Each f As String In result + If f.Contains("{Width=") Then + Dim res = f.Replace("{Width=", "") + width = CInt(res) + Else + Dim res = f.Replace(" Height=", "") + res = res.Replace("}", "") + height = CInt(res) + End If + Next + 'GroupControlSelection.Size = New System.Drawing.Size(width, height) + + End Select + Next + 'MsgBox(My.Settings.OV_Position) + 'Me.Location = New Point(My.Settings.OV_Position) + 'MsgBox(My.Settings.OV1_SEebene1_SD) + ' SplitContainerControlDetails1.SplitterPosition = My.Settings.OV1_SCDetails1 + Catch notFoundEx As System.IO.FileNotFoundException + MsgBox("Datagridview-Layout could not be loaded. Layout will be saved after closing", MsgBoxStyle.Information) + + Catch ex As Exception + MsgBox("Error while loading custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub frmForm_Constructor_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Me.Cursor = Cursors.WaitCursor + SplitCont_Details.Collapsed = True + CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID + ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR") + VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID) + If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then + 'Load Input Grid + Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE") + 'Die Standards ein/ausblenden + End If + Load_TreeViewEbene() + FormLoaded = True + + Catch ex As System.Exception + MsgBox("Error while Loading Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + tslblEntity.Text = "" + Me.Cursor = Cursors.Default + End Sub + Sub Load_TreeViewEbene() + Try + Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " ORDER BY SEQUENCE" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + Dim GRANDFATHERNODE1 As TreeNode + Dim GRANDFATHERNODE2 As TreeNode + Dim FATHERNODE As TreeNode + If dt Is Nothing Then + MsgBox("No Result for Level 1-Entities - Check logfile", MsgBoxStyle.Exclamation) + Else + If dt.Rows.Count = 1 Then + TreeViewEbeneSelect.Nodes.Clear() + GRANDFATHERNODE1 = TreeViewEbeneSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString) + GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID") + 'Ebene 2 Entities herausfinden + sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & GRANDFATHERNODE1.Tag & " ORDER BY SEQUENCE" + dt = ClassDatabase.Return_Datatable(sql) + If dt Is Nothing Then + MsgBox("No Result for Level 2-Entities - Check logfile", MsgBoxStyle.Exclamation) + Else + If dt.Rows.Count = 0 Then + MsgBox("Not allowed: No Result for Level 2-Entities! Check Config FormConstructor.", MsgBoxStyle.Exclamation) + Else + For Each rowentity2 As DataRow In dt.Rows + FATHERNODE = GRANDFATHERNODE1.Nodes.Add(rowentity2.Item("FORM_TITLE").ToString) + FATHERNODE.Tag = rowentity2.Item("FORM_ID") + EBENE2_PARENT_ID = dt.Rows(0).Item("PARENT_ID") + 'Ebene 3 Entities herausfinden + Dim DT3 As DataTable + sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & FATHERNODE.Tag & " ORDER BY SEQUENCE" + DT3 = ClassDatabase.Return_Datatable(sql) + If DT3 Is Nothing Then + MsgBox("No Result for Level 3-Entities - Check logfile", MsgBoxStyle.Exclamation) + Else + For Each rowEntity3 As DataRow In DT3.Rows + Dim CHILDNODE As TreeNode = FATHERNODE.Nodes.Add(rowEntity3.Item("FORM_TITLE").ToString) + CHILDNODE.Tag = rowEntity3.Item("FORM_ID") + EBENE3_PARENT_ID = rowEntity3.Item("PARENT_ID") + Next + End If + Next + End If + End If + ElseIf dt.Rows.Count = 2 Then + TreeViewEbeneSelect.Nodes.Clear() + GRANDFATHERNODE1 = TreeViewEbeneSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString) + GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID") + GRANDFATHERNODE2 = TreeViewEbeneSelect.Nodes.Add(dt.Rows(1).Item("FORM_TITLE").ToString) + GRANDFATHERNODE2.Tag = dt.Rows(1).Item("FORM_ID") + Else + MsgBox("More than 2 results #(" & dt.Rows.Count & ") for Level 1-Entities!", MsgBoxStyle.Exclamation) + End If + TreeViewEbeneSelect.ExpandAll() + End If + Catch ex As Exception + MsgBox("Error in Load TreeView Ebene:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function LoadGrid_Selection(Grid_SQL As String, Datatable_Grid As DataTable) + Try + DT_SELECTION = Datatable_Grid + EBENE_SQLRESULT = Grid_SQL + Dim i = EBENE_SQLRESULT.ToLower.IndexOf("from") + EBENE_SQLRESULT = EBENE_SQLRESULT.ToLower.Substring(i) + ' Alle Checkboxen für aktuelle Ansicht heraussuchen + Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & CURRENT_FORM_ID + Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck) + Dim listcheck As New List(Of String) + + 'Liste von allen Spaltentiteln mit Checkbox erstellen + If dtcheck.Rows.Count > 0 Then + For Each row As DataRow In dtcheck.Rows + listcheck.Add(row.Item(0)) + Next + End If + + 'Duplikate entfernen + listcheck = listcheck.Distinct().ToList() + + 'Grid leeren + GridControlSelection.DataSource = Nothing + grvwSelection.Columns.Clear() + 'Databinding Neu + Me.BindingSourceEntity.DataSource = Datatable_Grid + GridControlSelection.DataSource = BindingSourceEntity + + ' Den Editor Initialisieren und Optionen setzen + CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() + CheckBoxEditorForDisplay.ValueChecked = 1 + CheckBoxEditorForDisplay.ValueUnchecked = 0 + + ' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen + For Each col As String In listcheck + grvwSelection.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) + + If Not IsNothing(grvwSelection.Columns(col)) Then + grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay + End If + Next + grvwSelection.Columns("Record-ID").OptionsColumn.AllowShowHide = False + Load_GridSelection_Layout() + HideColumns() + Catch ex As Exception + MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + + End Function + Sub SelectedRecord_ShowData(GridColumn_String As String, Optional DirectRecID As Integer = 0) + Try + Me.pnlDetails.Visible = True + ZeigeRecordLogsToolStripMenuItem.Enabled = False + If DirectRecID = 0 Then + If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False) + 'Überhaupt Columns in Grid? + If grvwSelection.Columns.Count = 0 Then + Me.pnlDetails.Enabled = False + Me.tsbtnshowWorkflowtasks.Enabled = False + + tsstatus_Detail_show(True, "Keine Columns in Grid") + Exit Sub + End If + 'Überhaupt Rows in Grid? + If grvwSelection.RowCount > 0 Then + Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(GridColumn_String)) + If Grid_RecordID Is Nothing = False Then + SelectedRecordID = Grid_RecordID + CURRENT_RECORD_ID = Grid_RecordID + Else + tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!") + ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True) + Exit Sub + End If + End If + + Else 'Record wird direkt geladen + If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird DIREKT geladen", False) + SelectedRecordID = DirectRecID + CURRENT_RECORD_ID = DirectRecID + End If + + Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & CURRENT_RECORD_ID + Dim RC = ClassDatabase.Execute_Scalar(Record_Changes) + If Not RC Is Nothing Then + If RC > 0 Then + ZeigeRecordLogsToolStripMenuItem.Enabled = True + End If + End If + 'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen + Select Case ACT_EBENE + Case 1 + PARENT_RECORDID = 0 + EBENE1_RECID = SelectedRecordID + CURRENT_PARENTID = EBENE1_RECID + If Not EBENE1_COLUMNNAME Is Nothing Then + EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME) + End If + Case 2 + EBENE2_RECID = SelectedRecordID + If Not EBENE2_COLUMNNAME Is Nothing Then + EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME) + 'Dim sql As String = "select @p " & EBENE_SQLRESULT & " where [Record-ID] = " & SelectedRecordID + 'sql = sql.Replace("@p", EBENE2_COLUMNNAME) + 'Dim result = ClassDatabase.Execute_Scalar(sql) + 'EBENE2_GRID_RESULT = result 'grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE2_COLUMNNAME)) + + End If + If EBENE1_RECID > 0 Then + PARENT_RECORDID = EBENE1_RECID + CURRENT_PARENTID = EBENE1_RECID + Else + CURRENT_PARENTID = EBENE2_RECID + End If + Case 3 + EBENE3_RECID = SelectedRecordID + If Not EBENE3_COLUMNNAME Is Nothing Then + EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME) + 'EBENE3_GRID_RESULT = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE3_COLUMNNAME)) + End If + If EBENE2_RECID > 0 Then + PARENT_RECORDID = EBENE2_RECID + CURRENT_PARENTID = EBENE2_RECID + End If + End Select + + Me.pnlDetails.Enabled = True + Me.tsbtnshowWorkflowtasks.Enabled = True + Me.tsbtnshowTaskoverview.Enabled = True + tsstatus_Detail_show(False, "") + Catch ex As Exception + MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Function Get_GridResult(Columnname As String) + Dim result As String = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(Columnname)) + If result = String.Empty Then + Return "No Result for Column '" & Columnname & "'" + Else + Return result + End If + End Function + Private Function Check_FOLLOWUP_IsConfigured(ENTITY_ID As Integer) + Try + + Dim sql = "select * from TBPMO_FOLLOW_UP_EMAIL t where t.ACTIVE = 1 and t.DEPENDENT_DATE_CTRL_ID in (select guid from TBPMO_CONTROL where CONTROL_TYPE_ID = 4 and form_id = " & ENTITY_ID & ")" + DT_FU_ENTITY = ClassDatabase.Return_Datatable(sql) + If DT_FU_ENTITY.Rows.Count > 0 Then + 'Die Userauswahl füllen + Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL AND MODULE_RECORD_ORG = 1 order by USERNAME") + cmbWHUser.DataSource = DTUser + cmbWHUser.DisplayMember = DTUser.Columns(1).ColumnName + cmbWHUser.ValueMember = DTUser.Columns(0).ColumnName + TabPageFollowUp.PageVisible = True + FOLLOW_UPisActive = True + + 'Die Wiedervorlageprofile in den Listview laden + ListViewFollowUp.Items.Clear() + Dim anz As Integer = 0 + For Each DR As DataRow In DT_FU_ENTITY.Rows + ListViewFollowUp.Items.Add(DR.Item("GUID")) + ListViewFollowUp.Items(anz).SubItems.Add(DR.Item("NAME")) + anz += 1 + Next + + Else + FOLLOW_UPisActive = False + TabPageFollowUp.PageVisible = False + End If + Catch ex As Exception + MsgBox("Error in Check Follow Up:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + windream_Docshow = False + End Try + End Function + Private Function Check_windream_Show(FORM_VIEW_ID As Integer) + Try + Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID + Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql) + If DTWD.Rows.Count = 1 Then + TabPageWD_Files.PageVisible = True + + If IsDBNull(DTWD.Rows(0).Item(0)) Then + windream_Docshow = False + WindreamSucheNeuLadenToolStripMenuItem.Visible = False + Exit Function + End If + WindreamSucheNeuLadenToolStripMenuItem.Visible = True + windream_Docshow = True + Else + windream_Docshow = False + TabPageWD_Files.PageVisible = False + + WindreamSucheNeuLadenToolStripMenuItem.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Check windream show:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + windream_Docshow = False + End Try + + End Function + + Private Sub Load_Value(recID As Integer, CONTROLID As Integer, control As Control) + Try + Dim SQL = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_ID = " & CONTROLID + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + Dim result = DT.Rows(0).Item("VALUE") + + 'Dim RecordExists = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", recID, CONTROLID)) + + ClassControlValues.ClearControlValue(control) + + Select Case DT.Rows(0).Item("CONTROL_TYPE_ID") + Case 2 ' TextBox + Dim textbox As TextBox = DirectCast(control, TextBox) + textbox.Text = result + Case 10 ' CheckBox + Dim checkbox As CheckBox = DirectCast(control, CheckBox) + checkbox.Checked = CBool(result) + Case 11 'RadioButton + Dim radio As RadioButton = DirectCast(control, RadioButton) + radio.Checked = CBool(result) + Case 3 ' ComboBox + Dim combobox As ComboBox = DirectCast(control, ComboBox) + combobox.SelectedIndex = combobox.FindStringExact(result) + Case 4 'DateTimePicker + 'Console.WriteLine(result) + If result = "" Then + result = Now + End If + Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) + datepicker.DateTime = Date.Parse(result) + Case Else + 'MsgBox(DT.Rows(0).Item("CONTROL_TYPE_ID")) + End Select + Catch ex As Exception + MsgBox("Error in Load_Value:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Try + Dim Control As Control = sender + Dim ControlName As String = Control.Name + Dim ControlId As Integer = GetControlID_for_Name(ControlName, CURRENT_FORM_ID) + + Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId) + + If IsDBNull(dr.Item("INTEGER1")) OrElse dr.Item("INTEGER1") = 0 Then + MsgBox("FormId ist nicht definiert für " & ControlName) + Exit Sub + End If + + If IsDBNull(dr.Item("INTEGER2")) OrElse dr.Item("INTEGER2") = 0 Then + MsgBox("ScreenId ist nicht definiert für " & ControlName) + Exit Sub + End If + + Dim FormId As Integer = dr.Item("INTEGER1") + Dim ScreenId As Integer = dr.Item("INTEGER2") + + Cursor = Cursors.WaitCursor + OpenFormInputFor(FormId, ScreenId) + + Cursor = Cursors.Default + Catch ex As Exception + MsgBox("Error in OpenFormData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Try + Dim ctrl As Control = sender + ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, CURRENT_RECORD_ID, pnlDetails.Controls) + Catch ex As Exception + MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + 'Sub NewAppointment(ByVal sender As Control, FormID As Integer) + ' 'Try + ' Dim Control As Control = sender + ' Dim ControlName As String = Control.Name + ' Dim ControlId As Integer = GetControlID_for_Name(ControlName, FormID) + + ' Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId) + + ' Dim FromDateName As String = GetName_for_ControlID(dr.Item("INTEGER1"), FormID) + ' Dim ToDateName As String = GetName_for_ControlID(dr.Item("INTEGER2"), FormID) + ' Dim SubjectName As String = GetName_for_ControlID(dr.Item("STRING1"), FormID) + + ' Dim FromDateValue, ToDateValue As Date + ' Dim SubjectValue As String + + ' If FromDateName = Nothing Then + ' FromDateValue = Nothing + ' Else + ' Dim from_ctrls() As Control = sender.Parent.Controls.Find(FromDateName, True) + ' Dim from_ctrl As Control + ' If from_ctrls.Length = 1 Then + ' from_ctrl = from_ctrls(0) + ' Console.WriteLine(from_ctrl.Text) + ' FromDateValue = Date.Parse(from_ctrl.Text) + ' End If + ' End If + + ' If ToDateName = Nothing Then + ' ToDateValue = Nothing + ' Else + ' Dim to_ctrls() As Control = sender.Parent.Controls.Find(ToDateName, True) + ' Dim to_ctrl As Control + ' If to_ctrls.Length = 1 Then + ' to_ctrl = to_ctrls(0) + ' Console.WriteLine(to_ctrl.Text) + ' ToDateValue = Date.Parse(to_ctrl.Text) + ' End If + ' End If + + ' If SubjectName = Nothing Then + ' SubjectValue = Nothing + ' Else + ' Dim subject_ctrls() As Control = sender.Parent.Controls.Find(SubjectName, True) + ' Dim subject_ctrl As Control + ' If subject_ctrls.Length = 1 Then + ' subject_ctrl = subject_ctrls(0) + ' Console.WriteLine(subject_ctrl.Text) + ' SubjectValue = subject_ctrl.Text + ' End If + ' End If + + ' Dim apt As Appointment = frmCalendar.SchedulerStorage1.CreateAppointment(AppointmentType.Normal) + + ' If FromDateValue <> Nothing Then + ' apt.Start = FromDateValue + ' End If + + ' If ToDateValue <> Nothing Then + ' apt.End = ToDateValue + ' End If + + ' If SubjectValue IsNot Nothing Then + ' apt.Subject = SubjectValue + ' End If + + ' apt.AllDay = True + ' apt.CustomFields("RecordID") = thisRecordID + ' apt.CustomFields("ControlID") = ControlId + ' frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + ' 'Catch ex As Exception + ' ' MsgBox("Fehler beim Laden der Termininformationen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' 'End Try + 'End Sub + + + Sub EditAppointment(ByVal sender As Control, FormID As Integer) + Try + ' Load All appointments first + frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES) + frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS) + + Dim apt As Appointment = frmCalendar.SchedulerStorage1.Appointments.Items.Find(AddressOf FindAppointment) + If apt IsNot Nothing Then + frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt) + End If + + Catch ex As Exception + MsgBox("Error in EditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Function FindAppointment(ByVal apt As Appointment) As Boolean + Return Convert.ToInt32(apt.CustomFields("RecordID")) = SelectedRecordID + End Function + + Private Sub OnRecordChanged(sender As Object, e As System.EventArgs) + RECORD_CHANGED = True + End Sub + + Sub Load_Controls(FORM_VIEW_ID As Integer) + thisFORMVIEW_ID = FORM_VIEW_ID + CURRENT_FORM_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID) + CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip) + 'LoadControls(thisFormId) + CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder, + contextMenuCombo, + AddressOf NewEditAppointment, + AddressOf OpenFormData) + CtrlCommandUI.LoadControls(CURRENT_FORM_ID) + AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged + + End Sub + Sub set_pnlsize() + Try + Dim Height = ClassDatabase.Execute_Scalar("SELECT HEIGHT FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + Dim width = ClassDatabase.Execute_Scalar("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + + If Not IsDBNull(Height) Then + 'SplitContainerControlDetails.SplitterPosition = Height + 50 + 'Me.pnlDetails.Height = Height + 'If Not IsDBNull(width) Then + ' Me.pnlDetails.Width = width + 'End If + End If + Catch ex As Exception + MsgBox("Error in set_pnlsize:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function GetControlID(recID As Integer, control As Control) As Integer + Try + Dim ID As Integer = ClassDatabase.Execute_Scalar("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & control.Name & "'") + If ID > 0 Then + Return ID + Else + Return -1 + End If + Catch ex As Exception + MsgBox("Error in GetControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + Public Sub tsstatus_Detail_show(vis As Boolean, txt As String, Optional state As String = "NONE") + Me.tsstatus_Detail.Text = txt + tsstatus_Detail.Visible = vis + Select Case state + Case "insert" + tsstatus_Detail.BackColor = Color.Yellow + Case "update" + tsstatus_Detail.BackColor = Color.LightBlue + Case Else + tsstatus_Detail.BackColor = Color.LightGray + End Select + End Sub + Public Sub tslblStatusMain_show(vis As Boolean, txt As String) + Me.tslblStatusMain.Text = txt + tslblStatusMain.Visible = vis + End Sub + + Public Sub Refresh_CreatedChangedRecordByID(RECORD_ID As Integer) + Try + Dim result = ClassDatabase.Execute_Scalar("select 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID) + If IsDBNull(result) Or IsNothing(result) Then + Me.tserstellt_Details.Text = "" + Else + Select Case CURRENT_FORM_TYPE + Case 5 + Me.tserstellt_Details.Text = "Group-Record (" & RECORD_ID & ") - " & result.ToString + Case Else + Me.tserstellt_Details.Text = "Record (" & RECORD_ID & ") - " & result.ToString + End Select + + End If + tserstellt_Details.Visible = True + Catch ex As System.Exception + MsgBox("Error in Refresh_CreatedChangedRecordByID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String) + Try + If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Or TCDetails.SelectedTabPageIndex <> 1 Then + Exit Sub + End If + Cursor = Cursors.WaitCursor + Dim DTWD As DataTable + If Type = "ENTITY" Then + Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID + DTWD = ClassDatabase.Return_Datatable(_sql) + If DTWD.Rows.Count = 1 Then + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Clear_Windream_ResultList() + Exit Sub + End If + tslblWindreamView.Text = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING + Else + Clear_Windream_ResultList() + Exit Sub + End If + Else + Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID + DTWD = ClassDatabase.Return_Datatable(sql) + If DTWD.Rows.Count = 1 Then + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Clear_Windream_ResultList() + Exit Sub + End If + tslblWindreamView.Text = "Windream-Dokumente für Record: " & SelectedRecordID + Else + Clear_Windream_ResultList() + Exit Sub + End If + End If + 'Die SearchPatterns durchlaufen und zwischenspeichern + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Clear_Windream_ResultList() + Exit Sub + End If + BaseSearch = DTWD.Rows(0).Item(0) + SP1 = DTWD.Rows(0).Item(1) + If IsDBNull(DTWD.Rows(0).Item(2)) Then + SP2 = "" + Else + SP2 = DTWD.Rows(0).Item(2) + End If + If IsDBNull(DTWD.Rows(0).Item(3)) Then + SP3 = "" + Else + SP3 = DTWD.Rows(0).Item(3) + End If + If IsDBNull(DTWD.Rows(0).Item(4)) Then + SP4 = "" + Else + SP4 = DTWD.Rows(0).Item(4) + End If + If IsDBNull(DTWD.Rows(0).Item(5)) Then + SP5 = "" + Else + SP5 = DTWD.Rows(0).Item(5) + End If + + 'Eine tempfile generieren + Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() + 'Nur den Filenamen ohne Erweiterung + Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) + 'tempfile lsöchen + If My.Computer.FileSystem.FileExists(tempFilename1) Then + My.Computer.FileSystem.DeleteFile(tempFilename1) + End If + Try + Dim temppath = Path.GetTempPath + + Dim EncodingFormat As Encoding + Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1") + If WDUnicode = True Then + EncodingFormat = Encoding.GetEncoding(1252) '1252 + If LogErrorsOnly = False Then ClassLogger.Add(">> Unicode is used (Encoding.GetEncoding(1252))", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(">> UTF8 (Encoding.GetEncoding(65001))", False) + EncodingFormat = Encoding.GetEncoding(65001) + End If + + + Dim fileContents As String + If LogErrorsOnly = False Then ClassLogger.Add(">> ReadAlltext: " & windream_temp_search, False) + fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode + If LogErrorsOnly = False Then ClassLogger.Add(">> fileContents geladen", False) + fileContents = fileContents.Replace("Í", "Ö") + Dim _sp1 = SP1 + Dim _sp2 = SP2 + Dim _sp3 = SP3 + Dim _sp4 = SP4 + Dim _sp5 = SP5 + + + + If _sp1.ToString <> String.Empty Then + _sp1 = Return_SearchPattern(_sp1.ToString) + fileContents = fileContents.Replace("%pattern1%", _sp1) + fileContents = fileContents.Replace("471101", _sp1) + End If + If _sp2.ToString <> String.Empty Then + _sp2 = Return_SearchPattern(_sp2.ToString) + fileContents = fileContents.Replace("%pattern2%", _sp2) + fileContents = fileContents.Replace("471102", _sp2) + End If + If _sp3.ToString <> String.Empty Then + _sp3 = Return_SearchPattern(_sp3.ToString) + fileContents = fileContents.Replace("%pattern3%", _sp3) + fileContents = fileContents.Replace("471103", _sp3) + End If + If _sp4.ToString <> String.Empty Then + _sp4 = Return_SearchPattern(_sp4.ToString) + fileContents = fileContents.Replace("%pattern4%", _sp4) + fileContents = fileContents.Replace("471104", _sp4) + End If + If _sp5.ToString <> String.Empty Then + _sp5 = Return_SearchPattern(_sp5.ToString) + fileContents = fileContents.Replace("%pattern5%", _sp5) + fileContents = fileContents.Replace("471105", _sp5) + End If + 'Die windream File zusammensetzen + windream_temp_search = temppath & tempName & ".wdf" + 'Die File schreiben + My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) + My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat) + ' XML-Datei öffnen und laden + Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) + Dim Reader As New System.Xml.XmlTextReader(Stream) + + ' XML-Datei initialisieren + Dim xml As New System.Xml.XmlDocument() + ' XML-Datei öffnen und laden + xml.Load(Reader) + Reader.Close() + xml.Save(windream_temp_search) + If LogErrorsOnly = False Then ClassLogger.Add(">> Xml Generiert: " & windream_temp_search, False) + + Dim windreamSucheErgebnisse As WMObjects + Try + windreamSucheErgebnisse = Me._windream.GetSearchDocuments(windream_temp_search) + Catch ex As Exception + MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + If windreamSucheErgebnisse.Count > 0 Then + TabPageWD_Files.Text = "windream-Dateien (" & windreamSucheErgebnisse.Count & ")" + + AxObjectListControl.SetIconMode(True) + AxObjectListControl.RemoveAllColumnHeader() + Dim param As New List(Of String) + 'The file name + param.Add("szLongName") + 'The document-Type + param.Add("szText39") + 'Versionsnummer + param.Add("dwVersionNumber") + 'Datumsangaben + param.Add("dwCreationDate") + param.Add("dwCreation_Time") + Me.AxObjectListControl.SetSession(_windream.oSession, "foo", "bar") + 'Change the satus icon + 'ICON STATES: + Me.AxObjectListControl.SetStatusIcon(0) + + 'Change the icon + Me.AxObjectListControl.SetStatusIcon(2) + 'Add all search params + For Each spar As String In param + Dim width As Integer = 200 + Select Case spar + Case "szLongName" + 'The size + width = 300 + Case "szText39" + width = 160 + Case "dwCreationDate" + width = 90 + Case "dwCreation_Time" + width = 120 + End Select + 'You need to use the column name here + 'Please note that some attributes or indices will not be displayed + 'Try not to add the same header twice, it will throw cause problems if you do that + Me.AxObjectListControl.AddColumnHeader(spar, width) + Next + If LogErrorsOnly = False Then ClassLogger.Add(">> AxObjectListControl geladen ", False) + 'Execute the search + Dim results As WMObjects = windreamSucheErgebnisse + If LogErrorsOnly = False Then ClassLogger.Add(">> results geladen ", False) + 'Set the contents without displaying them + AxObjectListControl.SetContentsEx(results) + 'Change the icon + AxObjectListControl.SetStatusIcon(5) + 'Display the results... + 'The Previous Object Count + Dim poc As Integer = 0 + 'Display new objects, as long as the objectcount changes after displaying the objects + + Do Until (poc <> AxObjectListControl.GetObjectCount) + poc = AxObjectListControl.GetObjectCount + 'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader + 'But do not display to many at a time or the user interface could freeze + 'Maybe try 50 + AxObjectListControl.DisplayResults(WDResultListCount) + Loop + AxObjectListControl.SetStatusIcon(3) + Else + Clear_Windream_ResultList() + End If + If My.Computer.FileSystem.FileExists(windream_temp_search) Then + My.Computer.FileSystem.DeleteFile(windream_temp_search) + End If + + Catch ex As Exception + MsgBox("Error in execute-windreamSearch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + Cursor = Cursors.Default + Catch ex As Exception + MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Cursor = Cursors.Default + End Try + + + End Sub + Private Sub Refresh_FollowUp_TabHeader() + Try + DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & CURRENT_RECORD_ID, "Refresh FollowUp TabHeader") + If IsNothing(DT_FU_Record) Then + TabPageFollowUp.Text = "Wiedervorlage (Nicht Abrufbar)" + Exit Sub + End If + If DT_FU_Record.Rows.Count = 0 Then + TabPageFollowUp.Text = "Wiedervorlage (Nicht aktiviert)" + Else + TabPageFollowUp.Text = "Wiedervorlage (Aktive Profile)" + End If + Catch ex As Exception + MsgBox("Error in Refresh_FollowUp_TabHeader:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub Refresh_FollowUps() + Try + If DT_FU_ENTITY.Rows.Count > 0 Then + grpbxFU_Profile.Enabled = False + End If + Catch ex As Exception + MsgBox("Error in Refresh_FollowUps:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub Clear_Windream_ResultList() + AxObjectListControl.RemoveAllColumnHeader() + Me.AxObjectListControl.ClearResultList() + TabPageWD_Files.Text = "windream-Dateien" + End Sub + Private Function Return_SearchPattern(ByVal content As String) + Select Case content.ToUpper + Case "@Record-ID".ToUpper + Return SelectedRecordID + Case "@EntityID".ToUpper + Return CURRENT_FORM_ID + Case "@ParentID".ToUpper + Return PARENT_RECORDID + Case Else + MsgBox("Undefinierter Pattern '" & content & "' in der Windream-SuchKonfiguration. Bitte den Administrator verständigen", MsgBoxStyle.Exclamation) + ClassLogger.Add(" >> Undefinierter Such-Pattern: " & content, True) + End Select + End Function + + Private Sub tsbtnAddForm2_Click(sender As Object, e As EventArgs) Handles tsbtnAddForm2.Click + If CtrlCommandUI.IsInsert = True Then + Exit Sub + End If + RECORD_CHANGED = True + 'Das Flag INSERT setzen + Me.pnlDetails.Enabled = True + Me.tsbtnshowWorkflowtasks.Enabled = True + ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SelectedRecordID, pnlDetails.Controls) + CtrlCommandUI.IsInsert = True + + End Sub + + Private Function Update_Record_OnChange() As String + ' Record Speichern + Dim ResultMessage = CtrlCommandUI.SaveRecord(SelectedRecordID, CURRENT_FORM_ID, PARENT_RECORDID) + 'Jetzt die für die Entität notwendigen Prroceduren ausführen + Customer_Run_Procedures() + + Return ResultMessage + End Function + + Private Sub Customer_Run_Procedures() + Try + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & CURRENT_FORM_ID) + If Not DT Is Nothing Then + For Each row As DataRow In DT.Rows + Dim prsql As String = row.Item("EXECUTE_COMMAND") + prsql = prsql.ToUpper.Replace("@FORM_ID", CURRENT_FORM_ID) + prsql = prsql.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID) + ClassDatabase.Execute_non_Query(prsql, True) + Next + End If + Catch ex As Exception + MsgBox("Error in Customer_Run_Procedures:" & vbNewLine & ex.Message) + End Try + End Sub + + Private Sub tsbtnSaveForm2_Click(sender As Object, e As EventArgs) Handles tsbtnSaveForm2.Click + Try + tserstellt_Details.Visible = False + SaveRoutine_Active = True + If CtrlCommandUI.IsInsert = True Then + EDIT_STATE = "insert" + Else + EDIT_STATE = "update" + NEW_RECORD_ID = 0 + If RECORD_CHANGED = False Then + tslblStatusMain_show(True, "KEINE Änderungen an Datensatz.") + Exit Sub + End If + End If + + Dim ResultMessage = Update_Record_OnChange() + tsstatus_Detail_show(True, ResultMessage, EDIT_STATE) + + Dim recid As Integer + If EDIT_STATE = "update" Then + recid = CURRENT_RECORD_ID + Else + recid = NEW_RECORD_ID + End If + SelectedRecordID = recid + CURRENT_RECORD_ID = recid + + 'Load_Data_for_TreeView() + 'dd() + 'Search_RowHandle(recid) + If EDIT_STATE = "insert" Then + 'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden + Select Case ACT_EBENE + Case 1 + EBENE1_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME) + End If + Next + Case 2 + EBENE2_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME) + End If + Next + If EBENE1_RECID = 0 Then + 'Bis jetzt konnte noch keine Parent-ID angelegt werden! + MsgBox("Achtung es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation) + Show_Verknuepfungen() + End If + End Select + ElseIf EDIT_STATE = "update" Then + 'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden + Select Case ACT_EBENE + Case 1 + EBENE1_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME) + End If + Next + Case 2 + EBENE2_RECID = recid + For Each row As DataRow In DT_SELECTION.Rows + If row.Item("Record-ID") = SelectedRecordID Then + EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME) + End If + Next + End Select + End If + 'ddd() + 'Jetzt den Record nochmal laden + SelectedRecord_ShowData("Record-ID", SelectedRecordID) + tslblStatusMain_show(True, "Record gespeichert - " & Now) + Refresh_CreatedChangedRecordByID(SelectedRecordID) + ' TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")" + 'Die Values in die Controls laden + ' Load_Control_Values(CtrlBuilder.AllControls) + 'Refresh_Treeview_SelectedData() + Refresh_Anzeige_Selected_Entity() + 'Die Daten neu laden + 'Load_Data_for_TreeView() + 'Und dann den Focus wieder setzen + If EDIT_STATE = "insert" Then + 'Die Daten neu laden + Load_Entity_Data_Only() + Search_RowHandle(NEW_RECORD_ID) + Else + 'Die Daten neu laden + Load_Entity_Data_Only() + Search_RowHandle(CURRENT_RECORD_ID) + 'Die Daten auf dem Panel laden + ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls) + pnlDetails.Enabled = True + End If + Catch ex As Exception + MsgBox("Error in Save Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + EDIT_STATE = "none" + RECORD_CHANGED = False + SaveRoutine_Active = False + End Sub + Sub Search_RowHandle(Value As String) + Try + Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(Value)) + If rowHandle > 0 Then + grvwSelection.FocusedRowHandle = rowHandle + End If + Catch ex As Exception + ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False) + End Try + End Sub + + Sub Check_Dropped_Files(FORMVIEW_ID As Integer) + Try + CURRENT_FORMVIEW_ID = FORMVIEW_ID + For Each Str As Object In ClassDragDrop.files_dropped + ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False) + Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1) + Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1) + TBPMO_FILES_USERTableAdapter.cmdInsert(CURRENT_WORKFILE, Environment.UserName, DropType) + Next + TBPMO_FILES_USERTableAdapter.Fill(DD_DMSDataSet.TBPMO_FILES_USER, Environment.UserName) + For Each Filerow As DataRow In DD_DMSDataSet.TBPMO_FILES_USER.Rows + Dim worked = ClassDatabase.Execute_Scalar("SELECT WORKED FROM TBPMO_FILES_USER WHERE GUID = " & Filerow.Item("GUID")) + If worked = False Then + 'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "") + CURRENT_FILEID = Filerow.Item(0) + frmWD_Index_Dokart.ShowDialog() + RUN_WD_SEARCH(WD_Suche, "RECORD") + End If + + + Next + + + 'ClassWindream._WDObjekttyp = "DIGITAL DATA - Entwicklung" + 'If ClassWindream.Stream_File(datei, "W:\Brainpool\Produktionen", "String 38", thisRecordID) = True Then + ' If windream_Docshow = True Then load_Documents_for_Record() + 'End If + 'End If + Catch ex As Exception + MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub tsbtndeleteForm2_Click(sender As Object, e As EventArgs) Handles tsbtndeleteRecord.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + EDIT_STATE = "delete" + If CtrlCommandUI.DeleteRecord(SelectedRecordID) = True Then + tsstatus_Detail_show(True, "Der Datensatz " & SelectedRecordID & " wurde erfolgreich gelöscht - " & Now) + Refresh_CreatedChangedRecordByID(SelectedRecordID) + Load_Data_for_TreeView() + End If + End If + EDIT_STATE = "none" + + + End Sub + Sub Show_act_WFTask() + Try + Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, CURRENT_RECORD_ID, Environment.UserName) + tslblactWFState.BackColor = Color.Black + If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then + CURRENT_TASK_ID = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("WF_TASK_ID") + Dim text = "Task: " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("TITLE") + text += " - " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_DESC") + text += " - " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("DUE_DATE") + tslblactWFState.Text = text + tslblactWFState.Visible = True + tsbtnshowWorkflowtasks.Visible = True + tsbtnshowWorkflowtasks.Enabled = True + + Dim Colorstring = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("COLOR") + If IsDBNull(Colorstring) Then + Exit Sub + End If + If Colorstring <> "" Then + grvwSelection.Appearance.FocusedRow.BackColor = ColorTranslator.FromWin32(CInt(Colorstring)) + 'grvwSelection.Appearance.FocusedRow.ForeColor = Color.Yellow + tslblactWFState.BackColor = ColorTranslator.FromWin32(CInt(Colorstring)) + Select Case tslblactWFState.BackColor + Case Color.Red + tslblactWFState.ForeColor = Color.White + End Select + End If + + Else + tslblactWFState.Visible = False + tsbtnshowWorkflowtasks.Visible = False + grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia + End If + Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" + sql1 = sql1.Replace("@FORM_ID", CURRENT_FORM_ID) + Dim result As Integer = ClassDatabase.Execute_Scalar(sql1) + If result > 0 Then + tsbtnshowWorkflowtasks.Visible = True + tsbtnshowWorkflowtasks.Enabled = True + End If + + + Catch ex As Exception + MsgBox("Error in Show act WFTask: " & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub tsbtnshowWorkflowtasks_Click(sender As Object, e As EventArgs) Handles tsbtnshowWorkflowtasks.Click + If SelectedRecordID > 0 Then + frmWF_TaskEditor.ShowDialog() + Show_act_WFTask() + Refresh_TaskOverview() + End If + End Sub + + + Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles tsbtnOverviewRefresh.Click + Check_Record_Changed() + Load_Data_for_TreeView() + End Sub + + Sub Refresh_TaskOverview() + Dim frmCollection As New FormCollection() + frmCollection = Application.OpenForms() + If frmTaskOverview.IsHandleCreated Then + If Sett_TaskOverviewKeepInFront = True Then + frmTaskOverview.Refresh() + End If + 'Else + ' Console.WriteLine("frmTaskOverview NICHT geladen") + End If + End Sub + 'Private Sub GridView2_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView2.FocusedRowChanged + ' If loaded = True Then + ' thisFORMVIEW_ID = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM2_FVID") + ' Dim SQL As String = "SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & DT_CONSTRUCT_VIEW.Rows(0).Item("FORM2_FVID") + ' thisFormId = ClassDatabase.Execute_Scalar(SQL) + ' Load_DataforRecord(GridView2, act_ParentEntity_String) + ' Refresh_TaskOverview() + ' GridView2.Appearance.FocusedRow.BackColor = Color.OrangeRed + ' End If + 'End Sub + + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles tsbtnshowTaskoverview.Click + Dim Record_ID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns("Record-ID").FieldName) + + 'Dim RowView As DataRowView = BindingSourceForm2.Item(BindingSourceForm2.Position) + If Record_ID Is Nothing = False Then + If (Not IsDBNull(Record_ID)) Then + SelectedRecordID = Record_ID + CURRENT_RECORD_ID = SelectedRecordID + frmTaskOverview.Show() + End If + End If + End Sub + + Private Sub StammdatenEditierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenEditierenToolStripMenuItem.Click + Dim MenuItem = DirectCast(sender, ToolStripMenuItem) + Dim ContextMenu As ContextMenuStrip = MenuItem.Owner + Dim SourceControl As Control = ContextMenu.SourceControl + Dim MasterDataId As Integer = SourceControl.Tag + + CURRENT_MASTER_FORM_ID = MasterDataId + ' frmQuickEdit.Show() + frmQuickInput.ShowDialog() + End Sub + Private Sub AxObjectListControl_ItemDblClick(sender As Object, e As AxOBJECTLISTCONTROLLib._DObjectListControlEvents_ItemDblClickEvent) Handles AxObjectListControl.ItemDblClick + Dim _index = AxObjectListControl.GetFirstSelectedObject + Dim path As String = AxObjectListControl.GetObjectPath(_index) + path = path.Replace("?", vWLaufwerk) + If System.IO.File.Exists(path) Then + Try + Dim p As New Process() + p.StartInfo.FileName = path + 'p.StartInfo.WindowStyle = ProcessWindowStyle.Normal + p.Start() + p.WaitForExit() + p.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei öffnen der windream-Suche:") + End Try + End If + + End Sub + Sub Load_GridSelection_Layout() + Try + Dim XMLPath = GetSelectionGridName() + If File.Exists(XMLPath) Then + GridControlSelection.MainView.RestoreLayoutFromXml(XMLPath) + grvwSelection.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + grvwSelection.ClearSelection() + grvwSelection.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + End Sub + Sub Load_GridViewParentEntity_Layout() + Try + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), GridControlParentEntity.Name & "-CONSTRUCT-" & CONSTRUCTORID & "-UserLayout.xml") + If File.Exists(XMLPath) Then + GridControlParentEntity.MainView.RestoreLayoutFromXml(XMLPath) + GridViewParentEntity.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewParentEntity.ClearSelection() + GridViewParentEntity.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Save_GridViewParentEntityLayout() + If GridViewParentEntity.RowCount > 0 Then + 'Console.WriteLine("grvwSelectionLayout-" & Now) + 'Das aktuelle Layout speichern + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), GridControlParentEntity.Name & "-CONSTRUCT-" & CONSTRUCTORID & "-UserLayout.xml") + GridControlParentEntity.MainView.SaveLayoutToXml(XMLPath) + tslblStatusMain_show(True, "Datagrid-Layout Selection saved") + End If + End Sub + Private Function GetSelectionGridName() + Return System.IO.Path.Combine(Application.UserAppDataPath(), GridControlSelection.Name & "-" & ACT_EBENE_STRING & "-" & CONSTRUCTORID & "-UserLayout.xml") + End Function + + Private Sub Refresh_Anzeige_Selected_Entity() + Try + Me.tslblEntity1.Visible = False + Me.tslblEntity2.Visible = False + Me.tslblEntity3.Visible = False + tslblEntity.Text = "" + Select Case ACT_EBENE + Case 1 + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + Me.tslblEntity1.Visible = True + Case 2 + If CURRENT_FORM_TYPE = 5 Then + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### Gruppen-Entität: " & EBENE2_ENTITY + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity2.Text = "Gruppen-Entität: " & EBENE2_ENTITY + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + + Exit Sub + End If + If EBENE1_GRID_RESULT Is Nothing = False Then + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + Else + tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + Me.tslblEntity1.Visible = True + End If + Case 3 + If CURRENT_FORM_TYPE = 5 Then + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity3.Text = "Gruppen-Entität: " & EBENE3_GRID_RESULT + + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + Me.tslblEntity3.Visible = True + Exit Sub + End If + If EBENE1_GRID_RESULT Is Nothing = False Then + tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity3.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & _ + " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + Me.tslblEntity3.Visible = True + Else + tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + tslblEntity2.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + Me.tslblEntity1.Visible = True + Me.tslblEntity2.Visible = True + + End If + End Select + + Catch ex As Exception + MsgBox("Error in Refresh_Entity_Select:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub CreateColumns(ByVal tl As TreeList) + ' Create three columns. + tl.Columns.Clear() + tl.BeginUpdate() + tl.Columns.Add() + tl.Columns(0).Caption = "Entität" + tl.Columns(0).VisibleIndex = 0 + tl.Columns.Add() + tl.Columns(1).Caption = "Record-ID" + tl.Columns(1).VisibleIndex = 1 + tl.Columns.Add() + tl.EndUpdate() + End Sub + Private Sub CreateNodes(ByVal tl As TreeList) + tl.BeginUnboundLoad() + ' Create a root node . + Dim parentForRootNodes As TreeListNode = Nothing + Dim rootNode As TreeListNode = tl.AppendNode(New Object() {"Format", "4711"}, parentForRootNodes) + ' Create a child node for the node1 + tl.AppendNode(New Object() {"Produktion", "66"}, rootNode) + ' Creating more nodes + ' ... + tl.EndUnboundLoad() + End Sub + + Private Sub frmForm_Constructor_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + Private Sub frmForm_Constructor_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub GridControlSelection_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlSelection.DragDrop + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub GridControlSelection_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlSelection.DragEnter + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + Private Sub ClearAllFiltersToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearAllFiltersToolStripMenuItem.Click + grvwSelection.ClearColumnsFilter() + grvwSelection.ClearGrouping() + grvwSelection.ClearSelection() + End Sub + + Private Sub pnlDetails_DragEnter(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + + Private Sub pnlDetails_DragDrop(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub GridControlOverview_DragEnter(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drag_enter(e) + End If + End Sub + + Private Sub GridControlOverview_DragDrop(sender As Object, e As DragEventArgs) + If act_FormViewID <> 0 Then + ClassDragDrop.Drop_File(e) + Check_Dropped_Files(act_FormViewID) + End If + End Sub + + Private Sub Check_Record_Changed() + If EDIT_STATE <> "none" Then + tslblStatusMain_show(False, "") + EDIT_STATE = "none" + End If + + If RECORD_CHANGED = True Then + Dim result As DialogResult = MessageBox.Show("Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?", "Ungespeicherte Änderungen", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = Windows.Forms.DialogResult.Yes Then + If CtrlCommandUI.IsInsert = True Then + EDIT_STATE = "none" + Me.pnlDetails.Enabled = False + CtrlCommandUI.IsInsert = False + End If + Update_Record_OnChange() + End If + RECORD_CHANGED = False + End If + End Sub + + Private Sub grvwSelection_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwSelection.FocusedRowChanged + If vFormClosing = True Or SaveRoutine_Active = True Then + Exit Sub + End If + + Check_Record_Changed() + + If dataloaded = True Then + If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False) + Dim selRecID = GetSelected_RecordID() + If Not selRecID Is Nothing And selRecID <> SelectedRecordID Or EDIT_STATE = "insert" Then + Focused_Row_Column_Changed() + Else + 'Console.WriteLine("SelRecordID identisch") + End If + End If + End Sub + Private Sub grvwSelection_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles grvwSelection.FocusedColumnChanged + If vFormClosing = True Or SaveRoutine_Active = True Then + Exit Sub + End If + If dataloaded = True Then + If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False) + Dim selRecID = GetSelected_RecordID() + If Not selRecID Is Nothing And selRecID <> SelectedRecordID Then + Focused_Row_Column_Changed() + Else + 'Console.WriteLine("SelRecordID identisch") + End If + End If + End Sub + Sub Focused_Row_Column_Changed() + Select Case EDIT_STATE + Case "none" + 'Ganz normalerDatensatzwechsel Wechsel + SelectedRecord_ShowData("Record-ID") + 'Refresh_Treeview_SelectedData() + tslblStatusMain_show(False, "") + Case "insert" + 'Refresh_Treeview_SelectedData() + Case "update" + ' Refresh_Treeview_SelectedData() + End Select + Select Case TCDetails.SelectedTabPageIndex + Case 0 + 'Die Values in die Controls laden + If EDIT_STATE = "none" Then + 'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")" + 'Die Daten auf dem Panel laden + ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_FORM_ID, CtrlBuilder.AllControls) + 'Load_Control_Values(CtrlBuilder.AllControls) + 'Refresh_Treeview_SelectedData() + RECORD_CHANGED = False + End If + Case 1 + RUN_WD_SEARCH(WD_Suche, "RECORD") + Case 2 + If FOLLOW_UPisActive = True Then Refresh_FollowUps() + End Select + DT_FU_Record = Nothing + VerknüpfungenToolStripMenuItem.Enabled = True + + If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader() + Refresh_CreatedChangedRecordByID(SelectedRecordID) + Refresh_Anzeige_Selected_Entity() + Show_act_WFTask() + Show_NodeAmounts() + If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged Complete - RecordID: " & CURRENT_RECORD_ID, False) + Refresh_TaskOverview() + + End Sub + Sub HideColumns() + Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_FORM_ID + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwSelection.Columns + + If DT.Rows.Count <> 0 Then + ' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False + For Each row As DataRow In DT.Rows + Dim colname As String = row.Item("CONTROL_COL_NAME") + Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwSelection.Columns.Item(colname) + + If Not IsNothing(col) Then + col.Visible = False + End If + Next + End If + + ' FormID und RecordID immer ausblenden + grvwSelection.Columns.Item("Record-ID").Visible = False + grvwSelection.Columns.Item("Form-ID").Visible = False + End Sub + Function GetSelected_RecordID() + Try + If grvwSelection.Columns.Count = 0 Then + Me.pnlDetails.Enabled = False + Me.tsbtnshowWorkflowtasks.Enabled = False + tsstatus_Detail_show(True, "Keine Columns in Grid") + Return Nothing + End If + 'Überhaupt Rows in Grid? + If grvwSelection.RowCount > 0 Then + Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns("Record-ID")) + If Grid_RecordID Is Nothing = False Then + Return Grid_RecordID + Else + tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!") + ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True) + Return Nothing + End If + Else + Return Nothing + End If + Catch ex As Exception + + End Try + End Function + Private Sub TreeViewEbeneSelect_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewEbeneSelect.AfterSelect + If FormLoaded = True Then + Check_Record_Changed() + Load_Data_for_TreeView() + End If + End Sub + Sub Load_Data_for_TreeView() + ACT_EBENE = 0 + If Not TreeViewEbeneSelect.SelectedNode Is Nothing Then + Try + Dim selnode As TreeNode = TreeViewEbeneSelect.SelectedNode + If (selnode.Parent IsNot Nothing) Then + If (selnode.Parent.GetType() Is GetType(TreeNode)) Then + ACT_EBENE = 2 + Dim pnode As TreeNode = selnode.Parent + If (pnode.Parent IsNot Nothing) Then + If (selnode.Parent.GetType() Is GetType(TreeNode)) Then + ACT_EBENE = 3 + End If + End If + + End If + Else + ACT_EBENE = 1 + End If + Catch ex As Exception + MsgBox("Error in Get ACT_EBENE:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + If LogErrorsOnly = False Then ClassLogger.Add(">> Tag (FormID) After Select: " & TreeViewEbeneSelect.SelectedNode.Tag.ToString, False) + Load_Entity_Data(TreeViewEbeneSelect.SelectedNode.Tag) + End If + End Sub + Sub Load_Entity_Data(FORM_ID As Integer) + Try + VerknüpfungenToolStripMenuItem.Enabled = False + CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID) + SelectedRecordID = 0 + Dim DT As DataTable + Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID + Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql) + If PARENT_ID Is Nothing Then + MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation) + Exit Sub + End If + dataloaded = False + 'Abhängig von der Entität die Selektierungs-Daten laden + Dim _sql As String + Select Case ACT_EBENE + Case 1 + PARENT_RECORDID = 0 + CURRENT_PARENTID = 0 + EBENE1_ENTITY = TreeViewEbeneSelect.SelectedNode.Text + ACT_EBENE_STRING = EBENE1_ENTITY + If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False) + EBENE2_ENTITY = "" + EBENE3_ENTITY = "" + tslblEntity2.Visible = False + tslblEntity3.Visible = False + + EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + EBENE2_COLUMNNAME = "" + EBENE3_COLUMNNAME = "" + EBENE2_GRID_RESULT = Nothing + EBENE3_GRID_RESULT = Nothing + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + Case 2 + Dim Level1Select = ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + If CBool(Level1Select) = False And CURRENT_FORM_TYPE <> 5 Then + MsgBox("Entität '" & TreeViewEbeneSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) + TreeViewEbeneSelect.SelectedNode = TreeViewEbeneSelect.SelectedNode.Parent + Exit Sub + End If + EBENE2_ENTITY = TreeViewEbeneSelect.SelectedNode.Text + ACT_EBENE_STRING = EBENE2_ENTITY + If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 2 in TreeView selektiert", False) + EBENE3_ENTITY = "" + 'Parent-ID setzen + If EBENE1_RECID > 0 Then + PARENT_RECORDID = EBENE1_RECID + CURRENT_PARENTID = EBENE1_RECID + End If + tslblEntity3.Visible = False + + EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + + EBENE3_COLUMNNAME = "" + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken + If EBENE1_RECID > 0 Then + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + _sql = _sql.Replace("@RecordID", EBENE1_RECID) + Else + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + End If + EBENE2_GRID_RESULT = Nothing + EBENE3_GRID_RESULT = Nothing + Case 3 + If EBENE2_RECID = 0 Then + MsgBox("Entität '" & TreeViewEbeneSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) + TreeViewEbeneSelect.SelectedNode = TreeViewEbeneSelect.SelectedNode.Parent + Exit Sub + End If + + EBENE3_ENTITY = TreeViewEbeneSelect.SelectedNode.Text + ACT_EBENE_STRING = EBENE3_ENTITY + If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False) + 'Parent-ID setzen + If EBENE2_RECID > 0 Then + PARENT_RECORDID = EBENE2_RECID + CURRENT_PARENTID = EBENE2_RECID + End If + + EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken + If EBENE2_RECID > 0 Then + Try + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID, True) + _sql = _sql.Replace("@RecordID", EBENE2_RECID) + Catch ex As Exception + + End Try + + Else + MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) + 'Grid leeren + GridControlSelection.DataSource = Nothing + grvwSelection.Columns.Clear() + Me.Cursor = Cursors.Default + Exit Sub + End If + EBENE3_GRID_RESULT = Nothing + Case 4 + + End Select + + Me.Cursor = Cursors.WaitCursor + + CURRENT_FORM_ID = FORM_ID + + CURRENT_ENTITYSTRING = ACT_EBENE_STRING + CURRENT_PARENTID = PARENT_RECORDID + act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & FORM_ID) + If EDIT_STATE = "none" Then + 'Die Controls der Entität laden + Load_Controls(act_FormViewID) + set_pnlsize() + End If + CURRENT_FORMVIEW_ID = act_FormViewID + + 'Überprüfen ob windream Dos angezeigt werden sollen? + Check_windream_Show(act_FormViewID) + + + + If windream_Docshow = True Then + Clear_Windream_ResultList() + If WD_ShowEnitityDocs = True Then + RUN_WD_SEARCH("", "ENTITY") + End If + End If + + Select Case CURRENT_FORM_TYPE + Case 5 + 'Nur eine Gruppen-Entität: d.h. es wird nur die Dateientab angezeigt + Console.WriteLine("OnlyGroupType") + Dim sqlRecord As String = "select guid from TBPMO_RECORD where Form_ID = " & CURRENT_FORM_ID + Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True) + If IsNothing(recid) Then + If ClassControlCommandsUI.CreateRecord(CURRENT_FORM_ID) = True Then + recid = ClassControlCommandsUI.GetLastRecord + If IsNothing(recid) Then + CURRENT_RECORD_ID = recid + ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "Group-Entity Link") + Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID) + End If + End If + Else + Try + CURRENT_RECORD_ID = CInt(recid) + Catch ex As Exception + MsgBox("Error while getting CURRENT_RECORDID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID) + End If + TabPageDetails.PageVisible = False + Refresh_Anzeige_Selected_Entity() + Case Else + TabPageDetails.PageVisible = True + Dim Beschreibung = ClassDatabase.Execute_Scalar("SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = " & act_FormViewID) + 'TabPageDetails.Text = "Detaileingabe zu " & Beschreibung + 'Den Spaltennamen für die Selektion laden + sql = "SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID + 'Jetzt die Datensätze zur Entität laden + CURRENT_ENTITYSQL = _sql + Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity") + Dim primaryKey(1) As DataColumn + primaryKey(0) = DTEntity.Columns("Record-ID") + DTEntity.PrimaryKey = primaryKey + + LoadGrid_Selection(_sql, DTEntity) + Select Case EDIT_STATE + Case "none" + Case "update" + Case "insert" + Case "delete" + End Select + Me.pnlDetails.Enabled = False + Me.tsbtnshowWorkflowtasks.Enabled = False + 'Überprüfen ob es für diese Entität Wiedervorlagen gibt? + Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID) + End Select + + Load_Templates() + + Me.Cursor = Cursors.Default + dataloaded = True + Catch ex As Exception + MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Sub Show_NodeAmounts() + Try + Dim selnode As TreeNode = TreeViewEbeneSelect.SelectedNode + Dim a As Integer = 0 + For Each childNodeLevel1 As TreeNode In selnode.Nodes + Dim PARENT_ID As Integer + If a = 0 Then + Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & childNodeLevel1.Tag + PARENT_ID = ClassDatabase.Execute_Scalar(sql) + End If + Dim result As Integer = ReturnAmountofRecords(childNodeLevel1.Tag, PARENT_ID) + If result <> 99999999 Then + Dim origtext As String = childNodeLevel1.Text + If origtext.Contains(" (") Then + Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) + childNodeLevel1.Text = existingstring & " (" & result.ToString & ")" + Else + childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")" + End If + End If + + For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes + Dim origtext As String = childNodeLevel2.Text + If origtext.Contains(" (") Then + Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) + childNodeLevel2.Text = existingstring + End If + For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes + Dim origtext1 As String = childNodeLevel3.Text + If origtext1.Contains(" (") Then + Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1) + childNodeLevel1.Text = existingstring + End If + Next + Next + a += 1 + Next + Catch ex As Exception + + End Try + End Sub + Function ReturnAmountofRecords(EntityID As Integer, PARENT_ID As Integer) + 'Abhängig von der Entität die Selektierungs-Daten laden + Dim _sql As String + If EntityID = EBENE3_PARENT_ID Then + + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken + If EBENE1_RECID > 0 Then + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & EntityID) + _sql = _sql.Replace("@RecordID", EBENE1_RECID) + Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1") + Return DT2.Rows.Count + Else + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & EntityID) + End If + Else + If EBENE2_RECID = 0 Then + Return 99999999 + End If + + 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken + If EBENE2_RECID > 0 Then + _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & EntityID) + _sql = _sql.Replace("@RecordID", EBENE2_RECID) + Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1") + Return DT2.Rows.Count + Else + Return 99999999 + End If + End If + End Function + Sub Load_Entity_Data_Only() + Try + Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "Load_Entity_Data_Only") + Dim primaryKey(1) As DataColumn + primaryKey(0) = DTEntity.Columns("Record-ID") + DTEntity.PrimaryKey = primaryKey + + LoadGrid_Selection(CURRENT_ENTITYSQL, DTEntity) + Catch ex As Exception + MsgBox("Error in Load_Entity_Data_Only:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Sub Load_Templates() + Try + Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID & " ORDER BY TEMPLATE_NAME" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates") + If Not IsNothing(DT) Then + If DT.Rows.Count > 0 Then + VorlageToolStripMenuItem.Enabled = True + VorlageToolStripMenuItem.DropDownItems.Clear() + For Each row As DataRow In DT.Rows + Dim item As ToolStripMenuItem = VorlageToolStripMenuItem + Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(row.Item("TEMPLATE_NAME").ToString, Nothing, AddressOf TemplateItem_Click) + newItem.Tag = row.Item("TEMPLATE_ID") + item.DropDownItems.Add(newItem) ' subitem.DropDownItems.Add(newItem) + Next + Else + VorlageToolStripMenuItem.Enabled = False + End If + End If + Catch ex As Exception + MsgBox("Error in Load_Templates:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub TemplateItem_Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim TemplateID As Integer = Integer.Parse(item.Tag) + If CURRENT_RECORD_ID > 0 Then + Dim SOLLENTITY_ID = ClassDatabase.Execute_Scalar("select ENTITY_ID FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & TemplateID) + Dim REC_ENTITY_ID = ClassDatabase.Execute_Scalar("select FORM_ID FROM TBPMO_RECORD WHERE GUID = " & CURRENT_RECORD_ID) + + If Not IsNothing(SOLLENTITY_ID) Then + If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then + Cursor = Cursors.WaitCursor + If ClassOfficeTemplate.Open_Word_Template(TemplateID, CURRENT_RECORD_ID) = True Then + RUN_WD_SEARCH(WD_Suche, "RECORD") + tslblStatusMain_show(True, "Vorlagen-Datei erfolgreich nach windream importiert!") + End If + Cursor = Cursors.Default + Else + MsgBox("Bitte wählen Sie nochmal einen Datensatz aus!", MsgBoxStyle.Exclamation) + End If + End If + Else + MsgBox("Bitte wählen Sie zuerst einen Datensatz aus.", MsgBoxStyle.Exclamation) + End If + + + End Sub + Private Sub grvwSelection_Layout(sender As Object, e As EventArgs) Handles grvwSelection.Layout + If dataloaded = True Then + If grvwSelection.RowCount > 0 Then + 'Console.WriteLine("grvwSelectionLayout-" & Now) + 'Das aktuelle Layout speichern + Dim XMLPath = GetSelectionGridName() + GridControlSelection.MainView.SaveLayoutToXml(XMLPath) + tslblStatusMain_show(True, "Datagrid-Layout Selection saved") + End If + End If + End Sub + + Private Sub frmForm_Constructor_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.BringToFront() + LoadLayouts() + End Sub + Private Sub ExportNachExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportNachExcelToolStripMenuItem.Click + Dim saveFileDialog1 As New SaveFileDialog + saveFileDialog1.Filter = "Excel File|*.xlsx" + saveFileDialog1.Title = "Export to Excel:" + saveFileDialog1.ShowDialog() + If saveFileDialog1.FileName <> "" Then + Cursor = Cursors.WaitCursor + grvwSelection.ExportToXlsx(saveFileDialog1.FileName) + Dim result As MsgBoxResult + result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Process.Start(saveFileDialog1.FileName) + End If + + + End If + Cursor = Cursors.Default + End Sub + + Private Sub TreeViewEbeneSelect_DragDrop(sender As Object, e As DragEventArgs) Handles TreeViewEbeneSelect.DragDrop + + End Sub + + Private Sub TreeViewEbeneSelect_DragEnter(sender As Object, e As DragEventArgs) Handles TreeViewEbeneSelect.DragEnter + + End Sub + + Private Sub TreeViewRecordAuswahl_DragEnter(sender As Object, e As DragEventArgs) + + End Sub + + Private Sub WindreamSucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamSucheNeuLadenToolStripMenuItem.Click + RUN_WD_SEARCH(WD_Suche, "RECORD") + End Sub + + Private Sub AnsichtKomplettZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtKomplettZurücksetzenToolStripMenuItem.Click + Try + Dim XMLPath = GetSelectionGridName() + If File.Exists(XMLPath) Then + Me.Cursor = Cursors.WaitCursor + File.Delete(XMLPath) + Load_Data_for_TreeView() + tslblStatusMain_show(True, "Das Datagrid wurde erfolgreich zurückgesetzt - " & Now) + End If + Catch ex As Exception + MsgBox("Error in GridSetBack:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + Cursor = Cursors.Default + End Sub + + Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportEntitätToolStripMenuItem.Click + If CURRENT_PARENTID = 0 Then + Exit Sub + End If + frmWD_EntityImport.ShowDialog() + End Sub + + Private Sub KonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KonfigurationToolStripMenuItem.Click + frmwindreamView_Config.ShowDialog() + End Sub + + Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked + CheckDocView() + End Sub + Sub CheckDocView() + Dim _index = AxObjectListControl.GetFirstSelectedObject + Dim path As String = AxObjectListControl.GetObjectPath(_index) + path = path.Replace("?", vWLaufwerk) + DocViewString = path + + If WD_ShowDocs = True Then + CloseWDDocview() + ShowDocView() + End If + End Sub + Sub ShowDocView() + Try + CloseWDDocview() + DocView = Nothing + DocView = CreateObject("WMPViewXNG.Viewer") + ' open the viewer + DocView.ViewFile(DocViewString) + OpenedFileString = DocViewString + Catch ex As Exception + MsgBox("Error in ShowDocView:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + + End Sub + Sub CloseWDDocview() + Try + If DocView Is Nothing = False Then + DocView.CloseView(OpenedFileString, 0) + End If + + Catch ex As Exception + ClassLogger.Add(" ### Error in CloseDocView") + ClassLogger.Add("### " & ex.Message & " ###") + End Try + + End Sub + + Private Sub WorkflowTasksAnneuErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WorkflowTasksAnneuErzeugenToolStripMenuItem.Click + Try + Dim _MsgBoxResult As MsgBoxResult + _MsgBoxResult = MessageBox.Show("Möchten Sie die Workflow-Tasks wirklich neu erzeugen lassen? Die alten Daten werden gelöscht!", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If _MsgBoxResult = MsgBoxResult.Yes Then + Dim sql As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" + sql = sql.Replace("@FORM_ID", CURRENT_FORM_ID) + Dim result As Integer = ClassDatabase.Execute_Scalar(sql) + If result > 0 Then + sql = "EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID" + sql = sql.Replace("@FORM_ID", CURRENT_FORM_ID) + sql = sql.Replace("@RECORD_ID", CURRENT_RECORD_ID) + If ClassDatabase.Execute_non_Query(sql) = True Then + sql = "UPDATE TBPMO_WORKFLOW_TASK SET ACTIVE = 1, CHANGED_WHO = '@CHANGED_WHO' WHERE (RECORD_ID = '@RECORD_ID')" + sql = sql.Replace("@CHANGED_WHO", Environment.UserName) + sql = sql.Replace("@RECORD_ID", CURRENT_RECORD_ID) + If ClassDatabase.Execute_non_Query(sql) = True Then + Show_act_WFTask() + Else + MsgBox("Error during create WorkflowTask. Check Log", MsgBoxStyle.Exclamation) + End If + End If + End If + End If + Catch ex As Exception + MsgBox("Error in Create WF-Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub CarouselToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarouselToolStripMenuItem.Click + grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel + GridControlSelection.MainView = grvwCarousel + End Sub + + Private Sub TabelleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabelleToolStripMenuItem.Click + GridControlSelection.MainView = grvwSelection + End Sub + + Private Sub ResetEbenenAuswahlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ResetEbenenAuswahlToolStripMenuItem.Click + ACT_EBENE = 0 + ACT_EBENE_STRING = "" + EBENE1_ENTITY = "" + EBENE1_RECID = 0 + EBENE2_ENTITY = "" + EBENE2_RECID = 0 + EBENE3_ENTITY = "" + EBENE3_RECID = 0 + BindingSourceEntity.DataSource = Nothing + Load_TreeViewEbene() + End Sub + + Private Sub grvwSelection_CalcRowHeight(sender As Object, e As RowHeightEventArgs) Handles grvwSelection.CalcRowHeight + Dim datarow As System.Data.DataRowView = grvwSelection.GetRow(e.RowHandle) + If Not IsNothing(datarow) Then + Dim data() = datarow.Row.ItemArray + + For Each d In data + If TypeOf d Is Byte() Then + e.RowHeight = 50 + End If + Next + End If + End Sub + + Private Sub ZeigeRecordLogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeigeRecordLogsToolStripMenuItem.Click + frmRecord_Changes.ShowDialog() + End Sub + + + Private Sub GridControlSelection_MouseEnter(sender As Object, e As EventArgs) Handles GridControlSelection.MouseEnter + GridControlSelection.Select() + End Sub + + Private Sub GridControlSelection_KeyDown(sender As Object, e As KeyEventArgs) Handles GridControlSelection.KeyDown + MyBase.OnKeyDown(e) + If e.Control AndAlso e.KeyCode = Keys.C Then + If grvwSelection.GetRowCellValue(grvwSelection.FocusedRowHandle, grvwSelection.FocusedColumn) IsNot Nothing AndAlso grvwSelection.GetRowCellValue(grvwSelection.FocusedRowHandle, grvwSelection.FocusedColumn).ToString() <> String.Empty Then + Clipboard.SetText(grvwSelection.GetRowCellValue(grvwSelection.FocusedRowHandle, grvwSelection.FocusedColumn).ToString()) + MsgBox("The value in the selected cell is null or empty!", MsgBoxStyle.Information) + End If + End If + End Sub + + Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged + Select Case TCDetails.SelectedTabPageIndex + Case 0 + If RECORD_NEEDS_REFRESH = True Then + ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_FORM_ID, CtrlBuilder.AllControls) + UpdRECORD_NEEDS_REFRESH(False) + End If + + Refresh_CreatedChangedRecordByID(SelectedRecordID) + RECORD_CHANGED = False + Case 1 'windream-Dokumente + RUN_WD_SEARCH(WD_Suche, "RECORD") + Case 2 + Refresh_FollowUps() + End Select + End Sub + + Private Sub pnlDetails_MouseClick(sender As Object, e As MouseEventArgs) Handles pnlDetails.MouseClick + pnlDetails.Select() + End Sub + + Private Sub ListViewFollowUp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewFollowUp.SelectedIndexChanged + If Me.ListViewFollowUp.SelectedItems.Count > 0 Then + FOLL_UP_ID = ListViewFollowUp.SelectedItems(0).Text + lblFollowUp_save.Visible = False + For Each DR As DataRow In DT_FU_ENTITY.Rows + If FOLL_UP_ID = DR.Item("GUID") Then + grpbxFU_Profile.Enabled = True + dataloaded = False + FOLL_UP_DATE_CTRL_ID = DR.Item("DEPENDENT_DATE_CTRL_ID") + Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), CURRENT_RECORD_ID) + If Not IsNothing(datevalue) Then + FOLL_UP_RECORD_DEFINED = True + dtpWV.Value = CDate(datevalue) + Else + dtpWV.Value = CDate(Now) + FOLL_UP_RECORD_DEFINED = False + End If + Dim caption = ClassDatabase.Execute_Scalar("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"), True) + If Not IsNothing(caption) Then + lblWV_Date.Text = CStr(caption) + End If + FOLL_UP_DONE_CTRL_ID = DR.Item("DEPENDENT_DONE_CTRL_ID") + Dim checkvalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_RECORD_ID) + If Not IsNothing(checkvalue) Then + chkFollowUp.Checked = CBool(checkvalue) + Else + chkFollowUp.Checked = False + End If + Dim captionCheck = ClassDatabase.Execute_Scalar("SELECT CONTROL_TEXT FROM TBPMO_CONTROL_SCREEN WHERE SCREEN_ID = 1 AND CONTROL_ID = " & DR.Item("DEPENDENT_DONE_CTRL_ID"), True) + If Not IsNothing(captionCheck) Then + chkFollowUp.Text = CStr(captionCheck) + End If + + Load_FUUser(FOLL_UP_ID) + + dataloaded = True + End If + Next + End If + End Sub + Sub Load_FUUser(ID As Integer) + Try + Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_RECORD T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & ID & " AND T.RECORD_ID = " & CURRENT_RECORD_ID & " ORDER BY T1.USERNAME" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_FollowUpUser") + ListBoxUser2Profile.DataSource = DT + ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName + ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName + Catch ex As Exception + MsgBox("Fehler bei Load_FUUser:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpWV.ValueChanged + If dataloaded = False Then + Exit Sub + End If + If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, CURRENT_RECORD_ID, dtpWV.Value) = True Then + lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString + lblFollowUp_save.Visible = True + UpdRECORD_NEEDS_REFRESH(True) + Else + lblFollowUp_save.Visible = False + UpdRECORD_NEEDS_REFRESH(False) + End If + End Sub + + Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged + If dataloaded = False Then + Exit Sub + End If + If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, CURRENT_RECORD_ID, chkFollowUp.Checked.ToString) = True Then + lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString + lblFollowUp_save.Visible = True + UpdRECORD_NEEDS_REFRESH(True) + Else + lblFollowUp_save.Visible = False + UpdRECORD_NEEDS_REFRESH(False) + End If + End Sub + Sub UpdRECORD_NEEDS_REFRESH(state As Boolean) + If RECORD_NEEDS_REFRESH <> state Then + RECORD_NEEDS_REFRESH = state + End If + End Sub + + Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click + If cmbWHUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then + Try + Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbWHUser.SelectedValue & ", " & CURRENT_RECORD_ID & ", '" & Environment.UserName & "')" + If ClassDatabase.Execute_non_Query(ins, True) = True Then + Load_FUUser(FOLL_UP_ID) + End If + Catch ex As Exception + MsgBox("Fehler bei Add User 2 FollowUp_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + If ListBoxUser2Profile.SelectedIndex <> -1 Then + Try + Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE GUID = " & ListBoxUser2Profile.SelectedValue + If ClassDatabase.Execute_non_Query(del, True) = True Then + Load_FUUser(FOLL_UP_ID) + End If + Catch ex As Exception + MsgBox("Fehler bei Löschen Userverknüpfung:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub VerknüpfungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenToolStripMenuItem.Click + Show_Verknuepfungen() + End Sub + Sub Show_Verknuepfungen() + If SplitCont_Details.Collapsed = True Then + VerknüpfungenToolStripMenuItem.Text = "Verknüfungen ausblenden" + Load_ParentConnections() + XtraTabControl1.SelectedTabPageIndex = 0 + SplitCont_Details.Collapsed = False + Else + VerknüpfungenToolStripMenuItem.Text = "Verknüfungen einblenden" + SplitCont_Details.Collapsed = True + Save_GridViewParentEntityLayout() + My.Settings.Save() + End If + End Sub + Sub Load_ParentConnections() + Try + ' SELECT COLUMN_NAME1 FROM VWTEMP_cPMO_FORM + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT TOP 1 PARENT_ID,FORM_TITLE from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID, "Parent-Data") + Dim Parent_ID = DT.Rows(0).Item(0) + Dim Title = DT.Rows(0).Item(1) + Dim Colname = "[" & ClassDatabase.Execute_Scalar("SELECT TOP 1 COLUMN_NAME1 from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & Parent_ID, True) & "]" + Load_GridViewParentEntity_Layout() + If Not IsNothing(Parent_ID) And Not IsNothing(Colname) Then + Dim sql = "select [Record-ID], " & Colname & " from VWTEMP_PMO_FORM" & Parent_ID.ToString + Dim DTGrid As DataTable = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity") + GridControlParentEntity.DataSource = Nothing + GridViewParentEntity.Columns.Clear() + 'Databinding Neu + GridControlParentEntity.DataSource = DTGrid + TabPageParentEntity.Text = "Aktuelle Parent-Entity: " & Title + GridViewParentEntity.Columns.Item("Record-ID").Visible = False + End If + Catch ex As Exception + MsgBox("Fehler bei Load_ParentConnections:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub GridViewParentEntity_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewParentEntity.FocusedColumnChanged + GetFocusedParentID() + End Sub + + Private Sub GridViewParentEntity_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewParentEntity.FocusedRowChanged + GetFocusedParentID() + End Sub + Dim Linkparent_ID As Integer + Sub GetFocusedParentID() + Try + If GridViewParentEntity.RowCount > 0 Then + Dim Grid_RecordID = GridViewParentEntity.GetFocusedRowCellValue(GridViewParentEntity.Columns("Record-ID")) + If Grid_RecordID Is Nothing = False Then + Linkparent_ID = Grid_RecordID + lblParentID.Text = Grid_RecordID.ToString & " - " & GridViewParentEntity.GetFocusedRowCellValue(GridViewParentEntity.Columns(1)) + btnRefreshPEntity.BackColor = Color.DarkOrange + btnRefreshPEntity.FlatAppearance.BorderColor = Color.DarkOrange + Else + ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - GetFocusedParentID", True) + lblParentID.Text = "keine Auswahl möglich" + End If + Else + lblParentID.Text = "keine Rows gefunden" + End If + Catch ex As Exception + MsgBox("Fehler bei GetFocusedParentID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnRefreshPEntity_Click(sender As Object, e As EventArgs) Handles btnRefreshPEntity.Click + If lblParentID.Text = "" Then + Exit Sub + End If + If PARENT_RECORDID > 0 Then + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result <> MsgBoxResult.Yes Then + Exit Sub + Else + If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & CURRENT_RECORD_ID & " AND RECORD1_ID = " & PARENT_RECORDID, True) = False Then + Exit Sub + End If + End If + + End If + If ClassControlCommandsUI.ConnectRecord(Linkparent_ID, CURRENT_RECORD_ID, "ENTITY" & CURRENT_FORM_ID.ToString) = True Then + Save_GridViewParentEntityLayout() + MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information) + Check_Record_Changed() + Load_Data_for_TreeView() + btnRefreshPEntity.BackColor = Color.Lime + btnRefreshPEntity.FlatAppearance.BorderColor = Color.Lime + 'Show_Verknuepfungen() + End If + 'Dim PARENT_RECORD_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_RECORD_CONNECT WHERE ") + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Show_Verknuepfungen() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Input.Designer.vb b/app - Kopie/DD-Record-Organiser/frmForm_Input.Designer.vb new file mode 100644 index 0000000..44c23ca --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Input.Designer.vb @@ -0,0 +1,547 @@ + _ +Partial Class frmFormInput + 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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormInput)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tsstat_lbl = New System.Windows.Forms.ToolStripStatusLabel() + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.VWPMO_CONTROL_SCREENBindingSource = New System.Windows.Forms.BindingSource() + Me.VWPMO_CONTROL_SCREENTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.VWPMO_CONTROL_SCREENBindingNavigator = New System.Windows.Forms.BindingNavigator() + Me.BindingSourceDGV = New System.Windows.Forms.BindingSource() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton() + Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.LäscheAlleFilterEtcToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SplitContainerMain = New System.Windows.Forms.SplitContainer() + Me.dgvInput = New DevExpress.XtraGrid.GridControl() + Me.gvMainView = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.SplitContainerDetails = New System.Windows.Forms.SplitContainer() + Me.pnlView = New System.Windows.Forms.Panel() + Me.StatusStrip2 = New System.Windows.Forms.StatusStrip() + Me.tserstellt_Detail = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton() + Me.tsButtonDelete = New System.Windows.Forms.ToolStripButton() + Me.tsButtonSave = New System.Windows.Forms.ToolStripButton() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.tslblAnzahl_Dokumente = New System.Windows.Forms.ToolStripLabel() + Me.TBPMO_RECORDBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPMO_RECORDTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter() + Me.TooltipControl = New System.Windows.Forms.ToolTip() + Me.ttTooltip = New System.Windows.Forms.ToolTip() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip() + Me.StammdatenEditierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1.SuspendLayout() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWPMO_CONTROL_SCREENBindingNavigator.SuspendLayout() + CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerMain.Panel1.SuspendLayout() + Me.SplitContainerMain.Panel2.SuspendLayout() + Me.SplitContainerMain.SuspendLayout() + CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerDetails.Panel1.SuspendLayout() + Me.SplitContainerDetails.Panel2.SuspendLayout() + Me.SplitContainerDetails.SuspendLayout() + Me.StatusStrip2.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstat_lbl}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 646) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0) + Me.StatusStrip1.Size = New System.Drawing.Size(919, 22) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tsstat_lbl + ' + Me.tsstat_lbl.Image = Global.DD_Record_Organiser.My.Resources.Resources.flag_green + Me.tsstat_lbl.Name = "tsstat_lbl" + Me.tsstat_lbl.Size = New System.Drawing.Size(69, 17) + Me.tsstat_lbl.Text = "tsstat_lbl" + Me.tsstat_lbl.Visible = False + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPMO_CONTROL_SCREENBindingSource + ' + Me.VWPMO_CONTROL_SCREENBindingSource.DataMember = "VWPMO_CONTROL_SCREEN" + Me.VWPMO_CONTROL_SCREENBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'VWPMO_CONTROL_SCREENTableAdapter + ' + Me.VWPMO_CONTROL_SCREENTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'VWPMO_CONTROL_SCREENBindingNavigator + ' + Me.VWPMO_CONTROL_SCREENBindingNavigator.AddNewItem = Nothing + Me.VWPMO_CONTROL_SCREENBindingNavigator.BindingSource = Me.BindingSourceDGV + Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItemFormat = "von {0} Datensätzen" + Me.VWPMO_CONTROL_SCREENBindingNavigator.DeleteItem = Nothing + Me.VWPMO_CONTROL_SCREENBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnrefresh, Me.ToolStripDropDownButton1}) + Me.VWPMO_CONTROL_SCREENBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.Name = "VWPMO_CONTROL_SCREENBindingNavigator" + Me.VWPMO_CONTROL_SCREENBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.Size = New System.Drawing.Size(919, 25) + Me.VWPMO_CONTROL_SCREENBindingNavigator.TabIndex = 1 + Me.VWPMO_CONTROL_SCREENBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingSourceDGV + ' + Me.BindingSourceDGV.AllowNew = False + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(111, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Datensätzen" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(58, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnrefresh + ' + Me.tsbtnrefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnrefresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnrefresh.Name = "tsbtnrefresh" + Me.tsbtnrefresh.Size = New System.Drawing.Size(146, 22) + Me.tsbtnrefresh.Text = "Übersicht aktualisieren" + ' + 'ToolStripDropDownButton1 + ' + Me.ToolStripDropDownButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripDropDownButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LäscheAlleFilterEtcToolStripMenuItem}) + Me.ToolStripDropDownButton1.Image = CType(resources.GetObject("ToolStripDropDownButton1.Image"), System.Drawing.Image) + Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" + Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(65, 22) + Me.ToolStripDropDownButton1.Text = "Datagrid" + ' + 'LäscheAlleFilterEtcToolStripMenuItem + ' + Me.LäscheAlleFilterEtcToolStripMenuItem.Name = "LäscheAlleFilterEtcToolStripMenuItem" + Me.LäscheAlleFilterEtcToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.LäscheAlleFilterEtcToolStripMenuItem.Text = "Lösche alle Filter etc" + ' + 'SplitContainerMain + ' + Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerMain.Location = New System.Drawing.Point(0, 25) + Me.SplitContainerMain.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.SplitContainerMain.Name = "SplitContainerMain" + Me.SplitContainerMain.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainerMain.Panel1 + ' + Me.SplitContainerMain.Panel1.Controls.Add(Me.dgvInput) + ' + 'SplitContainerMain.Panel2 + ' + Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerDetails) + Me.SplitContainerMain.Size = New System.Drawing.Size(919, 621) + Me.SplitContainerMain.SplitterDistance = 248 + Me.SplitContainerMain.SplitterWidth = 5 + Me.SplitContainerMain.TabIndex = 2 + Me.SplitContainerMain.TabStop = False + ' + 'dgvInput + ' + Me.dgvInput.DataSource = Me.BindingSourceDGV + Me.dgvInput.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvInput.Location = New System.Drawing.Point(0, 0) + Me.dgvInput.MainView = Me.gvMainView + Me.dgvInput.Name = "dgvInput" + Me.dgvInput.Size = New System.Drawing.Size(919, 248) + Me.dgvInput.TabIndex = 2 + Me.dgvInput.TabStop = False + Me.dgvInput.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvMainView}) + ' + 'gvMainView + ' + Me.gvMainView.Appearance.OddRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.gvMainView.Appearance.OddRow.Options.UseBackColor = True + Me.gvMainView.GridControl = Me.dgvInput + Me.gvMainView.Name = "gvMainView" + Me.gvMainView.OptionsBehavior.Editable = False + Me.gvMainView.OptionsLayout.Columns.StoreAppearance = True + Me.gvMainView.OptionsPrint.EnableAppearanceOddRow = True + Me.gvMainView.OptionsSelection.EnableAppearanceFocusedCell = False + Me.gvMainView.OptionsView.EnableAppearanceEvenRow = True + Me.gvMainView.OptionsView.EnableAppearanceOddRow = True + ' + 'SplitContainerDetails + ' + Me.SplitContainerDetails.AllowDrop = True + Me.SplitContainerDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerDetails.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerDetails.Name = "SplitContainerDetails" + Me.SplitContainerDetails.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainerDetails.Panel1 + ' + Me.SplitContainerDetails.Panel1.Controls.Add(Me.pnlView) + Me.SplitContainerDetails.Panel1.Controls.Add(Me.StatusStrip2) + Me.SplitContainerDetails.Panel1.Controls.Add(Me.ToolStrip2) + ' + 'SplitContainerDetails.Panel2 + ' + Me.SplitContainerDetails.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitContainerDetails.Size = New System.Drawing.Size(919, 368) + Me.SplitContainerDetails.SplitterDistance = 100 + Me.SplitContainerDetails.TabIndex = 3 + Me.SplitContainerDetails.TabStop = False + ' + 'pnlView + ' + Me.pnlView.AutoSize = True + Me.pnlView.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.pnlView.BackColor = System.Drawing.SystemColors.Control + Me.pnlView.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlView.Location = New System.Drawing.Point(0, 25) + Me.pnlView.Name = "pnlView" + Me.pnlView.Size = New System.Drawing.Size(919, 53) + Me.pnlView.TabIndex = 2 + ' + 'StatusStrip2 + ' + Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Detail}) + Me.StatusStrip2.Location = New System.Drawing.Point(0, 78) + Me.StatusStrip2.Name = "StatusStrip2" + Me.StatusStrip2.Size = New System.Drawing.Size(919, 22) + Me.StatusStrip2.TabIndex = 1 + Me.StatusStrip2.Text = "StatusStrip2" + ' + 'tserstellt_Detail + ' + Me.tserstellt_Detail.Name = "tserstellt_Detail" + Me.tserstellt_Detail.Size = New System.Drawing.Size(121, 17) + Me.tserstellt_Detail.Text = "ToolStripStatusLabel1" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonDelete, Me.tsButtonSave}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(919, 25) + Me.ToolStrip2.TabIndex = 0 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'tsButtonAdd + ' + Me.tsButtonAdd.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.tsButtonAdd.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsButtonAdd.Name = "tsButtonAdd" + Me.tsButtonAdd.Size = New System.Drawing.Size(89, 22) + Me.tsButtonAdd.Text = "Hinzufügen" + ' + 'tsButtonDelete + ' + Me.tsButtonDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.Delete1 + Me.tsButtonDelete.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsButtonDelete.Name = "tsButtonDelete" + Me.tsButtonDelete.Size = New System.Drawing.Size(71, 22) + Me.tsButtonDelete.Text = "Löschen" + ' + 'tsButtonSave + ' + Me.tsButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.tsButtonSave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsButtonSave.Name = "tsButtonSave" + Me.tsButtonSave.Size = New System.Drawing.Size(79, 22) + Me.tsButtonSave.Text = "Speichern" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(919, 264) + Me.XtraTabControl1.TabIndex = 4 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.AxObjectListControl) + Me.XtraTabPage1.Controls.Add(Me.ToolStrip1) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(913, 236) + Me.XtraTabPage1.Text = "Windream-Suche" + ' + 'AxObjectListControl + ' + Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill + Me.AxObjectListControl.Enabled = True + Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25) + Me.AxObjectListControl.Name = "AxObjectListControl" + Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State) + Me.AxObjectListControl.Size = New System.Drawing.Size(913, 211) + Me.AxObjectListControl.TabIndex = 4 + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAnzahl_Dokumente}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(913, 25) + Me.ToolStrip1.TabIndex = 0 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'tslblAnzahl_Dokumente + ' + Me.tslblAnzahl_Dokumente.Name = "tslblAnzahl_Dokumente" + Me.tslblAnzahl_Dokumente.Size = New System.Drawing.Size(89, 22) + Me.tslblAnzahl_Dokumente.Text = "ToolStripLabel1" + ' + 'TBPMO_RECORDBindingSource + ' + Me.TBPMO_RECORDBindingSource.DataMember = "TBPMO_RECORD" + Me.TBPMO_RECORDBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_RECORDTableAdapter + ' + Me.TBPMO_RECORDTableAdapter.ClearBeforeFill = True + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammdatenEditierenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(192, 26) + ' + 'StammdatenEditierenToolStripMenuItem + ' + Me.StammdatenEditierenToolStripMenuItem.Name = "StammdatenEditierenToolStripMenuItem" + Me.StammdatenEditierenToolStripMenuItem.Size = New System.Drawing.Size(191, 22) + Me.StammdatenEditierenToolStripMenuItem.Text = "Stammdaten editieren" + ' + 'frmFormInput + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(919, 668) + Me.Controls.Add(Me.SplitContainerMain) + Me.Controls.Add(Me.VWPMO_CONTROL_SCREENBindingNavigator) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.KeyPreview = True + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmFormInput" + Me.Text = "frmForm_Input" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.VWPMO_CONTROL_SCREENBindingNavigator.ResumeLayout(False) + Me.VWPMO_CONTROL_SCREENBindingNavigator.PerformLayout() + CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerMain.Panel1.ResumeLayout(False) + Me.SplitContainerMain.Panel2.ResumeLayout(False) + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerMain.ResumeLayout(False) + CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerDetails.Panel1.ResumeLayout(False) + Me.SplitContainerDetails.Panel1.PerformLayout() + Me.SplitContainerDetails.Panel2.ResumeLayout(False) + CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerDetails.ResumeLayout(False) + Me.StatusStrip2.ResumeLayout(False) + Me.StatusStrip2.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents VWPMO_CONTROL_SCREENBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_CONTROL_SCREENTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VWPMO_CONTROL_SCREENBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer + Friend WithEvents BindingSourceDGV As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_RECORDBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_RECORDTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter + Friend WithEvents tsstat_lbl As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton + Friend WithEvents dgvInput As DevExpress.XtraGrid.GridControl + Friend WithEvents gvMainView As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents SplitContainerDetails As System.Windows.Forms.SplitContainer + Friend WithEvents TooltipControl As System.Windows.Forms.ToolTip + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents AxObjectListControl As AxOBJECTLISTCONTROLLib.AxObjectListControl + Friend WithEvents tslblAnzahl_Dokumente As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents pnlView As System.Windows.Forms.Panel + Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip + Friend WithEvents tsButtonAdd As System.Windows.Forms.ToolStripButton + Friend WithEvents tsButtonDelete As System.Windows.Forms.ToolStripButton + Friend WithEvents tsButtonSave As System.Windows.Forms.ToolStripButton + Friend WithEvents tserstellt_Detail As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ttTooltip As System.Windows.Forms.ToolTip + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents StammdatenEditierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents LäscheAlleFilterEtcToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Input.resx b/app - Kopie/DD-Record-Organiser/frmForm_Input.resx new file mode 100644 index 0000000..02c5475 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Input.resx @@ -0,0 +1,232 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 134, 17 + + + 277, 17 + + + 563, 17 + + + 843, 17 + + + 1016, 17 + + + 1318, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + 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== + + + + 802, 56 + + + 695, 56 + + + 588, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB + AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAXF4AAM8VAAAAAAAACw== + + + + 588, 56 + + + 148, 56 + + + 371, 56 + + + 17, 56 + + + 919, 56 + + + 1005, 57 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Input.vb b/app - Kopie/DD-Record-Organiser/frmForm_Input.vb new file mode 100644 index 0000000..4572dbd --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Input.vb @@ -0,0 +1,562 @@ +Imports DevExpress.XtraScheduler +Imports System.IO +Imports WINDREAMLib + +Public Class frmFormInput + + + +#Region "+++++ Konstanten +++++" + 'Private akt_ctrl As Control + Private thisformid As Integer = Nothing + Private SelectedRecordID As Integer = 0 + Private SelectedFormID As Integer = Nothing + Private m_Moving As Boolean = False + Private insert = False + Private DocView As Boolean = False + Private _windream As New ClassWindream + 'Private Shared _Instance As frmFormInput = Nothing + 'Public Shared Function Instance() As frmFormInput + ' If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + ' _Instance = New frmFormInput + ' End If + ' _Instance.BringToFront() + ' Return _Instance + 'End Function + +#End Region + + + Public Sub SetFormTitles(title As String) + Me.Text = title + ' BindingNavigatorCountItem.Text = BindingNavigatorCountItem.Text.Replace("Datensätzen", title) + End Sub + +#Region "+++++ Form Events +++++" + Public Sub LoadOverview_Grid() + Try + 'Load Input Grid + Dim _sqlGrid As String = "SELECT SQL_COMMAND FROM TBPMO_FORM_SQL WHERE FORM_ID = " & thisformid + Dim _sql = ClassDatabase.Execute_Scalar(_sqlGrid) + If (Not IsDBNull(_sql)) Then + Dim dt As DataTable = ClassDatabase.Return_Datatable(_sql) + If dt Is Nothing = False Then + 'BindingSource for Navigator + Me.BindingSourceDGV.DataSource = dt + 'bind Datatable to bindingsource + Me.dgvInput.DataSource = Me.BindingSourceDGV + 'Me.dgvOverview.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) + End If + Else + MsgBox("No entries for actual Form. Pleas insert the first values.", MsgBoxStyle.Exclamation) + End If + + + Catch ex As Exception + MsgBox("Error in Load Overview Grid:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub frmLevel_Designer_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Me.VWPMO_CONTROL_SCREENTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_RECORDTableAdapter.Connection.ConnectionString = MyConnectionString + + thisformid = CURRENT_FORM_ID + Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, thisformid) + + CtrlBuilder = New ClassControlBuilder(pnlView, ttTooltip) + CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder, + ContextMenuStrip1, + AddressOf NewEditAppointment, + AddressOf OpenFormData) + If ClassDatabase.Init = True Then + LoadOverview_Grid() + LoadFormProperties() + CtrlCommandUI.LoadControls(CURRENT_FORM_ID) + ' FocusedRow_Change ruft bereits LoadControlValues auf + FocusedRow_Change() + End If + + ClassWindowLocation.LoadFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID) + + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + End Sub +#End Region + +#Region "+++++ Layout +++++" + Private Sub frmFormInput_Shown(sender As Object, e As EventArgs) Handles Me.Shown + LoadLayout() + End Sub + + Private Sub frmLevel_Designer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + SaveLayout() + ClassWindowLocation.SaveFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID) + My.Settings.Save() + + 'frmForm_Overview.Instance.Show() + 'frmTool_ControlProperties.Instance.Close() + 'frmTool_ControlDesigner.Instance.Close() + Catch ex As Exception + + End Try + End Sub + + Public Sub LoadLayout() + + Try + 'DataGridView Layout laden + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml") + dgvInput.MainView.RestoreLayoutFromXml(XMLPath) + + + 'Splitter Layout laden + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) + settings = layout.Load() + + If settings.Count = 0 Then + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterDistance)) + layout.Save(settings) + End If + + For Each s As ClassSetting In settings + Select Case s._name + Case "SplitContainerMain" + SplitContainerMain.SplitterDistance = Integer.Parse(s._value) + Case "SplitContainerDetails" + SplitContainerDetails.SplitterDistance = Integer.Parse(s._value) + End Select + Next + Catch notFoundEx As System.IO.FileNotFoundException + ClassLogger.Add("Layout added for Screen " & CURRENT_SCREEN_ID & ", Form " & thisformid) + Catch ex As Exception + MsgBox("Error while loading Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + + Public Sub SaveLayout() + Try + 'DataGridView Layout speichern + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml") + dgvInput.MainView.SaveLayoutToXml(XMLPath) + + 'Splitter Layout speichern + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting) + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterDistance)) + layout.Save(settings) + Catch ex As Exception + MsgBox("Error while saving Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + +#End Region + +#Region "+++++ Load Funktionen +++++" + Public Sub LoadFormProperties() + 'Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID + Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid + + Console.WriteLine(thisformid) + + 'Dim name = ClassDatabase.Execute_Scalar(NAME_SQL) + Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL) + + DocView = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid) + If DocView = True Then + If _windream.Init = True Then + Me.SplitContainerDetails.Panel2Collapsed = False + End If + + Else + Me.SplitContainerDetails.Panel2Collapsed = True + End If + 'SetFormName(name) + SetFormTitles(title) + End Sub + + Private Sub Load_Value(recID As Integer, CONTROLID As Integer, control As Control) + Try + Dim sq = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_ID = " & CONTROLID + Dim DT As DataTable = ClassDatabase.Return_Datatable(sq) + Dim result = DT.Rows(0).Item("VALUE") + Select Case DT.Rows(0).Item("CONTROL_TYPE_ID") + Case 2 ' TextBox + Dim textbox As TextBox = DirectCast(control, TextBox) + textbox.Text = result + Case 10 ' CheckBox + Dim checkbox As CheckBox = DirectCast(control, CheckBox) + checkbox.Checked = CBool(result) + Case 3 ' ComboBox + Dim combobox As ComboBox = DirectCast(control, ComboBox) + combobox.SelectedIndex = combobox.FindStringExact(result) + Case 4 'DateTimePicker + Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) + datepicker.DateTime = Date.Parse(result) + Case Else + ' MsgBox(DT.Rows(0).Item("CONTROL_TYPE_ID")) + End Select + Catch ex As Exception + MsgBox("Error in Load_Value:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function Return_SearchPAttern(ByVal content As String) + Select Case content + Case "Form-ID (Entity)" + Return thisformid + Case "Record-ID" + Return SelectedRecordID + + End Select + End Function + Private Sub load_Documents() + Try + If DocView Then + Dim SQL = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid & " and SCREEN_ID = " & CURRENT_SCREEN_ID + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) + If DT.Rows.Count = 1 Then + If Not IsDBNull(DT.Rows(0).Item(0)) Then + Dim WD_Suche = DT.Rows(0).Item(0) + Dim SP1 = DT.Rows(0).Item(1) + Dim SP2 = DT.Rows(0).Item(2) + Dim SP3 = DT.Rows(0).Item(3) + Dim SP4 = DT.Rows(0).Item(4) + Dim SP5 = DT.Rows(0).Item(5) + + + 'Eine tempfile generieren + Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() + 'Nur den Filenamen ohne Erweiterung + Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) + 'tempfile lsöchen + If My.Computer.FileSystem.FileExists(tempFilename1) Then + My.Computer.FileSystem.DeleteFile(tempFilename1) + End If + Try + Dim temppath = Path.GetTempPath + + Dim fileContents As String + fileContents = My.Computer.FileSystem.ReadAllText(WD_Suche) + fileContents.Replace("Í", "Ö") + If SP1.ToString <> String.Empty Then + SP1 = Return_SearchPAttern(SP1.ToString) + fileContents = fileContents.Replace("%pattern1%", SP1) + fileContents = fileContents.Replace("471101", SP1) + End If + If SP2.ToString <> String.Empty Then + SP2 = Return_SearchPAttern(SP2.ToString) + fileContents = fileContents.Replace("%pattern2%", SP2) + fileContents = fileContents.Replace("471101", SP2) + End If + If SP3.ToString <> String.Empty Then + SP3 = Return_SearchPAttern(SP3.ToString) + fileContents = fileContents.Replace("%pattern3%", SP3) + fileContents = fileContents.Replace("471102", SP3) + End If + If SP4.ToString <> String.Empty Then + SP4 = Return_SearchPAttern(SP4.ToString) + fileContents = fileContents.Replace("%pattern4%", SP4) + fileContents = fileContents.Replace("471103", SP4) + End If + If SP5.ToString <> String.Empty Then + SP5 = Return_SearchPAttern(SP5.ToString) + fileContents = fileContents.Replace("%pattern5%", SP5) + fileContents = fileContents.Replace("471105", SP5) + End If + + + + + + 'Die windream File zusammensetzen + Dim newfilename = temppath & tempName & ".wdf" + My.Computer.FileSystem.WriteAllText(newfilename, fileContents, False) + ' XML-Datei initialisieren + Dim xml As New System.Xml.XmlDocument() + ' XML-Datei öffnen und laden + xml.Load(newfilename) + xml.Save(newfilename) + Dim windreamSucheErgebnisse As WMObjects = Me._windream.GetSearchDocuments(newfilename) + If Not IsNothing(windreamSucheErgebnisse) AndAlso windreamSucheErgebnisse.Count > 0 Then + AxObjectListControl.SetIconMode(True) + AxObjectListControl.RemoveAllColumnHeader() + + Me.tslblAnzahl_Dokumente.Text = windreamSucheErgebnisse.Count & " gefundene Dateien" + Dim param As New List(Of String) + 'The file name + param.Add("szLongName") + 'The size + param.Add("dwCreationDate") + param.Add("dwCreation_Time") + + Me.AxObjectListControl.SetSession(_windream.oSession, "foo", "bar") + 'Change the satus icon + 'ICON STATES: + Me.AxObjectListControl.SetStatusIcon(0) + + 'Change the icon + Me.AxObjectListControl.SetStatusIcon(2) + 'Add all search params + For Each spar As String In param + 'You need to use the column name here + 'Please note that some attributes or indices will not be displayed + 'Try not to add the same header twice, it will throw cause problems if you do that + Me.AxObjectListControl.AddColumnHeader(spar, 200) + Next + 'Execute the search + Dim results As WMObjects = windreamSucheErgebnisse + 'Set the contents without displaying them + AxObjectListControl.SetContentsEx(results) + 'Change the icon + AxObjectListControl.SetStatusIcon(5) + 'Display the results... + 'The Previous Object Count + Dim poc As Integer = 0 + 'Display new objects, as long as the objectcount changes after displaying the objects + + Do Until (poc <> AxObjectListControl.GetObjectCount) + poc = AxObjectListControl.GetObjectCount + 'If you want, you can display more items at a time + 'But do not display to many at a time or the user interface could freeze + 'Maybe try 50 + AxObjectListControl.DisplayResults(5) + + Loop + AxObjectListControl.SetStatusIcon(3) + + + End If + If My.Computer.FileSystem.FileExists(newfilename) Then + My.Computer.FileSystem.DeleteFile(newfilename) + End If + + Catch ex As Exception + MsgBox("Error in execute-windreamSearch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End If + End If + End If + Catch ex As Exception + MsgBox("Error in load_Documents:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + + End Sub + +#End Region + +#Region "+++++ Mouse/Key Events +++++" + Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown + + End Sub + Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp + + End Sub + Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove + + End Sub + + Private Sub Control_Click(sender As Object, e As EventArgs) + ' TODO: CLICK CONTROL + End Sub + + Private Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs) + ' TODO: DRAG DROP GROUPBOX + End Sub + + Private Sub Control_PressTab(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs) + Console.WriteLine(sender.ToString) + End Sub + +#End Region + + Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Dim ctrl As Control = sender + Cursor = Cursors.WaitCursor + ClassFunctionCommandsUI.OpenFormData(ctrl.Name, thisformid) + Cursor = Cursors.Default + End Sub + + Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Dim ctrl As Control = sender + ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, thisformid, SelectedRecordID, pnlView.Controls) + End Sub + + Private Sub FocusedRow_Change() + Try + If gvMainView.Columns.Count = 0 Then + Exit Sub + End If + Dim RecordID + If gvMainView.RowCount > 0 Then + RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName) + If RecordID Is Nothing Then + Exit Sub + End If + End If + + Dim CONTROL_ID As Integer + If RecordID Is Nothing = False Then + If (Not IsDBNull(RecordID)) Then + ' TODO: AUCH IN CONTSTRUCTOR + ' TODO: Doppelte einträge bei INSERT und UPDATE fixen + ' TODO: FormID wird falsch oder nicht gesetzt + SelectedRecordID = RecordID + ' SelectedFormID = RowView.Item(1) + RefreshRecordByID(SelectedRecordID) + + ClassControlValues.LoadControlValues(SelectedRecordID, thisformid, pnlView.Controls) + End If + load_Documents() + End If + + Catch ex As Exception + MsgBox("Error in FocusedRow_Change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ToolStrip_Notice(text As String) + If text.Length > 0 Then + tsstat_lbl.Text = text + tsstat_lbl.Visible = True + Else + tsstat_lbl.Visible = False + End If + End Sub + Private Sub RefreshRecordByID(RECORD_ID As Integer) + Try + Me.TBPMO_RECORDTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD, CType(RECORD_ID, Integer)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Dim sql As String = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & SelectedRecordID + If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record + sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & SelectedRecordID + If ClassDatabase.Execute_non_Query(sql) = True Then + LoadOverview_Grid() + ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now) + End If + End If + + End If + End Sub + + Private Sub tsbtnrefresh_Click(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click + LoadOverview_Grid() + End Sub + + Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click + 'CtrlCommandUI.LoadControls(thisformid) + ClassControlValues.LoadDefaultValues(thisformid, SelectedRecordID, pnlView.Controls) + + 'Das Flag INSERT nach LoadControls setzen + CtrlCommandUI.IsInsert = True + End Sub + + Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click + SelectedRecordID = 0 + If gvMainView.Columns.Count > 0 Then + Dim RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("Record-ID").FieldName) + If RecordID Is Nothing And gvMainView.RowCount > 0 Then + Exit Sub + Else + If Not RecordID = Nothing Then + SelectedRecordID = RecordID + End If + End If + End If + + + Dim ResultMessage = CtrlCommandUI.SaveRecord(SelectedRecordID, thisformid) + + LoadOverview_Grid() + If SelectedRecordID > 0 Then + Refresh_CreatedChangedRecordByID(SelectedRecordID) + + End If + + + 'Refresh_CreatedChangedRecordByID(thisrecordID) + ToolStrip_Notice(ResultMessage) + 'tsstatus_Detail_show(True, ResultMessage) + End Sub + + Private Sub tsButtonDelete_Click(sender As Object, e As EventArgs) Handles tsButtonDelete.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + If CtrlCommandUI.DeleteRecord(SelectedRecordID) = True Then + LoadOverview_Grid() + ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now) + End If + End If + End Sub + + Sub tserstellt_Detail_show(vis As Boolean, txt As String) + Me.tserstellt_Detail.Text = txt + tserstellt_Detail.Visible = vis + End Sub + + Public Sub Refresh_CreatedChangedRecordByID(RECORD_ID As Integer) + Try + Dim result = ClassDatabase.Execute_Scalar("select 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID) + If IsDBNull(result) Or IsNothing(result) Then + 'Me.tserstellt_Details.Text = "" + tserstellt_Detail_show(False, "") + Else + 'Me.tserstellt_Details.Text = result.ToString + tserstellt_Detail_show(True, result.ToString) + End If + + Catch ex As System.Exception + MsgBox("Error in Refresh_CreatedChangedRecordByID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub gvMainView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gvMainView.FocusedRowChanged + FocusedRow_Change() + End Sub + + Private Sub StammdatenEditierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenEditierenToolStripMenuItem.Click + Dim MenuItem = DirectCast(sender, ToolStripMenuItem) + Dim ContextMenu As ContextMenuStrip = MenuItem.Owner + Dim SourceControl As Control = ContextMenu.SourceControl + Dim MasterDataId As Integer = SourceControl.Tag + Console.WriteLine(MasterDataId) + CURRENT_MASTER_FORM_ID = MasterDataId + frmQuickInput.ShowDialog() + End Sub + + Private Sub LäscheAlleFilterEtcToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LäscheAlleFilterEtcToolStripMenuItem.Click + gvMainView.ClearColumnsFilter() + gvMainView.ClearGrouping() + gvMainView.ClearSelection() + End Sub + + Private Sub dgvInput_Click(sender As Object, e As EventArgs) Handles dgvInput.Click + + End Sub +End Class + diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Overview.Designer.vb b/app - Kopie/DD-Record-Organiser/frmForm_Overview.Designer.vb new file mode 100644 index 0000000..aff924d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Overview.Designer.vb @@ -0,0 +1,693 @@ + _ +Partial Class frmForm_Overview + 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 PARENT_IDLabel As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim LEVELLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim FORM_IDLabel As System.Windows.Forms.Label + Dim FORM_TITLELabel As System.Windows.Forms.Label + Dim DESCRIPTIONLabel As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim GUIDLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Overview)) + Me.TBPMO_FORMBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.TBPMO_FORMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.DESCRIPTIONTextBox = New System.Windows.Forms.TextBox() + Me.TBPMO_FORM_VIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.FORM_TITLETextBox = New System.Windows.Forms.TextBox() + Me.FORM_IDTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBoxPMOFormView = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBoxPMOForm = New System.Windows.Forms.TextBox() + Me.PARENT_IDTextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.TBPMO_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.TBPMO_FORM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.SHOW_FORM_CONSTRUCTCheckBox = New System.Windows.Forms.CheckBox() + Me.TreeViewEntity = New System.Windows.Forms.TreeView() + Me.TBPMO_FORM_TYPETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter() + Me.btninsert = New System.Windows.Forms.Button() + Me.btndelete = New System.Windows.Forms.Button() + Me.btnsave = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.btncopy = New System.Windows.Forms.Button() + Me.lblStatus = New System.Windows.Forms.Label() + Me.btnGenerate = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.SINGLE_RECORDCheckBox = New System.Windows.Forms.CheckBox() + Me.Label4 = New System.Windows.Forms.Label() + PARENT_IDLabel = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + LEVELLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + FORM_IDLabel = New System.Windows.Forms.Label() + FORM_TITLELabel = New System.Windows.Forms.Label() + DESCRIPTIONLabel = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() + CType(Me.TBPMO_FORMBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_FORMBindingNavigator.SuspendLayout() + CType(Me.TBPMO_FORMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.TBPMO_FORM_VIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_FORM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'PARENT_IDLabel + ' + PARENT_IDLabel.AutoSize = True + PARENT_IDLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + PARENT_IDLabel.Location = New System.Drawing.Point(6, 59) + PARENT_IDLabel.Name = "PARENT_IDLabel" + PARENT_IDLabel.Size = New System.Drawing.Size(100, 17) + PARENT_IDLabel.TabIndex = 2 + PARENT_IDLabel.Text = "Parent-Entity ID:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + NAMELabel.Location = New System.Drawing.Point(6, 90) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(46, 17) + NAMELabel.TabIndex = 4 + NAMELabel.Text = "Name:" + ' + 'LEVELLabel + ' + LEVELLabel.AutoSize = True + LEVELLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + LEVELLabel.Location = New System.Drawing.Point(6, 121) + LEVELLabel.Name = "LEVELLabel" + LEVELLabel.Size = New System.Drawing.Size(80, 17) + LEVELLabel.TabIndex = 6 + LEVELLabel.Text = "Reihenfolge:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(6, 152) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(75, 17) + ADDED_WHOLabel.TabIndex = 8 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(7, 145) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(90, 17) + CHANGED_WHOLabel.TabIndex = 12 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel1.Location = New System.Drawing.Point(5, 182) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(90, 17) + CHANGED_WHOLabel1.TabIndex = 14 + CHANGED_WHOLabel1.Text = "Geändert wer:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel1.Location = New System.Drawing.Point(8, 114) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(75, 17) + ADDED_WHOLabel1.TabIndex = 18 + ADDED_WHOLabel1.Text = "Erstellt wer:" + ' + 'FORM_IDLabel + ' + FORM_IDLabel.AutoSize = True + FORM_IDLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + FORM_IDLabel.Location = New System.Drawing.Point(6, 21) + FORM_IDLabel.Name = "FORM_IDLabel" + FORM_IDLabel.Size = New System.Drawing.Size(58, 17) + FORM_IDLabel.TabIndex = 19 + FORM_IDLabel.Text = "Form-ID:" + ' + 'FORM_TITLELabel + ' + FORM_TITLELabel.AutoSize = True + FORM_TITLELabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + FORM_TITLELabel.Location = New System.Drawing.Point(6, 52) + FORM_TITLELabel.Name = "FORM_TITLELabel" + FORM_TITLELabel.Size = New System.Drawing.Size(99, 17) + FORM_TITLELabel.TabIndex = 20 + FORM_TITLELabel.Text = "Titel der Entität:" + ' + 'DESCRIPTIONLabel + ' + DESCRIPTIONLabel.AutoSize = True + DESCRIPTIONLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DESCRIPTIONLabel.Location = New System.Drawing.Point(6, 83) + DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" + DESCRIPTIONLabel.Size = New System.Drawing.Size(89, 17) + DESCRIPTIONLabel.TabIndex = 21 + DESCRIPTIONLabel.Text = "Beschreibung:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Label1.Location = New System.Drawing.Point(6, 236) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(68, 17) + Label1.TabIndex = 18 + Label1.Text = "Entity-Typ:" + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(6, 28) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(59, 17) + GUIDLabel.TabIndex = 22 + GUIDLabel.Text = "Entity-ID:" + ' + 'TBPMO_FORMBindingNavigator + ' + Me.TBPMO_FORMBindingNavigator.AddNewItem = Nothing + Me.TBPMO_FORMBindingNavigator.BindingSource = Me.TBPMO_FORMBindingSource + Me.TBPMO_FORMBindingNavigator.CountItem = Nothing + Me.TBPMO_FORMBindingNavigator.DeleteItem = Nothing + Me.TBPMO_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2}) + Me.TBPMO_FORMBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_FORMBindingNavigator.MoveFirstItem = Nothing + Me.TBPMO_FORMBindingNavigator.MoveLastItem = Nothing + Me.TBPMO_FORMBindingNavigator.MoveNextItem = Nothing + Me.TBPMO_FORMBindingNavigator.MovePreviousItem = Nothing + Me.TBPMO_FORMBindingNavigator.Name = "TBPMO_FORMBindingNavigator" + Me.TBPMO_FORMBindingNavigator.PositionItem = Nothing + Me.TBPMO_FORMBindingNavigator.Size = New System.Drawing.Size(1046, 25) + Me.TBPMO_FORMBindingNavigator.TabIndex = 0 + Me.TBPMO_FORMBindingNavigator.Text = "BindingNavigator1" + ' + 'TBPMO_FORMBindingSource + ' + Me.TBPMO_FORMBindingSource.DataMember = "TBPMO_FORM" + Me.TBPMO_FORMBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + 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(159, 22) + Me.ToolStripButton1.Text = "Im Form Designer öffnen" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(98, 22) + Me.ToolStripButton2.Text = "Vorschau öffnen" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(DESCRIPTIONLabel) + Me.GroupBox1.Controls.Add(Me.DESCRIPTIONTextBox) + Me.GroupBox1.Controls.Add(FORM_TITLELabel) + Me.GroupBox1.Controls.Add(Me.FORM_TITLETextBox) + Me.GroupBox1.Controls.Add(FORM_IDLabel) + Me.GroupBox1.Controls.Add(Me.FORM_IDTextBox) + Me.GroupBox1.Controls.Add(ADDED_WHOLabel1) + Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox1) + Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBoxPMOFormView) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(328, 367) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(424, 179) + Me.GroupBox1.TabIndex = 18 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Entity-View Properties:" + ' + 'DESCRIPTIONTextBox + ' + Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "DESCRIPTION", True)) + Me.DESCRIPTIONTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DESCRIPTIONTextBox.Location = New System.Drawing.Point(125, 80) + Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox" + Me.DESCRIPTIONTextBox.Size = New System.Drawing.Size(293, 25) + Me.DESCRIPTIONTextBox.TabIndex = 22 + ' + 'TBPMO_FORM_VIEWBindingSource + ' + Me.TBPMO_FORM_VIEWBindingSource.AllowNew = False + Me.TBPMO_FORM_VIEWBindingSource.DataMember = "FK_TBPMO_FORM_VIEW_FORM_ID" + Me.TBPMO_FORM_VIEWBindingSource.DataSource = Me.TBPMO_FORMBindingSource + ' + 'FORM_TITLETextBox + ' + Me.FORM_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "FORM_TITLE", True)) + Me.FORM_TITLETextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FORM_TITLETextBox.Location = New System.Drawing.Point(125, 49) + Me.FORM_TITLETextBox.Name = "FORM_TITLETextBox" + Me.FORM_TITLETextBox.Size = New System.Drawing.Size(293, 25) + Me.FORM_TITLETextBox.TabIndex = 21 + ' + 'FORM_IDTextBox + ' + Me.FORM_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "FORM_ID", True)) + Me.FORM_IDTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FORM_IDTextBox.Location = New System.Drawing.Point(125, 18) + Me.FORM_IDTextBox.Name = "FORM_IDTextBox" + Me.FORM_IDTextBox.ReadOnly = True + Me.FORM_IDTextBox.Size = New System.Drawing.Size(69, 25) + Me.FORM_IDTextBox.TabIndex = 20 + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Enabled = False + Me.ADDED_WHOTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(125, 111) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.ReadOnly = True + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(173, 25) + Me.ADDED_WHOTextBox1.TabIndex = 19 + ' + 'CHANGED_WHOTextBoxPMOFormView + ' + Me.CHANGED_WHOTextBoxPMOFormView.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBoxPMOFormView.Enabled = False + Me.CHANGED_WHOTextBoxPMOFormView.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBoxPMOFormView.Location = New System.Drawing.Point(125, 142) + Me.CHANGED_WHOTextBoxPMOFormView.Name = "CHANGED_WHOTextBoxPMOFormView" + Me.CHANGED_WHOTextBoxPMOFormView.ReadOnly = True + Me.CHANGED_WHOTextBoxPMOFormView.Size = New System.Drawing.Size(173, 25) + Me.CHANGED_WHOTextBoxPMOFormView.TabIndex = 13 + ' + 'CHANGED_WHOTextBoxPMOForm + ' + Me.CHANGED_WHOTextBoxPMOForm.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBoxPMOForm.Enabled = False + Me.CHANGED_WHOTextBoxPMOForm.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBoxPMOForm.Location = New System.Drawing.Point(125, 180) + Me.CHANGED_WHOTextBoxPMOForm.Name = "CHANGED_WHOTextBoxPMOForm" + Me.CHANGED_WHOTextBoxPMOForm.ReadOnly = True + Me.CHANGED_WHOTextBoxPMOForm.Size = New System.Drawing.Size(173, 25) + Me.CHANGED_WHOTextBoxPMOForm.TabIndex = 15 + ' + 'PARENT_IDTextBox + ' + Me.PARENT_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "PARENT_ID", True)) + Me.PARENT_IDTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.PARENT_IDTextBox.Location = New System.Drawing.Point(125, 56) + Me.PARENT_IDTextBox.Name = "PARENT_IDTextBox" + Me.PARENT_IDTextBox.Size = New System.Drawing.Size(69, 25) + Me.PARENT_IDTextBox.TabIndex = 3 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "NAME", True)) + Me.NAMETextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NAMETextBox.Location = New System.Drawing.Point(125, 87) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(245, 25) + Me.NAMETextBox.TabIndex = 5 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Enabled = False + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(125, 149) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(173, 25) + Me.ADDED_WHOTextBox.TabIndex = 9 + ' + 'TBPMO_FORMTableAdapter + ' + Me.TBPMO_FORMTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Me.TBPMO_FORMTableAdapter + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_FORM_VIEWTableAdapter + ' + Me.TBPMO_FORM_VIEWTableAdapter.ClearBeforeFill = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Label4) + Me.GroupBox2.Controls.Add(Me.SINGLE_RECORDCheckBox) + Me.GroupBox2.Controls.Add(Me.NumericUpDown1) + Me.GroupBox2.Controls.Add(Me.GUIDTextBox) + Me.GroupBox2.Controls.Add(GUIDLabel) + Me.GroupBox2.Controls.Add(Label1) + Me.GroupBox2.Controls.Add(Me.ComboBox1) + Me.GroupBox2.Controls.Add(Me.SHOW_FORM_CONSTRUCTCheckBox) + Me.GroupBox2.Controls.Add(PARENT_IDLabel) + Me.GroupBox2.Controls.Add(Me.ADDED_WHOTextBox) + Me.GroupBox2.Controls.Add(ADDED_WHOLabel) + Me.GroupBox2.Controls.Add(LEVELLabel) + Me.GroupBox2.Controls.Add(Me.NAMETextBox) + Me.GroupBox2.Controls.Add(NAMELabel) + Me.GroupBox2.Controls.Add(Me.PARENT_IDTextBox) + Me.GroupBox2.Controls.Add(Me.CHANGED_WHOTextBoxPMOForm) + Me.GroupBox2.Controls.Add(CHANGED_WHOLabel1) + Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.Location = New System.Drawing.Point(328, 53) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(424, 308) + Me.GroupBox2.TabIndex = 23 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Entity Properties:" + ' + 'NumericUpDown1 + ' + Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORMBindingSource, "LEVEL", True)) + Me.NumericUpDown1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NumericUpDown1.Location = New System.Drawing.Point(125, 119) + Me.NumericUpDown1.Name = "NumericUpDown1" + Me.NumericUpDown1.Size = New System.Drawing.Size(69, 25) + Me.NumericUpDown1.TabIndex = 24 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(125, 25) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(69, 25) + Me.GUIDTextBox.TabIndex = 23 + ' + 'ComboBox1 + ' + Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True)) + Me.ComboBox1.DataSource = Me.TBPMO_FORM_TYPEBindingSource + Me.ComboBox1.DisplayMember = "FORM_TYPE" + Me.ComboBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(125, 233) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(220, 25) + Me.ComboBox1.TabIndex = 17 + Me.ComboBox1.ValueMember = "GUID" + ' + 'TBPMO_FORM_TYPEBindingSource + ' + Me.TBPMO_FORM_TYPEBindingSource.DataMember = "TBPMO_FORM_TYPE" + Me.TBPMO_FORM_TYPEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'SHOW_FORM_CONSTRUCTCheckBox + ' + Me.SHOW_FORM_CONSTRUCTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORMBindingSource, "SHOW_FORM_CONSTRUCT", True)) + Me.SHOW_FORM_CONSTRUCTCheckBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SHOW_FORM_CONSTRUCTCheckBox.Location = New System.Drawing.Point(125, 211) + Me.SHOW_FORM_CONSTRUCTCheckBox.Name = "SHOW_FORM_CONSTRUCTCheckBox" + Me.SHOW_FORM_CONSTRUCTCheckBox.Size = New System.Drawing.Size(202, 24) + Me.SHOW_FORM_CONSTRUCTCheckBox.TabIndex = 16 + Me.SHOW_FORM_CONSTRUCTCheckBox.Text = "Show in Form Construct" + Me.SHOW_FORM_CONSTRUCTCheckBox.UseVisualStyleBackColor = True + ' + 'TreeViewEntity + ' + Me.TreeViewEntity.Location = New System.Drawing.Point(0, 53) + Me.TreeViewEntity.Name = "TreeViewEntity" + Me.TreeViewEntity.Size = New System.Drawing.Size(322, 649) + Me.TreeViewEntity.TabIndex = 20 + ' + 'TBPMO_FORM_TYPETableAdapter + ' + Me.TBPMO_FORM_TYPETableAdapter.ClearBeforeFill = True + ' + 'btninsert + ' + Me.btninsert.Image = CType(resources.GetObject("btninsert.Image"), System.Drawing.Image) + Me.btninsert.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btninsert.Location = New System.Drawing.Point(758, 53) + Me.btninsert.Name = "btninsert" + Me.btninsert.Size = New System.Drawing.Size(153, 33) + Me.btninsert.TabIndex = 24 + Me.btninsert.Text = "Entität hinzufügen" + Me.btninsert.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btninsert.UseVisualStyleBackColor = True + ' + 'btndelete + ' + Me.btndelete.Image = CType(resources.GetObject("btndelete.Image"), System.Drawing.Image) + Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndelete.Location = New System.Drawing.Point(758, 92) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(153, 30) + Me.btndelete.TabIndex = 25 + Me.btndelete.Text = "Entität löschen" + Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndelete.UseVisualStyleBackColor = True + ' + 'btnsave + ' + Me.btnsave.Image = CType(resources.GetObject("btnsave.Image"), System.Drawing.Image) + Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsave.Location = New System.Drawing.Point(758, 128) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(153, 30) + Me.btnsave.TabIndex = 26 + Me.btnsave.Text = "Entität speichern" + Me.btnsave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnsave.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(-3, 33) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(271, 15) + Me.Label2.TabIndex = 27 + Me.Label2.Text = "Klicken Sie auf eine Entität um diese zu bearbeiten" + ' + 'btncopy + ' + Me.btncopy.Image = CType(resources.GetObject("btncopy.Image"), System.Drawing.Image) + Me.btncopy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btncopy.Location = New System.Drawing.Point(758, 164) + Me.btncopy.Name = "btncopy" + Me.btncopy.Size = New System.Drawing.Size(153, 28) + Me.btncopy.TabIndex = 28 + Me.btncopy.Text = "Entität kopieren" + Me.btncopy.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btncopy.UseVisualStyleBackColor = True + ' + 'lblStatus + ' + Me.lblStatus.AutoSize = True + Me.lblStatus.BackColor = System.Drawing.Color.Yellow + Me.lblStatus.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblStatus.Location = New System.Drawing.Point(758, 202) + Me.lblStatus.Name = "lblStatus" + Me.lblStatus.Size = New System.Drawing.Size(45, 17) + Me.lblStatus.TabIndex = 29 + Me.lblStatus.Text = "Label3" + Me.lblStatus.Visible = False + ' + 'btnGenerate + ' + Me.btnGenerate.Image = CType(resources.GetObject("btnGenerate.Image"), System.Drawing.Image) + Me.btnGenerate.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnGenerate.Location = New System.Drawing.Point(336, 552) + Me.btnGenerate.Name = "btnGenerate" + Me.btnGenerate.Size = New System.Drawing.Size(153, 42) + Me.btnGenerate.TabIndex = 30 + Me.btnGenerate.Text = "Kombiformular erzeugen" + Me.btnGenerate.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnGenerate.UseVisualStyleBackColor = True + Me.btnGenerate.Visible = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(495, 568) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(272, 26) + Me.Label3.TabIndex = 31 + Me.Label3.Text = "Mit dieser Funktion wird ein Eingabeformular erzeugt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "welches die links dargest" & _ + "ellte TreeView-Struktur umsetzt." + ' + 'SINGLE_RECORDCheckBox + ' + Me.SINGLE_RECORDCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORMBindingSource, "SINGLE_RECORD", True)) + Me.SINGLE_RECORDCheckBox.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SINGLE_RECORDCheckBox.Location = New System.Drawing.Point(125, 264) + Me.SINGLE_RECORDCheckBox.Name = "SINGLE_RECORDCheckBox" + Me.SINGLE_RECORDCheckBox.Size = New System.Drawing.Size(113, 24) + Me.SINGLE_RECORDCheckBox.TabIndex = 25 + Me.SINGLE_RECORDCheckBox.Text = "Single Record" + Me.SINGLE_RECORDCheckBox.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(234, 270) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(148, 26) + Me.Label4.TabIndex = 26 + Me.Label4.Text = "Es kann nur ein Datensatz für" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "diese Entität angelegt werden." + ' + 'frmForm_Overview + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1046, 702) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.btnGenerate) + Me.Controls.Add(Me.lblStatus) + Me.Controls.Add(Me.btncopy) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.btnsave) + Me.Controls.Add(Me.btndelete) + Me.Controls.Add(Me.btninsert) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.TreeViewEntity) + Me.Controls.Add(Me.TBPMO_FORMBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmForm_Overview" + Me.Text = "Entitäten - Designer" + CType(Me.TBPMO_FORMBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_FORMBindingNavigator.ResumeLayout(False) + Me.TBPMO_FORMBindingNavigator.PerformLayout() + CType(Me.TBPMO_FORMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.TBPMO_FORM_VIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_FORM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_FORMBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FORMBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents PARENT_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBPMO_FORM_VIEWBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter + Friend WithEvents CHANGED_WHOTextBoxPMOForm As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBoxPMOFormView As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents DESCRIPTIONTextBox As System.Windows.Forms.TextBox + Friend WithEvents FORM_TITLETextBox As System.Windows.Forms.TextBox + Friend WithEvents FORM_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox + Friend WithEvents SHOW_FORM_CONSTRUCTCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents TBPMO_FORM_TYPEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORM_TYPETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter + Friend WithEvents TreeViewEntity As System.Windows.Forms.TreeView + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents btninsert As System.Windows.Forms.Button + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents btncopy As System.Windows.Forms.Button + Friend WithEvents lblStatus As System.Windows.Forms.Label + Friend WithEvents btnGenerate As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents SINGLE_RECORDCheckBox As System.Windows.Forms.CheckBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Overview.resx b/app - Kopie/DD-Record-Organiser/frmForm_Overview.resx new file mode 100644 index 0000000..d4fe065 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Overview.resx @@ -0,0 +1,719 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 56 + + + 160, 17 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEUSURBVFhH7ZLBEYIwEEUpxVqoAurBPuxADlSjFqEegKPO + zuQzgWxIsmzixT/zLoT92f+h2tM0TR8NjF26ODMJxi5dMKjrWsR/AbUFgG3+er5X2GfbOWOXrq2RfUmR + BSAY2ZfELGDGj+unC8zzfJIuQLPGRq5xHC9kNgzDckHTNM4C9Azn9C7N0KyxkclO37btckF/7Z0F6BnO + 6V3MHWohNj1QbSElPVBtIZT+fnssz32IW4hJ33Xn1WUc4hY00oPkFrTSg+QWNNOD6Ba004PoFnKkB8EW + cqUHwRZypgfeFnKnB94WSqQHTgul0gOnhdACmukJ9jNwnyAX7I/oa0EbNj1UogU2PWS3kBsnPYQWcrJO + X1Vf58ua8BnVhegAAAAASUVORK5CYII= + + + + 244, 56 + + + 370, 17 + + + 575, 17 + + + 488, 56 + + + 726, 56 + + + 968, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAABDElEQVQ4T53TrUvDURTG8fsH + GAyWJZNplllEUARXlKFB8Q1BDRv4EsSxsCHDgSKIIjjhioiWCTJZEBYEYSAzWQxLdsG2v+HxPvGcc9Mv + fMqX56TLdQCMk5d1H0Dxsa0JVHtewV+/J7DpHZlA1cYiPnrXApvekQlUeVzA+/eFwKZ3ZAKV7ubQ/joV + 2PSO3MFN1gfQWp9HQmwTeLd7OYWf367x1CkKsQ1vXf5sHPdvO4nw1m0eZ1B/3UqEt26tnMZ5czkR3rql + 4ogPoNUaOSG2Cbx5FprfH0b5YUZg0zsygWYLKRzeTghsekcmUHZ7CHv1MYFN78gEmt4YRP5qVGDTOzKB + JlcHfAAl8p3h/gEvl60PhNbv5AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + + Qk02BQAAAAAAADYEAAAoAAAAEAAAABAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAAA/wAA + gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA/////////wD//////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcH + BwcHBwcHBwcHBwcHBwcHBwAAAAAAAAAAAAAAAAcHBwAMDAAIDAwNBwcADAwABwcADAwACAwMDQcHAAwM + AAcHAAwMAAcICAcHBwAMDAAHBwAMDAYAAAAAAAAGDAwABwcADAwMDAwMDAwMDAwMAAcHAAwGAAAAAAAA + AAAGDAAHBwAMAA0NDQ0NDQ0NAAwABwcADAANDQ0NDQ0NDQAMAAcHAAwADQ0NDQ0NDQ0ADAAHBwAMAA0N + DQ0NDQ0NAAwABwcAAAANDQ0NDQ0NDQAAAAcHAAwADQ0NDQ0NDQ0ADAAHBwcAAAAAAAAAAAAAAAAHBwcH + BwcHBwcHBwcHBwcHBwc= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAABFElEQVQ4T42ToY6DUBBF5xOr + UDhkJRKJw9VQheAnSAjhXzCUQAhpBZJMe17ymseyb1mSI+7MZXIEiKruKMsy/6B/kLv93ctQFIVu2+aF + /YfvkcOBD6bY9/0BO7/f72COnCq3bauPx8PAga7rzJHb7Qb5v5SbptFhGA67LMtU0CG4qhY7p1PXtY7j + +IVdmqYqqBCspgtzV7mqKp2mycAuSRIVNAgo/oS5C915ng3kOI5V0CC4er9Bh+6yLAby9XpVQYNg1XzQ + oft8Pg3kKIpU0CBYNR906L5eLwM5DEMVNAhWzQcd27UEQaCCBsGq+aBDl+dyuVhyQYOlVfNBhy6fr4ug + sa6rKZxB93AADUfpjN2vrKryBmaHVokO2oSiAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAAC4SURBVDhPrZPBDYQgEEUpxVqohDoogDuNrCV45kQp7F64 + svN1SGQkBNed5CXCn/8jOihZOWdDbEQRYM9w27VIXIgYQijW2qK1bsAeNPSgl21HsTk55y5GifceIakJ + oUWE0DP04JBYzQavJpvW11re6bODZ6nzcQwCtt6ZwSgEHngR0AiSUQi8TUBtHHEO+X9Aj5kjPP6Iz34j + z0KcmcJKM0goWuyjPDON3VFGcchvl+lcJN64zkp9AbNqUo3Btw/fAAAAAElFTkSuQmCC + + + + + AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA + IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw + AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wDjfQAAmJiYAPnGlgDu2s4ApXJsANKfggD/8OEAuod3ANvHxADlsowA/9y4AImJiQD/584AxpN9AKqB + egDXcQAA//fwAOS8mADEnIgA3KmHAK57cACQkJAA8b6SAPn5+QD/69YA/+DAAN13AAD/9OgAs4BzAMGO + egD/5McA16SEAJSUlAD/+/cA4LiVAKl2bgD1wpQA7bqQAOm2jgDhrooApn15APz8/ACMjIwAt4R1AP/u + 3QD/6dIAvYp4AMmWfgDadAAA4HoAAP/27AD96NUAx56JAP/y5QD/5csAjo6OANmmhgD//fsA/+3aALF+ + cgC1gnQA1aKEAP7+/gD6+voAioqKAIuLiwCNjY0Aj4+PAJGRkQCTk5MAlZWVAJeXlwC5hnYAvot5AMKP + ewDFknwA3aqIANhyAADZcwAA23UAANx2AADeeAAA4XsAAOJ8AACtenAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAABQxTR8wSj49ViUGKgAAADYFGRlBK0ABAQEBAQoqAAAHAQg0IwEBAUNCDQEB + BgAAIQEINFBPEQFEQ0IBASUAABUBCDQyAQEBAQEBAQEWAAApAS4dUTsBAUU5RCwBHgAACwFTHBxSUQFG + F0VEAS0AACgBMy4dEiMBAQEBAUAJAAAnAVQaCB1JSCJHAQErSwAAGAFVVDMIA0lIIiMjQUwAACYBAjgv + Gi43HTQ0NBkPAAAEAQwbIA4aPC4ICAgZMQAAEzUBAQEBAQEBAQEBBRAAAAAkBCYYJygLKU46PxAAAAAA + AAAAAAAAAAAAAAAAAAD//wAAwAMAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIAB + AACAAQAAgAEAAMADAAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAMuYf8zJln7/xZJ8/8GOev+9inj/uYZ2/7WCdP+xfnL/rXpw/6l2bv+lcmz/pXJszAAA + AAAAAAAAAAAAAM6bgMzu2s7/+fn5//n5+f/6+vr//Pz8//7+/v///////////////////////////9vH + xP+lcmzMAAAAAAAAAADSn4L////////w4f//9uz///v3/////////////////4uLi/+Kior/iYmJ//// + ////////pXJs/wAAAAAAAAAA16SE////////8OH///bs/9lzAP/YcgD/13EA//////+NjY3/i4uL/4qK + iv///////////6l2bv8AAAAAAAAAANyph/////////Dh///27P/adAD///////////////////////// + //////////////////+ue3D/AAAAAAAAAADhror////////u3f//9Oj/23UA///9+////////////4+P + j/+Ojo7/jY2N/4yMjP//////s4Bz/wAAAAAAAAAA5bKM///////eeAD/3XcA/913AP/cdgD/23UA//// + //+RkZH/kJCQ/4+Pj/+NjY3//////7eEdf8AAAAAAAAAAOm2jv//////4HoA///u3f//9Oj///fw///7 + 9/////////////////////////////7+/v+6h3f/AAAAAAAAAADtupD//////+F7AP//69b///Dh///0 + 6P+Xl5f/lZWV/5SUlP+Tk5P////////////8/Pz/vot5/wAAAAAAAAAA8b6S///////ifAD/4XsA/+B6 + AP//8OH/mJiY/5eXl/+VlZX/lJSU///79///+/f/+vr6/8KPe/8AAAAAAAAAAPXClP//////430A///l + y///6dL//+vW///u3f//8uX///To///27P//9uz///bs//n5+f/Gk33/AAAAAAAAAAD5xpb////////c + uP//4MD//+TH///nzv//69b//+3a///u3f//8OH///Dh///w4f/5+fn/yZZ+/wAAAAAAAAAA88CTzP3o + 1f//////////////////////////////////////////////////////7trO/6p3bswAAAAAAAAAAAAA + AADuu5DM+caW//XClP/xvpL/7bqQ/+m2jv/lsoz/4a6K/92qiP/Zpob/1aKE/6p3bswAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD//wAAwAMAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAMAD + AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8Ao3BrAPXC + lADzqk0AzMzMAL+ejgD/5cwAmY+FAMy6qgDeq4gAuod2APLr6gD/2bMAmZmZAMqXfgDMw7sA27KZAKOB + fwD/7t4A//buAK57cADqt48At5GOANShgwD/38AA9eLUAPrKnACZlI8AwY56AP/p1QDksYsAzMjEAMy/ + swD338wA/vHmAP/7+ACzgHMA8L2RAKh1bQDEopAAxpN8APnGlgDYpYUA/+LHAP/58wD/27gA/+zZAJmM + gQDMva4AvYp4AP/06gD/59AAmZKLAJmWkwD/3bwAzMrIAKt4bwC2g3QA7bqQAPbh0ADMwrcAzLmmANmv + mAD//fwAzMbBAPK/kwD/8OMAmZCIAJmXlgD/4MMAoW5qAKVybACwfXEAuIV1AL+MeQDEkXsAzJl/APfE + lQDSn4IA1qOEANqnhgDotY4A5rOMAOCtiQDir4oA//fxAMGgjgD/8+cA//z6AP/69QD/9ewA/+/gAP/t + 3AD/6tcAmY6CAP/o0gD/5s4A/+PJAP/hxQD/3r4AzMS9AMy7rACpdm4A//LlALF+cgDHlH0AwqGPAN2q + hwDxvpIA7LmPAKp3bgCseW8Ar3xxALJ/cgC1gnQAmZOOAJmVkgCZmJcAyZZ+APbDlQDMx8IA9MGUAPPA + kwDvvJEA7ruQAMy+sgCZj4YA9uDQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAZ3KUwdSzILSjolaXFwbydIAkcSAAAAaz8aFFpAAQEBAQEBAQEBAQEBAQwX + EgAATzxYFFpABAQEBAEODg4ODg4BAQEMRwAAGAFoWy1ZBAEBAQEFBQUFBQUBAQEBAgAAUAFoM1YkBAEB + AQEBAQEBAQEBAQEBSAAAKwFDMwQEBAQBDg4ODg4BAQEBAQEBZwAAUQFcWAQtWQEBBQUFBQUBAQEBAQEB + OQAAbAETQwRWWkABAQEBAQEBAQEBAQEBFQAAVAEvXARbBAQEBAEODg4ODg4OAQEBSQAAVQFeEwQzBFpZ + AQEFBQUFBQUFAQEBcgAAHwEeLwRoBFZaQAEBAQEBAQEBAQEBcwAAUwE0XgRcBAQEBEAODg4ODg4ODgEB + SgAAUgEHYAQTBFhbVlo4BQUFBQUFBQEBCwAAbgFiYQQvBENYW1ZaWUABAQEBAQEBMgAAfQFjYgQEBARD + NXQcdTZFdgEBAQEBSwAAJgEZYwQ0Hi8TIT0QZUF5ICRZQEBAHQAAQgE3GQRiYWBeXVxDWDNbFFYtWlpa + TAAAegEuNwQEBARgMF8If0Q1MzNbFBQUagAAeAENLgQZY2IHPglmMX4hQ2hoWFhYDwAAKiMTDQQ3ZEYs + B2E0Hl4vXRMTXFyATQAAABsjAQEBAQEBAQEBAQEBAQEBASIRVwAAAAAqTgN7bXw7FlJTH1VUClErUBgo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AwAADAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAA + AQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQDAAAEA4AADAP// + /wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADJln6pyZZ+/8aTfP/EkXv/wY56/7+Mef+9inj/uod2/7iF + df+2g3T/s4Bz/7F+cv+vfHH/rHlv/6p3bv+odW3/pXJs/6Nwa/+hbmr/nmtoqQAAAAAAAAAAAAAAAM6b + gKnZr5j/9eLU///27v//+vX///38//////////////////////////////////////////////////// + ///////////////////y6+r/t5GO/55raKkAAAAAAAAAANKfgv/24dD///Pn///27v//+vX///38//Oq + Tf/zqk3/86pN//OqTf//////mZmZ/5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/////////////////8uvq/6Fu + av8AAAAAAAAAANShg/////////Ll///17P//+fP///z6//OqTf//////////////////////zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz//////////////////////6Nwa/8AAAAAAAAAANajhP////////Ll///0 + 6v//9/H///v4//OqTf////////////////////////////////////////////////////////////// + /////////////6VybP8AAAAAAAAAANilhf////////Dj///06v/zqk3/86pN//OqTf/zqk3//////5mZ + mf+ZmZn/mZmZ/5mZmf+ZmZn//////////////////////////////////////6l2bv8AAAAAAAAAANqn + hv///////+/g///z5//zqk3///nz///8+v///////////8zMzP/MzMz/zMzM/8zMzP/MzMz///////// + /////////////////////////////6t4b/8AAAAAAAAAAN2qh////////+7e///w4//zqk3///fx///6 + 9f///fz//////////////////////////////////////////////////////////////////////657 + cP8AAAAAAAAAAOCtif///////+zZ///v4P/zqk3///Xs//OqTf/zqk3/86pN//OqTf//////mZmZ/5mZ + mf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/////////////////7B9cf8AAAAAAAAAAOKviv///////+rX///u + 3v/zqk3///Tq//OqTf//+vX///z6////////////zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM//// + /////////////7J/cv8AAAAAAAAAAOSxi////////+nV///s2f/zqk3///Ll//OqTf//9/H///r1///9 + /P///////////////////////////////////////////////////////////7WCdP8AAAAAAAAAAOaz + jP///////+fQ///q1//zqk3//+/g//OqTf/zqk3/86pN//OqTf///fz/mZmZ/5mZmf+ZmZn/mZmZ/5mZ + mf+ZmZn/mZmZ/5mZmf///////////7iFdf8AAAAAAAAAAOi1jv///////+XM///o0v/zqk3//+7e//Oq + Tf//8+f///Xs///38f//+vX/zMrI/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP///////////7qH + dv8AAAAAAAAAAOy5j////////+PJ///mzv/zqk3//+zZ//OqTf//8OP///Pn///17P//9/H///r1///8 + +v///fz//////////////////////////////////////72KeP8AAAAAAAAAAO67kP///////+HF///j + yf/zqk3/86pN//OqTf/zqk3///Dj/5mSi/+Zk47/mZSP/5mVkv+ZlpP/mZeW/5mYl/////////////// + /////////////7+Mef8AAAAAAAAAAPC9kf///////9/A///hxf/zqk3//+fQ///p1f//7Nn//+7e/8y/ + s//Mwrf/zMO7/8zEvf/MxsH/zMfC/8zIxP//+/j///z6///9/P///fz///38/8GOev8AAAAAAAAAAPK/ + k////////928///fwP/zqk3//+PJ///mzv//6NL//+rX///t3P//7+D///Dj///z5///9Or///Xs///2 + 7v//9/H///nz///69f//+vX///r1/8SRe/8AAAAAAAAAAPTBlP///////9u4///dvP/zqk3/86pN//Oq + Tf/zqk3//+jS/5mMgf+ZjoL/mY+F/5mPhv+ZkIj/mZKL///06v//9Or///Xs///27v//9u7///bu/8eU + ff8AAAAAAAAAAPbDlf///////9mz///buP/zqk3//9/A///hxf//48n//+XM/8y5pv/Muqr/zLus/8y9 + rv/MvrL/zL+z///w4///8uX///Ll///z5///8+f///Pn/8qXfv8AAAAAAAAAAPnGlv/+8eb//+7e///Z + s//zqk3//928///evv//4MP//+LH///lzP//5s7//+fQ///p1f//6tf//+zZ///t3P//7t7//+7e///v + 4P//7+D/9uDQ/8yZf/8AAAAAAAAAAPjFlj36ypz//vHm//////////////////////////////////// + ///////////////////////////////////////////////////338z/27KZ/8yZf6kAAAAAAAAAAAAA + AAD4xZY9+caW//fElf/1wpT/88CT//G+kv/vvJH/7bqQ/+q3j//otY7/5rOM/+Sxi//ir4r/4K2J/96r + iP/ap4b/2KWF/9ajhP/UoYP/0J2BqQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA////AMAAAwCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAA + AQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAwAABAOAAAwD///8AKAAAACAAAABAAAAAAQAIAAAA + AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8Ao3BrAPXClADzpkUA79rOAJmZmQDNmn8A//DhALOL + iQDZvKEA4a6KAP/cuQDzslwAmY6DALSBcwD/5s8AoHx6AMiekADAjXkA//fwANekhADruI4A572fAPOs + UAD/4cQAmZOOAKt4bwCylo0AnGlnAP/r2ADp2dYA+8iXALqHdgDGk3wA//v3AP/z6QDwvZEA3KmHALWR + hQDms4wAp3RtAK98cQDRnoEA/96/APOpSwDzr1cAmZGIAJmWkwD/5MoAn2xpAP/9+wD/7dwA/+jTALeE + dAC9incA+MWVAMOQegDJln0A1KGDAP/y5QD/+fQA//XsAPOtVADtupAA79vRAKFuagClcmwAqXZuAK16 + cACxfnIAmZGLAPPAkwDPnIAA6baNAOSxiwDap4YA3quIAPOqTgCZj4YA//79AP/8+QD/+PIA//buAP/x + 4wD/7NoA/+rWAPOnRwD/59EA86hJAP/lzQD/48gA/+LGAJmUkAD/4MIA87BZAJmXlQCZmJcA/929AP/y + 5wDzrVIAnWpoALOAcgC+i3gAxZJ7APrHlgDKl34A8r+SANOgggDsuY8A2KWFAP/69QD/9OoAnmtoAKBt + aQD/7+AApHFrAKZzbAD/6dUAqHVtAKp3bgCseW8A86tPAK57cADu2tEAsH1xAP/fwQDzrlUA7trNALJ/ + cgCZkIcAmZKMAPOxWgC1gnMAmZWRALaDdAC/jHgAwo96APnGlgD3xJUAx5R8APTBkwDMmX8A8b6SAO67 + kADQnYEA6reOANajhADntIwA5bKLANuohgDjsIsA4q+KAP/+/gD/5s0A/+XMAPOmRgDzqEoA86pNAPOs + UQCZj4UA861TAJmRiQDzrlQAmZSPAJmVkgCZl5QA87BYAJmYmADzsVsAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ4eFD2ZGfSp7RXkbRHcpdUN0AkJyMnFlHREA + AAAAACcSQVIjUAEBAQEBAQEBAQEBAQEBAQEBAQEfCREAAAAAZwU+UiNQAQENDQ0NDQ0BBgYGBgYGBgEB + AQEfMgAAAAATmT5SIzMBAQ0BAQEBAQEGBgYGBgYGAQEBAQFCAAAAADkBcBRvMwEBDQEBAQEBAQEBAQEB + AQEBAQEBAXQAAAAAIgEkUz1RAQENAQEBAQEBAQEBAQEBAQEBAQEBKQAAAAA6ASRTLl+pDQ0NAQYGBgYG + BgYGAQEBAQEBAQF4AAAAAGoBYz4ubzMBAQEBBgYGBgYGBgYBAQEBAQEBAXkAAAAAjgE8cC49UQEBAQEB + AQEBAQEBAQEBAQEBAQEBKgAAAABJAVQkf1IjUAEBAQEBAQEBAQEBAQEBAQEBAQGBAAAAACsBCGOjFG9R + DQ0NDQ0NAQYGBgYGBgYGBgYBAQ8AAAAAOwFzVD9TUiOpAQEBAQEBBgYGBgYGBgYGBgEBNgAAAAAVATQI + oXAUPYRQAQEBAQEBAQEBAQEBAQEBAQEhAAAAAEwBVXNkJD5SpzMBAQEBAQEBAQEBAQEBAQEBATcAAAAA + JgFWNJ88cFMuX6kNDQ0BBgYGBgYGBgYGAQEBiAAAAABNAXYeGAhjcC49IzMBAQEGBgYGBgYGBgYBAQGJ + AAAAAAsBWFZ6c1RjfxQ9IzMBAQEBAQEBAQEBAQEBAWgAAAAAlwEQNZ40czw/PhQ9IzMBAQEBAQEBAQEB + AQEBjAAAAAAoAZsQnk56n6E/Pl2lpmGoBgYGBgEBAQEBAQFqAAAAAEoBW5stdh40CDwkGl2GMGCoBgYG + AQEBAQEBAY4AAAAAFgEZMZ1Ydh40CDxjcFNSPSNRUAEBAQEBAQEBBwAAAABAAX5cWVpYdh40c1RjcD4U + Um8jUTNQAQEBAQGRAAAAACUBYl5XWZ0tnk40T4Kig4OkXYalMCNRMzNQUGwAAAAASAEMLJxcMVpYdlYO + oIIvR4ODGl2GUj1vIyMjkwAAAAADAZoMBF5cMZsQNVYeNHMIVGMkcD5TUxRSUlJuAAAAADgBUpoMYn4Z + W5sQWHZWVTRzCFQ8YyQkcD4+fJYAAAAACmkBAQEBAQEBAQEBAQEBAQEBAQEBAQEBM4AXHAAAAAAACiBp + ijiLA41Ia48lkEBtbRaSSpQolUuXmBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA///////////gAAAHwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPgAAAH//////////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALqHdrW2g3T/tYJz/7SB + c/+zgHL/sX5y/7B9cf+vfHH/rntw/616cP+seW//q3hv/6l2bv+odW3/p3Rt/6ZzbP+lcmz/pHFr/6Nw + a/+hbmr/oG1p/59saf+ea2j/nWpo/5xpZ/+caWe1AAAAAAAAAAAAAAAAAAAAAAAAAAC6h3a1yJ6Q/+/b + 0f//+PL///v3///+/f////////////////////////////////////////////////////////////// + ////////////////////////////////////////6dnW/7OLif+caWe1AAAAAAAAAAAAAAAAAAAAAL6L + eP/v2s7///Xs///48v//+/f///79////////////87Jc//OyXP/zslz/87Jc//OyXP/zslz//////5mZ + mf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZmf//////////////////////6dnW/59saf8AAAAAAAAAAAAA + AAAAAAAAwI15///+/v//9ez///jy///79////fv////////////zslz///////////////////////// + ////////mZmZ/5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ////////////////////////////oW5q/wAA + AAAAAAAAAAAAAAAAAADDkHr////////06v//9/D///r1///9+/////////////OyXP////////////// + //////////////////////////////////////////////////////////////////////////////// + //+kcWv/AAAAAAAAAAAAAAAAAAAAAMaTfP////////Pp///27v//+fT///z5////////////87Jc//// + //////////////////////////////////////////////////////////////////////////////// + /////////////6d0bf8AAAAAAAAAAAAAAAAAAAAAyZZ9////////8+n///bu//OvV//zsFn/87Fb//Oy + XP/zslz/87Jc//////+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ//////////////////// + ////////////////////////qndu/wAAAAAAAAAAAAAAAAAAAADKl37////////y5///9ez/869X///6 + 9f///fv//////////////////////5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZmf+ZmZn///////// + //////////////////////////////////+seW//AAAAAAAAAAAAAAAAAAAAAMyZf/////////Ll///0 + 6v/zr1f///n0///8+f////////////////////////////////////////////////////////////// + /////////////////////////////////////////////698cf8AAAAAAAAAAAAAAAAAAAAAz5yA//// + ////8eP///Pp//OuVf//+PL///v3///+/f////////////////////////////////////////////// + ////////////////////////////////////////////////////////sn9y/wAAAAAAAAAAAAAAAAAA + AADRnoH////////w4f//8uf/865U///38P//+vX///z5//OyXP/zslz/87Jc//OyXP/zslz/87Jc//// + //+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZmf+ZmZn///////////+0gXP/AAAAAAAA + AAAAAAAAAAAAANShg////////+/g///x4//zrVT///bu///48v//+/f/87Fb//////////////////// + /////////////5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZmf///////////7eE + dP8AAAAAAAAAAAAAAAAAAAAA16SE////////7dz///Dh//OtU///9Or///fw///59P/zsVr///79//// + //////////////////////////////////////////////////////////////////////////////// + ////////uod2/wAAAAAAAAAAAAAAAAAAAADap4b////////s2v//7+D/861S///z6f//9ez///jy//Ow + WP///fv///////////////////////////////////////////////////////////////////////// + //////////////////+9inf/AAAAAAAAAAAAAAAAAAAAANyph////////+rW///t3P/zrFH///Ll///0 + 6v//9u7/869X//OwWf/zsVv/87Jc//OyXP/zslz//////5mZmf+ZmZn/mZmZ/5mZmf+ZmZn/mZmZ/5mZ + mf+ZmZn/mZmZ/////////////////7+MeP8AAAAAAAAAAAAAAAAAAAAA3quI////////6dX//+vY//Os + UP//8OH///Ln///06v/zr1f///n0///79////fv/////////////////mZmZ/5mZmf+ZmZn/mZmZ/5mZ + mf+ZmZn/mZmZ/5mZmf+ZmZn/////////////////wo96/wAAAAAAAAAAAAAAAAAAAADhror////////n + 0f//6tb/86tP///v4P//8eP///Ln//OuVf//9/D///n0///79////fv///////////////////////// + ///////////////////////////////////////////////////Fknv/AAAAAAAAAAAAAAAAAAAAAOOw + i////////+bP///o0//zqk3//+3c///v4P//8uX/861U///17P//9/D///n0///79////fv///////// + /////////////////////////////////////////////////////////////8eUfP8AAAAAAAAAAAAA + AAAAAAAA5rOM////////5cz//+bP//OqTf/zqk7/86tP//OsUf/zrVP/861U///17P+ZlJD/mZWS/5mX + lP+ZmJf/mZiY/5mZmf+ZmZn/mZmZ/5mZmf//////////////////////////////////////ypd+/wAA + AAAAAAAAAAAAAAAAAADpto3////////jyP//5cz/86lL///p1f//69j//+3c///w4f//8uX///Pp/5mT + jv+ZlJD/mZWR/5mWk/+Zl5X/mZiY/5mZmf+ZmZn/mZmZ//////////////////////////////////// + ///MmX//AAAAAAAAAAAAAAAAAAAAAOu4jv///////+HE///kyv/zqEr//+fR///p1f//69j//+3c///w + 4f//8uX///Ln///06v//9u7///jy///59P//+/f///z5///+/f////////////////////////////// + /////////////82af/8AAAAAAAAAAAAAAAAAAAAA7bqQ////////38H//+LG//OoSf//5c3//+fR///p + 1f//69j//+3c///v4P//8eP///Ln///06v//9ez///fw///48v//+vX///v3///8+f///fv///79//// + ////////////////////////0J2B/wAAAAAAAAAAAAAAAAAAAADwvZH////////dvf//4ML/86dH//Oo + Sf/zqEr/86lL//OqTf/zqk7//+3c/5mPhv+ZkIf/mZGJ/5mSjP+Zkoz/mZSP/5mUkP+ZlZH/mZWS/5mW + k///+/f///z5///9+////fv///79///+/f/ToIL/AAAAAAAAAAAAAAAAAAAAAPPAk////////9y5///e + v//zpkb//+LG///kyv//5c3//+fR///p1f//6tb/mY6D/5mPhf+ZkIf/mZGI/5mRi/+Zkoz/mZKM/5mT + jv+ZlJD/mZWR///48v//+fT///r1///79///+/f///v3/9ajhP8AAAAAAAAAAAAAAAAAAAAA9cKU//// + ////5s3//9y5//OmRf//4ML//+LG///kyv//5cz//+bP///o0///6tb//+vY///t3P//7+D///Dh///x + 4///8uf///Pp///06v//9ez///bu///27v//9/D///jy///48v//+PL/2KWF/wAAAAAAAAAAAAAAAAAA + AAD4xZX////////48v//5s3//9y5///dvf//38H//+HE///jyP//5cz//+bP///n0f//6dX//+rW///s + 2v//7dz//+/g///w4f//8eP///Ll///y5///8+n///Pp///06v//9ez///Xs/+7a0f/bqIb/AAAAAAAA + AAAAAAAAAAAAAPvIl4/6x5b///////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////9+//u2s3/572f/7aD + dI8AAAAAAAAAAAAAAAAAAAAAAAAAAPvIl4/7yJf/+seW//nGlv/4xZX/98SV//XClP/0wZP/88CT//K/ + kv/xvpL/8L2R/+67kP/tupD/7LmP/+y5j//ruI7/6reO/+m2jf/ntIz/5rOM/+Wyi//ksYv/47CL/+Kv + iv+2g3SPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////4AAAB8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD4AAAB///////////KAAAADAAAABgAAAAAQAIAAAA + AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8Ao3BrAPbDlAD/mQAA79rOAKampgDNmn8A//LfALOL + iQC7uLUA4a6KAP/cuQDzslwAhISEALSBcwD/5s8ApYB9AMaijgDBjnkA//nvANekhADruI8A7MOcAPOs + UAD/58EAkJCQAKt4bwCylo0AnGlnAP/v1wDm19UA/MmXALqHdgDGk3wA//v3AP/16ADwvZEA3aqHALWR + hQDms4wAp3RsAK98cQDRnoEA/96/APOpSwDzr1cAmZGIAJSUlAD/6cgAn2xpAP/9+wD/8dsA/+3RALeE + dAC9ingA+MWVAMOQegDJln0A1aKDAP/05QD/+vQA//fsAPOtVADtuo8A79vRAKFuagClcmwAqXZuAK16 + cACxfnIAjY2NAPPAkwDPnIAA6baOAOSxiwDZpoYA36yIAPOqTgCJiYkA//79AP/8+QD/+fIA//juAP/z + 4gD/8NkA/+7UAPOnRwD/7M8A86hJAPbizgD/6MUA/+jEAJKSkgD/4MIA87BZAJaWlgCXl5cA/929AP/y + 5wDzrVIAnWpoALOAcgC+i3gAxJF7APrHlgDKl34A8r+SANKfggDsuY8A2KWFAP/79QD/9ukAnmtoAKBt + aQD/8d0ApHFrAKZzbAD15dgAqHVtAKp3bgCseW8A86tPAK57cADu2tEAsH1xAP/fwQDzrlUA7tS/ALJ/ + cgCZkIcAmZKMAPOxWgC1gnMAmZWRALaDdAC/jHgAwo96APnGlgD3xJQAx5R8APTBkwDMmX8A8b6SAO+8 + kADQnYEA6reOANajhADntIwA5bKLANuohgDjsIsA4q+KAP/+/gD/6ssA/+XMAPOmRgDzqEoA86pNAPOs + UQCZj4UA861TAJmRiQDzrlQAmZSPAJOTkwCZl5QA87BYAJiYmADzsVsAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABKRkZGR + kZGRSUlJSUlJBweOjo46OiJoiRNnNyEhhw9mfXsbRCkRAAAAAAAAAAAAEpGAPDw8JCRwcD4+U1MUFFI9 + PW8jI1FRMzNQmQEBAQEBAQEBAR8pEQAAAAAAAAASK1pUPDw8JCRwcD4+U1MUFFI9PW8jI1FRMzNQmQEB + AQEBAQEBAQEfKREAAAAAAAA7dlNUPDw8JCRwcD4+U1MUFFI9PW8jI1FRMzNQUAEBAQEBAQEBAQEBHykA + AAAAAAA7AVRUPDw8JCRwcD4+U1MUFFJSDg4OT0capWAGBgYGBgYGBgoKCgEBAUQAAAAAAACTAVRUPDw8 + PCQEBAQEBAQEBFJSDg4OT0capWAGBgYGBgYGBgoKCgEBARsAAAAAAAAVAVRUPDw8PCQEcD4+U1MUFFJS + Dg4OT0caXWCoBgYGBgYGBgYKCgEBAXsAAAAAAABuAVRUVDw8PCQEcHA+PlMUFBRSPT1vIyNRUTMzM1CZ + AQEBAQEBAQEBAX0AAAAAAABMAQhUVDw8PCQEcHA+PlNTFBRSUj1vbyMjUVEzM1BQmQEBAQEBAQEBAWYA + AAAAAACWAQhUVDw8PCQEcHA+Pg4ODk9HGqVgBgYGBgYGBgYKCgoBAQEBAQEBAQ8AAAAAAAAmAQhUVAQE + BAQEBARwPg4ODk9HGqVgBgYGBgYGBgYKCgqZAQEBAQEBAYcAAAAAAAAmAQhUVAQ8PDwkcHBwPg4ODk9H + Gl1gqAYGBgYGBgYGCgpQUJmZAQEBASEAAAAAAABNAQgIVAQ8PDwkJHBwPj4+UxQUFFJSPT1vIyMjUVEz + MzMzUFBQUJmZmSEAAAAAAABNAQgIVAQ8PDw8JHBwcD4+U1MUFFJSPT1vbyMjI1FRMzMzMzNQUFBQUDcA + AAAAAAALAQgIVARUPDw8JCRwcA4OT0caMKgGBgYGBgYKCiNRUVEzMzMzMzMzM2cAAAAAAAALAQgICAQE + BAQEBARwcA4OT0caMKgGBgYGBgYKCiMjUVFRUTMzMzMzMxMAAAAAAACYAQgICARUVDw8PCQkcA4ODkca + pWEGBgYGBgYGBiMjIyNRUVFRUVFRUYkAAAAAAABLAXMICARUVDw8PDwkcHBwPj4+U1MUFBRSUj09PW9v + IyMjIyNRUVFRUWgAAAAAAACVAXMICARUVFQ8PDwkJHBwcD4+U1NTFBQUUlI9PT1vb28jIyMjIyMjIyIA + AAAAAAAoATRzCAQIVFQ8PDw8JCRwcHA+Dg4OT0capWAGBgYGBgYGBgoKCiMjIzoAAAAAAACUATRzCAQI + VAQEBAQEBAQEBHBwDg4OT0capWAGBgYGBgYGBgoKCm9vbzoAAAAAAABKATQ0cwQICARUPDw8PDwkcHBw + Dg4OT0caXWCoBgYGBgYGBgYKCj09PY4AAAAAAABKATQ0cwQICARUVDw8PDwkJHBwcHA+Pj5TU1MUFBQU + UlJSUlJSPT09PY4AAAAAAACSATQ0NAQICARUVFQ8PDw8JCRwcHBwPj4+U1NTFBQUFBQUUlJSUlJSUo4A + AAAAAAAWATQ0NARzCAQIVFRUPDw8PCQkDg5PRxqlYQYGBgYGBgoKChQUFBQUFAcAAAAAAABAAVU0NARz + cwQEBAQEBAQEBDwkDg5PRxqlYQYGBgYGBgYKChQUFBQUFAcAAAAAAACQAR5VNAQ0cwQICAhUVFQ8PDw8 + Dg5PR0ddYAYGBgYGBgYGClNTU1NTU0kAAAAAAACQAR5VVQQ0NAQICAgIVFRUPDw8PDwkJHBwcHBwPj4+ + Pj4+U1NTU1NTU0kAAAAAAAAlAVYeVQQ0NARzCAgICFRUVDw8PDw8JCQkcHBwcHBwPj4+Pj4+Pj4+PkkA + AAAAAACPAVZWHgQ0NAQ0cwgIDg5PRxqlYQYGBgYGBgoKCnBwcHBwPj4+Pj4+PkkAAAAAAABrATVWVgQE + BAQEBHMIDg5PRxqlYQYGBgYGBgYKCnBwcHBwcHBwcHBwcEkAAAAAAABIAVg1VgQeVTQ0NDRzDg5PR0dd + YAYGBgYGBgYGCiQkJCRwcHBwcHBwcEkAAAAAAACNAZpYNQRWVVU0NDQ0cwgICAgIVFRUVDw8PDw8PDw8 + JCQkJCQkJCQkJJEAAAAAAAADAZqaWARWVlVVNDQ0NHNzCAgICFRUVFRUPDw8PDw8PDw8PDwkJCQkJJEA + AAAAAACLAZqamgQ1VlYeVTQ0Dg4OT0capWAGBgYGBgYGBgoKCjw8PDw8PDw8PJEAAAAAAAA4ATGamgQE + BAQEBFU0Dg4OT0capWAGBgYGBgYGBgoKCjw8PDw8PDw8PJEAAAAAAACKAVwxmgSaWDVWVh5VDg4OT0ca + XWCoBgYGBgYGBgYKClRUPDw8PDw8PJEAAAAAAABpARlcMQSamlg1VlYeVVU0NDQ0NHNzCAgICAgICFRU + VFRUVFRUVFRUVJEAAAAAAAAgVFUZXASamppYNVZWHh5VNDQ0NDQ0c3MICAgICAgICAhUVFRUVFRUgJEA + AAAAAAAKIDxVGVxbMZqaWDU1VlYeVVU0NDQ0NDRzc3MICAgICAgICAgICD5abBIAAAAAAAAAFyBUAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAXYrEgAAAAAAAAAAAAogaYo4iwONSGuPJZCQQBaS + SkqUKJVLmAsLTU0mJpZMbhWTOzsSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP// + /////wAA////////AAD4AAAAAB8AAPAAAAAADwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH + AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH + AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH + AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAPAAAAAADwAA+AAAAAAfAAD///////8AAP// + /////wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPnICj0J2B/9Cd + gf/QnYH/0J2B/9Cdgf/QnYH/0J2B/8+cgP/PnID/z5yA/86bgP/Om4D/zpuA/82af//Nmn//zJl//8yZ + f//MmX//yZZ9/8iVff/Gk3z/xJF7/8KPev/Bjnn/vot4/72KeP+7iHb/uYZ1/7aDdP+0gXP/s4By/7B9 + cf+ue3D/q3hv/6l2bv+ndGz/n2xoowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANKf + gszQnYH/7tS////04///9OT///Xl///15///9ej///bp///26v//9+v///fs///47f//+O7///nv///5 + 8P//+fL///rz///69P//+/X///v2///89////Pj///z5///9+v///fz///79///+/v////////////// + ///////////////////////////////////ey8n/p3Rs/6Rxa8wAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA06CCo9Gegf/24s7///Pi///04///9OT///Xl///15///9ej///bp///26v//9+v///fs///4 + 7f//+O7///nv///58P//+fL///rz///69P//+/X///v2///89////Pj///z5///9+v///fz///79///+ + /v//////////////////////////////////////////////////////7eLh/6d0bP+fbGijAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA1KGD//Xl2P//+O3///Pi///04///9OT///Xl///15///9ej///bp///2 + 6v//9+v///fs///47f//+O7///nv///58P//+fL///rz///69P//+/X///v2///89////Pj///z5///9 + +v///fz///78///+/f///////////////////////////////////////////////////////////97L + yf+ndGz/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1aKD////////8+H///Pi///04///9OT///Xl///1 + 5///9ej///bp///26v//9+v///fs///47f//+O7///nv///58P//+fH///ry/4GBgf+EhIT/h4eH/4qK + iv+NjY3/kJCQ/5OTk/+Wlpb/mZmZ/5ycnP+goKD/o6Oj/6enp/+qqqr/rq6u/7Gxsf+1tbX/uLi4/7u7 + u/////////////////+pdm7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1qOE////////8+H///Pi///0 + 4///9OT///Tl///15v//9ef//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//+fH///ry/4GB + gf+EhIT/h4eH/4qKiv+NjY3/kJCQ/5OTk/+Wlpb/mZmZ/5ycnP+goKD/o6Oj/6enp/+qqqr/ra2t/7Cw + sP+0tLT/tra2/7i4uP////////////////+reG//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA16SE//// + ////8+H///Pi///04///9OT///Tl///15v//9ef//5kA///26f//9+v///fs///47f//+O7///jv///5 + 8P//+fH///ry/4GBgf+EhIT/h4eH/4qKiv+NjY3/kJCQ/5KSkv+VlZX/mJiY/5ubm/+enp7/oqKi/6Wl + pf+oqKj/q6ur/66urv+xsbH/tLS0/7W1tf////////////////+ue3D/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA2KWF////////8+H///Pi///z4v//9OT///Tl///15v//9ef//5kA///26f//9ur///fr///3 + 7P//+O7///jv///57///+fD///ny///68///+vT///v1///79v//+/f///z4///8+f///fr///37///9 + /P///v3///7+//////////////////////////////////////////////////////+wfXH/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA2aaG////////8+D///Ph///z4v//9OT///Tl///15v//9ef//5kA///2 + 6f//9ur///fr///37P//+O3///ju///57///+fD///nx///68v//+vP///v1///79f//+/b///z3///8 + +P///Pn///36///9+////vz///79///+/v////////////////////////////////////////////// + //+zgHL/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA26iG////////8uD///Ph///z4v//9OP///Tk///1 + 5f//9ef//5kA///26f//9un///fr///37P+BgYH/hISE/4eHh/+Kior/jY2N/5CQkP+Tk5P/lpaW/5mZ + mf+cnJz/oKCg/6Ojo/+np6f/qqqq/66urv+xsbH/tbW1/7i4uP+7u7v///////////////////////// + //////////////////+0gXP/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3KmH////////8uD///Ph///z + 4v//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD///bq///36/+BgYH/hISE/4eHh/+Kior/jY2N/5CQ + kP+Tk5P/lpaW/5mZmf+cnJz/oKCg/6Ojo/+np6f/qqqq/62trf+wsLD/tLS0/7a2tv+4uLj///7+//// + //////////////////////////////////+2g3T/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3aqH//// + ////8uD///Ph///z4v//mQD///Tk///05f//9eb///Xn///26P//9un///bq///36/+BgYH/hISE/4eH + h/+Kior/jY2N/5CQkP+SkpL/lZWV/5iYmP+bm5v/np6e/6Kiov+lpaX/qKio/6urq/+urq7/sbGx/7S0 + tP+1tbX///79///+/f///v7///7+//////////////////////+5hnX/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA3quI////////8t////Pg///z4f//mQD///Tj///05P//9eX///Xn///16P//9uj///bp///3 + 6///9+z///fs///47v//+O////nv///58P//+fL///ry///68///+vT///v1///79v//+/f///z3///8 + +f///Pn///36///9+v///fv///38///+/P///v3///79///+/f///v7///7+///+/v+7iHb/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA36yI////////8t////Lg///z4f//mQD///Tj///05P//9OX///Xm///1 + 5///9uj///bp///26v//9+v///fs///47f//+O7///jv///58P//+fH///ny///68///+vP///v1///7 + 9f//+/b///v3///89////Pj///z5///9+v///fr///37///9/P///fz///78///+/P///v3///79///+ + /f+9inj/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4K2J////////8t7///Lg///z4f//mQD///Pi///0 + 5P//9OX///Xl///15///9ej///bp///26f+BgYH/hYWF/4iIiP+MjIz/kJCQ/5SUlP+YmJj/nJyc/6Cg + oP+kpKT/qamp/62trf+ysrL/tra2/7m5uf///Pf///z4///8+f///Pn///36///9+v///fv///37///9 + /P///fz///38///9/P++i3j/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4a6K////////8t7///Lf///y + 4P//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD///bo///26f+BgYH/hYWF/4iIiP+MjIz/kJCQ/5SU + lP+YmJj/nJyc/6CgoP+kpKT/p6en/6ysrP+wsLD/s7Oz/7a2tv//+/f///z3///8+P///Pj///z5///8 + +f///fr///36///9+v///fr///36///9+v/Bjnn/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4q+K//// + ////8t7///Lf///y4P//mQD///Pi///z4v//9OT///Tl///15f//9ef///Xo///26P+BgYH/hYWF/4eH + h/+Li4v/j4+P/5OTk/+Xl5f/mpqa/56env+hoaH/pqam/6mpqf+tra3/sLCw/7Kysv//+/b///v2///7 + 9////Pf///z4///8+P///Pn///z5///8+f///Pn///z5///8+f/Cj3r/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA5LGL////////8d3///Le///y3///mQD///Ph///z4v//9OP///Tk///05f//9eb///Xn///2 + 6P//9un///bq///36///9+z///fs///47f//+O7///jv///58P//+fD///nx///68v//+vP///rz///6 + 9P//+/X///v1///79v//+/b///v3///89////Pf///z4///8+P///Pj///z4///8+P/EkXv/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA5bKL////////8d3///Le///y3///mQD///Ph///z4v//8+L///Tk///0 + 5f//9eX///Xn///15///9uj///bp///26v//9+v///fs///47f//+O7///ju///47///+fD///nw///5 + 8f//+vL///rz///68///+vT///v1///79f//+/X///v2///79v//+/b///v3///89////Pf///z3///8 + 9//Gk3z/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5rOM////////8dz///Hd///y3v//mQD///Pg///z + 4f//8+L///Tj///05P//9OX///Xm///15///9ej///bo///26f//9ur///fr/4GBgf+EhIT/h4eH/4qK + iv+NjY3/kJCQ/5OTk/+Wlpb/mZmZ/5ycnP+goKD/o6Oj/6enp/+qqqr/rq6u/7Gxsf+1tbX/uLi4/7u7 + u///+/b///v2///79v/IlX3/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA57SM////////8dz///Hd///y + 3v//mQD///Lg///z4f//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//9un///bq/4GB + gf+EhIT/h4eH/4qKiv+NjY3/kJCQ/5OTk/+Wlpb/mZmZ/5ycnP+goKD/o6Oj/6enp/+qqqr/ra2t/7Cw + sP+0tLT/tra2/7i4uP//+/X///v1///79f/Jln3/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA6LWN//// + ////8dv///Hc///x3f//mQD///Lf///y4P//mQD///Pi///04///9OT///Tk///15f//9eb///Xn///2 + 6P//9un///bp/4GBgf+EhIT/h4eH/4qKiv+NjY3/kJCQ/5KSkv+VlZX/mJiY/5ubm/+enp7/oqKi/6Wl + pf+oqKj/q6ur/66urv+xsbH/tLS0/7W1tf//+vT///r0///69P/MmX//AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA6baO////////8Nv///Hb///x3f//mQD///Le///y4P//mQD///Ph///z4v//9OP///Tk///0 + 5f//9eX///Xn///15///9uj///bp///26f//9ur///fr///37P//9+z///jt///47v//+O7///jv///5 + 7///+fD///nw///58f//+fH///ny///68v//+vL///ry///68///+vP///rz///68//MmX//AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA6reO////////8Nr///Hb///x3P//mQD///Le///y3///mQD///Ph///z + 4f//8+L///Tj///05P//9OX///Xm///15///9ef///bo///26f//9un///bq///36///9+z///fs///4 + 7f//+O7///ju///47///+O////nv///58P//+fD///nw///58f//+fH///nx///58v//+fL///ny///5 + 8v/MmX//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA67iP////////8Nr///Da///x2///mQD///Hd///y + 3v//mQD///Lg///z4f//8+L///Pi///04///9OT///Tl///15v//9ef///Xn/4GBgf+EhIT/iIiI/4yM + jP+QkJD/k5OT/5eXl/+bm5v/np6e/6Kiov+mpqb/q6ur/6+vr/+zs7P/t7e3/7q6uv//+fD///nw///5 + 8P//+fD///nw///58P/Nmn//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7bqP////////8Nn///Da///w + 2///mQD///Hd///x3f//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//9eb///Xn/4GB + gf+EhIT/iIiI/4yMjP+QkJD/k5OT/5eXl/+bm5v/np6e/6Kiov+mpqb/qamp/62trf+ysrL/tLS0/7e3 + t///+O////nv///57///+e////nv///57//Nmn//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7ruQ//// + ////79f///DZ///w2v//mQD///Hc///x3f//mQD///Le///y3///8+D///Ph///z4v//8+L///Tj///0 + 5P//9OX///Xl/4GBgf+EhIT/iIiI/4uLi/+Ojo7/kpKS/5aWlv+ZmZn/nZ2d/6Ghof+kpKT/qKio/6ur + q/+vr6//srKy/7Ozs///+O7///ju///47v//+O7///ju///47v/Om4D/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA77yQ////////79b///DZ///w2f//mQD///Hb///x3P//mQD///Le///y3v//8uD///Pg///z + 4f//8+L///Pi///04///9OT///Tl///15f//9eb///Xn///15///9uj///bo///26f//9un///bq///3 + 6///9+v///fr///37P//9+z///fs///47f//+O3///jt///47f//+O3///jt///47f/Om4D/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA8L2R////////7tT//+/W///w2f//mQD///Da///x2///mQD///Hd///y + 3v//8t////Lg///z4P//8+H///Pi///z4v//9OP///Tk///05P//9OX///Xm///15///9ef///Xo///2 + 6P//9un///bp///26f//9ur///bq///36///9+v///fr///37P//9+z///fs///37P//9+z///fs///3 + 7P/Om4D/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8b6S////////7dL//+7U///v1///mQD///Da///w + 2///mQD///Hc///x3f//8t7///Lf/4GBgf+EhIT/iIiI/4yMjP+QkJD/k5OT/5eXl/+bm5v/np6e/6Ki + ov+mpqb/q6ur/6+vr/+zs7P/t7e3/7q6uv//9un///bp///26f//9ur///bq///36///9+v///fr///3 + 6///9+v///fr///36//PnID/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8r+S////////7ND//+7T///u + 1f//mQD//5kA//+ZAP//mQD//5kA//+ZAP//8d3///Le/4GBgf+EhIT/iIiI/4yMjP+QkJD/k5OT/5eX + l/+bm5v/np6e/6Kiov+mpqb/qamp/62trf+ysrL/tLS0/7e3t///9uj///bo///26f//9un///bp///2 + 6f//9un///bq///26v//9ur///bq///26v/PnID/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA88CT//// + ////7M7//+3R///u0///mQD//+/X///w2f//8Nr///Db///x2///8dz///Hd/4GBgf+EhIT/iIiI/4uL + i/+Ojo7/kpKS/5aWlv+ZmZn/nZ2d/6Ghof+kpKT/qKio/6urq/+vr6//srKy/7Ozs///9ef///Xn///1 + 6P//9ej///bo///26P//9uj///bp///26f//9un///bp///26f/PnID/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA9MGT////////68z//+zP///t0f//mQD//+7V///w2f//8Nn///Da///w2///8dv///Hc///x + 3f//8t7///Le///y3///8uD///Pg///z4f//8+H///Pi///z4v//9OP///Tk///05P//9OX///Tl///1 + 5f//9eb///Xm///15///9ef///Xn///15///9ef///Xo///16P//9ej///Xo///16P/QnYH/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA9sOU////////6sv//+vN///sz///mQD//+7T///u1f//8Nn///DZ///w + 2v//8Nv///Hb///x3P//8d3///Hd///y3v//8t////Lg///y4P//8+H///Ph///z4v//8+L///Pi///0 + 4///9OT///Tk///05P//9OX///Tl///15f//9eb///Xm///15v//9eb///Xn///15///9ef///Xn///1 + 5//QnYH/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA98SU////////6sn//+rL///rzf//mQD//+3R///u + 0///7tX//+/X///w2f//8Nr///Da/4GBgf+EhIT/h4eH/4qKiv+NjY3/kJCQ/5OTk/+Wlpb/mZmZ/5yc + nP+goKD/o6Oj/6enp/+qqqr/rq6u/7Gxsf+1tbX/uLi4/7u7u///9OX///Tl///05f//9OX///Xl///1 + 5f//9eX///Xl///15f/QnYH/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+MWV////////6cf//+rJ///q + y///mQD//5kA//+ZAP//mQD//5kA//+ZAP//8Nn///Da/4GBgf+EhIT/h4eH/4qKiv+NjY3/kJCQ/5OT + k/+Wlpb/mZmZ/5ycnP+goKD/o6Oj/6enp/+qqqr/ra2t/7CwsP+0tLT/tra2/7i4uP//9OT///Tk///0 + 5P//9OT///Tk///05P//9OT///Tk///05P/QnYH/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+caW//// + ////6MP//+nH///qyf//mQD//+vN///sz///7dH//+7T///u1f//79f///DZ/4GBgf+EhIT/h4eH/4qK + iv+NjY3/kJCQ/5KSkv+VlZX/mJiY/5ubm/+enp7/oqKi/6Wlpf+oqKj/q6ur/66urv+xsbH/tLS0/7W1 + tf//8+L///Pi///04///9OP///Tj///04///9OP///Tj///04//QnYH/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA+seW////////58H//+jE///px///mQD//+rL///rzf//7M///+3R///u0///7tT//+/W///w + 2f//8Nn///Da///w2v//8dv///Hb///x3P//8d3///Hd///y3v//8t7///Lf///y3///8uD///Lg///z + 4P//8+H///Ph///z4f//8+H///Pi///z4v//8+L///Pi///z4v//8+L///Pi///z4v/QnYH/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA+8iX//7y4v//8Nn//+fB///ow///mQD//+rJ///qy///68z//+zO///s + 0P//7dL//+7U///v1v//79f///DZ///w2v//8Nr///Db///x2///8dz///Hc///x3f//8d3///Le///y + 3v//8t7///Lf///y3///8uD///Lg///y4P//8+D///Ph///z4f//8+H///Ph///z4f//8+H///Ph/+7U + v//QnYH/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/MmXo/zJl//+9OX///DZ///nwf//6MP//+jF///p + yP//6sr//+vM///szv//7ND//+3R///u0///7tX//+/X///w2f//8Nn///Da///w2v//8Nv///Hb///x + 3P//8dz///Hd///x3f//8d3///Le///y3v//8t7///Lf///y3///8t////Lg///y4P//8uD///Lg///y + 4P//9+z/9uHN/9Kfgv/PnICjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP3KmMz8yZf//vLi//// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////15df/0Z6B/9KfgswAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD8yZej+8iX//rHlv/5xpb/+MWV//fElP/2w5T/9MGT//PAk//yv5L/8b6S//C9kf/vvJD/7ruQ/+26 + j//ruI//6reO/+m2jv/otY3/57SM/+azjP/lsov/5LGL/+Kviv/hror/4K2J/9+siP/eq4j/3aqH/9yp + h//bqIb/2aaG/9ilhf/XpIT/1qOE/9Wig//UoYP/06CCowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///////8AAP///////wAA+AAAAAAf + AADwAAAAAA8AAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH + AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH + AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADwAAAAAA8AAPgAAAAAHwAA////////AAD///////8AAP///////wAA + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmForm_Overview.vb b/app - Kopie/DD-Record-Organiser/frmForm_Overview.vb new file mode 100644 index 0000000..7ae1b26 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmForm_Overview.vb @@ -0,0 +1,406 @@ +Imports DevExpress.XtraTreeList +Public Class frmForm_Overview + Sub New() + + InitializeComponent() + End Sub + Private Shared _Instance As frmForm_Overview = Nothing + Private insert As Boolean = False + Public Shared Function Instance() As frmForm_Overview + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmForm_Overview + End If + _Instance.BringToFront() + Return _Instance + End Function + + Private Sub frmForm_Overview_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmForm_Overview") + 'Load_Forms() + SaveLayout() + Catch ex As Exception + MsgBox("Error in Form Close:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub frmForm_Overview_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_TYPE". Sie können sie bei Bedarf verschieben oder entfernen. + + Try + TBPMO_FORMTableAdapter.Connection.ConnectionString = MyConnectionString + TBPMO_FORM_VIEWTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FORM_TYPETableAdapter.Connection.ConnectionString = MyConnectionString + Load_TreeView() + Me.TBPMO_FORM_TYPETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_TYPE) + ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmForm_Overview") + + + LoadLayout() + + + + + Catch ex As Exception + MsgBox("Error in Form Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub Load_TreeView() + Try + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0") + If DT.Rows.Count > 0 Then + TreeViewEntity.Nodes.Clear() + For Each Row As DataRow In DT.Rows + Dim Node As TreeNode + Node = TreeViewEntity.Nodes.Add(Row.Item("FORM_TITLE").ToString) + Node.Tag = Row.Item("GUID") + 'Jetzt die Ebene1Knoten einhängen + Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL" + Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(sql) + If dtEbene1.Rows.Count > 0 Then + For Each row1 As DataRow In dtEbene1.Rows + Dim Node1 As TreeNode + Node1 = Node.Nodes.Add(row1.Item("FORM_TITLE").ToString) + Node1.Tag = row1.Item("GUID") + Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL" + 'Jetzt die Ebene2 Knoten einhängen + Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(sql1) + If dtEbene2.Rows.Count > 0 Then + For Each row2 As DataRow In dtEbene2.Rows + Dim Node2 As TreeNode + Node2 = Node1.Nodes.Add(row2.Item("FORM_TITLE").ToString) + Node2.Tag = row2.Item("GUID") + Next + End If + + Next + + End If + Next + Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE" + Dim DT3 As DataTable = ClassDatabase.Return_Datatable(sql2) + If DT3.Rows.Count > 0 Then + Dim Node As TreeNode + Node = TreeViewEntity.Nodes.Add("Unabhängige/Eigenständige Entitäten") + For Each row3 As DataRow In DT3.Rows + Dim Node2 As TreeNode + Node2 = Node.Nodes.Add(row3.Item("FORM_TITLE").ToString) + Node2.Tag = row3.Item("GUID") + Next + End If + TreeViewEntity.ExpandAll() + TreeViewEntity.Nodes(0).EnsureVisible() + End If + Catch ex As Exception + MsgBox("Error in Load_TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub Load_Forms(FORMID As Integer) + Try + Me.TBPMO_FORMTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM, FORMID) + Me.TBPMO_FORM_VIEWTableAdapter.FillByFORMID(Me.DD_DMSDataSet.TBPMO_FORM_VIEW, FORMID) + + If PARENT_IDTextBox.Text = 0 And ComboBox1.SelectedValue = 1 Then + Me.btnGenerate.Visible = True + Else + btnGenerate.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Load_Forms:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Open_Designer() + Cursor = Cursors.WaitCursor + OpenFormLevelDesigner() + Cursor = Cursors.Default + End Sub + + Sub Open_Viewer() + Try + If GUIDTextBox.Text = "" Then + Exit Sub + End If + Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID() + If FormId <> -1 Then + Me.Hide() + + Cursor = Cursors.WaitCursor + OpenFormInputFor(FormId, 1) + Cursor = Cursors.Default + ' Me.Visible = True + End If + Catch ex As Exception + MsgBox("Error while Opening Entity View!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + Try + If GUIDTextBox.Text <> "" Then + Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID() + If FormId <> -1 Then + CURRENT_FORM_ID = FormId + Open_Designer() + Me.Hide() + End If + End If + Catch ex As Exception + MsgBox("Error while Opening Entity!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click + Open_Viewer() + End Sub + + Private Sub gvMainView_DoubleClick(sender As Object, e As EventArgs) + Open_Viewer() + End Sub + + Private Function GetCurrentGUID() As Integer + Dim FormId As Integer + Try + Dim CurrentRow As DataRowView = Me.TBPMO_FORMBindingSource.Current + FormId = CurrentRow.Row.Item("GUID") + Catch ex As Exception + FormId = -1 + End Try + + Return FormId + End Function + + Private Sub TBPMO_FORMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_FORMBindingSource.AddingNew + DD_DMSDataSet.TBPMO_FORM.ADDED_WHOColumn.DefaultValue = Environment.UserName + DD_DMSDataSet.TBPMO_FORM_VIEW.ADDED_WHOColumn.DefaultValue = Environment.UserName + Me.GroupBox1.Visible = True + insert = True + End Sub + Private Sub SaveLayout() + Try + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "FORM-OVERVIEW-UserLayout.xml") + ' treeListForms.SaveLayoutToXml(XMLPath) + Catch ex As Exception + MsgBox("Error while saving custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub LoadLayout() + Try + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "FORM-OVERVIEW-UserLayout.xml") + ' treeListForms.RestoreLayoutFromXml(XMLPath) + Catch notFoundEx As System.IO.FileNotFoundException + ClassLogger.Add("Layout added for Overview") + Catch ex As Exception + MsgBox("Error while loading custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + Try + If FORM_TITLETextBox.Text = "" Then + MsgBox("Bitte geben Sie einen Titel für die Entität ein!", MsgBoxStyle.Exclamation) + FORM_TITLETextBox.Focus() + Exit Sub + End If + + Dim FORM_TITLE As String = FORM_TITLETextBox.Text + Dim DESCRIPTION As String = DESCRIPTIONTextBox.Text + Me.TBPMO_FORMBindingSource.EndEdit() + Dim changes = False + + ' Save FORM Properties + If DD_DMSDataSet.TBPMO_FORM.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBoxPMOForm.Text = Environment.UserName + Me.TBPMO_FORMBindingSource.EndEdit() + TBPMO_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM) + + changes = True + End If + + ' Save FORM_VIEW Properties + If insert = True Then + Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM" + Dim FORM_ID = ClassDatabase.Execute_Scalar(sql) + + Dim ADDED_WHO As String = Environment.UserName + + + 'MsgBox(FORM_TITLETextBox.Text) + 'ggg() + If FORM_ID Is Nothing = False Then + ' Dim SQL1 = ClassDatabase.Execute_Scalar("SELECT SQL_RECORD_SQL1 FROM TBPMO_KONFIGURATION WHERE GUID = 1") + ' Dim SQL2 = ClassDatabase.Execute_Scalar("SELECT SQL_RECORD_SQL2 FROM TBPMO_KONFIGURATION WHERE GUID = 1") + ' SQL2 = SQL2.ToString.Replace("@FORM_ID", FORM_ID) + ' sql = "INSERT INTO TBPMO_FORM_SQL_CONSTRUCT (SCREEN_ID,FORM_ID,SQL1,SQL2,ADDED_WHO) VALUES (" & FORM_ID & ", 1,'" & SQL1 & "','" & SQL2 & "','" & ADDED_WHO & "')" + ' ClassDatabase.Execute_non_Query(sql) + sql = "INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO) VALUES (" & FORM_ID & ", 1, '" & FORM_TITLE & "', '" & DESCRIPTION & "', '" & ADDED_WHO & "')" + ClassDatabase.Execute_non_Query(sql) + End If + Else + Me.TBPMO_FORM_VIEWBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_FORM_VIEW.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBoxPMOFormView.Text = Environment.UserName + Me.TBPMO_FORM_VIEWBindingSource.EndEdit() + TBPMO_FORM_VIEWTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM_VIEW) + changes = True + End If + End If + insert = False + If changes = True Then + Load_TreeView() + lblStatus.Text = "Änderungen erfolgreich gespeichert" + lblStatus.Visible = True + 'MsgBox("Änderungen erfolgreich gespeichert!", MsgBoxStyle.Information) + Else + lblStatus.Visible = False + End If + ' Load_Forms() + Catch ex As Exception + MsgBox("Error in Save:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + Dim result As MsgBoxResult = MsgBox("Wollen Sie das Formular wirklich löschen?" & vbNewLine & "Alle Daten werden unwiderruflich gelöscht!", MsgBoxStyle.YesNo, "Bestätigung notwendig:") + If result = MsgBoxResult.Yes Then + Try + Dim CurrentID = GetCurrentGUID() + Dim delete As String = "DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_FORM_SQL_CONSTRUCT WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_WORKFLOW_FORM WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + ' Delete controls (and control screens and control values) + If ClassFormCommands.DeleteFormControls(CurrentID) = True Then + ' Delete form view + If ClassFormCommands.DeleteFormView(CurrentID) = True Then + delete = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")" + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")" + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")" + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + ' Delete the actual form + Me.TBPMO_FORMTableAdapter.Delete(CurrentID) + MsgBox("Das Formular/Die Entität wurde erfolgreich gelöscht!", MsgBoxStyle.Information) + Load_TreeView() + Load_Forms(999999999) + End If + + End If + + End If + End If + End If + End If + End If + End If + End If + + + End If + End If + + + + Catch ex As Exception + MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click + TBPMO_FORMBindingSource.AddNew() + End Sub + + Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewEntity.AfterSelect + Try + If Not TreeViewEntity.SelectedNode Is Nothing Then + Dim formId As Integer = Integer.Parse(TreeViewEntity.SelectedNode.Tag) + Console.WriteLine(formId) + Load_Forms(formId) + TreeViewEntity.ExpandAll() + End If + Catch ex As Exception + MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btncopy_Click(sender As Object, e As EventArgs) Handles btncopy.Click + Dim result As MsgBoxResult = MsgBox("Wollen Sie diese Entität kopieren?", MsgBoxStyle.YesNo, "Frage:") + If result = MsgBoxResult.Yes Then + Try + Dim CurrentID = GetCurrentGUID() + Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString + If ClassDatabase.Execute_non_Query(sql) = True Then + 'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information) + Load_TreeView() + Load_Forms(999999999) + lblStatus.Text = "Die Entität wurde erfolgreich kopiert." + lblStatus.Visible = True + Else + lblStatus.Visible = False + End If + Catch ex As Exception + MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + + End Sub + + Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles NAMETextBox.TextChanged + If insert = True Then + FORM_TITLETextBox.Text = NAMETextBox.Text + End If + End Sub + + Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click + Try + Dim CurrentID = GetCurrentGUID() + If CurrentID > 0 Then + Dim result As MsgBoxResult = MsgBox("Achtung mit dieser Funktion wird ein NEUES Kombi-Formular erzeugt!" & vbNewLine & "Wollen Sie fortfahren?", MsgBoxStyle.YesNo, "Frage:") + If result = MsgBoxResult.Yes Then + INTEGER1 = CurrentID + frmNewKombiForm.ShowDialog() + End If + End If + + + 'Dim CurrentID = GetCurrentGUID() + 'Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString + 'If ClassDatabase.Execute_non_Query(sql) = True Then + ' 'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information) + ' Load_TreeView() + ' Load_Forms(999999999) + ' lblStatus.Text = "Die Entität wurde erfolgreich kopiert." + ' lblStatus.Visible = True + 'Else + ' lblStatus.Visible = False + 'End If + Catch ex As Exception + MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged + If ComboBox1.SelectedIndex <> -1 Then + If ComboBox1.SelectedValue = 5 Then + ToolStripButton2.Enabled = False + ToolStripButton1.Enabled = False + Else + ToolStripButton2.Enabled = True + ToolStripButton1.Enabled = True + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmLevel_Designer.Designer.vb b/app - Kopie/DD-Record-Organiser/frmLevel_Designer.Designer.vb new file mode 100644 index 0000000..42e6e96 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLevel_Designer.Designer.vb @@ -0,0 +1,360 @@ + _ +Partial Class frmLevel_Designer + 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() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tsstatus = New System.Windows.Forms.ToolStripStatusLabel() + Me.pnlDesigner = New SnapPanelControl.SnapPanel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.lblFormName = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.grpbxDocumentView = New System.Windows.Forms.GroupBox() + Me.chkbxdocview = New System.Windows.Forms.CheckBox() + Me.cmbSearchPattern5 = New System.Windows.Forms.ComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.cmbSearchPattern4 = New System.Windows.Forms.ComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbSearchPattern3 = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.cmbSearchPattern2 = New System.Windows.Forms.ComboBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmbSearchPattern1 = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnsavedocView = New System.Windows.Forms.Button() + Me.btnWindreamsuche = New System.Windows.Forms.Button() + Me.txtWindreamsuche = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() + Me.ttTooltip = New System.Windows.Forms.ToolTip(Me.components) + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.grpbxDocumentView.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstatus}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 569) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1067, 22) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tsstatus + ' + Me.tsstatus.Image = Global.DD_Record_Organiser.My.Resources.Resources.lightbulb + Me.tsstatus.Name = "tsstatus" + Me.tsstatus.Size = New System.Drawing.Size(137, 17) + Me.tsstatus.Text = "ToolStripStatusLabel1" + Me.tsstatus.Visible = False + ' + 'pnlDesigner + ' + Me.pnlDesigner.AllowDrop = True + Me.pnlDesigner.BackColor = System.Drawing.SystemColors.ControlLight + Me.pnlDesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlDesigner.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlDesigner.GridSize = 8 + Me.pnlDesigner.Location = New System.Drawing.Point(0, 0) + Me.pnlDesigner.Name = "pnlDesigner" + Me.pnlDesigner.ShowGrid = True + Me.pnlDesigner.Size = New System.Drawing.Size(1067, 375) + Me.pnlDesigner.TabIndex = 2 + ' + 'ToolStrip1 + ' + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblFormName, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1067, 25) + Me.ToolStrip1.TabIndex = 3 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'lblFormName + ' + Me.lblFormName.Name = "lblFormName" + Me.lblFormName.Size = New System.Drawing.Size(42, 22) + Me.lblFormName.Text = "Name:" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(170, 22) + Me.ToolStripButton1.Text = "View/Spalten neu erzeugen" + ' + 'grpbxDocumentView + ' + Me.grpbxDocumentView.BackColor = System.Drawing.SystemColors.Control + Me.grpbxDocumentView.Controls.Add(Me.chkbxdocview) + Me.grpbxDocumentView.Controls.Add(Me.cmbSearchPattern5) + Me.grpbxDocumentView.Controls.Add(Me.Label6) + Me.grpbxDocumentView.Controls.Add(Me.cmbSearchPattern4) + Me.grpbxDocumentView.Controls.Add(Me.Label5) + Me.grpbxDocumentView.Controls.Add(Me.cmbSearchPattern3) + Me.grpbxDocumentView.Controls.Add(Me.Label4) + Me.grpbxDocumentView.Controls.Add(Me.cmbSearchPattern2) + Me.grpbxDocumentView.Controls.Add(Me.Label3) + Me.grpbxDocumentView.Controls.Add(Me.cmbSearchPattern1) + Me.grpbxDocumentView.Controls.Add(Me.Label2) + Me.grpbxDocumentView.Controls.Add(Me.btnsavedocView) + Me.grpbxDocumentView.Controls.Add(Me.btnWindreamsuche) + Me.grpbxDocumentView.Controls.Add(Me.txtWindreamsuche) + Me.grpbxDocumentView.Controls.Add(Me.Label1) + Me.grpbxDocumentView.Dock = System.Windows.Forms.DockStyle.Fill + Me.grpbxDocumentView.Location = New System.Drawing.Point(0, 0) + Me.grpbxDocumentView.Name = "grpbxDocumentView" + Me.grpbxDocumentView.Size = New System.Drawing.Size(1067, 170) + Me.grpbxDocumentView.TabIndex = 4 + Me.grpbxDocumentView.TabStop = False + Me.grpbxDocumentView.Text = "Document View - Eigenschaften" + Me.grpbxDocumentView.Visible = False + ' + 'chkbxdocview + ' + Me.chkbxdocview.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.chkbxdocview.AutoSize = True + Me.chkbxdocview.Location = New System.Drawing.Point(900, 17) + Me.chkbxdocview.Name = "chkbxdocview" + Me.chkbxdocview.Size = New System.Drawing.Size(167, 17) + Me.chkbxdocview.TabIndex = 5 + Me.chkbxdocview.Text = "Dokumenten-Ansicht aktiv?" + Me.chkbxdocview.UseVisualStyleBackColor = True + ' + 'cmbSearchPattern5 + ' + Me.cmbSearchPattern5.FormattingEnabled = True + Me.cmbSearchPattern5.Items.AddRange(New Object() {"Form-ID (Entity)", "Record-ID"}) + Me.cmbSearchPattern5.Location = New System.Drawing.Point(472, 79) + Me.cmbSearchPattern5.Name = "cmbSearchPattern5" + Me.cmbSearchPattern5.Size = New System.Drawing.Size(200, 21) + Me.cmbSearchPattern5.TabIndex = 63 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(469, 63) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(93, 13) + Me.Label6.TabIndex = 62 + Me.Label6.Text = "Search Pattern 5:" + ' + 'cmbSearchPattern4 + ' + Me.cmbSearchPattern4.FormattingEnabled = True + Me.cmbSearchPattern4.Items.AddRange(New Object() {"Form-ID (Entity)", "Record-ID"}) + Me.cmbSearchPattern4.Location = New System.Drawing.Point(235, 123) + Me.cmbSearchPattern4.Name = "cmbSearchPattern4" + Me.cmbSearchPattern4.Size = New System.Drawing.Size(200, 21) + Me.cmbSearchPattern4.TabIndex = 61 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(232, 107) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(93, 13) + Me.Label5.TabIndex = 60 + Me.Label5.Text = "Search Pattern 4:" + ' + 'cmbSearchPattern3 + ' + Me.cmbSearchPattern3.FormattingEnabled = True + Me.cmbSearchPattern3.Items.AddRange(New Object() {"Form-ID (Entity)", "Record-ID"}) + Me.cmbSearchPattern3.Location = New System.Drawing.Point(15, 123) + Me.cmbSearchPattern3.Name = "cmbSearchPattern3" + Me.cmbSearchPattern3.Size = New System.Drawing.Size(200, 21) + Me.cmbSearchPattern3.TabIndex = 59 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 107) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(93, 13) + Me.Label4.TabIndex = 58 + Me.Label4.Text = "Search Pattern 3:" + ' + 'cmbSearchPattern2 + ' + Me.cmbSearchPattern2.FormattingEnabled = True + Me.cmbSearchPattern2.Items.AddRange(New Object() {"Form-ID (Entity)", "Record-ID"}) + Me.cmbSearchPattern2.Location = New System.Drawing.Point(235, 79) + Me.cmbSearchPattern2.Name = "cmbSearchPattern2" + Me.cmbSearchPattern2.Size = New System.Drawing.Size(200, 21) + Me.cmbSearchPattern2.TabIndex = 57 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(232, 63) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(93, 13) + Me.Label3.TabIndex = 56 + Me.Label3.Text = "Search Pattern 2:" + ' + 'cmbSearchPattern1 + ' + Me.cmbSearchPattern1.FormattingEnabled = True + Me.cmbSearchPattern1.Items.AddRange(New Object() {"Form-ID (Entity)", "Record-ID"}) + Me.cmbSearchPattern1.Location = New System.Drawing.Point(15, 79) + Me.cmbSearchPattern1.Name = "cmbSearchPattern1" + Me.cmbSearchPattern1.Size = New System.Drawing.Size(200, 21) + Me.cmbSearchPattern1.TabIndex = 55 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 63) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(93, 13) + Me.Label2.TabIndex = 53 + Me.Label2.Text = "Search Pattern 1:" + ' + 'btnsavedocView + ' + Me.btnsavedocView.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnsavedocView.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_save + Me.btnsavedocView.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnsavedocView.Location = New System.Drawing.Point(975, 40) + Me.btnsavedocView.Name = "btnsavedocView" + Me.btnsavedocView.Size = New System.Drawing.Size(86, 26) + Me.btnsavedocView.TabIndex = 52 + Me.btnsavedocView.Text = "Speichern" + Me.btnsavedocView.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsavedocView.UseVisualStyleBackColor = True + ' + 'btnWindreamsuche + ' + Me.btnWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnWindreamsuche.Location = New System.Drawing.Point(546, 33) + Me.btnWindreamsuche.Name = "btnWindreamsuche" + Me.btnWindreamsuche.Size = New System.Drawing.Size(24, 21) + Me.btnWindreamsuche.TabIndex = 49 + Me.btnWindreamsuche.Text = "..." + Me.btnWindreamsuche.UseVisualStyleBackColor = True + ' + 'txtWindreamsuche + ' + Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info + Me.txtWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtWindreamsuche.Location = New System.Drawing.Point(15, 34) + Me.txtWindreamsuche.Name = "txtWindreamsuche" + Me.txtWindreamsuche.Size = New System.Drawing.Size(525, 22) + Me.txtWindreamsuche.TabIndex = 50 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 18) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(96, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "windream-Suche:" + ' + 'OFDWindreamsuche + ' + Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf|Alle Dateien|*.*" + Me.OFDWindreamsuche.RestoreDirectory = True + Me.OFDWindreamsuche.Title = "windream-Suche wählen" + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 25) + Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.pnlDesigner) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.grpbxDocumentView) + Me.SplitContainer1.Panel2MinSize = 170 + Me.SplitContainer1.Size = New System.Drawing.Size(1067, 544) + Me.SplitContainer1.SplitterDistance = 375 + Me.SplitContainer1.TabIndex = 5 + ' + 'frmLevel_Designer + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1067, 591) + Me.Controls.Add(Me.SplitContainer1) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Name = "frmLevel_Designer" + Me.Text = "frmLevel_Designer" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.grpbxDocumentView.ResumeLayout(False) + Me.grpbxDocumentView.PerformLayout() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents pnlDesigner As SnapPanelControl.SnapPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents lblFormName As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents grpbxDocumentView As System.Windows.Forms.GroupBox + Friend WithEvents btnWindreamsuche As System.Windows.Forms.Button + Friend WithEvents txtWindreamsuche As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog + Friend WithEvents btnsavedocView As System.Windows.Forms.Button + Friend WithEvents cmbSearchPattern4 As System.Windows.Forms.ComboBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents cmbSearchPattern3 As System.Windows.Forms.ComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents cmbSearchPattern2 As System.Windows.Forms.ComboBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents cmbSearchPattern1 As System.Windows.Forms.ComboBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents cmbSearchPattern5 As System.Windows.Forms.ComboBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents tsstatus As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents chkbxdocview As System.Windows.Forms.CheckBox + Friend WithEvents ttTooltip As System.Windows.Forms.ToolTip + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmLevel_Designer.resx b/app - Kopie/DD-Record-Organiser/frmLevel_Designer.resx new file mode 100644 index 0000000..c42597e --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLevel_Designer.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 134, 17 + + + 297, 17 + + + 460, 17 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmLevel_Designer.vb b/app - Kopie/DD-Record-Organiser/frmLevel_Designer.vb new file mode 100644 index 0000000..ec0fe3a --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLevel_Designer.vb @@ -0,0 +1,665 @@ +Public Class frmLevel_Designer +#Region "+++++ Konstanten +++++" + 'Private akt_ctrl As Control + Private Shared _Instance As frmLevel_Designer = Nothing + Private m_Moving As Boolean = False + Private LastCursor As Point = Nothing + + 'Private begin_location As System.Drawing.Point + 'Private end_location As System.Drawing.Point + + 'Public Shared CtrlBuilder As ClassControlBuilder +#End Region + + Public Shared Function Instance() As frmLevel_Designer + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmLevel_Designer + End If + _Instance.BringToFront() + Return _Instance + End Function + + Public Sub SetFormTitle(title As String) + Me.Text = "Formulardesigner für Formular: " & title + End Sub + + Public Sub SetFormName(name As String) + Me.lblFormName.Text = "Name: " & name & " - Form-ID: " & CURRENT_FORM_ID + End Sub + Public Sub Check_Document_Config(FORM_ID As Integer) + Try + Dim res = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + + If res = True Then + chkbxdocview.Checked = True + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + If DT.Rows.Count = 1 Then + If Not IsDBNull(DT.Rows(0).Item(0)) Then + txtWindreamsuche.Text = ClassHelper.CheckDBNull(DT.Rows(0).Item(0), "String") + cmbSearchPattern1.SelectedIndex = cmbSearchPattern1.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(1), "String")) + cmbSearchPattern2.SelectedIndex = cmbSearchPattern2.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(2), "String")) + cmbSearchPattern3.SelectedIndex = cmbSearchPattern3.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(3), "String")) + cmbSearchPattern4.SelectedIndex = cmbSearchPattern4.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(4), "String")) + cmbSearchPattern5.SelectedIndex = cmbSearchPattern5.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(5), "String")) + End If + End If + Me.grpbxDocumentView.Visible = True + Else + chkbxdocview.Checked = False + Me.grpbxDocumentView.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Check_Document_Config:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + +#Region "+++++ Drag Drop Funktionen +++++" + + Public Sub ControlDragDrop(type As String, Parent As GroupBox) + Dim r As New System.Random() + Dim def_font_family As String = DefaultFont.Name + Dim def_font_color As Integer = DefaultForeColor.ToArgb + Dim def_font_style As Integer = 0 + Dim def_font_size As Integer = 8 + + Dim random As Integer = r.Next(8, 100) + Select Case type + Case "lbl" + CtrlBuilder.AddLabel("lbl" & random, "Bezeichnung definieren", 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, "", True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "txt" + CtrlBuilder.AddTextBox("txt" & random, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, True, 0, 0, False, False, "String", True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "cmb" + CtrlBuilder.AddComboBox("cmb" & random, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, True, 0, 0, "String", True, "", "", Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "dtp" + CtrlBuilder.AddDateTimePicker("dtp" & random, 0, 0, def_font_family, def_font_size, def_font_style, 0, False, 0, 0, True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "dgv" + CtrlBuilder.AddDataGridView("dgv" & random, 0, 0, 0, 0, True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "chk" + CtrlBuilder.AddCheckBox("chk" & random, "Bezeichn. defnieren", False, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, False, 0, 0, True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "rb" + CtrlBuilder.AddRadioButton("rb" & random, "Bezeichn. defnieren", False, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, False, 0, 0, True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "pb" + CtrlBuilder.AddPictureBox("pb" & random, 0, 0, 0, 0, True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "gb" + CtrlBuilder.AddGroupBox("gb" & random, "Bezeichn. defnieren", 0, 0, 0, 0, ColorToInt(SystemColors.Control), def_font_color, def_font_family, def_font_size, def_font_style, True, Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "f_addappointment" + CtrlBuilder.FunctionAddAppointment("f_addappointment" & random, "Zu Kalender hinzufügen", 0, 0, 0, 0, True, Parent) + + If ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) = True Then + Dim ControlId = GetControlID_for_Name(CtrlBuilder.CurrentControl.Name, CURRENT_FORM_ID) + ClassFunctionCommands.InsertFunction(ControlId, "ADDAPPOINTMENT") + End If + Case "f_addformdata" + CtrlBuilder.FunctionAddFormData("f_addformdata" & random, "Add form Data", 0, 0, 0, 0, True, Parent) + + If ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) = True Then + Dim ControlId = GetControlID_for_Name(CtrlBuilder.CurrentControl.Name, CURRENT_FORM_ID) + ClassFunctionCommands.InsertFunction(ControlId, "ADDFORMDATA") + End If + Case "lstbxcheck" + CtrlBuilder.AddCheckedListBox("chlb" & random, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, True, 0, 0, True, "", "", Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case "lstbx" + CtrlBuilder.AddListBox("lbx" & random, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, True, 0, 0, True, "", "", Parent) + ' Aktuelles Control in die Datenbank speichern + ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) + Case Else + MsgBox("Event '" & type & "' nicht definiert") + End Select + End Sub + + Public Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs) + Dim type As String = e.Data.GetData(DataFormats.Text) + Dim GroupBox As GroupBox = CType(sender, GroupBox) + + ControlDragDrop(type, GroupBox) + End Sub + + Private Sub pnlDesigner_DragDrop(sender As Object, e As DragEventArgs) Handles pnlDesigner.DragDrop + Dim type As String = e.Data.GetData(DataFormats.Text) + + ControlDragDrop(type, Nothing) + End Sub + + Private Sub pnlDesigner_DragEnter(sender As Object, e As DragEventArgs) Handles pnlDesigner.DragEnter + ' Check the format of the data being dropped. + If (e.Data.GetDataPresent(DataFormats.Text)) Then + ' Display the copy cursor. + e.Effect = DragDropEffects.Copy + Else + ' Display the no-drop cursor. + e.Effect = DragDropEffects.None + End If + End Sub + +#End Region + +#Region "+++++ Form Events +++++" + Private Sub frmLevel_Designer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmLevel_Designer") + My.Settings.Save() + RebuildView() + Dim wid As Integer = Me.Width + Dim update_sizepnl As String = "UPDATE TBPMO_FORM_VIEW SET HEIGHT = " & pnlDesigner.Height & ",WIDTH = " & wid & " where FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID + ClassDatabase.Execute_non_Query(update_sizepnl) + frmForm_Overview.Instance.Show() + frmTool_ControlProperties.Instance.Close() + frmTool_ControlDesigner.Instance.Close() + Catch ex As Exception + + End Try + End Sub + + Private Sub frmLevel_Designer_Load(sender As Object, e As EventArgs) Handles Me.Load + ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmLevel_Designer") + + ' ADDED 18.11 + CtrlBuilder = New ClassControlBuilder(pnlDesigner, + AddressOf Control_MouseDown, + AddressOf Control_MouseUp, + AddressOf Control_MouseMove, + AddressOf Control_Click, + AddressOf Groupbox_DragDrop, + ttTooltip) + + If ClassDatabase.Init = True Then + LoadFormProperties() + LoadControls() + End If + + End Sub +#End Region + +#Region "+++++ Load Funktionen +++++" + Public Sub LoadFormProperties() + Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID + Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID + Dim Height = ClassDatabase.Execute_Scalar("SELECT HEIGHT FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + Dim width = ClassDatabase.Execute_Scalar("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + Dim name = ClassDatabase.Execute_Scalar(NAME_SQL) + Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL) + Check_Document_Config(CURRENT_FORM_ID) + If Not IsDBNull(Height) Then + If Height > 100 Then + Me.pnlDesigner.Height = Height + End If + 'If Not IsDBNull(width) Then + If width > 500 Then + ' Me.Width = width + End If + + 'End If + End If + SetFormName(name) + SetFormTitle(title) + End Sub + + Public Sub LoadControls() + Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_CONTROL_SCREEN where FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID) + + For Each dr As DataRow In dt.Rows + + Console.WriteLine("LOADING CONTROL: " & dr.Item("CONTROL_ID")) + + Dim parent As GroupBox = Nothing + If (dr.Item("CONTROL_PARENT_ID") <> 0) Then + Dim parentname As String = GetName_for_ControlID(dr.Item("CONTROL_PARENT_ID"), CURRENT_FORM_ID) + parent = CtrlBuilder.GetControlByName(parentname) + End If + + Select Case dr.Item("CTRLTYPE_ID") + Case 1 ' Label + CtrlBuilder.AddLabel(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CONTROL_SQLCOMMAND_1"), + False, + parent, + True) + Case 2 ' TextBox + CtrlBuilder.AddTextBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + dr.Item("CONTROL_MULTILINE"), + dr.Item("CONTROL_READ_ONLY"), + dr.Item("CONTROL_FORMAT_TYPE"), + False, + parent, + True) + Case 3 ' ComboBox + CtrlBuilder.AddComboBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + dr.Item("CONTROL_FORMAT_TYPE"), + False, + dr.Item("CONTROL_STATIC_LIST"), + dr.Item("CONTROL_SQLCOMMAND_1"), + parent, + True) + Case 4 ' DateTimePicker + CtrlBuilder.AddDateTimePicker(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent, + True) + Case 5 ' GroupBox + CtrlBuilder.AddGroupBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + dr.Item("CTRLSCR_BACK_COLOR"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + False, + parent, + True) + Case 6 ' PictureBox + CtrlBuilder.AddPictureBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent, + True) + Case 7 ' DataGridView + CtrlBuilder.AddDataGridView(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent, + True) + Case 10 ' Checkbox + Dim Checked As Boolean + If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then + Checked = False + Else + Checked = StrToBool(dr.Item("CONTROL_DEF_VALUE")) + End If + CtrlBuilder.AddCheckBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + Checked, + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent, + True) + Case 8 'AddAppointment Button + CtrlBuilder.FunctionAddAppointment(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent, + True) + Case 9 'AddFormData + CtrlBuilder.FunctionAddFormData(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent, + True) + + Case 11 ' RadioButton + Dim Checked As Boolean + If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then + Checked = False + Else + Checked = StrToBool(dr.Item("CONTROL_DEF_VALUE")) + End If + CtrlBuilder.AddRadioButton(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_CAPTION"), + Checked, + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + parent, + True) + Case 12 'CheckedListBox + CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + dr.Item("CONTROL_STATIC_LIST"), + dr.Item("CONTROL_SQLCOMMAND_1"), + parent, + True) + Case 13 'ListBox + CtrlBuilder.AddListBox(dr.Item("CONTROL_NAME"), + dr.Item("CTRLSCR_X_LOC"), + dr.Item("CTRLSCR_Y_LOC"), + dr.Item("CTRLSCR_FONT_FAMILY"), + dr.Item("CTRLSCR_FONT_COLOR"), + dr.Item("CTRLSCR_FONT_SIZE"), + dr.Item("CTRLSCR_FONT_STYLE"), + dr.Item("CTRLSCR_TAB_INDEX"), + dr.Item("CTRLSCR_TAB_STOP"), + dr.Item("CTRLSCR_WIDTH"), + dr.Item("CTRLSCR_HEIGHT"), + False, + dr.Item("CONTROL_STATIC_LIST"), + dr.Item("CONTROL_SQLCOMMAND_1"), + parent, + True) + End Select + Next + End Sub + + +#End Region + +#Region "+++++ Mouse Events +++++" + Private Sub Control_Click(sender As Object, e As EventArgs) + Dim control As Control = DirectCast(sender, Control) + + ' Aktuelles Control highlighten + control.BringToFront() + CtrlBuilder.SetAllActiveColor() + + ' GUID des aktuellen Controls speichern + CURRENT_CONTROL_ID = ClassControlCommands.GetControlGuid(CtrlBuilder.CurrentControl.Name) + + ' Control Eigenschaften laden + frmTool_ControlProperties.Instance.pgControlProperties.Enabled = True + frmTool_ControlProperties.Instance.LoadControlProperties(CtrlBuilder.CurrentControl) + End Sub + + + Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown + ' Check to see if the correct button has been pressed + If e.Button = Windows.Forms.MouseButtons.Left Then + CtrlBuilder.CurrentControl = sender + CtrlBuilder.BeginLocation = e.Location + + Console.Write("BEGIN") + Console.WriteLine(CtrlBuilder.BeginLocation.ToString) + + ' Set the mode flag to signal the MouseMove event handler that it + ' needs to now calculate new positions for our control + m_Moving = True + End If + End Sub + Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp + ' The button was released, so we're going back to Static mode. + If m_Moving = True Then + m_Moving = False + 'end_location = e.Location + CtrlBuilder.EndLocation = e.Location + + Console.Write("END") + Console.WriteLine(CtrlBuilder.EndLocation.ToString) + + frmTool_ControlProperties.Instance.UpdateControlLocation(CtrlBuilder.CurrentControl) + ClassControlCommands.UpdateControlPosition(CtrlBuilder.CurrentControl.Location.X, + CtrlBuilder.CurrentControl.Location.Y, + CtrlBuilder.CurrentControl) + + 'Save_Control() + End If + ' Restore the cursor image to the way we found it when the mouse + ' button was pressed + MyBase.Cursor = Cursors.Default + End Sub + Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove + Try + If CtrlBuilder.CurrentControl Is Nothing Then + Exit Sub + End If + + If m_Moving = True Then + Me.Cursor = Cursors.Hand + Me.Refresh() + + Dim control As Control = DirectCast(sender, Control) + Dim NowCursor As Point = CtrlBuilder.GetCursorPosition() + + ' Wenn das Control in einer GroupBox steckt + If ParentIsGroupBox(control) Then + Dim p As Control = control.Parent + Dim newPos As Point = New Point(NowCursor.X - p.Location.X - e.Location.X, + NowCursor.Y - p.Location.Y - e.Location.Y) + Console.WriteLine("newpos: " & newPos.ToString) + + ' Verhindert, dass das Control links+oben außerhalb der Groupbox geschoben wird = unerreichbar + If newPos.X < 0 Or newPos.Y < 0 Then + Exit Sub + End If + + ' Verhindert, dass das Control rechts+unten außerhalb der Groupbox geschoben wird = unerreichbar + If (newPos.X + control.Size.Width) > p.Size.Width Or (newPos.Y + control.Size.Height) > p.Size.Height Then + Exit Sub + End If + + If Point.op_Inequality(NowCursor, LastCursor) Then + control.Location = newPos + LastCursor = NowCursor + End If + + Else + ' Alle normalen Controls + control.Location = New Point(NowCursor.X - CtrlBuilder.BeginLocation.X, + NowCursor.Y - CtrlBuilder.BeginLocation.Y) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove") + m_Moving = False + End Try + + + + 'Try + ' 'If akt_ctrl Is Nothing Then + ' If CtrlBuilder.CurrentControl Is Nothing Then + ' Exit Sub + ' End If + ' 'Check which mode we're in. If we're supposed to be moving + ' 'our control + ' If m_Moving = True Then + ' Me.Cursor = Cursors.Hand + ' Me.Refresh() + ' Dim LastCursor As Point + + ' ' ADDED 18.11 + ' Dim control As Control = DirectCast(sender, Control) + ' ' get the screen position of the mouse pointer and map it + ' ' to the position relative to the top-left corner of our + ' ' parent container + ' Dim NowCursor As Point = New Point(Cursor.Position.X, + ' Cursor.Position.Y) + ' Dim clientPosition As Point = CtrlBuilder.GetCursorPosition() + + ' If Point.op_Inequality(NowCursor, LastCursor) Then + ' Console.WriteLine("MOUSE: " & clientPosition.X & " " & clientPosition.Y) + ' Console.WriteLine("CNTRL: " & clientPosition.X - CtrlBuilder.BeginLocation.X & " " & clientPosition.Y - CtrlBuilder.BeginLocation.Y) + + ' control.Location = New Point(clientPosition.X - CtrlBuilder.BeginLocation.X, + ' clientPosition.Y - CtrlBuilder.BeginLocation.Y) + + ' End If + ' End If + + 'Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove") + ' m_Moving = False + 'End Try + + End Sub +#End Region + + Private Sub Control_PressTab(sender As Object, e As PreviewKeyDownEventArgs) + 'NOOP + End Sub + + Private Function RebuildView() + Try + Dim noerror As Boolean = False + Dim sql = "EXECUTE PRPMO_CREATE_SQL " & CURRENT_FORM_ID + noerror = ClassDatabase.Execute_non_Query(sql) + sql = "EXECUTE PRPMO_CREATE_TEMP_VIEWS" + noerror = ClassDatabase.Execute_non_Query(sql) + Return noerror + Catch ex As Exception + MsgBox("Error in btnexecute_CreateViewSql:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + If RebuildView() = True Then + MsgBox("The Views have been created successful.", MsgBoxStyle.Information) + End If + End Sub + + Private Sub btnWindreamsuche_Click(sender As Object, e As EventArgs) Handles btnWindreamsuche.Click + If Not Me.txtWindreamsuche.Text = "" Then + Me.OFDWindreamsuche.FileName = Me.txtWindreamsuche.Text + End If + + If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then + Me.txtWindreamsuche.Text = Me.OFDWindreamsuche.FileName + End If + End Sub + Private Sub btnsavedocView_Click(sender As Object, e As EventArgs) Handles btnsavedocView.Click + Try + Dim SP1, SP2, SP3, SP4, SP5 + If cmbSearchPattern1.SelectedIndex <> -1 Then + SP1 = cmbSearchPattern1.Text + Else + SP1 = "" + End If + If cmbSearchPattern2.SelectedIndex <> -1 Then + SP2 = cmbSearchPattern2.Text + Else + SP2 = "" + End If + If cmbSearchPattern3.SelectedIndex <> -1 Then + SP3 = cmbSearchPattern3.Text + Else + SP3 = "" + End If + If cmbSearchPattern4.SelectedIndex <> -1 Then + SP4 = cmbSearchPattern4.Text + Else + SP4 = "" + End If + If cmbSearchPattern5.SelectedIndex <> -1 Then + SP5 = cmbSearchPattern5.Text + Else + SP5 = "" + End If + Dim sql = "UPDATE TBPMO_FORM_VIEW SET WINDREAM_SEARCH = '" & txtWindreamsuche.Text & "',SEARCH_PATTERN1 = '" & SP1 & "',SEARCH_PATTERN2= '" & SP2 & "',SEARCH_PATTERN3= '" & SP3 & _ + "',SEARCH_PATTERN4 = '" & SP4 & "',SEARCH_PATTERN5 = '" & SP5 & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID + If ClassDatabase.Execute_non_Query(sql) = True Then + tsstatus.Text = "Document-View properties changed - " & Now + tsstatus.Visible = True + End If + Catch ex As Exception + MsgBox("Error in Save DocView-properties:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + tsstatus.Visible = False + End Try + + End Sub + + Private Sub chkbxdocview_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxdocview.CheckedChanged + Dim sql + If chkbxdocview.Checked = True Then + sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1, CHANGED_WHO = '" & Environment.UserName & "' WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID + Else + sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 0, CHANGED_WHO = '" & Environment.UserName & "' WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID + End If + If ClassDatabase.Execute_non_Query(sql) = False Then + MsgBox("Fehler bei Update Document-View - Check log", MsgBoxStyle.Critical) + End If + Check_Document_Config(CURRENT_FORM_ID) + End Sub + + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmLogRecord.Designer.vb b/app - Kopie/DD-Record-Organiser/frmLogRecord.Designer.vb new file mode 100644 index 0000000..e178bf9 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLogRecord.Designer.vb @@ -0,0 +1,493 @@ + _ +Partial Class frmLogRecord + 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 GUIDLabel As System.Windows.Forms.Label + Dim CONTROL_IDLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim FORM_IDLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogRecord)) + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBPMO_RECORD_LOG_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.FORM_IDComboBox = New System.Windows.Forms.ComboBox() + Me.lblSaveWVEmail = New System.Windows.Forms.Label() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.LOG_UPDATECheckBox = New System.Windows.Forms.CheckBox() + Me.LOG_DELETECheckBox = New System.Windows.Forms.CheckBox() + Me.CONTROL_IDComboBox = New System.Windows.Forms.ComboBox() + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.TBPMO_RECORD_LOG_CONFIGTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.Label1 = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() + CONTROL_IDLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + FORM_IDLabel = New System.Windows.Forms.Label() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.TBPMO_RECORD_LOG_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(12, 58) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(20, 13) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "ID:" + ' + 'CONTROL_IDLabel + ' + CONTROL_IDLabel.AutoSize = True + CONTROL_IDLabel.Location = New System.Drawing.Point(209, 58) + CONTROL_IDLabel.Name = "CONTROL_IDLabel" + CONTROL_IDLabel.Size = New System.Drawing.Size(120, 13) + CONTROL_IDLabel.TabIndex = 3 + CONTROL_IDLabel.Text = "Control-Bezeichnung:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(71, 128) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(70, 13) + ADDED_WHENLabel.TabIndex = 13 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(71, 169) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(73, 13) + CHANGED_WHOLabel.TabIndex = 15 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(209, 169) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(82, 13) + CHANGED_WHENLabel.TabIndex = 17 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'FORM_IDLabel + ' + FORM_IDLabel.AutoSize = True + FORM_IDLabel.Location = New System.Drawing.Point(71, 58) + FORM_IDLabel.Name = "FORM_IDLabel" + FORM_IDLabel.Size = New System.Drawing.Size(44, 13) + FORM_IDLabel.TabIndex = 79 + FORM_IDLabel.Text = "Entität:" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(721, 261) + Me.XtraTabControl1.TabIndex = 0 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(Me.Label1) + Me.XtraTabPage1.Controls.Add(Me.ListBox1) + Me.XtraTabPage1.Controls.Add(FORM_IDLabel) + Me.XtraTabPage1.Controls.Add(Me.FORM_IDComboBox) + Me.XtraTabPage1.Controls.Add(Me.lblSaveWVEmail) + Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.XtraTabPage1.Controls.Add(ADDED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.ADDED_WHENTextBox) + Me.XtraTabPage1.Controls.Add(Me.LOG_UPDATECheckBox) + Me.XtraTabPage1.Controls.Add(Me.LOG_DELETECheckBox) + Me.XtraTabPage1.Controls.Add(CONTROL_IDLabel) + Me.XtraTabPage1.Controls.Add(Me.CONTROL_IDComboBox) + Me.XtraTabPage1.Controls.Add(Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator) + Me.XtraTabPage1.Controls.Add(GUIDLabel) + Me.XtraTabPage1.Controls.Add(Me.GUIDTextBox) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(719, 236) + Me.XtraTabPage1.Text = "Logged Controls" + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBPMO_RECORD_LOG_CONFIGBindingSource + Me.ListBox1.DisplayMember = "String" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(494, 25) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(207, 186) + Me.ListBox1.TabIndex = 81 + Me.ListBox1.ValueMember = "GUID" + ' + 'TBPMO_RECORD_LOG_CONFIGBindingSource + ' + Me.TBPMO_RECORD_LOG_CONFIGBindingSource.DataMember = "TBPMO_RECORD_LOG_CONFIG" + Me.TBPMO_RECORD_LOG_CONFIGBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'FORM_IDComboBox + ' + Me.FORM_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "FORM_ID", True)) + Me.FORM_IDComboBox.FormattingEnabled = True + Me.FORM_IDComboBox.Location = New System.Drawing.Point(74, 74) + Me.FORM_IDComboBox.Name = "FORM_IDComboBox" + Me.FORM_IDComboBox.Size = New System.Drawing.Size(132, 21) + Me.FORM_IDComboBox.TabIndex = 80 + ' + 'lblSaveWVEmail + ' + Me.lblSaveWVEmail.AutoSize = True + Me.lblSaveWVEmail.BackColor = System.Drawing.Color.Yellow + Me.lblSaveWVEmail.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveWVEmail.Location = New System.Drawing.Point(71, 210) + Me.lblSaveWVEmail.Name = "lblSaveWVEmail" + Me.lblSaveWVEmail.Size = New System.Drawing.Size(219, 17) + Me.lblSaveWVEmail.TabIndex = 79 + Me.lblSaveWVEmail.Text = "Datensatz erfolgreich gespeichert!" + Me.lblSaveWVEmail.Visible = False + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(212, 185) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(116, 22) + Me.CHANGED_WHENTextBox.TabIndex = 18 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(74, 185) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(132, 22) + Me.CHANGED_WHOTextBox.TabIndex = 16 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(74, 144) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(132, 22) + Me.ADDED_WHENTextBox.TabIndex = 14 + ' + 'LOG_UPDATECheckBox + ' + Me.LOG_UPDATECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "LOG_UPDATE", True)) + Me.LOG_UPDATECheckBox.Location = New System.Drawing.Point(74, 101) + Me.LOG_UPDATECheckBox.Name = "LOG_UPDATECheckBox" + Me.LOG_UPDATECheckBox.Size = New System.Drawing.Size(254, 24) + Me.LOG_UPDATECheckBox.TabIndex = 12 + Me.LOG_UPDATECheckBox.Text = "Änderungen (Update) nachverfolgen" + Me.LOG_UPDATECheckBox.UseVisualStyleBackColor = True + ' + 'LOG_DELETECheckBox + ' + Me.LOG_DELETECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "LOG_DELETE", True)) + Me.LOG_DELETECheckBox.Location = New System.Drawing.Point(334, 101) + Me.LOG_DELETECheckBox.Name = "LOG_DELETECheckBox" + Me.LOG_DELETECheckBox.Size = New System.Drawing.Size(154, 24) + Me.LOG_DELETECheckBox.TabIndex = 10 + Me.LOG_DELETECheckBox.Text = "Löschen nachverfolgen" + Me.LOG_DELETECheckBox.UseVisualStyleBackColor = True + ' + 'CONTROL_IDComboBox + ' + Me.CONTROL_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "CONTROL_ID", True)) + Me.CONTROL_IDComboBox.FormattingEnabled = True + Me.CONTROL_IDComboBox.Location = New System.Drawing.Point(212, 74) + Me.CONTROL_IDComboBox.Name = "CONTROL_IDComboBox" + Me.CONTROL_IDComboBox.Size = New System.Drawing.Size(116, 21) + Me.CONTROL_IDComboBox.TabIndex = 4 + ' + 'TBPMO_RECORD_LOG_CONFIGBindingNavigator + ' + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.BindingSource = Me.TBPMO_RECORD_LOG_CONFIGBindingSource + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.CountItemFormat = "von {0} logged Controls" + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem}) + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.Name = "TBPMO_RECORD_LOG_CONFIGBindingNavigator" + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.Size = New System.Drawing.Size(719, 25) + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.TabIndex = 1 + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(132, 22) + Me.BindingNavigatorCountItem.Text = "von {0} logged Controls" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem + ' + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem.Name = "TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem" + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RECORD_LOG_CONFIGBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(15, 74) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(48, 22) + Me.GUIDTextBox.TabIndex = 1 + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(763, 236) + Me.XtraTabPage2.Text = "XtraTabPage2" + ' + 'TBPMO_RECORD_LOG_CONFIGTableAdapter + ' + Me.TBPMO_RECORD_LOG_CONFIGTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Me.TBPMO_RECORD_LOG_CONFIGTableAdapter + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 25) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(457, 26) + Me.Label1.TabIndex = 82 + Me.Label1.Text = "Für die hier ausgewählten Controls wird ein Change-Log geführt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "D.h. der alte un" & _ + "d der Neue Wert werden gespeichert und können nachverfolgt werden." + ' + 'frmLogRecord + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(721, 261) + Me.Controls.Add(Me.XtraTabControl1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Name = "frmLogRecord" + Me.Text = "Konfiguration - Record-Änderungen" + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.TBPMO_RECORD_LOG_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.ResumeLayout(False) + Me.TBPMO_RECORD_LOG_CONFIGBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_RECORD_LOG_CONFIGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_RECORD_LOG_CONFIGTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_RECORD_LOG_CONFIGBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents CONTROL_IDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents LOG_UPDATECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents LOG_DELETECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents lblSaveWVEmail As System.Windows.Forms.Label + Friend WithEvents FORM_IDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents Label1 As System.Windows.Forms.Label +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmLogRecord.resx b/app - Kopie/DD-Record-Organiser/frmLogRecord.resx new file mode 100644 index 0000000..3449394 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLogRecord.resx @@ -0,0 +1,234 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + 929, 17 + + + 160, 17 + + + 160, 17 + + + 17, 17 + + + 17, 17 + + + 929, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 461, 17 + + + 756, 17 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmLogRecord.vb b/app - Kopie/DD-Record-Organiser/frmLogRecord.vb new file mode 100644 index 0000000..640624b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLogRecord.vb @@ -0,0 +1,72 @@ +Public Class frmLogRecord + Dim formloaded As Boolean = False + Private Shared _Instance As frmLogRecord = Nothing + Public Shared Function Instance() As frmLogRecord + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmLogRecord + End If + _Instance.BringToFront() + Return _Instance + End Function + + Private Sub TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem.Click + Save_Log() + End Sub + + Private Sub frmLogRecord_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Me.TBPMO_RECORD_LOG_CONFIGTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_RECORD_LOG_CONFIGTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIG) + + Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, NAME AS DISPLAY FROM TBPMO_FORM ORDER BY NAME") + + FORM_IDComboBox.DataSource = DT1 + FORM_IDComboBox.DisplayMember = DT1.Columns(1).ColumnName + FORM_IDComboBox.ValueMember = DT1.Columns(0).ColumnName + + Catch ex As Exception + MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Save_Log() + Try + Me.TBPMO_RECORD_LOG_CONFIGBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIG.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBPMO_RECORD_LOG_CONFIGBindingSource.EndEdit() + TBPMO_RECORD_LOG_CONFIGTableAdapter.Update(Me.DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIG) + lblSaveWVEmail.Visible = True + Else + lblSaveWVEmail.Visible = False + End If + Catch ex As Exception + MsgBox("Fehler in Save_Log:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub frmLogRecord_Shown(sender As Object, e As EventArgs) Handles Me.Shown + formloaded = True + Load_Controls() + End Sub + + Private Sub FORM_IDComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FORM_IDComboBox.SelectedIndexChanged + Load_Controls() + End Sub + Sub Load_Controls() + If formloaded = True Then + Try + If FORM_IDComboBox.SelectedIndex <> -1 Then + Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, NAME FROM TBPMO_CONTROL WHERE FORM_ID = " & FORM_IDComboBox.SelectedValue & " ORDER BY NAME") + CONTROL_IDComboBox.DataSource = DT1 + CONTROL_IDComboBox.DisplayMember = DT1.Columns(1).ColumnName + CONTROL_IDComboBox.ValueMember = DT1.Columns(0).ColumnName + End If + Catch ex As Exception + If Not ex.Message.StartsWith("Der Operator &") Then + MsgBox("Fehler in Load Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End If + + End Try + End If + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmLogin.Designer.vb b/app - Kopie/DD-Record-Organiser/frmLogin.Designer.vb new file mode 100644 index 0000000..d638ed9 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLogin.Designer.vb @@ -0,0 +1,131 @@ + _ + _ +Partial Class frmLogin + 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 + Friend WithEvents UsernameLabel As System.Windows.Forms.Label + Friend WithEvents PasswordLabel As System.Windows.Forms.Label + Friend WithEvents UsernameTextBox As System.Windows.Forms.TextBox + Friend WithEvents PasswordTextBox As System.Windows.Forms.TextBox + Friend WithEvents OK As System.Windows.Forms.Button + Friend WithEvents Cancel As System.Windows.Forms.Button + + '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.UsernameLabel = New System.Windows.Forms.Label() + Me.PasswordLabel = New System.Windows.Forms.Label() + Me.UsernameTextBox = New System.Windows.Forms.TextBox() + Me.PasswordTextBox = New System.Windows.Forms.TextBox() + Me.OK = New System.Windows.Forms.Button() + Me.Cancel = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'UsernameLabel + ' + Me.UsernameLabel.Location = New System.Drawing.Point(12, 40) + Me.UsernameLabel.Name = "UsernameLabel" + Me.UsernameLabel.Size = New System.Drawing.Size(220, 23) + Me.UsernameLabel.TabIndex = 0 + Me.UsernameLabel.Text = "&Benutzername" + Me.UsernameLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'PasswordLabel + ' + Me.PasswordLabel.Location = New System.Drawing.Point(13, 86) + Me.PasswordLabel.Name = "PasswordLabel" + Me.PasswordLabel.Size = New System.Drawing.Size(220, 23) + Me.PasswordLabel.TabIndex = 2 + Me.PasswordLabel.Text = "&Kennwort" + Me.PasswordLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'UsernameTextBox + ' + Me.UsernameTextBox.Location = New System.Drawing.Point(14, 60) + Me.UsernameTextBox.Name = "UsernameTextBox" + Me.UsernameTextBox.Size = New System.Drawing.Size(220, 22) + Me.UsernameTextBox.TabIndex = 1 + ' + 'PasswordTextBox + ' + Me.PasswordTextBox.Location = New System.Drawing.Point(15, 106) + Me.PasswordTextBox.Name = "PasswordTextBox" + Me.PasswordTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.PasswordTextBox.Size = New System.Drawing.Size(220, 22) + Me.PasswordTextBox.TabIndex = 3 + ' + 'OK + ' + Me.OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OK.Location = New System.Drawing.Point(162, 161) + Me.OK.Name = "OK" + Me.OK.Size = New System.Drawing.Size(94, 23) + Me.OK.TabIndex = 4 + Me.OK.Text = "&OK" + ' + 'Cancel + ' + Me.Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel.Location = New System.Drawing.Point(265, 161) + Me.Cancel.Name = "Cancel" + Me.Cancel.Size = New System.Drawing.Size(94, 23) + Me.Cancel.TabIndex = 5 + Me.Cancel.Text = "&Abbrechen" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(11, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(249, 13) + Me.Label1.TabIndex = 6 + Me.Label1.Text = "Willkomen - Bitte melden Sie sich am System an" + ' + 'frmLogin + ' + Me.AcceptButton = Me.OK + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel + Me.ClientSize = New System.Drawing.Size(366, 192) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Cancel) + Me.Controls.Add(Me.OK) + Me.Controls.Add(Me.PasswordTextBox) + Me.Controls.Add(Me.UsernameTextBox) + Me.Controls.Add(Me.PasswordLabel) + Me.Controls.Add(Me.UsernameLabel) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmLogin" + Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Login" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmLogin.resx b/app - Kopie/DD-Record-Organiser/frmLogin.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLogin.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmLogin.vb b/app - Kopie/DD-Record-Organiser/frmLogin.vb new file mode 100644 index 0000000..d513e5e --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmLogin.vb @@ -0,0 +1,22 @@ +Public Class frmLogin + + ' TODO: Code zum Durchführen der benutzerdefinierten Authentifizierung mithilfe des angegebenen Benutzernamens und des Kennworts hinzufügen + ' (Siehe http://go.microsoft.com/fwlink/?LinkId=35339). + ' Der benutzerdefinierte Prinzipal kann anschließend wie folgt an den Prinzipal des aktuellen Threads angefügt werden: + ' My.User.CurrentPrincipal = CustomPrincipal + ' wobei CustomPrincipal die IPrincipal-Implementierung ist, die für die Durchführung der Authentifizierung verwendet wird. + ' Anschließend gibt My.User Identitätsinformationen zurück, die in das CustomPrincipal-Objekt gekapselt sind, + ' z. B. den Benutzernamen, den Anzeigenamen usw. + + Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click + Me.Close() + End Sub + + Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click + Me.Close() + End Sub + + Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load + UsernameTextBox.Text = Environment.UserName + End Sub +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmMain.Designer.vb b/app - Kopie/DD-Record-Organiser/frmMain.Designer.vb new file mode 100644 index 0000000..657f155 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmMain.Designer.vb @@ -0,0 +1,499 @@ + _ +Partial Class frmMain + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + '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(frmMain)) + Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.ribbonMain = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.itemInfo = New DevExpress.XtraBars.BarButtonItem() + Me.itemSettings = New DevExpress.XtraBars.BarButtonItem() + Me.itemExit = New DevExpress.XtraBars.BarButtonItem() + Me.LabelMachine = New DevExpress.XtraBars.BarStaticItem() + Me.LabelUser = New DevExpress.XtraBars.BarStaticItem() + Me.LabelLoggedIn = New DevExpress.XtraBars.BarStaticItem() + Me.LabelVersion = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() + Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.groupQuickAccess = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.pageForms = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.pageAdmin = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroupProgram = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupTask = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupMenue = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupWindream = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components) + Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MainMenu, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'NotifyIcon1 + ' + Me.NotifyIcon1.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon) + Me.NotifyIcon1.Text = "Workflow und Taskmanagement" + Me.NotifyIcon1.Visible = True + ' + 'Timer1 + ' + Me.Timer1.Interval = 300000 + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPMO_WF_USER_ACTIVEBindingSource + ' + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'VWPMO_WF_USER_ACTIVETableAdapter + ' + Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'ribbonMain + ' + Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu + Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray + Me.ribbonMain.ExpandCollapseItem.Id = 0 + Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16}) + Me.ribbonMain.Location = New System.Drawing.Point(0, 0) + Me.ribbonMain.MaxItemId = 29 + Me.ribbonMain.Name = "ribbonMain" + Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin}) + Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013 + Me.ribbonMain.Size = New System.Drawing.Size(1498, 150) + Me.ribbonMain.StatusBar = Me.RibbonStatusBar1 + Me.ribbonMain.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Hidden + ' + 'MainMenu + ' + Me.MainMenu.ItemLinks.Add(Me.itemInfo) + Me.MainMenu.ItemLinks.Add(Me.itemSettings) + Me.MainMenu.ItemLinks.Add(Me.itemExit) + Me.MainMenu.Name = "MainMenu" + Me.MainMenu.Ribbon = Me.ribbonMain + ' + 'itemInfo + ' + Me.itemInfo.Caption = "Hilfe" + Me.itemInfo.Description = "Zeigt Informationen über das Programm an" + Me.itemInfo.Glyph = CType(resources.GetObject("itemInfo.Glyph"), System.Drawing.Image) + Me.itemInfo.Id = 9 + Me.itemInfo.Name = "itemInfo" + ' + 'itemSettings + ' + Me.itemSettings.Caption = "Grundeinstellungen" + Me.itemSettings.Description = "Zeigt die Grundeinstellungen des Programms an" + Me.itemSettings.Glyph = CType(resources.GetObject("itemSettings.Glyph"), System.Drawing.Image) + Me.itemSettings.Id = 21 + Me.itemSettings.Name = "itemSettings" + ' + 'itemExit + ' + Me.itemExit.Caption = "Beenden" + Me.itemExit.Description = "Beendet das Programm" + Me.itemExit.Glyph = CType(resources.GetObject("itemExit.Glyph"), System.Drawing.Image) + Me.itemExit.Id = 10 + Me.itemExit.Name = "itemExit" + ' + 'LabelMachine + ' + Me.LabelMachine.Caption = "StatusMachine" + Me.LabelMachine.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Monitor_Screen_16xLG + Me.LabelMachine.Id = 3 + Me.LabelMachine.Name = "LabelMachine" + Me.LabelMachine.TextAlignment = System.Drawing.StringAlignment.Near + ' + 'LabelUser + ' + Me.LabelUser.Caption = "StatusUser" + Me.LabelUser.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.user_16xLG + Me.LabelUser.Id = 4 + Me.LabelUser.Name = "LabelUser" + Me.LabelUser.TextAlignment = System.Drawing.StringAlignment.Near + ' + 'LabelLoggedIn + ' + Me.LabelLoggedIn.Caption = "StatusLoggedIn" + Me.LabelLoggedIn.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.UserInterfaceEditor_5845 + Me.LabelLoggedIn.Id = 5 + Me.LabelLoggedIn.Name = "LabelLoggedIn" + Me.LabelLoggedIn.TextAlignment = System.Drawing.StringAlignment.Near + ' + 'LabelVersion + ' + Me.LabelVersion.Caption = "StatusVersion" + Me.LabelVersion.Id = 6 + Me.LabelVersion.Name = "LabelVersion" + Me.LabelVersion.TextAlignment = System.Drawing.StringAlignment.Near + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Kalender" + Me.BarButtonItem1.Glyph = CType(resources.GetObject("BarButtonItem1.Glyph"), System.Drawing.Image) + Me.BarButtonItem1.Id = 11 + Me.BarButtonItem1.Name = "BarButtonItem1" + Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Entitäten" + Me.BarButtonItem3.Glyph = CType(resources.GetObject("BarButtonItem3.Glyph"), System.Drawing.Image) + Me.BarButtonItem3.Id = 13 + Me.BarButtonItem3.Name = "BarButtonItem3" + Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Task-Konfiguration" + Me.BarButtonItem4.Glyph = CType(resources.GetObject("BarButtonItem4.Glyph"), System.Drawing.Image) + Me.BarButtonItem4.Id = 14 + Me.BarButtonItem4.Name = "BarButtonItem4" + Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "User und Gruppen" + Me.BarButtonItem5.Glyph = CType(resources.GetObject("BarButtonItem5.Glyph"), System.Drawing.Image) + Me.BarButtonItem5.Id = 15 + Me.BarButtonItem5.Name = "BarButtonItem5" + Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "Menü" + Me.BarButtonItem6.Glyph = CType(resources.GetObject("BarButtonItem6.Glyph"), System.Drawing.Image) + Me.BarButtonItem6.Id = 16 + Me.BarButtonItem6.Name = "BarButtonItem6" + Me.BarButtonItem6.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles) + ' + 'BarButtonItem7 + ' + Me.BarButtonItem7.Caption = "Schnellstart" + Me.BarButtonItem7.Glyph = CType(resources.GetObject("BarButtonItem7.Glyph"), System.Drawing.Image) + Me.BarButtonItem7.Id = 17 + Me.BarButtonItem7.Name = "BarButtonItem7" + Me.BarButtonItem7.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem8 + ' + Me.BarButtonItem8.Caption = "Dokumentart" + Me.BarButtonItem8.Glyph = CType(resources.GetObject("BarButtonItem8.Glyph"), System.Drawing.Image) + Me.BarButtonItem8.Id = 18 + Me.BarButtonItem8.Name = "BarButtonItem8" + Me.BarButtonItem8.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem9 + ' + Me.BarButtonItem9.Caption = "Objekttyp" + Me.BarButtonItem9.Glyph = CType(resources.GetObject("BarButtonItem9.Glyph"), System.Drawing.Image) + Me.BarButtonItem9.Id = 19 + Me.BarButtonItem9.Name = "BarButtonItem9" + Me.BarButtonItem9.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Grundeinstellungen" + Me.BarButtonItem2.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Einstellungen5 + Me.BarButtonItem2.Id = 22 + Me.BarButtonItem2.Name = "BarButtonItem2" + Me.BarButtonItem2.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles) + ' + 'BarButtonItem10 + ' + Me.BarButtonItem10.Caption = "Grundeinstellungen" + Me.BarButtonItem10.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Einstellungen3 + Me.BarButtonItem10.Id = 23 + Me.BarButtonItem10.Name = "BarButtonItem10" + Me.BarButtonItem10.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles) + ' + 'BarButtonItem12 + ' + Me.BarButtonItem12.Caption = "Wiedervorlagen" + Me.BarButtonItem12.Glyph = CType(resources.GetObject("BarButtonItem12.Glyph"), System.Drawing.Image) + Me.BarButtonItem12.Id = 24 + Me.BarButtonItem12.Name = "BarButtonItem12" + Me.BarButtonItem12.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem13 + ' + Me.BarButtonItem13.Caption = "Log Record Changes" + Me.BarButtonItem13.Glyph = CType(resources.GetObject("BarButtonItem13.Glyph"), System.Drawing.Image) + Me.BarButtonItem13.Id = 25 + Me.BarButtonItem13.Name = "BarButtonItem13" + Me.BarButtonItem13.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem14 + ' + Me.BarButtonItem14.Caption = "Connections" + Me.BarButtonItem14.Glyph = CType(resources.GetObject("BarButtonItem14.Glyph"), System.Drawing.Image) + Me.BarButtonItem14.Id = 26 + Me.BarButtonItem14.Name = "BarButtonItem14" + Me.BarButtonItem14.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'pageHome + ' + Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccess}) + Me.pageHome.Image = Global.DD_Record_Organiser.My.Resources.Resources.HomeHS + Me.pageHome.Name = "pageHome" + Me.pageHome.Text = "Home" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.AllowTextClipping = False + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1, True) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.ShowCaptionButton = False + Me.RibbonPageGroup2.Text = "Kalender" + ' + 'groupQuickAccess + ' + Me.groupQuickAccess.AllowTextClipping = False + Me.groupQuickAccess.Name = "groupQuickAccess" + Me.groupQuickAccess.Text = "Schnellstart" + ' + 'pageForms + ' + Me.pageForms.Appearance.BackColor = System.Drawing.Color.Yellow + Me.pageForms.Appearance.Options.UseBackColor = True + Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form + Me.pageForms.Name = "pageForms" + Me.pageForms.Text = "Formulare" + ' + 'pageAdmin + ' + Me.pageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupProgram, Me.RibbonPageGroupTask, Me.RibbonPageGroupMenue, Me.RibbonPageGroupWindream, Me.RibbonPageGroup1}) + Me.pageAdmin.Image = Global.DD_Record_Organiser.My.Resources.Resources.Property_501 + Me.pageAdmin.Name = "pageAdmin" + Me.pageAdmin.Text = "Administration" + Me.pageAdmin.Visible = False + ' + 'RibbonPageGroupProgram + ' + Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem13) + Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroupProgram.Name = "RibbonPageGroupProgram" + Me.RibbonPageGroupProgram.Text = "Programm Konfiguration" + ' + 'RibbonPageGroupTask + ' + Me.RibbonPageGroupTask.AllowTextClipping = False + Me.RibbonPageGroupTask.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroupTask.ItemLinks.Add(Me.BarButtonItem12) + Me.RibbonPageGroupTask.Name = "RibbonPageGroupTask" + Me.RibbonPageGroupTask.Text = "Tasks und Wiedervorlagen" + ' + 'RibbonPageGroupMenue + ' + Me.RibbonPageGroupMenue.AllowTextClipping = False + Me.RibbonPageGroupMenue.ItemLinks.Add(Me.BarButtonItem6) + Me.RibbonPageGroupMenue.ItemLinks.Add(Me.BarButtonItem7) + Me.RibbonPageGroupMenue.Name = "RibbonPageGroupMenue" + Me.RibbonPageGroupMenue.Text = "Menü Konfiguration" + ' + 'RibbonPageGroupWindream + ' + Me.RibbonPageGroupWindream.AllowTextClipping = False + Me.RibbonPageGroupWindream.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonPageGroupWindream.ItemLinks.Add(Me.BarButtonItem9) + Me.RibbonPageGroupWindream.Name = "RibbonPageGroupWindream" + Me.RibbonPageGroupWindream.Text = "Windream Konfiguration" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem14) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "SQL Konfiguration" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine) + Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser) + Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn) + Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 655) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.ribbonMain + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1498, 23) + ' + 'DefaultLookAndFeel1 + ' + Me.DefaultLookAndFeel1.LookAndFeel.SkinName = "Office 2013" + ' + 'BarButtonItem11 + ' + Me.BarButtonItem11.Caption = "Workflow/Tasks" + Me.BarButtonItem11.Glyph = Global.DD_Record_Organiser.My.Resources.Resources._005_Task_32x42_72 + Me.BarButtonItem11.Id = 14 + Me.BarButtonItem11.Name = "BarButtonItem11" + Me.BarButtonItem11.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem15 + ' + Me.BarButtonItem15.Caption = "BarButtonItem15" + Me.BarButtonItem15.CategoryGuid = New System.Guid("6ffddb2b-9015-4d97-a4c1-91613e0ef537") + Me.BarButtonItem15.Id = 27 + Me.BarButtonItem15.Name = "BarButtonItem15" + ' + 'BarButtonItem16 + ' + Me.BarButtonItem16.Caption = "Designer" + Me.BarButtonItem16.Glyph = CType(resources.GetObject("BarButtonItem16.Glyph"), System.Drawing.Image) + Me.BarButtonItem16.Id = 28 + Me.BarButtonItem16.Name = "BarButtonItem16" + Me.BarButtonItem16.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'frmMain + ' + Me.Appearance.BackColor = System.Drawing.Color.White + Me.Appearance.Options.UseBackColor = True + Me.Appearance.Options.UseFont = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackgroundImageLayoutStore = System.Windows.Forms.ImageLayout.Center + Me.BackgroundImageStore = CType(resources.GetObject("$this.BackgroundImageStore"), System.Drawing.Image) + Me.ClientSize = New System.Drawing.Size(1498, 678) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.ribbonMain) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.IsMdiContainer = True + Me.Name = "frmMain" + Me.Ribbon = Me.ribbonMain + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Form1" + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MainMenu, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents ribbonMain As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents pageForms As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents LabelMachine As DevExpress.XtraBars.BarStaticItem + Friend WithEvents LabelUser As DevExpress.XtraBars.BarStaticItem + Friend WithEvents LabelLoggedIn As DevExpress.XtraBars.BarStaticItem + Friend WithEvents LabelVersion As DevExpress.XtraBars.BarStaticItem + Friend WithEvents pageAdmin As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents MainMenu As DevExpress.XtraBars.Ribbon.ApplicationMenu + Friend WithEvents itemInfo As DevExpress.XtraBars.BarButtonItem + Friend WithEvents itemExit As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroupWindream As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroupProgram As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroupMenue As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents itemSettings As DevExpress.XtraBars.BarButtonItem + Friend WithEvents DefaultLookAndFeel1 As DevExpress.LookAndFeel.DefaultLookAndFeel + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroupTask As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents pageHome As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents groupQuickAccess As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmMain.resx b/app - Kopie/DD-Record-Organiser/frmMain.resx new file mode 100644 index 0000000..bfa1c05 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmMain.resx @@ -0,0 +1,1815 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAABAAgAICAQAAEABADoAgAAhgAAABAQEAABAAQAKAEAAG4DAAAwMAAAAQAIAKgOAACWBAAAICAAAAEA + CACoCAAAPhMAABAQAAABAAgAaAUAAOYbAAAwMAAAAQAgAKglAABOIQAAICAAAAEAIACoEAAA9kYAABAQ + AAABACAAaAQAAJ5XAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + gAAAAAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////ACIi + IRERERERERERERESIiIiIRERERERERERERERERIiIhERERERERERERERERERIiERERERERERERERERER + ERIhEREQAAAAAAAAAAABERESERERCIiIiIiIiIiIgAEREREREYd3d3d3d3d3d3gBERERERh3d3d/f39/ + d3d3gBEREREYd3h4h///eIeHd4ARERERF3eAiAH//3CIAHeAERERERf3gAAAf/eAAACHgBEREREXf4AA + Af//gAAAd4ARERERF/dxABf//3gACPeAERERERd/d4h////3iH93gBEREREX9///////////94ARERER + F////////////3eAERERERd////////////3gBEREREX//93/////3d/d4ARERERF/93eH////d4d/eA + ERERERf3iH+I//94jwh3gBEREREX94AAAP//gAgAd4ARERERF/eAAAD//4AAAHeAERERERf3gAAI//9w + AAB3gBEREREX/3gAh///+AAH94ARERERF///d/////93f/eAERERERF////////////3ARERERERF/// + ///////3cRERESERERERERERERERERERERIhERERERERERERERERERESIhERERERERERERERERERIiIh + EREREREREREREREREiIiIiEREREREREREREREiIi+AAAH+AAAAfAAAADgAAAAYAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAAHAAAAD4AAAB/gAAB8oAAAAEAAAACAAAAABAAQAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/ + AAAA//8A/wAAAP8A/wD//wAA////ACIREREREREiIRERERERERIRGIiIiIiBERF/f39/d3gREXeAD/gA + eBERfwAP8AD4ERF/gA/4AHgREX//////+BERf/////94ERF/gA/4APgREX8AD/AAeBERf3CP9wj4ERF/ + //////gRERd3d3d3cREhEREREREREiIREREREREiwAMYd4ABh/8AAIeHAAAREQAAF3cAAAH/AACIAAAA + EREAABf3AAAAfwAAAAAAABERAAAXfwAAAf+AAQAAwAMRESgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAANB0YADslGAAyHSwAKysrADUjKQAtLTwANSY1ADY0NgBKKwoAUysDAE0x + CQBXNggARSsXAFEvFABKMxkAVTcWAGU4CQBCKygAVSsrAEkzIwBTOiMAQCAwAEM0MQBIRAUAZ0QFAHxD + BQBmQxMAdUQVAFVFLgB0Ui0AeWE+AAAAVQApJkYANCVEADMzRAArJ1YANStaADs2WgAsJWgAMyxqADoy + ZQApJnUAMi12ADYyewBVAFUAQzBFAEI6cAAnQ0MALVl3ACZmewBMTEwAWkhJAFZGVQBpUVEAXW1eAHJr + TQBMSW0ASmpnAGxsawCAAAAA/wAAAIZHBwCWTAQAjlUNAJtRBQCFRhEAjlMQAKBPAgCnUwIAtVsGAKRX + EQCyZxcAiV0wAKxeOgCVZykAknA/AK9zMQDKbhMAyHcqANB8JADKeTMAmV5MAIxxSwC0ckoAlnFgAK57 + ZgDEfEoAa4lxALaCKwDUjjIA4o8kAPatPACXglMArINQAJKEdQCqiW0AtaNwAMiDSADfn0wAx4ZYAMKc + UgDLpFsAx4plAMuRawDKlHcA0a1xAOC6cgD7wFUA98luAAAAgAABAZkAKiqHADg0ggAmKZkAJjiSADc2 + mQADCKUADBKpABcXpAACDbIABhe7ABIfuwAXI7kAJSioADIzrAAkK7YAJzG8ADc5swBAP4wAQT2qABJa + lQAgU4kABGWXAC10iQAbTKQANEawAAZ1qQAqbrgATUuPAGNHhABNfpEAbmaEAENErwBHSbYAR1i1AFlZ + vQBgV6wAR3KsAGlpugABGssADSDDABUpyQACIdYAEivTABgz1gAgLMMAJzTHACQ61gAxPdIAASnoAAcw + 7gAZPu0AAC3yAAI0/QARPPUAID7jADlFxwAmW8YAK0HUADJH1gA/UdYAGWDFADF6xQAaQO4AFkT9ACZH + 6QAzTuUAOlbnACJM/AAoUv0ANFr7ADti/gBKVcwAV2fTAGpy0gBCWukASGTrAFdt6ABGaPkATHD/AFV2 + /ABkdeIAgACAAIt1jgCLfbEAAAAAAAOFtgAcoL0APqasAFGFjAB0lY4AS5CqAFuzrAABlcgALpHYAByo + xgACp9gAJ6zDAAG16ABQitIAeIbVAGyC7QB1husAZ5DsAH+Q7gBmhP4Acor2AG6R8AB4kvsAfbLjAADG + +QApze8AkpuQALmOggCNspsArq2FAJeMtgCxlKEAlqeqAL2ipgDBm5UAyqifAMC5pADdwo8A9dWLAP/m + mwCIi9UAkbzcAICM5QCHlOcAlZzjAICZ/gCTp/gAn7T7AKe2+gDQvsMAl8HlALzJ/QDWxswAws3+AMzW + /QDT3P4A2+H9AOLo/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAMzMzMzMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz + i4EvNDYzMzMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADOQp6qngHAuNjMzMwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM4+Atra9vb2ngCk0MzMzAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAzMzMzMzMzMzMzi4C9tba2sqq3u6eAcC4zMzMzAAAAAAAAAAAAAAAAAAAAAAAAM01G + SEhISEhIRkiLgL+2tLW1b3yQb7K9q4BwJjYzMzMAAAAAAAAAAAAAAAAAAABNSEgAAAAAAAAAM4uAv7+2 + s7S1dYB8b3a+vr63gH4pNDMzMwAAAAAAAAAAAAAAAE1ISAAAAAAAAAAzj4C/v7+2s7O0eX5vb2+yvr6+ + vr2ngHAuMzMzAAAAAAAAAAAAAEZIAAAAAAAAADOPgL+/v9i2r7Ozr29vb2+yvr6+vr6+vZ6AcC4zMwAA + AAAAAAAAAEgzAAAAAAAAM4CAv7+/2Ni2r6+vs692b3u2vb2+vr6+vr69t4ApNTMAAAAAAAAAXU0zAAAA + AAAzgIC/v7/Y2Ni2pK+vr5i0tLW2tr29vr6+nW+AuLeQNTMAAAAAAAAA31wzAAAAADOAgL+/v9jY2Ni2 + pKSvdXyQfrS1tba9vb6+nG+Qb7KAcTMAAAAAAAAAyFxTMwAAM4CAv7+/2NjY2Nu2pKSkb4CAb3m0tbW2 + vb2+snx9b3unLDMAAAAAAAAAyFpqHTMzgIC/v7/Y2NjY29u2pKSkeI9vb2+vtLW1tr29vqdvb3arLDMA + AAAAAAAAxU5tUx2LgL+3udjY2Njb29u2pKSko29vb2+vs7S1tba9vb6qdqqrLDMAAAAAAAAAxU9t6jaQ + u7uPuNjY2Nvb2/K9pKSkpKN4b3mvr7O0tLW2tbK3vr6rLDMAAAAAAAAAAF1a6+uAv36At9jY29vb8vK9 + pKSkpKSkpKSvr6+ztLS1dm+Qt76rLDMAAAAAAAAAAMhabetSv359t9jb29S31fO+pKSkeHyQmKSkr6+v + s7S0mHyQb6qrLDMAAAAAAAAAAMVhT+xOVW982Nvb27eQufS/pKSkb4CAb5akpKSvr7OztIBvb3arLDMA + AAAAAAAAAABYYVpOTlXA29vb1XyPufW/pKSkdY9vb3WkpKSkr6+zs55vb3uqLDMAAAAAAAAAAADF4mFO + T09o29vy1HyA8Pj0pKSklm9vb2+jpKSkpK+vs7OemLWqLDMAAAAAAAAAAAAAyeE6T1FRVNvyt3eA+Pz8 + s6SkpHlvb2+kpKSkpKSvr5ietLSqLEczAAAAAAAAAAAAxeGJU2RXV2Tx8n7x/P7+/PO1pKSjlqOkpKSk + pKSklm+At7SqLEdGMwAAAAAAAAAAAK2JiThUYmJi5/j8/v78+PXz8r+vpKSkpKSkpKSkpHeQb3mqLDNG + MwAAAAAAAAAAAIOJxcU4VGRkZGj9/vz49fPy8vLy272vpKSkpKSkpH53b2+eLDNGRjMAAAAAAAAAAJCD + xczMyFFnZ2dn9vj18rnb8vLy8vLy27WkpKSkpKRvb3WeLDMARjMAAAAAAAAAAJC4iczPz85PaGhoaGmA + gLm3ufLy8vLy8vLy2LSkpKSjpKSecTMAAEYzAAAAAAAAAJC424nPz9HRTWhpaVRNjO25t9Xy8vLy8vLy + 8vLbv6+kpKSecTMAAEZGMwAAAAAAAJC59POJz9HR3VhiaWlUVOftufLy8vLy8vLy8vLy8vLbvaSYgTMA + AABGMwAAAAAAAJC59fj4xdHd3d3HT2hoaGho5PLy8vLy8vLy8vLy8vLy8tudizMAAABGSDMAAAAAAJC5 + +Pz+/onR3d3dzk1kZGRkZGTj8vLy8vLy8vLy8vLy1Z2AMwAAAAAARjMAAAAAAJC5/P7+/PjSz93R0c9Y + T1dUVGRkZ/Dy8vLy8vLy8vLUnY8zAAAAAAAARjMAAAAAAJC5/v78+PXz0sXR0c/PzElIVGlkZFdg8vLy + 8vLy8sCdkDMAAAAAAAAARjMAAAAAAACQ/vz49fPy8tuJz8/PzIQxOk1UZFFRUWDy8vLyuZ2LMwAAAAAA + AABGTjMAAAAAAAC3gLnz8/Ly8vLy0onMzMWJxcw6SE5OTk5OVvK3nDkzAAAAAAAAAEZOMzMAAAAAAAAA + ALePgLjb8vLy8tuticWJiYmJhTpLTk5OTk7CNR0zMwAAAAAARk1GMwAAAAAAAAAAAAAAAKeAgMDb8vLy + 29KJiYmFg4WFhYY4SE5iYk1MUzMzMzNIS0YzAAAAAAAAAAAAAAAAAAAAAJ2At9Ty8vLy2IeDg4SDhYWF + 3t7HTEhITk5OSEhISAAAAAAAAAAAAAAAAAAAAAAAAAAAuJyAt9Xyt36Q7ZG4rYeK0tLS0tLS0tMAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAt4+AuNS589XUgJAzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAp4CAt7ePlTMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAkJCQMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///////8AAP// + wf///wAA//+AP///AAD//wAP//8AAP/+AAP//wAA+AAAAH//AADgAAAAH/8AAMfwAAAH/wAAj+AAAAH/ + AACfwAAAAP8AAJ+AAAAAfwAAHwAAAAB/AAAeAAAAAH8AAAwAAAAAfwAAAAAAAAB/AAAAAAAAAH8AAAAA + AAAAfwAAgAAAAAB/AACAAAAAAH8AAIAAAAAAfwAAwAAAAAB/AADAAAAAAH8AAOAAAAAAPwAA4AAAAAAf + AADwAAAAAB8AAPAAAAAADwAA8AAAAABPAADwAAAAAGcAAPAAAAAAYwAA8AAAAABzAADwAAAAAHEAAPAA + AAAA+QAA8AAAAAH5AADwAAAAA/kAAPgAAAAH8QAA+AAAAA/hAAD+AAAAB8MAAP/AAAAABwAA//gAAAAf + AAD//gAAA/8AAP//wAP//wAA///4B///AAD///8P//8AAP///////wAA////////AAD///////8AAP// + /////wAAKAAAACAAAABAAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0HRgAOyUYADId + LAArKysANSMpAC0tPAA1JjUANjQ2AEorCgBTKwMATTEJAFc2CABFKxcAUS8UAEozGQBVNxYAZTgJAEIr + KABVKysASTMjAFM6IwBAIDAAQzQxAEhEBQBnRAUAfEMFAGZDEwB1RBUAVUUuAHRSLQB5YT4AAABVACkm + RgA0JUQAMzNEACsnVgA1K1oAOzZaACwlaAAzLGoAOjJlACkmdQAyLXYANjJ7AFUAVQBDMEUAQjpwACdD + QwAtWXcAJmZ7AExMTABaSEkAVkZVAGlRUQBdbV4AcmtNAExJbQBKamcAbGxrAIAAAAD/AAAAhkcHAJZM + BACOVQ0Am1EFAIVGEQCOUxAAoE8CAKdTAgC1WwYApFcRALJnFwCJXTAArF46AJVnKQCScD8Ar3MxAMpu + EwDIdyoA0HwkAMp5MwCZXkwAjHFLALRySgCWcWAArntmAMR8SgBriXEAtoIrANSOMgDijyQA9q08AJeC + UwCsg1AAkoR1AKqJbQC1o3AAyINIAN+fTADHhlgAwpxSAMukWwDHimUAy5FrAMqUdwDRrXEA4LpyAPvA + VQD3yW4AAACAAAEBmQAqKocAODSCACYpmQAmOJIANzaZAAMIpQAMEqkAFxekAAINsgAGF7sAEh+7ABcj + uQAlKKgAMjOsACQrtgAnMbwANzmzAEA/jABBPaoAElqVACBTiQAEZZcALXSJABtMpAA0RrAABnWpACpu + uABNS48AY0eEAE1+kQBuZoQAQ0SvAEdJtgBHWLUAWVm9AGBXrABHcqwAaWm6AAEaywANIMMAFSnJAAIh + 1gASK9MAGDPWACAswwAnNMcAJDrWADE90gABKegABzDuABk+7QAALfIAAjT9ABE89QAgPuMAOUXHACZb + xgArQdQAMkfWAD9R1gAZYMUAMXrFABpA7gAWRP0AJkfpADNO5QA6VucAIkz8AChS/QA0WvsAO2L+AEpV + zABXZ9MAanLSAEJa6QBIZOsAV23oAEZo+QBMcP8AVXb8AGR14gCAAIAAi3WOAIt9sQAAAAAAA4W2AByg + vQA+pqwAUYWMAHSVjgBLkKoAW7OsAAGVyAAukdgAHKjGAAKn2AAnrMMAAbXoAFCK0gB4htUAbILtAHWG + 6wBnkOwAf5DuAGaE/gByivYAbpHwAHiS+wB9suMAAMb5ACnN7wCSm5AAuY6CAI2ymwCurYUAl4y2ALGU + oQCWp6oAvaKmAMGblQDKqJ8AwLmkAN3CjwD11YsA/+abAIiL1QCRvNwAgIzlAIeU5wCVnOMAgJn+AJOn + +ACftPsAp7b6ANC+wwCXweUAvMn9ANbGzADCzf4AzNb9ANPc/gDb4f0A4uj+AAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAMzMzMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADN9gCkuMzMAAAAAAAAAAAAAAAAAAAAA + AAAzMzMzMzMzf7W9vacqLjMzAAAAAAAAAAAAAAAAAAAzS0tLS0tLOH+9tbZ7kLunciUzMwAAAAAAAAAA + AAAAVEYAAAAAADN9vb60tXV9b729unwoMzMAAAAAAAAAAABLAAAAAAAzgL2/v6+0nW9vnb6+vrt/KjMz + AAAAAAAAVB4AAAAAM4C9v7+/r6+0mHW1vb6+vr66nSszAAAAAABNMwAAADOAvb+/2L+kr5qqtbW2vb6+ + nXynpy4zAAAAAF1TMzMzgL2/v9jY2KSkdX1vtLW2vb6qgG+yLDMAAAAAXWwdM4C7v7/Y2NvYpKSXb2+a + tLW2vb13b7osMwAAAABdZWuQu5DA2Njb29ikpKN5da+ztLW2tb2+vSwzAAAAAOJgbcK9fcDY28Db26Sk + o6SkpK+vtLV7gKe9LDMAAAAAAGBmUIx82NvbkNXzpKR1kHWkpK+vtJh9b7IrMwAAAAAA5WFQTsLb27iA + 8/WkpHt1b5mkpK+vtJdvtSszAAAAAAAA5YZPUWDygH36+6+koHVvoKSkpK+vsLS1OzMzAAAAAAAAiYZi + Ymfx9f3++/O2pKSkpKSkpJZ8nbQ5RzMzAAAAAACJxchiZGT5/vv18vLy2K+kpKSkoIBvpitTSzMAAAAA + AIjFzMVkZ2fo8Lm52/Ly8tu9pKSkeW+iLDRLSzMAAAAAkNLPz89gaWlUk7m58vLy8vLy2LSkpKUsNABL + MwAAAACQ9dzP0d3JaWdn5Nny8vLy8vLy8tu/ooE0AGJLAAAAAJD6/e7R3d3QZGdnZ+3y8vLy8vLy8sCd + NAAAAEsAAAAAkP3++/PP0dHPWFFUZODb8vLy8vLAkDQAAAAASwAAAACA1fv18tvN0c/FMVNXYlFg8PLy + t380AAAAAABLAAAAAAC3t9Xy8vLWzMzFxYU4Tk5OVpV8NDMAAAAAS2IAAAAAAAAAp4C42/Ly1omJhYWF + MjhIY2BTODNLS0tiAAAAAAAAAAAAALeQkMDb8riIlIWJhc/ey15LS15iAAAAAAAAAAAAAAAAAAAAt4C3 + wJDxuZAzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC3gJCdMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////// + ////8P///+A///AAD//AAAP/nwAA/74AAD88AAAfOAAADwAAAA8AAAAPAAAADwAAAA+AAAAPgAAAD8AA + AAfgAAAD4AAAA+AAAAHgAAAJ4AAACeAAAB3gAAA94AAAffAAAHn8AAAD/wAAD//gD////B////////// + //8oAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQdGAA7JRgAMh0sACsr + KwA1IykALS08ADUmNQA2NDYASisKAFMrAwBNMQkAVzYIAEUrFwBRLxQASjMZAFU3FgBlOAkAQisoAFUr + KwBJMyMAUzojAEAgMABDNDEASEQFAGdEBQB8QwUAZkMTAHVEFQBVRS4AdFItAHlhPgAAAFUAKSZGADQl + RAAzM0QAKydWADUrWgA7NloALCVoADMsagA6MmUAKSZ1ADItdgA2MnsAVQBVAEMwRQBCOnAAJ0NDAC1Z + dwAmZnsATExMAFpISQBWRlUAaVFRAF1tXgBya00ATEltAEpqZwBsbGsAgAAAAP8AAACGRwcAlkwEAI5V + DQCbUQUAhUYRAI5TEACgTwIAp1MCALVbBgCkVxEAsmcXAIldMACsXjoAlWcpAJJwPwCvczEAym4TAMh3 + KgDQfCQAynkzAJleTACMcUsAtHJKAJZxYACue2YAxHxKAGuJcQC2gisA1I4yAOKPJAD2rTwAl4JTAKyD + UACShHUAqoltALWjcADIg0gA359MAMeGWADCnFIAy6RbAMeKZQDLkWsAypR3ANGtcQDgunIA+8BVAPfJ + bgAAAIAAAQGZACoqhwA4NIIAJimZACY4kgA3NpkAAwilAAwSqQAXF6QAAg2yAAYXuwASH7sAFyO5ACUo + qAAyM6wAJCu2ACcxvAA3ObMAQD+MAEE9qgASWpUAIFOJAARllwAtdIkAG0ykADRGsAAGdakAKm64AE1L + jwBjR4QATX6RAG5mhABDRK8AR0m2AEdYtQBZWb0AYFesAEdyrABpaboAARrLAA0gwwAVKckAAiHWABIr + 0wAYM9YAICzDACc0xwAkOtYAMT3SAAEp6AAHMO4AGT7tAAAt8gACNP0AETz1ACA+4wA5RccAJlvGACtB + 1AAyR9YAP1HWABlgxQAxesUAGkDuABZE/QAmR+kAM07lADpW5wAiTPwAKFL9ADRa+wA7Yv4ASlXMAFdn + 0wBqctIAQlrpAEhk6wBXbegARmj5AExw/wBVdvwAZHXiAIAAgACLdY4Ai32xAAAAAAADhbYAHKC9AD6m + rABRhYwAdJWOAEuQqgBbs6wAAZXIAC6R2AAcqMYAAqfYACeswwABtegAUIrSAHiG1QBsgu0AdYbrAGeQ + 7AB/kO4AZoT+AHKK9gBukfAAeJL7AH2y4wAAxvkAKc3vAJKbkAC5joIAjbKbAK6thQCXjLYAsZShAJan + qgC9oqYAwZuVAMqonwDAuaQA3cKPAPXViwD/5psAiIvVAJG83ACAjOUAh5TnAJWc4wCAmf4Ak6f4AJ+0 + +wCntvoA0L7DAJfB5QC8yf0A1sbMAMLN/gDM1v0A09z+ANvh/QDi6P4AAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzMzMAAAAAAAAAAAAzMzMztbJ7MzMzAAAAAABNYAAzv7SbdrKy + dDMzAAAAUzMzv9ivmp26upqpMwAAAGAvvNjbr5l1tLa9qTMAAABgX7fb26+gm6+0mqozAAAAAE3j2e29 + lnWkr7OwMwAAAADKU+D8+Ni0pKSam00zAAAAuMzKaMPX8tu/r6Q5UzMAAPH30dFg4O3y8vLZMwBNAAD1 + +PLNzDtNXu3VMwAAUwAAAPXv2dqKhTJTYGBNUwAAAAAAAADw0+3wMwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD//wAA//8zgPj/v7+AH7SYIAe9vgAHvroABzMAAAcAAIAHAACAA4C9gAHYv4AFmqqADba9wAOdfPg/ + LjP//wAAKAAAADAAAABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACAAisr + VQYuLkYLOydODS4uRgskJEkHVQBVAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABVVVUDQCtADDMrPB40KjkxNig6OTMpODI1JjUiMyYzFC4uRgszMzMFAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAAAAAAAAFVVVQM3JDcONyQxKjUkLFY2Iyx7NiMrijQiKIA1ISZlNSMrSDYmMS85JjkbNyQ3DiQk + SQdVAFUDAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgAAAAkBAAARtSQAHVTkACWYz + AApmMwAKVTkACW1JAAdAQAAEQEAABDsnJw03JCsqMyVAaSkofccpJ3viKyVs5jIfJs8zHhq4NR8fmzUi + JHk1ISdWNiQtOTUmNSI2KDYTOTk5CUBAQAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYBAAARNMwAKUDAQEEor + CxhVNgghWTkGKGE9BiphPQYqWTkGKFM1CCJHKQoZPSkUGTojKSwyI0BmR0m3/DZCxv87Ttb/OkbJ/zU4 + tP8nJ4T3LyFG5TQeGMY1Hh2qMyAihzYhJ2M1Ii5DOCUyKTcsNxdAK0AMMzMzBQAAgAIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACYEAACF06 + DBZRMgwpTzAJOkgrC0dOMAlVVzQIXlk3CGFZNwhhVzQLXk0sDFZCKA1NOyUWUjkjHGwlKp/hNDy9/zlg + //8/Zf//RWr//0pu//9GYu3/Nz69/zU2sP8sI1ruMh4k0zQeG7U0ISGUNSAlbzQkK043IzIzNSM1HTMi + Mw8kJEkHVQBVAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABNMwAKUjEIH1U1CD9SMQtdTi8JbG05B4p4PgaVe0EFlntDBZd7QwWXcTwHjkYoDXg+JRGEOiIVnSgp + j+U3O7n/QWb8/zNc//85YP//PmT//zNO5f8zRdH/RljZ/0tp8/87R8n/MjOv/ygmevUxHi/dNB0ZvzQg + IKE1ISV9NCIoWTUjLDo1JjUiNig2Ezk5OQlAQEAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABTNQ8iUDEKSX1CBZKjUQLUtVgA/7BWAOqsVAHRrVUBz61VAc+sVQHQsVYB6LVY + AP+nUgPqRUGB9Dc7uf9Rc/z/PmX//yxX//8yW///N1///wECm/8nJ6n/SUm3/w8Qof9BYPD/S278/z9R + 1v81OLT/JiiP+i0iUeo0HRjJNB4cqzMgIoc2ISdjNSIuQzglMik6IzoWMxozClVVVQMAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABTNQ1NoE8Cyq9VAe6PSQSZazoHRVM1CCJOLAsXUSgNE0kx + DBVEKxoeOyQgODgiImlFQoTvNzu5/1Fz/P9WeP//PmT//yVQ//8rVv//Mlv//wQHof82Nq//HR2l/wAA + mf8OFaz/THD//0xw//9McP//Q1vk/zY7uf8jK6/9LCNa7zIeJNM0Hhu1NCEhlDMhJW01IytIMiUyKTkr + ORIrK1UGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACeUATQqlQC6Vw0C21OLwoxWTMNFGBA + AAhAQAAEKysrBkAgMBA0IyksNCEmXSYpmNk3O7n/UXP8/1Z4//9be///PGP//yBM//8lUP//KlX//w8d + u/8sLKr/AACZ/wAAmf8AAJn/QWDw/0xw//9McP//THD//0xw//9HZO//O0fJ/zc3sf8oJnr1MB4w3DQe + Grw0ICCXNSInaTQnMDs1KzUYKytVBgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAALVYAEC4YQX6WTURnk8v + E1FMLxMbZjMABQAAAAFAQEAEMCAwEDchLC40IiRiJimW2zc7uf9Rc/z/Vnj//1t7//9ff///O2L//xlH + //8fTP//I0///yNI8P8BApv/AACZ/wAAmf8AAJn/PFvw/0tv//9McP//THD//0xw//9McP//THD//0lq + +P8qOdr/MzSw/ygnhPgxHjDcNB4bsTUiJnk1IzA6OSs5EgAAVQMAAAAAAAAAAAAAAAAAAAAAAAAAAJFn + JICwcBTzSC8WpEwvFlFONxYXQEAABEBAQAQzIjMPNycsLjMjO24lK6boNzu5/1Fz/P9WeP//W3v//19/ + //9kg///O2L//xJB//8XRv//Hkv//yNP//8iR/D/CBCs/wECm/8WJcD/P2X//0Vq//9Kbv//THD//0xw + //9McP//THD//0xw//9McP//R2f1/0JY3/83N7H/LCNc7DUfHa40JCljOSM5JCQkSQcAAAABAAAAAAAA + AAAAAAAAAAAAAJl6S++2giv3QysXtEYsF2JLNR4iVTkcCTMzMw83JywuMyM7biQrru43O7n/UXP8/1Z4 + //9be///X3///2SD//9ohv//OWH//ws8//8SQf//F0X//xpE9v8WLM3/K03t/yxV/P8zXP//OWD//z5k + //9Eaf//Sm7//0xw//9McP//THD//yo+0f8BAZn/Nzev/1Vk2f9CWeH/T0+5/zEgNNM0IymENCY5Nisr + QAwAAAABAAAAAAAAAAAAAAAAAAAAAJWQeO/2rj//PigZy0UsG4VONCM7Qi8vGzQpKSwyJD1rJCuu7jc7 + uf9Rc/z/Vnj//1t7//9ff///ZIP//2iG//9tiv//OWD//wY4//8LPP//EUD//wMJp/8nJ6j/T0+5/yQq + s/8sVfz/Mlv//zhf//8+ZP//RGn//0lt//9McP//THD//x0rwP8HB5z/SEi2/xMToP89Wuv/NTi0/yon + duw0IimUNSk1Pjc3SQ4AAAACAAAAAAAAAAAAAAAAAAAAAE1+ju/2rTr/gGM760EpGa1JMCFlRy8rQTMn + PmgkK6/tNzu5/1Fz/P9WeP//W3v//19///9kg///aIb//22K//9yjf//OmH//wAz//8FN///CTv//wAB + m/81Na7/NTWu/wAAmf8NHLv/K1b//zJb//83X///PGP//0Jo//9Ibf//S2///0Fg8P8eHqX/MzOt/wAA + mf8ZJbv/O0fJ/yomde40IyqYNyc3QTMzRA8AAAACAAAAAAAAAAAAAAAAAAAAAEyAk+/ijyT/0a1w/Dwl + F9BFLB2cQiwkgCUrqOc3O7n/UXP8/1Z4//9be///X3///2SD//9ohv//bYr//3KN//92kf//PGP//wAz + //8AM///BDf//wEMr/9BQbP/AACZ/wAAmf8AAJn/Ikn2/ytV//8xWv//Nl7//zti//9CZ///R2v//0tv + //8vOsH/AgKa/wAAmf8MEqr/P1HW/yomde40IyqYNyc3QTMzRA8AAAACAAAAAAAAAAAAAAAAAAAAAFWS + su/OcxD//8pi/4ltTPI9JRfQKyqG4zc7uf9Rc/z/UFzP/2Fv3P9ff///ZIP//2iG//9tiv//co3//3aR + //96lf//P2X//wAz//8AM///ADP//wEq6/8AAZv/AACZ/wAAmf8AAJn/G0Lw/yVQ//8qVP//MFn//zZe + //87Yv//QWb//0Zr//9Lb///MEfa/wwSqv8wR9r/P1HW/yomde40IyqYNyc3QTMzRA8AAAACAAAAAAAA + AAAAAAAAAAAAABlgxYDFeiL/98Jg/93Cj/5aSEb0T0+5/0xo7/9Oae7/QkKz/19kyf9kg///aIb//22K + //9yjf//dpH//3qV//9/mP//QGb//wAz//8AM///ADP//wAz//8CLfD/AQqs/wAAmf8GF73/GUf//x5L + //8jT///KlT//y9Z//80Xf//OmH//ztd9v84Ven/Qlbb/0xw//9McP//P1HW/yomde40IyqYNyc3QTMz + RA8AAAACAAAAAAAAAAAAAAAAAAAAABlgxVCfhEz/24oo///Yf//oyY//NTi0/1Z4//8rMrn/ODiv/1dc + xv9ohv//bYr//3KN//92kf//epX//3+Y//+DnP//R2z//wAz//8AM///ADP//wAz//8AM///ATT//wc5 + //8NPf//EkH//xdG//8eS///Ik7//yhT//8uWP//NFz//wkPqv8NDZ7/R0e2/z9MzP9McP//P1HW/yom + de40IyqYNyc3QTMzRA8AAAACAAAAAAAAAAAAAAAAAAAAABlgxRBihZ3/wIg4//XHcf//343/mV5M/1t7 + //8hJrH/MDCs/1Zgz/9tiv//co3//3aR//9uhPD/WFrA/3qK6v+SqP//T3L//wAz//8AM///ADP//wAP + uP8iIqb/TE26/wwl0P8GOP//Czz//xFA//8WRf//HEn//yJO//8oU///LVf//xgtzP8eHqX/R0e1/wAA + mf8xSd3/P1HW/yomde41IyebOCY1RDAwQBAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAxcLavs51h/8t9 + Iv//5pv/zGwP/6RzZv8OD6D/Jyep/2mD+P9yjf//dpH//3qV//9BRr3/TEy3/25zzv+htP//Vnj//wAz + //8AM///ADP//wAAmf80NK7/Njav/wAAmf8AGcz/BTf//wo7//8QQP//FUT//xxJ//8hTf//JlL//yhP + 9v85ObD/DAye/wAAmf8PF6//PU/W/yolc/E2IiKkOicnT0MsLBdAQAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAZYMVQZYl+/7ekZ//dmD//zHEb/8xxG/+aZ1v/Ynjr/3KN//92kf//epX//3GH8v8nJ6n/QkKz/3R5 + 0/+wwP//Xn7//wAz//8AM///ADP//wEIp/9CQrP/AgKa/wAAmf8ABKH/ADP//wQ3//8JO///ED///xVE + //8aSP//IU3//yZR//8jPdv/AACZ/wAAmf8UIbv/OkzW/yslcPU4Ihq6PygXbUsuESxAKwAMgAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAQX6337KzgP+wqXT/zG8X/8x2J//Mdif/ypVl/3qU/f96lf//f5j//2+D + 7/8eHqX/Ojqw/4iR4P+/zf//orT//wAz//8AM///ADP//wEazP8GBpv/AACZ/wAAmf8AAJn/ACru/wAz + //8ENv//CDr//w8+//8UQv//Gkj//yBM//8lUP//HTrf/xcszP80W/z/NkrW/19TZvxEJhTTQikTlkou + D1NNLgghVTkACf8AAAEAAAAAAAAAAAAAAAAAAAAAGWDFYHWdj/+Qspj/SWpm/857K//MejP/zHoz/8B+ + T/+Bl/n/g5z//1Bc0v8WFqL/NDWv/7zJ/P/R2///2OD//x9M//8AM///ADP//wAx/P8AEr3/AACZ/wAA + mf8AAZv/ADH8/wAz//8AM///AjX//wg5//8OPv//E0L//xhF/P8SKMz/KT/V/ytU/f8vWf//M0jW/39M + V/+bTQb0RCoXqkswD3tTMQtEUjMKGVUrAAYAAAABAAAAAAAAAAAAAAAAAAAAACxwvdiKs5//AHGk/4Nx + RP/Jj1L/zH8//8x/P//Cg1r/mqLk/4qa8P8qLa//k5zk/9Hb///e5f//5er//9Tc//+Zrf//N1///wM2 + //8AM///ACnr/wAc0f8ALvb/ADP//wAz//8AM///ADP//wI0//8HOf//DT3//wggzP8ICJz/Pz+y/0BG + v/8oUvz/MEXW/zMubvSjUAXzkUoJ0ksvD4hPLwxnUzEKNFAwABBVVQADAAAAAAAAAAAAAAAAAAAAABlg + xTA7f8X/AHWo/wB/sv98cUb/nnlR/8yETP/MhEz/zIRM/72ipv+/zf//0dv//97l///l6v//1Nz//7/M + //+ouf//k6n//4Ga//9Vd///HEn//wAz//8AM///ADP//wAz//8AM///ADP//wAz//8BNP//Bjj//wo3 + 9v8XF6L/S0u3/wgInP8LGrv/LULW/yomdPBPLyC1sVcB94BDCaJPMAp6TjAJVVczByNgQAAIAAAAAQAA + AAAAAAAAAAAAAAAAAAAeT6yuAHir/wCEt/8Air3/fHVL/6p8UP/MiVj/zIlY/8yJWP/NlG//3Njo/+Xq + ///U3P//v8z//6i5//+Tqf//gZr//4CZ//+Amf//gJn//3yW//9Ha///EUH//wAz//8AM///ADP//wAz + //8AM///ADP//wU3//8qMbj/Ghqj/wAAmf8AApv/KkDW/yomde43JCqegkUSj7NXAPVdNQp/UDAJcFIx + DD5ZMw0UQEAABAAAAAAAAAAAAAAAAAAAAAAhLcSACVyd/wCGuf8AkcT/AJbJ/0+IgP/MeTD/zI5k/8yO + ZP/MjmT/zJBo/9C+w/+/zP//qLn//4OU7v9seN3/epD1/4CZ//+Amf//gJn//4CZ//+Amf//gJn//3WQ + //84YP//Cjv//wAz//8AM///ADP//wAz//8EL/D/AAGb/wAAmf8DCaf/Jj3W/yomde41IyqZOSgyTKtU + A8GjUQLCTzELd1AxC1lRLwcmVTkACQAAAAAAAAAAAAAAAAAAAAAhLcSAVWTT/wNtof8AlMf/AJzQ/wCj + 1v8coL3/xnUn/8yRbP/Mk3D/zJNw/8yTcP/Dlof/QT2q/z09sv9ucMj/V1e8/2VpyP+Amf//gJn//4CZ + //+Amf//gJn//4CZ//+Amf//gJn//2OC//8qVf//AzX//wAz//8AM///AzH2/wcw7v8PPfz/IjrW/yom + du00IyqXOCk1RH9FET+zVwDzajsJgE8xDG5SMAk7VTkOEgAAAAAAAAAAAAAAAAAAAAAhLcSAXGjW/36e + 8P8Ee6//AKHV/wCo2/8Ar+L/BbPi/6R7OP/MkGr/zJh8/8yYfP+5c0//rF46/2ZKh/+Ag9L/ZmfF/1xc + vv91hOf/gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//fJb//1V3//8cSf//ADP//wM1 + //8IOf//IDjW/yomd+s1IyqRNSk1PkorKxioUwKUo1ECwU4tC3ZTMApQVTMJHgAAAAAAAAAAAAAAAAAA + AAAhLcSAZG7W/6G0//+YtPD/BYCz/wCt4P8Atej/ALvu/wDC9f98jWX/zIZQ/8yXfP/LlXn/tGhC/7Vr + Rv/CmpP/iIbL/2Zv1f+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ + //+Amf//dZD//0dr//8NPf//HDXW/yone+M1Iyt9OCk4MkQzMw+NSQQ2tVgA/143Cn9YNgpjXToMLAAA + AAAAAAAAAAAAAAAAAAAhLcSAbHTW/7DA//+/zf//tMrw/xKAsP8At+r/AMH0/wDH+v8Ay/7/Pqqu/8Z4 + Lv/MkWz/zJFs/8yRbP/MkWz/zJFs/66UpP+CmPr/gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ + //+Amf//gJn//4CZ//+Amf//gJn//4CZ//95kPj/JjPS/ykofcc2JC1VPCs8HkAgQAhgQBAQrlYBzohI + BJ5aNwlvXTgJNwAAAAAAAAAAAAAAAAAAAAAhLcSAc3vW/7/N///R2///3uX//9/m/P8deKn/ALns/wDK + /f8Ayfz/AMP2/xywzv+vdi3/zIhW/8yLXf/Mi13/zItd/8yLXf/Ji2H/nZO//4CZ//+Amf//gJn//4CZ + //+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//3WK8/8xPdL/Iyuv7TMlQGk3JDEqOyc7DVUA + VQNiOwANplMCmppPA7daNwl0WTcJPAAAAAAAAAAAAAAAAAAAAAAhLcSAe4HW/9Hb///e5f//5er//9Tc + //+/zP//QYbA/wCj1v8AxPf/AL3w/wC36v8Frt7/Zodt/8ZyIf/HfET/vnRF/7pySv/Aflv/xoNZ/8GI + Z/+OlNz/gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//cYXv/yw5zv8lKqHeMyRBYzgl + LCk3JDcOVVVVAwAAAAJbNwAOmU4DdqZTAdJcOAlyWDkJOgAAAAAAAAAAAAAAAAAAAAAhLcSAe3/S/97l + ///l6v//1Nz//7/M//+ouf//k6n//1qK3/8Dh7z/ALbp/wCy5f8Aqt7/AKXY/wWcy/+HXjT/vWIU/7lr + Pf/IkHX/vXpZ/8ODXv/Mfz//sod+/4aW7v+Amf//gJn//4CZ//+Amf//gJn//4CZ//9kdOH/JTHH/yYq + m9U0JStTNyIwJUArKwxVAFUD/wAAAWYzAAVZNwsXkksEfqFQAstaOAppXDgKMgAAAAAAAAAAAAAAAAAA + AAAhLcRwS0y5/+Dl/P/U3P//v8z//6i5//+Tqf//gZr//4CZ//91lPb/EXiy/wCf0v8Aptn/AJ7S/wCZ + zP8iXYP/Kll6/1NtZ/+8diz/vXFC/8B9V//MeTD/zHkw/8x5MP+yg3T/hpbt/4CZ//+Amf//gJn//2Jx + 3/8lMcf/Kyl9xjsnKls7Ki8rQDAwEFUrKwZAQAAEVTkcCVkzDRRQMBAwnk8Dt5ZLBLpUNgxVVzMHIwAA + AAAAAAAAAAAAAAAAAAAhLcQQIi2/10BBtP9yeNL/mKfz/5Op//+Bmv//gJn//4CZ//+Amf//gJn//06F + 1/8De6//AJXJ/wCTxv8Bi77/DHel/wWKu/8Ak8b/SG5t/7tpFP/McRv/zHMh/8xzIf/McyH/zHMh/7J/ + av+Glez/TlfL/yEtxP8vJmPcPicekEUsIV1NMiA4Sy0eIkArFRhFJxQaUS8UJlEzETxcNhFly2kH/mY7 + DXxPNQ06UTYNEwAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EECEtxHAiLbzaRES0/zk7tP9ZZtb/eZD4/4CZ + //+Amf//gJn//4CZ//98l/z/MXvB/wB6rf8AhLf/AIG0/wB6rf8AdKf/AG2g/wBnmv9EZmb/nmYj/8Zp + C//MbA//zG0S/8xtEv/MbxT/jX6K/1RBTPY5IhbbPiYZukQrG5lELRx4PykbXTwkF008KBRMRy0UWls2 + EnegWArmjlMQvkowFkVPNRIdSSQABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EICEt + xIAhLcTfODiw/z1Buf9md+T/fZb8/4CZ//+Amf//gJn//3WU9v9HgtH/EXCq/wBvov8AbqH/BWaX/wZj + lP8AZpn/AGaZ/wBmmf8iZn//ZmZM/69mFv/SeBn/yYtJ/8mLSf+uczf5jlwr62VDJdFHMSGyOCcglzYn + HYRYNxmJjk8PsaJmGfZdbV64RTEcP0QzIh5VORwJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAIS3EQCEtxJ8hLcLzMzOu/0RJwP9ugu3/gJn//4CZ//+Amf//gJn//2iE + 6v8fRqD/G1mV/xldh/8gWoH/DWGP/wBmmf8AZpn/AWmb/yfL8P8px+n/QJ+q/412Qv+rah//sWoa/81q + Bf/NagX/x2oJ/6tqH/+1ahn+hGInxlxdR2xDMR4qRjojFkBAIAgAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EYCMst8AhLcT/NTWw/1Vg + 0v91ivP/gJn//0hTzP8pKan/SEi2/4SI1f9HWLX/XXfQ/zx0xv8ZTKP/IVq27C54wtotecjULHvJ0it7 + ydIqe8rSKXrJ0iBitbofVqaiIlCUekRbY1g5MjIkPSkfGUAwIBBNMxoKQEBABAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAhLcQgIS3EcCItvNpERLT/OTu0/11r2/9tgOz/anHT/6Gr7f94jPP/cYXv/zU1sP8lKp3RNSUoUjgl + LCk3LCwXNjY2EzY2NhM2NjYTNjY2Ezk5ORItLTwRMzNEDy5GRgtAQEAIQEBABIAAAAIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhLcQwIS3EjyItv+c4OLD/PUG5/0xVyf9MVcn/RES0/ygq + kag1JS0+MyszHjMaMwpVVVUDAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApK5dFJCyxlCQs + rJslLKSRLSl0TTIjOSQ2KDYTJCRJBwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//gH///wAA//8AD///AAD+BgAD//8AAPAAAAD//wAAwAAAAB// + AACAAAAAB/8AAIAAAAAB/wAAgAAAAAB/AACAAAAAAD8AAIAAAAAAHwAAAAAAAAAfAAAAAAAAAA8AAAAA + AAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAAAADwAAAAAAAAAP + AACAAAAAAA8AAIAAAAAABwAAwAAAAAADAADAAAAAAAEAAOAAAAAAAQAA4AAAAAAAAADwAAAAAAAAAPAA + AAAAAAAA8AAAAAAAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAA + AADwAAAAAAAAAPAAAAAAAAAA+AAAAAAAAAD/AAAAAAAAAP/gAAAAAQAA//wAAAADAAD//wAAAA8AAP// + 4AAAfwAA///8Af//AAD///////8AAP///////wAA////////AAD///////8AACgAAAAgAAAAQAAAAAEA + IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAVVVVQI5HDkHNyQ3CjMiMwtAK0AJKytVBFUAVQIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB/wAAAYAA + AAGAAAAB/wAAAYAAAAEzMzMEPC08DTMmMx4zJi8tMyMvMTYnMSc1JjUZNig2Djk5OQdAQEADAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFVVQACVSsABGYz + AAdbNxIKVTMRC1UzEQtVMxELVTMRC0ArKxI1JisoNiczYjQiKaY0IimtNic0iTckLVE1Ii4yOCUyHzcs + NxFAK0AJMzMzBAAAgAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVSsABGAw + EAxYNQkWXzsGIF07CidZOgkrWToJK1s7DipSNBYsQSkcNy8oY3slKqLvPD2u/SwjW+4zHiLcNB8ayDUl + LaM2Iy9iNCQqOzcjLSY1IzUWMyIzCyQkSQVVAFUCAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABbNwkVVTcKJlo6Cj9hPglqXjsKe1k3ColbOgmGWzsMhlQ1EI1AKy+aJC6+/Dpc8/9Ga///RmPv/zpG + yP8pJXj4MR0r5jQcFdA0ISW1NSUygTMiKEM4IzAsMyQzGjYoNg45HDkHVVVVAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAFs4DjdlPgqAg0QGt5pPA7upVAHOolIDu5pPBLiPSge7VUA70yUvvf1HZvP/Mlz//zti + //8ZJbr/QEa//0dj7f8+TtL/JSmY/C0hTe80HBXYNB8ewTUlMZM2Ji1TNSItMzMmMx4zJjMPJCRJBQAA + AAEAAAAAAAAAAAAAAAAAAAAAlk4Fwa5WAfGeUASUlk0EYZtPBVySTAlkg0UNeH1SMdM4Nqv/TWvz/09x + //8pVP//MFr//w4Qo/8zM63/AgOb/0Vm9v9Lbvz/Q1vk/yMrrv4rI2P0Mh0g3zQfGsg1Iy2iNiUwXjUk + LS85JjkUSSRJBQAAAAEAAAAAAAAAALVYAFCOVQ3nXD4XcVk8FS1VPBoWRDUmGTspKTQxKV+OODmz/01r + 8/9Yef//U3b//x9L//8nUv//IjXM/wICmf8AAJn/JTfM/0xw//9McP//THD//0Zi7f8lMb//KSV4+DAe + LeQ0HRbINCYxkTYjLjE9MT0QQEBAAwAAAAAAAAAAmXAoz2E8E99ZPR1/WD8hLkc5Mhs2Ji4uLihkiTg5 + s/9Na/P/WHn//19///9Xef//FUP//x9L//8nUv//ECHA/wgPqv87Xvb/SGz//0xw//9McP//THD//0xw + //9DXun/JDHK/yokbvU0HRjINCc3bjglOB85OTkHAAAAAQAAAACzfyr/aEch61Q5IKZONSREPy4rOi8o + ZIo4ObP/TWvz/1h5//9ff///ZoX//1x9//8KO///FEP//xMt1f8zSNj/MFT0/zZf//8+Zf//SGz//0tv + //9McP//ITHG/yoqqv8+S8v/OkXG/y8hRuY1JjWXNig2Kzs7OwoAAAABAAAAAJOEWf+TcUD2QSkZz0oy + JnU0Kl6ZODmz/01r8/9Yef//X3///2aF//9ui///YYH//wI0//8JOv//CQui/zIyrf8BApv/K1T8/zRd + //89ZP//Rmv//0tv//8ySt3/PDyx/wICmv9AWeT/KiVy8TQnM6A5KDkvMzNECwAAAAEAAAAAiXlN7/vA + Vf9ILx/lQDFH2Dg5s/9MZen/WXj9/19///9mhf//bov//3WR//9mhf//ADP//wI0//8PIMD/AgKZ/wAA + mf8ULNH/K1b//zRd//87Yv//RWr//0ls/P8QFan/AgOb/0Fc6f8qJXLyNSY0ojcnNzEzM0QLAAAAAQAA + AACIgmu/wpxS/+C6cfxNTrT+SGDm/0hLu/9hc+P/ZoX//26L//91kf//fJb//2qI//8AM///ADP//wAv + 9v8BErv/Agqq/xdB9v8hTf//KVT//zJb//87Yv//PmD2/0Ni8P9McP//R2Xx/yolcvI1JjSiNyc3MTMz + RAsAAAABAAAAAHiLh4+mkGT/79B+/4Fwmf9Pa/L/NTWu/19u3f9ui///dZH//21/6P9+lfn/d5L//wAz + //8AM///ASzx/wo18v8IOf3/Dj7//xdF//8gTP//KFP//zFa//8SH7v/OTmw/zdEyf9HZfH/KiVx8zUl + MqU3KTA0PC08DQAAAAIAAAAAGWDFMLSVb//LpFv/1H8k/2JHgf8rK6z/a4X4/3WR//91jfj/SEi2/3+L + 4/+OpP//ADP//wAz//8HDqr/QkKz/wMKqP8ENv//DT7//xVD//8fTP//J1L//xgtzP8zM63/AACZ/ztU + 4/8qJXD1NyYtrkAnJD9CLyYUVSsABAAAAAEAAAAAkJ2Z5Lijf//LeST/zHMf/5Z2if91kf//fJb//1Vj + 1/89PbH/lqDp/6G0//8AM///ADP//xciuf8LC53/AACZ/wAi3f8ENv//DD3//xVD//8eS///JlH//w8f + vf8BApv/O1ru/yolbvg5IhnOTDAWbUsyFCZVMwALVVUAAgAAAABNg7VgwLmk/zl5if/Gdy7/zHox/6+E + fP+Amf//NTy9/zQ1r//BzP3/x9L//x9M//8AM///ACbl/wAEof8AAJn/ACnr/wAz//8CNP//Cjv//xJC + //8cSPz/JEjv/yxW//81V/H/c2Vn/lcxGNpHLBOtVTYRSFczBxpVOQAHAAAAAAAAAACLp7bYHH6i/yd5 + kP/MgEL/zIFE/7+Iaf+YnuL/r7ny/9rh///j6f//yNP//42k//85Yf//AzX//wAz//8AM///ADP//wAz + //8BNP//CTv//wYYwP8vL6z/KjfE/yxQ8f9HPmn6olEG9Fk4FKBRMw6PVTUML106DBAAAAAAAAAAADdR + omkEbab/AIW4/0mEh//MhU7/zIhW/8uKW//Wxsz/4+n//8jT//+mt///hp7//4CZ//+Amf//Y4L//xxJ + //8AM///ADP//wAz//8AM///BSzo/zg4sP8AAJn/ID7j/yolcfRyPRnRpFIFzk8xD5NdOQteVzgGHwAA + AAAAAAAAJyudWjJDsv8DiL3/AJfK/xyYuP/GiVn/zJBo/8yQaP/KqJ//jpjm/2x32/9uet7/fJH2/4CZ + //+Amf//gJn//3WQ//9Ha///Cjv//wAz//8AM///ARO9/wABm/8aQO7/KiVy8jgnMqiqVAPThEgIg1Iy + CohaNQguAAAAAAAAAAAnK55ZQES7/1yQ2/8AndD/AKjb/wWw3/+vj2r/zJd7/8qTdv+rZk7/YFes/3J0 + y/9obMv/gJn//4CZ//+Amf//gJn//4CZ//+Amf//Z4X//ypV//8DNf//BDb//xM88f8pJnPuNyc1mW07 + GlSuVQHOVjYKh2I/CFMAAAAAAAAAACgsnllER7v/rLz//32y4/8Aqt3/ALrt/wDF+P98nYr/zJV2/8KD + Yv/Cg2P/tZag/3yP8f+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//3yW//9Vd///GT7t/ykm + eeI2KDhrQSouKa5WAb1+RgWMYj4IcgAAAAAAAAAAJyufV0hLu//Ez///2uH//5G83P8AseT/AMv+/wDG + +f8nrMP/xohW/8yNYv/MjWL/xY5v/5eUzf+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//2R0 + 4f8sOc7/LSlvmDYmLi5IMCgYpFIDeJpQA6hhPQh5AAAAAAAAAAAmLKdRTE67/9rh///j6f//yNP//46s + 8P8Kpt3/AL/y/wC16P8Fqdj/Zol5/8JyOf++eVP/xIFX/7SJgf+CmPn/gJn//4CZ//+Amf//gJn//4CZ + //9kdOH/TE25/y0qb5U3JysxPCszFk47HROWTgZgnFEDtl49CncAAAAAAAAAACcsoSs9PbL/3uP8/8jT + //+mt///hp7//3yX/P8ulNr/AKzf/wCj1v8Jibj/Mll2/410WP/CfVL/xn9N/8x7NP+yhHX/hpbt/4CZ + //+Amf//UFrN/yYwvv0zKleTPygiQ0ErJiNLLR4ZUDogJJROCXmTTQjEXz4OUQAAAAAAAAAAAAAAACIt + vadYXNb/WmDJ/3SG7f+Amf//gJn//4CZ//9nkOz/GIvI/wCQw/8Ff7D/A4S2/xhzmf9xak3/xm8b/8xx + HP/McRz/sn1m/2VlvP8lKqT8QCkp2k0zIJ5KMB5hQScXOkYtGDdZOx1WpnYx4XVHFIZTOxknAAAAAAAA + AAAAAAAAAAAAACEtxDAjLLedJjDE5Tk7tP9ZZtb/eZD4/4CZ//+Amf//Z4/s/xx9u/8Ac6b/AGue/wBm + mf8AZpn/ImZ//3FnRv+wax7/359M/6N9W/R2UTDfTzIdwTghFaE3HxGRZz4Xn4R7YN9yWi6XUj8dKFk3 + FhEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJCutXyMsuK1NTbr+QUa9/2Z35P99lvz/gJn//1Zr + 1v8uR6T/S2im/x1jnv8Ta6f/AGaZ/x+33/8t1vf/W7Os/6SGRv+cfD//lXE5/5dvMeaFaz6wfFchXFM3 + HBxNQBoPSUkkBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkqhh4kLLBwIiy6vDo7 + sv9MVcn/YnPi/0ZIuv+Zn+P/Y27X/z1Buf8mOJLDJEiEcCFPlmAgUpxbH1OdWSVMhjowMDAYNywhETkr + HA1JNxIKVTkcB0BAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAKCmXLyQssoAiLb/XOTu0/z9Eu/8lMcT1JymXhTUmKyg1LDUWMzNECy4uRggzM00HIEBABisr + VQRAQEADgAAAAQAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAADckNwopKpouJCylUTgoOBg1IDUSOyc7CisrKwQAAIABAAAAAQAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/8Af//AAB/+AAAD/gAAAP4AA + AA+AAAAHgAAAAwAAAAMAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAAAgAAAAIAAAADAAAAAwAAAAMAA + AADAAAAAwAAAAMAAAADAAAAAwAAAAOAAAADwAAAA/gAAAP+AAAD/8AAD//wAf/////8oAAAAEAAAACAA + AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGYzAAJtSQACVTkcA0k3JAU7MTsMOS1AFDgs + PhA1LDUJQDBABEAgQAJAQEABAAAAAQAAAAAAAAAAAAAAAAAAAABvQwsDaEIJAlo8FxhNOCQlPi4uOjot + PHg5Kjt7NiUoQzkoLS87JzQcOi46Ci4uRgNAQEACAAAAAQAAAABpRw8IaUcPC2VCEBhePhVQUTcccjMw + gsExKmrfNB4X0DQfG8M5KDKcNiYyYDcmMDc6KTofNjZDCysrVQMAAAABb0URX4JKDKF2RBWfiEgQiEVA + f8g0V/P/OFTm/x0jt/4yLn32MR8t5DQdF804KC+qOi07azYsNictLTwHVQBVAplXDs1ZQSaaTjcjjTg1 + icFVcvb/KFP//xoz1f8MEqr/OFTm/zhU5v81NJj6MyZN6DQfGbs2KDhaOChACysrVQR5YT7lRjAf1Tg0 + gNFVcvb/Y4P//xdF//8SLdb/JzjK/0Ra9v9EWvb/EyvS/yxB1P8wITvaNic1cjUqOwk5OVUFpoxf+zYu + Z/FXbej/Y4P//3SQ//8VQ///AiDV/wUOrP8oU///PGP//0Ji8f8sQdT/LyJG4zgnMXw8LTcHQEBABaCU + cf+WgXr/S1fO/3SQ//99kPL/GUf//wQq5/8TMNv/EUD//yVQ//8TK9L/MkbV/y8hROY/KiiQSDAoBlE2 + KAOLnZrBq24r/5OGsP9xhvD/g4rb/0hs//8BH9X/AAiq/wE0//8QQP//Ikfw/yhF4/9GNUDsQisknFY5 + HAxYPhoBR32xOUqDrP+CfV3/v5WH/9nf+v+7yP//Z4X//ypV//8DNf//ADP//xMr0v8dM9H/UkBB6mQ7 + HK9aOxcvXkMbCwAAAAAmW8bOAJjM/0+eof/Fkm7/i32x/3+Q7v+Amf//fJb//1V3//8cSf//Czf2/zAj + S9hyQRa6WzwYc2RFERUAAAAAc4HiypfB5f8EuOz/Eb7k/6SKY/+9kIH/jpbf/4CZ//+Amf//gJn//3CI + 9v84Llmpd0QXc2VEHKJmQxAmAAAAAJKc58a7yP//g538/zGR2P8Clcj/ZnNv/7p3Pf+9gFr/jpLV/3iJ + 7f9uZoThVD0njW9IHoBzRxiGXEEaHQAAAAAhLcQganbamYCM5f51ivP/bpHw/yh4u/8FZJX/LWZ3/4x1 + RP+jgmTofVw7tnheOKBydVywVUQoIllAJg8AAAAAAAAAAAAAAAAAAAAALji+WlNi2qt7hNz/gYja/4aU + 3/owdLejTn+UlIRrOWGEazkxAAAAAEs8LQNVVSsDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EECEt + xEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAHKM+AARPfAAAdfwAAIS4AADIbAAAuLgAA + ZIkAALP/AADz/wAA//+AAP//gAD//4AA//+AAP//8AT///z/wP8= + + + + 1276, 17 + + + 410, 17 + + + 553, 17 + + + 831, 17 + + + 1103, 17 + + + 132, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACF0RVh0VGl0 + bGUARG9jdW1lbnRhdGlvbjtIZWxwO1F1ZXN0aW9u4JPMmAAACjRJREFUWEelVndQlVcWJzFZ07PZmc1s + +W9ndmd2dnY2u5OZJJvEioIFGypNAwoCUhXWShEEfFIEBQWkSQlVehUMnffg0R48ioJ0EAJSBAFD0d+e + c9+DUePM7uyemd+79/u+887vd849936fxv9hb7wG/5vFZTZpxBBiBRQ0V4gxNr1RICZdwW4rJG+qseY1 + WHkmfCNv12lEptRqRBDCk2kkhCfJNcIYiTXkorZoIgHwWpCtkK65HlP62c3EGvfwlFppRHJdQ2RK/XLE + 7brl8GR5IwWVhsRXXfQLzfsH+b7F/ur/vvG6uCHxMnqktqjb9T9zIFvJeE3w91X7w5JrO5Jym1HXPIiH + ozN4NDmL58+fC/D84Y/TkDcNID5bgZB4aefViGID+u/b/H+O82r867FVdFttXJoXH5KJrC9fz/5DaHx1 + TfYP7Rgm0hVj0uVnz7G0/AyLS8/EuLT8HM/oHtvw6DQyi1oQeKtCftbz1h8pFlfkTXq0ynHtVjnzqCw0 + oeZV8jV+oXc0QxOqJ1vuj9BtJgUWFpfROTSDgsYRJFUNwierE5LMDsSW9SO9egjN3ZOYmV3EIvmxyKb2 + YQRFl0+6+aVqUUyuxqoI//BS5lJZ8Peyl8h9gvM1I5LlCw9/fMzcIkNl7xQCC7oRkN+La4X9CCwaIPQj + 4E4ffHN6Icl4ALfk+/BIakNl6yiezC4IwYPDU7gRU7XgJEnQptirInxCi5lPZYHRlTyIsrv6Jv3pRmzV + +I9jqpLP/7SE+PJ++OR04RoRMrFPdhfcb7fDKb4V5+KUcIlvw8XUDnimqUScjm7Btcz7GJucw/zTRdEf + V8KKJ447Xv0LcbCINyQ3CplTZf6RZTxwp79NjjLlvWFBPju/iKC8LngToX9hH/wKeuGS2IqYwk60dI9j + hp7PPl2ConMMQRltcIxsgnPiPZyPb8e/IklYdDOGHz2hOAtQtA7C42puNXG8R1jZIavGF29dDMgyjE2r + FeRcvsi73fBMfwCf3F745PeIbOX3RjG/sCwwt7BEUI1Pyb+2fRR2IXU4G9sCx6gW2IQ04lKCEhNT85ij + SoTHS+HgGm1MXGsJnPCq8cVayfWizr6hCdHN0rYxOCe0wTOjE5eye+CS3I7YogeCbPanZRL4DHF57aoq + 0DXfnycRycUPYBvcSNVQkphGmAXIkVnZi/GpOTzoHYOTJKOLuD4g8M4QVRDZn7oYpxWeKBXZz8wtwOX7 + FjgltsM9tRPuaV2UURO6h6eJTEXUS3N997to75kQy/CEQc/GKFsz/2rY3WyGVXCDEGBxRYbBkRlMTT9F + UFQxzOwDdIjzFy8KePv85VT/CvkDkX0DrekJWs+zCe1wpqZyTumggA149PipELBIuyJH2ovDl8owPD6n + IqcScyWeUEWMfaSwpipYBNXD1L8GRl6VyKzowcjYE9wtb4PtuahA4nyXIJaBf95x9s6o6ul/JLo2LK8D + 9hEKnIppxZm4NpyhprInQTdz2jE0NouKpoewDJDBN1GB6fklgRkSwcKqW0Zg4iuFRaCK3MSvGoaeFfCM + bsTQyDQaqRntnWK5GT8kcDMKAe+el6SPT888xaOJObjcUsA2TEFVUMKBtpRDdCtORilhHdoI8yA5oZZI + KtE5OEXLtSgacIkqNzD6BFYBUhwl4qNUehPfahy+LIXBxQqYeJWjZ2gSnT1jsHOKmyDOjwncB0LF+2c8 + bi8uUwaDtGf1LpTA8kY9bG4qYBPWDNvwJtiFN8OGRlu6Pn6jAZcTFHgsyFVHcWLhfXwnKYMxkXLWxj7V + OETk+lT+/RdKse1kPrr6xtHVPw6bczGLxPkJgc8EIeADR7ckIaCXdsGe04XY61QC88A6WFIjWdJ6ClBX + 88gZxhZ0qDKnd0A07Qa9i+WCXBB7y2B0qQoGnkxehu0n72D7iTx09DzCve5RHD8dxQJ+9ZIAe+f48cfT + 8+gemMChC8XY5nAHu88W4zsKaHqtFmZqmJIoE78aOAbLMUgvqDbaBUYepZStTEUsIWKvCiFI15niEPlW + 21zoORXiXtcY6pUDMDsZxkvAAsQScA+8f/zULVlH9wh6BiZx4koltOzzsd2hENsdC7HPmQi8pTAmYsZh + PxXRQfcyHHArhSERGlKpOWN9DyJ2LcHO00UUIw9b7fKgaZ0NW+8ytHaOil1gbBUkJ85fvijg3SO21wML + ipUYeDiF6KxWaNrkQvtEgchAgMTonLkLXRcipabSpXXd51KMPS53sZcy1XUtxa6zd4VgbRKvRcRb7XKJ + PAcbLTMQnKSAkt6ssSkk/IgkhDhf2gVr9x5y3e1xJROj47Oob3lIa5aLrSRiK2XBQrQI2ifyxZxLaiEp + QWXzMGTKYVh5l5JvjppURbyFrjdT5psts6Blm4VqxYB4PZ9xT8TW3Sf0iJPfCcytOogIHx+xCelWtg+C + vwH8Yuux6Xg2VSJHBFSBgpOgjZaZ6KAtOEYnGx9MwyR6g0U6tpCwLZSxpnUWNltlC7/15unwjqql/T+E + 7MIm6Jle6SWuXxNWT0I2VvLeHiPXY24+aWK71LcMwcj5DonIgiYF44y22KjGDRR0iE61BfoaYvB8/bF0 + 4bfZKpOQhY0WGcLP4Fy+yL5eOQQH5xjK3sGKuFbKvypgpQqfGJgH1N0pUaKBFJfU9EDnJBFSsE3HKTCJ + EcFpTe18SulVOyvA8xUffsbzdcfSsMMuC0XSbsjpOzIivgz7Dl1qIo5PCfw2XCXXMLTgo1nVjF9tPPyV + ic31ySp6L9QpBylAFwzPF4gMN5pnqDJjEvNUfGt6W2D9sVSsoyXgcq8n4nVmqTA8m4+Cik7UKPqRWaCA + gan/1Gdf7F1HHPwmfCl7DX2zqzzwDd4WH27cYb3f1D5kMY92BX/pVtX1wStMhi1W6SL4OvM0IiMQmQDd + +9YsTYjZbJkGj5sylNf2QNbYh5TsOhwyv7r41aYj/JXMW098Ee02ktCgtoNH/V/8JhQNuU7L4qC+WcDj + uFQpBeqHrKEPP8i64XtLDlO3Qhw4lYtvjibjmyMpYm56oRA+UTUoqupCVX0fpPW9CIkpge53l6e/3GBs + SDH54BGNx1y7DDxpqjZdY98XBayI+Oivn+/8YreRZ9Mp1zik5tZT4F4RmFFVR1CPlXU9BB5V8+SsOtic + jsCOAxea//y3Lf+kWHzur3S9ELBTz4Omatt7yFsIeEUEL8f7hE83aFtb6xh4DZjZBUNyLQsJGXKk5TWi + gsrMSKV5fHoNLgVkwsQqCDsPug98vdncjv77WwJ3vCg7Y4Vn2wE3ulTbbkPJqoBXRHCzcMd+RPjN518b + 6GjqOAZvp8wIHbsMvLBL3xPb9rt2btvv0rxpx8mQv3+5fw/5/o7A6/0OgRN5iZyhretKt9S2U89LQ0ff + 82cge1UIdzCXk7cSZ/d7NXjO93id2Yd9V4m36V7QENjnKoi197loaO11oUf/va0I4a3KgbmkTPIi+B4/ + Yx8G+/8H09D4N5NlWbdRYGV2AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACt0RVh0VGl0 + bGUAU2V0dXA7Q3VzdG9taXo7RGVzaWduO1NldHRpbmc7UHJvcGVydDgftSEAAApzSURBVFhHnVdnVFVX + Fr7WkGKmJJkxa7ISgyODiUQdUSMKFkSUGAU1gqBA4mCJDQyg+FAJxRIBUVZQo6CoCKigFJH+6B0UEKQL + 0rsIdlx7vn3ee6iz5sdM9lof5917zznf7ucg/Q4ZBowARgNqSrwFjASGA/+/HDgW/N/hw7gkeQDuRy/x + VEFuv+/4DDevi+TqdZ5cPc+Ti2cgLV258Wt8YyWG7Tt8Vtp7CDgYIDkf9JdkHmekPR6nBZzcf5N2u52S + drue5P0UwmQvBl++AQiTCbz2ji0cJTtw2is1q4SePR8USMm8TassbI/iG3uD5wytVT6Ld719j6TevgGp + +8GA5ODih1dKeV0BiGoRu5kt4lG1CT+/s/ewf1ljSxf1PnxM7d0Pqba+hVavsy/HtzEAh4bnMV4P0yhg + eBfIu3r7pZ/2+uJRKe4+QW+QG3675l2XI+eigXg7mbcO3ok4r7NxmLDb1c/D0+8yPX32QpA3t/cSLKPN + tu60xMTmkLGpzUTMZUXGWG3cvXCn87EkO5nPzfEaWh/iHSs0vLOnX7KVHcNPpbh5Xxxy8SKQu3kHxpRV + 1lNFzX06GRhJzh6nb+xxOxV22DdkMDo+m1rauql/4Kkgb2ztofsAzz8VcJXcPAMHbZ28o2z3+CR7nwyl + wuIqyi4oJzvZ0YRx47/4CBysxLAdu72ZTyE/e13gga0fse+wf3RZZYOwsP/RU3r85DkVl9VSTmE5DYjn + Z9TTN0CtHQ8EcX1zF91r6qQ6oKmtl9q7+ig16zbl36oU8/j7rbv1FBmXQUuMbWLB8Q4wXN/oe+ZUiMuR + QB5YgZF7D/pHlJbXCbLuB4+oq3cAGz2iB/2PCfGj1s4H1ATL77d2Y3MQN3ZSTUM7Vd5rpfLaFiqracLv + NvGutKqR0vMqKKuomsKjUslg6Q+J4HgXGDHf0JI5FbIfZaMMwYgtDoe0j58Oe/no8VOQ91NHTz+sekht + nX3UAqvZylfkHVTd0EaVda0gbqE7VU1UfLeBisrrqaCkjrJvVZM8p4yK8bxhqwtpzzJaDA5RKXMN1jKf + QmA1FBjkn5zpbzm6+MXculNNPbCYXdoGq5s7ekGOeLd00z2Q1za2U3U9LAd5eU2zsJbJC8vqKb+kFuQ1 + lJZ3l9ILKijkWgLNN1wrx94fACIHdBeYY1CKDA3i+YtXCtjv9Q3LyC2lXridY93CyQbyBiZHrDmuze09 + 8IgiCfndneomkN+jPCV5RkElJWWWCgVOng0nvYXmN7D3kAJKDIkoP2CkmbWt5s9Hzg32DzwRIRCZriJH + vJlQnlZAdrsOkfHqrcAWsnM8TDeTc+hOZaOId0ZhJcmz71BcejHdTL1NOcXVtN3xl5df6xlpg4OTkHsE + 8wkl+A83G24Ub2/f5ekdFplCnAPNHT2CsAFNh63k3ycDrpCewdrWmbomNppac77U1NKZ9LWeycb5S6xa + /U5fpsI79yglt5xiQRyTcouik4vwXEbHfrvK3ZL771+B9wHOBeaVRlhvcv5ym6Onq63saOH+Q/7U3NpJ + 3ch+LrMGLjNYfq+pi+TpBaRvZF2jrvHP8VjHlrA7+SB69/MJUzQWG9tUJ6TmUwoS74ZcQR6ZWECRSYV0 + U15Am+0OkJm1Q9ly0x8958w3mYF1bwPS6J2yYxQZm0FVtU305Okz6ut/IrK9HqR195Hp9W3UBGW22LnT + 7AWrf8AalRuHQge8N9fAbP1PMk94oY6iQBqRmE/X4vMoLDYXYy6l59+llKxikROmVo6ENX8CJLUdTkdB + /BxZ/4hakPEcbyavvc+ZzmXWIhRYaW5Lf9ec9hnWiETint7R/ZD3EMn76biJn69d7yRKMyIB5HFMnkNX + bmZTaHQWBUdl0uWYbErLvUvfrbVnBf7Ci9W27fIUCnCpNTQrMl1FXgHycjQXrntTSweaMFF7HNawAsPb + u/uktq4+3kMo8Jn6F+pWG/eKkIXH5dJVJo/JohCQX4rMpKCIdKEEJ+cKcztWgPNBemv9Vle6EpGIhlFL + 2FC4vaq+lSqUna0E2V0Dq+xl3mS4zJp7KHczVSarQjDmG5N/2ew7cEoozlZfvsHkmSDPoJCoDFERQeHJ + uEMEkLHZDlbgz4A00vDb7ycvN912cKWFXemGba5UUlYHy9HdUNslFffpVnkD3UaTiUspIPP1TlWTJuto + YN17gOqoHTNpio7m95v316Rml1B+aS2FgpytZXIegyNSCfvTvMXrKmbNXXFs4ldzZmMdGzJkgdhI38jK + 1/fEJXS6DgU5OltBaR1quYaK0GjOBceQ9ab9bSZrtmyYrrNIa8bsRVorzLdu2rDdoy04PFF0RU4+QQ6X + X7yWilDkksztBIHYHxyfAJx8XAHMK0SVzaP1l6yZvNX+8GAj+n0Rt1Umv11DmUVVor4z0NniU4vI+9dg + cth3nBz3+9LRE6GUmlMqyOPTSykYVgddT6cLIA8MT0Ey5tLSVZtfqmtMnQMOviuIywkgGpEEi3jgBxFL + U2vH6xExaXB7PWVyV0Ndx6WXIIaobXmRaDJZRZUIUaPIFSbOuV2Nms8XLr94PY0uhIM8LIVCkHxuXmdp + pp5JPPYeC7CnmUtBzrJugzMPQwp8t+6npPiUPCpCPcdnFFNs2quuFpVUQNdRYq+yHCUm4p2hcDnIzyvJ + A64kCy94+oXQ9NnLM7H3x4BQYMoMIwxKsVjvxAMrMHrRUquFDs4+4shldyvIiygajYW7moI8j67ezEGW + Z4ssFy4Hucrl567KKeByMp0JTQISUQFZZGy6hdQ1tI3Bwck7QmvaIuZUiJn1Lh44JmorLWzj4+V5ogLY + 5TfY5ajbOLj9eoKiq10BeaiSXLg8Ai6/liasPhcmR/zxG144HZxAvwEBUMTDO5C0phmkgOOPAHv6VQi+ + s7TnQShgbLY9PiYhS5xo8SCWI/HOXIwmH9zvYtM4DIWwPlu4PChCEe/zsPo8rGeFQvHe5ZczdOj4BYQk + Q+GFkARyOeJPX0xZkASOPwB8CL1SYKXFTh74xaixf1P/cMWa7QmXwhIoMDSO1tk40VwDi1TdBWaxqy3t + Xzq7n6CgaymizITVsPR8eBr5B8fSNhzL+kaWL6fONEqcMn1JJv5ZIXevQNoPhbSmLkxVe2fMp+Dg8huu + MWkucyrExGyHhJsO/xSl+MFHn3yEK1Os7kJz+eTpi/gaxReJDzQnzZqqZ2DmA0UoBqcdu/ws4s1dz3DZ + D4S5vh9/8o+ZmMvZ/vG48VONYXWa5lfzktTeFuTiPggM0/hSF4NSlq3eJtU3dUro4fwolAD4xOMFnLX8 + rHo3FkdyVUxynki4QCjgFxhF2jrLq/GNmwzXOa9hcMJxzNntbLkgR8lKbyjwzaofJVwwJdzzJNxm+RWH + gxXhBTzyM4OT531dfdMT3r8GiY4Xirjbybxo0lSDU/jGHY6bjGo+r+c1Q/vgxiQx3lBgickmSU/fQtLV + N5fmzFsjzZ5vJqAzz1Rg1tzVPE2llBpcvWDBYiuaD8xbbEnzDC1JfYL2QnwT8eW5ugYWGIYUES7/T/we + UVnFoWBr+TznI5VPNdUJyXP+R5GkfwMPT3OfchuhBQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0 + bGUAQ2xvc2U7RXhpdDtCYXJzO1JpYmJvbjtGA7noAAAI60lEQVRYR8WXd1RUZxqHzWaz6ZqiJrFEowYE + RVRAhYGBoQ1SFGRVEvvKqsGCx8AqqBQVNLoqxY49alBEiggaiUoHUcqAdFH6DEVEmuSf377vHQbBWXfP + 2bN79jvn8bt3Zpjn977f/e5cBwH4vyKMmuA9g2qC9vDhW/+GP/wXeKs0wJemfqP6QCBPKsEfiXeIP73G + u2/gvX/B+/3gc/48fz97BgyWv53js9myItA3u3K3Hyp3++IxE+gLeg0VAcQuH2I7ylXs3IbSHSq2otTf + GyWMnzeKGV8vFPluIbxR5LMF+Vv/9jDR3U1KLi6QnX2DT96p2Lld3nb/DnqqCtHztAA9T2ToqcxDz+Nc + dJc/RHdZNrqLs9D1KB1dhanoyk9GZ+49dOb8ho7sX9GRlYD29BtoT4lFW9I1tN2NQFtiONpuXcTzhPOo + PxuEvC0eCnJxNwZ0gU/eLaOknbmJeH7jPJ7HvaL1+jm0xp5FawwRfQat107jWeRJtESEoeXKcbSEH0PL + L0fQfDEUzT8Ho+ncQTSe2Y/GU/ugCNsD+bEAyI/sRO3fvZDrsZGvvA+Jt1msGhzgvRJvT7SnxZDoFIl6 + iTqFZ9eIyDA8u0rCiBN90maWXjqMpguhaCJx41mlWKESH98tiBsO+aM+2Bc1gT8ie8NaDvARoR7gkedG + vEiKIAkJBKiyK8Tlo2gOJwThETRdVElD0HguiKQkPk3ik/sgP/ETVRyIhsMBJN6B+hA/1AdtR91+bzzd + sQGZa1ZzgI8JtQDvy9zX0ZpdIgm1UgW1telCiBJu73kSUosVZw5Qi5VSRdheZbVHWbwT9aEkDmaxD4m3 + om7fFtTs8cSTbT8gbeVKDjCYUAvwwQPXFWiNP08CWr9zJGB4LYnqQwG44eSA8/oGuO3ijPojgSSlNpO0 + NmQHbjrPwcnJUxAltUBlgCdqSVzD4p88Ub3bA1W7NuLxFlfcmb9QFYC3Y9/gNB+kOjpSZVTNCaomjFp5 + kgQn9qA62B/RUitEevogISYFEavW47qDDWqoyhqqMnq2FS67rkV8dDKuuHvhF5EhKnzdUU1rXrVrE6qo + 9U9816F4lTPiJFIOMIRQC/BhssNc1O7dhEqPpcIVW08XEJPgZI9oL3+kZleg4kkjissbELnGHbG2UsTO + tib5OtzLKEFxRQNKnzQhmoJGWZjhqf8GPCVx5WZXlK6eh/yFlogxMecAnxBqAT66Z+dAqTeg3M0Z5T84 + o+LHJaja6Y7LRkZoqJajsqYFrS960Nr+EqWP5UKIy39dj7vpJSihYM0vXqK5rRvPFC04raNLf7+cxM4o + XuGA4mX2yJsvQZRIwgE+JdQD/Dbbga5UN5StdkTpKhVOSHS2R9q27eh++TsFeImWNhLRXPJYgcycSpRU + NqLpebcAf+ae52bE2VigiKRFS+zwaKktHi22RY6jGFdnid8Y4OPbUntUbluFElcHYg6Kmb84oMJjBW7a + 2yDDz08QCDKqlOfGfnR3/44Ub29Em4tR5r5YkBYutkHh99Yo+F6KB/ZGuDJDCPAZwbfjvsEBBt+ysqUr + dQW1zA5Fy3tZxrM9yj2W44bUHEle3lC0dkJBQkVrVx8NzR24u9kL0abGKNu4lKRSFLhIIXOxgozWPn+B + Be7PnoVwPREH+JwYEIDbMTjeXIqyTZxcisIllHyRlI5nEzYooPmGpRhRq9ejsEwBRQsFaOmCnKgn6po6 + EOe2EdFiQ+QtsISMhLI/WyDfWSKQN88UmVYGuDjtzQGGxJlZoWSdCwq+s6KWUdtcLIVjriDOzBDXaPsl + JhejoFyB+maSCnQI8rqmLuSXNCBipRuuGeohx8kMeU6myGUcTZAz1wRpkmn4WdeQAwwlBvwicoBPYsWW + KKbtIqOrNX8BMd+ckOCWpTGi1mzA7eQiyKh6pbADnV096CBqGztQ00teUR0iXd0QI9JHjgOJ7UV4yNgZ + IUWsi3M6MznAMEI9AG+RAtoyefPEyCXynJRzlFiEirIa5Jc2CLJaknd09iDL3xeZfr7CcbWiQ6BK3o66 + agUu6U3HA1tDJbT22dKZSDKehNNa+hxgOKEW4NNIQwlktNYP54ioZYSDsVDBr7aWKDx6GG0dPdT6TkGY + vcMfCdZmiLcyFYK002vcFf5MXkgwrpsZk3QG7lvPQBatfZalPu7M0sZJjemqAPyUNSDAZ7xFchdaUOpZ + QuqHPFMFsqVzEE8yDtEllyPb3w83bSQoXDYXhfReAofw80GnvAF5oSF0IRohx8VWkGZaTEemOTMNifqa + ODFhKgf4ghgQgNvxebg+Xyxi3JcaKLE2oCoMhDCyJXORaGeJWIkJ7jhYI3+xvbIyIn+RHW7bmuMq/QbE + 007J/c5OkGeYTkOm6VRkmOkindb/9tQJOPaNLgf4klAPcHG6CPfpZpFFqbMs9IT0fMwVZFErZYvojrbS + me7pUmT1ViUgmU63WSsULnek9+iGZaaHDPEUkk5BmojRQRqt/02dcTg8VocDfEWoBRh6QXcWsuhiyZBQ + aoaS981chVDJVKSb0mxKAhN6nUXGfKyDdEE0GWlGOkg1nPQKWvvUmVpImDwGh0ZrqwXgfzjAMN4iGVQR + f1kafWmamL5UOKYvNabZhGeCRKk0pxoRLBApRSkMyVIMtZBCwpSZE5EyQxPJMyYiyUATcVqjETJiIgcY + QfAj+oAAQ09r6wttSxVpUxWUuh8pPHMlvfQJZtK5IJpIIqUsmWRMkoEGkvS+7eO65igEfanxTzsgbMMw + jWnyGB1N3NIdhwSdb4ixiJ805hXaXwvECefKY+GcoeoESBI3kdAcScJeNEYQIxE+djT2DZ/Aj+V8IxoQ + QHgk2zpac9HR8VOajo/XBXNs3BS6anVwZOxkgcNjJgkc+loboaMnIXSUFkJHEiO0qLXEV5oIJoKIg1Tp + wS+I4Ro4MHwC9g//FnuHjW9eO2TkUnKpHkqFADxUXeDndf6h4H3KW4Vb9Tq8fq8z8g2M6gef8w2Inwd5 + yfvkPPhE1Ql+k9vzOv3/P/ifoPoeVeUDAqiG6o3/Nb1j0KB/AMYUfCkDw9hpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0 + bGUAQ2FsZW5kYXI7U2NoZWR1bGVyO1ZpZXeFqTJSAAAIT0lEQVRYR6WXeVSU1xnGXRKTaGLSffm3f7Q9 + +bOnqcmJNWmNmGoVE40iYRcB2UGRRRQRZBGNKKisgQBWOK5RqycqAqKI9dj1HMM2+z7MDMwwDJt9+r53 + 5htmirQ57ZzzO/f9Zrj3ed5733vvx4LnfXIO1yzILqjmcBGx2MNC/uK/ff6fvt5PRt4pbhYlZx3vIBCT + criLnpcQPNA3YfE36DvnI/3AzpmXY9NLcf9JPwK3p4OeXyOkjF54Di/6sOzf+r5BsAmGf58zKwu7tm54 + vyco8FHPto1grq19D1VRu+D4J3BgbSAurF6Jrs3r0PXR79BJdGz6EB2BH+LuxrVo3xiA9g1rcOf3a3B7 + /Rq0rlzh17fp7V/i5trf4EbA+7i6etXjllXvfECabNprYlF30CaLvu4Y7NebYb/aBGXdUZQH70DBiTbs + XhWAvsoijFyow8j5WtjaamBtJf5QDevZM7C0nIal+RSGv6jAcONJ9JXm+vX928EMGE+XwUAM5GXgym/f + s5ImzwbPtHCx+N7m9bBfa4Lp6F4YDqfg78nBKNsSgorGG0j41So8jvkE2tw4aPbFQpMdA3XWTqgzd0C5 + JwrK3ZFQpEdCnhoOeXIYeoPX+/Xt/DgAAzu3oT/qEyhzknF51Tu8LK/4GeAptX/ZAENhMvQFSXiaHoac + lb/Ghp/8HBFvvom/JgZBkxND4juhyoyGKmMHVCxOwoq0CMhTwiFLDoUsMRR/Dg1E1op3Rd/Qn/4MD7eu + E+J9kVugyEzExXdXsIGlrCsZeOHOhgCMXiIDhxKhz0+ALi8eppN5MFcVwVi+fzbrvdFQZkhZR0CRSuKU + tSwpFEMJIRiKD8ZgXDCUuanQHNpLGSehL2oL+sI34+vwjyHPiMf5t99iA8v8DNxat5rWuB66g/FCXHtg + l3u6KWs1iUtZe6fck7VcZB0CWfynGCLhwdggDMQEoT96q8i6P2ILCZN42Ed4GrIJsrRYtL71izkGXjxa + 143pmWeYmPYwNQPX1DO4KHZNEvQ8zkxOEzNwThAUO0VMLTHm0zokXNOwM+Nu+Leskuts4FU/A2W19zBJ + AvwHflBnh2uKBmF4kCmMSjinMOKDTTAJ69gkbAS3jMXBTAj4+8yia2xAOleEgSWlNfdE1v7OSZRcs5Bt + jDtPwOpw0UAuDNvHYR51wmJ30Xf825RX0C3qFhxm7LPwbxmFX/oZ4K2wpKSqU0yzW3QKTVf+gkZihDKa + L64+9whVZ3vJyLg31podMBSnQ1+UBrPBDH1hKnQFqTCTuHnUbXZ3wRU2sJzgw0gYeKn4TIdYYzbA09tw + 6QkaLj4RHeaLT7X0orKlB3qL3RurTQ4STSHRZJh1Jujyk6A9mAjTiAtGgmckLf8yG3jd18DLhafuisKS + 1tVgHYeeGKbs5otVJKYyOqAzj3pjxqQ1eTFqjW5I3ECYRyeQcvDSXAMFFe2i6HhquZhq2v5EPCLnznnj + 8ob7ON7QDY3R5o2VBjs0++MFRq0B6pw4qLJjYbCRecJEy5B84CIb4AvKa+CV/BN3hAGpiKrP9aKKMNqc + 88bHPu/Gsfp7JGr1xnIyoCZBdRaJagxQZu6Ekg4vnjU9GTCSgaT9F9jAt3wNLD1Yfkusv1S9GvMYQetp + ccwbK/SjkBMKvcUbyw2j0Gv00KkNBLUqD2RAZ3WKZUjIPc8Gvi0Z4K2wNO+zr4QBsV3IQGVzD0429UBH + QvPFR6o7UErIdcPeWKYjQ3w/0DGtU+rFBSWjE1NrcQp4GeKz2yQD/G4gDCzbf+ymqH4z7WsulBOND8S6 + stB8ccnpuygmlAabNx7S0iyIIzoMGoVeXE58R2hIXDPsFDMRl9XKBr7ja+DVfWU3RQGaSJy3DBeTwmgX + jjVmuxBR6K00zVbItBbKdFig1NtoYAcGNSOCAY0NahLWKHRQy3VQybXUEiTOCAOZ59jAd/0MZJf+UVQ/ + bxculKNUUGW1XWJdS2tmp7fkDGVa5c60qLIdhcSgdgQFlbeQX3FLGBiM2y5gcXEx0buAmmpHNTwmliFm + 71wDr2UWXxfVb7Dxfh3HkZrOWdGqDu/0FtF5IUQp24LK2zhUcRv9ahvyqYjzy79CH8UDMfTyEb0NKpkW + /TvoRiSUJjJA8FLs3HOWDXzP18DyjMNXRQFK28VdtRJUQB7EWnrWU20Z80ytu1VRllKmHCslSJhR8EFF + z9FuA98n+LVMbIXle+iCMJKwljrz4Lzd1GYaXLTuAcWgIhMayDOokmKFgAQ8sdxkh5zEZrFDRq2M6orP + iajdLWzgB74GXucLwkhTL/aynjpQKzFEy8BLIdONUMzwd1R0PgwIaPqpHjjup9aNDf1UF9zy8ijYQHrz + HANv8AXxNf2B8xm9YHgYm3HjmKHreZraabqip+h6nqILa5Kho5ta2wQd34TVRYzTVTxOZ4mToS09RtC5 + YmLoCu/9hw6RaU1s4Id+BhJy2nC86TGO1D9CWX0vSuuI2l6U1DxEcU0Pis48QNHpByg8fR8Fp7pxiMiv + IE52I+/kPeSd6ML+8k7kHu/EvmMdyCGyy+4S7cg6wtxBRukd7PusA58m1PkZELsgNrNl/HL3IG4+Vgpu + SG2vO77WKxMxtxJXeoYE4vnh7PN/orX9KYJiq1yk6d2G4jLaElmyNXrPF6boPc1Upc1UKE20Vo00XURq + AyJSG4kGhKcwnyM8uR5hSfUIZRLrBCEJtZSdh/gaBMfXIngXtUxcDbbHVSMo5oz5g8CMUNL0eyfkgP9R + 4Duaj0h2J8H7VYK3ji9cSBI8pb78yIcfe+CYx+TXMc6etcWHA54Jrgf+4Xnwev0vvOQDP/NYnDBpLlj4 + LyAMut4SBqhSAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACx0RVh0VGl0 + bGUARG9jdW1lbnQ7TWFwO1NjaGVtZTtEaWFncmFtO0hpZXJhcjtOZXRODypEAAAFXUlEQVRYR62XC1AW + VRTHVystHTHNZ9o4ptlkhlChKAgf+PGB8hDEV6mBgWCkKA8FeZgPCCM1Hw3RBJll5AN5SjgKAj5KE8Ix + CUQ/IEwUkmAUmxqb+XfOuvvNSpeapj0zP+7ec//n3LN3v717kQD0iMB69UDvbn2LifJqETpVNMZJHyEe + I/oQfTU8rsDXPPYoYSlClFeL0KmimDx5RHq5KT7rUmXiwRqoJDzUXkZ81sWq8LRSd9JzoXIRorxahE4V + xXh5+6774mLrqYZOmO/+KdNw9z4auu7D3EV9bql/qrETrCN9PyVOmFeL0KmiGCfqvzqzCpfaf0fFjXso + vd6Fkz/fQxlDfeZMy2/4of0PhGdUcaAVwY9MmFeL0KmiGCcasOi90yhrvIOc2l+RW9eB/PoOFFztREE9 + QW0+tRVNd7AwpYIDBxH8WxDm1SJ0qijGiZ7021KGzG9uYHvpT/iY2r0XbmF/dRv2VbYi4/xN7K64js/O + tWDOppMcOITg34EwrxahU0UxLmCwz8ZSpFU0Y0NBPTYVXsOWIjOSis1ILm4gzHI//VQzvDeUcOAwgt8I + YV4tQqeKYnwnQ7wo8bYTTYjLuYKEvHpsyL+KjVQI807hVbm/o6QJsxOOc+AIQrcCONGwWfHHkVR0DesO + 1yE2uw7rqZC4XA3UT6ZVcF9/jAOfJnhfEObVInSqKMYrMNw99hgS864g4kANog79iOhDtVh7uJYKegD3 + eWWMMcUcOIrQ9REMdY0uaA39pOrBhLQCsdlXEHukFjF0HZPNbS143BCR10Z69RH0EuXVInSqKMavoZXt + gq2Bhsj824aoIjAuUUepJSKVNqoQTmvy2q39NweRfqASp0sBvKXyKnDSkcQYYizxLDFOA/t46XkPkO+e + EObVInT6BsRLc5bGcTwbJ2L4dVQ/Pk8wRt+3uUr5WvHzuPoxkgtw8lguzfAIEs7DCJ3ei9cTMRyvNTWp + hZm+K7mAv/kJizmYlkkOxkDhPIzQ6blobfWshVHwWBAJj3lrYPJfDdPccLj5rQJP6uoTBlfvt+DitQLO + nqFwnh0CulPQncLR9CYc3ZZhujEQ04wBsHd9A/YuS6pF8zBC85gX0cPIAzN4hko0qeQ0K5gmDZYc3YMk + mlSiSaXpMwMkmlSyd1kqTTUslqYQds6v0Vz/oQA331Xape3RHOhOqflX3SsOC3vWpZUYueEB/uzyq8M/ + ou5oj1x66mTrnXJwhnHnUcOFXcWu2PU1wW2xi9zuLDRUbtnvYCJdn+QsRzcddVyIXESf1FynW9XNH+Jm + Vz6Rp5CDFuL75p1IzXHmU46VXrr3c2Udv7a8ElK/pIOOaOz8HDW3U3GpbbOFy79shbkjE0lfOfIzHK6X + LvmArLOcmqwS99nTaSYMJeZAlDetwNnm1ShvDMUJ6p9oCEbC3qkcMEYvHY+TbjAhH1oGRafbobBuPjIr + p8hkXLCj1k5uj9R4IzLtVQ6YoJeOx0lnObQMDf/AFtmXfZB+7mWZj5hvbWW+rHZH2DYbDpikhy7rojtW + 0jjp+LsinxmGh6S8RAlM2HPWBnvOTMZuGWvsPm2NzPMGBCdZc4CNHrpPvzMgJGUy60YTcgHDliZObE0t + moYdFZNktpervIh38+3wetwL/I23Jl3b/9WlFNhhScJE1vGpSX4EA53mjw7yixzf7h89Af5Rz4GuMTdi + HPzWjIPPyrHtU7xGrCDdmBn+o5brobP3GRlCOsvRnavgzjPEeGIC8bwCX/P3n4/ZA4inCD10PM7LL+8D + /Icr4Y2B/6Xqr4H77OciWcOvjR46Hn9oO1b373+CTeTvDpvI3x0ySfoLXBkamf6BV/AAAAAASUVORK5C + YII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABZ0RVh0VGl0 + bGUAVGFzaztJc3N1ZTtTb2x2ZS21WJQAAAl4SURBVFhHlZcHVFRnGoaTWNJNNGaT3T1rL0lgLVlrFJKj + Ro05EQsqIE1QESuKsaHYCwIqogSVIkgX6WVEUYp0EFCkFwcQpjCNmQGGAd/9/iuYPTky2dxz3nPh3nv+ + 9/nKX+YtAJz+4vU2aRBpCGlo39/s2f99vfbVAcAGfJPemW24fNiBMxEXnN0TWp0vJLZucrx28euphp+y + d3/49o96fekCYB+ygVhUTCzCD0nD+jRit3OAl39kHvKfNiK3lI9Lvvdgbu9+jd59QfqMNJI0nPQ+iWVp + MKkfjrt0AbzzONhiQUWkTX7lHRs0FYXDyTUeh1zicPB8LA6ei8aBszHIfFyP4moBsp82ISGzAo6nIrHn + 5G3sPhGOXcci4HA8DMX3/FDgZ4oiP5OClDNzF9HYr0s1EAB7Oaji9gaBquUBXnYWQiGpwo7DN5FFho1C + BRpa5ahtkaGkRojUgnokZtUgKbsaj0obUVDRgtyyZoQmFsDI8jjyclIgaUyApDoS2e4GAhqbZeNPAYZU + RlrjpaYBvYo4NBb4IeA3V2x28MBht2h43kpDUGIRQpKKEZ1WgcjUMlyPzIFncDoOu0fBercXlq87gNNH + DiA56DxENeHQKKtRlXCcmbCSDDoZPkcnwNCKcAsCqEWvNAwl/ishkytwP70QR84FYvNeL5jvuAwTu4sw + tnGHkbUrVlqdJZ3Bertz2HfUG4HhycjILkVelBtkL7JRzg/CjajVMHWcNJnGZ/3w9kAArFGGPgtdj5dd + 1dBKglHotQCabi2k7SrkPa5CSHQafIJ58L6ZAC/fWHj5x+JGYDxuhvEQFvMQSakFKHxSgxahBEX33BGc + /Qt4FbvwqPIqDvnNLPrRbBSbLToB3i0LMqP6V0ArCiSAH9DT2wt1pxbtHRpU1rciI78KabkVpHJk5lXi + UWE18oprUFTWgMq6FgjEcpTU8+D10AANshhItQ/xVOiBAzdmdG9zn/oT89EF8N7TQBP0dJRBK/BHvuf3 + 6H35Eh3dPVBrtFB1dqNJJEdFnYAkRFWDENXPRajhi9AskEIsbUd2ZTj8MpdBrilGS0cY7tdb40TQfBjv + Gb+CjU/SmYH3Sm+uRY+qFJoXPsjzMKQMEICmh5OakxZtig4ylKNZpCCgdoikSkjlKqQ+8YZ32lJIOwtQ + p/DG/boNcPKfg6SI/cxkBImtKzoB3i/xXY0eZTE0zdeQe9GAA2CRq7u6ubuK7qwcUpUGYnkH9UcnZNQj + Mfln8duDZZB1FaJa5on0hm341XsGUtI9UJ7kyUw+IQ1e5zThd983AHzw+Poq9CgK0MX3Qo7bfGh7eslU + A4lCAl6RJ5kpoFR3QabqglzJpAbvsTc87y5DW2cuyiWuyGjeimO3DHE9xA7twmJkXlzLTNhKOmjlnrED + ArCV6oNCbyNo5bnobLiMrPMG6NZSyuVSXI41g0f8clxOMEWzsJFA1Fzk2eVxOB1lgFZlBp6Iz+LBc1v4 + PjCmVXEeRNXxUDenInnfdGbyMfNYZj9KJ8CH+Vd/gVb6CJ21F5HlvhAqtRKeMRtxI8UKoo4UlDQG41TY + YjyrK0JxZRacbs1CrTgeT9rOIaXeEglltrA+Og0Pwo5DXh0OdV0wkh2nMROWgcGLbP6pE+CjvMvL0N2W + DnWVGzJdF6BFxMfW83NRzPdFocAZGY3bUdoUgIP+38Hx+iyU8ENQJnbD3TpL3KvbiC0u0xCR7IOSKFfI + CpyhrvFHgsMUZsL1gMH6L3QD5Fxcim7RfagqXJBxbgE6O7to58vEVpc54FXaI6nGjLp7E561hlDXX6K0 + XwCv1goxFcY4EToPO0+tgLhNiocuxpDnOEJVdQNxO/WZCVuEBs82/lwnwMdZrovRLeBBVXYaqUdnoUvT + DYlcifvZ8bA7MxMJz2wQV2WCxGpzqvdO3ClfAd+iufDJWYSf7McirySP6434HVMgz3KgQLwQu03vNcC3 + y0foBBiWeW4hrQEJUJUex/0jM6DR9tB0U0MkkSOC50/1nYLAoh/hlTsFV3L1cSVHH36PDWB7Wg8nr+7l + lmGZsoNM9SHN2A5lmQeit3zDTNgZYbD+kuEDArCN4pP00wvQ1RSN9uIjSDn0Lc2CXohovgtpsRGKpfAO + PQ+rY/rwyTfEpSw9gpgO17h5+Nl2Kipr69AiVkBOU5SZStPs0V7iiqhNXzMTthANWbJ5jG6AhycM0cm/ + jfbCQ+Dtn04Z6IVQ3gmBrAOtEiVeCMQ4ecUR1gRxI38+gXyPZXZjEBwTiBcUfROtjgzgDplKHmyGougM + Im0nMxN2WhqyeONonQCfpjrPR0dDMOT5+5C0dxoHIOgDaJGo0NKmQGOLALuOW8LmpB5Nw5kw3bkEz5tb + 0SSUo0ms5AAibb9C2z0bKPKP4bb1pNcACzf8SyfA8BSn79BRGwAZdXDi7qlcD7TK1GiRqvGCAJrEKrTS + jlfHb4bVHiMs3TQGdzNSKHoZGgQER3uDXK3hTNt4VjQTnBBmMZGZsLMidyrSBTCCt3821NU+kGXtQvyu + f9N5oOeVubSDANRoblNxxzOWiWYqR1OriIBk4NMzvlAJPpcBDcItJ0GcZA5p5q8IXT+BmXxO0gnAXo5I + cpwJZbkX18Fx2/XQRQDMmEXf3KdGMuFTpOyMWM9EOyNf2E7PlHguUtE+oUGY+QSIEkwgTXdAiOl4ZvK3 + Pg+dAJ8l7P4PlE89IH1oj2j7bzgAhbqbpHktlmImtiHJaENiYlEz434Fk6kobi014nYErR3XD6BzO2YA + I+N2TEd7qRvaUjchzXkudfNXXEOxTr5tMxkRVNsIq0lcisMsJ3L1DaVoWZpDzEim4xBkMh7JDtMgjFmN + thQ73DIey0zY74YBAbgTMWlk7NYpaC86C0mqHcQp1lwjtfEsIU62IJlTXc0otUympHUQxq/jIhXGriFD + YwjIVBi9CoKolRDQXcyzRcDqMf0AA5aAAXCzIHKjnqA+yp5qt5PKsJ1SuI1g7CkjW2habaaINpJsIb5r + Q0DWJCuCsoAo0fwVWLwphHEExqBi1qD82s/wMxolpLG5aci8BgLgDiQuy0ebhVpOFL9KM0sxpbcvxaFm + 4ynN4xFsMg7B6yjVVNugtWMRtGYsAteMQSBFGrCKaTSnmytGw9dolPiw4ZcWNDb7iceW+wF7oD8L7EO2 + bLKm+fJP9PcB9I8+sW/Y/P+IxEVP+t33DQD9mWAfM7Gm+at693/E/mfjcJH3qc8Xb/0XhGzXILFsN0oA + AAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAADJ0RVh0VGl0 + bGUAQ3VzdG9tZXI7RW1wbG95ZWU7UGVyc29uO0NvbnRhY3Q7VXNlcjtDbGllbnR+ETboAAAJ8ElEQVRY + R8WWd1RU1xbGr0ls0agpdnqPjIJIr4qIAwhqpAQR6VWkhSKDVEFGCBa6gPQiA1ICCEaNj6IRQQ3qA6LE + FhOfRo1kJZqXqF/2GYKatUjWW4s/3l7rN3fmnnv2t/c++5w7HID/K+PefJ1GH21Cl2vdbsCdCDPmOqNN + +WcT1+7v223Zcz7F8k5vsgXOxK95fCrSuK8tULepwWu57eGtqlOqnFS4is3K4/p8nXFvjsGs3kuLq/fU + XNrordXSuk33eWeMMa4UbcXd03vx6FIxnt6uw8PzqbjZGoSL2dZoDVyGCkfFh6X2CtoldnJiH+P5HmPc + m2Mwq3NfvrjJX2fkSslWXMo0IrEs/HKrAb/cEOGn4Qr8dLUUIwO5eNATjYc9sbhW7YiOnWoodZR7cnCD + pOGEA6hxWZrSnWKB6w0e6Ihagvs9qXhw/gAe9O3FD+fScP/LFPynKw63W/0IX9xs8sKpYAWU2C/CXrP3 + uiYcQMVmlWsXsm1wIdMC1c6SaIvQxPXGbbjZHILrTYG4JvLEYLE9Bg5twhWiJ9kQx/1lUWq3CHtWzXk2 + 4QCK7RSe9aatwWdBaijatBCiQGOUOcrgRMQKdMXp4XSiEU5F66I9VAMiNwUc9ZBGi5sUiunZZONZYifj + +R5j3JtjMMtbL/nfE5R1hZMMsjdK47fHg2gTumGv+fvIspyLPOt5yLGahzTT97BTdxa8VabhyMeLUWgz + H/H6M59MOIAMiwW36jyVSWQuCW8Ffr0O/NyLO+cK0S7chJzNSthnK48ifw3UClairyYKu1fOfp5jMRfR + 2tO/JheTxvM9xrg3x2AmNH2vodhBmjJ8FzfOlANPh4GfOoCRL4AfPwdupeLFdSFGvtyOH7v88KgvFQLt + 6chctwDhK6Y2TjiAWP2ZbunmHyDJZBae/zwIPLkKPDoxKv6IuJGMF9fi8eCkB+610fnwRTiitN9Gosls + BKq95TPhAIwlJk9J5S98nuMghWePz1MAFMTDtlEeNAFfx+PZvwW42+yAOw22uN3shRi92QjTnP5CZ/4b + MyccANmb9cErB9tijfDkDmX8ywAJHwV+aAa+LwOGovBrbyBui6xxo9oGgxWOSOPLYhdfjq3/ZOKfA/gf + 7I0CV22XGn/e73fPZlIDXqYAjgH364HhPcCVcGoHF3xTaorhciucTrdAnN7s30KMJL1orjgAsZe/s/ii + lWJSKvhcQYvrX/jT3iBm5DvLZ12p9qfSn6Ls24Fv9gOXgoH+YHwnssJQrh6ullmgMVQLgUun7aM57xJv + EZN2ZBtykURElgEXnqHPfXKAoUdDZGMB7K/d9HcBsAymCcwXWjRHGlDZq6jz84GLAcQ2/NrtjuECQwzm + 6GGoyIy6fxFsZCavpTls/VnwXFimARdGgqH79biQfXpccLouF/SpLht6FUBOo9M/BcBK+X7m+oVf3e1M + Ar4rw4v+T/BbtwvuivgYytHGUKEpulMMINCYdoGeXURMJcQBvBLV4ban6XABqdrcNqE2G3oVQG7TFu7W + yGExt0eqicOjD4wG8Cbxjq/WbHvRdl38fqMITy8l4V6dFW5VmNH6r8VA4Spkb1iMddKTP6Zn3yfE5Se4 + 0tN2XMlpW66oeyNX1LWB89utyfkka7Kh1yrQ5MTdfFw1ykglXStGH3gVwNs7AlYFp9jyUOWjhastsXh4 + bg9uN7nh7D4zFDjIIsRwPjasFjffLOJlAxZ3f0TiG7hDneu5wk5rzitRg/NM0GBDHBd3yISLK1zJHaiz + 5755VMZdZ/xYyobY5DHxqfGJlublyVued1RFIHOLOpJNPsAu3ZnEDOwynAOhpQSy3HkQ2Ko8s7OTX0Nz + ZhAsCDZ/UmGnDVfQsY7LJ9xi1TnXnWp0mywm34Qw5oQV67jhh4fYLSbK1o6VcEpkOl9rd8nGytx61+cD + ZzJxn/4FXRBFoSp0NQ56aCHPVR1FnstxJEQPbTv0kU9vxZA0/d9dBGrlli6KWuSDNSPrB+aP+Z3kLFjG + bYlaSl/JBHlGnCDXiH19XXhqeLq56a4im6NZ9VvQflGAwft5qDsZgGE6C+715WCwUYAz2S7oSrfFv/ZY + 44tEc3oZGcAvSh2VXzohpcYMfkItOIbzWvku8pbkczYx/U//kz4O49GFjO1Pspeljty31jah0PpcDgkf + 749G/9009N6JReeN7ThxzRt5LZvQUOuLnsYIXG2MxIVCdzQKrSCM0YdXvAZyj1ti7zEdpDRrYG+7ERKq + jOCTrAH7YNVe860KzqTBAplCiHcIF0YHA9mb0spzZgSl6dfmNDjj5OWdOP/tbnTfDMexr13QMmCP5gFb + ujrg2JALyjvskFrDR1iGAQL26CAi2xDJlabIP8VH2lEtJDbyEFu3BNEiFcSIVJHcqInYch14Jqljnbdy + DemxQ4oFwRIXf0zxjNUIFlZbovWKHz4f9EfTZQcc6V+POjE2hDVqv7KC6KIV6i99hKZLDvjsshMa+h1R + 0m2JjOPGSP5sGRLqeYip/RCCw8rYUamEyApFhJcrIKJCGTureXBN4GGlvUwAabLeYFUXl+Jt32TN/pKO + zSjs4mPfcW0Un1mNyj4+KnvXooqo7F2D8l4zlPWsRunZVSg6bYLcDn2kHtVAUtMyJJJwbC1lXaOMqCol + ElREWJkCPimRR0gxbdEiWYQWySEgUxl8d4UzpMnOCrZLxFHM8tm14mlNjzPS27Wxp2050to1cOCkDokY + Ir/LCIXdxnQ1RM4pPWSc0KFSa1BplyLhCA9xoiXYeVgFUZRxRDkJl8ojtFhOLBpUKIPAAhlsz5cipBF8 + UAkWngoPSHMhwZZB3JVz3OOW4zAFsLtFjVCHkK6MlFZ1pNDvlGba+1TipKal4mzjaY1jSFhQrUKlpjKL + syVREmaiQWJRaQQclMK2XEn45RDZEgjKU8Bad/mfSXMxwbbnaAW2RqshscyMnPKQ0KCKBGokJpTQQFCW + 8UdUxSWOqfkQ0STKso18mS2V+RBl+xdRKfjnSMCXRH2zJOCTuRge6RJwipMD31OB/RFYQIgrwHpg+ip7 + WeP1fipZ9qGq3ztFqcI1fgk8hUuwLeNDKpsKQgqUEZyvhMA8JQQdVEAYW1taU3GJ82XgmyEDz3RpeHwq + Dfc0KbgIJeEULw3bCBlsCJaFlZ881rjK3zO0lTrEM55nQZrsuGbVf3kGTCPYHp3LM5i3wnCj1GbTzbIx + Fu6KIktvpR4rb8UBSy/FQYp+0MJT8dt1vkqw8lGEpbciLLwUYO4mf8fMRW5ojNXOsn0mDtINutYSSeqr + F3jI8Oaw006amEe8Q4y+K+xCVTm7kCX0/eUpyMrCTiy2TVhArFvZpPkEaxz2qpUgpAjmcAz2W/JP2Dhb + YzbnA2IOwfwxv8w/S5gS57g/AGl5Af+OTEZOAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABp0RVh0VGl0 + bGUAU2VwYXJhdG9yO0luc2VydDtSb3ftAiBuAAAE/ElEQVRYR72W+U9UVxTHH6uWbv+NqW2TWpOmbdrU + 2s1Wa0FRMLFEhm2gFBBZhgEGZV+GRQoMyNIiDiBhT7VlEftLGxNM9yBFKA7gADMMPT3f+968GQiD2A6e + 5JPvvXfeO98z9915cyQiUtkifHaI72OCe+TwVEBVy/iBmrbbo9VtE1TVepthbZmgytZbVNlyi4ygeZyM + V8apgilnyprGZBrHqNQ0RiWmUSptGKXihhGZ+hEqrPvuzsXq4VfZQi7CQwE+xpaJ6amZRV72bvx5z0KX + am7+xR5+8PFUgG950ziup7X1f8i+ts44yLaBdbLZ12mVx6t2njNQ53wDNget2NcYBzk4n6HqBsz8mS0L + EM8UW4ZwJsHNKiKhg5ahtjVWZlVBjPkz55yxCuxkXbHTmmOd9OXDMAsQXk5zoAQK8Cv86nv4i4RWNnIl + kRMuQ1Xs9JBVZRlzF0uYK2A3dSWDMAtkfD0WcLH6Jvw3JlSSIKGTRSuzbKMlqNXmhp0WWBceMmK+KsbY + zbTCPpjtYTwW4J9j/Bb+akKRBMlU5IQWocySDOYWRR+wbgaPJPVSL8z2Mh4LCMgqG4I/J7OJG0VSt0SC + RbCiMi9YlVmQ539DGSjATiYbemD2FOMrHUs1S0fPX5M+SQEdagEZxQOiACQTN0OVhJuZW1imOQurhVWM + 3VHWWWdZsZsJOd0o4GnGT/o4+ap0JKld+ujLdunDxHZnAYEXCvpEAe7JZpVkSITx7ANWhfuqWml2XgZr + 992VwS5qs7pcBcDwvfi2FOhhbZuYM4EpeT1Td3+dUw6bfKhk5LPgxHUelOfvPAMAj0h9XPJjmvhximIy + zPfYI4gRBfi+G9tKb2tMF5QFcQg1KU2HEnO6ZxJzr1NiznXeNkWzuyke6LtJq+8S3wbE6UCnSzM7KVZn + pthMMwxVotOvWU5HGd9nD/wM4SX5v6VpppP5N+j1s7XpmDMoBC8KnFRUCrBl7jyziWc38dwmnlcU1+In + 6PyyUsAb5xop7uuf6XjuMB0Mq87AmvIh/rlw4U5B8Y8C1234R9zz2lkTRTXfJc2VSXrniw56KbjoTV5X + L9hJ8Hl1/yk/Vuw9eKaOIhon6YhugM1Lc3hNfT5PIoJeOV1LH2T00f5PCww8xwvC5+XQy/gMRewE92Zj + J+AeNYLYjPYdzc/DmPF58US1lGscOJBXOTxqqByiXOMww1oxRNnGQcquGCQ9KB8gfdkAZTE6JrO0X6ak + nzKK+ym9uI8yivoorahXprCXUgt67iQbzK6GhCNw37HCbFacbJ/9IVVY89FXDE3/PjUvXkbejF/+mKOU + vC5XQ8KBLcHp9H0huEoCGOtK5VfxbjQkibmdOK3w9NyQYMsQziTebEi0ug6Ybd+QpOb3wH9XGpLY9HaY + bd+QJBm64L8xoZLk/zYkmtQ2mG3fkCTozfBXE3qzITmX3Aqz7RuSuMyr8Odk3m9IPk9shpnckDjNgRKi + gOi0b+C/Kw3JmYRGmOFn7+epgMDI823wd0skNyGyyuP/2pCExZkeXUBEUvPUT5PTymGTD5U3GpKRH36j + 0Og6V0PioQD/4IiyQ+HahpnweBOFa00UxoRz5WGxDXQqtp5OxdRTaEwdkglORoFaOqGpY1gjL1OIpoZC + Imso+JyL4xHVlsOf6V0NyRYFIPB2fDINiYcCsAsAhTibjZ3g3nh4Atcp/4iS9C/I1CZRiUTZdgAAAABJ + RU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAC50RVh0VGl0 + bGUAR3JvdXA7RmllbGQ7Q29sbGVjdGlvbjtDdXN0b21pejtTZXR0aW5nc3z46Z4AAAfpSURBVFhHvZUJ + VFTnFcdRYjFaT7o3pk1PltPaVk2beqznxHOaaixg1GhbxRSLUTRRowYUNZaqGJTdlU0DFISE3WHfd9kX + YWBGdhFGYBhnhnUEQYR/731vGAdDekrb03vOb+77vjffvffb/s8EgAE235QGk8CcVpPggjaT4Pw27prz + 3+CT0khONONchpzTGmTeSfUmXSPj/MgB5hKmep57hnkz8A0juM3jOI5gxrkMOac1yC7FydjNvZogXeuf + 0VR5Lb0Z/oRfWhPRCF8mpQHexNVkIqkeVxLv4HLCHVyMl+NinIyQwzNGevt0UK45xeJihSKMcxlyTmuI + xn829U5pVNUqdeh6NCHQqef+MPMEiuFxtDMPx3GPaGN042glWobGUdw+gPPhUhXFMiN4JaflMuSc1hCN + C5h3iWZUP/gYRT0jKGSUI7ilp6CbGUY+kddlROcwcjsfIvf+Q1RqRnE2rIqDLiBmVQD/2cw1sgbVvaPI + F4JTUA5M5DCUIFvxEFkKnUiHDpl6Mtp1SCdKVCNwDCrnoN8k+CxMy2XIOa0hGhcw/1RwBc16GGn3BvXB + hyj4EAUn7g1RPzOI1LZBpDB3B5HMtA4iiSigwh38SjnoImLWBTx/MqAM2ZQ0UqZBlKwXsfW9uNnQh/im + fgMJzewHIGnsRyy9i63vQ6S8F19INUhsHsABzzwO+gLBB3FaLkPOaQ3RuNqFDn7FSKeZhVGwMKkaoTUi + N6pFQm4zD/APpkqFoCq9r3yAQIKL3euWw0G/Rcy+ALurhUhqGRCSBD+TiBMEVaoEH1ChQkC5Cp8T15my + HlwjIuVa7HLO4qDfJmZdwAJavp7AWwpIGvpxk5aWlzfmTq9ANAWPlBF1WkSQDycfXqvFl1ItviAfVqPB + 5Yw27DiT2kOxDFswo81QAF9Ds/ePh27d65qt3uuaA/KwdcmC7fks7D5H0Mw+OJtJZGCnUzpsiL8SO86k + wfp0KqxPpeJ9x2S1he0Va4rF15AnxWeLYwu4xQqC97UF8ID5BJ9g3kNexu/o+S7xfeIHen5IvGjES8Ri + gt/x7J8nWIxmlugZCmDjl1wxLx0zpfVmZ0IKzD0kdbe94u/Ak/CQyOEukcGNiamDC3Geia7FuSgpnCOl + +CyiBmfDq+EUXoPTNypuH/HJfCrRX1PAs2YoyDVWpiolmW0dGBNo0dPcP4ZGoqFvDPW9InLtKGREHali + LSFVjyK9QYNPAyueSvS/mXhqD+c506zKSJpj7vQhSk73XibeffYRAr2IqOsVD6bef1nbS7AXD+mRayWc + VJToqQJOX7hp8nevWH6cSjrX4bMbO0+4RuD4uXAcPhWwi/oWFMuVUAw8QpN6BNGUjAMKJ1/QCw1phRY3 + 6BaEMtUa0gyCnkPIBxOsHwevFHJSUaKNVmDO1p3HF51wCc8/5hwWvvsTj6X2Z0OSZI0K1DV0cAEp6/+8 + /zfeIelw9Y1Di7IP9aphSqImnRBFiX1wlVrQCgFBL0TdEKgg3SCtsHUXFFKUaKMC5jo4h+Y2tXWjqvYu + zntLJuycQiZGR8fRNziMg44BE05e4U9KqhqFgpwvR6OyvR8+RUr4FPfAn8THv4REqLRHEKPrZSp6VsK3 + hN4TV4q6cTG/C565nbA6lcZJRX0wKsD08KmgmKq6u9CNjEI3PApFlwbjTyag7dNB3nQfo2OPMfxoDMmZ + 5fj0XCAq2ntxIfc+PHNEPIxwF1AI3iObfDa1BRT448kUTipKtHEB23Y7vuF0IWpi8OEItP06qPuGBN+j + GYBS3U++Hx3dWtjsd0FmSR2K72oRXfMAXnliQjd9Ak7klqUw4GoMvd/okMhJRYnWF2C665DXB3uOXEnd + d8x3slOphUo7gNzCGuw+4IIPD7ujsEyG9i4tKqTNsP7IDX9zC0ZMWik6NDqE8H7TN4Ful/BN+Jy3oJy3 + QYnrtA28FddoG/yJs5IGWHxy86lE6wsw2+vgg8qaZgzpRjDy6DG6acabtp/AitVW21atsbayOeAO5YN+ + VMnaUFTZhMSMMmzecQYVcgWsHFPx3rEkbKKZbTjKJOBd+3isJyzt4ilhHMwPS2B+SIJ1H8eqV1l5/YVy + skIaruH8XYcvoux2E7pVfehQatDWqcZ2Wye89Y7NzrfX79m575gPrYAGBeUNyC2VIzA8Exu2n+TBPyGM + ZdqY7xnB8s2el5414KkScuN3lh8efHvD/myrPS6T5bQS9S2dSM+rhq3dJew77ovMglrIqU+SXo7fr/8Y + q9bYFC1fufkYjeX7PCXV/4qp7wDDOsN6YyiAG2YrVm/+7Uf2l5+00+xLq1tQRCsib+5ES0cPahsUyCyS + ITmnGuu32k++/NqKNTRmITH1YZktoukLYDOz3HY0NjKuAPWtnciiZBHxt5BeIEVqXg1CYnIQl1kJSUYF + nDxC8Ms3NyXRmAVLfrVRiPGfIv6INt/iT0crEjLL4OUXBYvNh7Buy5HJhKxKxKSWYtXa3ZMWWw5OOroE + wd0nCkuWv1tFYxa+vsziK0Fng/gjmumLP17y0pqNB8uWrtyS/KNXfv2H1eZ7iq+HpsLTLxbLV24pWfzy + G5Y/W2ae+NNlljWLXlj8Go157tVfrPtK0Nkg/pCtfc+OHe8nn1Bm4ZtvbbNbbbEfq9ftw+tL37GnPj5w + vO9TB2/OKz//HxUwg/FB4bs6dcXEezuDPRt0NszY+f8DJv8Eh52mfnp1TP0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAD10RVh0VGl0 + bGUATmV3O1BhZ2U7QmFycztSaWJib247U3RhbmRhcmQ7SXRlbTtCbGFuaztEZWZhdWx0O0VtcHR5OxME + Uu0AAAYISURBVFhHnZf5b1RVFMfLvij76or/mom/WEEpKGtLgS4gtIK1BBBKkSiB0hZQlgpoLaCBUDAo + MSEUKRRamE5n6XT2mR6/33Pffe9NOxONL/nmzBT6Pt/vuee+d1smImW+a0pr+92fj3fek+Md96TVVqr9 + rhxvN/UYZGqvHDvTKy1tvXIU9WjbHVXjke6duNd0aCrvub/117L9x26U7YP8l7J9BqZAUwn8r1c6nZWx + RFoi0YS8Co5K/0BI7j14ITd7+2XXga4a3G8G78l749/K9hzuxkfvwi0mGZjGtLxyuXHJ5R3l8qh5yeJn + VAbfqWTKGAiPJuVlMCaPn43IVyd+k/FxkSs3Hkl144Va3HMmpCZqm66ieFcxA9PZWmPAQo0sNJOFgWxe + 0o6SqYzE4mkJhuIwEJSGoz1qIJbIyuWeh7KpvrMO950FTXMY7lXMwIwWrCUvk5QwpAbIwA1UayYvqUwO + NSfxZEZGsAx96EBd8zU1kEjn1cSFa39JRfWpetx7NlRgorgBDBEvQiYC+TnF6sCpJJXOSQjL8Kg/KFWN + l9QAjSfVRE7OXXkg5ZtOTDJRzMDMI6d9BhRmUhKcyhqoggG1SmAYI7GU9PWPyIb68/r7NIGmaRf5fzov + 35cP1rfQhJ2JSQb4w1mHTxkDmnhiUnw30KwDhjCIiVROorG0PB2KSG1Tl3xS3S5rtp2RNVVnZHUl1SZn + u+5LY8t1wuZC7EJRA7MPnbztGHDSKtAT0xJowaxjCQwiFAgn5O+BsPzxcEju/PlMbv3+FFvyiXTf6pPr + t/uk4esewuZBpQ0c/O6WGnBTKxRVgVmJ+5UEHOIQskbH0hjGpAzDyGBwTAaGovLkeVhn4/HToOw51E3Y + fIgPqaIG5hz41hjQ9jIta1GwgVIxCh0YxXZkjaJGaAaDGQjHZTAQk8BITHYf+omwBVBJA3Ob+SChAbTX + g+YMDJ9dKLaYQtn+uKmjrFDUyjWR0IdVfbMaWAgVNcB1ea3pm5tqgCkL05p1NtCsATpQD5iRCGqEFUMZ + dhTEssRgBk9CwhZBJQ28vr8VBuDArq8m9SXWtH4ohZsTzsrWW3AYWzM0asQ5qWn6kbDFUEkD8/Zhq9CA + ttpN7AcT5gCdz/60VMjKgY9EUzrMO/Z1EbYE4kuqqIH5jb5n+aQ2OwmtCDPwlAET5oNaBdVAVqq/uEzY + UogGpkw0wLbM33v4FxgYd6GsfqhKob60oxw2bkFjQKGoBAcj2JaRlO6kqoaLhC2DShpYwL1KA17ijIRR + VS7YSYnPCibMCgNHaBBQGhh2DHCgt+z5dwMLdx+8JnkY0JQ2LapZV4At3AG7bQZkmA8hyoEGUAORhFbO + 1ObPLxC2HOL7oKiBRXXNV40BJ7E3UBTBRm6LFWiTGgXCBCflFfb/qxAOK6GEDvPG+u8JWwGVNLC49ktj + wEvqB6K1bKuCvfYG3LSEOmBWgAlXA1jSz+rOE7YSKmqA67JkJ7ZKHscwd5IV7IlwN6kVgExtEntQq6GR + hA7z+pqzhL0BFRpwTNDA0u3YKjSg62qhSKhrXAC1adFiagKwQMG4DvS6nWrgTYhHtIIO6GkIWrat4ZIe + RHVt3fVFiwHRgdK0psUvUV0oqwMcdKCDPnE3rd3eQdhbUEkDyyv3XlQDLtQnu64T22ySxg08SMXlhdVw + XJ6jcpB5UAHjbaioAa7LCm4VHkhNWoKZliC22bSaaVWaFgktGJ8t1GhMntMAxFlaU6UG3oFKGli5cdcP + akBTamonqaa0smkJNy12E6sIduCBuAxAfG6srmoj7F2otIEN2Cr8O2Byi520hKoSXlpUF2ih+E7wQIB1 + TIe5fOtpa4Cn46IGln9ac07/BnBPQc5r2ZwHzGu58AXlvaT0wYVW8xlS8LDCruEOKt98irCSQ6hPwtWV + J3sqsF3W7eiUCmjtdqpD1lZ36BB9vM3IPfVa4eT70Vao8rSUb/H0IaBW71e03ACj5NtQD6UQTyx8WtEp + J5ZDM1Fso1+riug9n/id9yJ8DkSWYfsMsAv8B3aCy8E2TRQN/l/x95mc5w6ywJayfwAQQd/PPqM0twAA + AABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACt0RVh0VGl0 + bGUAT3BlbjtGb2xkZXI7QmFycztSaWJib247U3RhbmRhcmQ7TG9hZPHDxGMAAAfgSURBVFhHxZYJVFV1 + HsefVpNlqS1OqTkFaaNzmkZNxkwFFagQ3FHTSVIzxhgdTc0VMLdxRVBjExCRRUVBSK1EETQW2TdZ3Nhl + Xx/vPd5j+/b93/eePhs6x5lT9j/nc+7lncv9/L6///3/75UB+F3p9sfHSbc/Pk70o8cj8qsNwwLEjZ8g + T3XDH3SIc3HNr1aEYQFPxLqZWmb6mqdk+1lAT5YeXy3xh8zm89onSY/MI+YyLZNlGd7mRByJ1wPSPXn0 + nCRL9yDuWgyHYQFPZfqYV7WUfYsuTS65YUCORFtTPLKPTatxc3hnIK8XRfT8P3hoGg0LeJrVAx13gdYL + 5DygOkciAWUEoDhLzqEu+wASDpqd5PW9yTOPwLMGiL/FVN6fRsMCerFdQPttnfjbB+KWMEB+BmgORZc8 + nEUcQsphM6Qc0nHQDMl63EzJBCS5mhIeD0zAdRctcXvHp4VuGD2FrqeJ6MbDBaS5TwTabnUrRtNJoDEE + aAhCV+NpdKli0aVOJ2kGpOpIMSBZRxKaC08gbve4arpEN0QXHirgmZSDpiwgr3txfRA5jq7aY+iqOYqu + al90VRwhnugsd0dn6WF0FLuho+gAZ3EfG7kb7Td3oi1/O9pyt0KT44T2O+6I2zlW2J4jUgGG41nRMvCh + +3liIYZeXEVx5RF03qO4TIgPUepK6X6039pD6Q6052+l1BltOY7QZG2EJn0d1GlroMlzwRUnE1FAXyKW + 9EMPZe/E/eP58GU9ENfpElfrxd4PxCUUFwvxXkqZ8oYTZeuhyaAodRXUSSugSnSAKn4ZlNeWQhG7BKpU + R0Quf1sU8Ap5nvQi+odS1jt+zzg+fJxLIa7xfyCt8GCbDzOtvsX70XFHm7Yt1wnK5JW4dWIWkr/5AMmH + LIkFktwm47rrJCS6mCFxnykS9k6AuH/kv4wR6WCMCAcjhH9hpAj9/I0gukU3ZM/9yPnp4FpvL/NEW8lh + tN1xgebmLmg4j+rcLVBnO0LNlqrS1zPNGiiT/o3K8//gRjUHdXlnuFcUkyJSyIeOtN7VcZsP7S2JTmUB + yUOnIhfy0micWWpUTLdYFbLnr24bA3XlJSgLXKDI3oHKaAfkBMxEqrcNUr2skeJhhWR3Ky5BJj1oietu + FiiI+Aqapkx0KDKhKfSBOt8FrXn70XpjL1pzd6M1ZxeU2TuhzNoOZcbXaElzRkvqZrSkb0Vu0CcIsnvd + j24xDbI+Mc4mUBSFozHZGXXX1iDN0wattWIJ6RKpmUZ9R4uU6iY6lPlor4tGa74rZXugyt4FVY4Q7oAy + cxuU6V9DIaQpjpAnb4T8+jo0J6xBc7IjYpzfh4ftoDl0S1PQN3rzaDTkBKDi0ircPrkA2cH26FTlQ8Pl + oy5wI65SQnUuE+buo2i3lqz/QJG1EwoKFRlboRDSVCdKN6M5aQOaE7+idDWa41eh8eoKshz1V9fg1CLj + VuvhfV6mW3oI+0WtG4nKhMO4e3oxUtwsURzrgo76a5KsNXcvZbqEFCopVGZu1wrTtmhbm+IEedImplyP + poS1aIpfjaYfV6GJwoYYBzRE26P+0lLUX7ZHwbHZCJg7OIpesT1Lu2K/778cgaKLO5DjPRtX2J7mO2HQ + lARLQlXmTqgyOI/p2yijkDJtW4VwIxOug5ytbYqj8Jo2ZUP0MklWd/Ez1P2wCLXf2aHm/HzUnFuAq44m + cJ82cC2997flFy4s/yvyQ9ciYddkxG6fiPaqC2hJ+BLyuJVo4dwphIy0XN8AeeJ67VzGMeU1tjZ2hS7l + MjREfU7pEtR+/ymlCyldgOoIW1SemYaKU1aoCpuBUDtjrBz70tv0Sq92UcCLkf/8C9J9luKH1aOQ4bcY + 6kJ/NEV9isYoOzRctEN91EI0XFqCxphlaLxCWSznMvoLtpWtFSkvLkIdU9ZyaVZHzkV12ExUnbJBRciH + uBdsiXtB5igPssBNr0nwmz6wgE6xGd1/M750dvFbfGPZItx+GEouOqIlYxvqv5uP+gvzUHeenLNFTeRs + 1ETwxuEkbDqqTk9FFZNVhdqgMtQa9yirCLGQZPcCJ6H8+ESUBZih1N+UjEeZP9+Km/6Ggx8O8KRTvJR6 + Hp06SPhlL5/6ZAiiNlngzJJhkGftR8PlpaiNmIWaszNRHT6DwqmUUHRqCipPfoSKE5QxWYUkm4zyAAop + K6ekTMiOjkOp3/so8R2LkiNjUOz9d56/h8jP3sSWCf0X0im24h5+1uL7Rib7Y6CtEcLsR+Ly5vGQpziz + hUzIVFWhVlpZCNsYzDYGUshk5QHkmJmUqsxPKysVMp8xKKWwxNsEJV7voshrFIo8R6LIYwQK3UfB12aQ + esQrvQbTKdZ/Dx8rbQH9/WcMRvD8ochwny4tl0op4QdMyJaKhJJUCE2ZbjyF45iICX3eY0KBCYq9iOdo + FHq+i2KPURSOJEI8Arfc3kGy03C4mr8aQ98L5EmfjwbIBGL085oyOC1o3lAWMQwhH/8ZwfPIx0MROPct + BEkMQdCcIQgkx23fxPHZZJYxj8YImGmk4w0cm0Gmvw5/wTQy9U84OnUwfK1fwzcWAxrmDO87gT7xSdfT + z3qQTCCG2I/7kP5EvC5f/RmizF9C9PCXEHcXiHNx335EWvt+1q9Jcn0BYjMQa1IU8qiIG/0viP/Rf03/ + 10epGPqvk9+a++N+AfqT34tuf3x8QPYTe6ndyZod4FAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACh0RVh0VGl0 + bGUATGV0dGVyO2UtbWFpbDtlbWFpbDttYWlsO1RlbXBsYXRlO5vhJQwAAAcqSURBVFhHxZbZb1TnGcYp + LdkgkKTqbf+B3lS96FWrNFFvUhrSKlKlBLUVF01MSqAJqQOh4DEESAJh8cISMN43PDP22CYG27FjDN7G + O95iIMYr9oxn38fL0+f9zpzBgN0CUtUj/fR+x57zPc/7fusqAP9XVhkMhjh8fvC/Zqme0nxA+IcxfvQY + rHlE5LeryX0mdAOrM0taXi2w9LQVlHeDEfmWbuSR3NIu5JiFTmSbOpFlFDpwoaQDGSVWZFy04nyxFeeK + 2vBVUSvOFrTiTH4LTpNTec04lduM9NwmpGQ1Wj879fVvqSUJxk3IozJPz74+PWXzIhSJIhSOIhKdw/zC + AofpyZ4Ffit9SH9hMjblwuH02mlqSTUeMrBmW3ojEs81YW5+gR/MIUATQlA3w78vLi7Gun/4kf/Jb6LR + eZWAfCffh/nt3NwCuj5IQNebr3DWrXqarH7IwPbUBphq+pBn7oDbG+JH8+wgAn8wgkBIIxiHpmhSELEQ + 3+Xv+u8U/FaScXkCOJt3De1/+A2a/rRRDDxDHjLw1JHzVzF6ZxrW3jEcPVOH5o4RRGlCMvHRhI4YUu1A + GH4iUfAuiZK5VK2h+SaSjlagoWUYbW//Hsc/LxQDz5H4PJBHZubTJ8/WYnj/PzE66cTg7WmkZNQjlTic + fmVkqYhejUCQbUVIi6EwqxKFxxtAQ9Mg6q4PYnTCDrvDC/vYJN+/EwMbyFNEmSCagWvbEjDw19dpwI07 + 4058N2JDrrEViQdMqGkcZEaaCcnafGUA6QVtSMuLkduG1NxWpOa0IiWnBSnZjNktOJnVjBPZJLMZx7Oa + NC404VhGE46ca6ynrixNZeCZ/j9vRP/WtzAy4VQGRsZmcXPEjqq6G/jkoJGlLMe0zaNmdBrFZD7eYxEL + y7GwMkfOXZNqyIpQBp61/uVNDLf34vboLG6N2XFL4qgdw6xEZe0AdiabsGXHefQNjeMks2T/nB8yUecY + ZdXokX8LCWwLwTnOm1ib+Mk8DXxx9qq+IjQDxw4Xou/mDAUpekeEtdh+YxIjrMjktAuV1V2oqe/GcZZU + MhShyvohVNQNKsolfsNILLXCgKKsth9lNRr+gCzpRRw606CvCGXguX1fXsbO1G8xdGsmTnvPONp6JtQk + DHCpzTp8uHl7Cl9mXFdllMyUmI4IxoSE0poBwlitYSa+QFQtz4Np38YNyGxcuzmpAn/cU47+4WmFtXcc + 9c1cipx8svTU8vNzJfgCavx0AxaK6KJKLCZoru7jZO2HqfoGTJeFPhiJ108D3Jj2p9aJgWfjBjZ9bMHb + hkvoHZpk1mO43DCsZr7XHyGy/Bh9IWXgc46fjKNko+N9oC1CevRIW2LsPUoDSSe/uc/Aujc+LkPN9Vuw + 9oziYmUvxyoChyugdkWvL8xOwmwHucb9OHS6QY2jj52ZrkimWpYiaGRUVN1Ayde9iouKHhQTt08zsPdY + tRiQTUkZeH57chlaWodQUN7FH4U46TyYmHJjasaDmVkfHO4g8cPl9uFAWj3HcVFlExer6oXHF1FCmmAv + ii9RlBRJrGQkbv5GKrvnyBUxsFY3sD5xXxFqN78FJ4Umpt1qRxznCTZx141JmpjiHjA544Zt1oXklDpE + OZFEcGmG0nlclGKFQoXQrUUe9S5vhHvJPHZ9USUG1sUNlG56A40v/wLjd134ftzBDckRM+HWTLAiYmjG + 5kTSiVpVRhEUpFMVOVTS1pB27N0TgZNtp4cwioHEw/cbWNfwq5/j6muvYLC5E/3cD/526DJe3lqITYml + aONeMPb9XTRt2Yz+9BPYe7RGlVEE9CwLmKW6zJB8gZcZnTxLF/LKupBb1kkTIbWBffRppRh4XgyosyD/ + d6/n7N/1leOjgxZs3FGMXycU4tX3ivC+wYzdyRdhem0jan75M3SfTlPjF47yqGV29wQpEqczJqiJCjml + HcjmUT/rDvMgm8OHn1aIgfViQN2IiGwK4ugF8uIDvBTjJ+Snuz6rUmV0sKRLReNiSlAjW65yEk3tMQM8 + OWngH/vLNQOxM1lMSCX+22VTTL6UeOgSr1rzmKUBEctVYh1aljGyKJZlbtcwsU0DmcZ22F0htYFtN1jE + wAZl4FHhI8bW7zx4SR08ko1kpaNERYiCmSpqosIFo1VhdwV5oYli275SMfDCskIrETOw4YMDFaqM0plk + l8lb8j0xKzJ5W1aijIK6PZe0KWzOoNqwtu4xi4EXlxVaCd3AjmQLj9kobCyndGgnEm1O7d1GY9p7EDMx + bI5YJB5u7wmfmJ7YwPr3k8o4jnJXjMbj0vMgfhYI3NJFUEf2C4nv7DY+0RDIaln7zu7iuvf+VYq/7zWr + UuokCMwsYbcJ78YxKrF3dzEqSlTcsjO/jn2tW1ZoJfioK7yYILJc9eX548dElrbsgmuWFfpP8NH3jZWW + 6qMifaxeVuRJ4CPGHguDwbDq340j4jYtOeG+AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAA90RVh0VGl0 + bGUAU2hvdztFeWU7SeMHJQAACKVJREFUWEfFlwlUVNcdxl8MJhqTahK7RNOkW+wxbW2M0dQqEESQHQeG + ZYBhkx2EkWHfZZNN9m1AGHYBEWVTBhQMoCW4sCibyr4rCCpYzGnP13ufGY5NSc/p6an9n/Obe999793v + +99tZhgA/1dWbXyVrNr4Klm18VXy38RrP8D/LKQCawivv4TMS9Brep/ynxnqyhEyXWJXppOSfYzpyBIw + 7adc6C1WNF2gvak57gi/+aRFXnO0WWdTpAkawwxRH6SLWl9tVLmr3Ck7qlCUZ73PWqi07SfknbUEaog1 + kqiylYk98GMmSm4Tc2LvBtL0vaCiCYHHmJgAIRPqfYw2scLlx40+vJZgdepmusNSf4k3hquDMd0Yg0et + yXhyU4SFtlRM1EWgt8gdLSdNUel2CGKTnX9L5Wwr8JTbuo308QaBNSLg8xhPcx4T/DkdrO9FB8k2wV9A + q6wwQaY53sq1O9/t+UR9BBFKw2KnGM96ivDX/jIsD1Tg2+GL+Ha0HsvDtXh2rxoLXcWYbkrDnSJPSPy0 + kMnd/vdQuc2hv9oo8zbtj/btYW64uoFbIkdasOLOnD9tuClylAxWBOBBSyIW2nMx1JKNkowwhPkLYWlm + AWUVDj7brYRPP1PAVwe0YGJshiAfdxRlROFecxEmW7LQle+J84KDiFP+8Or+D9ZuJn3TaVmzqoHrKXa0 + WKO485frb4ns+wfOBWCqKQX1BZHwFTrDzJAHY00V6B5SgoaKGtQ0uVDjmkKJYwxVDR2oKipDXW4/tOVl + wdU4jGNOTqjOicZATSwaw3lI1f5keMuGNRuJBjVBE/2XoMO+9usYs3O9xd5oLT6BYE8BvGz5sOKbYs8B + YsAhEM6BiQhIyEVcznmkl9QiqbAKifkVCEkthFtYKkydg/ClIg96Glqw5WrAy9kRX4uD0XiCj2jlj+qJ + Bl2B0sW5EvRCpkCoodkuckB5gjdCBNaIP3EcZ8srcZDrAkFoPgJTKpBX24YrfSOoun4HHhEZ0D3iA5eg + FJyub0PehTYkFDfAP7EMclpOyM49jTBfDwj5eiiIcEWFmxqcd77HI1rrCTThlaAX6y6FGQ+ejRUi2s0G + Z8+Wo7//Lk4VVMHQMRZ+ydWIK2hE88AEmu6P4pvxGRYVQwGUuEehySfzL7lOTFxHLHnOTJiEkNh89Pb2 + obSkFB58DnL8bZGgvX2MaG0irEwF/VgrdlI6VB1lh3gvW0hq6zA2PoknTxbh4p8Ga18xAlKqkXmuFZe6 + B4jwNDoezuPG1CwUOY5QOGwHBW07OHjHobzxDpJKmiCMOA0j+xN4TPoYHR3HhYsS+JrpQGSnDotPXtcg + miujwGZf6a2ZnephvlxdUY3hoTHMLyxicek5DGzDYRdQiIDkGogr2iAITkLr2AsDbuFpkFW1wH6CrKol + WZD2qGrqRUrJVTINVZDXccPSs+eYf7yI4ZFxVNdI4KN3YNntdzJpRPNHBLoW2I8NNb5a/fmi9Pnu232Y + nprDwuMlPF1chr5NKMzcsuB+8hzSz1yFvPoR7FHgYTeLEalTeGwpq2KO8oY7iM1rhFtUGRS5nni6tExG + 4RkePFxA791hiBITp712yHQSzfcI7H6kBt62csu913CpDUMD45iefoTZR4vE+TPYeiSC75oBD2IgraQF + PGs/7Nirgz/+mUMgJanvYEsOjO38WQNxxIBjcAFZoCFYIOJz80uYmX2C4bEHkDS0Q8Uorv9lA3QK3jI9 + KorMLmwmBiYwNjGHqQcLeEBeis88j8NWUXAJPYOIU5eQfvoKdssb4NPP1V+wi6KGXfu4yC1vItN0HWGi + Ohg4xMI/MhcP555i5uETTEzPEwOzOClqwFeHj0cSTXomsFNAF+EbX8jq/cbJr3T2ZvsABoZmMDI+h/Gp + eXR0j+CggRes/HLhFVOBGHEDMkubYGjphT3y+vhClgsDcw/klbegqKYdMTmNcI88C3mOO5q/6SHCCxgl + CQ2OzuJW9xj0bcULH/9W/vdE8y3CylZkp0HHPMohIrkOPf3juDs4g4GRhxgam0Nk8hmomATB1i8fPnGV + iMu/gjySaZmkC6UX21Eq6URmWSvC0+vgm1AJNdPj8ArLxjBJggrfG55B7/1p+EbUYJ+qJ/2me5dAh39l + G7JbkfCuvnVSSnpeM7p6J9BzdxK9A9PoI9h7JkHJwA92fnnwPlmB4DQJorMvs6LRWZfJSSiBS0gxlHn+ + MHGKRDd5t58k0XNvCrf7JhCX2YgDnNBMovFTwjoCzZ41QINW2O1I2KxrGZ/kFV6Jhmt30dkzhi7SQVfv + JIJiCiGr7QqOTTSsvLLgSobaJbyEjEwu9OxisF/LFccCRGTaRonoJLp6xnH5aj+cfMvIWREiIn1vIUiH + fkWcsXAtpMXLJt5X0BTyePbi8bBECS42duNG1whu3R7BhYYO+ITngGMRhL0azgQXaJoGQBiYgXPkmG4n + z9xgn+tGYMwFqPPTJnfJ2ZqRPn9GWPkeUOdnkOK7MBMUMqYuBbQqNUF/RGxcv2HTR8rc44G6VhmDNu7F + iEiuR3bJX3C+tgMtbffRemsQre1DbP18bSeyTl9DWGIdzAWFUDNOHtqv7hP85rp3fk36oluOJrYirmby + kgG+cz5j4pzHGDvl0UtqgkIXCT0u6YLZ8ocv9RQP6gbHqhvF1mqaJfcdtjy1zLHMAimhZZ65rGaU1K+k + FyWR1wyI375LR5W883PC+wQ65OzvAMJrVFjKShgfzWeMiDjPMZcxdMhlDOxzaLN0NKgR6v4dAs2ELqKt + hI8Iv/iOjwlU8AMC/eFBj1lqnr7LCkuzXtWAERHmEWFDImxgl8Po24kZPRsxw7XJprelRqRm6PS8SaCm + qAiF1mkbvUefoUO9Irya+D8ZkGatT8Vts1+IW2czugQdqyxG50gWwyGQkE7Pv0Wdn0lERT8oLIWN1f6t + vEpWbXyVrNr46gDzDwm9y+evWey0AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAC10RVh0VGl0 + bGUAREI7U291cmNlO1N0b3I7ZGF0YXNvdXJjZTtEYXRhYmFzZTtFZGl0KPa6nAAACM9JREFUWEfFlgtY + zWkex/+NS5JSUhuWZTZMYjEr6zKZGFJjiCipqJmQVGRtbg26uZboYoxUurhEUborTuh+O+ni0uFEl3O6 + qHRT6XT6zvv+6/Sw2+7KzvPs+zyf5/mf//89v+/3/76/3+//MgD+r/zzkOrjC8KQPoZ+wLABoPclc+n/ + 6P8/GgMJS5AMifAQBxNN2Rz/zXrcoC0uhSHmYcWhFtyiUHNucYhFTXGIOYoIhUFbagoum3G5gWbcXD+T + G5kXNromexr8YL5yhhyJQQ19ZGQgYQmS8UXQz3pjHwebez29vq2x/N4x1HKD0MS7g3bBQwIH79+kQ9yc + B/HbDLwXJqL1ZRhaeaGoz/OC4IEzSm/ZIc9vU2Oaj6H36e2LVUhMuiKsiYGEJdBBJw0tvvJjbv3TSIja + ytDTVYmejpcQtxVD3JoPcVM6ut8+grg+GeK6OIhrotBdfRvdgnCIqq5BVBEK0evL6ORdgJBzCBk+G/JI + zOEEuhIDCkuggxoYnuG1HkQZPaIa9LwrIXCJeA56mjOJgVSIG1MgbkhG95sEdNdGo1tIDdyEqPIqROXB + xIA/RGUXIeL/gnuuejTyCMInGaCTpNPOroOohYcecRuhFegiRjrJKhAz4pZcdBMj3Q0csgqJENfGoJtd + BQK7CjdYI138QDRnuyDJSYdGHkmg2zCgsAQ6WAOPPPTRxPUi+8tB93sBxNQAhV63EyMdZGva+ehpe0a2 + Iw/tr+6goywC7bwAvCvxRvODfRAGr0LFNUMkHllOI8sSPtnAiAenV/cZuIeuzip0ddWhi2zH+7ZCdNQG + o4W3CzUJS1ERqonnZ2eAe3QKis9ooOq2PhqStqM+cgsEQbqsgYRDywZtQIZzYtXvZiD2wFIaeRRhCN9q + E9WgeUZ1JEjR+3wrY3LZZ+Cem97vZiDaYUm/AQIVH1Jgqu9cYroWBaZrncnvj3oFnSQTf2RFZjXHCR0V + iZ9toCJAB0Wey3Bz16JsEpM2JbZTpq5e4fLK0Qbiah74eyzwcPVy175n1ARrYOTdIzqoSjoKfrQzXj8M + hIAbjbrS+2gsS0B9sQfePrHpN/DUQx1Z+ychz3UaSny1UOy1HFmOf0WKnRq4J7Vxa/ciugIKNO5xA2u3 + 0r3bIBaWojXgONo5Ycg20EWM1kI38pyuBGtgVLzjd2gu8sP72jQ0CfJZAy8SfVEQaItcb33cd1BHnKUq + 7pgpI8pkLOLMVZCwbTzSj8xBsY8eXodsQk24CaoiLBC+829IT0/X1zX2PHHsPAfCxg60+B9Htb0p3lz2 + RYnzPvirTaEmpSUG5OIOaH+QAwKyBfVkC8g2vHuGzvoItL0+ivpHRqiO0kNZoBZKzszBc7/FqI43Q2PK + bjREW6Lqsi5eXdmAu6e24covHpmOnol43SRCbFY5Mn0voOaMC6KmqyFk0iQcU1Y+RXRpt+w1EOPw7f+U + hG9ukxwIXInyOEfk+P0EYdwmEkeIyFQ+/KMLEZ/Gh+dKQ1waPwH75OTdiSYt0/4tkLvzd63PNlB/dztq + IjajPNIeT6/vgCDaCOjkQ/x8L7KSzuDOAx4Mrf2hpe8GbZVZHkSPVghNQrYKqAv5GzYLsz+nCipv6aM2 + YSuESU4oDrZEZeR60jF5EBfZofPRd2grOgTH/QcwX/dnKExc40m1COyHylaK3QHWwOgIuwWDroIcl2l4 + 7PUNikNJol4wQ/kNfYDkjOipKzo5S9CS74Dsw1+CYz8ZOnM1zlIdAiu+QH4as/MDAwrh1vMHVQWxW1QQ + YzkOmec3I9fPgiTfKvS0lqAj0xJtsQvRkrWHNZm8cyJ8dJXOEQ1FAs16tgFJK+ky82TVyGWvAcUwK81P + roKXAVooOD0bJWFbkR/4E8pIB+xpLkR7ihnaIuaiKdUGaXsmIJ6UqedyRW8SfwxB8nmWMt0Tykgr6TDL + 1GeQn70Gxlyz/Pq/JmF1/FJS75oocldHrq8BMryN8OLSCnJWyENbkjFars0kJWmFhzaqiLVQhfsSeR8S + W4nQL553aDJz/LAzoz39K8b3G9os+1bgqsWc/2iguXQXhPHaeHl5HgoDjZHmYYDS89rkgJKFljgDNARO + R0OyBThbVRBFtunYYjlfEleZIENgxbMdJjIseycwXgtkmXPz6ZGhrwwDTGfmFARaoa0s9l8MtNeQ8+Fz + O1REf4tn4eZI9ViPZ+e0yJklDY2Ra1D365doiDdF0o9KuGWoBBdN2fMkJj0XUnEaXypz9zgmc5cqS4ad + KuMxbyTjPrfXAHUn/YOG8mRvg+nBQaazWhPdNiP/pjtepF5HdUkkqnJPovaxNfjJO3Df3QIZZ7dCJExB + Y5gu6rwnoj7GCAlmYxC+ThGHv5a5QOKpEiQnIql0axWGkmatzKRbKTNPHJSZU3+RYU4Q6GA/lwSaofJq + SjITDi6bbOK+6s/e3mumxvnqT33is0btSbiDcUf06T2I2qlDzhFAQ+gK1J4ah7rbaxC7UR7XVyvg4OwR + v5IY4wj94o+2KjESHhKK7JWYysNjmGMa0ozbDPZTwA7JgYHmA71LA9CGQUtnLGECYYbX+vnROYEnUfc8 + DwI3FdTe1EP0Wjlc/V4e+zSkL5I54wmSk5DUAwtFhpJiTtisyDy2UWDKD4xmXu0fzbh+NZxxIXw4qAkJ + 1AwNIjGkoDD2j3MOmhi1N1XyICCNKuP8P3DNVh8X9Wdir7r0JTKHmuwX55gpMBzTXu6bKjJcq9FM2d5R + LK/sRzHO04ez/LvxoRHas5VmL1rnZLPbFbU5N5HqZY8AUy2cXa4O29l/8CPPJxL6xe8ZyzMsG3vJtyTC + diNZXtjKsDhNG8Yy4EFRAg1GoDZVNZdueWZ7KAS6Kzbg+5nqHQ5zx8esnaK4kT4jSL5sUslGcgyLYS+5 + FrLMix0jGB7FSrqfwRigK6CsNksHY8Zp8OQU/3RyyLCR88g9uuT01EObDPvmR6cOYwbLgMISaNC+4PQN + aV3TJKNJSVsYzQ361myTOaI2lBk8Q5nfAK6UO7kYFLMOAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAA6dEVYdFRpdGxlAFZlcnNpb247UHJvZHVjdDtTZXR0aW5nO1Byb3BlcnQ7Q3VzdG9taXo7RGVz + aWduO0l0ZW2EaWxHAAAHUklEQVRYR8WXCVSVZRrHtWlxXLJykrSJUESNsNJREbRxDwEROnmOS9JJKkGE + QUA9YSKMCcOEG7LGElpipIIMhNwriwjKKouQipYniOWyXO5lk0Xh/ud93u/jLgZ36sw5M885v/M87/u9 + 9/n/v+9+6xgA/1c0xa9jrMgT/wX0e53QFue66kITw6JPMp4RGfcf+OMI0PxTjD8w1Ea0xbmuuhBiWPzp + siMrD7d8vRhE82nCnCM7JdAUvwSNxFdL0MCoj7NAfawFfomxQB2jNtoCBYHLAlgvMqI2oS3OddWFELTo + qdLgFQENiRvQeWXrCGx5rNZmMzpzNNSesUH+IYtA1vNpBu2YjjjXVRdC0KJxt0JWQdV9Ear+SyIZDIkW + UpHLI5AJVR/LfZQzUR60lJqPF3vriHNddSEEHarxPxxfCZUiCIM1+zHEGLzDoDyMOObbxPEQzXF81PND + zQEoC7Sg5hPF3jriXFddCEGLJlQdXQ5V+z8wcNMb/YyBSpYrvRispjmqxW2a7eJYXEf1YOMhlB42p+aT + xN464lxXXQhBiybeDH4bQ22B6C5yRXexK3oIVhM0R2OaH94uzO3UWkP1Tjys80XJoUXU/Fmxt44411UX + QnADhX5/wa1v7FB53AIVj3NsiR7MdaiOWYsLjgbUfDKDLmsdca6rLoQgA5PKgyzR+YM3ZCl2Ius1XBwJ + W60skmyD9utOyPzbnN9t4NkbARYYbPJDR+a76BQRageWBZSULwsopfYsMyhLN7DxBp57q1whdeMGnmP8 + JgO0aHIJO3EeNfiiQ0KN7Fi2g1Jiy3MH5QzCBh2XbKG8ZKOFNZTpxDpOT9E2SFxNqPnzYm8dca6rLoTg + Bor/vggPaz+FQmymEBFqKw3fE+9AkcpyKmViDaf9wjJ0Ztkh3dmYmr8g9tYR57rqQgha9Fyh/0IM/Lgb + 8guW6oaKlNVoT13NapGUlZz2i9qsQHvycrR9uwgtX81lR8sK3++YSc2nMOi5oCPOddWFEGTg+QLfBei/ + 44bWU6ZoOzMf8nNL0Z70V8bbGi6InF/G95ayUrIVPRXh6LpxEh03QtBbcwpX/NbpGBgOfQZeuPbZW+ir + dkFrvCnbk9c4rafnoS1hAeSJixlLIP+OwYx1Ffmj89pBKHN90J7tgWupUdgXeBZ7P09AfnocisJcqbkB + gx5KT3j4xo7Z5RMzqgFyOSXP5w30VnwEWdwctMTN5chiqWbEzkZLzGw2NkHHlb1oKwxBeOQpnI6Nxb3s + E4iKjEHVnTrcvF2LCFbnfv0FdniHnHf1iSxatMyOzoWxzvsi9Bu4uu919JQ4cjEZEWMiEK2VGYqcPQgL + j0PN/UaUVv6EgJNJ2O0fj/7+R1B0PoDbZ9HwD07A9dI73NDHnifySMPJI0SvgT/l7DFF9/XNOmJNxJcC + sqhZHHmWN6Ijo1B68yd09/aj+0E/6hra8GhwCHJFN6prfkH/wEM86BtAmrQIVu95ppCGo+uREQ3wdwHG + i9lec9F19T3IvpzFBI3RxMQEWB1JY2O0fmcNucQNtyVH4X8kEZ09vZAru9Gq6OJZ1taBplYly0rUNsqx + zfnw0JuL11uy/vRuMFafgamZHrP5NdwUNVMjGsHqiBnqrCw+hqzEYzgafAIue8JQ3yRHs7wD2Xnl2L4z + AJ+4ByGvsAo/N8hRXHEXWz4JHHL44IDUeqPXdqNZ88eNZoDcTZW6m7BLah0XaiTCCSMd5NeC8bF3KErK + 76Kruxe9fQ/RyPbYbtM+pEYfQFqMLxx3BqGpRYnSqvvIL6nBvySFsH//IIlN1GfAQLLLGO1pq9EYJgpS + DntVIPRVNDBa84PxoftRFN6oQWOzArVNbbhf34pNTn5IjjqAlOiDcN4Tyo5AG3KLbiO7oBoxCVLYbvqU + xCbpNZDuMgNydrNp4IKGTNBQk0++wjCEouAIzob6wsPdC5s+CkAROxK37tUjI6cMTh7H4Lw3DNLcSlSz + uaSMIqywdoX5Sse8N8zf9WQaz+gzMDVthyG7rS4XTrxIRoSQZVTzMZ2E69F8yR0lSZ/DxfM4fmZ7X1B2 + D/nsiFTfrce9Whkqb9dBml+FtKwyWG/crXplxoJVrD9/PxzJAAV/FsRtnn41wfFlJGybLvD+NJzZOsxL + +GYLY7MBckN3Ya/XfnybnItbP9bjMhM7e/EqMnIrkJ5TjvhzWUiWliBJUgy/f8bDdL5dKus/fs6b6zW6 + jxmgN1f6EKHnN90+pzNe1sPMtQ4eFSnSQgSHJ8LK3g1rHDxVKZdLcC69AOartqusHHap9gfEIig0EXPm + 2ZSy30wwNrMa1QD9DWSCjgT9HcNfRqMxfoqBkdEKW9di04X26dMM59lYrnUqiDqdji/Cz8NsoX3hS382 + s51t9k6qidm68kmTp81kv3lyxmtrRjUwHGTkt0JmJ4hMnG+5cfdSKxcsXeMM49dX0QlHb8R8G4PuM2ON + 5o5g4PcySpAh+i6khw5BNf8geTzUfbSb/u/BmH8D4mCuwuMP0ngAAAAASUVORK5CYII= + + + + 242, 17 + + + + iVBORw0KGgoAAAANSUhEUgAABNgAAAEKCAYAAADAeOj/AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAO4xJREFUeF7t3Xd8HdWd9/FNT0gjBfJkQ3rPLluS3fTk4dk8JNlNTwBjU4zpzRBD + TA8PMSV0TEkgYMDIFVfcbdxtcJN7wcZykZvcJFmWZVly4Tz6DUcvFHFszcw5Z8qdz/v1+v4FvnNn5ure + ud975px/UAAAAAAAAABio2ADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAA + AAAAwAIFGwAAAAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAA + AAAACxRsAAAAAAAAgAUKNgAAAAAAAMACBRsAAAAAAABggYINAAAAAAAAsEDBBgAAAAAAAFigYAMAAAAA + AAAsULABAAAAAAAAFijYAAAAAAAAAAsUbAAAAAAAAIAFCjYAAAAAAADAAgUbAAAAAAAAYIGCDQAAAAAA + ALBAwQYAAAAAAABYoGADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAAAAAA + wAIFGwAAAAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAAAAAA + CxRsAAAAAAAAgAUKNgAAAAAAAMACBRsAAAAAAABggYINAAAAAAAAsEDBBgAAAAAAAFigYAMAAAAAAAAs + ULABAAAAAAAAFijYAAAAAAAAAAsUbAAAAAAAAIAFCjYAAAAAAADAAgUbAAAAAAAAYIGCDQAAAAAAALBA + wQYAAAAAAABYoGADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAAAAAAwAIF + GwAAAAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAAAAAACxRs + AAAAAAAAgAUKNgAAAAAAAMACBRsAAAAAAABggYINAAAAAAAAsEDBBgAAAAAAAFigYAMAAAAAAAAsULAB + AAAAAAAAFijYAAAAAAAAAAsUbAAAAAAAAIAFCjYAAAAAAADAAgUbAAAAAAAAYIGCDQAAAAAAALBAwQYA + AAAAAABYoGADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAAAAAAwAIFGwAA + AAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAAAAAACxRsnmza + tU8t3lCtFlTsVq9uq1MHmg/r/wIAAAAA0Rw+fETtazyodu89oLZUN6iKqr3qlS171MrNe9SKTbVqeaXb + yGPKY8s21rZsS77f7Ko7oOpbnsOhlucC91577TXV2HRI1dQ3qW01+9X6HfVq9dY6tcrzOZbHX9OynY07 + 96kdexpVXUOzajrI91cgKgo2R/a0vAk9NGaV+sntL6qPnDdI/cPv+r4pX7lqpLriqXlqzpqd+l8hT4bO + 2ai+dcNYYsh3bhynfnDLBHXKrRPVqb0mqTMemKGu7DNP3T50qXpy8qtq1ILNwYd4c8Y+qF+Yv8m4P0XO + t1vO5XdvGqf+z/+bqH7x5ymq80Mz1UWPv6yu77dQPTLuFTVsbqWa++qu4OIe8ZSv22089mnkx71ezNzf + pS/ynmQ6BrZZsqFGb8HOssoa4+MnmV/dPVXtb/liV2rkc8i0v7b584jlegvxXfX0fONjl3rks+Z7N49X + P7ptUvC6O6v3LHXp3+aoWwYuVo9PWqNGl29Wi9ZXB2VSqZPSTEqUSUu2qb9MWK16lpWrro/OVj+7a0pw + rD5/xXB1/LkD1dtOf874/SLNvLXlOb3vrP7qpIuHqH+7drT6v3+apDo9OCP4viPXgP1nrg+uGaSUK7qq + 2v1q9is71LPTKoLXuVxb/ebeacH1s3xH/Gi3QeqdncqMxznNvOW0vuo9nfupj10wWP3T719QP/zjBPXb + lud98RNz1M0t+/FUy/vrtBVVqnLXPnXkyGt6b7Pr5/rvynWkhAYEBZslafgvaXmDOa5Lf+Ob0tHyr9eO + UiPmVQa/UiAfpFwwnUsSPnIh9sUrR6guvWeqv734ajC6M03yHEzPk4TLCd0GB0Vcj2cXBCWq/NqJjkkJ + bTqeaUW+0BWBvFZN+2+bmau26y3YkS9epsdPOr+8e2ouviRFIV9mTftqmwv++rLeQnxSSJgem7yRT186 + NCibbh28RE1fuT3Xo2pk1JcUh4+1vO/KtZBcE739jOwVZz4iRdy//2G0urDl76bPlLXByKlSe69ptW57 + veo3c5267Mm56us9R0f+npjXvKNTmfpS9xHq9PunqwdGr1Qvrd6Zubu4/tcFzxufu23mr92lt4Cio2Cz + ICOajjZaLWwo2vKDgs1P5NewO4YtU1urG/SRTg4Fm9tIgfrN68cGF1XySy3ebFZGSpS2+fiFzxdiGgMK + tvCR0ryUULCVVt7duV8w+rbv9IpcjHDbu785KFtk5IyMBDLtU1Ejpdv/3DlZPT11raquz+8oNylOX1y6 + LXhPOPH8wcZ9LWqkQJZrQxnxK7cZp42CDb5RsMV09TPzjX9ccUPRln0UbH4jv3rJhYkMMU8KBZu/SNn2 + 0zsmOysfSoXcCmI6XmlHStFSR8EWLXKbXqmgYCvdSGF13mOzUx8RbzJ1eVUw1UIWb/vLYuS6QaYakeL0 + 4KF8zO8mc+DJrc0f7mo34KJIaf1hPa1ClYINvlGwxeC6XGsbirbsomBLJjKM/sExqxK5bYCCLZlIqcSF + hwp+3TYdnyxE5n5pOFDacx1RsEWLzPc0cclW/ezyjYKt9CPljMwZunl38qPh2xu3aEswN63peZJw+cRF + Q9T9o1YGiylkkSwKIK83ed2Znj/pOFKOy1x9sqhCkijY4BsFW0T3jVph/KNyHYq27KFgSzYy34rvL/wU + bMlFLkKv6bsgWBmrqOQWCdOxyUruHL5MP9PSRMEWPe8/e0AwT1LeUbAVJ3LLoYy+TOP6WVb15Hy6zYe6 + DgxGtGWFzP8nt9DLxP+m50uiR37MSfL6kIINvlGwRSDLFyc9zJuiLTso2JLPf1w3xuv8KhRsyeefe7wQ + fAkpGlkRz3Q8shRZpa6UF6qgYIuXT14yVG2vbdTPMp8o2IqXX98zLdEfdGSOtQ+eM8D4XIh9ZMqJtEcn + Lt5Qrb529Ujj8yP2+cIVw4N5an2jYINvFGwRpDn6gKItfRRs6UQmv5Ul7H2gYEsnMqn+0o01+iyUPnnf + lvdw07HIWv44aLF+1qWHgi1+5MeO/TkefUrBVszIdfuuOv/zPF1XttC4feI2UmDK+2Qaxi7cwlx6CUWm + ifGJgg2+UbCFNG1FlfGPKelQtKWHgi29+JqAnYItvZzQbbBav6Nen4nSJitOm45BFiO3BOZ5JbdjoWCz + i4wISmJuTB8o2Iob3+Wwz3mZyZsjK8jKHHdJGjl/U7AQl+n5ED+5acAiffTdo2CDbxRsIf323mnGP6a0 + QtGWPAq29CILH2zysLooBVu6+VL3Eap2X5M+G6VJComv5uyWkp5l5frZlxYKNvtc2zefrw0KtmLnl3dP + 9XK9fEN/Rq6lEZmz64X5m/RZ8EsWJ5LtmZ4H8ZvfPzNfnwW3KNjgGwVbCLKCTVbfXCnakkPBlm4uf3Ku + PhPuULClny69Z+qzUZpkXh7Tfmc5srLXjj35nnPLhILNTeR9M28o2Mij41/RR9yNSUuyuyp0ESKjrddW + 7dVnww/5HDzx/MHG7ZNk0n/men023KFgg28UbCFMX7nd+IeUpVC0+UfBlm7kS39NvdvRThRs2UjSt3sk + 5dDhI+rzVww37nPW073PPL0XpYOCzU3kB0cpF/KEgo2896z+qtLRSPiddRQvWYgsmuTr9l/5PnVqL/42 + 045c+6/cvEefFTco2OAbBVsI941aYfxDymIo2vyhYEs/T09dq8+GGxRs2cjnLh/mbSGLND01Ob+vL5nM + udRWe6VgcxcZPeL6S49PFGxEcsYDM/RRt3NW71nGxyfJ56qn/dxG2Hd6hXF7JPmc3GOU0/k/KdjgGwVb + CBe2XECZ/pCyHIo29yjY0o+sKOoSBVt2MmCW+9sA0tR88LD65CVDjfual1z0uH15kCUUbG7zqZbXd15u + JaZgI5K3nNbX+rbCV7bsCR7H9Pgk+cjiA64XTJLR55+5bJhxeySdPDutQp8dexRs8I2CLYQ8/1JF0eYO + BVv6ed9Z/Z3+ikXBlp3IrR6lROb7Me1nnvL2M54rqZVeKdjc5z+vH6saPa7Q6AoFG2mN7Tk7/f7pxscl + 6eXMB93O5fpkjkefl2pOuniIOtB8WJ8hOxRs8I2CLQR54zb9IeUpFG32KNiyEZe3JVGwZSuLN1TrM5Nv + Ujj4uoBLOuc8MkvvVf5RsPmJrLKe9WsLCjbSGvmhLu4XdRn9ZnpMkn5cXRvKexmj17KZh1u+h7lAwQbf + KNhCKIWCrTUUbfFRsGUjLm8lpGDLVnqWleszk295mrezo7z19OfU6q11es/yjYLNX64rW6j3Ipso2Ejb + yHVwHLcOXmJ8PJJ+fv+Mm7nY8vw+XOpxdacDBRt8o2ALoZQKttb8yzWj1PC5FG1RULBlI3ePXK7PiD0K + tmxFFjvIu32NB9VHzhtk3D+XkZUc7xy+LPjRxPTfXUZuiSoFFGx+I4t6ZBUFG2mbLr3j3VL4xStHGB+P + pJ8Tug0O5k6zddmTc42PT7IRF3c6ULDBNwq2EEqxYGsNRVt4vgo2uWC7acCiXOXG/ovUNX0XBH8b37ph + bDBXk2nffOTylosfVyjYspdtNfv12cmnO4YtM+6X67QuQDB1eZXxv7vOssqaYHt5RsHmN1L6Tl62Te9N + tlCwkbaR+ZyiKl+32/hYJDsZtWCzPlvxSEH30W7+fyAj8dO9zzx9tuKjYINvFGwhlHLB1hqKto75Kth+ + efdUvYX8ajhwUA1+aUPwOjLto8v84s9T9FbtUbBlL0PnbNRnJ3/2NDSrD54zwLhfLvPuzv3+roj837dO + MP5/LlMK71MUbP7zgZbX/yqH82S6QsFG2mfz7gZ9BsK57XluD816zn1ktj5b8by8ZqfxcUl28omLopfj + 7VGwwTcKthCKULC1hqLt6CjYOnb48BF1bd9y4366yrdvHKe3Zo+CLXuRkZF5dbOnL/Ht036uuqSKGRnB + kWcUbMnk05cOVTvrGvVeZQMFG2mfIS9H+zHnR7dl5zzJaNEPdx2kPn/FcPUf140JXkO/u2+6OuOBGcF3 + FrkF9qzes6wjj9P5oZmq04Mz1Gn3T1f/fcdk9b2bxwffFWQhAJkO4Z2dyozPMY186pKh+mzFc8/IbM2f + Kj9YyPupTAVxyq0T1a/vmeb8HEvkHMtjymP//K4pwY92X+85Wn2h5fX1sQsGq/d07md8fmll3Xa71c0p + 2OAbBVsIRSrYWkPR9mYUbOF1fXS2cV9d5Bs9x+it2KNgy15+1nJxl0e79x4IVqcz7ZPLyAi52n1Neqtv + OLWX/y9/P+71ot5aPlGwJReZOiDuSo0+ULCR9rl96FJ9BjomPx6+N4H39/aRRWa+c+O44La4PlPWqgUV + u9Xe/c36WWVHXUNz8Nz6zVwX/ND00zsmq+O6JH+8JJW79ulnFZ2US6bH9J0vdx+huj32kuo9dpWatqIq + +IHiyJFsff9qOng4WKlVvhveNXx58N3YV1HVUeRvwQYFG3yjYAuhiAVbayja3kDBFl5940FvF6PyS54r + vgo2ufiQWw3yGikMZC4TOT4y554UE0n9gikXmnnke+Rma+S1ZSIXdqb/33WkBMorCrZkIyNesnLtUMSC + 7bEJq43v71nKjJXb1bCWa0x5rlc/Mz8YjSWjs0z74zryQ2BYi9ZXGx/DV+Ta++mpa1V1/QH9DPLn4KEj + wZyMMvrtHQmOcus7vUI/g2jkvUpGBZoe00dOPH+w6jV0qaqo2qufQT4tr6wN7jxIYnGn1sioOxsUbPCN + gi2EIhdsraFoo2CL6vy/vGTcX9uc3CP7BZv8rZQamWfvwTGrlKzUZdpnV5HbTbL2y21Httc2BvOimfbH + ZeRWjf1Nh/RW30xG/5n+ncv88I8T9Nbyp6gFm8xZk8Tr05Qb+i/Ue5euIhZs01e6eV0mrap2f/CDhe9b + D79/83i9xY4lNdpd3uOlcCw163fUB/PnmvbZdS55Yo7eajQbWp6j6fFcR8rGPw1ZGowIKyWygvp1ZQsT + WfRMbo22QcEG3yjYQqBgeyNFLtoo2KJ5ZmqFcX9tk4cRbKVYsLWS2y++evVI4367itxumSdXPDXPuB+u + 85cJq/UWzWT5etO/c52srhTZkaIWbDKfzsj5m9RbTjP/d9+Rz4K0UbDlz6yWv4fjzx1o3DcX+dzlw/SW + OiYjdEyP4TIy51XePvuiunvkcuO+u0zcH4EmLN5qfDyXkdfzvBIvYeQWV9+LPcmt0zYFJQUbfKNgC4GC + 7c0pYtFGwRaNXESY9tc2/3btaL0FexRs8ayt2qvedaa/0QW2E9gmadOufYnc/iJfBuWWm47IJMimf+8y + Mr9WHhW5YBO+PsM6ioxomLq8KngOaaFgyydZiMC0by4itwOG5Xturi91HxHMY1YEdw5fZjwGriK3Xsbh + +/1RRmQuXFett1baXlq90/tIthWbavXWoqNgg28UbCFQsB09RSraKNiiWbV5j3F/bfPN6919uadgi8/n + L/p5ugiVL9imfXCdAbPW6y0em8yHYvr3rjOmfLPeYn4UvWATSYzEMUVGNKzeWqefRfIo2PJLVq007Z9t + ZK63sGRuUNNjuIg8Dxl9XBTyfcHXa741e2KUlb5HossUG0Xie7Ti0DnRVgFui4INvlGwhUDB1nGKULRR + sEXj64v+f902UW/BHgVbfHIhYdp3F0l7tEtYMtIuiQm55f01ynurLLVvehyXkZGkeXu/p2B7/cvt6fdP + N/5/vvOZy4apXXXp3AJHwZZfPkcWydyiHZE5QX2OUj73kfCLLZSKJRtqjMfCVea+Gr3okFWyTY/lIp+6 + ZKg6dLjjEeilRG7hPOniIcbj4SJRVgFuj4INvlGwhUDBFj6lXLRRsEUzduEW4/7aRibKdYWCLT75G/e1 + UuzEJVv1VrJNVrIyPX/XGbdoi95iODJSSOYoMT2Wy9j8gpwGCrbXyRcfmeDd9P/6zrdvHKcONCc/uTcF + W36t9DQaXhJmpJMsYmP6t64i+1dEp9zq5/1YEuez6Wse55Z9qGCj11rJquem4+EiF8dczEJQsME3CrYQ + KNiipxSLNgq2aHwND5e/R1co2Oz4uiCNWiil4ZUtexKZND7KSndtnf2w//JPFrvI04qvFGxvqN3XpL5y + ld/FSo4WGWGZ9LUBBVt+ySgz0/65SHV9xyMqZa4n0791EfkbLKqnJvu5/pI81sGCQCYyd5vpsVxka3WD + 3kqxbNy5z3g8XORXFt+dKNjgGwVbCBRs8VNKRRsFWzTf6DnGuL+2cfGFphUFm52f3O7nlgoZ/Zh1pyV0 + m51MFhxHRdXeRG5f7T8z3NxwWUDB9vdkReCPXeDvS+WxctOARfpZJIOCLd98rUoYZtVOWRXR9G9d5Nq+ + 5XorxSPvP6Zj4iJ/HLRYbyUc+Y7i6/PS5cr3efSFK4Ybj4ttvnPjOL2F6CjY4BsFWwgUbPYphaKNgi28 + ycu2GffVReSLkisUbHbkdl3T/tsm6wXb0o1+549pzc/usrsduttjLxkf12Xk4jkvc8tQsL3ZovXV3m71 + 7ijPTqvQz8I/CrZ88zW6KEzB9rzHlUwHzs7PDxQ+fPxCP0VH1NsHa+qbjI/jIvI5XGTnPOJnNL2srB4X + BRt8o2ALgYLNXaRoGzEvn+UDBVs4G3bUex0VIbcVuELBZkdeu6b9t03WC7af3+WnWGwbuf1UFgqxIbdn + +F4qX9Jnylq9xWyjYDMbv2hLIqMd20dem0mVQBRs+ebrmiJMwSa3G5r+rYvIVANF5msU/K/vmaa3EM6a + rXXGx3ER+e5QZPePWmk8LrZ531n99Raio2CDbxRsIVCwuY8M7X11W3pL9sdBwXZsBw8dCUYkHH/uQON+ + usqkJdv0Fu1RsNkpYsEmF1Cm5+w6soCCC5c8Mcf4+C4jK6Q1H0x+4vqoKNiOzud8SMeKfF7Il1vfKNjy + Lc2C7Y5hy4z/1jbvOrNMHS7YypLtXfbkXOOxsY0soBDFPI+f664+H/JKBlWYjouLxJ0DloINvlGwhUDB + 5ifv6dxP9Zu5Th/l7PNVsMmFwLLKmtylfN3uYDL6JyatCZaZ9/WB1T7rd9TrM2KPgs2O3MJo2n/bZLlg + 8/VluG1kZI+MBHVhS3WDemenMuN2XCbOpNJJo2A7tps9lVAdRW71CVN02KBgy7ePnDfIuI+2CfO6k/kC + Tf/WNp+4aIjeQnHd+8IK47GxzbduGKu3EI78rZgex0WS+AEhyxZvqDYeFxeRBVDioGCDbxRsIVCw+c19 + o1boI51tvgo2Ej7yK7ZLFGx2/vP6scb9t01WCzYpUkzP13Uuf3Ku3qIb3fvMM27HZeSCtbHpkN5iNlGw + dUx+LDE9hu9896ZxqsnjKEgKtvySOR7f6ukW5jAFW49nFxj/rW3+uccLegvF5Wvk7Mk9oi0sILfJmx7H + RXbWNeqtFJPPlUR31cX7YYaCDb5RsIVAweY/ZTOyP5KNgi39/PbeaPNqdISCzc4J3fzctiMjI7Po+zeP + Nz5flzmuS3+1Y4/bC/LttY3q3Z37GbfnMjLXSpZRsHVMbvVPYpSmKXKt5WshJAq2/JLRvKb9cxGZ3L4j + l/7Nz232P7gl/N9lqRo6x88CErL4ThRyzWZ6HBfJw/QJPu1paDYeFxfZtGuf3ko0FGzwjYItBAo2/3lH + pzLrCb19o2BLP/1nul1xi4ItPp9L7E9YvFVvJTtk7j/Tc3UduR3Jh2v6+hmF0TYf7TZI7WuMd8tGEijY + wtm7vzkYAWJ6LN+RIswHCrb8GvzSBuP+uYh8+e/IeY/5GdVZiivIR+Vrxfl/jHj77YBZ642PYxuZCqfo + ZJ4007FxkdUxb7+lYINvFGwhULAlE7ndLO6ElUmgYEs38oEooytcomCL78Exq4z77iLTVlTprWSHr9th + 2+bDXQepuhBf+OKQWynee1Z/43ZdRiYEzyoKtvC2VjcEc0SZHs93npvufkQ7BVt+nX7/dOP+uciB5o5H + F3V6cIbx39pGbscuOpnL13RsbPOhrgP1FsKRlbBNj2Obj1/4vN5CsX3gnAHG42Mbmd8tDgo2+EbBFgIF + W3KRXyqzioIt3Tw9da0+E+5QsMUjJZCvCxRJ1i5SRi3YbHyeruN7Psob+i80btdlPthyIR1mVEgaKNii + WbGp1tsXo2NFRrTPcFwOUbDlk3yB9jX/mrzOwpCpKUz/3jau59rMo6Uba4zHxjbyORTF45PWGB/HNl+8 + coTeQrH5WqRk4ToKNmQTBVsIFGzJ5es9R+ujnj0UbOlFbtHwgYItOvnFX25tMe23q6zavEdvLX0yJ9S/ + XOP/djkZLRRmNIUNmW/o/Wf7L0xkNcosomCLTkaTShFhelyfkREor25zt/oeBVv+bKvZr7569UjjvrmI + jBgO4zeeCrYr+8zTWygumRrGdGxsI59zUfgq2L7cnYJN+Jqvd0HFbr2FaCjY4BsFWwgUbMkmq0taU7Cl + E/my7mviawq2aKQA+GYCt0puqW7QW0zfkJf9TMLcPrKaWhJuHbzEuH2Xed9Z/VV1fbzVvXyiYItH5r40 + Pa7vfP6K4c5eRxRs+SFThcjdDCdd7PcW5c9eNkxv8dh+fY+fgu2qp+frLRTXys17jMfGNvIZFMVfJ/op + 2KQghlIfu8BPwRa30KJgg28UbCFQsCWbB0ZncyU6CrZkIytsLVofb/h3WL4KNrmdtap2f24j8y9VVO0N + vvDLF50ezy5Q/3ptMpOev+W0vurQYbdz7cUlX/S+cpW/ERSt+VL3EepwQvsst/cef+5A4/NwmT88V663 + mB0UbPHdNXy58bF9R1budbEKXxELNvmhx/T+nqXIjymvbNmjpi6vUs9OqwiO56cvHWrcH9cJu4rnrzyN + 2L76GQo2Ga1uOja2kflGo/jLhNXGx7HN1yjYAjIXnen42GYeBRsyioItBAq2ZNP5oZn6yGcLBVtykQvs + +0etVOt31Ouj74evgo3ET9TVv3wqm7HO+BxdR0bJJUkWIjA9D5eR1dO21zbqLWYDBZudi5+YY3x83+nS + 2/6aoIgFGzl2zn54lj4Dx0bB5g8FWzFQsKFoKNhCoGBLNt/oOUYf+WyhYEsnsnpjv5nrvNwmSsGWvXz3 + pnH67KRLRtF97vJhxufoMvJ+5+sW6KPZ13jQ26TDbZO1OYYo2OzIKMuf3TXFuA3fue35JfpZxEPBRton + 7FyRFGz+ULAVAwUbioaCLQQKtmQjo5eyiIIt3cjcX3GX5D4aCrbspXtGSpknJyfz2nhx6Ta9xWTd+8IK + 4/NxmXd2KlObd2dnPj0KNnsNBw4GpbBpO74jc8HFRcFG2mfArHCvJwo2fyjYioGCDUVDwRYCBVuyoWAj + R8txXfqrKcuq9BmxR8GWvdh8iXal6eBh7xNsS/7rtol6i8nb33RInXi+n4mH2+ZCBwWEKxRsbuysawwm + iDdty2dkNdNZLccoDgo20j5hV6mlYPOHgq0YKNhQNBRsIVCwJZt//8NofeSzhYItG5FRMZOWuBn1Q8GW + rcgCB7LAQtqS+ltP+2Ks99hVxuflMm87/Tm1brvfuRTDomBzR8qJD3f1f5tx+8g2ZQGWqCjYSNt84JwB + oW/Np2Dzh4KtGCjYUDQUbCFQsCWbMx6YoY98tlCwZSfy4binoVmfmfgo2LKVH/7RfREQVWPTIW9LyrfN + r++ZpreYngPNh4NFJUzPz2XCTibuGwWbWy+v2anedWaZcZs+84Urhqua+ib9LMKhYCNt8/O7puij3zEK + Nn8o2IqBgg1FQ8EWAgVbsrl75HJ95LOFgi1b6frobH1m4qNgy1aemVqhz0x6kpib7K2nP6de2bJHbzFd + vr5YtI2MTMzC/lKwuTdsbmVwfk3b9Zkf3DJBNR88rJ9FxyjYSNv0mbJWH/2OUbD5Q8FWDBRsKBoKthAo + 2JLN8spafeSzhYIte1mzNdwcKkdDwZadfKn7iGDlzjTVJ7S65nmP2ZfDrkhJ8clLhhqfp8ucdv90vcX0 + ULD58dAY/7camxJlZCQFG2mNFMIyj2BYFGz+ULAVAwUbioaCLQQKtuTy1Qx/GFGwZS/X9F2gz048FGzZ + yZjyzfqspKfX0KXG5+Y6Mkp34Oz1mcnp9083Pk/XWbqxRh/pdFCw+SNlgWnbviN/s2FQsJHWSGEWBQWb + PxRsxUDBhqKhYAuBgi25ZOEWsaOhYMteZLRRlNuE2qNgy0Z6lpXrM5Ke2n1NwcTXpudH3CTKvEc+ULD5 + c+TIa+p39yVT1LaPlMQdoWAjrZmxMtrfKwWbPys21RqPjW3eR8GWKb7mtY1baFGwwTcKthAo2JKJfBAd + PJTuLWLH4qtg+97N44MLvrxmeksmLtmqymasC+avOqv3LPX5K4Yb99VHZNtxUbCln04Pzgi+nKftpgGL + jM+PuE2aF6AUbH7JohnfvWmc8Tn4jKws/dLqnfpZmFGwEcl3bhynj3p4siCN6bFs073PPL2F4lpWWWM8 + NrZ5/9kD9BbC+evENcbHsc1XrqJgEyd081OwLajYrbcQDQUbfKNgC4GCzX9kTow5a459gZw2XwXbLyPe + rpAXi9ZXB2WbaZ9d5tbBS/QWo6NgSzd/eK5cvfZa+uXa7r0HgltKTM+RuM2pvSbpo548Cjb/ZHVPmU/R + 9Dx8RkYzr9ter5/Fm1GwEVlcJs5t6r+510/BdsVTFGxyPkzHxjYyGj2Kxyf5KdjkvRDK29y25eso2JBN + FGwhULD5z4NjVumjnV0UbPGMWrDZ6613P7n9Rb2l6CjY0sudw5fps5A+mcvP9ByJn8x6ZYc+8smiYEvG + hh316sTz/YxYOFbky6zc6m1CwUbiztn6W08FW7fHXtJbKC4ZeWo6Nrb5YMSC7QlPBdtJFw/RWyi2d51Z + Zjw+tlm4rlpvIRoKNvhGwRYCBZvfXNs3/fmXwqBgi290+WbjvrvIh7oOjD0KioIt3cjIgI079+mzkY6q + 2v3q3Z37GZ8f8ZMf3JJs4dOKgi05MrLguC7JjwqVfTVNNUHBVuyccuvE2KtUyzQGpse0TdTFFkqRLG5k + Oja2kVsSo3h66lrj49hG3gOLTqYOMB0bF1leWau3Eg0FG3yjYAuBgs1PZLj+/aNW6qOcfRRsds55xN/t + oluqG/RWoqFgSz8yGfGExfHn0bN1+ZNzjc+L+M2LS7fpM5AcCrZkjV24JficNz0nnzn3kdn6GbyBgq24 + kXmwqusP6KMd3XmPzTY+rm3S+qEhS2TuXtOxsc2nLhmqtxCOLJRiehwXsVmIqxTIj5im4+IiFVV79Vai + oWCDbxRsIVCwuY/cyhF3eeW0ULDZmfvqLuP+u0jciU4p2LKRt7V8CZdRjknbtGufekcnP7cukGPnm9eP + 1WchORRsyUvrPfaOYX9/CzoFWzHzrRvGBvMC2vD1IwwrTCr1sKfr6qiLC4ycv8n4OC4iBVORrdq8x3hc + XGRbTbxjS8EG3yjYQqBgc5dPXjI0uODO8mqhR0PBZu8fLxpiPAa2kdsM4qBgy05kzpRjTVLuw/l/ecn4 + XEgySbpUpWBLx43901mhd9DsDfoZULAVMRe2nJv9TYf0UY5PFuMxPb5t5Et+0fma//TrPUfrLYQzack2 + 4+O4yMrNe/RWiknuUDAdFxfZ09CstxINBRt8o2ALgYLNPjJcO6/FWisKNnu+vkg8NflVvYVoKNiylf++ + Y7I+M/7JrQUycs70PEgy+ddrRyW6iiwFW3qSWFG6fWRi7dbVySnYipNPXzrU6bQDslK5aTu2kdXzGw4c + 1FspJrn+NR0b23zv5vF6C+H4eu+VpDE6P0seHe/nu5OkKebttxRs8I2CLQQKtvgphWKtFQWbPVmW3nQM + bNP+dqCwKNiyF7mVOAldevO+noUMeXmjPiP+UbClR64BfB3/Y+Wj3Qap9TvqKdgKELnefHKy++vN+0at + MG7PReRvvsg+d/kw43GxzY97RVtdfsmGGuPjuMgfBy3WWymmS56YYzwutpH5PeOiYINvFGwhULBFTykV + a60o2OxdV7bQeAxs0+PZeMvvU7BlL/J+65vMCSKjB0zbJ8lG5so5ciSZUWwUbOmqa2hW//T7F4zP0We+ + 3H2EurKPnx93KNjSjazSKKMj5Ra/wzFXCe3Is9MqjNt2kQfHrNJbKZ7ttY3GY+Ii8gNaFLJQlulxXOSn + CY7MzyKZa9B0XGxz4vnRVopti4INvlGwhUDBFj4yNN/HL4hZQMFmr2eZn7lMurd8eYqDgi17kVVF4w77 + D+u3904zbpukE1lJLgkUbOmTL7K+5uI8VnytZkrBlmw+3HVQ8HqW2zZnrNzu/bNC+JxDKslpEbLmuel+ + VhCVRP3RVb6zmB7HReSa5kBzMVcS3eqxuDy5xyi9lego2OAbBVsIFGwdp5SLtVYUbPZ8rcYljxuHr4JN + Juz/9o3jchNZaU0mBf7sZcMysarm2IVb9Blyz+etICRe5DahQ55Gn7RFwZYNyypr1PvPHmB8rnlLlgu2 + 488dGIzyyHI+dsFg9fELnw8WwJLRrP9x3Rh1yq0Tg+siubWs19ClwRyrU5ZVBSOe0rB4Q7Xx+LqIzAO6 + e+8BvaVi8fV+LLln5Aq9lfA+1HWg8bFcZOic5KZCyJI/j1huPB4uIu+bcVGwwTcKthAo2I4eKdbk4qeU + i7VWFGz2ZKi86RjY5rKMFWw/uT3a/B9ZIpPOy7Ly01duD1b/+/c/jDbuo8/4nLPkZ3dNMW6TpJu4C5VE + QcGWHZOXbVNvPyP/i4xkuWCT93DYk89D0/F1lRv6L9RbKo4FFbuNx8JV+k6v0FsK76uebmWUSHFcNLKC + r8/RynJreFwUbPCNgi0ECrY3p0jFWisKNntfvHKE8RjYJmu3iOa5YDORZeZ/k+Btlb/48xS9ZbfmtVz8 + mLZH0o+MYGn2fLsXBVu2+LxFLKlQsJU+mdvN54rT7+ncT726rU5vrfTJaGUZOW86Fq4SZxVZ37dqxyn9 + 8kx+oDUdB1e5pm+8uZcFBRt8o2ALgYLtjXzmsmGFK9ZaUbDZ2Vbj71fg3z8zX28lGgq2aKRIkDlwTPvs + MlLg+/Cj25jrKMuR5fx9omDLntuHLjU+57yEgq0YZKEM0zF2lX/u8YLa09Cst1baLv2bn1Ul26aiaq/e + Wni+VrlvjRSpi9ZX662VNrkl1nQMXObxSWv01qKjYINvFGwhULC9Xqz1mbI2kXlysoqCzc7Dno6f5A/P + leutREPBFt3algtXeT8w7beryDxwrsmE2KZtkexELnobmw7pM+YeBVs2XfjXl43POw+hYCuGJEZwywq7 + G3bU6y2WHnlvl9U9TfvuMu86syzWytR/nbjG+HguI3NPTlwSfXRdnsh3JZ8jPltj87lLwQbfKNhCKHLB + RrH2Bgq2+GQFJZnI3LT/LiITqcZBwRaPzJ/ia1W+1uzd7/bX/O/fPN64HZKt3Dcq+uTUYVGwZZNcX/ia + n9N3KNiK4aYBfm93a42Mcrpj2LKSGs0mf9/9Zq4LpgEw7bPr/Ms18VaXTPJHuLMfnqXWbS+tMvXlNTsT + vc6yWRyEgg2+UbCFUMSCjWLtzSjY4ruubKFx313l2Wnx5ragYItPJmY27burxLnF42jkF2PTNlxndPnm + 4KKvVCOLiZj222U+ct4gta/xoD5zblGwZVfDgYPBSsam55/lULAVw8DZ643H2FeO69JfdX10dnCrXe2+ + Jv0s8qOuoTlYDVzmxz2h22DjPvpKpwdn6GcRjXzGmR7PV95y2uvXinKr48ad+/SzyA+ZKkhKNSmEfS4Q + YYpcJ9igYINvFGwhFKlg++xlw9TTUynWTCjY4pFl9k377TLjF23RW4uGgi2+6voDwa2cpv13EZdzlcgK + XqZtuMwP/5j9EsOWrKYnt9+Y9t9lZF4uHyjYsm3HnsZg/kXTPmQ1FGzFULlrn/EYJ5VPXDQkGOXZs6xc + 9R67Kpgw/4X5m4JRV8sqa9Tm3Q3B38+uugPBZ7OUci5SU98UPJ6UT/LYm1qOgyx6NPfVXcFKwCPmVQaL + lTw0ZpW6/Mm56tRek4If6KU8Mu1HErlnZPxR0F+4YrjxMZPI8ecODEaAyRx1949aGQxyGDa3Uk1ZVqUW + rqtW63fUB+d4Z11jcD5M5ytu2p7jrdUNavXWOlW+breatqJKjVqwWQ2YtT64hVamY/lVy3eWr109MpFr + gaNF3jNtULDBNwq2EIpQsFGsdYyCLRq5jdDXF9r2iVvGULDZkQst0/67iLx+XJAvIabHdx1XJUvWyYgE + 0/67zAfPGeDlFikKtuyTL3Yf6jrQuB9ZDAVbcch1suk4k2xFiqG4Ln7C/wIMxD5xp4VpRcEG3yjYQijl + gk3mxXpmagXFWgi+CjYZ+SJvynmODBMft2hL8AvXlS1fwD+f8K+A22sb9VmKhoLNjvxybdp/F5nX8rqy + 9dprr6mTe4wyPr7L/NdtE/UWS19So9hkziPXKNjyQY7DOz2OjnUZCrbiyPNiHEWJjAKLs8BBq+df9r/6 + JbGPTYkqfBVscrvsoNkbSjZTl1fpI4iOULCFUIoFG8VadL4KNmIXuaCKi4LNjlzkmPbfReQWFFuDX9pg + fGzXkYK5SK5+Zr7xOLjMe8/qH9yy4hIFW37k5YsuBVtxDKF8yXxktVcb8pnjewEnYhfbElX4KthKPUWY + CsUVCrYQSqlgo1iLj4Itm/nezeP1GYqOgs2OTEZv2n8XsS3YDre8x325+wjjY7vMj3sV41y3JSNG3925 + n/F4uMw1fRfoLbpBwZYvMg+RaX+yFAq24mhsOqQ+cM4A47Em2UjcBa/a+u+crmhclHTpPVOfqfgo2OKF + gi08CrYQSqFgk2JNPngo1uKjYMtm5JbUuCjY7PmaL8m2YPN5+2rbyC3SRfT7BEaxSYknt6S6QsGWP0nM + +WcTCrZikQnoTceapB8pP/c3HdJnKr7hcyuNj0+yEReftxRs8ULBFh4FWwjSlpteaHkIxZo7FGzZjFwM + xUXBZu9jF/hZgt+mYJP3uyQmpP6fOyfrLRaPrGaWxCi2K56KX6C3R8GWP3IrkNz2ZdqvLISCrVhkNUfT + sSbpR1YxdeHgoSPqxPP9XNcQu8hdCS5QsMULBVt4FGwhyAWU6YWW5cgk87KMt9wmBTco2LIXWQpelpGP + i4LN3scv9HOhYlOw+Tqv7RN39dpS0ePZBcbj4jLv6FSmNu3ap7doh4Itn+TWvG/fOM64b2mHgq14fJ0v + YpcVm2r1GbJ3z8gVxm2QdNN77Cp9huxQsMULBVt4FGwh3Dl8mfGFlsVQrPlDwZa9nHKr3eqNFGz2slaw + NR08rE66eIjxMV3mV3dP1Vssrp11jeo9CYxic1FiCAq2/JLJx7+Q8OrUYULBVjzLK2uDH/dMx5ykk66P + ztZnxw25jvj0pUON2yLpRO7IkvPiAgVbvFCwhUfBFsKkJduML7QshWLNPwq27EVe8zYo2OxlrWB7OKG/ + 02WVNXqLxSYLEZiOj8u87fTn1Lrt9XqL8VGw5Zu8Bj7abZBxH9MKBVsx5fHOllLN+88eEExZ4FpSq5CT + cBlTvlmfGXsUbPFCwRYeBVsIcgua6YWWhcgvujKZN8WafxRs2cqHuw5SDQcO6rMTDwWbvSwVbDLBsa85 + 4drmd/dN11tEUqPYzuo9S28xPgq2/JNFRZJ4vYUNBVsx7WloDkbUmI47STZybe7LGQ/MMG6TJJtf/HmK + PiNuULDFCwVbeBRsIf2414vGF1taoVhLHgVbtnL3yOX6zMRHwWYvSwVbEvOmyK1BKzfv0VuEuLZvufFY + uYwc91e22B13CrbSMLp8s3rr6c8Z9zXpULAVl8z5dVyX/sZjT5KJ61tD25Mf7U7uMcq4bZJMvnb1SFXX + 0KzPiBsUbPFCwRYeBVtIMjTV9GJLOhRr6aFgy04+eclQ69FrgoLNXlYKtvrGg8GoRtNjuUynB2foLaLV + rroDiXzRtB05SMFWOv46cY1xX5MOBVuxjZhXqd5+RjbK3qJF3tdkxU/fNuyo93adQ46dE7oNVht3ulnk + qC0KtnihYAuPgi0kWSpeWnTTCy6JfPHKEapsBsVamijYspNpK6r0WbFDwWYvKwXbn4YsNT6Oy8iomTVb + 6/QW0VbPMv+j2CRLNsSf+46CrbRcV7bQuL9JhoINLy7dpt53FiPZksypvSYFt+kmRVay/mqK3wGLGFlk + QhYU8YGCLV4o2MKjYItA5v5I+rYEirXsoGDLRnoNXarPiD0KNntZKNhq9zWpD5wzwPg4LnP2w/bzgJUq + WeUxiVFsP7sr/lwsFGyl5bXXXlNnPjjTuM9JhYINQop/GVlvOg/EbXo8uyCV70RyneHrM4T8feQzS64p + fKFgixcKtvAo2CK6acAi44vOdaRY6zeTYi1LKNjSz5V95umz4QYFm70sFGw39Pc/kkVWsqyo2qu3CJOk + RhTNWxt9fj5BwVZ6mg8eDvbPtN9JhIINrfY1HlRXPT0/mC/SdD6IXWRE0/C5lfpop0NK/Scnv6o+mMAP + ekWM/Eh3+9Cl6pDn774UbPFCwRYeBVtEcqvouY/MNr7wXORL3SnWsoqCLb3IyNH7Rq3QZ8IdCjZ7aRds + Sc3/dd5jfidTLgXyi/N7E7hV6ke3TdJbjIaCrTTJrWJpTeFBwYb2FlTsDt6jTOeERM/7zx4QLGrVdPCw + PsLp217bGPztv7NTmfE5k2iRUrrbYy+pqtr9+gj7RcEWLxRs4VGwxSAlm6xcY3rxxQ3FWvZRsKUTmffC + 1RfY9ijY7KVdsMntIqZ/7zIyibVMdIyOXd8vmVFscd4TKNhKl8yR5Ou96FihYMPRLKusCX6YoYSJl2/0 + HKOemLRG7d2f3FxrUe2sa1S3Dl6iZDJ+0z6QY+cTFw1RtwxcnPj1FQVbvFCwhUfBZuGpya9aT2wqxVr/ + meuD0g7ZRsGWbD53+TD16PhXvA4Vp2Czl2bBtq1mv3p3537Gf+8yFzr4El0U1fUHEpnw+/s3j9dbDI+C + rbQt3ViT+GTzFGzoSF1Dsxr80gbV+aGZ6vhzBxrPFXn9h6zvtbyvS2El5WSeyGqmU5ZVqe595qnPXDbM + uH/k9choY5nuZeKSral996VgixcKtvAo2CxV7tqnuvSeqd4R8ReqL1Os5Q4Fm/985LxBwS3YY8o3J/K3 + QcFmL82C7bIn5xr/rcvIe7uMjkF4ScyJJ5m0ZJveYjgUbKVPXhMyX6LpOPgIBRuikB8MZQ7JxyasDq51 + pGwo4pxt8jf6latGqt/dNz0o1CYs3qoaDhzURyn/ZLVxWaBOiqRv3zgukR8Cs5iTLh6ifnrHZHVt33I1 + cPb64NbaLKBgixcKtvAo2ByRNw2ZmPEHt0w46hw08quG3GM+dXlVMFEm8oWCzV2ktPhsy9/DKbdOVBc/ + MSeYNHbxhurEC2cKNntpFWzy40bUHzbiREo8RFNT35TISKL/vH6s3mI4FGzF8Oy0CuNx8BEKNtg60Hw4 + KGSkZHp80hrVs6w8GO32414vBrdJyrVSHibVlxLpo90GBc/35B6j1HdvGhes+nzR4y+r255fEtz1M27R + FrViU22wOEmRyPQ/8kPdjJa/yb7TK4JSUaYakuMjBZzczSTHTuYbNh3brERGGX6o68BgxVwph7/Z8hl8 + aq9JQVksP6xJcTxiXmUwD2GWb+2lYIsXCrbwKNg8kJJgdcuH5ctrdgYX3nLbgkzCi3yTuRbmr91FIkY+ + aBeuq1arNu9RW6obgg/drBTMMkG+/JrsOnKxXBRSjJqOgW1kRbZjkb9H079zHbm9B9HJ34DpeLqO3JoT + lnwumx7DNvUdvFbDkte86fFt88qWPXoLxSG3mJmOheu4mDvI19+Kq9clskG+W8goL7kNX6ZHWN/y2pPr + KvkMlmus8nW7g2su02shbuTx5HHl8WU7SzbUBH9byytrg/dTuaaTz0jmj3ZDro0bmw6p2n1NwcCNjTv3 + BcdZvke2nmO5pnZ5nttepy9a//o5lu3JOZbXl/yYKa+5UipFfV23lnqKeC0RFwUbAAAAAAAAYIGCDQAA + AAAAALBAwQYAAAAAAABYoGADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAA + AAAAwAIFGwAAAAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAA + AAAACxRsAAAAAAAAgAUKNgAAAAAAAMACBRsAAAAAAABggYINAAAAAAAAsEDBBgAAAAAAAFigYAMAAAAA + AAAsULABAAAAAAAAFijYAAAAAAAAAAsUbAAAAAAAAIAFCjYAAAAAAADAAgUbAAAAAAAAYIGCDQAAAAAA + ALBAwQYAAAAAAABYoGADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAAAAAA + wAIFGwAAAAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAAAAAA + CxRsAAAAAAAAgAUKNgAAAAAAAMACBRsAAAAAAABggYINAAAAAAAAsEDBBgAAAAAAAFigYAMAAAAAAAAs + ULABAAAAAAAAFijYAAAAAAAAAAsUbAAAAAAAAIAFCjYAAAAAAADAAgUbAAAAAAAAYIGCDQAAAAAAALBA + wQYAAAAAAABYoGADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAAAAAAwAIF + GwAAAAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAAAAAACxRs + AAAAAAAAgAUKNgAAAAAAAMACBRsAAAAAAABggYINAAAAAAAAsEDBBgAAAAAAAFigYAMAAAAAAAAsULAB + AAAAAAAAFijYAAAAAAAAAAsUbAAAAAAAAIAFCjYAAAAAAADAAgUbAAAAAAAAYIGCDQAAAAAAALBAwQYA + AAAAAABYoGADAAAAAAAALFCwAQAAAAAAABYo2AAAAAAAAAALFGwAAAAAAACABQo2AAAAAAAAwAIFGwAA + AAAAAGCBgg0AAAAAAACwQMEGAAAAAAAAWKBgAwAAAAAAACxQsAEAAAAAAAAWKNgAAAAAAAAACxRsAAAA + AAAAgAUKNgAAAAAAACA2pf4/xuc6nNxiNPEAAAAASUVORK5CYII= + + + + + AAABAAgAICAQAAEABADoAgAAhgAAABAQEAABAAQAKAEAAG4DAAAwMAAAAQAIAKgOAACWBAAAICAAAAEA + CACoCAAAPhMAABAQAAABAAgAaAUAAOYbAAAwMAAAAQAgAKglAABOIQAAICAAAAEAIACoEAAA9kYAABAQ + AAABACAAaAQAAJ5XAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + gAAAAAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////ACIi + IRERERERERERERESIiIiIRERERERERERERERERIiIhERERERERERERERERERIiERERERERERERERERER + ERIhEREQAAAAAAAAAAABERESERERCIiIiIiIiIiIgAEREREREYd3d3d3d3d3d3gBERERERh3d3d/f39/ + d3d3gBEREREYd3h4h///eIeHd4ARERERF3eAiAH//3CIAHeAERERERf3gAAAf/eAAACHgBEREREXf4AA + Af//gAAAd4ARERERF/dxABf//3gACPeAERERERd/d4h////3iH93gBEREREX9///////////94ARERER + F////////////3eAERERERd////////////3gBEREREX//93/////3d/d4ARERERF/93eH////d4d/eA + ERERERf3iH+I//94jwh3gBEREREX94AAAP//gAgAd4ARERERF/eAAAD//4AAAHeAERERERf3gAAI//9w + AAB3gBEREREX/3gAh///+AAH94ARERERF///d/////93f/eAERERERF////////////3ARERERERF/// + ///////3cRERESERERERERERERERERERERIhERERERERERERERERERESIhERERERERERERERERERIiIh + EREREREREREREREREiIiIiEREREREREREREREiIi+AAAH+AAAAfAAAADgAAAAYAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAAHAAAAD4AAAB/gAAB8oAAAAEAAAACAAAAABAAQAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/ + AAAA//8A/wAAAP8A/wD//wAA////ACIREREREREiIRERERERERIRGIiIiIiBERF/f39/d3gREXeAD/gA + eBERfwAP8AD4ERF/gA/4AHgREX//////+BERf/////94ERF/gA/4APgREX8AD/AAeBERf3CP9wj4ERF/ + //////gRERd3d3d3cREhEREREREREiIREREREREiwAMYd4ABh/8AAIeHAAAREQAAF3cAAAH/AACIAAAA + EREAABf3AAAAfwAAAAAAABERAAAXfwAAAf+AAQAAwAMRESgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAANB0YADslGAAyHSwAKysrADUjKQAtLTwANSY1ADY0NgBKKwoAUysDAE0x + CQBXNggARSsXAFEvFABKMxkAVTcWAGU4CQBCKygAVSsrAEkzIwBTOiMAQCAwAEM0MQBIRAUAZ0QFAHxD + BQBmQxMAdUQVAFVFLgB0Ui0AeWE+AAAAVQApJkYANCVEADMzRAArJ1YANStaADs2WgAsJWgAMyxqADoy + ZQApJnUAMi12ADYyewBVAFUAQzBFAEI6cAAnQ0MALVl3ACZmewBMTEwAWkhJAFZGVQBpUVEAXW1eAHJr + TQBMSW0ASmpnAGxsawCAAAAA/wAAAIZHBwCWTAQAjlUNAJtRBQCFRhEAjlMQAKBPAgCnUwIAtVsGAKRX + EQCyZxcAiV0wAKxeOgCVZykAknA/AK9zMQDKbhMAyHcqANB8JADKeTMAmV5MAIxxSwC0ckoAlnFgAK57 + ZgDEfEoAa4lxALaCKwDUjjIA4o8kAPatPACXglMArINQAJKEdQCqiW0AtaNwAMiDSADfn0wAx4ZYAMKc + UgDLpFsAx4plAMuRawDKlHcA0a1xAOC6cgD7wFUA98luAAAAgAABAZkAKiqHADg0ggAmKZkAJjiSADc2 + mQADCKUADBKpABcXpAACDbIABhe7ABIfuwAXI7kAJSioADIzrAAkK7YAJzG8ADc5swBAP4wAQT2qABJa + lQAgU4kABGWXAC10iQAbTKQANEawAAZ1qQAqbrgATUuPAGNHhABNfpEAbmaEAENErwBHSbYAR1i1AFlZ + vQBgV6wAR3KsAGlpugABGssADSDDABUpyQACIdYAEivTABgz1gAgLMMAJzTHACQ61gAxPdIAASnoAAcw + 7gAZPu0AAC3yAAI0/QARPPUAID7jADlFxwAmW8YAK0HUADJH1gA/UdYAGWDFADF6xQAaQO4AFkT9ACZH + 6QAzTuUAOlbnACJM/AAoUv0ANFr7ADti/gBKVcwAV2fTAGpy0gBCWukASGTrAFdt6ABGaPkATHD/AFV2 + /ABkdeIAgACAAIt1jgCLfbEAAAAAAAOFtgAcoL0APqasAFGFjAB0lY4AS5CqAFuzrAABlcgALpHYAByo + xgACp9gAJ6zDAAG16ABQitIAeIbVAGyC7QB1husAZ5DsAH+Q7gBmhP4Acor2AG6R8AB4kvsAfbLjAADG + +QApze8AkpuQALmOggCNspsArq2FAJeMtgCxlKEAlqeqAL2ipgDBm5UAyqifAMC5pADdwo8A9dWLAP/m + mwCIi9UAkbzcAICM5QCHlOcAlZzjAICZ/gCTp/gAn7T7AKe2+gDQvsMAl8HlALzJ/QDWxswAws3+AMzW + /QDT3P4A2+H9AOLo/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAMzMzMzMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz + i4EvNDYzMzMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADOQp6qngHAuNjMzMwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM4+Atra9vb2ngCk0MzMzAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAzMzMzMzMzMzMzi4C9tba2sqq3u6eAcC4zMzMzAAAAAAAAAAAAAAAAAAAAAAAAM01G + SEhISEhIRkiLgL+2tLW1b3yQb7K9q4BwJjYzMzMAAAAAAAAAAAAAAAAAAABNSEgAAAAAAAAAM4uAv7+2 + s7S1dYB8b3a+vr63gH4pNDMzMwAAAAAAAAAAAAAAAE1ISAAAAAAAAAAzj4C/v7+2s7O0eX5vb2+yvr6+ + vr2ngHAuMzMzAAAAAAAAAAAAAEZIAAAAAAAAADOPgL+/v9i2r7Ozr29vb2+yvr6+vr6+vZ6AcC4zMwAA + AAAAAAAAAEgzAAAAAAAAM4CAv7+/2Ni2r6+vs692b3u2vb2+vr6+vr69t4ApNTMAAAAAAAAAXU0zAAAA + AAAzgIC/v7/Y2Ni2pK+vr5i0tLW2tr29vr6+nW+AuLeQNTMAAAAAAAAA31wzAAAAADOAgL+/v9jY2Ni2 + pKSvdXyQfrS1tba9vb6+nG+Qb7KAcTMAAAAAAAAAyFxTMwAAM4CAv7+/2NjY2Nu2pKSkb4CAb3m0tbW2 + vb2+snx9b3unLDMAAAAAAAAAyFpqHTMzgIC/v7/Y2NjY29u2pKSkeI9vb2+vtLW1tr29vqdvb3arLDMA + AAAAAAAAxU5tUx2LgL+3udjY2Njb29u2pKSko29vb2+vs7S1tba9vb6qdqqrLDMAAAAAAAAAxU9t6jaQ + u7uPuNjY2Nvb2/K9pKSkpKN4b3mvr7O0tLW2tbK3vr6rLDMAAAAAAAAAAF1a6+uAv36At9jY29vb8vK9 + pKSkpKSkpKSvr6+ztLS1dm+Qt76rLDMAAAAAAAAAAMhabetSv359t9jb29S31fO+pKSkeHyQmKSkr6+v + s7S0mHyQb6qrLDMAAAAAAAAAAMVhT+xOVW982Nvb27eQufS/pKSkb4CAb5akpKSvr7OztIBvb3arLDMA + AAAAAAAAAABYYVpOTlXA29vb1XyPufW/pKSkdY9vb3WkpKSkr6+zs55vb3uqLDMAAAAAAAAAAADF4mFO + T09o29vy1HyA8Pj0pKSklm9vb2+jpKSkpK+vs7OemLWqLDMAAAAAAAAAAAAAyeE6T1FRVNvyt3eA+Pz8 + s6SkpHlvb2+kpKSkpKSvr5ietLSqLEczAAAAAAAAAAAAxeGJU2RXV2Tx8n7x/P7+/PO1pKSjlqOkpKSk + pKSklm+At7SqLEdGMwAAAAAAAAAAAK2JiThUYmJi5/j8/v78+PXz8r+vpKSkpKSkpKSkpHeQb3mqLDNG + MwAAAAAAAAAAAIOJxcU4VGRkZGj9/vz49fPy8vLy272vpKSkpKSkpH53b2+eLDNGRjMAAAAAAAAAAJCD + xczMyFFnZ2dn9vj18rnb8vLy8vLy27WkpKSkpKRvb3WeLDMARjMAAAAAAAAAAJC4iczPz85PaGhoaGmA + gLm3ufLy8vLy8vLy2LSkpKSjpKSecTMAAEYzAAAAAAAAAJC424nPz9HRTWhpaVRNjO25t9Xy8vLy8vLy + 8vLbv6+kpKSecTMAAEZGMwAAAAAAAJC59POJz9HR3VhiaWlUVOftufLy8vLy8vLy8vLy8vLbvaSYgTMA + AABGMwAAAAAAAJC59fj4xdHd3d3HT2hoaGho5PLy8vLy8vLy8vLy8vLy8tudizMAAABGSDMAAAAAAJC5 + +Pz+/onR3d3dzk1kZGRkZGTj8vLy8vLy8vLy8vLy1Z2AMwAAAAAARjMAAAAAAJC5/P7+/PjSz93R0c9Y + T1dUVGRkZ/Dy8vLy8vLy8vLUnY8zAAAAAAAARjMAAAAAAJC5/v78+PXz0sXR0c/PzElIVGlkZFdg8vLy + 8vLy8sCdkDMAAAAAAAAARjMAAAAAAACQ/vz49fPy8tuJz8/PzIQxOk1UZFFRUWDy8vLyuZ2LMwAAAAAA + AABGTjMAAAAAAAC3gLnz8/Ly8vLy0onMzMWJxcw6SE5OTk5OVvK3nDkzAAAAAAAAAEZOMzMAAAAAAAAA + ALePgLjb8vLy8tuticWJiYmJhTpLTk5OTk7CNR0zMwAAAAAARk1GMwAAAAAAAAAAAAAAAKeAgMDb8vLy + 29KJiYmFg4WFhYY4SE5iYk1MUzMzMzNIS0YzAAAAAAAAAAAAAAAAAAAAAJ2At9Ty8vLy2IeDg4SDhYWF + 3t7HTEhITk5OSEhISAAAAAAAAAAAAAAAAAAAAAAAAAAAuJyAt9Xyt36Q7ZG4rYeK0tLS0tLS0tMAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAt4+AuNS589XUgJAzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAp4CAt7ePlTMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAkJCQMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///////8AAP// + wf///wAA//+AP///AAD//wAP//8AAP/+AAP//wAA+AAAAH//AADgAAAAH/8AAMfwAAAH/wAAj+AAAAH/ + AACfwAAAAP8AAJ+AAAAAfwAAHwAAAAB/AAAeAAAAAH8AAAwAAAAAfwAAAAAAAAB/AAAAAAAAAH8AAAAA + AAAAfwAAgAAAAAB/AACAAAAAAH8AAIAAAAAAfwAAwAAAAAB/AADAAAAAAH8AAOAAAAAAPwAA4AAAAAAf + AADwAAAAAB8AAPAAAAAADwAA8AAAAABPAADwAAAAAGcAAPAAAAAAYwAA8AAAAABzAADwAAAAAHEAAPAA + AAAA+QAA8AAAAAH5AADwAAAAA/kAAPgAAAAH8QAA+AAAAA/hAAD+AAAAB8MAAP/AAAAABwAA//gAAAAf + AAD//gAAA/8AAP//wAP//wAA///4B///AAD///8P//8AAP///////wAA////////AAD///////8AAP// + /////wAAKAAAACAAAABAAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0HRgAOyUYADId + LAArKysANSMpAC0tPAA1JjUANjQ2AEorCgBTKwMATTEJAFc2CABFKxcAUS8UAEozGQBVNxYAZTgJAEIr + KABVKysASTMjAFM6IwBAIDAAQzQxAEhEBQBnRAUAfEMFAGZDEwB1RBUAVUUuAHRSLQB5YT4AAABVACkm + RgA0JUQAMzNEACsnVgA1K1oAOzZaACwlaAAzLGoAOjJlACkmdQAyLXYANjJ7AFUAVQBDMEUAQjpwACdD + QwAtWXcAJmZ7AExMTABaSEkAVkZVAGlRUQBdbV4AcmtNAExJbQBKamcAbGxrAIAAAAD/AAAAhkcHAJZM + BACOVQ0Am1EFAIVGEQCOUxAAoE8CAKdTAgC1WwYApFcRALJnFwCJXTAArF46AJVnKQCScD8Ar3MxAMpu + EwDIdyoA0HwkAMp5MwCZXkwAjHFLALRySgCWcWAArntmAMR8SgBriXEAtoIrANSOMgDijyQA9q08AJeC + UwCsg1AAkoR1AKqJbQC1o3AAyINIAN+fTADHhlgAwpxSAMukWwDHimUAy5FrAMqUdwDRrXEA4LpyAPvA + VQD3yW4AAACAAAEBmQAqKocAODSCACYpmQAmOJIANzaZAAMIpQAMEqkAFxekAAINsgAGF7sAEh+7ABcj + uQAlKKgAMjOsACQrtgAnMbwANzmzAEA/jABBPaoAElqVACBTiQAEZZcALXSJABtMpAA0RrAABnWpACpu + uABNS48AY0eEAE1+kQBuZoQAQ0SvAEdJtgBHWLUAWVm9AGBXrABHcqwAaWm6AAEaywANIMMAFSnJAAIh + 1gASK9MAGDPWACAswwAnNMcAJDrWADE90gABKegABzDuABk+7QAALfIAAjT9ABE89QAgPuMAOUXHACZb + xgArQdQAMkfWAD9R1gAZYMUAMXrFABpA7gAWRP0AJkfpADNO5QA6VucAIkz8AChS/QA0WvsAO2L+AEpV + zABXZ9MAanLSAEJa6QBIZOsAV23oAEZo+QBMcP8AVXb8AGR14gCAAIAAi3WOAIt9sQAAAAAAA4W2AByg + vQA+pqwAUYWMAHSVjgBLkKoAW7OsAAGVyAAukdgAHKjGAAKn2AAnrMMAAbXoAFCK0gB4htUAbILtAHWG + 6wBnkOwAf5DuAGaE/gByivYAbpHwAHiS+wB9suMAAMb5ACnN7wCSm5AAuY6CAI2ymwCurYUAl4y2ALGU + oQCWp6oAvaKmAMGblQDKqJ8AwLmkAN3CjwD11YsA/+abAIiL1QCRvNwAgIzlAIeU5wCVnOMAgJn+AJOn + +ACftPsAp7b6ANC+wwCXweUAvMn9ANbGzADCzf4AzNb9ANPc/gDb4f0A4uj+AAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAMzMzMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADN9gCkuMzMAAAAAAAAAAAAAAAAAAAAA + AAAzMzMzMzMzf7W9vacqLjMzAAAAAAAAAAAAAAAAAAAzS0tLS0tLOH+9tbZ7kLunciUzMwAAAAAAAAAA + AAAAVEYAAAAAADN9vb60tXV9b729unwoMzMAAAAAAAAAAABLAAAAAAAzgL2/v6+0nW9vnb6+vrt/KjMz + AAAAAAAAVB4AAAAAM4C9v7+/r6+0mHW1vb6+vr66nSszAAAAAABNMwAAADOAvb+/2L+kr5qqtbW2vb6+ + nXynpy4zAAAAAF1TMzMzgL2/v9jY2KSkdX1vtLW2vb6qgG+yLDMAAAAAXWwdM4C7v7/Y2NvYpKSXb2+a + tLW2vb13b7osMwAAAABdZWuQu5DA2Njb29ikpKN5da+ztLW2tb2+vSwzAAAAAOJgbcK9fcDY28Db26Sk + o6SkpK+vtLV7gKe9LDMAAAAAAGBmUIx82NvbkNXzpKR1kHWkpK+vtJh9b7IrMwAAAAAA5WFQTsLb27iA + 8/WkpHt1b5mkpK+vtJdvtSszAAAAAAAA5YZPUWDygH36+6+koHVvoKSkpK+vsLS1OzMzAAAAAAAAiYZi + Ymfx9f3++/O2pKSkpKSkpJZ8nbQ5RzMzAAAAAACJxchiZGT5/vv18vLy2K+kpKSkoIBvpitTSzMAAAAA + AIjFzMVkZ2fo8Lm52/Ly8tu9pKSkeW+iLDRLSzMAAAAAkNLPz89gaWlUk7m58vLy8vLy2LSkpKUsNABL + MwAAAACQ9dzP0d3JaWdn5Nny8vLy8vLy8tu/ooE0AGJLAAAAAJD6/e7R3d3QZGdnZ+3y8vLy8vLy8sCd + NAAAAEsAAAAAkP3++/PP0dHPWFFUZODb8vLy8vLAkDQAAAAASwAAAACA1fv18tvN0c/FMVNXYlFg8PLy + t380AAAAAABLAAAAAAC3t9Xy8vLWzMzFxYU4Tk5OVpV8NDMAAAAAS2IAAAAAAAAAp4C42/Ly1omJhYWF + MjhIY2BTODNLS0tiAAAAAAAAAAAAALeQkMDb8riIlIWJhc/ey15LS15iAAAAAAAAAAAAAAAAAAAAt4C3 + wJDxuZAzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC3gJCdMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////// + ////8P///+A///AAD//AAAP/nwAA/74AAD88AAAfOAAADwAAAA8AAAAPAAAADwAAAA+AAAAPgAAAD8AA + AAfgAAAD4AAAA+AAAAHgAAAJ4AAACeAAAB3gAAA94AAAffAAAHn8AAAD/wAAD//gD////B////////// + //8oAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQdGAA7JRgAMh0sACsr + KwA1IykALS08ADUmNQA2NDYASisKAFMrAwBNMQkAVzYIAEUrFwBRLxQASjMZAFU3FgBlOAkAQisoAFUr + KwBJMyMAUzojAEAgMABDNDEASEQFAGdEBQB8QwUAZkMTAHVEFQBVRS4AdFItAHlhPgAAAFUAKSZGADQl + RAAzM0QAKydWADUrWgA7NloALCVoADMsagA6MmUAKSZ1ADItdgA2MnsAVQBVAEMwRQBCOnAAJ0NDAC1Z + dwAmZnsATExMAFpISQBWRlUAaVFRAF1tXgBya00ATEltAEpqZwBsbGsAgAAAAP8AAACGRwcAlkwEAI5V + DQCbUQUAhUYRAI5TEACgTwIAp1MCALVbBgCkVxEAsmcXAIldMACsXjoAlWcpAJJwPwCvczEAym4TAMh3 + KgDQfCQAynkzAJleTACMcUsAtHJKAJZxYACue2YAxHxKAGuJcQC2gisA1I4yAOKPJAD2rTwAl4JTAKyD + UACShHUAqoltALWjcADIg0gA359MAMeGWADCnFIAy6RbAMeKZQDLkWsAypR3ANGtcQDgunIA+8BVAPfJ + bgAAAIAAAQGZACoqhwA4NIIAJimZACY4kgA3NpkAAwilAAwSqQAXF6QAAg2yAAYXuwASH7sAFyO5ACUo + qAAyM6wAJCu2ACcxvAA3ObMAQD+MAEE9qgASWpUAIFOJAARllwAtdIkAG0ykADRGsAAGdakAKm64AE1L + jwBjR4QATX6RAG5mhABDRK8AR0m2AEdYtQBZWb0AYFesAEdyrABpaboAARrLAA0gwwAVKckAAiHWABIr + 0wAYM9YAICzDACc0xwAkOtYAMT3SAAEp6AAHMO4AGT7tAAAt8gACNP0AETz1ACA+4wA5RccAJlvGACtB + 1AAyR9YAP1HWABlgxQAxesUAGkDuABZE/QAmR+kAM07lADpW5wAiTPwAKFL9ADRa+wA7Yv4ASlXMAFdn + 0wBqctIAQlrpAEhk6wBXbegARmj5AExw/wBVdvwAZHXiAIAAgACLdY4Ai32xAAAAAAADhbYAHKC9AD6m + rABRhYwAdJWOAEuQqgBbs6wAAZXIAC6R2AAcqMYAAqfYACeswwABtegAUIrSAHiG1QBsgu0AdYbrAGeQ + 7AB/kO4AZoT+AHKK9gBukfAAeJL7AH2y4wAAxvkAKc3vAJKbkAC5joIAjbKbAK6thQCXjLYAsZShAJan + qgC9oqYAwZuVAMqonwDAuaQA3cKPAPXViwD/5psAiIvVAJG83ACAjOUAh5TnAJWc4wCAmf4Ak6f4AJ+0 + +wCntvoA0L7DAJfB5QC8yf0A1sbMAMLN/gDM1v0A09z+ANvh/QDi6P4AAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzMzMAAAAAAAAAAAAzMzMztbJ7MzMzAAAAAABNYAAzv7SbdrKy + dDMzAAAAUzMzv9ivmp26upqpMwAAAGAvvNjbr5l1tLa9qTMAAABgX7fb26+gm6+0mqozAAAAAE3j2e29 + lnWkr7OwMwAAAADKU+D8+Ni0pKSam00zAAAAuMzKaMPX8tu/r6Q5UzMAAPH30dFg4O3y8vLZMwBNAAD1 + +PLNzDtNXu3VMwAAUwAAAPXv2dqKhTJTYGBNUwAAAAAAAADw0+3wMwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD//wAA//8zgPj/v7+AH7SYIAe9vgAHvroABzMAAAcAAIAHAACAA4C9gAHYv4AFmqqADba9wAOdfPg/ + LjP//wAAKAAAADAAAABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACAAisr + VQYuLkYLOydODS4uRgskJEkHVQBVAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABVVVUDQCtADDMrPB40KjkxNig6OTMpODI1JjUiMyYzFC4uRgszMzMFAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAAAAAAAAFVVVQM3JDcONyQxKjUkLFY2Iyx7NiMrijQiKIA1ISZlNSMrSDYmMS85JjkbNyQ3DiQk + SQdVAFUDAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgAAAAkBAAARtSQAHVTkACWYz + AApmMwAKVTkACW1JAAdAQAAEQEAABDsnJw03JCsqMyVAaSkofccpJ3viKyVs5jIfJs8zHhq4NR8fmzUi + JHk1ISdWNiQtOTUmNSI2KDYTOTk5CUBAQAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYBAAARNMwAKUDAQEEor + CxhVNgghWTkGKGE9BiphPQYqWTkGKFM1CCJHKQoZPSkUGTojKSwyI0BmR0m3/DZCxv87Ttb/OkbJ/zU4 + tP8nJ4T3LyFG5TQeGMY1Hh2qMyAihzYhJ2M1Ii5DOCUyKTcsNxdAK0AMMzMzBQAAgAIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACYEAACF06 + DBZRMgwpTzAJOkgrC0dOMAlVVzQIXlk3CGFZNwhhVzQLXk0sDFZCKA1NOyUWUjkjHGwlKp/hNDy9/zlg + //8/Zf//RWr//0pu//9GYu3/Nz69/zU2sP8sI1ruMh4k0zQeG7U0ISGUNSAlbzQkK043IzIzNSM1HTMi + Mw8kJEkHVQBVAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABNMwAKUjEIH1U1CD9SMQtdTi8JbG05B4p4PgaVe0EFlntDBZd7QwWXcTwHjkYoDXg+JRGEOiIVnSgp + j+U3O7n/QWb8/zNc//85YP//PmT//zNO5f8zRdH/RljZ/0tp8/87R8n/MjOv/ygmevUxHi/dNB0ZvzQg + IKE1ISV9NCIoWTUjLDo1JjUiNig2Ezk5OQlAQEAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABTNQ8iUDEKSX1CBZKjUQLUtVgA/7BWAOqsVAHRrVUBz61VAc+sVQHQsVYB6LVY + AP+nUgPqRUGB9Dc7uf9Rc/z/PmX//yxX//8yW///N1///wECm/8nJ6n/SUm3/w8Qof9BYPD/S278/z9R + 1v81OLT/JiiP+i0iUeo0HRjJNB4cqzMgIoc2ISdjNSIuQzglMik6IzoWMxozClVVVQMAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABTNQ1NoE8Cyq9VAe6PSQSZazoHRVM1CCJOLAsXUSgNE0kx + DBVEKxoeOyQgODgiImlFQoTvNzu5/1Fz/P9WeP//PmT//yVQ//8rVv//Mlv//wQHof82Nq//HR2l/wAA + mf8OFaz/THD//0xw//9McP//Q1vk/zY7uf8jK6/9LCNa7zIeJNM0Hhu1NCEhlDMhJW01IytIMiUyKTkr + ORIrK1UGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACeUATQqlQC6Vw0C21OLwoxWTMNFGBA + AAhAQAAEKysrBkAgMBA0IyksNCEmXSYpmNk3O7n/UXP8/1Z4//9be///PGP//yBM//8lUP//KlX//w8d + u/8sLKr/AACZ/wAAmf8AAJn/QWDw/0xw//9McP//THD//0xw//9HZO//O0fJ/zc3sf8oJnr1MB4w3DQe + Grw0ICCXNSInaTQnMDs1KzUYKytVBgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAALVYAEC4YQX6WTURnk8v + E1FMLxMbZjMABQAAAAFAQEAEMCAwEDchLC40IiRiJimW2zc7uf9Rc/z/Vnj//1t7//9ff///O2L//xlH + //8fTP//I0///yNI8P8BApv/AACZ/wAAmf8AAJn/PFvw/0tv//9McP//THD//0xw//9McP//THD//0lq + +P8qOdr/MzSw/ygnhPgxHjDcNB4bsTUiJnk1IzA6OSs5EgAAVQMAAAAAAAAAAAAAAAAAAAAAAAAAAJFn + JICwcBTzSC8WpEwvFlFONxYXQEAABEBAQAQzIjMPNycsLjMjO24lK6boNzu5/1Fz/P9WeP//W3v//19/ + //9kg///O2L//xJB//8XRv//Hkv//yNP//8iR/D/CBCs/wECm/8WJcD/P2X//0Vq//9Kbv//THD//0xw + //9McP//THD//0xw//9McP//R2f1/0JY3/83N7H/LCNc7DUfHa40JCljOSM5JCQkSQcAAAABAAAAAAAA + AAAAAAAAAAAAAJl6S++2giv3QysXtEYsF2JLNR4iVTkcCTMzMw83JywuMyM7biQrru43O7n/UXP8/1Z4 + //9be///X3///2SD//9ohv//OWH//ws8//8SQf//F0X//xpE9v8WLM3/K03t/yxV/P8zXP//OWD//z5k + //9Eaf//Sm7//0xw//9McP//THD//yo+0f8BAZn/Nzev/1Vk2f9CWeH/T0+5/zEgNNM0IymENCY5Nisr + QAwAAAABAAAAAAAAAAAAAAAAAAAAAJWQeO/2rj//PigZy0UsG4VONCM7Qi8vGzQpKSwyJD1rJCuu7jc7 + uf9Rc/z/Vnj//1t7//9ff///ZIP//2iG//9tiv//OWD//wY4//8LPP//EUD//wMJp/8nJ6j/T0+5/yQq + s/8sVfz/Mlv//zhf//8+ZP//RGn//0lt//9McP//THD//x0rwP8HB5z/SEi2/xMToP89Wuv/NTi0/yon + duw0IimUNSk1Pjc3SQ4AAAACAAAAAAAAAAAAAAAAAAAAAE1+ju/2rTr/gGM760EpGa1JMCFlRy8rQTMn + PmgkK6/tNzu5/1Fz/P9WeP//W3v//19///9kg///aIb//22K//9yjf//OmH//wAz//8FN///CTv//wAB + m/81Na7/NTWu/wAAmf8NHLv/K1b//zJb//83X///PGP//0Jo//9Ibf//S2///0Fg8P8eHqX/MzOt/wAA + mf8ZJbv/O0fJ/yomde40IyqYNyc3QTMzRA8AAAACAAAAAAAAAAAAAAAAAAAAAEyAk+/ijyT/0a1w/Dwl + F9BFLB2cQiwkgCUrqOc3O7n/UXP8/1Z4//9be///X3///2SD//9ohv//bYr//3KN//92kf//PGP//wAz + //8AM///BDf//wEMr/9BQbP/AACZ/wAAmf8AAJn/Ikn2/ytV//8xWv//Nl7//zti//9CZ///R2v//0tv + //8vOsH/AgKa/wAAmf8MEqr/P1HW/yomde40IyqYNyc3QTMzRA8AAAACAAAAAAAAAAAAAAAAAAAAAFWS + su/OcxD//8pi/4ltTPI9JRfQKyqG4zc7uf9Rc/z/UFzP/2Fv3P9ff///ZIP//2iG//9tiv//co3//3aR + //96lf//P2X//wAz//8AM///ADP//wEq6/8AAZv/AACZ/wAAmf8AAJn/G0Lw/yVQ//8qVP//MFn//zZe + //87Yv//QWb//0Zr//9Lb///MEfa/wwSqv8wR9r/P1HW/yomde40IyqYNyc3QTMzRA8AAAACAAAAAAAA + AAAAAAAAAAAAABlgxYDFeiL/98Jg/93Cj/5aSEb0T0+5/0xo7/9Oae7/QkKz/19kyf9kg///aIb//22K + //9yjf//dpH//3qV//9/mP//QGb//wAz//8AM///ADP//wAz//8CLfD/AQqs/wAAmf8GF73/GUf//x5L + //8jT///KlT//y9Z//80Xf//OmH//ztd9v84Ven/Qlbb/0xw//9McP//P1HW/yomde40IyqYNyc3QTMz + RA8AAAACAAAAAAAAAAAAAAAAAAAAABlgxVCfhEz/24oo///Yf//oyY//NTi0/1Z4//8rMrn/ODiv/1dc + xv9ohv//bYr//3KN//92kf//epX//3+Y//+DnP//R2z//wAz//8AM///ADP//wAz//8AM///ATT//wc5 + //8NPf//EkH//xdG//8eS///Ik7//yhT//8uWP//NFz//wkPqv8NDZ7/R0e2/z9MzP9McP//P1HW/yom + de40IyqYNyc3QTMzRA8AAAACAAAAAAAAAAAAAAAAAAAAABlgxRBihZ3/wIg4//XHcf//343/mV5M/1t7 + //8hJrH/MDCs/1Zgz/9tiv//co3//3aR//9uhPD/WFrA/3qK6v+SqP//T3L//wAz//8AM///ADP//wAP + uP8iIqb/TE26/wwl0P8GOP//Czz//xFA//8WRf//HEn//yJO//8oU///LVf//xgtzP8eHqX/R0e1/wAA + mf8xSd3/P1HW/yomde41IyebOCY1RDAwQBAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAxcLavs51h/8t9 + Iv//5pv/zGwP/6RzZv8OD6D/Jyep/2mD+P9yjf//dpH//3qV//9BRr3/TEy3/25zzv+htP//Vnj//wAz + //8AM///ADP//wAAmf80NK7/Njav/wAAmf8AGcz/BTf//wo7//8QQP//FUT//xxJ//8hTf//JlL//yhP + 9v85ObD/DAye/wAAmf8PF6//PU/W/yolc/E2IiKkOicnT0MsLBdAQAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAZYMVQZYl+/7ekZ//dmD//zHEb/8xxG/+aZ1v/Ynjr/3KN//92kf//epX//3GH8v8nJ6n/QkKz/3R5 + 0/+wwP//Xn7//wAz//8AM///ADP//wEIp/9CQrP/AgKa/wAAmf8ABKH/ADP//wQ3//8JO///ED///xVE + //8aSP//IU3//yZR//8jPdv/AACZ/wAAmf8UIbv/OkzW/yslcPU4Ihq6PygXbUsuESxAKwAMgAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAQX6337KzgP+wqXT/zG8X/8x2J//Mdif/ypVl/3qU/f96lf//f5j//2+D + 7/8eHqX/Ojqw/4iR4P+/zf//orT//wAz//8AM///ADP//wEazP8GBpv/AACZ/wAAmf8AAJn/ACru/wAz + //8ENv//CDr//w8+//8UQv//Gkj//yBM//8lUP//HTrf/xcszP80W/z/NkrW/19TZvxEJhTTQikTlkou + D1NNLgghVTkACf8AAAEAAAAAAAAAAAAAAAAAAAAAGWDFYHWdj/+Qspj/SWpm/857K//MejP/zHoz/8B+ + T/+Bl/n/g5z//1Bc0v8WFqL/NDWv/7zJ/P/R2///2OD//x9M//8AM///ADP//wAx/P8AEr3/AACZ/wAA + mf8AAZv/ADH8/wAz//8AM///AjX//wg5//8OPv//E0L//xhF/P8SKMz/KT/V/ytU/f8vWf//M0jW/39M + V/+bTQb0RCoXqkswD3tTMQtEUjMKGVUrAAYAAAABAAAAAAAAAAAAAAAAAAAAACxwvdiKs5//AHGk/4Nx + RP/Jj1L/zH8//8x/P//Cg1r/mqLk/4qa8P8qLa//k5zk/9Hb///e5f//5er//9Tc//+Zrf//N1///wM2 + //8AM///ACnr/wAc0f8ALvb/ADP//wAz//8AM///ADP//wI0//8HOf//DT3//wggzP8ICJz/Pz+y/0BG + v/8oUvz/MEXW/zMubvSjUAXzkUoJ0ksvD4hPLwxnUzEKNFAwABBVVQADAAAAAAAAAAAAAAAAAAAAABlg + xTA7f8X/AHWo/wB/sv98cUb/nnlR/8yETP/MhEz/zIRM/72ipv+/zf//0dv//97l///l6v//1Nz//7/M + //+ouf//k6n//4Ga//9Vd///HEn//wAz//8AM///ADP//wAz//8AM///ADP//wAz//8BNP//Bjj//wo3 + 9v8XF6L/S0u3/wgInP8LGrv/LULW/yomdPBPLyC1sVcB94BDCaJPMAp6TjAJVVczByNgQAAIAAAAAQAA + AAAAAAAAAAAAAAAAAAAeT6yuAHir/wCEt/8Air3/fHVL/6p8UP/MiVj/zIlY/8yJWP/NlG//3Njo/+Xq + ///U3P//v8z//6i5//+Tqf//gZr//4CZ//+Amf//gJn//3yW//9Ha///EUH//wAz//8AM///ADP//wAz + //8AM///ADP//wU3//8qMbj/Ghqj/wAAmf8AApv/KkDW/yomde43JCqegkUSj7NXAPVdNQp/UDAJcFIx + DD5ZMw0UQEAABAAAAAAAAAAAAAAAAAAAAAAhLcSACVyd/wCGuf8AkcT/AJbJ/0+IgP/MeTD/zI5k/8yO + ZP/MjmT/zJBo/9C+w/+/zP//qLn//4OU7v9seN3/epD1/4CZ//+Amf//gJn//4CZ//+Amf//gJn//3WQ + //84YP//Cjv//wAz//8AM///ADP//wAz//8EL/D/AAGb/wAAmf8DCaf/Jj3W/yomde41IyqZOSgyTKtU + A8GjUQLCTzELd1AxC1lRLwcmVTkACQAAAAAAAAAAAAAAAAAAAAAhLcSAVWTT/wNtof8AlMf/AJzQ/wCj + 1v8coL3/xnUn/8yRbP/Mk3D/zJNw/8yTcP/Dlof/QT2q/z09sv9ucMj/V1e8/2VpyP+Amf//gJn//4CZ + //+Amf//gJn//4CZ//+Amf//gJn//2OC//8qVf//AzX//wAz//8AM///AzH2/wcw7v8PPfz/IjrW/yom + du00IyqXOCk1RH9FET+zVwDzajsJgE8xDG5SMAk7VTkOEgAAAAAAAAAAAAAAAAAAAAAhLcSAXGjW/36e + 8P8Ee6//AKHV/wCo2/8Ar+L/BbPi/6R7OP/MkGr/zJh8/8yYfP+5c0//rF46/2ZKh/+Ag9L/ZmfF/1xc + vv91hOf/gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//fJb//1V3//8cSf//ADP//wM1 + //8IOf//IDjW/yomd+s1IyqRNSk1PkorKxioUwKUo1ECwU4tC3ZTMApQVTMJHgAAAAAAAAAAAAAAAAAA + AAAhLcSAZG7W/6G0//+YtPD/BYCz/wCt4P8Atej/ALvu/wDC9f98jWX/zIZQ/8yXfP/LlXn/tGhC/7Vr + Rv/CmpP/iIbL/2Zv1f+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ + //+Amf//dZD//0dr//8NPf//HDXW/yone+M1Iyt9OCk4MkQzMw+NSQQ2tVgA/143Cn9YNgpjXToMLAAA + AAAAAAAAAAAAAAAAAAAhLcSAbHTW/7DA//+/zf//tMrw/xKAsP8At+r/AMH0/wDH+v8Ay/7/Pqqu/8Z4 + Lv/MkWz/zJFs/8yRbP/MkWz/zJFs/66UpP+CmPr/gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ + //+Amf//gJn//4CZ//+Amf//gJn//4CZ//95kPj/JjPS/ykofcc2JC1VPCs8HkAgQAhgQBAQrlYBzohI + BJ5aNwlvXTgJNwAAAAAAAAAAAAAAAAAAAAAhLcSAc3vW/7/N///R2///3uX//9/m/P8deKn/ALns/wDK + /f8Ayfz/AMP2/xywzv+vdi3/zIhW/8yLXf/Mi13/zItd/8yLXf/Ji2H/nZO//4CZ//+Amf//gJn//4CZ + //+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//3WK8/8xPdL/Iyuv7TMlQGk3JDEqOyc7DVUA + VQNiOwANplMCmppPA7daNwl0WTcJPAAAAAAAAAAAAAAAAAAAAAAhLcSAe4HW/9Hb///e5f//5er//9Tc + //+/zP//QYbA/wCj1v8AxPf/AL3w/wC36v8Frt7/Zodt/8ZyIf/HfET/vnRF/7pySv/Aflv/xoNZ/8GI + Z/+OlNz/gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//cYXv/yw5zv8lKqHeMyRBYzgl + LCk3JDcOVVVVAwAAAAJbNwAOmU4DdqZTAdJcOAlyWDkJOgAAAAAAAAAAAAAAAAAAAAAhLcSAe3/S/97l + ///l6v//1Nz//7/M//+ouf//k6n//1qK3/8Dh7z/ALbp/wCy5f8Aqt7/AKXY/wWcy/+HXjT/vWIU/7lr + Pf/IkHX/vXpZ/8ODXv/Mfz//sod+/4aW7v+Amf//gJn//4CZ//+Amf//gJn//4CZ//9kdOH/JTHH/yYq + m9U0JStTNyIwJUArKwxVAFUD/wAAAWYzAAVZNwsXkksEfqFQAstaOAppXDgKMgAAAAAAAAAAAAAAAAAA + AAAhLcRwS0y5/+Dl/P/U3P//v8z//6i5//+Tqf//gZr//4CZ//91lPb/EXiy/wCf0v8Aptn/AJ7S/wCZ + zP8iXYP/Kll6/1NtZ/+8diz/vXFC/8B9V//MeTD/zHkw/8x5MP+yg3T/hpbt/4CZ//+Amf//gJn//2Jx + 3/8lMcf/Kyl9xjsnKls7Ki8rQDAwEFUrKwZAQAAEVTkcCVkzDRRQMBAwnk8Dt5ZLBLpUNgxVVzMHIwAA + AAAAAAAAAAAAAAAAAAAhLcQQIi2/10BBtP9yeNL/mKfz/5Op//+Bmv//gJn//4CZ//+Amf//gJn//06F + 1/8De6//AJXJ/wCTxv8Bi77/DHel/wWKu/8Ak8b/SG5t/7tpFP/McRv/zHMh/8xzIf/McyH/zHMh/7J/ + av+Glez/TlfL/yEtxP8vJmPcPicekEUsIV1NMiA4Sy0eIkArFRhFJxQaUS8UJlEzETxcNhFly2kH/mY7 + DXxPNQ06UTYNEwAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EECEtxHAiLbzaRES0/zk7tP9ZZtb/eZD4/4CZ + //+Amf//gJn//4CZ//98l/z/MXvB/wB6rf8AhLf/AIG0/wB6rf8AdKf/AG2g/wBnmv9EZmb/nmYj/8Zp + C//MbA//zG0S/8xtEv/MbxT/jX6K/1RBTPY5IhbbPiYZukQrG5lELRx4PykbXTwkF008KBRMRy0UWls2 + EnegWArmjlMQvkowFkVPNRIdSSQABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EICEt + xIAhLcTfODiw/z1Buf9md+T/fZb8/4CZ//+Amf//gJn//3WU9v9HgtH/EXCq/wBvov8AbqH/BWaX/wZj + lP8AZpn/AGaZ/wBmmf8iZn//ZmZM/69mFv/SeBn/yYtJ/8mLSf+uczf5jlwr62VDJdFHMSGyOCcglzYn + HYRYNxmJjk8PsaJmGfZdbV64RTEcP0QzIh5VORwJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAIS3EQCEtxJ8hLcLzMzOu/0RJwP9ugu3/gJn//4CZ//+Amf//gJn//2iE + 6v8fRqD/G1mV/xldh/8gWoH/DWGP/wBmmf8AZpn/AWmb/yfL8P8px+n/QJ+q/412Qv+rah//sWoa/81q + Bf/NagX/x2oJ/6tqH/+1ahn+hGInxlxdR2xDMR4qRjojFkBAIAgAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EYCMst8AhLcT/NTWw/1Vg + 0v91ivP/gJn//0hTzP8pKan/SEi2/4SI1f9HWLX/XXfQ/zx0xv8ZTKP/IVq27C54wtotecjULHvJ0it7 + ydIqe8rSKXrJ0iBitbofVqaiIlCUekRbY1g5MjIkPSkfGUAwIBBNMxoKQEBABAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAhLcQgIS3EcCItvNpERLT/OTu0/11r2/9tgOz/anHT/6Gr7f94jPP/cYXv/zU1sP8lKp3RNSUoUjgl + LCk3LCwXNjY2EzY2NhM2NjYTNjY2Ezk5ORItLTwRMzNEDy5GRgtAQEAIQEBABIAAAAIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhLcQwIS3EjyItv+c4OLD/PUG5/0xVyf9MVcn/RES0/ygq + kag1JS0+MyszHjMaMwpVVVUDAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApK5dFJCyxlCQs + rJslLKSRLSl0TTIjOSQ2KDYTJCRJBwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//gH///wAA//8AD///AAD+BgAD//8AAPAAAAD//wAAwAAAAB// + AACAAAAAB/8AAIAAAAAB/wAAgAAAAAB/AACAAAAAAD8AAIAAAAAAHwAAAAAAAAAfAAAAAAAAAA8AAAAA + AAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAAAADwAAAAAAAAAP + AACAAAAAAA8AAIAAAAAABwAAwAAAAAADAADAAAAAAAEAAOAAAAAAAQAA4AAAAAAAAADwAAAAAAAAAPAA + AAAAAAAA8AAAAAAAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAAAADwAAAAAAAAAPAAAAAAAAAA8AAAAAAA + AADwAAAAAAAAAPAAAAAAAAAA+AAAAAAAAAD/AAAAAAAAAP/gAAAAAQAA//wAAAADAAD//wAAAA8AAP// + 4AAAfwAA///8Af//AAD///////8AAP///////wAA////////AAD///////8AACgAAAAgAAAAQAAAAAEA + IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAVVVVQI5HDkHNyQ3CjMiMwtAK0AJKytVBFUAVQIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB/wAAAYAA + AAGAAAAB/wAAAYAAAAEzMzMEPC08DTMmMx4zJi8tMyMvMTYnMSc1JjUZNig2Djk5OQdAQEADAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFVVQACVSsABGYz + AAdbNxIKVTMRC1UzEQtVMxELVTMRC0ArKxI1JisoNiczYjQiKaY0IimtNic0iTckLVE1Ii4yOCUyHzcs + NxFAK0AJMzMzBAAAgAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVSsABGAw + EAxYNQkWXzsGIF07CidZOgkrWToJK1s7DipSNBYsQSkcNy8oY3slKqLvPD2u/SwjW+4zHiLcNB8ayDUl + LaM2Iy9iNCQqOzcjLSY1IzUWMyIzCyQkSQVVAFUCAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABbNwkVVTcKJlo6Cj9hPglqXjsKe1k3ColbOgmGWzsMhlQ1EI1AKy+aJC6+/Dpc8/9Ga///RmPv/zpG + yP8pJXj4MR0r5jQcFdA0ISW1NSUygTMiKEM4IzAsMyQzGjYoNg45HDkHVVVVAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAFs4DjdlPgqAg0QGt5pPA7upVAHOolIDu5pPBLiPSge7VUA70yUvvf1HZvP/Mlz//zti + //8ZJbr/QEa//0dj7f8+TtL/JSmY/C0hTe80HBXYNB8ewTUlMZM2Ji1TNSItMzMmMx4zJjMPJCRJBQAA + AAEAAAAAAAAAAAAAAAAAAAAAlk4Fwa5WAfGeUASUlk0EYZtPBVySTAlkg0UNeH1SMdM4Nqv/TWvz/09x + //8pVP//MFr//w4Qo/8zM63/AgOb/0Vm9v9Lbvz/Q1vk/yMrrv4rI2P0Mh0g3zQfGsg1Iy2iNiUwXjUk + LS85JjkUSSRJBQAAAAEAAAAAAAAAALVYAFCOVQ3nXD4XcVk8FS1VPBoWRDUmGTspKTQxKV+OODmz/01r + 8/9Yef//U3b//x9L//8nUv//IjXM/wICmf8AAJn/JTfM/0xw//9McP//THD//0Zi7f8lMb//KSV4+DAe + LeQ0HRbINCYxkTYjLjE9MT0QQEBAAwAAAAAAAAAAmXAoz2E8E99ZPR1/WD8hLkc5Mhs2Ji4uLihkiTg5 + s/9Na/P/WHn//19///9Xef//FUP//x9L//8nUv//ECHA/wgPqv87Xvb/SGz//0xw//9McP//THD//0xw + //9DXun/JDHK/yokbvU0HRjINCc3bjglOB85OTkHAAAAAQAAAACzfyr/aEch61Q5IKZONSREPy4rOi8o + ZIo4ObP/TWvz/1h5//9ff///ZoX//1x9//8KO///FEP//xMt1f8zSNj/MFT0/zZf//8+Zf//SGz//0tv + //9McP//ITHG/yoqqv8+S8v/OkXG/y8hRuY1JjWXNig2Kzs7OwoAAAABAAAAAJOEWf+TcUD2QSkZz0oy + JnU0Kl6ZODmz/01r8/9Yef//X3///2aF//9ui///YYH//wI0//8JOv//CQui/zIyrf8BApv/K1T8/zRd + //89ZP//Rmv//0tv//8ySt3/PDyx/wICmv9AWeT/KiVy8TQnM6A5KDkvMzNECwAAAAEAAAAAiXlN7/vA + Vf9ILx/lQDFH2Dg5s/9MZen/WXj9/19///9mhf//bov//3WR//9mhf//ADP//wI0//8PIMD/AgKZ/wAA + mf8ULNH/K1b//zRd//87Yv//RWr//0ls/P8QFan/AgOb/0Fc6f8qJXLyNSY0ojcnNzEzM0QLAAAAAQAA + AACIgmu/wpxS/+C6cfxNTrT+SGDm/0hLu/9hc+P/ZoX//26L//91kf//fJb//2qI//8AM///ADP//wAv + 9v8BErv/Agqq/xdB9v8hTf//KVT//zJb//87Yv//PmD2/0Ni8P9McP//R2Xx/yolcvI1JjSiNyc3MTMz + RAsAAAABAAAAAHiLh4+mkGT/79B+/4Fwmf9Pa/L/NTWu/19u3f9ui///dZH//21/6P9+lfn/d5L//wAz + //8AM///ASzx/wo18v8IOf3/Dj7//xdF//8gTP//KFP//zFa//8SH7v/OTmw/zdEyf9HZfH/KiVx8zUl + MqU3KTA0PC08DQAAAAIAAAAAGWDFMLSVb//LpFv/1H8k/2JHgf8rK6z/a4X4/3WR//91jfj/SEi2/3+L + 4/+OpP//ADP//wAz//8HDqr/QkKz/wMKqP8ENv//DT7//xVD//8fTP//J1L//xgtzP8zM63/AACZ/ztU + 4/8qJXD1NyYtrkAnJD9CLyYUVSsABAAAAAEAAAAAkJ2Z5Lijf//LeST/zHMf/5Z2if91kf//fJb//1Vj + 1/89PbH/lqDp/6G0//8AM///ADP//xciuf8LC53/AACZ/wAi3f8ENv//DD3//xVD//8eS///JlH//w8f + vf8BApv/O1ru/yolbvg5IhnOTDAWbUsyFCZVMwALVVUAAgAAAABNg7VgwLmk/zl5if/Gdy7/zHox/6+E + fP+Amf//NTy9/zQ1r//BzP3/x9L//x9M//8AM///ACbl/wAEof8AAJn/ACnr/wAz//8CNP//Cjv//xJC + //8cSPz/JEjv/yxW//81V/H/c2Vn/lcxGNpHLBOtVTYRSFczBxpVOQAHAAAAAAAAAACLp7bYHH6i/yd5 + kP/MgEL/zIFE/7+Iaf+YnuL/r7ny/9rh///j6f//yNP//42k//85Yf//AzX//wAz//8AM///ADP//wAz + //8BNP//CTv//wYYwP8vL6z/KjfE/yxQ8f9HPmn6olEG9Fk4FKBRMw6PVTUML106DBAAAAAAAAAAADdR + omkEbab/AIW4/0mEh//MhU7/zIhW/8uKW//Wxsz/4+n//8jT//+mt///hp7//4CZ//+Amf//Y4L//xxJ + //8AM///ADP//wAz//8AM///BSzo/zg4sP8AAJn/ID7j/yolcfRyPRnRpFIFzk8xD5NdOQteVzgGHwAA + AAAAAAAAJyudWjJDsv8DiL3/AJfK/xyYuP/GiVn/zJBo/8yQaP/KqJ//jpjm/2x32/9uet7/fJH2/4CZ + //+Amf//gJn//3WQ//9Ha///Cjv//wAz//8AM///ARO9/wABm/8aQO7/KiVy8jgnMqiqVAPThEgIg1Iy + CohaNQguAAAAAAAAAAAnK55ZQES7/1yQ2/8AndD/AKjb/wWw3/+vj2r/zJd7/8qTdv+rZk7/YFes/3J0 + y/9obMv/gJn//4CZ//+Amf//gJn//4CZ//+Amf//Z4X//ypV//8DNf//BDb//xM88f8pJnPuNyc1mW07 + GlSuVQHOVjYKh2I/CFMAAAAAAAAAACgsnllER7v/rLz//32y4/8Aqt3/ALrt/wDF+P98nYr/zJV2/8KD + Yv/Cg2P/tZag/3yP8f+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//3yW//9Vd///GT7t/ykm + eeI2KDhrQSouKa5WAb1+RgWMYj4IcgAAAAAAAAAAJyufV0hLu//Ez///2uH//5G83P8AseT/AMv+/wDG + +f8nrMP/xohW/8yNYv/MjWL/xY5v/5eUzf+Amf//gJn//4CZ//+Amf//gJn//4CZ//+Amf//gJn//2R0 + 4f8sOc7/LSlvmDYmLi5IMCgYpFIDeJpQA6hhPQh5AAAAAAAAAAAmLKdRTE67/9rh///j6f//yNP//46s + 8P8Kpt3/AL/y/wC16P8Fqdj/Zol5/8JyOf++eVP/xIFX/7SJgf+CmPn/gJn//4CZ//+Amf//gJn//4CZ + //9kdOH/TE25/y0qb5U3JysxPCszFk47HROWTgZgnFEDtl49CncAAAAAAAAAACcsoSs9PbL/3uP8/8jT + //+mt///hp7//3yX/P8ulNr/AKzf/wCj1v8Jibj/Mll2/410WP/CfVL/xn9N/8x7NP+yhHX/hpbt/4CZ + //+Amf//UFrN/yYwvv0zKleTPygiQ0ErJiNLLR4ZUDogJJROCXmTTQjEXz4OUQAAAAAAAAAAAAAAACIt + vadYXNb/WmDJ/3SG7f+Amf//gJn//4CZ//9nkOz/GIvI/wCQw/8Ff7D/A4S2/xhzmf9xak3/xm8b/8xx + HP/McRz/sn1m/2VlvP8lKqT8QCkp2k0zIJ5KMB5hQScXOkYtGDdZOx1WpnYx4XVHFIZTOxknAAAAAAAA + AAAAAAAAAAAAACEtxDAjLLedJjDE5Tk7tP9ZZtb/eZD4/4CZ//+Amf//Z4/s/xx9u/8Ac6b/AGue/wBm + mf8AZpn/ImZ//3FnRv+wax7/359M/6N9W/R2UTDfTzIdwTghFaE3HxGRZz4Xn4R7YN9yWi6XUj8dKFk3 + FhEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJCutXyMsuK1NTbr+QUa9/2Z35P99lvz/gJn//1Zr + 1v8uR6T/S2im/x1jnv8Ta6f/AGaZ/x+33/8t1vf/W7Os/6SGRv+cfD//lXE5/5dvMeaFaz6wfFchXFM3 + HBxNQBoPSUkkBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkqhh4kLLBwIiy6vDo7 + sv9MVcn/YnPi/0ZIuv+Zn+P/Y27X/z1Buf8mOJLDJEiEcCFPlmAgUpxbH1OdWSVMhjowMDAYNywhETkr + HA1JNxIKVTkcB0BAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAKCmXLyQssoAiLb/XOTu0/z9Eu/8lMcT1JymXhTUmKyg1LDUWMzNECy4uRggzM00HIEBABisr + VQRAQEADgAAAAQAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAADckNwopKpouJCylUTgoOBg1IDUSOyc7CisrKwQAAIABAAAAAQAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/8Af//AAB/+AAAD/gAAAP4AA + AA+AAAAHgAAAAwAAAAMAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAAAgAAAAIAAAADAAAAAwAAAAMAA + AADAAAAAwAAAAMAAAADAAAAAwAAAAOAAAADwAAAA/gAAAP+AAAD/8AAD//wAf/////8oAAAAEAAAACAA + AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGYzAAJtSQACVTkcA0k3JAU7MTsMOS1AFDgs + PhA1LDUJQDBABEAgQAJAQEABAAAAAQAAAAAAAAAAAAAAAAAAAABvQwsDaEIJAlo8FxhNOCQlPi4uOjot + PHg5Kjt7NiUoQzkoLS87JzQcOi46Ci4uRgNAQEACAAAAAQAAAABpRw8IaUcPC2VCEBhePhVQUTcccjMw + gsExKmrfNB4X0DQfG8M5KDKcNiYyYDcmMDc6KTofNjZDCysrVQMAAAABb0URX4JKDKF2RBWfiEgQiEVA + f8g0V/P/OFTm/x0jt/4yLn32MR8t5DQdF804KC+qOi07azYsNictLTwHVQBVAplXDs1ZQSaaTjcjjTg1 + icFVcvb/KFP//xoz1f8MEqr/OFTm/zhU5v81NJj6MyZN6DQfGbs2KDhaOChACysrVQR5YT7lRjAf1Tg0 + gNFVcvb/Y4P//xdF//8SLdb/JzjK/0Ra9v9EWvb/EyvS/yxB1P8wITvaNic1cjUqOwk5OVUFpoxf+zYu + Z/FXbej/Y4P//3SQ//8VQ///AiDV/wUOrP8oU///PGP//0Ji8f8sQdT/LyJG4zgnMXw8LTcHQEBABaCU + cf+WgXr/S1fO/3SQ//99kPL/GUf//wQq5/8TMNv/EUD//yVQ//8TK9L/MkbV/y8hROY/KiiQSDAoBlE2 + KAOLnZrBq24r/5OGsP9xhvD/g4rb/0hs//8BH9X/AAiq/wE0//8QQP//Ikfw/yhF4/9GNUDsQisknFY5 + HAxYPhoBR32xOUqDrP+CfV3/v5WH/9nf+v+7yP//Z4X//ypV//8DNf//ADP//xMr0v8dM9H/UkBB6mQ7 + HK9aOxcvXkMbCwAAAAAmW8bOAJjM/0+eof/Fkm7/i32x/3+Q7v+Amf//fJb//1V3//8cSf//Czf2/zAj + S9hyQRa6WzwYc2RFERUAAAAAc4HiypfB5f8EuOz/Eb7k/6SKY/+9kIH/jpbf/4CZ//+Amf//gJn//3CI + 9v84Llmpd0QXc2VEHKJmQxAmAAAAAJKc58a7yP//g538/zGR2P8Clcj/ZnNv/7p3Pf+9gFr/jpLV/3iJ + 7f9uZoThVD0njW9IHoBzRxiGXEEaHQAAAAAhLcQganbamYCM5f51ivP/bpHw/yh4u/8FZJX/LWZ3/4x1 + RP+jgmTofVw7tnheOKBydVywVUQoIllAJg8AAAAAAAAAAAAAAAAAAAAALji+WlNi2qt7hNz/gYja/4aU + 3/owdLejTn+UlIRrOWGEazkxAAAAAEs8LQNVVSsDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIS3EECEt + xEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAHKM+AARPfAAAdfwAAIS4AADIbAAAuLgAA + ZIkAALP/AADz/wAA//+AAP//gAD//4AA//+AAP//8AT///z/wP8= + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmMain.vb b/app - Kopie/DD-Record-Organiser/frmMain.vb new file mode 100644 index 0000000..c99bc54 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmMain.vb @@ -0,0 +1,521 @@ +Imports DevExpress.XtraNavBar +Imports DevExpress.XtraBars.Ribbon +Imports DevExpress.XtraBars + +Public Class frmMain + Dim sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))" + Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" + + Private USER_GUID + Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + Dim sql = sql_User_Login + sql = sql.Replace("@LogInOut", 0) + sql = sql.Replace("@ANGEMELDETWO", "''") + sql = sql.Replace("@user", Environment.UserName) + ClassDatabase.Execute_non_Query(sql) + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'RECORD_ORGANIZER'" + ClassDatabase.Execute_non_Query(sql) + ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain") + ToolStripManager.SaveSettings(Me) + + My.Settings.Save() + + Catch ex As Exception + + End Try + End Sub + + Private Shared Function LoadNoImage() As Bitmap + Return Nothing + End Function + + Private Shared Function LoadImage(path As Object) + If Not IsDBNull(path) Then + Dim filepath As String = DirectCast(path, String) + filepath = CType(path, String) + If System.IO.File.Exists(path) Then + Return New Bitmap(filepath) + Else + Return LoadNoImage() + End If + Else + Return LoadNoImage() + End If + End Function + + Public Sub LoadMenuItems2() + Dim SQL As String = "SELECT * FROM TBPMO_MENU_FORM" + Dim dtRootMenu As DataTable = ClassDatabase.Return_Datatable(SQL) + + If dtRootMenu.Rows.Count <> 0 Then + + For Each row As DataRow In dtRootMenu.Rows + + Dim MenuID As Integer = row.Item("GUID") + Dim groupTitle As String = row.Item("MENU_ENTRY") + Dim group As New RibbonPageGroup(groupTitle) + Dim dtSubMenu As DataTable + Dim image As Bitmap = LoadImage(row.Item("ICON_PATH")) + + group.Glyph = image + group.AllowTextClipping = False + + SQL = "SELECT * FROM TBPMO_MENU_FORM_ENTRIES WHERE MENU_FORM_ID = " & MenuID + dtSubMenu = ClassDatabase.Return_Datatable(SQL) + + If dtSubMenu.Rows.Count <> 0 Then + + For Each subRow As DataRow In dtSubMenu.Rows + + Dim itemTitle As String = subRow.Item("MENU_ENTRY") + Dim tag As String = subRow.Item("FORM_ID") + Dim item As New BarButtonItem(ribbonMain.Manager, itemTitle) + Dim subimage As Bitmap = LoadImage(subRow.Item("ICON_PATH")) + + item.RibbonStyle = RibbonItemStyles.SmallWithText + item.Tag = tag + item.Glyph = subimage + + AddHandler item.ItemClick, AddressOf BarButtonItemClick + + group.ItemLinks.Add(item) + + Next + + pageForms.Groups.Add(group) + End If + + Next + + End If + End Sub + + Public Sub LoadQuickStartItems() + Dim SQL2 As String = "SELECT * FROM TBPMO_FORM_CONSTRUCTOR ORDER BY SEQUENCE_MENU" + Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2) + Dim image2 As Bitmap = LoadNoImage() + + If dt.Rows.Count <> 0 Then + + For Each row As DataRow In dt.Rows + If Not IsDBNull(row.Item("MENU_IMG")) Then + Dim bimg() As Byte = row.Item("MENU_IMG") + Dim bitmap As Bitmap = ByteArrayToBitmap(bimg) + image2 = bitmap + End If + + Dim title As String = row.Item("FORM_TITLE") + Dim index As Integer = row.Item("SEQUENCE_MENU") + Dim tag As Integer = row.Item("GUID") + Dim item As New BarButtonItem(ribbonMain.Manager, title) + item.RibbonStyle = RibbonItemStyles.Large + item.Caption = title + item.Tag = tag + item.Glyph = image2 + + AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick + + groupQuickAccess.ItemLinks.Add(item) + Next + + End If + End Sub + + 'Public Sub LoadMenuItems() + ' Dim items As ToolStripItemCollection = BearbeitenToolStripMenuItem.DropDownItems + ' Dim subitem As ToolStripMenuItem + ' Dim SQL As String = "SELECT * FROM TBPMO_MENU_FORM" + ' Dim dtRootMenu As DataTable = ClassDatabase.Return_Datatable(SQL) + + ' Try + ' items.Clear() + + ' If dtRootMenu.Rows.Count <> 0 Then + ' For Each row As DataRow In dtRootMenu.Rows + ' Dim image As Bitmap = LoadImage(row.Item("ICON_PATH")) + ' subitem = New ToolStripMenuItem(row.Item("MENU_ENTRY"), image) + ' items.Insert(0, subitem) + ' Dim dtSubMenu As DataTable + ' Dim MenuID As Integer = row.Item("GUID") + ' Sql = "SELECT * FROM TBPMO_MENU_FORM_ENTRIES WHERE MENU_FORM_ID = " & MenuID + ' dtSubMenu = ClassDatabase.Return_Datatable(Sql) + + ' If dtSubMenu.Rows.Count <> 0 Then + + ' For Each subRow As DataRow In dtSubMenu.Rows + ' Dim subimage As Bitmap = LoadImage(subRow.Item("ICON_PATH")) + + ' Dim formTitle As String = subRow.Item("MENU_ENTRY") + ' Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(formTitle, subimage, AddressOf MenuItemClick) + ' newItem.Tag = subRow.Item("FORM_ID") + ' subitem.DropDownItems.Add(newItem) + ' Next 'subrow + ' End If 'subrow count + ' Next 'row + + ' End If ' row count + ' Catch ex As Exception + ' MsgBox("Error in LoadMenuItems 1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' End Try + + ' Try + ' Dim SQL2 As String = "SELECT * FROM TBPMO_FORM_CONSTRUCTOR ORDER BY SEQUENCE_MENU" + ' Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2) + ' Dim image2 As Bitmap = LoadNoImage() + + ' If dt.Rows.Count <> 0 Then + ' tstripQuick.Items.Clear() + ' If Sett_ShowQuickMenue = True Then + ' tstripQuick.Visible = True + ' Else + ' tstripQuick.Visible = False + ' ClassLogger.Add(">> Sett_ShowQuickMenue = False", False) + ' End If + ' For Each row As DataRow In dt.Rows + ' If Not IsDBNull(row.Item("MENU_IMG")) Then + ' Dim bimg() As Byte = row.Item("MENU_IMG") + ' Dim bitmap As Bitmap = ByteArrayToBitmap(bimg) + ' image2 = bitmap + ' End If + ' ' Kombinierte Bewegungsdaten in QuickAccess Menu laden + ' Dim btn As New ToolStripButton(row.Item("FORM_TITLE"), image2, AddressOf QuickAccessClick) + ' Dim index As Integer = row.Item("SEQUENCE_MENU") + ' btn.Tag = row.Item("GUID") + ' btn.TextAlign = ContentAlignment.MiddleLeft + ' btn.ImageAlign = ContentAlignment.MiddleLeft + ' tstripQuick.Items.Insert(index, btn) + ' Next + ' Else + ' ClassLogger.Add(">> Keine FormConstructorMenüs vorhanden!", False) + ' End If + + ' 'Calender add + ' Dim calitem As New ToolStripMenuItem("Kalender", My.Resources.calendar) + ' items.Add(New ToolStripSeparator()) + ' items.Add(calitem) + ' AddHandler subitem.Click, AddressOf Calender_open + ' Catch ex As Exception + ' MsgBox("Error in LoadMenuItems 2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' End Try + + 'End Sub + + Private Sub BarButtonItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) + Dim formId As Integer = Integer.Parse(e.Item.Tag) + + Cursor = Cursors.WaitCursor + OpenFormInputFor(formId, 1) + Cursor = Cursors.Default + End Sub + + Private Sub ToolbarButtonItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) + Dim formId As Integer = Integer.Parse(e.Item.Tag) + + Cursor = Cursors.WaitCursor + OpenFormConstructor(formId) + Cursor = Cursors.Default + End Sub + + Private Sub NavbarItem_Click(sender As Object, e As NavBarLinkEventArgs) + Dim formID As Integer = Integer.Parse(e.Link.Item.Tag) + + Cursor = Cursors.WaitCursor + OpenFormConstructor(formID) + Cursor = Cursors.Default + End Sub + + Private Sub MenuItemClick(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim formId As Integer = Integer.Parse(item.Tag) + Console.WriteLine(item.Tag) + + Cursor = Cursors.WaitCursor + OpenFormInputFor(formId, 1) + Cursor = Cursors.Default + End Sub + Private Sub MenuItem2Click(sender As Object, e As EventArgs) + Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim formId As Integer = Integer.Parse(item.Tag) + Console.WriteLine(item.Tag) + Cursor = Cursors.WaitCursor + OpenFormConstructor(formId) + Cursor = Cursors.Default + End Sub + + Private Shared Sub QuickAccessClick(sender As Object, e As EventArgs) + Dim btn As ToolStripButton = CType(sender, ToolStripButton) + Dim formId As Integer + formId = Integer.Parse(sender.tag) + OpenFormConstructor(formId) + End Sub + + Private Sub SetBackground() + Dim ctrl As Control + Dim ctrlMDI As MdiClient + + For Each ctrl In Me.Controls + Try + ctrlMDI = CType(ctrl, MdiClient) + ctrlMDI.BackColor = Me.BackColor + Catch ex As Exception + + End Try + Next + End Sub + + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + ' Form Titel setzen + Me.Text = Application.ProductName + + ' Logger initialisieren + ClassLogger.Init("", Environment.UserName) + + ' Status Labels setzen + LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString) + LabelUser.Caption = Environment.UserName + LabelMachine.Caption = My.Computer.Name + + SetBackground() + Settings_Load() + If MyConnectionString <> String.Empty Then + ClassDatabase.Init() + Else + frmConfig_Basic.ShowDialog() + ClassDatabase.Init() + End If + + Settings_LoadBasicConfig() + + VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + + Dim sql = sql_UserID + sql = sql.Replace("@user", Environment.UserName) + ClassLogger.Add(">> Username: " & Environment.UserName, False) + + USER_GUID = ClassDatabase.Execute_Scalar(sql) + If USER_GUID Is Nothing Then + ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False) + MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + Me.Close() + Else + sql = "SELECT MODULE_RECORD_ORG FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" + sql = sql.Replace("@user", Environment.UserName) + If ClassDatabase.Execute_Scalar(sql) = False Then + ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) + MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + Me.Close() + Else + 'Am System anmelden + sql = sql_User_Login + sql = sql.Replace("@LogInOut", 1) + sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName) + sql = sql.Replace("@user", Environment.UserName) + ClassDatabase.Execute_non_Query(sql) + sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'RECORD_ORGANIZER')" + ClassDatabase.Execute_non_Query(sql) + sql = "SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" + sql = sql.Replace("@user", Environment.UserName) + Console.WriteLine(ClassDatabase.Execute_Scalar(sql)) + USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql) + If USER_IS_ADMIN = True Then + 'Admin + pageAdmin.Visible = True + End If + + sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'RECORD_ORGANIZER'" + Dim anzahl = ClassDatabase.Execute_Scalar(sql) + 'tslblUserLoggedin.Text = "Anzahl Angemeldete User: " & anzahl.ToString + LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString + End If + End If + 'LoadMenuItems() + LoadMenuItems2() + LoadQuickStartItems() + ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain") + + + ' ToolStripManager.LoadSettings(Me) + Catch ex As Exception + MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Sub Refresh_TaskReminder() + Try + Me.VWPMO_WF_USER_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName) + If DD_DMSDataSet.VWPMO_WF_USER_ACTIVE.Rows.Count > 0 Then + NotifyIcon1.Visible = True + NotifyIcon1.ShowBalloonTip(50000, "Unerledigte Tasks", "Sie haben unerledigte Tasks in Ihrem Verantwortungsbereich." & vbNewLine & "Bitte überprüfen Sie Ihre Workflow-Tasks", ToolTipIcon.Info) + End If + Catch ex As Exception + MsgBox("Error in Refresh_TaskReminder:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub EbenenKonfiguratorToolStripMenuItem_Click(sender As Object, e As EventArgs) + Cursor = Cursors.WaitCursor + OpenFormOverview() + Cursor = Cursors.Default + End Sub + + Private Sub DaenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) + frmConfig_Basic.ShowDialog() + End Sub + + Private Sub KalenderToolStripMenuItem_Click(sender As Object, e As EventArgs) + Cursor = Cursors.WaitCursor + OpenFormCalendar() + Cursor = Cursors.Default + End Sub + + Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) + Me.Close() + End Sub + + Private Sub FormateProduktionenToolStripMenuItem_Click(sender As Object, e As EventArgs) + OpenFormConstructor(1) + End Sub + + Private Sub WorkflowTaskmanagementToolStripMenuItem_Click(sender As Object, e As EventArgs) + OpenTaskmanagement() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick + Refresh_TaskReminder() + End Sub + + Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize + ' Repaint Form on Resize End + Me.Invalidate(True) + Me.Update() + End Sub + + Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Refresh_TaskReminder() + Timer1.Start() + End Sub + + Private Sub Workflow_Taskmanagement_Click(sender As Object, e As EventArgs) Handles NotifyIcon1.Click + + End Sub + + Private Sub DokumentartkonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) + OpenDokumentartt() + End Sub + + Private Sub MenuKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) + OpenMenuDesigner() + End Sub + + Private Sub UserKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) + OpenUserKonfig() + End Sub + + Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) + AboutBox1.ShowDialog() + End Sub + + Private Sub ImageManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) + OpenImageManager() + End Sub + + Private Sub tsQuickMenue_LocationChanged(sender As Object, e As EventArgs) + 'Console.WriteLine("locChanged" & tsQuickMenue.Location.ToString) + 'If tsQuickMenue.Location.ToString <> "{X=0,Y=0}" Then + ' SaveMySettingsValue("tsQuickMenueLocation", tsQuickMenue.Location.ToString) + 'End If + + + End Sub + Private Sub GrundeinstellungenWindreamToolStripMenuItem_Click(sender As Object, e As EventArgs) + OpenObjecttypeConfig() + End Sub + + Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) + + End Sub + + Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) + frmConfiguration_Basic.ShowDialog() + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem1.ItemClick + OpenFormCalendar() + End Sub + + Private Sub itemInfo_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemInfo.ItemClick + AboutBox1.ShowDialog() + End Sub + + Private Sub itemExit_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemExit.ItemClick + Me.Close() + End Sub + + Private Sub itemSettings_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemSettings.ItemClick + frmConfig_Basic.ShowDialog() + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem3.ItemClick + Cursor = Cursors.WaitCursor + OpenFormOverview() + Cursor = Cursors.Default + End Sub + + Private Sub BarButtonItem4_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem4.ItemClick + OpenTaskmanagement() + End Sub + + Private Sub BarButtonItem5_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem5.ItemClick + OpenUserKonfig() + End Sub + + Private Sub BarButtonItem6_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem6.ItemClick + OpenMenuDesigner() + End Sub + + Private Sub BarButtonItem7_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem7.ItemClick + OpenImageManager() + End Sub + + Private Sub BarButtonItem8_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem8.ItemClick + OpenDokumentartt() + End Sub + + Private Sub BarButtonItem9_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem9.ItemClick + OpenObjecttypeConfig() + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem2.ItemClick + frmConfiguration_Basic.ShowDialog() + End Sub + + Private Sub BarButtonItem10_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem10.ItemClick + frmConfig_Basic.ShowDialog() + End Sub + + Private Sub BarButtonItem12_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem12.ItemClick + OpenWiedervorlage() + End Sub + + Private Sub BarButtonItem13_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem13.ItemClick + OpenLogRecord() + End Sub + + Private Sub BarButtonItem14_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem14.ItemClick + Dim frm As New frmConnections + frm.MdiParent = Me + frm.Show() + End Sub + + Private Sub BarButtonItem16_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem16.ItemClick + Dim frm As New frmConstructorDesigner + frm.MdiParent = Me + frm.Show() + End Sub +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmMenuDesigner.Designer.vb b/app - Kopie/DD-Record-Organiser/frmMenuDesigner.Designer.vb new file mode 100644 index 0000000..4a091d6 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmMenuDesigner.Designer.vb @@ -0,0 +1,759 @@ + _ +Partial Class frmMenuDesigner + 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(frmMenuDesigner)) + Me.MainSplitContainer = New System.Windows.Forms.SplitContainer() + Me.dgvForm = New System.Windows.Forms.DataGridView() + Me.GUIDDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.PARENTIDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.NAMEDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LEVELDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ADDEDWHODataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ADDEDWHENDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHODataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHENDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.FormBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.MenuEntriesSplitContainer = New System.Windows.Forms.SplitContainer() + Me.dgvMenu = New System.Windows.Forms.DataGridView() + Me.GUIDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MENUENTRYDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ICONPATHDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SEQUENCEDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ADDEDWHODataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ADDEDWHENDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHODataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHENDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MenuBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSetMenuDesigner = New DD_Record_Organiser.DD_DMSDataSetMenuDesigner() + Me.MenuBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.dgvMenuEntry = New System.Windows.Forms.DataGridView() + Me.GUIDDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MENUFORMIDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.FORMIDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ICONPATHDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MENUENTRYDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SEQUENCEDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ADDEDWHODataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ADDEDWHENDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHODataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHENDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MenuEntryBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MenuEntrybindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.TBPMO_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter() + Me.TBPMO_MENU_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter() + Me.TBPMO_MENU_FORM_ENTRIESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter() + CType(Me.MainSplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MainSplitContainer.Panel1.SuspendLayout() + Me.MainSplitContainer.Panel2.SuspendLayout() + Me.MainSplitContainer.SuspendLayout() + CType(Me.dgvForm, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.FormBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + CType(Me.MenuEntriesSplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuEntriesSplitContainer.Panel1.SuspendLayout() + Me.MenuEntriesSplitContainer.Panel2.SuspendLayout() + Me.MenuEntriesSplitContainer.SuspendLayout() + CType(Me.dgvMenu, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MenuBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSetMenuDesigner, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MenuBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuBindingNavigator.SuspendLayout() + CType(Me.dgvMenuEntry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MenuEntryBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MenuEntrybindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuEntrybindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'MainSplitContainer + ' + Me.MainSplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.MainSplitContainer.Location = New System.Drawing.Point(0, 0) + Me.MainSplitContainer.Name = "MainSplitContainer" + ' + 'MainSplitContainer.Panel1 + ' + Me.MainSplitContainer.Panel1.Controls.Add(Me.dgvForm) + Me.MainSplitContainer.Panel1.Controls.Add(Me.ToolStrip1) + ' + 'MainSplitContainer.Panel2 + ' + Me.MainSplitContainer.Panel2.Controls.Add(Me.MenuEntriesSplitContainer) + Me.MainSplitContainer.Size = New System.Drawing.Size(1098, 561) + Me.MainSplitContainer.SplitterDistance = 366 + Me.MainSplitContainer.TabIndex = 0 + ' + 'dgvForm + ' + Me.dgvForm.AllowUserToAddRows = False + Me.dgvForm.AllowUserToDeleteRows = False + Me.dgvForm.AutoGenerateColumns = False + Me.dgvForm.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvForm.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.GUIDDataGridViewTextBoxColumn2, Me.PARENTIDDataGridViewTextBoxColumn, Me.NAMEDataGridViewTextBoxColumn, Me.LEVELDataGridViewTextBoxColumn, Me.ADDEDWHODataGridViewTextBoxColumn2, Me.ADDEDWHENDataGridViewTextBoxColumn2, Me.CHANGEDWHODataGridViewTextBoxColumn2, Me.CHANGEDWHENDataGridViewTextBoxColumn2}) + Me.dgvForm.DataSource = Me.FormBindingSource + Me.dgvForm.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvForm.Location = New System.Drawing.Point(0, 25) + Me.dgvForm.Name = "dgvForm" + Me.dgvForm.ReadOnly = True + Me.dgvForm.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvForm.Size = New System.Drawing.Size(366, 536) + Me.dgvForm.TabIndex = 1 + ' + 'GUIDDataGridViewTextBoxColumn2 + ' + Me.GUIDDataGridViewTextBoxColumn2.DataPropertyName = "GUID" + Me.GUIDDataGridViewTextBoxColumn2.HeaderText = "GUID" + Me.GUIDDataGridViewTextBoxColumn2.Name = "GUIDDataGridViewTextBoxColumn2" + Me.GUIDDataGridViewTextBoxColumn2.ReadOnly = True + ' + 'PARENTIDDataGridViewTextBoxColumn + ' + Me.PARENTIDDataGridViewTextBoxColumn.DataPropertyName = "PARENT_ID" + Me.PARENTIDDataGridViewTextBoxColumn.HeaderText = "PARENT_ID" + Me.PARENTIDDataGridViewTextBoxColumn.Name = "PARENTIDDataGridViewTextBoxColumn" + Me.PARENTIDDataGridViewTextBoxColumn.ReadOnly = True + ' + 'NAMEDataGridViewTextBoxColumn + ' + Me.NAMEDataGridViewTextBoxColumn.DataPropertyName = "NAME" + Me.NAMEDataGridViewTextBoxColumn.HeaderText = "NAME" + Me.NAMEDataGridViewTextBoxColumn.Name = "NAMEDataGridViewTextBoxColumn" + Me.NAMEDataGridViewTextBoxColumn.ReadOnly = True + ' + 'LEVELDataGridViewTextBoxColumn + ' + Me.LEVELDataGridViewTextBoxColumn.DataPropertyName = "LEVEL" + Me.LEVELDataGridViewTextBoxColumn.HeaderText = "LEVEL" + Me.LEVELDataGridViewTextBoxColumn.Name = "LEVELDataGridViewTextBoxColumn" + Me.LEVELDataGridViewTextBoxColumn.ReadOnly = True + ' + 'ADDEDWHODataGridViewTextBoxColumn2 + ' + Me.ADDEDWHODataGridViewTextBoxColumn2.DataPropertyName = "ADDED_WHO" + Me.ADDEDWHODataGridViewTextBoxColumn2.HeaderText = "ADDED_WHO" + Me.ADDEDWHODataGridViewTextBoxColumn2.Name = "ADDEDWHODataGridViewTextBoxColumn2" + Me.ADDEDWHODataGridViewTextBoxColumn2.ReadOnly = True + ' + 'ADDEDWHENDataGridViewTextBoxColumn2 + ' + Me.ADDEDWHENDataGridViewTextBoxColumn2.DataPropertyName = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn2.HeaderText = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn2.Name = "ADDEDWHENDataGridViewTextBoxColumn2" + Me.ADDEDWHENDataGridViewTextBoxColumn2.ReadOnly = True + ' + 'CHANGEDWHODataGridViewTextBoxColumn2 + ' + Me.CHANGEDWHODataGridViewTextBoxColumn2.DataPropertyName = "CHANGED_WHO" + Me.CHANGEDWHODataGridViewTextBoxColumn2.HeaderText = "CHANGED_WHO" + Me.CHANGEDWHODataGridViewTextBoxColumn2.Name = "CHANGEDWHODataGridViewTextBoxColumn2" + Me.CHANGEDWHODataGridViewTextBoxColumn2.ReadOnly = True + ' + 'CHANGEDWHENDataGridViewTextBoxColumn2 + ' + Me.CHANGEDWHENDataGridViewTextBoxColumn2.DataPropertyName = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn2.HeaderText = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn2.Name = "CHANGEDWHENDataGridViewTextBoxColumn2" + Me.CHANGEDWHENDataGridViewTextBoxColumn2.ReadOnly = True + ' + 'FormBindingSource + ' + Me.FormBindingSource.DataMember = "TBPMO_FORM" + Me.FormBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolStrip1 + ' + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(366, 25) + Me.ToolStrip1.TabIndex = 0 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(125, 22) + Me.ToolStripLabel1.Text = "Verfügbare Formulare:" + ' + 'MenuEntriesSplitContainer + ' + Me.MenuEntriesSplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.MenuEntriesSplitContainer.Location = New System.Drawing.Point(0, 0) + Me.MenuEntriesSplitContainer.Name = "MenuEntriesSplitContainer" + Me.MenuEntriesSplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'MenuEntriesSplitContainer.Panel1 + ' + Me.MenuEntriesSplitContainer.Panel1.Controls.Add(Me.dgvMenu) + Me.MenuEntriesSplitContainer.Panel1.Controls.Add(Me.MenuBindingNavigator) + ' + 'MenuEntriesSplitContainer.Panel2 + ' + Me.MenuEntriesSplitContainer.Panel2.Controls.Add(Me.dgvMenuEntry) + Me.MenuEntriesSplitContainer.Panel2.Controls.Add(Me.MenuEntrybindingNavigator) + Me.MenuEntriesSplitContainer.Size = New System.Drawing.Size(728, 561) + Me.MenuEntriesSplitContainer.SplitterDistance = 240 + Me.MenuEntriesSplitContainer.TabIndex = 0 + ' + 'dgvMenu + ' + Me.dgvMenu.AutoGenerateColumns = False + Me.dgvMenu.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMenu.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.GUIDDataGridViewTextBoxColumn, Me.MENUENTRYDataGridViewTextBoxColumn, Me.ICONPATHDataGridViewTextBoxColumn, Me.SEQUENCEDataGridViewTextBoxColumn, Me.ADDEDWHODataGridViewTextBoxColumn, Me.ADDEDWHENDataGridViewTextBoxColumn, Me.CHANGEDWHODataGridViewTextBoxColumn, Me.CHANGEDWHENDataGridViewTextBoxColumn}) + Me.dgvMenu.DataSource = Me.MenuBindingSource + Me.dgvMenu.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvMenu.Location = New System.Drawing.Point(0, 25) + Me.dgvMenu.Name = "dgvMenu" + Me.dgvMenu.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMenu.Size = New System.Drawing.Size(728, 215) + Me.dgvMenu.TabIndex = 1 + ' + 'GUIDDataGridViewTextBoxColumn + ' + Me.GUIDDataGridViewTextBoxColumn.DataPropertyName = "GUID" + Me.GUIDDataGridViewTextBoxColumn.HeaderText = "GUID" + Me.GUIDDataGridViewTextBoxColumn.Name = "GUIDDataGridViewTextBoxColumn" + Me.GUIDDataGridViewTextBoxColumn.ReadOnly = True + ' + 'MENUENTRYDataGridViewTextBoxColumn + ' + Me.MENUENTRYDataGridViewTextBoxColumn.DataPropertyName = "MENU_ENTRY" + Me.MENUENTRYDataGridViewTextBoxColumn.HeaderText = "MENU_ENTRY" + Me.MENUENTRYDataGridViewTextBoxColumn.Name = "MENUENTRYDataGridViewTextBoxColumn" + ' + 'ICONPATHDataGridViewTextBoxColumn + ' + Me.ICONPATHDataGridViewTextBoxColumn.DataPropertyName = "ICON_PATH" + Me.ICONPATHDataGridViewTextBoxColumn.HeaderText = "ICON_PATH" + Me.ICONPATHDataGridViewTextBoxColumn.Name = "ICONPATHDataGridViewTextBoxColumn" + ' + 'SEQUENCEDataGridViewTextBoxColumn + ' + Me.SEQUENCEDataGridViewTextBoxColumn.DataPropertyName = "SEQUENCE" + Me.SEQUENCEDataGridViewTextBoxColumn.HeaderText = "SEQUENCE" + Me.SEQUENCEDataGridViewTextBoxColumn.Name = "SEQUENCEDataGridViewTextBoxColumn" + ' + 'ADDEDWHODataGridViewTextBoxColumn + ' + Me.ADDEDWHODataGridViewTextBoxColumn.DataPropertyName = "ADDED_WHO" + Me.ADDEDWHODataGridViewTextBoxColumn.HeaderText = "ADDED_WHO" + Me.ADDEDWHODataGridViewTextBoxColumn.Name = "ADDEDWHODataGridViewTextBoxColumn" + ' + 'ADDEDWHENDataGridViewTextBoxColumn + ' + Me.ADDEDWHENDataGridViewTextBoxColumn.DataPropertyName = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn.HeaderText = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn.Name = "ADDEDWHENDataGridViewTextBoxColumn" + ' + 'CHANGEDWHODataGridViewTextBoxColumn + ' + Me.CHANGEDWHODataGridViewTextBoxColumn.DataPropertyName = "CHANGED_WHO" + Me.CHANGEDWHODataGridViewTextBoxColumn.HeaderText = "CHANGED_WHO" + Me.CHANGEDWHODataGridViewTextBoxColumn.Name = "CHANGEDWHODataGridViewTextBoxColumn" + ' + 'CHANGEDWHENDataGridViewTextBoxColumn + ' + Me.CHANGEDWHENDataGridViewTextBoxColumn.DataPropertyName = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn.HeaderText = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn.Name = "CHANGEDWHENDataGridViewTextBoxColumn" + ' + 'MenuBindingSource + ' + Me.MenuBindingSource.DataMember = "TBPMO_MENU_FORM" + Me.MenuBindingSource.DataSource = Me.DD_DMSDataSetMenuDesigner + ' + 'DD_DMSDataSetMenuDesigner + ' + Me.DD_DMSDataSetMenuDesigner.DataSetName = "DD_DMSDataSetMenuDesigner" + Me.DD_DMSDataSetMenuDesigner.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'MenuBindingNavigator + ' + Me.MenuBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.MenuBindingNavigator.BindingSource = Me.MenuBindingSource + Me.MenuBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.MenuBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.MenuBindingNavigator.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.MenuBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton1}) + Me.MenuBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.MenuBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.MenuBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.MenuBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.MenuBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.MenuBindingNavigator.Name = "MenuBindingNavigator" + Me.MenuBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.MenuBindingNavigator.Size = New System.Drawing.Size(728, 25) + Me.MenuBindingNavigator.TabIndex = 0 + Me.MenuBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "ToolStripButton1" + ' + 'dgvMenuEntry + ' + Me.dgvMenuEntry.AllowDrop = True + Me.dgvMenuEntry.AutoGenerateColumns = False + Me.dgvMenuEntry.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMenuEntry.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.GUIDDataGridViewTextBoxColumn1, Me.MENUFORMIDDataGridViewTextBoxColumn, Me.FORMIDDataGridViewTextBoxColumn, Me.ICONPATHDataGridViewTextBoxColumn1, Me.MENUENTRYDataGridViewTextBoxColumn1, Me.SEQUENCEDataGridViewTextBoxColumn1, Me.ADDEDWHODataGridViewTextBoxColumn1, Me.ADDEDWHENDataGridViewTextBoxColumn1, Me.CHANGEDWHODataGridViewTextBoxColumn1, Me.CHANGEDWHENDataGridViewTextBoxColumn1}) + Me.dgvMenuEntry.DataSource = Me.MenuEntryBindingSource + Me.dgvMenuEntry.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvMenuEntry.Location = New System.Drawing.Point(0, 25) + Me.dgvMenuEntry.Name = "dgvMenuEntry" + Me.dgvMenuEntry.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMenuEntry.Size = New System.Drawing.Size(728, 292) + Me.dgvMenuEntry.TabIndex = 1 + ' + 'GUIDDataGridViewTextBoxColumn1 + ' + Me.GUIDDataGridViewTextBoxColumn1.DataPropertyName = "GUID" + Me.GUIDDataGridViewTextBoxColumn1.HeaderText = "GUID" + Me.GUIDDataGridViewTextBoxColumn1.Name = "GUIDDataGridViewTextBoxColumn1" + Me.GUIDDataGridViewTextBoxColumn1.ReadOnly = True + ' + 'MENUFORMIDDataGridViewTextBoxColumn + ' + Me.MENUFORMIDDataGridViewTextBoxColumn.DataPropertyName = "MENU_FORM_ID" + Me.MENUFORMIDDataGridViewTextBoxColumn.HeaderText = "MENU_FORM_ID" + Me.MENUFORMIDDataGridViewTextBoxColumn.Name = "MENUFORMIDDataGridViewTextBoxColumn" + ' + 'FORMIDDataGridViewTextBoxColumn + ' + Me.FORMIDDataGridViewTextBoxColumn.DataPropertyName = "FORM_ID" + Me.FORMIDDataGridViewTextBoxColumn.HeaderText = "FORM_ID" + Me.FORMIDDataGridViewTextBoxColumn.Name = "FORMIDDataGridViewTextBoxColumn" + ' + 'ICONPATHDataGridViewTextBoxColumn1 + ' + Me.ICONPATHDataGridViewTextBoxColumn1.DataPropertyName = "ICON_PATH" + Me.ICONPATHDataGridViewTextBoxColumn1.HeaderText = "ICON_PATH" + Me.ICONPATHDataGridViewTextBoxColumn1.Name = "ICONPATHDataGridViewTextBoxColumn1" + ' + 'MENUENTRYDataGridViewTextBoxColumn1 + ' + Me.MENUENTRYDataGridViewTextBoxColumn1.DataPropertyName = "MENU_ENTRY" + Me.MENUENTRYDataGridViewTextBoxColumn1.HeaderText = "MENU_ENTRY" + Me.MENUENTRYDataGridViewTextBoxColumn1.Name = "MENUENTRYDataGridViewTextBoxColumn1" + ' + 'SEQUENCEDataGridViewTextBoxColumn1 + ' + Me.SEQUENCEDataGridViewTextBoxColumn1.DataPropertyName = "SEQUENCE" + Me.SEQUENCEDataGridViewTextBoxColumn1.HeaderText = "SEQUENCE" + Me.SEQUENCEDataGridViewTextBoxColumn1.Name = "SEQUENCEDataGridViewTextBoxColumn1" + ' + 'ADDEDWHODataGridViewTextBoxColumn1 + ' + Me.ADDEDWHODataGridViewTextBoxColumn1.DataPropertyName = "ADDED_WHO" + Me.ADDEDWHODataGridViewTextBoxColumn1.HeaderText = "ADDED_WHO" + Me.ADDEDWHODataGridViewTextBoxColumn1.Name = "ADDEDWHODataGridViewTextBoxColumn1" + ' + 'ADDEDWHENDataGridViewTextBoxColumn1 + ' + Me.ADDEDWHENDataGridViewTextBoxColumn1.DataPropertyName = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn1.HeaderText = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn1.Name = "ADDEDWHENDataGridViewTextBoxColumn1" + ' + 'CHANGEDWHODataGridViewTextBoxColumn1 + ' + Me.CHANGEDWHODataGridViewTextBoxColumn1.DataPropertyName = "CHANGED_WHO" + Me.CHANGEDWHODataGridViewTextBoxColumn1.HeaderText = "CHANGED_WHO" + Me.CHANGEDWHODataGridViewTextBoxColumn1.Name = "CHANGEDWHODataGridViewTextBoxColumn1" + ' + 'CHANGEDWHENDataGridViewTextBoxColumn1 + ' + Me.CHANGEDWHENDataGridViewTextBoxColumn1.DataPropertyName = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn1.HeaderText = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn1.Name = "CHANGEDWHENDataGridViewTextBoxColumn1" + ' + 'MenuEntryBindingSource + ' + Me.MenuEntryBindingSource.DataMember = "TBPMO_MENU_FORM_ENTRIES" + Me.MenuEntryBindingSource.DataSource = Me.DD_DMSDataSetMenuDesigner + ' + 'MenuEntrybindingNavigator + ' + Me.MenuEntrybindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem1 + Me.MenuEntrybindingNavigator.BindingSource = Me.MenuEntryBindingSource + Me.MenuEntrybindingNavigator.CountItem = Me.BindingNavigatorCountItem1 + Me.MenuEntrybindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem1 + Me.MenuEntrybindingNavigator.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.MenuEntrybindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem1, Me.BindingNavigatorDeleteItem1, Me.ToolStripButton2, Me.ToolStripLabel2}) + Me.MenuEntrybindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.MenuEntrybindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 + Me.MenuEntrybindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem1 + Me.MenuEntrybindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem1 + Me.MenuEntrybindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 + Me.MenuEntrybindingNavigator.Name = "MenuEntrybindingNavigator" + Me.MenuEntrybindingNavigator.PositionItem = Me.BindingNavigatorPositionItem1 + Me.MenuEntrybindingNavigator.Size = New System.Drawing.Size(728, 25) + Me.MenuEntrybindingNavigator.TabIndex = 0 + Me.MenuEntrybindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem1 + ' + Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" + Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem1 + ' + Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem1.Text = "von {0}" + Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem1 + ' + Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem1.Image = CType(resources.GetObject("BindingNavigatorDeleteItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" + Me.BindingNavigatorDeleteItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem1.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem1 + ' + Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" + Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem1 + ' + Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" + Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator3 + ' + Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" + Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem1 + ' + Me.BindingNavigatorPositionItem1.AccessibleName = "Position" + Me.BindingNavigatorPositionItem1.AutoSize = False + Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" + Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem1.Text = "0" + Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator4 + ' + Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" + Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem1 + ' + Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" + Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem1 + ' + Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" + Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator5 + ' + Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" + Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "ToolStripButton2" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel2.ForeColor = System.Drawing.Color.Crimson + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(360, 22) + Me.ToolStripLabel2.Text = "Ziehen Sie neue Menüeinträge per DragDrop in diese Übersicht" + ' + 'TBPMO_FORMTableAdapter + ' + Me.TBPMO_FORMTableAdapter.ClearBeforeFill = True + ' + 'TBPMO_MENU_FORMTableAdapter + ' + Me.TBPMO_MENU_FORMTableAdapter.ClearBeforeFill = True + ' + 'TBPMO_MENU_FORM_ENTRIESTableAdapter + ' + Me.TBPMO_MENU_FORM_ENTRIESTableAdapter.ClearBeforeFill = True + ' + 'frmMenuDesigner + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1098, 561) + Me.Controls.Add(Me.MainSplitContainer) + Me.Name = "frmMenuDesigner" + Me.Text = "frmMenuDesigner" + Me.MainSplitContainer.Panel1.ResumeLayout(False) + Me.MainSplitContainer.Panel1.PerformLayout() + Me.MainSplitContainer.Panel2.ResumeLayout(False) + CType(Me.MainSplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.MainSplitContainer.ResumeLayout(False) + CType(Me.dgvForm, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.FormBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.MenuEntriesSplitContainer.Panel1.ResumeLayout(False) + Me.MenuEntriesSplitContainer.Panel1.PerformLayout() + Me.MenuEntriesSplitContainer.Panel2.ResumeLayout(False) + Me.MenuEntriesSplitContainer.Panel2.PerformLayout() + CType(Me.MenuEntriesSplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuEntriesSplitContainer.ResumeLayout(False) + CType(Me.dgvMenu, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MenuBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSetMenuDesigner, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MenuBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuBindingNavigator.ResumeLayout(False) + Me.MenuBindingNavigator.PerformLayout() + CType(Me.dgvMenuEntry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MenuEntryBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MenuEntrybindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuEntrybindingNavigator.ResumeLayout(False) + Me.MenuEntrybindingNavigator.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents MainSplitContainer As System.Windows.Forms.SplitContainer + Friend WithEvents MenuEntriesSplitContainer As System.Windows.Forms.SplitContainer + Friend WithEvents dgvMenu As System.Windows.Forms.DataGridView + Friend WithEvents GUIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MENUENTRYDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ICONPATHDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents SEQUENCEDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ADDEDWHODataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MenuBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents DD_DMSDataSetMenuDesigner As DD_Record_Organiser.DD_DMSDataSetMenuDesigner + Friend WithEvents MenuBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_MENU_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter + Friend WithEvents dgvMenuEntry As System.Windows.Forms.DataGridView + Friend WithEvents MenuEntrybindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents MenuEntryBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_MENU_FORM_ENTRIESTableAdapter As DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter + Friend WithEvents GUIDDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MENUFORMIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents FORMIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ICONPATHDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MENUENTRYDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents SEQUENCEDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ADDEDWHODataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents FormBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents dgvForm As System.Windows.Forms.DataGridView + Friend WithEvents GUIDDataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents PARENTIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents NAMEDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents LEVELDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ADDEDWHODataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmMenuDesigner.resx b/app - Kopie/DD-Record-Organiser/frmMenuDesigner.resx new file mode 100644 index 0000000..d59b7dc --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmMenuDesigner.resx @@ -0,0 +1,282 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 1659, 17 + + + 1516, 17 + + + 222, 56 + + + 17, 17 + + + 357, 17 + + + 179, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 825, 17 + + + 1015, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 17, 56 + + + 580, 17 + + + 1221, 17 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmMenuDesigner.vb b/app - Kopie/DD-Record-Organiser/frmMenuDesigner.vb new file mode 100644 index 0000000..55b79a9 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmMenuDesigner.vb @@ -0,0 +1,87 @@ +Public Class frmMenuDesigner + + Private Sub frmMenuDesigner_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Me.TBPMO_FORMTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_MENU_FORMTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_MENU_FORM_ENTRIESTableAdapter.Connection.ConnectionString = MyConnectionString + + + Me.TBPMO_FORMTableAdapter.FillByAll(Me.DD_DMSDataSet.TBPMO_FORM) + 'Me.TBPMO_MENU_FORM_ENTRIESTableAdapter.Fill(Me.DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIES) + Me.TBPMO_MENU_FORMTableAdapter.Fill(Me.DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM) + End Sub + + Private Sub MenuBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles MenuBindingSource.PositionChanged + RefreshMenuEntries() + End Sub + + Private Sub RefreshMenuEntries() + Dim guid As Integer = MenuBindingSource.Item(MenuBindingSource.Position).Item("GUID") + Me.TBPMO_MENU_FORM_ENTRIESTableAdapter.FillBy(DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIES, guid) + End Sub + + Private Sub dgvForm_MouseDown(sender As Object, e As MouseEventArgs) Handles dgvForm.MouseDown + Dim i As Integer + i = dgvForm.CurrentRow.Index + + If dgvForm.Item(0, i).Value Is Nothing = False Then + Dim p As Integer + p = dgvForm.CurrentRow.Index + + Me.dgvForm.DoDragDrop(dgvForm.Item(0, i).Value.ToString, DragDropEffects.Copy) + End If + End Sub + + Private Sub dgvMenuEntry_DragEnter(sender As Object, e As DragEventArgs) Handles dgvMenuEntry.DragEnter + ' Check the format of the data being dropped. + If (e.Data.GetDataPresent(DataFormats.Text)) Then + ' Display the copy cursor. + e.Effect = DragDropEffects.Copy + Else + ' Display the no-drop cursor. + e.Effect = DragDropEffects.None + End If + End Sub + + Private Sub dgvMenuEntry_DragDrop(sender As Object, e As DragEventArgs) Handles dgvMenuEntry.DragDrop + Try + Dim FormID = e.Data.GetData(DataFormats.Text) + Dim MenuID = MenuBindingSource.Item(MenuBindingSource.Position).Item("GUID") + Dim Name = FormBindingSource.Item(FormBindingSource.Position).Item("NAME") + + If IsNothing(FormID) = False Then + TBPMO_MENU_FORM_ENTRIESTableAdapter.Insert(MenuID, FormID, "", Name, 1, Environment.UserName, Date.Now, Nothing, Nothing) + RefreshMenuEntries() + End If + Catch ex As Exception + MsgBox("Error in Save dgvMenuEntry_DragDrop:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + Try + Me.MenuBindingSource.EndEdit() + If DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM.GetChanges() Is Nothing = False Then + Me.MenuBindingSource.EndEdit() + Me.TBPMO_MENU_FORMTableAdapter.Update(DD_DMSDataSetMenuDesigner) + MsgBox("Changes saved successfully.", MsgBoxStyle.Information) + End If + Catch ex As Exception + MsgBox("Error in Save Form_Menu:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click + Try + Me.MenuEntryBindingSource.EndEdit() + If DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIES.GetChanges() Is Nothing = False Then + Me.MenuEntryBindingSource.EndEdit() + Me.TBPMO_MENU_FORM_ENTRIESTableAdapter.Update(DD_DMSDataSetMenuDesigner) + MsgBox("Changes saved successfully.", MsgBoxStyle.Information) + End If + Catch ex As Exception + MsgBox("Error in Save Form_Menu_Entries:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmNewKombiForm.Designer.vb b/app - Kopie/DD-Record-Organiser/frmNewKombiForm.Designer.vb new file mode 100644 index 0000000..4f6ca34 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmNewKombiForm.Designer.vb @@ -0,0 +1,113 @@ + _ +Partial Class frmNewKombiForm + 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.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.OK_Button = New System.Windows.Forms.Button() + Me.Cancel_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(154, 67) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(172, 29) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'OK_Button + ' + Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.OK_Button.Location = New System.Drawing.Point(6, 3) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(74, 23) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "OK" + ' + 'Cancel_Button + ' + Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel_Button.Location = New System.Drawing.Point(89, 3) + Me.Cancel_Button.Name = "Cancel_Button" + Me.Cancel_Button.Size = New System.Drawing.Size(80, 23) + Me.Cancel_Button.TabIndex = 1 + Me.Cancel_Button.Text = "Abbrechen" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(9, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(318, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "BItte bestimmen Sie den Namen des Neuen Kombiformulares" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(12, 36) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(315, 22) + Me.TextBox1.TabIndex = 2 + Me.TextBox1.Text = "Neuer Formularname" + ' + 'frmNewKombiForm + ' + Me.AcceptButton = Me.OK_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel_Button + Me.ClientSize = New System.Drawing.Size(338, 108) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmNewKombiForm" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Neues Kombiformular" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents Cancel_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmNewKombiForm.resx b/app - Kopie/DD-Record-Organiser/frmNewKombiForm.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmNewKombiForm.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmNewKombiForm.vb b/app - Kopie/DD-Record-Organiser/frmNewKombiForm.vb new file mode 100644 index 0000000..b57aa46 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmNewKombiForm.vb @@ -0,0 +1,37 @@ +Imports System.Windows.Forms + +Public Class frmNewKombiForm + + Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.OK + STRING1 = Me.TextBox1.Text + + Dim Sql = "select count(*) from TBPMO_FORM_CONSTRUCTOR where UPPER(FORM_TITLE) = UPPER('" & STRING1 & "')" + Dim exists As Integer = ClassDatabase.Execute_Scalar(sql, True) + If exists = 1 Then + MsgBox("Achtung: Dieser Name existiert bereits!" & vbNewLine & "Bitte wählen Sie einen anderen Namen!", MsgBoxStyle.Exclamation) + Exit Sub + End If + + Sql = "EXEC [PRPMO_CREATE_CONSTRUCTOR] " & INTEGER1.ToString & ", '" & STRING1 & "'" + If ClassDatabase.Execute_non_Query(Sql, True) = True Then + Dim result As MsgBoxResult = MsgBox("Das Kombiformular wurde erfolgreich erzeugt!" & vbNewLine & "Wollen Sie die Konfiguration anzeigen?", MsgBoxStyle.YesNo, "Frage:") + If result = MsgBoxResult.Yes Then + Dim frm As New frmConstructorDesigner + frm.MdiParent = frmMain + frm.Show() + Me.Close() + Else + Me.Close() + End If + + End If + + End Sub + + Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.Designer.vb b/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.Designer.vb new file mode 100644 index 0000000..c1c7166 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.Designer.vb @@ -0,0 +1,482 @@ + _ +Partial Class frmObjecttypeConfig + 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 GUIDLabel As System.Windows.Forms.Label + Dim OBJECT_TYPELabel As System.Windows.Forms.Label + Dim IDXNAME_ENTITYIDLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmObjecttypeConfig)) + Dim IDXNAME_PARENTIDLabel As System.Windows.Forms.Label + Me.Label1 = New System.Windows.Forms.Label() + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.TBPMO_WD_OBJECTTYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_WD_OBJECTTYPETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_WD_OBJECTTYPEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.OBJECT_TYPEComboBox = New System.Windows.Forms.ComboBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.IDXNAME_ENTITYIDComboBox = New System.Windows.Forms.ComboBox() + Me.lblSaveDokart = New System.Windows.Forms.Label() + Me.IDXNAME_PARENTIDComboBox = New System.Windows.Forms.ComboBox() + Me.ListBox1 = New System.Windows.Forms.ListBox() + GUIDLabel = New System.Windows.Forms.Label() + OBJECT_TYPELabel = New System.Windows.Forms.Label() + IDXNAME_ENTITYIDLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + IDXNAME_PARENTIDLabel = New System.Windows.Forms.Label() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WD_OBJECTTYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WD_OBJECTTYPEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(12, 54) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(23, 17) + GUIDLabel.TabIndex = 2 + GUIDLabel.Text = "ID:" + ' + 'OBJECT_TYPELabel + ' + OBJECT_TYPELabel.AutoSize = True + OBJECT_TYPELabel.Location = New System.Drawing.Point(62, 54) + OBJECT_TYPELabel.Name = "OBJECT_TYPELabel" + OBJECT_TYPELabel.Size = New System.Drawing.Size(67, 17) + OBJECT_TYPELabel.TabIndex = 4 + OBJECT_TYPELabel.Text = "Objekttyp:" + ' + 'IDXNAME_ENTITYIDLabel + ' + IDXNAME_ENTITYIDLabel.AutoSize = True + IDXNAME_ENTITYIDLabel.Location = New System.Drawing.Point(62, 102) + IDXNAME_ENTITYIDLabel.Name = "IDXNAME_ENTITYIDLabel" + IDXNAME_ENTITYIDLabel.Size = New System.Drawing.Size(157, 17) + IDXNAME_ENTITYIDLabel.TabIndex = 6 + IDXNAME_ENTITYIDLabel.Text = "Indexname für Entitäts-ID:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(61, 155) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(71, 17) + ADDED_WHOLabel.TabIndex = 8 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(231, 155) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(81, 17) + ADDED_WHENLabel.TabIndex = 10 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(62, 201) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(86, 17) + CHANGED_WHOLabel.TabIndex = 12 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(231, 201) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(96, 17) + CHANGED_WHENLabel.TabIndex = 14 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(12, 25) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(573, 17) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "In diesem Formular werden alle Konfigurationen vorgenommen die den jeweiligen Obj" & _ + "ekttyp betreffen." + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMO_WD_OBJECTTYPEBindingSource + ' + Me.TBPMO_WD_OBJECTTYPEBindingSource.DataMember = "TBPMO_WD_OBJECTTYPE" + Me.TBPMO_WD_OBJECTTYPEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_WD_OBJECTTYPETableAdapter + ' + Me.TBPMO_WD_OBJECTTYPETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Me.TBPMO_WD_OBJECTTYPETableAdapter + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_WD_OBJECTTYPEBindingNavigator + ' + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.BindingSource = Me.TBPMO_WD_OBJECTTYPEBindingSource + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.CountItemFormat = "von {0} Objekttypen" + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem}) + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.Name = "TBPMO_WD_OBJECTTYPEBindingNavigator" + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.Size = New System.Drawing.Size(781, 25) + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.TabIndex = 1 + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(112, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Objekttypen" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem + ' + Me.TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem.Name = "TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem" + Me.TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "GUID", True)) + Me.GUIDTextBox.Enabled = False + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(15, 74) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(38, 25) + Me.GUIDTextBox.TabIndex = 3 + ' + 'OBJECT_TYPEComboBox + ' + Me.OBJECT_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "OBJECT_TYPE", True)) + Me.OBJECT_TYPEComboBox.FormattingEnabled = True + Me.OBJECT_TYPEComboBox.Location = New System.Drawing.Point(65, 74) + Me.OBJECT_TYPEComboBox.Name = "OBJECT_TYPEComboBox" + Me.OBJECT_TYPEComboBox.Size = New System.Drawing.Size(426, 25) + Me.OBJECT_TYPEComboBox.TabIndex = 5 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Enabled = False + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(64, 173) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(154, 25) + Me.ADDED_WHOTextBox.TabIndex = 9 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Enabled = False + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(234, 173) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(169, 25) + Me.ADDED_WHENTextBox.TabIndex = 11 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Enabled = False + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(64, 221) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(154, 25) + Me.CHANGED_WHOTextBox.TabIndex = 13 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Enabled = False + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(234, 221) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(169, 25) + Me.CHANGED_WHENTextBox.TabIndex = 15 + ' + 'IDXNAME_ENTITYIDComboBox + ' + Me.IDXNAME_ENTITYIDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "IDXNAME_ENTITYID", True)) + Me.IDXNAME_ENTITYIDComboBox.FormattingEnabled = True + Me.IDXNAME_ENTITYIDComboBox.Location = New System.Drawing.Point(65, 122) + Me.IDXNAME_ENTITYIDComboBox.Name = "IDXNAME_ENTITYIDComboBox" + Me.IDXNAME_ENTITYIDComboBox.Size = New System.Drawing.Size(206, 25) + Me.IDXNAME_ENTITYIDComboBox.TabIndex = 16 + ' + 'lblSaveDokart + ' + Me.lblSaveDokart.AutoSize = True + Me.lblSaveDokart.BackColor = System.Drawing.Color.Yellow + Me.lblSaveDokart.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveDokart.Location = New System.Drawing.Point(62, 260) + Me.lblSaveDokart.Name = "lblSaveDokart" + Me.lblSaveDokart.Size = New System.Drawing.Size(261, 17) + Me.lblSaveDokart.TabIndex = 78 + Me.lblSaveDokart.Text = "Objekttyp-Daten erfolgreich gespeichert!" + Me.lblSaveDokart.Visible = False + ' + 'IDXNAME_PARENTIDLabel + ' + IDXNAME_PARENTIDLabel.AutoSize = True + IDXNAME_PARENTIDLabel.Location = New System.Drawing.Point(283, 102) + IDXNAME_PARENTIDLabel.Name = "IDXNAME_PARENTIDLabel" + IDXNAME_PARENTIDLabel.Size = New System.Drawing.Size(152, 17) + IDXNAME_PARENTIDLabel.TabIndex = 78 + IDXNAME_PARENTIDLabel.Text = "Indexname für Parent-ID:" + ' + 'IDXNAME_PARENTIDComboBox + ' + Me.IDXNAME_PARENTIDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WD_OBJECTTYPEBindingSource, "IDXNAME_PARENTID", True)) + Me.IDXNAME_PARENTIDComboBox.FormattingEnabled = True + Me.IDXNAME_PARENTIDComboBox.Location = New System.Drawing.Point(286, 122) + Me.IDXNAME_PARENTIDComboBox.Name = "IDXNAME_PARENTIDComboBox" + Me.IDXNAME_PARENTIDComboBox.Size = New System.Drawing.Size(205, 25) + Me.IDXNAME_PARENTIDComboBox.TabIndex = 79 + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBPMO_WD_OBJECTTYPEBindingSource + Me.ListBox1.DisplayMember = "OBJECT_TYPE" + Me.ListBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 17 + Me.ListBox1.Location = New System.Drawing.Point(525, 74) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(242, 174) + Me.ListBox1.TabIndex = 80 + Me.ListBox1.ValueMember = "GUID" + ' + 'frmObjecttypeConfig + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(781, 356) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(IDXNAME_PARENTIDLabel) + Me.Controls.Add(Me.IDXNAME_PARENTIDComboBox) + Me.Controls.Add(Me.lblSaveDokart) + Me.Controls.Add(Me.IDXNAME_ENTITYIDComboBox) + Me.Controls.Add(GUIDLabel) + Me.Controls.Add(Me.GUIDTextBox) + Me.Controls.Add(OBJECT_TYPELabel) + Me.Controls.Add(Me.OBJECT_TYPEComboBox) + Me.Controls.Add(IDXNAME_ENTITYIDLabel) + Me.Controls.Add(ADDED_WHOLabel) + Me.Controls.Add(Me.ADDED_WHOTextBox) + Me.Controls.Add(ADDED_WHENLabel) + Me.Controls.Add(Me.ADDED_WHENTextBox) + Me.Controls.Add(CHANGED_WHOLabel) + Me.Controls.Add(Me.CHANGED_WHOTextBox) + Me.Controls.Add(CHANGED_WHENLabel) + Me.Controls.Add(Me.CHANGED_WHENTextBox) + Me.Controls.Add(Me.TBPMO_WD_OBJECTTYPEBindingNavigator) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmObjecttypeConfig" + Me.Text = "Grundeinstellungen Objekttypen" + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WD_OBJECTTYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WD_OBJECTTYPEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.ResumeLayout(False) + Me.TBPMO_WD_OBJECTTYPEBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_WD_OBJECTTYPEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_WD_OBJECTTYPETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WD_OBJECTTYPEBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents OBJECT_TYPEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents IDXNAME_ENTITYIDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents lblSaveDokart As System.Windows.Forms.Label + Friend WithEvents IDXNAME_PARENTIDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.resx b/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.resx new file mode 100644 index 0000000..1d9db06 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 160, 17 + + + 429, 17 + + + 17, 56 + + + 190, 56 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + False + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.vb b/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.vb new file mode 100644 index 0000000..d37dd15 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmObjecttypeConfig.vb @@ -0,0 +1,90 @@ +Public Class frmObjecttypeConfig + Private Shared _Instance As frmObjecttypeConfig = Nothing + + Public Shared Function Instance() As frmObjecttypeConfig + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmObjecttypeConfig + End If + _Instance.BringToFront() + Return _Instance + End Function + Private Sub TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_WD_OBJECTTYPEBindingNavigatorSaveItem.Click + Save_ObjecttypeKonfig + End Sub + Sub Save_ObjecttypeKonfig() + Try + Me.TBPMO_WD_OBJECTTYPEBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_WD_OBJECTTYPE.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBPMO_WD_OBJECTTYPEBindingSource.EndEdit() + Me.TBPMO_WD_OBJECTTYPETableAdapter.Update(Me.DD_DMSDataSet.TBPMO_WD_OBJECTTYPE) + Me.lblSaveDokart.Visible = True + Else + Me.lblSaveDokart.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save Objecttype-Config:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub frmObjecttypeConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_WD_OBJECTTYPE". Sie können sie bei Bedarf verschieben oder entfernen. + Try + + TBPMO_WD_OBJECTTYPETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_WD_OBJECTTYPETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WD_OBJECTTYPE) + ClassWindream.Init() + Catch ex As Exception + MsgBox("Error loading Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub ObjektTypenEintragen() + Try + Dim oDokumentTyp As WINDREAMLib.WMObject + ' Combobox leeren + Me.OBJECT_TYPEComboBox.Items.Clear() + ' alle Objekttypen durchlaufen + For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects + ' und in die Combobox eintragen + Me.OBJECT_TYPEComboBox.Items.Add(oDokumentTyp.aName) + Next + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") + End Try + + End Sub + + Private Sub OBJECT_TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJECT_TYPEComboBox.SelectedIndexChanged + load_Indices + End Sub + Sub load_Indices() + Try + If Me.OBJECT_TYPEComboBox.SelectedIndex <> -1 Then + Me.IDXNAME_ENTITYIDComboBox.Items.Clear() + Me.IDXNAME_PARENTIDComboBox.Items.Clear() + Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJECT_TYPEComboBox.Text) + If indexe IsNot Nothing Then + For Each index As String In indexe + Me.IDXNAME_ENTITYIDComboBox.Items.Add(index) + Me.IDXNAME_PARENTIDComboBox.Items.Add(index) + Next + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei OBJECT_TYPEComboBox.SelectedIndexChanged: ") + End Try + End Sub + + Private Sub TBPMO_WD_OBJECTTYPEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WD_OBJECTTYPEBindingSource.AddingNew + Try + Me.DD_DMSDataSet.TBPMO_WD_OBJECTTYPE.ADDED_WHOColumn.DefaultValue = Environment.UserName + Catch ex As Exception + MsgBox("Error in Save Objecttype-Config:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub frmObjecttypeConfig_Shown(sender As Object, e As EventArgs) Handles Me.Shown + ObjektTypenEintragen() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.Designer.vb b/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.Designer.vb new file mode 100644 index 0000000..916790d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.Designer.vb @@ -0,0 +1,275 @@ + _ +Partial Class frmQuickAccessManager + 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() + Me.btnDeleteImage = New System.Windows.Forms.Button() + Me.btnSelectImage = New System.Windows.Forms.Button() + Me.ImageBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.btnSaveImage = New System.Windows.Forms.Button() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.btnRefresh = New System.Windows.Forms.ToolStripButton() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.gvMainView = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFORM_TITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSHORT_TITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSEQUENCE_MENU = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMENU_IMG = New DevExpress.XtraGrid.Columns.GridColumn() + Me.pbCurrent = New System.Windows.Forms.PictureBox() + Me.ImageTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.Label2 = New System.Windows.Forms.Label() + Me.pbNew = New System.Windows.Forms.PictureBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + CType(Me.ImageBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pbNew, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btnDeleteImage + ' + Me.btnDeleteImage.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDeleteImage.Location = New System.Drawing.Point(424, 450) + Me.btnDeleteImage.Name = "btnDeleteImage" + Me.btnDeleteImage.Size = New System.Drawing.Size(138, 23) + Me.btnDeleteImage.TabIndex = 3 + Me.btnDeleteImage.Text = "Bild löschen" + Me.btnDeleteImage.UseVisualStyleBackColor = True + ' + 'btnSelectImage + ' + Me.btnSelectImage.Location = New System.Drawing.Point(12, 450) + Me.btnSelectImage.Name = "btnSelectImage" + Me.btnSelectImage.Size = New System.Drawing.Size(200, 23) + Me.btnSelectImage.TabIndex = 4 + Me.btnSelectImage.Text = "Bild auswählen / ersetzen.." + Me.btnSelectImage.UseVisualStyleBackColor = True + ' + 'ImageBindingSource + ' + Me.ImageBindingSource.DataMember = "TBPMO_FORM_CONSTRUCTOR" + Me.ImageBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'btnSaveImage + ' + Me.btnSaveImage.Enabled = False + Me.btnSaveImage.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSaveImage.Location = New System.Drawing.Point(218, 450) + Me.btnSaveImage.Name = "btnSaveImage" + Me.btnSaveImage.Size = New System.Drawing.Size(200, 23) + Me.btnSaveImage.TabIndex = 7 + Me.btnSaveImage.Text = "Bild speichern" + Me.btnSaveImage.UseVisualStyleBackColor = True + ' + 'ToolStrip1 + ' + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnRefresh}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(574, 25) + Me.ToolStrip1.TabIndex = 8 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'btnRefresh + ' + Me.btnRefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnRefresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnRefresh.Name = "btnRefresh" + Me.btnRefresh.Size = New System.Drawing.Size(95, 22) + Me.btnRefresh.Text = "Aktualisieren" + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.ImageBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.GridControl1.Location = New System.Drawing.Point(0, 25) + Me.GridControl1.MainView = Me.gvMainView + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(574, 200) + Me.GridControl1.TabIndex = 9 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvMainView}) + ' + 'gvMainView + ' + Me.gvMainView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colFORM_TITLE, Me.colSHORT_TITLE, Me.colSEQUENCE_MENU, Me.colMENU_IMG}) + Me.gvMainView.GridControl = Me.GridControl1 + Me.gvMainView.Name = "gvMainView" + ' + 'colGUID + ' + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + ' + 'colFORM_TITLE + ' + Me.colFORM_TITLE.Caption = "Titel der Entität" + Me.colFORM_TITLE.FieldName = "FORM_TITLE" + Me.colFORM_TITLE.Name = "colFORM_TITLE" + Me.colFORM_TITLE.Visible = True + Me.colFORM_TITLE.VisibleIndex = 1 + ' + 'colSHORT_TITLE + ' + Me.colSHORT_TITLE.Caption = "Kurztitel" + Me.colSHORT_TITLE.FieldName = "SHORT_TITLE" + Me.colSHORT_TITLE.Name = "colSHORT_TITLE" + Me.colSHORT_TITLE.Visible = True + Me.colSHORT_TITLE.VisibleIndex = 4 + ' + 'colSEQUENCE_MENU + ' + Me.colSEQUENCE_MENU.Caption = "Reihenfolge" + Me.colSEQUENCE_MENU.FieldName = "SEQUENCE_MENU" + Me.colSEQUENCE_MENU.Name = "colSEQUENCE_MENU" + Me.colSEQUENCE_MENU.Visible = True + Me.colSEQUENCE_MENU.VisibleIndex = 2 + ' + 'colMENU_IMG + ' + Me.colMENU_IMG.Caption = "Schnellstart Icon" + Me.colMENU_IMG.FieldName = "MENU_IMG" + Me.colMENU_IMG.Name = "colMENU_IMG" + Me.colMENU_IMG.Visible = True + Me.colMENU_IMG.VisibleIndex = 3 + ' + 'pbCurrent + ' + Me.pbCurrent.BackColor = System.Drawing.SystemColors.ControlDark + Me.pbCurrent.DataBindings.Add(New System.Windows.Forms.Binding("Image", Me.ImageBindingSource, "MENU_IMG", True)) + Me.pbCurrent.Location = New System.Drawing.Point(12, 244) + Me.pbCurrent.Name = "pbCurrent" + Me.pbCurrent.Size = New System.Drawing.Size(200, 200) + Me.pbCurrent.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.pbCurrent.TabIndex = 10 + Me.pbCurrent.TabStop = False + ' + 'ImageTableAdapter + ' + Me.ImageTableAdapter.ClearBeforeFill = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(215, 228) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(55, 13) + Me.Label2.TabIndex = 13 + Me.Label2.Text = "Vorschau:" + ' + 'pbNew + ' + Me.pbNew.BackColor = System.Drawing.SystemColors.ControlDark + Me.pbNew.Location = New System.Drawing.Point(218, 244) + Me.pbNew.Name = "pbNew" + Me.pbNew.Size = New System.Drawing.Size(200, 200) + Me.pbNew.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.pbNew.TabIndex = 12 + Me.pbNew.TabStop = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 228) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(77, 13) + Me.Label1.TabIndex = 11 + Me.Label1.Text = "Aktuelles Icon:" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Location = New System.Drawing.Point(0, 482) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(574, 22) + Me.StatusStrip1.TabIndex = 13 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'frmQuickAccessManager + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(574, 504) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.pbNew) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.GridControl1) + Me.Controls.Add(Me.btnDeleteImage) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.pbCurrent) + Me.Controls.Add(Me.btnSelectImage) + Me.Controls.Add(Me.btnSaveImage) + Me.Name = "frmQuickAccessManager" + Me.Text = "Schnellstart Manager" + CType(Me.ImageBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pbNew, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents btnDeleteImage As System.Windows.Forms.Button + Friend WithEvents btnSelectImage As System.Windows.Forms.Button + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents btnSaveImage As System.Windows.Forms.Button + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents gvMainView As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents pbCurrent As System.Windows.Forms.PictureBox + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents ImageBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents ImageTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents btnRefresh As System.Windows.Forms.ToolStripButton + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents pbNew As System.Windows.Forms.PictureBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFORM_TITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSHORT_TITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSEQUENCE_MENU As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMENU_IMG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.resx b/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.resx new file mode 100644 index 0000000..c2c7b4b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 15, 26 + + + 593, 23 + + + 593, 23 + + + 344, 23 + + + 486, 23 + + + 196, 26 + + + 736, 23 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.vb b/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.vb new file mode 100644 index 0000000..15f5385 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickAccessManager.vb @@ -0,0 +1,86 @@ +Public Class frmQuickAccessManager + + Sub New() + InitializeComponent() + End Sub + + Private Sub frmQuickAccessManager_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ' frmMain.LoadMenuItems() + End Sub + + Private Sub frmImageManager_Load(sender As Object, e As EventArgs) Handles MyBase.Load + RefreshData() + End Sub + + Private Sub RefreshData() + ImageTableAdapter.Connection.ConnectionString = MyConnectionString + Me.ImageTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR) + End Sub + + Private Sub btnSelectImage_Click(sender As Object, e As EventArgs) Handles btnSelectImage.Click + OpenFileDialog1.Filter = "PNG Bilder|*.png" + + If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then + Dim path As String = OpenFileDialog1.FileName + pbNew.ImageLocation = path + btnSaveImage.Enabled = True + End If + End Sub + + Private Sub btnSaveImage_Click(sender As Object, e As EventArgs) Handles btnSaveImage.Click + Try + Dim image As Bitmap = CType(Drawing.Image.FromFile(pbNew.ImageLocation, True), Bitmap) + Dim bimage() As Byte = BitmapToByteArray(image) + Dim guid As String = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName) + + Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG WHERE GUID = @GUID" + Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(MyConnectionString) + Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn) + + cmd.Parameters.Add("@MENU_IMG", SqlDbType.VarBinary).Value = bimage + cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = guid + + conn.Open() + cmd.ExecuteNonQuery() + conn.Close() + + pbNew.Image = Nothing + + btnSaveImage.Enabled = False + + RefreshData() + Catch ex As Exception + MsgBox("Fehler beim Speichern des Icons:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnDeleteImage_Click(sender As Object, e As EventArgs) Handles btnDeleteImage.Click + Try + Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG WHERE GUID = @GUID" + Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(MyConnectionString) + Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn) + Dim guid As String = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName) + + cmd.Parameters.Add("@MENU_IMG", SqlDbType.VarBinary).Value = DBNull.Value + cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = guid + + conn.Open() + cmd.ExecuteNonQuery() + conn.Close() + + btnSaveImage.Enabled = False + + RefreshData() + Catch ex As Exception + MsgBox("Fehler beim Löschen des Icons:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click + RefreshData() + End Sub + + Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked + + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmQuickEdit.Designer.vb b/app - Kopie/DD-Record-Organiser/frmQuickEdit.Designer.vb new file mode 100644 index 0000000..dcf922c --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickEdit.Designer.vb @@ -0,0 +1,432 @@ + _ +Partial Class frmQuickEdit + 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(frmQuickEdit)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tsstat_lbl = New System.Windows.Forms.ToolStripStatusLabel() + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.VWPMO_CONTROL_SCREENBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_CONTROL_SCREENTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.VWPMO_CONTROL_SCREENBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingSourceDGV = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton() + Me.SplitContainerMain = New System.Windows.Forms.SplitContainer() + Me.dgvInput = New DevExpress.XtraGrid.GridControl() + Me.gvMainView = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.pnlView = New System.Windows.Forms.Panel() + Me.StatusStrip2 = New System.Windows.Forms.StatusStrip() + Me.tserstellt_Detail = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.tslblDetail_Eingabe = New System.Windows.Forms.ToolStripLabel() + Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton() + Me.tsButtonDelete = New System.Windows.Forms.ToolStripButton() + Me.tsButtonSave = New System.Windows.Forms.ToolStripButton() + Me.TBPMO_RECORDBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_RECORDTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter() + Me.TooltipControl = New System.Windows.Forms.ToolTip(Me.components) + Me.ttTooltip = New System.Windows.Forms.ToolTip(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.StammdatenEditierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1.SuspendLayout() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWPMO_CONTROL_SCREENBindingNavigator.SuspendLayout() + CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerMain.Panel1.SuspendLayout() + Me.SplitContainerMain.Panel2.SuspendLayout() + Me.SplitContainerMain.SuspendLayout() + CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip2.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstat_lbl}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 482) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0) + Me.StatusStrip1.Size = New System.Drawing.Size(919, 22) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tsstat_lbl + ' + Me.tsstat_lbl.Image = Global.DD_Record_Organiser.My.Resources.Resources.flag_green + Me.tsstat_lbl.Name = "tsstat_lbl" + Me.tsstat_lbl.Size = New System.Drawing.Size(69, 17) + Me.tsstat_lbl.Text = "tsstat_lbl" + Me.tsstat_lbl.Visible = False + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPMO_CONTROL_SCREENBindingSource + ' + Me.VWPMO_CONTROL_SCREENBindingSource.DataMember = "VWPMO_CONTROL_SCREEN" + Me.VWPMO_CONTROL_SCREENBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'VWPMO_CONTROL_SCREENTableAdapter + ' + Me.VWPMO_CONTROL_SCREENTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'VWPMO_CONTROL_SCREENBindingNavigator + ' + Me.VWPMO_CONTROL_SCREENBindingNavigator.AddNewItem = Nothing + Me.VWPMO_CONTROL_SCREENBindingNavigator.BindingSource = Me.BindingSourceDGV + Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItemFormat = "von {0} Datensätzen" + Me.VWPMO_CONTROL_SCREENBindingNavigator.DeleteItem = Nothing + Me.VWPMO_CONTROL_SCREENBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnrefresh}) + Me.VWPMO_CONTROL_SCREENBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.Name = "VWPMO_CONTROL_SCREENBindingNavigator" + Me.VWPMO_CONTROL_SCREENBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.VWPMO_CONTROL_SCREENBindingNavigator.Size = New System.Drawing.Size(919, 25) + Me.VWPMO_CONTROL_SCREENBindingNavigator.TabIndex = 1 + Me.VWPMO_CONTROL_SCREENBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingSourceDGV + ' + Me.BindingSourceDGV.AllowNew = False + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(111, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Datensätzen" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(58, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnrefresh + ' + Me.tsbtnrefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnrefresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnrefresh.Name = "tsbtnrefresh" + Me.tsbtnrefresh.Size = New System.Drawing.Size(146, 22) + Me.tsbtnrefresh.Text = "Übersicht aktualisieren" + ' + 'SplitContainerMain + ' + Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerMain.Location = New System.Drawing.Point(0, 25) + Me.SplitContainerMain.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.SplitContainerMain.Name = "SplitContainerMain" + Me.SplitContainerMain.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainerMain.Panel1 + ' + Me.SplitContainerMain.Panel1.Controls.Add(Me.dgvInput) + ' + 'SplitContainerMain.Panel2 + ' + Me.SplitContainerMain.Panel2.Controls.Add(Me.pnlView) + Me.SplitContainerMain.Panel2.Controls.Add(Me.StatusStrip2) + Me.SplitContainerMain.Panel2.Controls.Add(Me.ToolStrip2) + Me.SplitContainerMain.Size = New System.Drawing.Size(919, 457) + Me.SplitContainerMain.SplitterDistance = 195 + Me.SplitContainerMain.SplitterWidth = 5 + Me.SplitContainerMain.TabIndex = 2 + Me.SplitContainerMain.TabStop = False + ' + 'dgvInput + ' + Me.dgvInput.DataSource = Me.BindingSourceDGV + Me.dgvInput.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvInput.Location = New System.Drawing.Point(0, 0) + Me.dgvInput.MainView = Me.gvMainView + Me.dgvInput.Name = "dgvInput" + Me.dgvInput.Size = New System.Drawing.Size(919, 195) + Me.dgvInput.TabIndex = 2 + Me.dgvInput.TabStop = False + Me.dgvInput.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvMainView}) + ' + 'gvMainView + ' + Me.gvMainView.Appearance.OddRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.gvMainView.Appearance.OddRow.Options.UseBackColor = True + Me.gvMainView.GridControl = Me.dgvInput + Me.gvMainView.Name = "gvMainView" + Me.gvMainView.OptionsBehavior.Editable = False + Me.gvMainView.OptionsLayout.Columns.StoreAppearance = True + Me.gvMainView.OptionsPrint.EnableAppearanceOddRow = True + Me.gvMainView.OptionsSelection.EnableAppearanceFocusedCell = False + Me.gvMainView.OptionsView.EnableAppearanceEvenRow = True + Me.gvMainView.OptionsView.EnableAppearanceOddRow = True + ' + 'pnlView + ' + Me.pnlView.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlView.Location = New System.Drawing.Point(0, 25) + Me.pnlView.Name = "pnlView" + Me.pnlView.Size = New System.Drawing.Size(919, 210) + Me.pnlView.TabIndex = 4 + ' + 'StatusStrip2 + ' + Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Detail}) + Me.StatusStrip2.Location = New System.Drawing.Point(0, 235) + Me.StatusStrip2.Name = "StatusStrip2" + Me.StatusStrip2.Size = New System.Drawing.Size(919, 22) + Me.StatusStrip2.TabIndex = 1 + Me.StatusStrip2.Text = "StatusStrip2" + ' + 'tserstellt_Detail + ' + Me.tserstellt_Detail.Name = "tserstellt_Detail" + Me.tserstellt_Detail.Size = New System.Drawing.Size(121, 17) + Me.tserstellt_Detail.Text = "ToolStripStatusLabel1" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDetail_Eingabe, Me.tsButtonAdd, Me.tsButtonDelete, Me.tsButtonSave}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(919, 25) + Me.ToolStrip2.TabIndex = 0 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'tslblDetail_Eingabe + ' + Me.tslblDetail_Eingabe.Name = "tslblDetail_Eingabe" + Me.tslblDetail_Eingabe.Size = New System.Drawing.Size(89, 22) + Me.tslblDetail_Eingabe.Text = "ToolStripLabel1" + ' + 'tsButtonAdd + ' + Me.tsButtonAdd.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.tsButtonAdd.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsButtonAdd.Name = "tsButtonAdd" + Me.tsButtonAdd.Size = New System.Drawing.Size(89, 22) + Me.tsButtonAdd.Text = "Hinzufügen" + ' + 'tsButtonDelete + ' + Me.tsButtonDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.Delete1 + Me.tsButtonDelete.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsButtonDelete.Name = "tsButtonDelete" + Me.tsButtonDelete.Size = New System.Drawing.Size(71, 22) + Me.tsButtonDelete.Text = "Löschen" + ' + 'tsButtonSave + ' + Me.tsButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.tsButtonSave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsButtonSave.Name = "tsButtonSave" + Me.tsButtonSave.Size = New System.Drawing.Size(79, 22) + Me.tsButtonSave.Text = "Speichern" + ' + 'TBPMO_RECORDBindingSource + ' + Me.TBPMO_RECORDBindingSource.DataMember = "TBPMO_RECORD" + Me.TBPMO_RECORDBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_RECORDTableAdapter + ' + Me.TBPMO_RECORDTableAdapter.ClearBeforeFill = True + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammdatenEditierenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(192, 26) + ' + 'StammdatenEditierenToolStripMenuItem + ' + Me.StammdatenEditierenToolStripMenuItem.Name = "StammdatenEditierenToolStripMenuItem" + Me.StammdatenEditierenToolStripMenuItem.Size = New System.Drawing.Size(191, 22) + Me.StammdatenEditierenToolStripMenuItem.Text = "Stammdaten editieren" + ' + 'frmQuickEdit + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(919, 504) + Me.Controls.Add(Me.SplitContainerMain) + Me.Controls.Add(Me.VWPMO_CONTROL_SCREENBindingNavigator) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.KeyPreview = True + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmQuickEdit" + Me.Text = "frmForm_Input" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.VWPMO_CONTROL_SCREENBindingNavigator.ResumeLayout(False) + Me.VWPMO_CONTROL_SCREENBindingNavigator.PerformLayout() + CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerMain.Panel1.ResumeLayout(False) + Me.SplitContainerMain.Panel2.ResumeLayout(False) + Me.SplitContainerMain.Panel2.PerformLayout() + CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerMain.ResumeLayout(False) + CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip2.ResumeLayout(False) + Me.StatusStrip2.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents VWPMO_CONTROL_SCREENBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_CONTROL_SCREENTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VWPMO_CONTROL_SCREENBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer + Friend WithEvents BindingSourceDGV As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_RECORDBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_RECORDTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter + Friend WithEvents tsstat_lbl As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton + Friend WithEvents dgvInput As DevExpress.XtraGrid.GridControl + Friend WithEvents gvMainView As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents TooltipControl As System.Windows.Forms.ToolTip + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip + Friend WithEvents tslblDetail_Eingabe As System.Windows.Forms.ToolStripLabel + Friend WithEvents tsButtonAdd As System.Windows.Forms.ToolStripButton + Friend WithEvents tsButtonDelete As System.Windows.Forms.ToolStripButton + Friend WithEvents tsButtonSave As System.Windows.Forms.ToolStripButton + Friend WithEvents tserstellt_Detail As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ttTooltip As System.Windows.Forms.ToolTip + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents StammdatenEditierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlView As System.Windows.Forms.Panel +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmQuickEdit.resx b/app - Kopie/DD-Record-Organiser/frmQuickEdit.resx new file mode 100644 index 0000000..ab8d418 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickEdit.resx @@ -0,0 +1,203 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 134, 17 + + + 277, 17 + + + 563, 17 + + + 843, 17 + + + 1016, 17 + + + 1318, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 802, 56 + + + 695, 56 + + + 148, 56 + + + 371, 56 + + + 17, 56 + + + 919, 56 + + + 1005, 57 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmQuickEdit.vb b/app - Kopie/DD-Record-Organiser/frmQuickEdit.vb new file mode 100644 index 0000000..efbbdb9 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickEdit.vb @@ -0,0 +1,572 @@ +Imports DevExpress.XtraScheduler +Imports System.IO +Imports WINDREAMLib + +Public Class frmQuickEdit + + + +#Region "+++++ Konstanten +++++" + 'Private akt_ctrl As Control + Private thisformid As Integer = Nothing + Private SelectedRecordID As Integer = 0 + Private SelectedFormID As Integer = Nothing + Private m_Moving As Boolean = False + Private insert = False + 'Private Shared _Instance As frmFormInput = Nothing + 'Public Shared Function Instance() As frmFormInput + ' If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + ' _Instance = New frmFormInput + ' End If + ' _Instance.BringToFront() + ' Return _Instance + 'End Function + +#End Region + + + Public Sub SetFormTitles(title As String) + Me.Text = title + ' BindingNavigatorCountItem.Text = BindingNavigatorCountItem.Text.Replace("Datensätzen", title) + End Sub + +#Region "+++++ Form Events +++++" + Public Sub LoadOverview_Grid() + Try + 'Load Input Grid + Dim _sqlGrid As String = "SELECT * FROM VWTEMP_PMO_FORM" & thisformid ' "SELECT SQL_COMMAND FROM TBPMO_FORM_SQL WHERE FORM_ID = " & thisformid + Dim dt As DataTable = ClassDatabase.Return_Datatable(_sqlGrid) + If dt Is Nothing = False Then + If dt.Rows.Count > 0 Then + 'BindingSource for Navigator + Me.BindingSourceDGV.DataSource = dt + 'bind Datatable to bindingsource + Me.dgvInput.DataSource = Me.BindingSourceDGV + 'Me.dgvOverview.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) + Else + MsgBox("No entries for actual Form. Pleas insert the first values.", MsgBoxStyle.Exclamation) + End If + End If + + + Catch ex As Exception + MsgBox("Error in Load Overview Grid:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub frmLevel_Designer_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + + + Me.VWPMO_CONTROL_SCREENTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_RECORDTableAdapter.Connection.ConnectionString = MyConnectionString + + thisformid = CURRENT_MASTER_FORM_ID + Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, thisformid) + + + CtrlBuilder = New ClassControlBuilder(pnlView, + AddressOf Control_MouseDown, + AddressOf Control_MouseUp, + AddressOf Control_MouseMove, + AddressOf Control_Click, + AddressOf Groupbox_DragDrop, + ttTooltip) + + CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder, + ContextMenuStrip1, + AddressOf NewEditAppointment, + AddressOf OpenFormData) + + If ClassDatabase.Init = True Then + LoadOverview_Grid() + LoadFormProperties() + 'LoadControls() + CtrlCommandUI.LoadControls(CURRENT_FORM_ID) + LoadInitialValues() + FocusedRow_Change() + End If + + ClassWindowLocation.LoadFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID) + + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + + + End Sub +#End Region + +#Region "+++++ Layout +++++" + Private Sub frmFormInput_Shown(sender As Object, e As EventArgs) Handles Me.Shown + LoadLayout() + End Sub + + Private Sub frmLevel_Designer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + SaveLayout() + ClassWindowLocation.SaveFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID) + My.Settings.Save() + + 'frmForm_Overview.Instance.Show() + 'frmTool_ControlProperties.Instance.Close() + 'frmTool_ControlDesigner.Instance.Close() + Catch ex As Exception + + End Try + End Sub + + Public Sub LoadLayout() + + Try + 'DataGridView Layout laden + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml") + dgvInput.MainView.RestoreLayoutFromXml(XMLPath) + + + 'Splitter Layout laden + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) + settings = layout.Load() + + If settings.Count = 0 Then + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + layout.Save(settings) + End If + + For Each s As ClassSetting In settings + Select Case s._name + Case "SplitContainerMain" + SplitContainerMain.SplitterDistance = Integer.Parse(s._value) + End Select + Next + Catch notFoundEx As System.IO.FileNotFoundException + ClassLogger.Add("Layout added for Screen " & CURRENT_SCREEN_ID & ", Form " & thisformid) + Catch ex As Exception + MsgBox("Error while loading Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + + Public Sub SaveLayout() + Try + 'DataGridView Layout speichern + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml") + dgvInput.MainView.SaveLayoutToXml(XMLPath) + + 'Splitter Layout speichern + Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml") + + Dim layout As ClassLayout = New ClassLayout(LayoutPath) + Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting) + settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance)) + layout.Save(settings) + Catch ex As Exception + MsgBox("Error while saving Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + +#End Region + +#Region "+++++ Load Funktionen +++++" + Public Sub LoadFormProperties() + 'Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID + Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid + + Console.WriteLine(thisformid) + + 'Dim name = ClassDatabase.Execute_Scalar(NAME_SQL) + Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL) + + 'SetFormName(name) + SetFormTitles("Schnelleingabe - " & title) + End Sub + + Sub LoadInitialValues() + Dim controls As System.Windows.Forms.Control.ControlCollection = pnlView.Controls + + For Each control As Control In controls + Dim CONTROL_ID As Integer = GetControlID_for_RecordID(control.Name, 1) + + If (CONTROL_ID <> -1) Then + Load_Value(1, CONTROL_ID, control) + End If + Next + End Sub + + 'Private Function GetControlID(recID As Integer, control As Control) As Integer + ' Try + ' Dim ID As Integer = ClassDatabase.Execute_Scalar("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & control.Name & "'") + ' If ID > 0 Then + ' Return ID + ' Else + ' Return -1 + ' End If + ' Catch ex As Exception + ' MsgBox("Error in GetControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' End Try + 'End Function + + Private Sub Load_Value(recID As Integer, CONTROLID As Integer, control As Control) + Try + Dim sq = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_ID = " & CONTROLID + Dim DT As DataTable = ClassDatabase.Return_Datatable(sq) + Dim result = DT.Rows(0).Item("VALUE") + Select Case DT.Rows(0).Item("CONTROL_TYPE_ID") + Case 2 ' TextBox + Dim textbox As TextBox = DirectCast(control, TextBox) + textbox.Text = result + Case 10 ' CheckBox + Dim checkbox As CheckBox = DirectCast(control, CheckBox) + checkbox.Checked = CBool(result) + Case 3 ' ComboBox + Dim combobox As ComboBox = DirectCast(control, ComboBox) + combobox.SelectedIndex = combobox.FindStringExact(result) + Case 4 'DateTimePicker + Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) + datepicker.DateTime = Date.Parse(result) + Case Else + ' MsgBox(DT.Rows(0).Item("CONTROL_TYPE_ID")) + End Select + Catch ex As Exception + MsgBox("Error in Load_Value:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function Return_SearchPAttern(ByVal content As String) + Select Case content + Case "Form-ID (Entity)" + Return thisformid + Case "Record-ID" + Return SelectedRecordID + + End Select + End Function +#End Region + +#Region "+++++ Mouse/Key Events +++++" + Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown + + End Sub + Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp + + End Sub + Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove + + End Sub + + Private Sub Control_Click(sender As Object, e As EventArgs) + ' TODO: CLICK CONTROL + End Sub + + Private Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs) + ' TODO: DRAG DROP GROUPBOX + End Sub + + Private Sub Control_PressTab(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs) + Console.WriteLine(sender.ToString) + End Sub + +#End Region + + Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Dim ctrl As Control = sender + Cursor = Cursors.WaitCursor + ClassFunctionCommandsUI.OpenFormData(ctrl.Name, thisformid) + Cursor = Cursors.Default + End Sub + + Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Dim ctrl As Control = sender + ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, thisformid, SelectedRecordID, pnlView.Controls) + End Sub + + Private Sub FocusedRow_Change() + Try + If gvMainView.Columns.Count = 0 Then + Exit Sub + End If + Dim RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0)) + If RecordID Is Nothing Then + Exit Sub + End If + Dim CONTROL_ID As Integer + If RecordID Is Nothing = False Then + If (Not IsDBNull(RecordID)) Then + ' TODO: AUCH IN CONTSTRUCTOR + ' TODO: Doppelte einträge bei INSERT und UPDATE fixen + ' TODO: FormID wird falsch oder nicht gesetzt + SelectedRecordID = RecordID + ' SelectedFormID = RowView.Item(1) + RefreshRecordByID(SelectedRecordID) + + For Each control As Control In pnlView.Controls + 'CONTROL_ID = GetControlID(thisrecordID, control) + CONTROL_ID = GetControlID_for_RecordID(control.Name, SelectedRecordID) + If TypeOf control Is TextBox Then + control.Text = String.Empty + ElseIf TypeOf control Is CheckBox Then + DirectCast(control, CheckBox).Checked = False + End If + + If (CONTROL_ID <> -1) Then + Load_Value(SelectedRecordID, CONTROL_ID, control) + Refresh_CreatedChangedRecordByID(SelectedRecordID) + End If + Next + End If + End If + + Catch ex As Exception + MsgBox("Error in FocusedRow_Change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + + 'Private Sub VWPMO_CONTROL_SCREENBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + ' Try + + ' Dim SQL As String + ' Dim RECORD_ID As Integer + ' Dim ADDED_WHO As String = Environment.UserName + ' Dim CHANGED_WHO As String = Environment.UserName + + + ' If insert = True Then + ' ' Create the record first + ' SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO) VALUES ('" & ADDED_WHO & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Exit Sub + ' End If + + ' ' Get last RecordID + ' SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & ADDED_WHO & "'" + ' RECORD_ID = ClassDatabase.Execute_Scalar(SQL) + ' SelectedRecordID = RECORD_ID + ' 'MsgBox(formid) + + ' 'Save Each Value from Controls into CONTROL_VALUE + ' For Each ctrl As Control In pnlView.Controls + ' Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, SelectedRecordID) + + ' If CONTROL_ID <> -1 And TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then + + ' Dim VALUE = ctrl.Text + + ' 'If TypeOf ctrl Is ComboBox Then + ' ' Dim cmb = DirectCast(ctrl, ComboBox) + ' ' If cmb.DataSource Is Nothing = False Then + ' ' Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource) + ' ' Dim dt As DataTable = DirectCast(bs.DataSource, DataTable) + ' ' BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text) + ' ' ' MsgBox(dt.TableName.ToString & vbNewLine & cmb.DisplayMember.ToString) + ' ' End If + ' 'End If + + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE(CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RECORD_ID & ", '" & VALUE & "', '" & ADDED_WHO & "')" + ' ClassDatabase.Execute_non_Query(SQL) + + ' End If + ' Next + + ' ' Reset insert after INSERT + ' insert = False + ' ToolStrip_Notice("Neuer Datensatz eingefügt - " & Now) + ' RefreshRecordByID(RECORD_ID) + ' Else + ' For Each ctrl As Control In pnlView.Controls + ' 'Dim CONTROL_ID = GetControlID(thisrecordID, ctrl) + ' Dim CONTROL_ID = GetControlID_for_RecordID(ctrl.Name, SelectedRecordID) + + ' Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & SelectedRecordID) + ' Console.WriteLine(CONTROL_ID.ToString & " - " & ctrl.Name) + + ' If CONTROL_ID = -1 And (TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox) Then + ' ' Trying to save a value for a new value + ' Dim VALUE = ctrl.Text + ' CONTROL_ID = GetControlID_for_Name(ctrl.Name, SelectedFormID) + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & SelectedRecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!") + ' End If + + ' ElseIf TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then + + ' Dim VALUE = ctrl.Text + ' If value_akt <> VALUE Then + ' 'If TypeOf ctrl Is ComboBox Then + ' ' Dim cmb = DirectCast(ctrl, ComboBox) + ' ' If cmb.DataSource Is Nothing = False Then + ' ' Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource) + ' ' BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text) + ' ' End If + ' 'End If + + ' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & SelectedRecordID + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!") + ' End If + ' End If + + ' ElseIf CONTROL_ID = -1 And (TypeOf ctrl Is DevExpress.XtraEditors.DateEdit) Then + ' Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit) + ' Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd") + ' CONTROL_ID = GetControlID_for_Name(date_ctrl.Name, SelectedFormID) + + ' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & SelectedRecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!") + ' End If + ' ElseIf TypeOf ctrl Is DevExpress.XtraEditors.DateEdit Then + ' Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit) + ' Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd") + ' If value_akt <> VALUE Then + ' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & SelectedRecordID + ' If ClassDatabase.Execute_non_Query(SQL) = False Then + ' Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!") + ' End If + ' End If + ' ss() + ' End If + + ' Next + ' RefreshRecordByID(SelectedRecordID) + ' ToolStrip_Notice("Datensatz aktualisiert - " & Now) + ' End If + + ' LoadOverview_Grid() + + ' Catch ex As Exception + ' MsgBox("Error in VWPMO_CONTROL_SCREENBindingNavigatorSaveItem_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' End Try + 'End Sub + 'Sub BindingSource_Check_Content_Insert(bs As BindingSource, column As String, value As String) + ' Try + ' If bs.Contains(value) = False Then + ' Dim dt As DataTable = DirectCast(bs.DataSource, DataTable) + ' MsgBox(dt.TableName) + ' End If + + + + ' Catch ex As Exception + + ' End Try + 'End Sub + Private Sub ToolStrip_Notice(text As String) + If text.Length > 0 Then + tsstat_lbl.Text = text + tsstat_lbl.Visible = True + Else + tsstat_lbl.Visible = False + End If + End Sub + Private Sub RefreshRecordByID(RECORD_ID As Integer) + Try + Me.TBPMO_RECORDTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD, CType(RECORD_ID, Integer)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Dim sql As String = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & SelectedRecordID + If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record + sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & SelectedRecordID + If ClassDatabase.Execute_non_Query(sql) = True Then + LoadOverview_Grid() + ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now) + End If + End If + + End If + End Sub + + Private Sub tsbtnrefresh_Click(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click + LoadOverview_Grid() + End Sub + + Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click + CtrlCommandUI.LoadControls(thisformid) + 'Das Flag INSERT nach LoadControls setzen + CtrlCommandUI.IsInsert = True + End Sub + + Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click + Dim RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("Record-ID")) + If RecordID Is Nothing And gvMainView.RowCount > 0 Then + Exit Sub + Else + If Not RecordID = Nothing Then + SelectedRecordID = RecordID + End If + End If + Dim ResultMessage = CtrlCommandUI.SaveRecord(SelectedRecordID, thisformid) + + LoadOverview_Grid() + If SelectedRecordID > 0 Then + Refresh_CreatedChangedRecordByID(SelectedRecordID) + + End If + + + 'Refresh_CreatedChangedRecordByID(thisrecordID) + ToolStrip_Notice(ResultMessage) + 'tsstatus_Detail_show(True, ResultMessage) + End Sub + + Private Sub tsButtonDelete_Click(sender As Object, e As EventArgs) Handles tsButtonDelete.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + If CtrlCommandUI.DeleteRecord(SelectedRecordID) = True Then + LoadOverview_Grid() + ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now) + End If + End If + End Sub + + Sub tserstellt_Detail_show(vis As Boolean, txt As String) + Me.tserstellt_Detail.Text = txt + tserstellt_Detail.Visible = vis + End Sub + + Public Sub Refresh_CreatedChangedRecordByID(RECORD_ID As Integer) + Try + Dim result = ClassDatabase.Execute_Scalar("select 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID) + If IsDBNull(result) Or IsNothing(result) Then + 'Me.tserstellt_Details.Text = "" + tserstellt_Detail_show(False, "") + Else + 'Me.tserstellt_Details.Text = result.ToString + tserstellt_Detail_show(True, result.ToString) + End If + + Catch ex As System.Exception + MsgBox("Error in Refresh_CreatedChangedRecordByID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub gvMainView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gvMainView.FocusedRowChanged + FocusedRow_Change() + End Sub + + Private Sub StammdatenEditierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenEditierenToolStripMenuItem.Click + Dim MenuItem = DirectCast(sender, ToolStripMenuItem) + Dim ContextMenu As ContextMenuStrip = MenuItem.Owner + Dim SourceControl As Control = ContextMenu.SourceControl + Dim MasterDataId As Integer = SourceControl.Tag + Console.WriteLine(MasterDataId) + CURRENT_MASTER_FORM_ID = MasterDataId + frmQuickInput.ShowDialog() + End Sub +End Class + diff --git a/app - Kopie/DD-Record-Organiser/frmQuickInput.Designer.vb b/app - Kopie/DD-Record-Organiser/frmQuickInput.Designer.vb new file mode 100644 index 0000000..68b9578 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickInput.Designer.vb @@ -0,0 +1,221 @@ + _ +Partial Class frmQuickInput + 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(frmQuickInput)) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingSourceQuickInput = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnsave = New System.Windows.Forms.ToolStripButton() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.vGridQuickInput = New DevExpress.XtraVerticalGrid.VGridControl() + Me.tsStatus = New System.Windows.Forms.ToolStripStatusLabel() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.BindingSourceQuickInput, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + CType(Me.vGridQuickInput, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem + Me.BindingNavigator1.BindingSource = Me.BindingSourceQuickInput + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.tsbtnsave}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(467, 25) + Me.BindingNavigator1.TabIndex = 0 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingSourceQuickInput + ' + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnsave + ' + Me.tsbtnsave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbtnsave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.tsbtnsave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnsave.Name = "tsbtnsave" + Me.tsbtnsave.Size = New System.Drawing.Size(23, 22) + Me.tsbtnsave.Text = "ToolStripButton1" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsStatus}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 412) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(467, 22) + Me.StatusStrip1.TabIndex = 1 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'vGridQuickInput + ' + Me.vGridQuickInput.Appearance.FocusedRecord.BackColor = System.Drawing.SystemColors.ActiveCaption + Me.vGridQuickInput.Appearance.FocusedRecord.Options.UseBackColor = True + Me.vGridQuickInput.Appearance.FocusedRow.BackColor = System.Drawing.Color.Cyan + Me.vGridQuickInput.Appearance.FocusedRow.Options.UseBackColor = True + Me.vGridQuickInput.Dock = System.Windows.Forms.DockStyle.Fill + Me.vGridQuickInput.Location = New System.Drawing.Point(0, 25) + Me.vGridQuickInput.Name = "vGridQuickInput" + Me.vGridQuickInput.Size = New System.Drawing.Size(467, 387) + Me.vGridQuickInput.TabIndex = 2 + ' + 'tsStatus + ' + Me.tsStatus.Name = "tsStatus" + Me.tsStatus.Size = New System.Drawing.Size(39, 17) + Me.tsStatus.Text = "Status" + ' + 'frmQuickInput + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(467, 434) + Me.Controls.Add(Me.vGridQuickInput) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.BindingNavigator1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Name = "frmQuickInput" + Me.Text = "Quick-Edit" + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.BindingSourceQuickInput, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.vGridQuickInput, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents BindingSourceQuickInput As System.Windows.Forms.BindingSource + Friend WithEvents vGridQuickInput As DevExpress.XtraVerticalGrid.VGridControl + Friend WithEvents tsbtnsave As System.Windows.Forms.ToolStripButton + Friend WithEvents tsStatus As System.Windows.Forms.ToolStripStatusLabel +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmQuickInput.resx b/app - Kopie/DD-Record-Organiser/frmQuickInput.resx new file mode 100644 index 0000000..1685ad2 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickInput.resx @@ -0,0 +1,182 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + 288, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 171, 17 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmQuickInput.vb b/app - Kopie/DD-Record-Organiser/frmQuickInput.vb new file mode 100644 index 0000000..8dca4c3 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmQuickInput.vb @@ -0,0 +1,94 @@ +Imports DevExpress.XtraVerticalGrid.Rows + +Public Class frmQuickInput + Dim Isinsert As Boolean = False + + Private Sub frmQuickInput_Load(sender As Object, e As EventArgs) Handles Me.Load + Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_MASTER_FORM_ID.ToString + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + If DT Is Nothing = False Then + 'DT.Columns.Remove("Record-ID") + DT.Columns.Item("Record-ID").ReadOnly = True + DT.Columns.Remove("Form-ID") + DT.Columns.Remove("AddedWho") + DT.Columns.Remove("AddedWhen") + DT.Columns.Remove("ChangedWho") + DT.Columns.Remove("ChangedWhen") + BindingSourceQuickInput.DataSource = Nothing + Me.BindingSourceQuickInput.DataSource = DT + vGridQuickInput.DataSource = BindingSourceQuickInput + Else + BindingSourceQuickInput.DataSource = Nothing + End If + + tsStatus.Visible = False + End Sub + + Private Sub BindingSource1_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles BindingSourceQuickInput.AddingNew + Isinsert = True + End Sub + + Private Sub tsbtnsave_Click(sender As Object, e As EventArgs) Handles tsbtnsave.Click + Dim RECORD_ID As Integer + Dim CONTROL_ID As Integer + + tsStatus.Visible = False + + If Isinsert = True Then + ' Create the record first + Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_MASTER_FORM_ID & ")" + If ClassDatabase.Execute_non_Query(Sql) = True Then + ' Get last RecordID + Sql = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & Environment.UserName & "'" + RECORD_ID = ClassDatabase.Execute_Scalar(Sql) + + ' Make sure all values are saved + vGridQuickInput.CloseEditor() + For Each row As BaseRow In vGridQuickInput.Rows + Dim val As Object = vGridQuickInput.GetCellValue(row, vGridQuickInput.FocusedRecord) + Dim fieldName As String = row.Properties.FieldName + + CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName) + If CONTROL_ID <> 0 Then + If ClassFunctionCommands.InsertValue(CONTROL_ID, RECORD_ID, val) Then + tsStatus.Visible = True + tsStatus.Text = "Datensatz erfolgreich eingefügt - " & Date.Now + Else + tsStatus.Visible = True + tsStatus.Text = "Fehler beim Einfügen des Datensatzes - " & Date.Now + End If + End If + Next row + + Isinsert = False + End If + + Else + ' Make sure all values are saved + vGridQuickInput.CloseEditor() + For Each row As BaseRow In vGridQuickInput.Rows + Dim val As Object = vGridQuickInput.GetCellValue(row, vGridQuickInput.FocusedRecord) + Dim fieldName As String = row.Properties.FieldName + + If fieldName = "Record-ID" Then + RECORD_ID = val + End If + + CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName) + If CONTROL_ID <> 0 Then + If ClassFunctionCommands.UpdateValue(CONTROL_ID, RECORD_ID, val) = True Then + tsStatus.Visible = True + tsStatus.Text = "Änderungen erfolgreich gespeichert - " & Date.Now + Else + tsStatus.Visible = True + tsStatus.Text = "Fehler beim Speichern des Datensatzes - " & Date.Now + End If + End If + Next row + End If + + + End Sub + + +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmRecord_Changes.Designer.vb b/app - Kopie/DD-Record-Organiser/frmRecord_Changes.Designer.vb new file mode 100644 index 0000000..a2355b2 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmRecord_Changes.Designer.vb @@ -0,0 +1,318 @@ + _ +Partial Class frmRecord_Changes + 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 GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRecord_Changes)) + Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView() + Me.GridControlSelection = New DevExpress.XtraGrid.GridControl() + Me.grvwSelection = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.VWPMO_RECORD_CHANGESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_RECORD_CHANGESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAddedwho = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn() + CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_RECORD_CHANGESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'grvwCarousel + ' + Me.grvwCarousel.GridControl = Me.GridControlSelection + Me.grvwCarousel.Name = "grvwCarousel" + Me.grvwCarousel.TemplateCard = Nothing + ' + 'GridControlSelection + ' + Me.GridControlSelection.DataSource = Me.VWPMO_RECORD_CHANGESBindingSource + Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill + GridLevelNode1.LevelTemplate = Me.grvwCarousel + GridLevelNode1.RelationName = "Level1" + Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) + Me.GridControlSelection.Location = New System.Drawing.Point(0, 25) + Me.GridControlSelection.MainView = Me.grvwSelection + Me.GridControlSelection.Name = "GridControlSelection" + Me.GridControlSelection.Size = New System.Drawing.Size(863, 296) + Me.GridControlSelection.TabIndex = 14 + Me.GridControlSelection.TabStop = False + Me.GridControlSelection.UseEmbeddedNavigator = True + Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwSelection, Me.grvwCarousel}) + ' + 'grvwSelection + ' + Me.grvwSelection.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.grvwSelection.Appearance.EvenRow.Options.UseBackColor = True + Me.grvwSelection.Appearance.SelectedRow.BackColor = System.Drawing.Color.Salmon + Me.grvwSelection.Appearance.SelectedRow.BackColor2 = System.Drawing.Color.SeaShell + Me.grvwSelection.Appearance.SelectedRow.Options.UseBackColor = True + Me.grvwSelection.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.grvwSelection.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colID, Me.GridColumn1, Me.GridColumn2, Me.colAddedwho, Me.colAddedWhen}) + Me.grvwSelection.GridControl = Me.GridControlSelection + Me.grvwSelection.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _ + "ssen" + Me.grvwSelection.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.grvwSelection.Name = "grvwSelection" + Me.grvwSelection.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.grvwSelection.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.grvwSelection.OptionsBehavior.Editable = False + Me.grvwSelection.OptionsBehavior.ReadOnly = True + Me.grvwSelection.OptionsView.ColumnAutoWidth = False + Me.grvwSelection.OptionsView.EnableAppearanceEvenRow = True + Me.grvwSelection.OptionsView.EnableAppearanceOddRow = True + Me.grvwSelection.OptionsView.ShowAutoFilterRow = True + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.BindingSource = Me.VWPMO_RECORD_CHANGESBindingSource + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.CountItemFormat = "von {0} verfolgten Record-Änderungen" + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(863, 25) + Me.BindingNavigator1.TabIndex = 0 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(212, 22) + Me.BindingNavigatorCountItem.Text = "von {0} verfolgten Record-Änderungen" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(58, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPMO_RECORD_CHANGESBindingSource + ' + Me.VWPMO_RECORD_CHANGESBindingSource.DataMember = "VWPMO_RECORD_CHANGES" + Me.VWPMO_RECORD_CHANGESBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'VWPMO_RECORD_CHANGESTableAdapter + ' + Me.VWPMO_RECORD_CHANGESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'colID + ' + Me.colID.FieldName = "ID" + Me.colID.Name = "colID" + Me.colID.Visible = True + Me.colID.VisibleIndex = 0 + Me.colID.Width = 60 + ' + 'GridColumn1 + ' + Me.GridColumn1.FieldName = "Control-Name" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 1 + Me.GridColumn1.Width = 100 + ' + 'GridColumn2 + ' + Me.GridColumn2.FieldName = "Log-Description" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 2 + Me.GridColumn2.Width = 400 + ' + 'colAddedwho + ' + Me.colAddedwho.FieldName = "Added who" + Me.colAddedwho.Name = "colAddedwho" + Me.colAddedwho.Visible = True + Me.colAddedwho.VisibleIndex = 3 + ' + 'colAddedWhen + ' + Me.colAddedWhen.FieldName = "Added When" + Me.colAddedWhen.Name = "colAddedWhen" + Me.colAddedWhen.Visible = True + Me.colAddedWhen.VisibleIndex = 4 + ' + 'frmRecord_Changes + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(863, 321) + Me.Controls.Add(Me.GridControlSelection) + Me.Controls.Add(Me.BindingNavigator1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Name = "frmRecord_Changes" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Record-Änderungen" + CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_RECORD_CHANGESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl + Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView + Friend WithEvents grvwSelection As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents VWPMO_RECORD_CHANGESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_RECORD_CHANGESTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAddedwho As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmRecord_Changes.resx b/app - Kopie/DD-Record-Organiser/frmRecord_Changes.resx new file mode 100644 index 0000000..c7fdd99 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmRecord_Changes.resx @@ -0,0 +1,179 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 451, 17 + + + 308, 17 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 171, 17 + + + 740, 17 + + + 1023, 17 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmRecord_Changes.vb b/app - Kopie/DD-Record-Organiser/frmRecord_Changes.vb new file mode 100644 index 0000000..44effd0 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmRecord_Changes.vb @@ -0,0 +1,13 @@ +Public Class frmRecord_Changes + + Private Sub frmRecord_Changes_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Me.VWPMO_RECORD_CHANGESTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWPMO_RECORD_CHANGESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_RECORD_CHANGES, CURRENT_RECORD_ID) + Catch ex As Exception + MsgBox("Unexpected Error in FormLoad:" & ex.Message, MsgBoxStyle.Critical) + Me.Close() + End Try + End Sub + +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmSQLEditor.Designer.vb b/app - Kopie/DD-Record-Organiser/frmSQLEditor.Designer.vb new file mode 100644 index 0000000..a80ccd7 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmSQLEditor.Designer.vb @@ -0,0 +1,526 @@ + _ +Partial Class frmSQLEditor + 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 DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtValue = New System.Windows.Forms.TextBox() + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.TBPMO_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_CONNECTIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONNECTIONTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.cmbConnection = New System.Windows.Forms.ComboBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.btnTestSQL = New System.Windows.Forms.Button() + Me.cmbPlaceholder = New System.Windows.Forms.ComboBox() + Me.btnAddPlaceholder = New System.Windows.Forms.Button() + Me.btnRefreshConnections = New System.Windows.Forms.Button() + Me.dgvPlaceholders = New System.Windows.Forms.DataGridView() + Me.colPlaceholder = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colReplace = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.dgvResult = New System.Windows.Forms.DataGridView() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.cmbSelectColumns = New System.Windows.Forms.ComboBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.cmbFromTables = New System.Windows.Forms.ComboBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.radioTable = New System.Windows.Forms.RadioButton() + Me.radioView = New System.Windows.Forms.RadioButton() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmbWhereColumns = New System.Windows.Forms.ComboBox() + Me.cmbWhereOperator = New System.Windows.Forms.ComboBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.txtCondition = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(960, 700) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(266, 25) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Speichern" + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtValue + ' + Me.txtValue.AcceptsTab = True + Me.txtValue.Font = New System.Drawing.Font("Consolas", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtValue.Location = New System.Drawing.Point(12, 181) + Me.txtValue.Multiline = True + Me.txtValue.Name = "txtValue" + Me.txtValue.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtValue.Size = New System.Drawing.Size(1208, 226) + Me.txtValue.TabIndex = 2 + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMO_CONNECTIONBindingSource + ' + Me.TBPMO_CONNECTIONBindingSource.DataMember = "TBPMO_CONNECTION" + Me.TBPMO_CONNECTIONBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_CONNECTIONTableAdapter + ' + Me.TBPMO_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Me.TBPMO_CONNECTIONTableAdapter + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'cmbConnection + ' + Me.cmbConnection.DataSource = Me.TBPMO_CONNECTIONBindingSource + Me.cmbConnection.DisplayMember = "DESCRIPTION" + Me.cmbConnection.FormattingEnabled = True + Me.cmbConnection.Location = New System.Drawing.Point(6, 19) + Me.cmbConnection.Name = "cmbConnection" + Me.cmbConnection.Size = New System.Drawing.Size(317, 23) + Me.cmbConnection.TabIndex = 3 + Me.cmbConnection.ValueMember = "GUID" + ' + 'Button2 + ' + Me.Button2.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(329, 19) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(153, 23) + Me.Button2.TabIndex = 4 + Me.Button2.Text = "SQL-Connections" + Me.Button2.UseVisualStyleBackColor = True + ' + 'btnTestSQL + ' + Me.btnTestSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTestSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.Go + Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTestSQL.Location = New System.Drawing.Point(954, 413) + Me.btnTestSQL.Name = "btnTestSQL" + Me.btnTestSQL.Size = New System.Drawing.Size(266, 29) + Me.btnTestSQL.TabIndex = 7 + Me.btnTestSQL.Text = "SQL Befehl testen" + Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTestSQL.UseVisualStyleBackColor = True + ' + 'cmbPlaceholder + ' + Me.cmbPlaceholder.FormattingEnabled = True + Me.cmbPlaceholder.Items.AddRange(New Object() {"@RECORD_ID", "@PARENTRECORD_ID", "@FORM_ID"}) + Me.cmbPlaceholder.Location = New System.Drawing.Point(6, 19) + Me.cmbPlaceholder.Name = "cmbPlaceholder" + Me.cmbPlaceholder.Size = New System.Drawing.Size(169, 23) + Me.cmbPlaceholder.TabIndex = 10 + ' + 'btnAddPlaceholder + ' + Me.btnAddPlaceholder.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580 + Me.btnAddPlaceholder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddPlaceholder.Location = New System.Drawing.Point(181, 17) + Me.btnAddPlaceholder.Name = "btnAddPlaceholder" + Me.btnAddPlaceholder.Size = New System.Drawing.Size(163, 23) + Me.btnAddPlaceholder.TabIndex = 11 + Me.btnAddPlaceholder.Text = "Platzhalter hinzufügen" + Me.btnAddPlaceholder.UseVisualStyleBackColor = True + ' + 'btnRefreshConnections + ' + Me.btnRefreshConnections.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_refresh + Me.btnRefreshConnections.Location = New System.Drawing.Point(488, 19) + Me.btnRefreshConnections.Name = "btnRefreshConnections" + Me.btnRefreshConnections.Size = New System.Drawing.Size(35, 23) + Me.btnRefreshConnections.TabIndex = 13 + Me.btnRefreshConnections.UseVisualStyleBackColor = True + ' + 'dgvPlaceholders + ' + Me.dgvPlaceholders.AllowUserToAddRows = False + Me.dgvPlaceholders.AllowUserToDeleteRows = False + DataGridViewCellStyle7.BackColor = System.Drawing.Color.Cyan + Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvPlaceholders.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 + Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvPlaceholders.DefaultCellStyle = DataGridViewCellStyle9 + Me.dgvPlaceholders.Enabled = False + Me.dgvPlaceholders.Location = New System.Drawing.Point(9, 458) + Me.dgvPlaceholders.Name = "dgvPlaceholders" + Me.dgvPlaceholders.Size = New System.Drawing.Size(350, 236) + Me.dgvPlaceholders.TabIndex = 16 + ' + 'colPlaceholder + ' + Me.colPlaceholder.HeaderText = "Platzhalter" + Me.colPlaceholder.Name = "colPlaceholder" + Me.colPlaceholder.ReadOnly = True + ' + 'colReplace + ' + Me.colReplace.HeaderText = "Ersetzung" + Me.colReplace.Name = "colReplace" + ' + 'dgvResult + ' + Me.dgvResult.AllowUserToAddRows = False + Me.dgvResult.AllowUserToDeleteRows = False + DataGridViewCellStyle10.BackColor = System.Drawing.Color.Cyan + Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle11.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvResult.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 + Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle12.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvResult.DefaultCellStyle = DataGridViewCellStyle12 + Me.dgvResult.Location = New System.Drawing.Point(365, 458) + Me.dgvResult.Name = "dgvResult" + Me.dgvResult.ReadOnly = True + Me.dgvResult.Size = New System.Drawing.Size(855, 236) + Me.dgvResult.TabIndex = 17 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.Label5.Location = New System.Drawing.Point(362, 440) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(55, 15) + Me.Label5.TabIndex = 18 + Me.Label5.Text = "Ergebnis:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Consolas", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(6, 26) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(56, 18) + Me.Label6.TabIndex = 19 + Me.Label6.Text = "SELECT" + ' + 'cmbSelectColumns + ' + Me.cmbSelectColumns.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmbSelectColumns.Enabled = False + Me.cmbSelectColumns.FormattingEnabled = True + Me.cmbSelectColumns.Location = New System.Drawing.Point(68, 25) + Me.cmbSelectColumns.Name = "cmbSelectColumns" + Me.cmbSelectColumns.Size = New System.Drawing.Size(233, 23) + Me.cmbSelectColumns.TabIndex = 20 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Consolas", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(307, 25) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(40, 18) + Me.Label7.TabIndex = 21 + Me.Label7.Text = "FROM" + ' + 'cmbFromTables + ' + Me.cmbFromTables.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmbFromTables.Enabled = False + Me.cmbFromTables.FormattingEnabled = True + Me.cmbFromTables.Location = New System.Drawing.Point(353, 25) + Me.cmbFromTables.Name = "cmbFromTables" + Me.cmbFromTables.Size = New System.Drawing.Size(234, 23) + Me.cmbFromTables.TabIndex = 22 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Consolas", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(593, 25) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(48, 18) + Me.Label8.TabIndex = 23 + Me.Label8.Text = "WHERE" + ' + 'radioTable + ' + Me.radioTable.AutoSize = True + Me.radioTable.Location = New System.Drawing.Point(15, 24) + Me.radioTable.Name = "radioTable" + Me.radioTable.Size = New System.Drawing.Size(70, 19) + Me.radioTable.TabIndex = 24 + Me.radioTable.TabStop = True + Me.radioTable.Text = "Tabellen" + Me.radioTable.UseVisualStyleBackColor = True + ' + 'radioView + ' + Me.radioView.AutoSize = True + Me.radioView.Location = New System.Drawing.Point(87, 24) + Me.radioView.Name = "radioView" + Me.radioView.Size = New System.Drawing.Size(55, 19) + Me.radioView.TabIndex = 25 + Me.radioView.TabStop = True + Me.radioView.Text = "Views" + Me.radioView.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.radioTable) + Me.GroupBox1.Controls.Add(Me.radioView) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.GroupBox1.Location = New System.Drawing.Point(644, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(226, 69) + Me.GroupBox1.TabIndex = 26 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Tabellenart auswählen" + ' + 'cmbWhereColumns + ' + Me.cmbWhereColumns.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmbWhereColumns.Enabled = False + Me.cmbWhereColumns.FormattingEnabled = True + Me.cmbWhereColumns.Location = New System.Drawing.Point(647, 24) + Me.cmbWhereColumns.Name = "cmbWhereColumns" + Me.cmbWhereColumns.Size = New System.Drawing.Size(247, 23) + Me.cmbWhereColumns.TabIndex = 27 + ' + 'cmbWhereOperator + ' + Me.cmbWhereOperator.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmbWhereOperator.FormattingEnabled = True + Me.cmbWhereOperator.Items.AddRange(New Object() {"=", "<>", "<", ">"}) + Me.cmbWhereOperator.Location = New System.Drawing.Point(900, 24) + Me.cmbWhereOperator.Name = "cmbWhereOperator" + Me.cmbWhereOperator.Size = New System.Drawing.Size(47, 23) + Me.cmbWhereOperator.TabIndex = 28 + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.cmbConnection) + Me.GroupBox2.Controls.Add(Me.Button2) + Me.GroupBox2.Controls.Add(Me.btnRefreshConnections) + Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.GroupBox2.Location = New System.Drawing.Point(12, 12) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(626, 69) + Me.GroupBox2.TabIndex = 29 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "SQL-Connection" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.cmbPlaceholder) + Me.GroupBox3.Controls.Add(Me.btnAddPlaceholder) + Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.GroupBox3.Location = New System.Drawing.Point(876, 12) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(350, 69) + Me.GroupBox3.TabIndex = 30 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Platzhalter" + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.txtCondition) + Me.GroupBox4.Controls.Add(Me.Label6) + Me.GroupBox4.Controls.Add(Me.cmbSelectColumns) + Me.GroupBox4.Controls.Add(Me.Label7) + Me.GroupBox4.Controls.Add(Me.cmbWhereOperator) + Me.GroupBox4.Controls.Add(Me.cmbFromTables) + Me.GroupBox4.Controls.Add(Me.cmbWhereColumns) + Me.GroupBox4.Controls.Add(Me.Label8) + Me.GroupBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox4.Location = New System.Drawing.Point(12, 87) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(1208, 66) + Me.GroupBox4.TabIndex = 31 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "SQL-Befehl generieren" + ' + 'txtCondition + ' + Me.txtCondition.Location = New System.Drawing.Point(953, 24) + Me.txtCondition.Name = "txtCondition" + Me.txtCondition.Size = New System.Drawing.Size(218, 23) + Me.txtCondition.TabIndex = 29 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.Label1.Location = New System.Drawing.Point(6, 440) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(132, 15) + Me.Label1.TabIndex = 32 + Me.Label1.Text = "Platzhalter Ersetzungen:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.Label2.Location = New System.Drawing.Point(9, 163) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(69, 15) + Me.Label2.TabIndex = 33 + Me.Label2.Text = "SQL-Befehl:" + ' + 'frmSQLEditor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1238, 737) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.GroupBox4) + Me.Controls.Add(Me.GroupBox3) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.dgvResult) + Me.Controls.Add(Me.dgvPlaceholders) + Me.Controls.Add(Me.btnTestSQL) + Me.Controls.Add(Me.txtValue) + Me.Controls.Add(Me.Button1) + Me.Name = "frmSQLEditor" + Me.Text = "SQL-Editor" + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents txtValue As System.Windows.Forms.TextBox + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_CONNECTIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_CONNECTIONTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents btnTestSQL As System.Windows.Forms.Button + Friend WithEvents cmbPlaceholder As System.Windows.Forms.ComboBox + Friend WithEvents btnAddPlaceholder As System.Windows.Forms.Button + Friend WithEvents btnRefreshConnections As System.Windows.Forms.Button + Friend WithEvents dgvPlaceholders As System.Windows.Forms.DataGridView + Friend WithEvents colPlaceholder As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents colReplace As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents dgvResult As System.Windows.Forms.DataGridView + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cmbSelectColumns As System.Windows.Forms.ComboBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents cmbFromTables As System.Windows.Forms.ComboBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents radioTable As System.Windows.Forms.RadioButton + Friend WithEvents radioView As System.Windows.Forms.RadioButton + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents cmbWhereColumns As System.Windows.Forms.ComboBox + Friend WithEvents cmbWhereOperator As System.Windows.Forms.ComboBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtCondition As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmSQLEditor.resx b/app - Kopie/DD-Record-Organiser/frmSQLEditor.resx new file mode 100644 index 0000000..abd246b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmSQLEditor.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 160, 17 + + + 414, 17 + + + 662, 17 + + + True + + + True + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmSQLEditor.vb b/app - Kopie/DD-Record-Organiser/frmSQLEditor.vb new file mode 100644 index 0000000..73545c7 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmSQLEditor.vb @@ -0,0 +1,287 @@ +Imports System.Text.RegularExpressions +Imports Oracle.ManagedDataAccess.Client + +Public Class frmSQLEditor + Dim CurrentPosition As Integer = 0 + Dim CurrentPlaceholders As New Placeholders() + Dim CurrentTableType As String + + Dim AtPlaceholderPattern As String = "@[A-Za-z_]+" + + Public Class Placeholders + Public Property RecordId As Integer + Public Property ParentRecordId As Integer + Public Property FormId As Integer + End Class + + Public Property Value() As String + Get + Return txtValue.Text + End Get + Set(value As String) + txtValue.Text = value + End Set + End Property + + Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Load_Connections() + + cmbPlaceholder.SelectedIndex = 0 + + + End Sub + + Private Sub Load_Connections() + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBPMO_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_CONNECTIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_CONNECTION) + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Dim frm As New frmConnections() + frm.Show() + End Sub + + Private Sub txtValue_TextChanged(sender As Object, e As EventArgs) Handles txtValue.TextChanged, txtValue.Click + CurrentPosition = txtValue.SelectionStart + + If txtValue.Text.Trim().Count = 0 Then + dgvPlaceholders.Enabled = False + Else + dgvPlaceholders.Enabled = True + End If + + CheckForPlaceholders() + End Sub + + Private Sub CheckForPlaceholders() + Dim count As Integer = 0 + Dim text As String = Me.Value + Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase) + Dim matches As MatchCollection = atPlaceholderRegex.Matches(text) + + dgvPlaceholders.Rows.Clear() + + For Each match As Match In matches + dgvPlaceholders.Rows.Add({match.Value, ""}) + Next + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAddPlaceholder.Click + If Not cmbPlaceholder.Text = String.Empty Then + Dim placeholder As String = cmbPlaceholder.Text + txtValue.Text = txtValue.Text.Insert(CurrentPosition, placeholder) + End If + End Sub + + Private Sub btnRefreshConnections_Click(sender As Object, e As EventArgs) Handles btnRefreshConnections.Click + Load_Connections() + End Sub + + Private Sub btnTestSQL_Click(sender As Object, e As EventArgs) Handles btnTestSQL.Click + Dim query As String = txtValue.Text + + For Each row As DataGridViewRow In dgvPlaceholders.Rows + Dim placeholder As String = row.Cells(0).Value + Dim replacement As String = row.Cells(1).Value + + ' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen + If Not String.IsNullOrEmpty(replacement) Then + query = query.Replace(placeholder, replacement) + Else + MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung") + Exit Sub + End If + Next + + Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, query) + + If ds IsNot Nothing Then + dgvResult.DataSource = ds.Tables(0) + End If + + + End Sub + + Private Function ExecuteWithConnection(connectionId As Integer, sql As String) As DataSet + Try + + Dim connectionString As String + + connectionString = ClassHelper.GetConnectionString(connectionId) + + If connectionString <> "" Then + + If connectionString.Contains("Initial Catalog=") Then + + Dim sqlConnection As SqlClient.SqlConnection + Dim sqlCommand As SqlClient.SqlCommand + Dim sqlAdapter As New SqlClient.SqlDataAdapter + Dim dataset As New DataSet + + sqlConnection = New SqlClient.SqlConnection(connectionString) + sqlConnection.Open() + + sqlCommand = New SqlClient.SqlCommand(sql, sqlConnection) + + sqlAdapter.SelectCommand = sqlCommand + sqlAdapter.Fill(Dataset) + + Return dataset + Else + Dim sqlConnection As OracleConnection + Dim sqlCommand As OracleCommand + Dim sqlAdapter As New OracleDataAdapter + Dim dataset As New DataSet + + sqlConnection = New OracleConnection(connectionString) + sqlConnection.Open() + + sqlCommand = New OracleCommand(sql, sqlConnection) + + sqlAdapter.SelectCommand = sqlCommand + sqlAdapter.Fill(Dataset) + + Return dataset + End If + Else + MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation) + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:") + Return Nothing + End Try + End Function + + Private Sub EnableColumns(Optional enabled = True) + cmbSelectColumns.Enabled = enabled + cmbWhereColumns.Enabled = enabled + End Sub + + Private Sub EnableTables() + cmbFromTables.Enabled = True + End Sub + + Private Sub radioTable_CheckedChanged(sender As Object, e As EventArgs) Handles radioTable.CheckedChanged + CurrentTableType = "TABLE" + EnableTables() + End Sub + + Private Sub radioView_CheckedChanged(sender As Object, e As EventArgs) Handles radioView.CheckedChanged + CurrentTableType = "VIEW" + EnableTables() + End Sub + + Private Sub GetColumns(tableName As String, ByRef combobox As ComboBox) + Try + Dim CS As String + CS = ClassDatabase.GetConnectionString(cmbConnection.SelectedValue) + Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, True) + Dim SQL As String + Dim DT As DataTable + If typeCS.ToUpper = "Oracle".ToUpper Then + SQL = "select COLUMN_NAME from USER_TAB_COLS where TABLE_NAME='" & tableName & "' order by COLUMN_NAME" + DT = ClassDatabase.Oracle_Return_Datatable(SQL, CS, True) + Else + SQL = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name" + DT = ClassDatabase.Return_Datatable_CS(SQL, CS, True) + End If + + If DT IsNot Nothing Then + combobox.Items.Clear() + For Each row As DataRow In DT.Rows + combobox.Items.Add(row.Item(0)) + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetColumns:") + End Try + End Sub + + Private Sub GetColumns(tableName As String, ByRef combobox As DevExpress.XtraEditors.CheckedComboBoxEdit) + Dim SQL As String = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name" + Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, SQL) + + If ds IsNot Nothing Then + combobox.Properties.Items.Clear() + + For Each row As DataRow In ds.Tables(0).Rows + combobox.Properties.Items.Add(row.Item(0)) + Next + End If + End Sub + + + Private Sub cmbTables_DropDown(sender As Object, e As EventArgs) Handles cmbFromTables.DropDown + Dim type As String + + If CurrentTableType = "TABLE" Then + type = "'BASE TABLE'" + ElseIf CurrentTableType = "VIEW" Then + type = "'VIEW'" + End If + + Dim SQL As String = "SELECT TABLE_NAME from information_schema.tables where TABLE_TYPE = " & type & " ORDER BY TABLE_NAME" + Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, SQL) + + If ds IsNot Nothing Then + cmbFromTables.Items.Clear() + + For Each row As DataRow In ds.Tables(0).Rows + cmbFromTables.Items.Add(row.Item(0)) + Next + End If + End Sub + + Private Sub cmbColumns_DropDown(sender As Object, e As EventArgs) Handles cmbSelectColumns.DropDown + Dim table = cmbFromTables.Text + GetColumns(table, cmbSelectColumns) + End Sub + + Private Sub cmbWhereColumns_DropDown(sender As Object, e As EventArgs) Handles cmbWhereColumns.DropDown + Dim table = cmbFromTables.Text + GetColumns(table, cmbWhereColumns) + End Sub + + Private Sub cmbFromTables_SelectedIndexChanged() Handles cmbFromTables.SelectedIndexChanged + If cmbFromTables.Text <> "" Then + EnableColumns() + Else + EnableColumns(False) + End If + End Sub + + Private Sub queryBuilder_Changed(sender As Object, e As EventArgs) Handles cmbSelectColumns.SelectedIndexChanged, cmbFromTables.SelectedIndexChanged, cmbWhereColumns.SelectedIndexChanged, cmbWhereOperator.SelectedIndexChanged, txtCondition.TextChanged + Dim sql = "" + Dim column, table, column2, op, condition As String + Dim isNumberRegex = New Regex("^\d+$") + + column = cmbSelectColumns.Text + table = cmbFromTables.Text + column2 = cmbWhereColumns.Text + op = cmbWhereOperator.Text + condition = txtCondition.Text + + + If column <> "" And table <> "" Then + + sql = String.Format("SELECT [{0}] FROM [{1}]", column, table) + + If column2 <> "" And op <> "" And condition <> "" Then + + If isNumberRegex.Match(condition).Success = False Then + condition = String.Format("'{0}'", condition) + End If + + sql &= String.Format(" WHERE [{0}] {1} {2}", column2, op, condition) + + End If + + End If + + txtValue.Text = sql + + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTaskOverview.designer.vb b/app - Kopie/DD-Record-Organiser/frmTaskOverview.designer.vb new file mode 100644 index 0000000..f12c59e --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTaskOverview.designer.vb @@ -0,0 +1,284 @@ + _ +Partial Class frmTaskOverview + 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() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() + Me.chkinFront = New System.Windows.Forms.CheckBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.ListViewActive = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.VWPMO_WF_OVERVIEW_AUTHORITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.ListViewDone = New System.Windows.Forms.ListView() + Me.ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader5 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader6 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.Panel1.SuspendLayout() + CType(Me.VWPMO_WF_OVERVIEW_AUTHORITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.chkinFront) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(631, 53) + Me.Panel1.TabIndex = 2 + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.bricks + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(494, 7) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(134, 38) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Taskmanagement" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "öffnen" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'chkinFront + ' + Me.chkinFront.Appearance = System.Windows.Forms.Appearance.Button + Me.chkinFront.AutoSize = True + Me.chkinFront.Dock = System.Windows.Forms.DockStyle.Left + Me.chkinFront.Image = Global.DD_Record_Organiser.My.Resources.Resources._138_PushPin_32x42_72 + Me.chkinFront.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.chkinFront.Location = New System.Drawing.Point(0, 0) + Me.chkinFront.Name = "chkinFront" + Me.chkinFront.Size = New System.Drawing.Size(84, 53) + Me.chkinFront.TabIndex = 0 + Me.chkinFront.Text = "Tasks pinnen" + Me.chkinFront.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.chkinFront.TextImageRelation = System.Windows.Forms.TextImageRelation.TextAboveImage + Me.ToolTip1.SetToolTip(Me.chkinFront, "Keep in front") + Me.chkinFront.UseVisualStyleBackColor = True + ' + 'ListViewActive + ' + Me.ListViewActive.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3}) + Me.ListViewActive.Dock = System.Windows.Forms.DockStyle.Fill + Me.ListViewActive.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListViewActive.Location = New System.Drawing.Point(3, 21) + Me.ListViewActive.Name = "ListViewActive" + Me.ListViewActive.Size = New System.Drawing.Size(625, 188) + Me.ListViewActive.TabIndex = 3 + Me.ListViewActive.TabStop = False + Me.ListViewActive.UseCompatibleStateImageBehavior = False + Me.ListViewActive.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "Task-Beschreibung" + Me.ColumnHeader1.Width = 270 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Date" + Me.ColumnHeader2.Width = 120 + ' + 'ColumnHeader3 + ' + Me.ColumnHeader3.Text = "User" + Me.ColumnHeader3.Width = 80 + ' + 'VWPMO_WF_OVERVIEW_AUTHORITYBindingSource + ' + Me.VWPMO_WF_OVERVIEW_AUTHORITYBindingSource.DataMember = "VWPMO_WF_OVERVIEW_AUTHORITY" + Me.VWPMO_WF_OVERVIEW_AUTHORITYBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter + ' + Me.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.ListViewActive) + Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.ForeColor = System.Drawing.Color.Magenta + Me.GroupBox1.Location = New System.Drawing.Point(0, 0) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(631, 212) + Me.GroupBox1.TabIndex = 5 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Aktive Tasks" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.ListViewDone) + Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill + Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.ForeColor = System.Drawing.Color.DarkTurquoise + Me.GroupBox2.Location = New System.Drawing.Point(0, 0) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(631, 205) + Me.GroupBox2.TabIndex = 6 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Erledigte Tasks" + ' + 'ListViewDone + ' + Me.ListViewDone.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader4, Me.ColumnHeader5, Me.ColumnHeader6}) + Me.ListViewDone.Dock = System.Windows.Forms.DockStyle.Fill + Me.ListViewDone.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListViewDone.Location = New System.Drawing.Point(3, 21) + Me.ListViewDone.Name = "ListViewDone" + Me.ListViewDone.Size = New System.Drawing.Size(625, 181) + Me.ListViewDone.TabIndex = 3 + Me.ListViewDone.TabStop = False + Me.ListViewDone.UseCompatibleStateImageBehavior = False + Me.ListViewDone.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader4 + ' + Me.ColumnHeader4.Text = "Task-Beschreibung" + Me.ColumnHeader4.Width = 270 + ' + 'ColumnHeader5 + ' + Me.ColumnHeader5.Text = "Date" + Me.ColumnHeader5.Width = 120 + ' + 'ColumnHeader6 + ' + Me.ColumnHeader6.Text = "User" + Me.ColumnHeader6.Width = 80 + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 53) + Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox1) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Size = New System.Drawing.Size(631, 421) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 7 + ' + 'frmTaskOverview + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(631, 474) + Me.Controls.Add(Me.SplitContainer1) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmTaskOverview" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.Text = "Übersicht Workflow-Tasks" + Me.TopMost = True + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.VWPMO_WF_OVERVIEW_AUTHORITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox2.ResumeLayout(False) + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents chkinFront As System.Windows.Forms.CheckBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents VWPMO_WF_OVERVIEW_AUTHORITYBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents ListViewActive As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents ListViewDone As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader6 As System.Windows.Forms.ColumnHeader + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmTaskOverview.resx b/app - Kopie/DD-Record-Organiser/frmTaskOverview.resx new file mode 100644 index 0000000..aeb2fe8 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTaskOverview.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + 259, 17 + + + 116, 17 + + + 116, 17 + + + 478, 17 + + + 691, 17 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTaskOverview.vb b/app - Kopie/DD-Record-Organiser/frmTaskOverview.vb new file mode 100644 index 0000000..3a8832e --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTaskOverview.vb @@ -0,0 +1,79 @@ +Public Class frmTaskOverview + + Public Sub Refresh() + Try + Dim DTACTIVE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)") + ListViewActive.Items.Clear() + Dim anz As Integer = 0 + For Each row As DataRow In DTACTIVE.Rows + + Dim Colorstring = row.Item("COLOR") + If Not IsDBNull(Colorstring) Then + If Colorstring <> "" Then + ListViewActive.Items.Add(row.Item("String")).BackColor = ColorTranslator.FromWin32(CInt(Colorstring)) + Else + ListViewActive.Items.Add(row.Item("String")) + End If + Else + ListViewActive.Items.Add(row.Item("String")) + End If + ListViewActive.Items(anz).SubItems.Add(row.Item("CHANGED_WHEN")) + ListViewActive.Items(anz).SubItems.Add(row.Item("CHANGED_WHO")) + + anz += 1 + Next + Catch ex As Exception + MsgBox("Error loading Data for Active:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + Try + Dim DTACTIVE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID = (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)") + ListViewDone.Items.Clear() + Dim anz As Integer = 0 + For Each row As DataRow In DTACTIVE.Rows + + Dim Colorstring = row.Item("COLOR") + If Not IsDBNull(Colorstring) Then + If Colorstring <> "" Then + ListViewDone.Items.Add(row.Item("String")).BackColor = ColorTranslator.FromWin32(CInt(Colorstring)) + Else + ListViewDone.Items.Add(row.Item("String")) + End If + Else + ListViewDone.Items.Add(row.Item("String")) + End If + ListViewDone.Items(anz).SubItems.Add(row.Item("CHANGED_WHEN")) + ListViewDone.Items(anz).SubItems.Add(row.Item("CHANGED_WHO")) + anz += 1 + Next + Catch ex As Exception + MsgBox("Error loading Data for Inactive:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub frmTaskOverview_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskOverview") + My.Settings.Save() + End Sub + + Private Sub frmTaskOverview_Load(sender As Object, e As EventArgs) Handles Me.Load + ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskOverview") + Me.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter.Connection.ConnectionString = MyConnectionString + chkinFront.Checked = Sett_TaskOverviewKeepInFront + Refresh() + + End Sub + + Private Sub chkinFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkinFront.CheckedChanged + Sett_TaskOverviewKeepInFront = chkinFront.Checked + SaveMySettingsValue("Sett_TaskOverviewKeepInFront", Sett_TaskOverviewKeepInFront) + If chkinFront.Checked Then + chkinFront.Text = "TaskOverview gepinnt" + Else + chkinFront.Text = "Keep in Front" + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + frmWF_TaskEditor.ShowDialog() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTaskmanagement.designer.vb b/app - Kopie/DD-Record-Organiser/frmTaskmanagement.designer.vb new file mode 100644 index 0000000..b3ca74d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTaskmanagement.designer.vb @@ -0,0 +1,1438 @@ + _ +Partial Class frmTaskmanagement + 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 GUIDLabel As System.Windows.Forms.Label + Dim STATE_DESCLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim COLORLabel As System.Windows.Forms.Label + Dim TITLELabel As System.Windows.Forms.Label + Dim DESCRIPTIONLabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTaskmanagement)) + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tslbl = New System.Windows.Forms.ToolStripStatusLabel() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBPMO_WORKFLOWBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.btnAddTask2Entity = New System.Windows.Forms.Button() + Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.DESCRIPTIONTextBox = New System.Windows.Forms.TextBox() + Me.TITLETextBox = New System.Windows.Forms.TextBox() + Me.TBPMO_WORKFLOWBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBPMO_WORKFLOWBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() + Me.WH_FormsDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn16 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ColName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn18 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VWPMO_GUI_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.WH_FormsBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.VWPMO_WORKFLOW_FORMDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = 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.VWPMO_WORKFLOW_FORMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_WORKFLOW_FORMBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox2 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.btncolordialog = New System.Windows.Forms.Button() + Me.ListBox2 = New System.Windows.Forms.ListBox() + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton15 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox3 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton16 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton17 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton18 = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.STATE_DESCTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.COLORTextBox = New System.Windows.Forms.TextBox() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + Me.TBPMO_WORKFLOW_FORMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_WORKFLOWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_WORKFLOW_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_FORMTableAdapter() + Me.VWPMO_GUI_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter() + Me.TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager() + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() + Me.VWPMO_WORKFLOW_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WORKFLOW_FORMTableAdapter() + Me.ColorDialog1 = New System.Windows.Forms.ColorDialog() + GUIDLabel = New System.Windows.Forms.Label() + STATE_DESCLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + COLORLabel = New System.Windows.Forms.Label() + TITLELabel = New System.Windows.Forms.Label() + DESCRIPTIONLabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel1 = New System.Windows.Forms.Label() + CHANGED_WHENLabel1 = New System.Windows.Forms.Label() + Me.StatusStrip1.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.TBPMO_WORKFLOWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WORKFLOWBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_WORKFLOWBindingNavigator.SuspendLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer2.Panel1.SuspendLayout() + Me.SplitContainer2.Panel2.SuspendLayout() + Me.SplitContainer2.SuspendLayout() + CType(Me.WH_FormsDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_GUI_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.WH_FormsBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.WH_FormsBindingNavigator.SuspendLayout() + CType(Me.VWPMO_WORKFLOW_FORMDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_WORKFLOW_FORMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WORKFLOW_FORMBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_WORKFLOW_FORMBindingNavigator.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.SuspendLayout() + CType(Me.TBPMO_WORKFLOW_FORMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(231, 39) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(21, 15) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "ID:" + ' + 'STATE_DESCLabel + ' + STATE_DESCLabel.AutoSize = True + STATE_DESCLabel.Location = New System.Drawing.Point(312, 39) + STATE_DESCLabel.Name = "STATE_DESCLabel" + STATE_DESCLabel.Size = New System.Drawing.Size(70, 15) + STATE_DESCLabel.TabIndex = 2 + STATE_DESCLabel.Text = "Description:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(231, 135) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(71, 15) + ADDED_WHOLabel.TabIndex = 4 + ADDED_WHOLabel.Text = "Added who:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(394, 135) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(39, 15) + ADDED_WHENLabel.TabIndex = 6 + ADDED_WHENLabel.Text = "when:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(231, 183) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(84, 15) + CHANGED_WHOLabel.TabIndex = 8 + CHANGED_WHOLabel.Text = "Changed who:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(394, 183) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(39, 15) + CHANGED_WHENLabel.TabIndex = 10 + CHANGED_WHENLabel.Text = "when:" + ' + 'COLORLabel + ' + COLORLabel.AutoSize = True + COLORLabel.Location = New System.Drawing.Point(231, 83) + COLORLabel.Name = "COLORLabel" + COLORLabel.Size = New System.Drawing.Size(39, 15) + COLORLabel.TabIndex = 12 + COLORLabel.Text = "Color:" + ' + 'TITLELabel + ' + TITLELabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + TITLELabel.AutoSize = True + TITLELabel.Location = New System.Drawing.Point(76, 209) + TITLELabel.Name = "TITLELabel" + TITLELabel.Size = New System.Drawing.Size(33, 15) + TITLELabel.TabIndex = 3 + TITLELabel.Text = "Title:" + ' + 'DESCRIPTIONLabel + ' + DESCRIPTIONLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + DESCRIPTIONLabel.AutoSize = True + DESCRIPTIONLabel.Location = New System.Drawing.Point(12, 253) + DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" + DESCRIPTIONLabel.Size = New System.Drawing.Size(82, 15) + DESCRIPTIONLabel.TabIndex = 5 + DESCRIPTIONLabel.Text = "Beschreibung:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + GUIDLabel1.AutoSize = True + GUIDLabel1.Location = New System.Drawing.Point(12, 209) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(50, 15) + GUIDLabel1.TabIndex = 8 + GUIDLabel1.Text = "Task-ID:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Location = New System.Drawing.Point(15, 303) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(71, 15) + ADDED_WHOLabel1.TabIndex = 9 + ADDED_WHOLabel1.Text = "Added who:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Location = New System.Drawing.Point(185, 303) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(84, 15) + CHANGED_WHOLabel1.TabIndex = 10 + CHANGED_WHOLabel1.Text = "Changed who:" + ' + 'ADDED_WHENLabel1 + ' + ADDED_WHENLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + ADDED_WHENLabel1.AutoSize = True + ADDED_WHENLabel1.Location = New System.Drawing.Point(12, 347) + ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" + ADDED_WHENLabel1.Size = New System.Drawing.Size(71, 15) + ADDED_WHENLabel1.TabIndex = 12 + ADDED_WHENLabel1.Text = "Added who:" + ' + 'CHANGED_WHENLabel1 + ' + CHANGED_WHENLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + CHANGED_WHENLabel1.AutoSize = True + CHANGED_WHENLabel1.Location = New System.Drawing.Point(185, 347) + CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" + CHANGED_WHENLabel1.Size = New System.Drawing.Size(77, 15) + CHANGED_WHENLabel1.TabIndex = 14 + CHANGED_WHENLabel1.Text = "Added when:" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbl}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 466) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1143, 22) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tslbl + ' + Me.tslbl.Image = Global.DD_Record_Organiser.My.Resources.Resources.lightbulb + Me.tslbl.Name = "tslbl" + Me.tslbl.Size = New System.Drawing.Size(84, 17) + Me.tslbl.Text = "gespeichert" + Me.tslbl.Visible = False + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.AutoScroll = True + Me.SplitContainer1.Panel1.Controls.Add(Me.ListBox1) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnAddTask2Entity) + Me.SplitContainer1.Panel1.Controls.Add(CHANGED_WHENLabel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.CHANGED_WHENTextBox1) + Me.SplitContainer1.Panel1.Controls.Add(ADDED_WHENLabel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.ADDED_WHENTextBox1) + Me.SplitContainer1.Panel1.Controls.Add(CHANGED_WHOLabel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.SplitContainer1.Panel1.Controls.Add(ADDED_WHOLabel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.ADDED_WHOTextBox1) + Me.SplitContainer1.Panel1.Controls.Add(GUIDLabel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.GUIDTextBox1) + Me.SplitContainer1.Panel1.Controls.Add(DESCRIPTIONLabel) + Me.SplitContainer1.Panel1.Controls.Add(Me.DESCRIPTIONTextBox) + Me.SplitContainer1.Panel1.Controls.Add(TITLELabel) + Me.SplitContainer1.Panel1.Controls.Add(Me.TITLETextBox) + Me.SplitContainer1.Panel1.Controls.Add(Me.TBPMO_WORKFLOWBindingNavigator) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitContainer1.Size = New System.Drawing.Size(1143, 466) + Me.SplitContainer1.SplitterDistance = 393 + Me.SplitContainer1.TabIndex = 1 + ' + 'ListBox1 + ' + Me.ListBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.ListBox1.DataSource = Me.TBPMO_WORKFLOWBindingSource + Me.ListBox1.DisplayMember = "TITLE" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 15 + Me.ListBox1.Location = New System.Drawing.Point(12, 28) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(367, 169) + Me.ListBox1.TabIndex = 17 + Me.ListBox1.ValueMember = "GUID" + ' + 'TBPMO_WORKFLOWBindingSource + ' + Me.TBPMO_WORKFLOWBindingSource.DataMember = "TBPMO_WORKFLOW" + Me.TBPMO_WORKFLOWBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'btnAddTask2Entity + ' + Me.btnAddTask2Entity.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnAddTask2Entity.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddTask2Entity.ForeColor = System.Drawing.Color.Fuchsia + Me.btnAddTask2Entity.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_Forward_16xLG + Me.btnAddTask2Entity.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddTask2Entity.Location = New System.Drawing.Point(15, 394) + Me.btnAddTask2Entity.Name = "btnAddTask2Entity" + Me.btnAddTask2Entity.Size = New System.Drawing.Size(364, 43) + Me.btnAddTask2Entity.TabIndex = 16 + Me.btnAddTask2Entity.Text = "Task zu Entität hinzufügen" + Me.btnAddTask2Entity.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddTask2Entity.UseVisualStyleBackColor = True + ' + 'CHANGED_WHENTextBox1 + ' + Me.CHANGED_WHENTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(188, 365) + Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" + Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(148, 23) + Me.CHANGED_WHENTextBox1.TabIndex = 15 + ' + 'ADDED_WHENTextBox1 + ' + Me.ADDED_WHENTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(15, 365) + Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" + Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(152, 23) + Me.ADDED_WHENTextBox1.TabIndex = 13 + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(188, 321) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(148, 23) + Me.CHANGED_WHOTextBox1.TabIndex = 11 + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(15, 321) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(152, 23) + Me.ADDED_WHOTextBox1.TabIndex = 10 + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "GUID", True)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(15, 227) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.Size = New System.Drawing.Size(53, 23) + Me.GUIDTextBox1.TabIndex = 9 + ' + 'DESCRIPTIONTextBox + ' + Me.DESCRIPTIONTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "DESCRIPTION", True)) + Me.DESCRIPTIONTextBox.Location = New System.Drawing.Point(15, 271) + Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox" + Me.DESCRIPTIONTextBox.Size = New System.Drawing.Size(364, 23) + Me.DESCRIPTIONTextBox.TabIndex = 6 + ' + 'TITLETextBox + ' + Me.TITLETextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "TITLE", True)) + Me.TITLETextBox.Location = New System.Drawing.Point(79, 227) + Me.TITLETextBox.Name = "TITLETextBox" + Me.TITLETextBox.Size = New System.Drawing.Size(300, 23) + Me.TITLETextBox.TabIndex = 4 + ' + 'TBPMO_WORKFLOWBindingNavigator + ' + Me.TBPMO_WORKFLOWBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBPMO_WORKFLOWBindingNavigator.BindingSource = Me.TBPMO_WORKFLOWBindingSource + Me.TBPMO_WORKFLOWBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBPMO_WORKFLOWBindingNavigator.CountItemFormat = "von {0} Workflow-Tasks" + Me.TBPMO_WORKFLOWBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBPMO_WORKFLOWBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_WORKFLOWBindingNavigatorSaveItem}) + Me.TBPMO_WORKFLOWBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_WORKFLOWBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBPMO_WORKFLOWBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBPMO_WORKFLOWBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBPMO_WORKFLOWBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBPMO_WORKFLOWBindingNavigator.Name = "TBPMO_WORKFLOWBindingNavigator" + Me.TBPMO_WORKFLOWBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBPMO_WORKFLOWBindingNavigator.Size = New System.Drawing.Size(393, 25) + Me.TBPMO_WORKFLOWBindingNavigator.TabIndex = 2 + Me.TBPMO_WORKFLOWBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(132, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Workflow-Tasks" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBPMO_WORKFLOWBindingNavigatorSaveItem + ' + Me.TBPMO_WORKFLOWBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBPMO_WORKFLOWBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_WORKFLOWBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBPMO_WORKFLOWBindingNavigatorSaveItem.Name = "TBPMO_WORKFLOWBindingNavigatorSaveItem" + Me.TBPMO_WORKFLOWBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBPMO_WORKFLOWBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(746, 466) + Me.XtraTabControl1.TabIndex = 1 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Appearance.Header.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XtraTabPage1.Appearance.Header.Options.UseFont = True + Me.XtraTabPage1.Controls.Add(Me.SplitContainer2) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(740, 437) + Me.XtraTabPage1.Text = "Task zu Entität zuordnen" + Me.XtraTabPage1.Tooltip = "Ordnen Sie in diesem Bereich die Workflows zu den Entitäten zu" + Me.XtraTabPage1.TooltipIconType = DevExpress.Utils.ToolTipIconType.Information + Me.XtraTabPage1.TooltipTitle = "Konfiguration" + ' + 'SplitContainer2 + ' + Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer2.Name = "SplitContainer2" + Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer2.Panel1 + ' + Me.SplitContainer2.Panel1.AutoScroll = True + Me.SplitContainer2.Panel1.Controls.Add(Me.WH_FormsDataGridView) + Me.SplitContainer2.Panel1.Controls.Add(Me.WH_FormsBindingNavigator) + ' + 'SplitContainer2.Panel2 + ' + Me.SplitContainer2.Panel2.AutoScroll = True + Me.SplitContainer2.Panel2.Controls.Add(Me.VWPMO_WORKFLOW_FORMDataGridView) + Me.SplitContainer2.Panel2.Controls.Add(Me.TBPMO_WORKFLOW_FORMBindingNavigator) + Me.SplitContainer2.Size = New System.Drawing.Size(740, 437) + Me.SplitContainer2.SplitterDistance = 249 + Me.SplitContainer2.TabIndex = 0 + ' + 'WH_FormsDataGridView + ' + Me.WH_FormsDataGridView.AllowUserToAddRows = False + Me.WH_FormsDataGridView.AllowUserToDeleteRows = False + DataGridViewCellStyle4.BackColor = System.Drawing.Color.Yellow + Me.WH_FormsDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + Me.WH_FormsDataGridView.AutoGenerateColumns = False + Me.WH_FormsDataGridView.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.WH_FormsDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.WH_FormsDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn16, Me.ColName, Me.DataGridViewTextBoxColumn18}) + Me.WH_FormsDataGridView.DataSource = Me.VWPMO_GUI_ENTITYBindingSource + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(32, Byte), Integer), CType(CType(31, Byte), Integer), CType(CType(53, Byte), Integer)) + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.WH_FormsDataGridView.DefaultCellStyle = DataGridViewCellStyle5 + Me.WH_FormsDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.WH_FormsDataGridView.Location = New System.Drawing.Point(0, 25) + Me.WH_FormsDataGridView.Name = "WH_FormsDataGridView" + Me.WH_FormsDataGridView.ReadOnly = True + Me.WH_FormsDataGridView.Size = New System.Drawing.Size(740, 224) + Me.WH_FormsDataGridView.TabIndex = 3 + ' + 'DataGridViewTextBoxColumn16 + ' + Me.DataGridViewTextBoxColumn16.DataPropertyName = "ID" + Me.DataGridViewTextBoxColumn16.HeaderText = "ID" + Me.DataGridViewTextBoxColumn16.Name = "DataGridViewTextBoxColumn16" + Me.DataGridViewTextBoxColumn16.ReadOnly = True + Me.DataGridViewTextBoxColumn16.Width = 43 + ' + 'ColName + ' + Me.ColName.DataPropertyName = "Name" + Me.ColName.HeaderText = "Name" + Me.ColName.Name = "ColName" + Me.ColName.ReadOnly = True + Me.ColName.Width = 64 + ' + 'DataGridViewTextBoxColumn18 + ' + Me.DataGridViewTextBoxColumn18.DataPropertyName = "Title" + Me.DataGridViewTextBoxColumn18.HeaderText = "Title" + Me.DataGridViewTextBoxColumn18.Name = "DataGridViewTextBoxColumn18" + Me.DataGridViewTextBoxColumn18.ReadOnly = True + Me.DataGridViewTextBoxColumn18.Width = 55 + ' + 'VWPMO_GUI_ENTITYBindingSource + ' + Me.VWPMO_GUI_ENTITYBindingSource.DataMember = "VWPMO_GUI_ENTITY" + Me.VWPMO_GUI_ENTITYBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'WH_FormsBindingNavigator + ' + Me.WH_FormsBindingNavigator.AddNewItem = Nothing + Me.WH_FormsBindingNavigator.BindingSource = Me.VWPMO_GUI_ENTITYBindingSource + Me.WH_FormsBindingNavigator.CountItem = Me.ToolStripLabel1 + Me.WH_FormsBindingNavigator.CountItemFormat = "von {0} Entitäten" + Me.WH_FormsBindingNavigator.DeleteItem = Nothing + Me.WH_FormsBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3}) + Me.WH_FormsBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.WH_FormsBindingNavigator.MoveFirstItem = Me.ToolStripButton3 + Me.WH_FormsBindingNavigator.MoveLastItem = Me.ToolStripButton6 + Me.WH_FormsBindingNavigator.MoveNextItem = Me.ToolStripButton5 + Me.WH_FormsBindingNavigator.MovePreviousItem = Me.ToolStripButton4 + Me.WH_FormsBindingNavigator.Name = "WH_FormsBindingNavigator" + Me.WH_FormsBindingNavigator.PositionItem = Me.ToolStripTextBox1 + Me.WH_FormsBindingNavigator.Size = New System.Drawing.Size(740, 25) + Me.WH_FormsBindingNavigator.TabIndex = 3 + Me.WH_FormsBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(94, 22) + Me.ToolStripLabel1.Text = "von {0} Entitäten" + Me.ToolStripLabel1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "Erste verschieben" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.AccessibleName = "Position" + Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox1.Text = "0" + Me.ToolStripTextBox1.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton5.Text = "Nächste verschieben" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton6.Text = "Letzte verschieben" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'VWPMO_WORKFLOW_FORMDataGridView + ' + Me.VWPMO_WORKFLOW_FORMDataGridView.AllowUserToAddRows = False + Me.VWPMO_WORKFLOW_FORMDataGridView.AllowUserToDeleteRows = False + DataGridViewCellStyle6.BackColor = System.Drawing.Color.Fuchsia + DataGridViewCellStyle6.ForeColor = System.Drawing.Color.White + Me.VWPMO_WORKFLOW_FORMDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + Me.VWPMO_WORKFLOW_FORMDataGridView.AutoGenerateColumns = False + Me.VWPMO_WORKFLOW_FORMDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.VWPMO_WORKFLOW_FORMDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10}) + Me.VWPMO_WORKFLOW_FORMDataGridView.DataSource = Me.VWPMO_WORKFLOW_FORMBindingSource + Me.VWPMO_WORKFLOW_FORMDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.VWPMO_WORKFLOW_FORMDataGridView.Location = New System.Drawing.Point(0, 25) + Me.VWPMO_WORKFLOW_FORMDataGridView.Name = "VWPMO_WORKFLOW_FORMDataGridView" + Me.VWPMO_WORKFLOW_FORMDataGridView.ReadOnly = True + Me.VWPMO_WORKFLOW_FORMDataGridView.Size = New System.Drawing.Size(740, 159) + Me.VWPMO_WORKFLOW_FORMDataGridView.TabIndex = 3 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" + Me.DataGridViewTextBoxColumn1.HeaderText = "ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "FORM_NAME" + Me.DataGridViewTextBoxColumn3.HeaderText = "Entität" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "WORKFLOW" + Me.DataGridViewTextBoxColumn5.HeaderText = "Workflow" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "ADDED_WHO" + Me.DataGridViewTextBoxColumn7.HeaderText = "Added who" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "ADDED_WHEN" + Me.DataGridViewTextBoxColumn8.HeaderText = "Add. when" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "CHANGED_WHO" + Me.DataGridViewTextBoxColumn9.HeaderText = "Changed who" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "CHANGED_WHEN" + Me.DataGridViewTextBoxColumn10.HeaderText = "Changed when" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + ' + 'VWPMO_WORKFLOW_FORMBindingSource + ' + Me.VWPMO_WORKFLOW_FORMBindingSource.DataMember = "VWPMO_WORKFLOW_FORM" + Me.VWPMO_WORKFLOW_FORMBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_WORKFLOW_FORMBindingNavigator + ' + Me.TBPMO_WORKFLOW_FORMBindingNavigator.AddNewItem = Me.ToolStripButton8 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.BindingSource = Me.VWPMO_WORKFLOW_FORMBindingSource + Me.TBPMO_WORKFLOW_FORMBindingNavigator.CountItem = Me.ToolStripLabel2 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.CountItemFormat = "von {0} Zuordnungen" + Me.TBPMO_WORKFLOW_FORMBindingNavigator.DeleteItem = Me.ToolStripButton9 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripSeparator4, Me.ToolStripTextBox2, Me.ToolStripLabel2, Me.ToolStripSeparator5, Me.ToolStripButton12, Me.ToolStripButton13, Me.ToolStripSeparator6, Me.ToolStripButton8, Me.ToolStripButton9, Me.ToolStripButton14}) + Me.TBPMO_WORKFLOW_FORMBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_WORKFLOW_FORMBindingNavigator.MoveFirstItem = Me.ToolStripButton10 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.MoveLastItem = Me.ToolStripButton13 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.MoveNextItem = Me.ToolStripButton12 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.MovePreviousItem = Me.ToolStripButton11 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.Name = "TBPMO_WORKFLOW_FORMBindingNavigator" + Me.TBPMO_WORKFLOW_FORMBindingNavigator.PositionItem = Me.ToolStripTextBox2 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.Size = New System.Drawing.Size(740, 25) + Me.TBPMO_WORKFLOW_FORMBindingNavigator.TabIndex = 3 + Me.TBPMO_WORKFLOW_FORMBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image) + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.RightToLeftAutoMirrorImage = True + Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton8.Text = "Neu hinzufügen" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(120, 22) + Me.ToolStripLabel2.Text = "von {0} Zuordnungen" + Me.ToolStripLabel2.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton9.Image = CType(resources.GetObject("ToolStripButton9.Image"), System.Drawing.Image) + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.RightToLeftAutoMirrorImage = True + Me.ToolStripButton9.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton9.Text = "Löschen" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image) + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.RightToLeftAutoMirrorImage = True + Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton10.Text = "Erste verschieben" + ' + 'ToolStripButton11 + ' + Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image) + Me.ToolStripButton11.Name = "ToolStripButton11" + Me.ToolStripButton11.RightToLeftAutoMirrorImage = True + Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton11.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox2 + ' + Me.ToolStripTextBox2.AccessibleName = "Position" + Me.ToolStripTextBox2.AutoSize = False + Me.ToolStripTextBox2.Name = "ToolStripTextBox2" + Me.ToolStripTextBox2.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox2.Text = "0" + Me.ToolStripTextBox2.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image) + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.RightToLeftAutoMirrorImage = True + Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton12.Text = "Nächste verschieben" + ' + 'ToolStripButton13 + ' + Me.ToolStripButton13.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image) + Me.ToolStripButton13.Name = "ToolStripButton13" + Me.ToolStripButton13.RightToLeftAutoMirrorImage = True + Me.ToolStripButton13.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton13.Text = "Letzte verschieben" + ' + 'ToolStripSeparator6 + ' + Me.ToolStripSeparator6.Name = "ToolStripSeparator6" + Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton14 + ' + Me.ToolStripButton14.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton14.Image = CType(resources.GetObject("ToolStripButton14.Image"), System.Drawing.Image) + Me.ToolStripButton14.Name = "ToolStripButton14" + Me.ToolStripButton14.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton14.Text = "Daten speichern" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Controls.Add(Me.XtraTabControl2) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(740, 437) + Me.XtraTabPage2.Text = "Weitere Einstellungen" + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 + Me.XtraTabControl2.Size = New System.Drawing.Size(740, 437) + Me.XtraTabControl2.TabIndex = 0 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4}) + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Controls.Add(Me.btncolordialog) + Me.XtraTabPage3.Controls.Add(Me.ListBox2) + Me.XtraTabPage3.Controls.Add(Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator) + Me.XtraTabPage3.Controls.Add(GUIDLabel) + Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox) + Me.XtraTabPage3.Controls.Add(STATE_DESCLabel) + Me.XtraTabPage3.Controls.Add(Me.STATE_DESCTextBox) + Me.XtraTabPage3.Controls.Add(ADDED_WHOLabel) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHOTextBox) + Me.XtraTabPage3.Controls.Add(ADDED_WHENLabel) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHENTextBox) + Me.XtraTabPage3.Controls.Add(CHANGED_WHOLabel) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHOTextBox) + Me.XtraTabPage3.Controls.Add(CHANGED_WHENLabel) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHENTextBox) + Me.XtraTabPage3.Controls.Add(COLORLabel) + Me.XtraTabPage3.Controls.Add(Me.COLORTextBox) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(734, 409) + Me.XtraTabPage3.Text = "Stati der Tasks" + ' + 'btncolordialog + ' + Me.btncolordialog.Image = Global.DD_Record_Organiser.My.Resources.Resources.color_wheel + Me.btncolordialog.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btncolordialog.Location = New System.Drawing.Point(388, 99) + Me.btncolordialog.Name = "btncolordialog" + Me.btncolordialog.Size = New System.Drawing.Size(106, 24) + Me.btncolordialog.TabIndex = 16 + Me.btncolordialog.Text = "ColorDialog" + Me.btncolordialog.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btncolordialog.UseVisualStyleBackColor = True + ' + 'ListBox2 + ' + Me.ListBox2.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.ListBox2.DataSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource + Me.ListBox2.DisplayMember = "STATE_DESC" + Me.ListBox2.FormattingEnabled = True + Me.ListBox2.ItemHeight = 15 + Me.ListBox2.Location = New System.Drawing.Point(12, 31) + Me.ListBox2.Name = "ListBox2" + Me.ListBox2.Size = New System.Drawing.Size(201, 199) + Me.ListBox2.TabIndex = 15 + Me.ListBox2.ValueMember = "GUID" + ' + 'TBPMO_WORKFLOW_TASK_STATEBindingSource + ' + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_STATE" + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_WORKFLOW_TASK_STATEBindingNavigator + ' + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.AddNewItem = Me.ToolStripButton1 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.BindingSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.CountItem = Me.ToolStripLabel4 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.CountItemFormat = "von {0} Stati" + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.DeleteItem = Me.ToolStripButton2 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton7, Me.ToolStripButton15, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel4, Me.ToolStripSeparator8, Me.ToolStripButton16, Me.ToolStripButton17, Me.ToolStripSeparator9, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton18}) + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.MoveFirstItem = Me.ToolStripButton7 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.MoveLastItem = Me.ToolStripButton17 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.MoveNextItem = Me.ToolStripButton16 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.MovePreviousItem = Me.ToolStripButton15 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.Name = "TBPMO_WORKFLOW_TASK_STATEBindingNavigator" + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.PositionItem = Me.ToolStripTextBox3 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.Size = New System.Drawing.Size(734, 25) + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.TabIndex = 14 + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "Neu hinzufügen" + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(70, 22) + Me.ToolStripLabel4.Text = "von {0} Stati" + Me.ToolStripLabel4.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "Löschen" + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image) + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.RightToLeftAutoMirrorImage = True + Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton7.Text = "Erste verschieben" + ' + 'ToolStripButton15 + ' + Me.ToolStripButton15.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton15.Image = CType(resources.GetObject("ToolStripButton15.Image"), System.Drawing.Image) + Me.ToolStripButton15.Name = "ToolStripButton15" + Me.ToolStripButton15.RightToLeftAutoMirrorImage = True + Me.ToolStripButton15.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton15.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox3 + ' + Me.ToolStripTextBox3.AccessibleName = "Position" + Me.ToolStripTextBox3.AutoSize = False + Me.ToolStripTextBox3.Name = "ToolStripTextBox3" + Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox3.Text = "0" + Me.ToolStripTextBox3.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator8 + ' + Me.ToolStripSeparator8.Name = "ToolStripSeparator8" + Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton16 + ' + Me.ToolStripButton16.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton16.Image = CType(resources.GetObject("ToolStripButton16.Image"), System.Drawing.Image) + Me.ToolStripButton16.Name = "ToolStripButton16" + Me.ToolStripButton16.RightToLeftAutoMirrorImage = True + Me.ToolStripButton16.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton16.Text = "Nächste verschieben" + ' + 'ToolStripButton17 + ' + Me.ToolStripButton17.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton17.Image = CType(resources.GetObject("ToolStripButton17.Image"), System.Drawing.Image) + Me.ToolStripButton17.Name = "ToolStripButton17" + Me.ToolStripButton17.RightToLeftAutoMirrorImage = True + Me.ToolStripButton17.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton17.Text = "Letzte verschieben" + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton18 + ' + Me.ToolStripButton18.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton18.Image = CType(resources.GetObject("ToolStripButton18.Image"), System.Drawing.Image) + Me.ToolStripButton18.Name = "ToolStripButton18" + Me.ToolStripButton18.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton18.Text = "Daten speichern" + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(234, 57) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(66, 23) + Me.GUIDTextBox.TabIndex = 1 + ' + 'STATE_DESCTextBox + ' + Me.STATE_DESCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "STATE_DESC", True)) + Me.STATE_DESCTextBox.Location = New System.Drawing.Point(315, 57) + Me.STATE_DESCTextBox.Name = "STATE_DESCTextBox" + Me.STATE_DESCTextBox.Size = New System.Drawing.Size(337, 23) + Me.STATE_DESCTextBox.TabIndex = 3 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(234, 153) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(148, 23) + Me.ADDED_WHOTextBox.TabIndex = 5 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(397, 153) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(160, 23) + Me.ADDED_WHENTextBox.TabIndex = 7 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(234, 203) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(148, 23) + Me.CHANGED_WHOTextBox.TabIndex = 9 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(397, 203) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(160, 23) + Me.CHANGED_WHENTextBox.TabIndex = 11 + ' + 'COLORTextBox + ' + Me.COLORTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "COLOR", True)) + Me.COLORTextBox.Location = New System.Drawing.Point(234, 101) + Me.COLORTextBox.Name = "COLORTextBox" + Me.COLORTextBox.Size = New System.Drawing.Size(148, 23) + Me.COLORTextBox.TabIndex = 13 + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(734, 409) + ' + 'TBPMO_WORKFLOW_FORMBindingSource + ' + Me.TBPMO_WORKFLOW_FORMBindingSource.DataMember = "TBPMO_WORKFLOW_FORM" + Me.TBPMO_WORKFLOW_FORMBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_WORKFLOWTableAdapter + ' + Me.TBPMO_WORKFLOWTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Me.TBPMO_WORKFLOWTableAdapter + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_WORKFLOW_FORMTableAdapter + ' + Me.TBPMO_WORKFLOW_FORMTableAdapter.ClearBeforeFill = True + ' + 'VWPMO_GUI_ENTITYTableAdapter + ' + Me.VWPMO_GUI_ENTITYTableAdapter.ClearBeforeFill = True + ' + 'TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 + ' + Me.TbpmO_WD_FVIEW_DT_INDEXTableAdapter1.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.Connection = Nothing + Me.TableAdapterManager1.TBPMO_APPOINTMENTSTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_RESOURCESTableAdapter = Nothing + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_WORKFLOW_TASK_STATETableAdapter + ' + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.ClearBeforeFill = True + ' + 'VWPMO_WORKFLOW_FORMTableAdapter + ' + Me.VWPMO_WORKFLOW_FORMTableAdapter.ClearBeforeFill = True + ' + 'ColorDialog1 + ' + Me.ColorDialog1.AllowFullOpen = False + Me.ColorDialog1.FullOpen = True + Me.ColorDialog1.SolidColorOnly = True + ' + 'frmTaskmanagement + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1143, 488) + Me.Controls.Add(Me.SplitContainer1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Name = "frmTaskmanagement" + Me.Text = "Taskmanagement" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.PerformLayout() + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.TBPMO_WORKFLOWBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WORKFLOWBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_WORKFLOWBindingNavigator.ResumeLayout(False) + Me.TBPMO_WORKFLOWBindingNavigator.PerformLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.SplitContainer2.Panel1.ResumeLayout(False) + Me.SplitContainer2.Panel1.PerformLayout() + Me.SplitContainer2.Panel2.ResumeLayout(False) + Me.SplitContainer2.Panel2.PerformLayout() + CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer2.ResumeLayout(False) + CType(Me.WH_FormsDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_GUI_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.WH_FormsBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.WH_FormsBindingNavigator.ResumeLayout(False) + Me.WH_FormsBindingNavigator.PerformLayout() + CType(Me.VWPMO_WORKFLOW_FORMDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_WORKFLOW_FORMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WORKFLOW_FORMBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_WORKFLOW_FORMBindingNavigator.ResumeLayout(False) + Me.TBPMO_WORKFLOW_FORMBindingNavigator.PerformLayout() + Me.XtraTabPage2.ResumeLayout(False) + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPage3.ResumeLayout(False) + Me.XtraTabPage3.PerformLayout() + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.ResumeLayout(False) + Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.PerformLayout() + CType(Me.TBPMO_WORKFLOW_FORMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents tslbl As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_WORKFLOWBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_WORKFLOWTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WORKFLOWBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_WORKFLOWBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents SplitContainer2 As System.Windows.Forms.SplitContainer + Friend WithEvents WH_FormsBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_WORKFLOW_FORMBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton9 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton10 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton11 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton12 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton13 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton14 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBPMO_WORKFLOW_FORMBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_WORKFLOW_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_FORMTableAdapter + Friend WithEvents VWPMO_GUI_ENTITYBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_GUI_ENTITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents WH_FormsDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WORKFLOW_TASK_STATEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_WORKFLOW_TASK_STATETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter + Friend WithEvents TBPMO_WORKFLOW_TASK_STATEBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton15 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox3 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton16 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton17 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton18 As System.Windows.Forms.ToolStripButton + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents STATE_DESCTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents COLORTextBox As System.Windows.Forms.TextBox + Friend WithEvents DESCRIPTIONTextBox As System.Windows.Forms.TextBox + Friend WithEvents TITLETextBox As System.Windows.Forms.TextBox + Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents btnAddTask2Entity As System.Windows.Forms.Button + Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents ListBox2 As System.Windows.Forms.ListBox + Friend WithEvents VWPMO_WORKFLOW_FORMBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WORKFLOW_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WORKFLOW_FORMTableAdapter + Friend WithEvents VWPMO_WORKFLOW_FORMDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents btncolordialog As System.Windows.Forms.Button + Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog + Friend WithEvents DataGridViewTextBoxColumn16 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ColName As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn18 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmTaskmanagement.resx b/app - Kopie/DD-Record-Organiser/frmTaskmanagement.resx new file mode 100644 index 0000000..dcfeb11 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTaskmanagement.resx @@ -0,0 +1,491 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 277, 17 + + + 934, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + 277, 17 + + + 134, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 134, 17 + + + 1212, 56 + + + 1195, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 17, 134 + + + 17, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 317, 56 + + + 495, 95 + + + 495, 95 + + + 317, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 650, 56 + + + 522, 17 + + + 761, 17 + + + 934, 56 + + + 1401, 56 + + + 17, 95 + + + 315, 95 + + + 812, 95 + + + 306, 134 + + + 590, 134 + + + 174 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTaskmanagement.vb b/app - Kopie/DD-Record-Organiser/frmTaskmanagement.vb new file mode 100644 index 0000000..193b406 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTaskmanagement.vb @@ -0,0 +1,208 @@ +Public Class frmTaskmanagement + Private Shared _Instance As frmTaskmanagement = Nothing + Private insert As Boolean = False + Public Shared Function Instance() As frmTaskmanagement + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmTaskmanagement + End If + _Instance.BringToFront() + Return _Instance + End Function + Private formloaded As Boolean = False + Private _FORMID As Integer + Private Sub TBPMO_WORKFLOWBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOWBindingNavigatorSaveItem.Click + Try + Me.TBPMO_WORKFLOWBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_WORKFLOW.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox1.Text = Environment.UserName + Me.TBPMO_WORKFLOWBindingSource.EndEdit() + Me.TBPMO_WORKFLOWTableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW) + toolstriplabel(True, "Änderungen Task erfolgreich gespeichert - " & Now) + Else + toolstriplabel(False, "") + End If + Catch ex As Exception + MsgBox("Error in Save TBPMO_WORKFLOW:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub toolstriplabel(visible As Boolean, txt As String) + tslbl.Text = txt + tslbl.Visible = visible + + End Sub + + Private Sub frmTaskmanagement_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskmanagement") + End Sub + Private Sub frmTaskmanagement_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskmanagement") + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString + VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString + TBPMO_WORKFLOW_FORMTableAdapter.Connection.ConnectionString = MyConnectionString + TBPMO_WORKFLOWTableAdapter.Connection.ConnectionString = MyConnectionString + VWPMO_WORKFLOW_FORMTableAdapter.Connection.ConnectionString = MyConnectionString + Try + Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY) + Catch ex As Exception + MsgBox("Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, MsgBoxStyle.Exclamation) + ClassLogger.Add(">> Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, False) + End Try + Me.TBPMO_WORKFLOWTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW) + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE) + Catch ex As Exception + MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + + End Sub + Private Sub Refresh_Workflow_Form(formid As Integer) + Try + Me.VWPMO_WORKFLOW_FORMTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WORKFLOW_FORM, formid) + Catch ex As Exception + MsgBox("Error in Refresh_Workflow_Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub TBPMO_WORKFLOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WORKFLOWBindingSource.AddingNew + DD_DMSDataSet.TBPMO_WORKFLOW.ADDED_WHOColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click + + End Sub + + Private Sub TBPMO_WORKFLOW_FORMDataGridView_DragDrop(sender As Object, e As DragEventArgs) + 'Try + ' Dim i As Integer + ' i = TBPMO_WORKFLOWDataGridView.CurrentRow.Index + ' If TBPMO_WORKFLOWDataGridView.Item(0, i).Value Is Nothing = False Then + ' TBPMO_WORKFLOW_FORMTableAdapter.Insert(_FORMID, e.Data.GetData(DataFormats.Text), 1, Environment.UserName) + ' toolstriplabel(True, "Task erfolgreich zugeordnet - " & Now) + ' Refresh_Workflow_Form(_FORMID) + ' End If + 'Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:") + 'End Try + End Sub + + Private Sub TBPMO_WORKFLOW_FORMDataGridView_DragEnter(sender As Object, e As DragEventArgs) + ' Check the format of the data being dropped. + If (e.Data.GetDataPresent(DataFormats.Text)) Then + ' Display the copy cursor. + e.Effect = DragDropEffects.Copy + Else + ' Display the no-drop cursor. + e.Effect = DragDropEffects.None + End If + End Sub + + Private Sub WH_FormsDataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles WH_FormsDataGridView.SelectionChanged + If formloaded = True Then + Dim i As Integer + i = WH_FormsDataGridView.CurrentRow.Index + If WH_FormsDataGridView.Item(0, i).Value Is Nothing = False Then + _FORMID = WH_FormsDataGridView.Item(0, i).Value + Dim ColName = WH_FormsDataGridView.Item("ColName", i).Value + Try + btnAddTask2Entity.Text = "Task zu Entität '" & ColName.ToString & "' hinzufügen" + Catch ex As Exception + + End Try + Refresh_Workflow_Form(_FORMID) + End If + End If + End Sub + + Private Sub frmTaskmanagement_Shown(sender As Object, e As EventArgs) Handles Me.Shown + formloaded = True + End Sub + Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click + Try + Me.TBPMO_WORKFLOW_FORMBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_WORKFLOW_FORM.GetChanges Is Nothing = False Then + Me.TBPMO_WORKFLOW_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW_FORM) + toolstriplabel(True, "Änderungen erfolgreich gespeichert - " & Now) + Else + toolstriplabel(False, "") + End If + Catch ex As Exception + MsgBox("Error in Save TBPMO_WORKFLOW_FORM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub ToolStripButton18_Click(sender As Object, e As EventArgs) Handles ToolStripButton18.Click + Save_State() + End Sub + Sub Save_State() + Try + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.EndEdit() + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE) + toolstriplabel(True, "Änderungen erfolgreich gespeichert - " & Now) + End If + Catch ex As Exception + MsgBox("Error in Save TBPMO_WORKFLOW_TASK_STATE:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub TBPMO_WORKFLOW_TASK_STATEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WORKFLOW_TASK_STATEBindingSource.AddingNew + DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddTask2Entity.Click + Try + Dim i As Integer + i = WH_FormsDataGridView.CurrentRow.Index + If WH_FormsDataGridView.Item(0, i).Value Is Nothing = False Then + _FORMID = WH_FormsDataGridView.Item(0, i).Value + TBPMO_WORKFLOW_FORMTableAdapter.Insert(_FORMID, GUIDTextBox1.Text, 1, Environment.UserName) + toolstriplabel(True, "Task erfolgreich zugeordnet - " & Now) + Refresh_Workflow_Form(_FORMID) + End If + + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen Task zu Entität:") + End Try + End Sub + + Private Sub btncolordialog_Click(sender As Object, e As EventArgs) Handles btncolordialog.Click + If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then + Dim colour As Integer = ColorTranslator.ToWin32(ColorDialog1.Color) + COLORTextBox.Text = colour + COLORTextBox.BackColor = ColorDialog1.Color + Save_State() + End If + End Sub + + + Private Sub ListBox2_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox2.DrawItem + Dim clrSelectedText As Color = Color.Red 'Our color for selected text + Dim clrHighlight As Color = Color.Yellow 'Our background for selected items + Console.WriteLine("Listboxdrawitem") + If e.State = DrawItemState.Selected Then + 'This item is selected + 'e.DrawBackground() + e.Graphics.FillRectangle(New SolidBrush(clrHighlight), e.Bounds) 'Fill the item's rectangle with our highlight + e.Graphics.DrawString(ListBox2.Items.Item(e.Index), e.Font, New SolidBrush(clrSelectedText), e.Bounds) 'Draw the text for the item + ElseIf e.State = DrawItemState.None Then + 'This item has no state + e.DrawBackground() 'Draw our regular background + e.Graphics.DrawString(ListBox2.Items.Item(e.Index), e.Font, Brushes.Black, e.Bounds) 'Draw the item text in its regular color + End If + 'Draws a focus rectangle around the item if it has focus + e.DrawFocusRectangle() + End Sub + + Private Sub COLORTextBox_TextChanged(sender As Object, e As EventArgs) Handles COLORTextBox.TextChanged + Try + COLORTextBox.BackColor = ColorTranslator.FromWin32(CInt(COLORTextBox.Text)) + Catch ex As Exception + Console.WriteLine(ex.Message) + End Try + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.Designer.vb b/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.Designer.vb new file mode 100644 index 0000000..a959be6 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.Designer.vb @@ -0,0 +1,289 @@ + _ +Partial Class frmTool_ControlDesigner + 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.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.btnListBox = New System.Windows.Forms.Button() + Me.btnListBoxCheckable = New System.Windows.Forms.Button() + Me.btnRadioButton = New System.Windows.Forms.Button() + Me.btngb = New System.Windows.Forms.Button() + Me.btnpb = New System.Windows.Forms.Button() + Me.btnTabelle = New System.Windows.Forms.Button() + Me.btnCheckbox = New System.Windows.Forms.Button() + Me.btndtp = New System.Windows.Forms.Button() + Me.btncmb = New System.Windows.Forms.Button() + Me.btntextbox = New System.Windows.Forms.Button() + Me.btnlabel = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.btn_addformdata = New System.Windows.Forms.Button() + Me.btn_addtocal = New System.Windows.Forms.Button() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.btnListBox) + Me.GroupBox1.Controls.Add(Me.btnListBoxCheckable) + Me.GroupBox1.Controls.Add(Me.btnRadioButton) + Me.GroupBox1.Controls.Add(Me.btngb) + Me.GroupBox1.Controls.Add(Me.btnpb) + Me.GroupBox1.Controls.Add(Me.btnTabelle) + Me.GroupBox1.Controls.Add(Me.btnCheckbox) + Me.GroupBox1.Controls.Add(Me.btndtp) + Me.GroupBox1.Controls.Add(Me.btncmb) + Me.GroupBox1.Controls.Add(Me.btntextbox) + Me.GroupBox1.Controls.Add(Me.btnlabel) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(12, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(295, 237) + Me.GroupBox1.TabIndex = 3 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Control-Types (Drag and Drop)" + ' + 'btnListBox + ' + Me.btnListBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btnListBox.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24 + Me.btnListBox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnListBox.Location = New System.Drawing.Point(12, 200) + Me.btnListBox.Name = "btnListBox" + Me.btnListBox.Size = New System.Drawing.Size(134, 31) + Me.btnListBox.TabIndex = 10 + Me.btnListBox.Text = "ListBox" + Me.btnListBox.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnListBox.UseVisualStyleBackColor = True + ' + 'btnListBoxCheckable + ' + Me.btnListBoxCheckable.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btnListBoxCheckable.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24 + Me.btnListBoxCheckable.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnListBoxCheckable.Location = New System.Drawing.Point(12, 164) + Me.btnListBoxCheckable.Name = "btnListBoxCheckable" + Me.btnListBoxCheckable.Size = New System.Drawing.Size(134, 31) + Me.btnListBoxCheckable.TabIndex = 9 + Me.btnListBoxCheckable.Text = "ListBox Checkable" + Me.btnListBoxCheckable.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnListBoxCheckable.UseVisualStyleBackColor = True + ' + 'btnRadioButton + ' + Me.btnRadioButton.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btnRadioButton.Image = Global.DD_Record_Organiser.My.Resources.Resources.RadioButton_701 + Me.btnRadioButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRadioButton.Location = New System.Drawing.Point(152, 92) + Me.btnRadioButton.Name = "btnRadioButton" + Me.btnRadioButton.Size = New System.Drawing.Size(132, 31) + Me.btnRadioButton.TabIndex = 5 + Me.btnRadioButton.TabStop = False + Me.btnRadioButton.Text = "RadioButton" + Me.btnRadioButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRadioButton.UseVisualStyleBackColor = True + ' + 'btngb + ' + Me.btngb.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btngb.Image = Global.DD_Record_Organiser.My.Resources.Resources.GroupBox_680 + Me.btngb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btngb.Location = New System.Drawing.Point(152, 164) + Me.btngb.Name = "btngb" + Me.btngb.Size = New System.Drawing.Size(132, 31) + Me.btngb.TabIndex = 8 + Me.btngb.TabStop = False + Me.btngb.Text = "GroupBox" + Me.btngb.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btngb.UseVisualStyleBackColor = True + ' + 'btnpb + ' + Me.btnpb.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btnpb.Image = Global.DD_Record_Organiser.My.Resources.Resources.ImageListControl_683 + Me.btnpb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnpb.Location = New System.Drawing.Point(12, 127) + Me.btnpb.Name = "btnpb" + Me.btnpb.Size = New System.Drawing.Size(134, 31) + Me.btnpb.TabIndex = 6 + Me.btnpb.TabStop = False + Me.btnpb.Text = "PictureBox" + Me.btnpb.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnpb.UseVisualStyleBackColor = True + ' + 'btnTabelle + ' + Me.btnTabelle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btnTabelle.Image = Global.DD_Record_Organiser.My.Resources.Resources.Table_748 + Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTabelle.Location = New System.Drawing.Point(152, 127) + Me.btnTabelle.Name = "btnTabelle" + Me.btnTabelle.Size = New System.Drawing.Size(132, 31) + Me.btnTabelle.TabIndex = 7 + Me.btnTabelle.TabStop = False + Me.btnTabelle.Text = "Tabelle" + Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTabelle.UseVisualStyleBackColor = True + ' + 'btnCheckbox + ' + Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btnCheckbox.Image = Global.DD_Record_Organiser.My.Resources.Resources.CheckBox_669 + Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheckbox.Location = New System.Drawing.Point(152, 55) + Me.btnCheckbox.Name = "btnCheckbox" + Me.btnCheckbox.Size = New System.Drawing.Size(132, 31) + Me.btnCheckbox.TabIndex = 3 + Me.btnCheckbox.TabStop = False + Me.btnCheckbox.Text = "CheckBox" + Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCheckbox.UseVisualStyleBackColor = True + ' + 'btndtp + ' + Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btndtp.Image = Global.DD_Record_Organiser.My.Resources.Resources.DateOrTimePicker_675 + Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndtp.Location = New System.Drawing.Point(152, 22) + Me.btndtp.Name = "btndtp" + Me.btndtp.Size = New System.Drawing.Size(132, 27) + Me.btndtp.TabIndex = 1 + Me.btndtp.TabStop = False + Me.btndtp.Text = "DateTimePicker" + Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndtp.UseVisualStyleBackColor = True + ' + 'btncmb + ' + Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btncmb.Image = Global.DD_Record_Organiser.My.Resources.Resources.ComboBox_672 + Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btncmb.Location = New System.Drawing.Point(12, 90) + Me.btncmb.Name = "btncmb" + Me.btncmb.Size = New System.Drawing.Size(134, 31) + Me.btncmb.TabIndex = 4 + Me.btncmb.TabStop = False + Me.btncmb.Text = "ComboBox" + Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btncmb.UseVisualStyleBackColor = True + ' + 'btntextbox + ' + Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btntextbox.Image = Global.DD_Record_Organiser.My.Resources.Resources.TextBox_708 + Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btntextbox.Location = New System.Drawing.Point(13, 55) + Me.btntextbox.Name = "btntextbox" + Me.btntextbox.Size = New System.Drawing.Size(133, 29) + Me.btntextbox.TabIndex = 2 + Me.btntextbox.TabStop = False + Me.btntextbox.Text = "TextBox" + Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btntextbox.UseVisualStyleBackColor = True + ' + 'btnlabel + ' + Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) + Me.btnlabel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Label_684 + Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnlabel.Location = New System.Drawing.Point(12, 22) + Me.btnlabel.Name = "btnlabel" + Me.btnlabel.Size = New System.Drawing.Size(134, 27) + Me.btnlabel.TabIndex = 0 + Me.btnlabel.TabStop = False + Me.btnlabel.Text = "Label" + Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnlabel.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.btn_addformdata) + Me.GroupBox2.Controls.Add(Me.btn_addtocal) + Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold) + Me.GroupBox2.Location = New System.Drawing.Point(12, 255) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(295, 71) + Me.GroupBox2.TabIndex = 4 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Funktionen" + ' + 'btn_addformdata + ' + Me.btn_addformdata.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn_addformdata.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580 + Me.btn_addformdata.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btn_addformdata.Location = New System.Drawing.Point(152, 24) + Me.btn_addformdata.Name = "btn_addformdata" + Me.btn_addformdata.Size = New System.Drawing.Size(132, 31) + Me.btn_addformdata.TabIndex = 1 + Me.btn_addformdata.TabStop = False + Me.btn_addformdata.Text = "Add Form Data" + Me.btn_addformdata.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btn_addformdata.UseVisualStyleBackColor = True + ' + 'btn_addtocal + ' + Me.btn_addtocal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn_addtocal.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632 + Me.btn_addtocal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btn_addtocal.Location = New System.Drawing.Point(12, 24) + Me.btn_addtocal.Name = "btn_addtocal" + Me.btn_addtocal.Size = New System.Drawing.Size(134, 31) + Me.btn_addtocal.TabIndex = 0 + Me.btn_addtocal.TabStop = False + Me.btn_addtocal.Text = "Add to Calendar" + Me.btn_addtocal.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btn_addtocal.UseVisualStyleBackColor = True + ' + 'frmTool_ControlDesigner + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(324, 337) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmTool_ControlDesigner" + Me.Text = "Werkzeug-Formulardesigner" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox2.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents btnTabelle As System.Windows.Forms.Button + Friend WithEvents btnCheckbox As System.Windows.Forms.Button + Friend WithEvents btndtp As System.Windows.Forms.Button + Friend WithEvents btncmb As System.Windows.Forms.Button + Friend WithEvents btntextbox As System.Windows.Forms.Button + Friend WithEvents btnlabel As System.Windows.Forms.Button + Friend WithEvents btngb As System.Windows.Forms.Button + Friend WithEvents btnpb As System.Windows.Forms.Button + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents btn_addtocal As System.Windows.Forms.Button + Friend WithEvents btn_addformdata As System.Windows.Forms.Button + Friend WithEvents btnRadioButton As System.Windows.Forms.Button + Friend WithEvents btnListBoxCheckable As System.Windows.Forms.Button + Friend WithEvents btnListBox As System.Windows.Forms.Button +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.resx b/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.vb b/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.vb new file mode 100644 index 0000000..1ca2b12 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTool_ControlDesigner.vb @@ -0,0 +1,141 @@ +Public Class frmTool_ControlDesigner + Dim MouseIsDown As Boolean = False + Private Shared _Instance As frmTool_ControlDesigner = Nothing + Public Shared Function Instance() As frmTool_ControlDesigner + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmTool_ControlDesigner + End If + _Instance.BringToFront() + Return _Instance + End Function + Private Sub btncontrol_MouseDown(sender As Object, e As MouseEventArgs) Handles btntextbox.MouseDown, + btnTabelle.MouseDown, + btnlabel.MouseDown, + btndtp.MouseDown, + btncmb.MouseDown, + btnCheckbox.MouseDown, + btnpb.MouseDown, + btngb.MouseDown, + btn_addtocal.MouseDown, + btn_addformdata.MouseDown, + btnRadioButton.MouseDown, + btnListBoxCheckable.MouseDown, + btnListBox.MouseDown + MouseIsDown = True + End Sub + Private Sub btnlabel_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btnlabel.DoDragDrop("lbl", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btndtp_MouseMove(sender As Object, e As MouseEventArgs) Handles btndtp.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btndtp.DoDragDrop("dtp", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btntextbox_MouseMove(sender As Object, e As MouseEventArgs) Handles btntextbox.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btntextbox.DoDragDrop("txt", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btnCheckbox_MouseMove(sender As Object, e As MouseEventArgs) Handles btnCheckbox.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btnCheckbox.DoDragDrop("chk", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btncmb_MouseMove(sender As Object, e As MouseEventArgs) Handles btncmb.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btncmb.DoDragDrop("cmb", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btnTabelle_MouseMove(sender As Object, e As MouseEventArgs) Handles btnTabelle.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btnTabelle.DoDragDrop("dgv", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btnpb_MouseMove(sender As Object, e As MouseEventArgs) Handles btnpb.MouseMove + If MouseIsDown Then + btnpb.DoDragDrop("pb", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btngb_MouseMove(sender As Object, e As MouseEventArgs) Handles btngb.MouseMove + If MouseIsDown Then + btngb.DoDragDrop("gb", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btn_addtocal_MouseMove(sender As Object, e As MouseEventArgs) Handles btn_addtocal.MouseMove + If MouseIsDown Then + btn_addtocal.DoDragDrop("f_addappointment", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub btn_addformdata_MouseMove(sender As Object, e As MouseEventArgs) Handles btn_addformdata.MouseMove + If MouseIsDown Then + btn_addformdata.DoDragDrop("f_addformdata", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + Private Sub btnRadioButton_MouseMove(sender As Object, e As MouseEventArgs) Handles btnRadioButton.MouseMove + If MouseIsDown Then + btn_addformdata.DoDragDrop("rb", DragDropEffects.Copy) + End If + MouseIsDown = False + End Sub + + Private Sub frmTool_FormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_FormDesigner") + My.Settings.Save() + Catch ex As Exception + MsgBox("Settings could not be saved.\n" & ex.ToString) + End Try + End Sub + + Private Sub frmTool_FormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load + ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_FormDesigner") + + End Sub + + Private Sub btnListBox_MouseMove(sender As Object, e As MouseEventArgs) Handles btnListBoxCheckable.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btnListBoxCheckable.DoDragDrop("lstbxcheck", DragDropEffects.Copy) + End If + End Sub + + Private Sub btnListBox_MouseMove_1(sender As Object, e As MouseEventArgs) Handles btnListBox.MouseMove + If MouseIsDown Then + 'Initiate dragging. + btnListBox.DoDragDrop("lstbx", DragDropEffects.Copy) + End If + End Sub + + Private Sub frmTool_ControlDesigner_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If Me.WindowState = FormWindowState.Maximized Then + Me.WindowState = FormWindowState.Normal + End If + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.Designer.vb b/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.Designer.vb new file mode 100644 index 0000000..dd23c75 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.Designer.vb @@ -0,0 +1,115 @@ + _ +Partial Class frmTool_ControlProperties + 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.pgControlProperties = New System.Windows.Forms.PropertyGrid() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.btnSaveControl = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lblStatus = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'pgControlProperties + ' + Me.pgControlProperties.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pgControlProperties.Enabled = False + Me.pgControlProperties.Location = New System.Drawing.Point(0, 28) + Me.pgControlProperties.Name = "pgControlProperties" + Me.pgControlProperties.Size = New System.Drawing.Size(384, 322) + Me.pgControlProperties.TabIndex = 0 + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnSaveControl, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(384, 25) + Me.ToolStrip1.TabIndex = 1 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'btnSaveControl + ' + Me.btnSaveControl.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.btnSaveControl.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnSaveControl.Name = "btnSaveControl" + Me.btnSaveControl.Size = New System.Drawing.Size(79, 22) + Me.btnSaveControl.Text = "Speichern" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(71, 22) + Me.ToolStripButton1.Text = "Löschen" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblStatus}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 353) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(384, 22) + Me.StatusStrip1.TabIndex = 2 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lblStatus + ' + Me.lblStatus.Image = Global.DD_Record_Organiser.My.Resources.Resources.flag_green + Me.lblStatus.Name = "lblStatus" + Me.lblStatus.Size = New System.Drawing.Size(80, 17) + Me.lblStatus.Text = "erfolgreich" + Me.lblStatus.Visible = False + ' + 'frmTool_ControlProperties + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(384, 375) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.pgControlProperties) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmTool_ControlProperties" + Me.Text = "Eigenschaften" + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pgControlProperties As System.Windows.Forms.PropertyGrid + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents btnSaveControl As System.Windows.Forms.ToolStripButton + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lblStatus As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.resx b/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.resx new file mode 100644 index 0000000..2b7c922 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 124, 17 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.vb b/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.vb new file mode 100644 index 0000000..1df9f01 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmTool_ControlProperties.vb @@ -0,0 +1,403 @@ +Public Class frmTool_ControlProperties + Private Shared _Instance As frmTool_ControlProperties = Nothing + Private CurrentProperties As Object = Nothing + + Public Shared Function Instance() As frmTool_ControlProperties + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmTool_ControlProperties + End If + _Instance.BringToFront() + Return _Instance + End Function + + Private Sub frmTool_ControlProperties_Load(sender As Object, e As EventArgs) Handles MyBase.Load + ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_ControlProperties") + End Sub + + Private Sub frmTool_ControlProperties_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing + Try + ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_ControlProperties") + My.Settings.Save() + Catch ex As Exception + MsgBox("Settings could not be saved.\n" & ex.ToString) + End Try + End Sub + + ' ADDED 25.11 + ' Lade Control Eigenschaften und zeige diese an + ' Wird von frmLevelDesigner aufgerufen + Public Sub LoadControlProperties(ctrl As Control) + Try + Dim sql As String = "SELECT CTRLSCR_ID FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_NAME = '" & ctrl.Name & "' AND FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID + Dim CTRLSCR_ID = ClassDatabase.Execute_Scalar(sql) + If CTRLSCR_ID > 0 Then + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE CTRLSCR_ID = " & CTRLSCR_ID) + If DT.Rows.Count = 1 Then + Dim row As DataRow = DT.Rows(0) + Dim type As String = row.Item("CTRLTYPE_NAME") + Dim props As Object = Nothing + Dim fontcolor As Color + Dim fontfamily As String + Dim fontstyle As FontStyle + Dim fontsize As Single + Dim isreadonly As Boolean + Dim isrequired As Boolean + Dim columntitle As String + Dim DefaultValue As String + + + Select Case type + Case "Label" + props = New LabelProperties() + props.Caption = row.Item("CTRLSCR_CAPTION") + Case "Textbox" + props = New TextBoxProperties() + If Not IsDBNull(row.Item("CONTROL_DEF_VALUE")) Then + props.DefaultValue = row.Item("CONTROL_DEF_VALUE") + Else + props.DefaultValue = "" + End If + + If Not IsDBNull(row.Item("CONTROL_FORMAT_TYPE")) Then + props.Format = DirectCast([Enum].Parse(GetType(EnumFormat), row.Item("CONTROL_FORMAT_TYPE")), Integer) + Else + props.Format = "String" + End If + Case "Combobox" + props = New ComboBoxProperties() + props.MasterDataId = row.Item("CTRLSCR_MASTER_DATA_ID") + If Not IsDBNull(row.Item("CONTROL_DEF_VALUE")) Then + props.DefaultValue = row.Item("CONTROL_DEF_VALUE") + Else + props.DefaultValue = "" + End If + + If Not IsDBNull(row.Item("CONTROL_FORMAT_TYPE")) Then + props.Format = DirectCast([Enum].Parse(GetType(EnumFormat), row.Item("CONTROL_FORMAT_TYPE")), Integer) + Else + props.Format = "String" + End If + + If Not IsDBNull(row.Item("CONTROL_STATIC_LIST")) Then + props.StaticList = row.Item("CONTROL_STATIC_LIST") + Else + props.StaticList = "" + End If + Case "Checkbox" + props = New CheckBoxProperties() + props.Caption = row.Item("CTRLSCR_CAPTION") + If Not IsDBNull(row.Item("CONTROL_DEF_VALUE")) Then + props.DefaultValue = row.Item("CONTROL_DEF_VALUE") + Else + props.DefaultValue = False + End If + + + + Case "Datepicker" + props = New DateTimePickerProperties() + Case "Datagridview" + props = New DataGridViewProperties() + Case "Groupbox" + props = New GroupBoxProperties() + props.Caption = row.Item("CTRLSCR_CAPTION") + props.BackColor = IntToColor(row.Item("CTRLSCR_BACK_COLOR")) + Case "Picturebox" + props = New PictureBoxProperties() + Case "RadioButton" + props = New RadioButtonProperties() + props.Caption = row.Item("CTRLSCR_CAPTION") + If Not IsDBNull(row.Item("CONTROL_DEF_VALUE")) Then + props.DefaultValue = row.Item("CONTROL_DEF_VALUE") + Else + props.DefaultValue = False + End If + Case "F_AddAppointment" + props = New FunctionAddAppointment() + Case "F_AddFormData" + props = New FunctionAddFormData() + Case "CheckedListBox" + props = New ComboBoxProperties() + + If Not IsDBNull(row.Item("CONTROL_STATIC_LIST")) Then + props.StaticList = row.Item("CONTROL_STATIC_LIST") + Else + props.StaticList = "" + End If + Case "ListBox" + props = New ComboBoxProperties() + + If Not IsDBNull(row.Item("CONTROL_STATIC_LIST")) Then + props.StaticList = row.Item("CONTROL_STATIC_LIST") + Else + props.StaticList = "" + End If + Case Else + MsgBox("Unknown control type " & type, MsgBoxStyle.Exclamation, "Error in LoadControlProperties:") + End Select + + ' Generic Properties + props.ID = row.Item("CONTROL_ID") + props.Name = row.Item("CONTROL_NAME") + props.Size = New Size(row.Item("CTRLSCR_WIDTH"), row.Item("CTRLSCR_HEIGHT")) + + 'TODO: calc location + 'If row.Item("CONTROL_PARENT_ID") <> 0 Then + ' Dim parentSQL = "SELECT CTRLSCR_X_LOC, CTRLSCR_Y_LOC FROM VWPMO_VALUES WHERE = CONTROL_ID = " & row.Item("CONTROL_PARENT_ID") + 'End If + + + props.Location = New Point(row.Item("CTRLSCR_X_LOC"), row.Item("CTRLSCR_Y_LOC")) + + Me.Text = "Eigenschaften Control-ID: " & props.ID + + If type = "F_AddAppointment" Then + Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_FORM_ID) + Dim dr = ClassFunctionCommands.LoadFunction(ControlId) + + Dim FromDateId, ToDateId, SubjectString, Subject2String, PlaceString, DescString + + FromDateId = dr.Item("INTEGER1") + ToDateId = dr.Item("INTEGER2") + SubjectString = dr.Item("STRING1") + Subject2String = dr.Item("STRING2") + PlaceString = dr.Item("STRING3") + DescString = dr.Item("STRING4") + + + If IsDBNull(FromDateId) OrElse FromDateId = 0 Then + props.FromDate = "" + Else + props.FromDate = GetName_for_ControlID(FromDateId, CURRENT_FORM_ID) + End If + + If IsDBNull(ToDateId) OrElse ToDateId = 0 Then + props.ToDate = "" + Else + props.ToDate = GetName_for_ControlID(ToDateId, CURRENT_FORM_ID) + End If + + + + If IsDBNull(SubjectString) OrElse String.IsNullOrEmpty(SubjectString) Then + props.Subject = "" + Else + props.Subject = SubjectString + End If + + If IsDBNull(Subject2String) OrElse String.IsNullOrEmpty(Subject2String) Then + props.Subject2 = "" + Else + props.Subject2 = Subject2String + End If + + If IsDBNull(PlaceString) OrElse String.IsNullOrEmpty(PlaceString) Then + props.Place = "" + Else + props.Place = PlaceString + End If + + If IsDBNull(DescString) OrElse String.IsNullOrEmpty(DescString) Then + props.Description = "" + Else + props.Description = DescString + End If + + props.Caption = row.Item("CTRLSCR_CAPTION") + ElseIf type = "F_AddFormData" Then + ' TODO + Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_FORM_ID) + Dim dr = ClassFunctionCommands.LoadFunction(ControlId) + + Dim FormId, ScreenId + + FormId = dr.Item("INTEGER1") + ScreenId = dr.Item("INTEGER2") + + If IsDBNull(FormId) OrElse FormId = 0 Then + props.FormID = 0 + Else + props.FormID = FormId + End If + + If IsDBNull(ScreenId) OrElse ScreenId = 0 Then + props.ScreenID = 0 + Else + props.ScreenID = ScreenId + End If + + props.Caption = row.Item("CTRLSCR_CAPTION") + End If + + ' Control Properties + If Not type.Contains("F_") Then + ' PreSave and Convert Properties + fontcolor = IntToColor(row.Item("CTRLSCR_FONT_COLOR")) + fontfamily = row.Item("CTRLSCR_FONT_FAMILY") + fontstyle = CType(row.Item("CTRLSCR_FONT_STYLE"), FontStyle) + fontsize = CType(row.Item("CTRLSCR_FONT_SIZE"), Single) + isreadonly = row.Item("CONTROL_READ_ONLY") + isrequired = row.Item("CONTROL_REQUIRED") + columntitle = row.Item("CONTROL_COL_NAME") + + ' Assign Properties to Class + props.FontColor = fontcolor + props.Font = New Font(fontfamily, fontsize, fontstyle) + props.ColumnTitle = columntitle + + 'ReadOnly + If type = "Textbox" Then + props.IsReadOnly = row.Item("CONTROL_READ_ONLY") + End If + + ' Nicht verfügbar für label + If type = "Textbox" Or type = "Combobox" Or type = "Datepicker" Or type = "Checkbox" Or type = "RadioButton" Or type = "CheckedListBox" _ + Or type = "ListBox" Then + props.TabStop = row.Item("CTRLSCR_TAB_STOP") + props.TabIndex = row.Item("CTRLSCR_TAB_INDEX") + + If Not IsDBNull(row.Item("CONTROL_SHOW_COLUMN")) Then + props.ShowColumn = row.Item("CONTROL_SHOW_COLUMN") + Else + props.ShowColumn = True + End If + End If + + If type = "Textbox" Then + props.Multiline = row.Item("CONTROL_MULTILINE") + End If + + If type = "Combobox" Or type = "CheckedListBox" Or type = "ListBox" Then + If row.Item("CONTROL_SQLCOMMAND_1").ToString.Length > 1 Then + Dim value As New SQLValue(row.Item("CONTROL_SQLCOMMAND_1").ToString) + props.SQLCommand = value + 'props.SQLCommand = row.Item("CONTROL_SQLCOMMAND_1").ToString + End If + + 'props.ParentFormID = row.Item("PARENT_FORM_ID") + props.IsRequired = isrequired + props.IsReadOnly = isreadonly + End If + + If type = "Label" Then + If row.Item("CONTROL_SQLCOMMAND_1").ToString.Length > 1 Then + Dim value As New SQLValue(row.Item("CONTROL_SQLCOMMAND_1").ToString) + props.SQLCommand = value + 'props.SQLCommand = row.Item("CONTROL_SQLCOMMAND_1").ToString + End If + End If + + + End If + + ' Globale Variable setzen + CURRENT_CONTROL_ID = row.Item("CONTROL_ID") + Me.pgControlProperties.SelectedObject = props + End If + End If + + Catch ex As Exception + MsgBox("Error in loadcontrolproperties" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + + End Sub + + ' Aktualisiert die Position des akutellen Controls und speichert diese in der Klasse + Public Sub UpdateControlLocation(ctrl As Control) + CurrentProperties = Me.pgControlProperties.SelectedObject + + If CurrentProperties IsNot Nothing Then + CurrentProperties.Location = ctrl.Location + Me.pgControlProperties.SelectedObject = CurrentProperties + End If + + End Sub + + Public Function SaveControlProperties(ctrl As Control, properties As Object) As Boolean + If ClassControlCommands.UpdateControl(ctrl, properties) Then + LoadControlProperties(ctrl) + Return True + Else + MsgBox("Fehler beim Speichern der Elementeigenschaften.", MsgBoxStyle.Critical) + Return False + End If + End Function + + Private Sub btnSaveControl_Click(sender As Object, e As EventArgs) Handles btnSaveControl.Click + If SaveControlProperties(CtrlBuilder.CurrentControl, pgControlProperties.SelectedObject) Then + lblStatus.Text = "Änderungen gespeichert - " & Now + lblStatus.Visible = True + Else + lblStatus.Visible = False + ' MsgBox("Änderungen gespeichert!", MsgBoxStyle.Information) + End If + End Sub + + Private Sub pgControlProperties_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControlProperties.PropertyValueChanged + + Dim oldValue As Object = e.OldValue + Dim newValue As Object = e.ChangedItem.Value + Dim currentProperty As String = e.ChangedItem.Label + Dim ctrl As Control = CtrlBuilder.CurrentControl + + Select Case currentProperty + Case "Location" + ctrl.Location = newValue + Case "X" + ctrl.Location = New Point(newValue, ctrl.Location.Y) + Case "Y" + ctrl.Location = New Point(ctrl.Location.X, newValue) + Case "Size" + ctrl.Size = newValue + Case "Width" + ctrl.Size = New Size(newValue, ctrl.Size.Height) + Case "Height" + ctrl.Size = New Size(ctrl.Size.Width, newValue) + Case "Name" + ctrl.Name = newValue + Case "Caption" + ctrl.Text = newValue + Case "Font" + ctrl.Font = newValue + Case "FontColor" + ctrl.ForeColor = newValue + Case "BackColor" + ctrl.BackColor = newValue + End Select + + Console.WriteLine("Property " & currentProperty & " changed to: " & e.ChangedItem.Value.ToString) + + + lblStatus.Text = "Ausstehende Änderungen" + lblStatus.Visible = True + End Sub + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + If MsgBox("Wollen Sie das Element wirklich löschen?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then + If IsGroupBox(CtrlBuilder.CurrentControl) Then + Dim parentID As Integer = GetControlID_for_Name(CtrlBuilder.CurrentControl.Name, CURRENT_FORM_ID) + Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE PARENT_CONTROL_ID = " & parentID + Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) + + For Each dr As DataRow In dt.Rows + Dim id As Integer = dr.Item(0) + ClassControlCommands.DeleteControl(id) + Next + + End If + + If ClassControlCommands.DeleteControl() = True Then + MsgBox("Element gelöscht, Elemente werden neu geladen.", MsgBoxStyle.Information) + CtrlBuilder.ClearControls() + frmLevel_Designer.Instance.LoadControls() + End If + End If + End Sub + + Private Sub frmTool_ControlProperties_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If Me.WindowState = FormWindowState.Maximized Then + Me.WindowState = FormWindowState.Normal + End If + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmUserKonfig.Designer.vb b/app - Kopie/DD-Record-Organiser/frmUserKonfig.Designer.vb new file mode 100644 index 0000000..d6d9d8d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmUserKonfig.Designer.vb @@ -0,0 +1,1080 @@ + _ +Partial Class frmUserKonfig + 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 GUIDLabel As System.Windows.Forms.Label + Dim PRENAMELabel As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim USERNAMELabel As System.Windows.Forms.Label + Dim EMAILLabel As System.Windows.Forms.Label + Dim LOGGED_WHERELabel As System.Windows.Forms.Label + Dim LOG_IN_WHENLabel As System.Windows.Forms.Label + Dim LOG_OUT_WHENLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim NAMELabel1 As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUserKonfig)) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_USERBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBDD_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.tbRefreshUsers = New System.Windows.Forms.ToolStripButton() + Me.tsAddUser = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.PRENAMETextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.USERNAMETextBox = New System.Windows.Forms.TextBox() + Me.EMAILTextBox = New System.Windows.Forms.TextBox() + Me.LOGGED_INCheckBox = New System.Windows.Forms.CheckBox() + Me.LOGGED_WHERETextBox = New System.Windows.Forms.TextBox() + Me.LOG_IN_WHENTextBox = New System.Windows.Forms.TextBox() + Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox() + Me.RECORG_ADMINCheckBox = New System.Windows.Forms.CheckBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.lbUsers = New System.Windows.Forms.ListBox() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.btnRemoveUserFromGroup = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.lbGroups = New System.Windows.Forms.ListBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnAddUserToGroup = New System.Windows.Forms.Button() + Me.cmbGroup = New System.Windows.Forms.ComboBox() + Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TabGruppendefinition = New DevExpress.XtraTab.XtraTabPage() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.NAMETextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton() + Me.VWPMO_USERS_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() + Me.VWPMO_USERS_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter() + GUIDLabel = New System.Windows.Forms.Label() + PRENAMELabel = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + USERNAMELabel = New System.Windows.Forms.Label() + EMAILLabel = New System.Windows.Forms.Label() + LOGGED_WHERELabel = New System.Windows.Forms.Label() + LOG_IN_WHENLabel = New System.Windows.Forms.Label() + LOG_OUT_WHENLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + NAMELabel1 = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel1 = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + CHANGED_WHENLabel1 = New System.Windows.Forms.Label() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_USERBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_USERBindingNavigator.SuspendLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabGruppendefinition.SuspendLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(12, 39) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(21, 13) + GUIDLabel.TabIndex = 1 + GUIDLabel.Text = "ID:" + ' + 'PRENAMELabel + ' + PRENAMELabel.AutoSize = True + PRENAMELabel.Location = New System.Drawing.Point(76, 39) + PRENAMELabel.Name = "PRENAMELabel" + PRENAMELabel.Size = New System.Drawing.Size(54, 13) + PRENAMELabel.TabIndex = 3 + PRENAMELabel.Text = "Prename:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Location = New System.Drawing.Point(187, 39) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(55, 13) + NAMELabel.TabIndex = 5 + NAMELabel.Text = "Surname:" + ' + 'USERNAMELabel + ' + USERNAMELabel.AutoSize = True + USERNAMELabel.Location = New System.Drawing.Point(375, 39) + USERNAMELabel.Name = "USERNAMELabel" + USERNAMELabel.Size = New System.Drawing.Size(61, 13) + USERNAMELabel.TabIndex = 7 + USERNAMELabel.Text = "Username:" + ' + 'EMAILLabel + ' + EMAILLabel.AutoSize = True + EMAILLabel.Location = New System.Drawing.Point(76, 80) + EMAILLabel.Name = "EMAILLabel" + EMAILLabel.Size = New System.Drawing.Size(37, 13) + EMAILLabel.TabIndex = 9 + EMAILLabel.Text = "Email:" + ' + 'LOGGED_WHERELabel + ' + LOGGED_WHERELabel.AutoSize = True + LOGGED_WHERELabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + LOGGED_WHERELabel.Location = New System.Drawing.Point(187, 123) + LOGGED_WHERELabel.Name = "LOGGED_WHERELabel" + LOGGED_WHERELabel.Size = New System.Drawing.Size(74, 13) + LOGGED_WHERELabel.TabIndex = 13 + LOGGED_WHERELabel.Text = "Logged where:" + ' + 'LOG_IN_WHENLabel + ' + LOG_IN_WHENLabel.AutoSize = True + LOG_IN_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + LOG_IN_WHENLabel.Location = New System.Drawing.Point(375, 123) + LOG_IN_WHENLabel.Name = "LOG_IN_WHENLabel" + LOG_IN_WHENLabel.Size = New System.Drawing.Size(63, 13) + LOG_IN_WHENLabel.TabIndex = 15 + LOG_IN_WHENLabel.Text = "Login when:" + ' + 'LOG_OUT_WHENLabel + ' + LOG_OUT_WHENLabel.AutoSize = True + LOG_OUT_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + LOG_OUT_WHENLabel.Location = New System.Drawing.Point(375, 164) + LOG_OUT_WHENLabel.Name = "LOG_OUT_WHENLabel" + LOG_OUT_WHENLabel.Size = New System.Drawing.Size(72, 13) + LOG_OUT_WHENLabel.TabIndex = 17 + LOG_OUT_WHENLabel.Text = "LogOut when:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(187, 205) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(62, 13) + ADDED_WHOLabel.TabIndex = 21 + ADDED_WHOLabel.Text = "Added who:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(375, 205) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(67, 13) + ADDED_WHENLabel.TabIndex = 23 + ADDED_WHENLabel.Text = "Added when:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(187, 246) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(74, 13) + CHANGED_WHOLabel.TabIndex = 25 + CHANGED_WHOLabel.Text = "Changed who:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(375, 246) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(79, 13) + CHANGED_WHENLabel.TabIndex = 27 + CHANGED_WHENLabel.Text = "Changed when:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.AutoSize = True + GUIDLabel1.Location = New System.Drawing.Point(135, 38) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(21, 13) + GUIDLabel1.TabIndex = 1 + GUIDLabel1.Text = "ID:" + ' + 'NAMELabel1 + ' + NAMELabel1.AutoSize = True + NAMELabel1.Location = New System.Drawing.Point(200, 38) + NAMELabel1.Name = "NAMELabel1" + NAMELabel1.Size = New System.Drawing.Size(77, 13) + NAMELabel1.TabIndex = 3 + NAMELabel1.Text = "Gruppename:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Location = New System.Drawing.Point(135, 79) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel1.TabIndex = 5 + ADDED_WHOLabel1.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel1 + ' + ADDED_WHENLabel1.AutoSize = True + ADDED_WHENLabel1.Location = New System.Drawing.Point(304, 79) + ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" + ADDED_WHENLabel1.Size = New System.Drawing.Size(77, 13) + ADDED_WHENLabel1.TabIndex = 7 + ADDED_WHENLabel1.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Location = New System.Drawing.Point(135, 120) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel1.TabIndex = 9 + CHANGED_WHOLabel1.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel1 + ' + CHANGED_WHENLabel1.AutoSize = True + CHANGED_WHENLabel1.Location = New System.Drawing.Point(304, 120) + CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" + CHANGED_WHENLabel1.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel1.TabIndex = 11 + CHANGED_WHENLabel1.Text = "Geändert wann:" + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBDD_USERBindingSource + ' + Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" + Me.TBDD_USERBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBDD_USERTableAdapter + ' + Me.TBDD_USERTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_USERBindingNavigator + ' + Me.TBDD_USERBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBDD_USERBindingNavigator.BindingSource = Me.TBDD_USERBindingSource + Me.TBDD_USERBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBDD_USERBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBDD_USERBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_USERBindingNavigatorSaveItem, Me.tbRefreshUsers, Me.tsAddUser}) + Me.TBDD_USERBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBDD_USERBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBDD_USERBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBDD_USERBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBDD_USERBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBDD_USERBindingNavigator.Name = "TBDD_USERBindingNavigator" + Me.TBDD_USERBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBDD_USERBindingNavigator.Size = New System.Drawing.Size(801, 25) + Me.TBDD_USERBindingNavigator.TabIndex = 0 + Me.TBDD_USERBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBDD_USERBindingNavigatorSaveItem + ' + Me.TBDD_USERBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBDD_USERBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBDD_USERBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBDD_USERBindingNavigatorSaveItem.Name = "TBDD_USERBindingNavigatorSaveItem" + Me.TBDD_USERBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBDD_USERBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'tbRefreshUsers + ' + Me.tbRefreshUsers.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tbRefreshUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tbRefreshUsers.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tbRefreshUsers.Name = "tbRefreshUsers" + Me.tbRefreshUsers.Size = New System.Drawing.Size(23, 22) + Me.tbRefreshUsers.Text = "ToolStripButton1" + ' + 'tsAddUser + ' + Me.tsAddUser.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.benutzer3 + Me.tsAddUser.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsAddUser.Name = "tsAddUser" + Me.tsAddUser.Size = New System.Drawing.Size(176, 22) + Me.tsAddUser.Text = "Benutzer aus AD hinzufügen" + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(15, 55) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(54, 22) + Me.GUIDTextBox.TabIndex = 2 + ' + 'PRENAMETextBox + ' + Me.PRENAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "PRENAME", True)) + Me.PRENAMETextBox.Location = New System.Drawing.Point(79, 55) + Me.PRENAMETextBox.Name = "PRENAMETextBox" + Me.PRENAMETextBox.Size = New System.Drawing.Size(104, 22) + Me.PRENAMETextBox.TabIndex = 4 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "NAME", True)) + Me.NAMETextBox.Location = New System.Drawing.Point(190, 55) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(182, 22) + Me.NAMETextBox.TabIndex = 6 + ' + 'USERNAMETextBox + ' + Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERNAME", True)) + Me.USERNAMETextBox.Location = New System.Drawing.Point(378, 55) + Me.USERNAMETextBox.Name = "USERNAMETextBox" + Me.USERNAMETextBox.Size = New System.Drawing.Size(177, 22) + Me.USERNAMETextBox.TabIndex = 8 + ' + 'EMAILTextBox + ' + Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "EMAIL", True)) + Me.EMAILTextBox.Location = New System.Drawing.Point(79, 96) + Me.EMAILTextBox.Name = "EMAILTextBox" + Me.EMAILTextBox.Size = New System.Drawing.Size(293, 22) + Me.EMAILTextBox.TabIndex = 10 + ' + 'LOGGED_INCheckBox + ' + Me.LOGGED_INCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "LOGGED_IN", True)) + Me.LOGGED_INCheckBox.Enabled = False + Me.LOGGED_INCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOGGED_INCheckBox.Location = New System.Drawing.Point(79, 137) + Me.LOGGED_INCheckBox.Name = "LOGGED_INCheckBox" + Me.LOGGED_INCheckBox.Size = New System.Drawing.Size(80, 24) + Me.LOGGED_INCheckBox.TabIndex = 12 + Me.LOGGED_INCheckBox.Text = "Logged in" + Me.LOGGED_INCheckBox.UseVisualStyleBackColor = True + ' + 'LOGGED_WHERETextBox + ' + Me.LOGGED_WHERETextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.LOGGED_WHERETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOGGED_WHERE", True)) + Me.LOGGED_WHERETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOGGED_WHERETextBox.Location = New System.Drawing.Point(190, 139) + Me.LOGGED_WHERETextBox.Name = "LOGGED_WHERETextBox" + Me.LOGGED_WHERETextBox.ReadOnly = True + Me.LOGGED_WHERETextBox.Size = New System.Drawing.Size(182, 22) + Me.LOGGED_WHERETextBox.TabIndex = 14 + ' + 'LOG_IN_WHENTextBox + ' + Me.LOG_IN_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.LOG_IN_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_IN_WHEN", True)) + Me.LOG_IN_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOG_IN_WHENTextBox.Location = New System.Drawing.Point(378, 139) + Me.LOG_IN_WHENTextBox.Name = "LOG_IN_WHENTextBox" + Me.LOG_IN_WHENTextBox.ReadOnly = True + Me.LOG_IN_WHENTextBox.Size = New System.Drawing.Size(177, 22) + Me.LOG_IN_WHENTextBox.TabIndex = 16 + ' + 'LOG_OUT_WHENTextBox + ' + Me.LOG_OUT_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.LOG_OUT_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_OUT_WHEN", True)) + Me.LOG_OUT_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOG_OUT_WHENTextBox.Location = New System.Drawing.Point(378, 180) + Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" + Me.LOG_OUT_WHENTextBox.ReadOnly = True + Me.LOG_OUT_WHENTextBox.Size = New System.Drawing.Size(177, 22) + Me.LOG_OUT_WHENTextBox.TabIndex = 18 + ' + 'RECORG_ADMINCheckBox + ' + Me.RECORG_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "RECORD_ADMIN", True)) + Me.RECORG_ADMINCheckBox.Location = New System.Drawing.Point(378, 94) + Me.RECORG_ADMINCheckBox.Name = "RECORG_ADMINCheckBox" + Me.RECORG_ADMINCheckBox.Size = New System.Drawing.Size(104, 24) + Me.RECORG_ADMINCheckBox.TabIndex = 20 + Me.RECORG_ADMINCheckBox.Text = "Admin?" + Me.RECORG_ADMINCheckBox.UseVisualStyleBackColor = True + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(190, 221) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(182, 22) + Me.ADDED_WHOTextBox.TabIndex = 22 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(378, 218) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(177, 22) + Me.ADDED_WHENTextBox.TabIndex = 24 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(190, 262) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(182, 22) + Me.CHANGED_WHOTextBox.TabIndex = 26 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(378, 262) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(177, 22) + Me.CHANGED_WHENTextBox.TabIndex = 28 + ' + 'lbUsers + ' + Me.lbUsers.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbUsers.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.lbUsers.DataSource = Me.TBDD_USERBindingSource + Me.lbUsers.DisplayMember = "USERNAME" + Me.lbUsers.FormattingEnabled = True + Me.lbUsers.Location = New System.Drawing.Point(561, 55) + Me.lbUsers.Name = "lbUsers" + Me.lbUsers.Size = New System.Drawing.Size(228, 225) + Me.lbUsers.TabIndex = 29 + Me.lbUsers.ValueMember = "GUID" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 290) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(789, 195) + Me.XtraTabControl1.TabIndex = 30 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.TabGruppendefinition}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(Me.btnRemoveUserFromGroup) + Me.XtraTabPage1.Controls.Add(Me.Label2) + Me.XtraTabPage1.Controls.Add(Me.lbGroups) + Me.XtraTabPage1.Controls.Add(Me.Label1) + Me.XtraTabPage1.Controls.Add(Me.btnAddUserToGroup) + Me.XtraTabPage1.Controls.Add(Me.cmbGroup) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(787, 170) + Me.XtraTabPage1.Text = "User-Gruppenzuordnung" + ' + 'btnRemoveUserFromGroup + ' + Me.btnRemoveUserFromGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btnRemoveUserFromGroup.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRemoveUserFromGroup.Location = New System.Drawing.Point(387, 45) + Me.btnRemoveUserFromGroup.Name = "btnRemoveUserFromGroup" + Me.btnRemoveUserFromGroup.Size = New System.Drawing.Size(321, 23) + Me.btnRemoveUserFromGroup.TabIndex = 5 + Me.btnRemoveUserFromGroup.Text = "Benutzer aus Gruppe entfernen" + Me.btnRemoveUserFromGroup.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(11, 48) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(127, 13) + Me.Label2.TabIndex = 4 + Me.Label2.Text = "Zugewiesene Gruppen:" + ' + 'lbGroups + ' + Me.lbGroups.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lbGroups.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.lbGroups.FormattingEnabled = True + Me.lbGroups.Location = New System.Drawing.Point(145, 45) + Me.lbGroups.Name = "lbGroups" + Me.lbGroups.Size = New System.Drawing.Size(236, 108) + Me.lbGroups.TabIndex = 3 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(11, 21) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(117, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Verfügbare Gruppen:" + ' + 'btnAddUserToGroup + ' + Me.btnAddUserToGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnAddUserToGroup.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUserToGroup.Location = New System.Drawing.Point(387, 16) + Me.btnAddUserToGroup.Name = "btnAddUserToGroup" + Me.btnAddUserToGroup.Size = New System.Drawing.Size(321, 23) + Me.btnAddUserToGroup.TabIndex = 1 + Me.btnAddUserToGroup.Text = "Ausgewählten Benutzer zu Gruppe hinzufügen" + Me.btnAddUserToGroup.UseVisualStyleBackColor = True + ' + 'cmbGroup + ' + Me.cmbGroup.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.cmbGroup.DisplayMember = "NAME" + Me.cmbGroup.FormattingEnabled = True + Me.cmbGroup.Location = New System.Drawing.Point(145, 18) + Me.cmbGroup.Name = "cmbGroup" + Me.cmbGroup.Size = New System.Drawing.Size(236, 21) + Me.cmbGroup.TabIndex = 0 + Me.cmbGroup.ValueMember = "GUID" + ' + 'TBDD_USER_GROUPSBindingSource + ' + Me.TBDD_USER_GROUPSBindingSource.DataMember = "TBDD_USER_GROUPS" + Me.TBDD_USER_GROUPSBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TabGruppendefinition + ' + Me.TabGruppendefinition.Controls.Add(Me.ListBox1) + Me.TabGruppendefinition.Controls.Add(GUIDLabel1) + Me.TabGruppendefinition.Controls.Add(Me.GUIDTextBox1) + Me.TabGruppendefinition.Controls.Add(NAMELabel1) + Me.TabGruppendefinition.Controls.Add(Me.NAMETextBox1) + Me.TabGruppendefinition.Controls.Add(ADDED_WHOLabel1) + Me.TabGruppendefinition.Controls.Add(Me.ADDED_WHOTextBox1) + Me.TabGruppendefinition.Controls.Add(ADDED_WHENLabel1) + Me.TabGruppendefinition.Controls.Add(Me.ADDED_WHENTextBox1) + Me.TabGruppendefinition.Controls.Add(CHANGED_WHOLabel1) + Me.TabGruppendefinition.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.TabGruppendefinition.Controls.Add(CHANGED_WHENLabel1) + Me.TabGruppendefinition.Controls.Add(Me.CHANGED_WHENTextBox1) + Me.TabGruppendefinition.Controls.Add(Me.BindingNavigator1) + Me.TabGruppendefinition.Name = "TabGruppendefinition" + Me.TabGruppendefinition.Size = New System.Drawing.Size(787, 170) + Me.TabGruppendefinition.Text = "Gruppendefinition" + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.ListBox1.DisplayMember = "NAME" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(9, 38) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(120, 121) + Me.ListBox1.TabIndex = 13 + Me.ListBox1.ValueMember = "GUID" + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "GUID", True)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(138, 54) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.Size = New System.Drawing.Size(54, 22) + Me.GUIDTextBox1.TabIndex = 2 + ' + 'NAMETextBox1 + ' + Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "NAME", True)) + Me.NAMETextBox1.Location = New System.Drawing.Point(203, 54) + Me.NAMETextBox1.Name = "NAMETextBox1" + Me.NAMETextBox1.Size = New System.Drawing.Size(278, 22) + Me.NAMETextBox1.TabIndex = 4 + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(138, 95) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(163, 22) + Me.ADDED_WHOTextBox1.TabIndex = 6 + ' + 'ADDED_WHENTextBox1 + ' + Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(307, 95) + Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" + Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(174, 22) + Me.ADDED_WHENTextBox1.TabIndex = 8 + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(138, 137) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(163, 22) + Me.CHANGED_WHOTextBox1.TabIndex = 10 + ' + 'CHANGED_WHENTextBox1 + ' + Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(307, 137) + Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" + Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(174, 22) + Me.CHANGED_WHENTextBox1.TabIndex = 12 + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.ToolStripButton1 + Me.BindingNavigator1.BindingSource = Me.TBDD_USER_GROUPSBindingSource + Me.BindingNavigator1.CountItem = Me.ToolStripLabel1 + Me.BindingNavigator1.DeleteItem = Me.ToolStripButton2 + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripButton9}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton3 + Me.BindingNavigator1.MoveLastItem = Me.ToolStripButton6 + Me.BindingNavigator1.MoveNextItem = Me.ToolStripButton5 + Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton4 + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.ToolStripTextBox1 + Me.BindingNavigator1.Size = New System.Drawing.Size(787, 25) + Me.BindingNavigator1.TabIndex = 1 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "Neu hinzufügen" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(44, 22) + Me.ToolStripLabel1.Text = "von {0}" + Me.ToolStripLabel1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "Löschen" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "Erste verschieben" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.AccessibleName = "Position" + Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox1.Text = "0" + Me.ToolStripTextBox1.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton5.Text = "Nächste verschieben" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton6.Text = "Letzte verschieben" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image) + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton7.Text = "Daten speichern" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton8.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton8.Text = "ToolStripButton1" + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton9.Image = Global.DD_Record_Organiser.My.Resources.Resources.benutzer3 + Me.ToolStripButton9.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.Size = New System.Drawing.Size(176, 22) + Me.ToolStripButton9.Text = "Benutzer aus AD hinzufügen" + ' + 'VWPMO_USERS_GROUPSBindingSource + ' + Me.VWPMO_USERS_GROUPSBindingSource.DataMember = "VWPMO_USERS_GROUPS" + Me.VWPMO_USERS_GROUPSBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBDD_USER_GROUPSTableAdapter + ' + Me.TBDD_USER_GROUPSTableAdapter.ClearBeforeFill = True + ' + 'VWPMO_USERS_GROUPSTableAdapter + ' + Me.VWPMO_USERS_GROUPSTableAdapter.ClearBeforeFill = True + ' + 'frmUserKonfig + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoScroll = True + Me.ClientSize = New System.Drawing.Size(801, 489) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.lbUsers) + Me.Controls.Add(GUIDLabel) + Me.Controls.Add(Me.GUIDTextBox) + Me.Controls.Add(PRENAMELabel) + Me.Controls.Add(Me.PRENAMETextBox) + Me.Controls.Add(NAMELabel) + Me.Controls.Add(Me.NAMETextBox) + Me.Controls.Add(USERNAMELabel) + Me.Controls.Add(Me.USERNAMETextBox) + Me.Controls.Add(EMAILLabel) + Me.Controls.Add(Me.EMAILTextBox) + Me.Controls.Add(Me.LOGGED_INCheckBox) + Me.Controls.Add(LOGGED_WHERELabel) + Me.Controls.Add(Me.LOGGED_WHERETextBox) + Me.Controls.Add(LOG_IN_WHENLabel) + Me.Controls.Add(Me.LOG_IN_WHENTextBox) + Me.Controls.Add(LOG_OUT_WHENLabel) + Me.Controls.Add(Me.LOG_OUT_WHENTextBox) + Me.Controls.Add(Me.RECORG_ADMINCheckBox) + Me.Controls.Add(ADDED_WHOLabel) + Me.Controls.Add(Me.ADDED_WHOTextBox) + Me.Controls.Add(ADDED_WHENLabel) + Me.Controls.Add(Me.ADDED_WHENTextBox) + Me.Controls.Add(CHANGED_WHOLabel) + Me.Controls.Add(Me.CHANGED_WHOTextBox) + Me.Controls.Add(CHANGED_WHENLabel) + Me.Controls.Add(Me.CHANGED_WHENTextBox) + Me.Controls.Add(Me.TBDD_USERBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmUserKonfig" + Me.Text = "Benutzer Konfiguration" + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_USERBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_USERBindingNavigator.ResumeLayout(False) + Me.TBDD_USERBindingNavigator.PerformLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabGruppendefinition.ResumeLayout(False) + Me.TabGruppendefinition.PerformLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_USERBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBDD_USERBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents PRENAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents USERNAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAILTextBox As System.Windows.Forms.TextBox + Friend WithEvents LOGGED_INCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents LOGGED_WHERETextBox As System.Windows.Forms.TextBox + Friend WithEvents LOG_IN_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents LOG_OUT_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents RECORG_ADMINCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents lbUsers As System.Windows.Forms.ListBox + Friend WithEvents tsAddUser As System.Windows.Forms.ToolStripButton + Friend WithEvents tbRefreshUsers As System.Windows.Forms.ToolStripButton + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TBDD_USER_GROUPSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_USER_GROUPSTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnAddUserToGroup As System.Windows.Forms.Button + Friend WithEvents cmbGroup As System.Windows.Forms.ComboBox + Friend WithEvents VWPMO_USERS_GROUPSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_USERS_GROUPSTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter + Friend WithEvents lbGroups As System.Windows.Forms.ListBox + Friend WithEvents btnRemoveUserFromGroup As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents TabGruppendefinition As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton9 As System.Windows.Forms.ToolStripButton + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmUserKonfig.resx b/app - Kopie/DD-Record-Organiser/frmUserKonfig.resx new file mode 100644 index 0000000..e3421e7 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmUserKonfig.resx @@ -0,0 +1,775 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 160, 17 + + + 355, 17 + + + 544, 17 + + + 717, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 929, 17 + + + 793, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 259, 56 + + + 1176, 17 + + + 529, 56 + + + 140 + + + + AAABAAkAMDAQAAAAAABoBgAAlgAAACAgEAAAAAAA6AIAAP4GAAAQEBAAAAAAACgBAADmCQAAMDAAAAEA + CACoDgAADgsAACAgAAABAAgAqAgAALYZAAAQEAAAAQAIAGgFAABeIgAAMDAAAAEAIACoJQAAxicAACAg + AAABACAAqBAAAG5NAAAQEAAAAQAgAGgEAAAWXgAAKAAAADAAAABgAAAAAQAEAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIAAAAAAAACAgACAAAAAgACAAICAAADAwMAAgICAAAAA/wAA/wAAAP//AP8A + AAD/AP8A//8AAP///wAiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi + IiIiIiIiIiIiIiIiIiAAAyIiIiIiIiIiIiIiIiIiIiIiIiIiIgAAADIiIiIiIiIiIiIiIiIiIiIiIiIi + IAC7sAMiIiIiIiIiIiIiIiIiIiIiIiIiIAsHuwAyIiIiIiIiIiIiIiIiIiIiIiIiILuAe7ADIiIiIiIi + IiIiIiIiLMAAAAAAALO4B7sAMiIiIiIiIiIiIiLAAADMZmZmwLs7gHuwAyIiIiIiIiIiLAAAxmZmzMzM + wACzuAe7ADIiIiIiIiIsAAZmzMzMzMzMAAC7u4B7sAMzMzMzIiLABszMzMzMzMzAAAAAC7gHuwAAAAAA + MiIAbMzMzMAAAAwAAAAACzuAe7gzMzMwAyIGzMzMAAODcwAAABEAC7u4C7u7u7uzADIAzMwAODc3NzAB + GRkQAAC7uwuwi7u7MAMgDMCDc3Nzc4ARERERAAALsLsIu3i7swMiAMA3Nzc3NwABODg4AiILC7CLtxe7 + swMiIABzc3NzgwODg4OAIiILuwi7cHu7swMiIgA3Nzc3OAg4ODgCIiILsIu3F7u7swMiIiADc3OAAAAA + g4AiIiILCLtwe3d3swMiIiAINzg4Nzc3CDAiIiI7i7cXswADswMiIiADg3Nzc3N3A4AiIiI7u3B7MIIg + swMiIgAACDc3Nzc3AAAAACI7txe7MIIDswMiIAAAAHNzc3ODA4ODgwI7uHu7MIA7sDIiAAAAADc4Nzc3 + CDg4OAIju7u7MwO7AyIiAAAAA3ODc3NzAIODgwIiO7u7u7uwMiIgAAAIdzc3N3c3Nwg4MAIiI7u7u7sD + IiIAAAADc4Nzd3NzcwODgwIiIjMzMzMyIiIAAAAHdzc3d3c3MDg4OAAiIiIiIiIiIiIAAAADc3Nzc3Nz + cIODg4MCIiIiIiIiIiIAAAAANzg3NzA3MDg4ODgCIiIiIiIiIiIAAAAAAACDc3AAAIODg4AiIiIiIiIi + IiIAAAAAAAA4Nzc3ADg4ODAiIiIiIiIiIiIAAAAAAAADc3NzcIOAg4AiIiIiIiIiIiIAAAAAAAAANzc3 + cDgwAAgiIiIiIiIiIiIAAAAAAAAAA3NzcIODgwgiIiIiIiIiIiIAAAAAAAAAADc3MDg4OAgiIiIiIiIi + IiIgAAAAAAAAAAAAAIODg4AiIiIiIiIiIiIgAAAAAAAAAAAAADg4ODAiIiIiIiIiIiIiAAAAAAAAAAAA + AACDg4ACIiIiIiIiIiIiIAAAAAAAAAAAAAAAAAACIiIiIiIiIiIiIgAAAAAAAAAAAAAAAAACIiIiIiIi + IiIiIiIAAAAAAAAAAAAAAAACIiIiIiIiIiIiIiIiIiAAAAAAAAAAAAAiIiIiIiIiIiIiIiIiIiIAAAAA + AAAAACIiIiIiIiIiIiIiIiIiIiIiAAAAAAAAIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi + IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiL///////8AAP///////wAA///+D///AAD///wH//8AAP// + +AP//wAA///4Af//AAD///gA//8AAP+AAAB//wAA/AAAAD//AADgAAAAH/8AAIAAAAAADwAAAAAAAAAH + AAAAAAAAAAMAAAAAAAAAAQAAAAAAAAAAAACAAAAAAAAAAMAAABwAAAAA4AAAPAAAAADwAAB8AAAAAPgA + APwAAAAA+AAA/AAAAAD4AAD8AGAAAPAAAAwAQAAA4AAABAABAADAAAAGAAMAAMAAAAcABwAAgAAAB4AP + AAAAAAAHwB8AAAAAAAP//wAAAAAAAf//AAAAAAAB//8AAAAAAAP//wAAAAAAA///AAAAAAAD//8AAAAA + AAP//wAAAAAAA///AAAAAAAD//8AAIAAAAP//wAAgAAAA///AADAAAAB//8AAOAAAAH//wAA8AAAAf// + AAD8AAAB//8AAP/gAAP//wAA//AAD///AAD//AA///8AAP///////wAA////////AAAoAAAAIAAAAEAA + AAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAICAAIAAAACAAIAAgIAAAMDA + wACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////ACIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIAAy + IiIiIiIiIiIiIiIiIgCIAyIiIiIiIiIiIiIiIiIHC4AyIiIiIiIiIiiAAAAAC3C4AyIiIiIiIoAAAAzM + zAC3C4AyIiIiIoAADMzMzMABAHC4AzMzMiIADMzAAMwAERC3C4AAAAMiDMzAA4MAARGRALC7u7uAMiDM + CDc3MAhziRALsws7uAMgAHdzeAGDhzAiCzCzC7sDIgA3N4MAOHMCIgsLMLu7AyIgA3MBAQOAIiI7swgA + iwMiIAc3g4dwMCIiOzCwggsDIgAAd3d38AAAIjt7sIC7gyAAAAd3dzE4NwIju7gLuDIgAAB3c3dwA4cC + Iju7u4MiAAAHdzd/d3A4EiIjMzMyIgAAB3d3938DgwAiIiIiIiIAAAA3d3B3CHdzAiIiIiIiAAAAADdx + AAd3MCIiIiIiIgAAAAADd3ADCHAiIiIiIiIAAAAAADf3CBADIiIiIiIiAAAAAAADdwN3CCIiIiIiIiAA + AAAAAAAIc3AiIiIiIiIgAAAAAAAAADcwAiIiIiIiIgAAAAAAAAAAAAIiIiIiIiIiAAAAAAAAAAACIiIi + IiIiIiIgAAAAAAAAIiIiIiIiIiIiIiAAAAAAIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi + IiIiIiIi///////+H////A////wH//gAA//AAAH/AAAABwAAAAMAAAABgAAAAIAAMADAAHAA4ADwAOAA + 8BDAADAAgAAYAYAAHAMAAB4HAAAP/wAAB/8AAA//AAAP/wAAD/8AAA//gAAP/4AAB//AAAf/8AAH//4A + D///gD////////////8oAAAAEAAAACAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + gAAAAAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////ACIi + IiIAMiIiIiIiIDsDIiIiDMRAsLAyIgzMzMwLCwAyDMAAABCwuwMAB3ARkjuzsCB3gAAiOzCwIgh3cAA7 + uzMgBzdwhwMzMgB3f3cIAiIiAHd3AHOIIiIAAHfwMAIiIgAAB3CHAiIiAAAAADgAIiIgAAAAAAAiIiIg + AAAAAiIi/x/AA/4PARHAB7C7AAGAMgAACDcAQAhzgMALs8AAuAOAAXdzAB+DhwAPCzAAH7sDAB83NwAP + OHOADwsL4B+7AygAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////ABEM + aQAAAAAANBpLAAAAAAB/TG4AYF5eAP1lVAD8ZFMA/WZVAPljUAD9alcA/WtYAL+LhADnWD4A711GAP1y + XAD9dV4A/XhgAPFoTgDzbVMA/XxkANxRMQD4e18A/YRpANJMJwDvdlYA/IttAP2OcADNSCEA4GZCALFl + TQD+knIAwEATAKU/GQDSXDIA1WI3AOuAWQD5km8At0YbAMVXKwDMXS8At1cxAH5AJwCFRy4A6Zp6AGxV + TACMUDYA13RFAGpjXwDViFUAbUkxAP+/kQCsZSsA7riKAJpYGQD/798A/8+cAP/ZpgDf0bwAhWAaAP3j + sAD/9+gAkXkwAP//8gD///wAv9msAICrZwDP4sUAcKlfAEiQNwBtxGIAespvAEyZRgBqqWYAL5gtAAqF + CgAWihYAGpYaAB6PHgAZdxkAKa0pACOQIwAbaBsAPLc8AEO7QwBAs0AAJWYlADmaOQBKvkoAT8FPAESm + RABSwlIATbNNAFC4UABWxFYAW8VbAGPKYwBpzWkAb9FvAGfAZwBFfkUAddJ1AHHLcQB813wAj+CPAICz + gAA1WTgAn7CkADd9VwACaHYAaZquABNyogAYdqYAF2OKACBggQAsWG8AE1+IACR+rgA5n9kAOou3AD+V + wwBHn9AAV6nXAGOr0gCezOYAo9DqAA1zswAkfbYAIm6dAD2i3wBNs/IAU7n5AHq74QCEwOQAlMjnAJfK + 6ACezekAFXm6ACOFxgBDqO0AUbf/AFW7/wBWvP8AWmBkABuBzQAfhdQAS7H/AE2z/wBOtP8AQnOZACeM + 4gAtkuYARKn/AESq/wBHrf8ASa//ACyS8QA6oP8APKH/AD2i/wBApv8AQ6j/ADKW/AAylfsAM5n/ADWb + /wA3nf8AEliiAC+M8wAxkfkANpT3AAkSHAAXY7oAKnziAC2C6gAndNoAJnHXACl64AAod90AIWK1ACNo + zgAkatAAFlOwAB5fwgAgYMYAImXLABBCngAcVrwAI2jdAB5awAAQLFsADhksABtRtwAaTbMADSloAB1W + 0gAWQZ4AGUiuAAUpgwAUP6QAFDyiABQ6oAASNZsADCV+AA8tkwAQL5UABQcOAAgdbAANJo0ABxVbAAYY + ewAuNFcAHyApAAQMcgABAhUAAQRqAKSkpACXl5cAj4+PAISEhAB+fn4AcXFxAG1tbQBmZmYAVFRUAE1N + TQBKSkoARkZGAD8/PwA4ODgANjY2AC8vLwAsLCwAKioqACgoKAAkJCQAISEhAB8fHwAcHBwAGhoaABgY + GAAXFxcAEhISAA0NDQAKCgoAAgICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF4ODhMuEy4TIy4TLh4eDg + 4ODgBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQXg4SMsIiMiIyIjIiMjIywsNC/h4eAFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBeAoIiIeGhcPFxALCwkQDyIiIiIjIzTg4QUFBQUFBeDg4ODg4ODg4ODg + 4AUFBQUFBSsiIhoaFw8QCwgIDAwNDygiEAsPGiIjNODg4eEH4eJsWGxYbFhsWGxs4+HgBQUFBSseGhoP + DwsJDA0RERERIjcpDwoJCxcaIjRYVE1UVE1QU1NTU05OT01NTVRY4AUFBSsoGg8XCwkMERMWFhYaKz4z + HhENCAsPFyJRWVZbTU1fWltbVlZVUlJST09N4uAFBTMiFw8LCA0RFhYZGTEoOz47IhYRDQkLDyJKW11Z + TFFZYGFdXVtWVlJSUk9NbOAFBTEiDxAJDRETGRkdGSIuPj4+KxQWEQ0IDyJKYGFObUNNYmJiYF1bVlZV + UlJNWOAFBQUjFwsMERYZGR0hHio7Ozs7MxcZFhEMECJGYWJUPkFKU2hjY2JgXVZWVVJNbOAFBQUxIgsN + ExYZHSEqKTo7Ozs7MykZFhMNCyJiZF9TPz85UV5oZGNiYFtWVVJN4OAFBQUFKx4RFhkdJyYiNzU6OjU6 + Lh4dGRYRFzhkZ1lrQUFBbU1oaWdjYmFbVlJU4AUFBQUFBSIXFhkdJiImNzo3NTo6LiIdGRMfIkRnZ05D + QkJCQmtRaWlkYmFdVk1m4AUFBQUFBQUrKSYbIjEOIAYGDiE3NyIdGR8iQGdpalQ/AQEBAT9TSmlnZGJg + UFTgBQUFBQUFBQUFMTEiIwTX2dfZ19kGJiIxKCNGSGdpak0/Pz8/Pz9DVF5pZGJMVOEFBQUFBQUFBQUF + 4OnvwdPU0tLS0s3ZBCMjIFRcZ2lqaFQ5OTk+OTk+alRlZ0xU4AUFBQUFBQUFBQX1APf3AADTz8/Pz8/S + 1wIFBQVUTmVqZVM+bXdxcXF320RNUVTgBQUFBQUFBQUF8AD29/YA0NPNzMvLy8vMz9nVBQUFTVROWU13 + gJKSkpKSgHZUWOAFBQUFBQUFBQXw9/b19fatzMfHx8fHx8fHy87XBQUFBQUFZnaLk5iTmJOTmJJx4+AF + BQUFBQUFBQX39fX09ADOx8PDw8PDw8PDw8fU1QUFBQUFl5KYmZmenpmZmJiScePgBQUFBQUFBQD19PTw + 9K3Dw729vb25vb29vcPSxAUFBQUFgKWmpqampqampqWeknbgBQUFBQUFBfb08PDw9MC9vbm7u7u7u7u5 + ub3HyAUFBQWAnqenqKioqKiop6empot14AUFBQUFBfXw8O3t9NG6u7q3t7e3t7e3u7q6zcgFBQWAqJ+f + oaGhoaGhn5+op6V24AUFBQUFBfTt7err8cG3t7KytLS0tLSysre7yMgFBQWAoaGhoqKioqKioaGhn5+L + deAFBQUFBfDt6uvo6q2ytLSvsLCwsK+wtLKyvMgFBZeeoqObm5ycnJubo6OioaGYdeAFBQUFBfTq6+jo + 5/e7r7CqqqqqqqqwsLC0vHYFBXmNm5ydnZSUlJSdnZybo6KhduAFBQUFBfTo6Ojn5vHIqqqmpqanpqal + qrCwvMgFBZebnZWVlpaOjpaWlZWdnKOigOAFBQUFBfbo6ebl5ujQtLCqqqefn6inpqWeyAUFBXmUlY6O + j5CQkJCOjo6VlJybkuAFBQUFBfDq5ubl5OTxwcvDt7exsKunpqaYyAUFBZeWjo+QkJCQkJCQkI6OlpWd + kuAFBQUFBQX15uXk4uPi6vT2rdHJvcW3t7LA8gUFBXmNkJCQkJCQkJCQkJCPjpaVi+AFBQUFBQX16OTk + 5uIH4N/f5vHY08TUxK0A6AUFBZeDkJB4jIt4m5WWjo6OlpSMceAFBQUFBQUF9uTi4uLh393a2tsH6fD0 + 8Or3BQUFBXmMjHGLenqMcYuTmKekmItyduAFBQUFBQUF9fXiB+Hg393b2kNt3d8H5PTtBQUFBQVxcXKM + eHx8fYZ6eXFyd3dxc+AFBQUFBQUFBfX04uHf3t3d3Nra294H6/YFBQUFBQUFcXp6fHx9h4d/f399cIGA + dAUFBQUFBQUFBQX19eLe3dzb3d7f4OLt9gUFBQUFBQUFcXp8fX2Hh35/f4d8end24AUFBQUFBQUFBQUF + BfXw4t7b3eDk7vbmBQUFBQUFBQUFBXF8fYeHiYeHfXx8enGXBQUFBQUFBQUFBQUFBQUF9fUAAPXoBQUF + BQUFBQUFBQUFBQVxfYd+f4qHh318cnkFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + cXmHf39+fHdyBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBXmXeZd5l3kFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUF////////AAD///////8AAP///////wAA////////AAD///////8AAP// + /////wAA4AAH////AADAAAH///8AAIAAAH4AHwAAgAAAAAAHAACAAAAAAAMAAIAAAAAAAQAAgAAAAAAB + AACAAAAAAAEAAMAAAAAAAQAAwAAAAAABAADgAAAAAAMAAPAAAAAAAwAA+AAAAAAHAAD8AAAAAA8AAPwA + AAAAHwAA+AAOAAA/AADgAAcAAH8AAMAAB+AAfwAAwAAD4AA/AACAAAPgAD8AAIAAA8AAHwAAgAABwAAf + AACAAAHAAA8AAIAAAYAADwAAgAABgAAPAACAAAGAAA8AAIAAA4AADwAAgAADgAAPAADAAAOAAA8AAMAA + A4AADwAA4AAHgAAPAADgAAfAAA8AAPAAD+AAHwAA+AAf4AAfAAD+AD/wAD8AAP+B//gAfwAA/////AH/ + AAD////+A/8AAP///////wAA////////AAD///////8AAP///////wAAKAAAACAAAABAAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AEQxpAAAAAAA0GksATCFPAH9MbgBgXl4A/WVUAPxk + UwD9ZlUA+WNQAP1qVwD9a1gAv4uEAOdYPgDvXUYA/XJcAP11XgD9eGAA8WhOAPNtUwD9fGQA3FExAPh7 + XwD9hGkA0kwnAO92VgD8i20A/Y5wAM1IIQDgZkIAsWVNAP6ScgDAQBMApT8ZANJcMgDVYjcA64BZAPmS + bwC3RhsAxVcrAMxdLwC3VzEAfkAnAIVHLgDpmnoAbFVMAIxQNgDXdEUAamNfANWIVQBtSTEA/7+RAKxl + KwDuuIoAmlgZAP/v3wD/z5wA/9mmAN/RvACFYBoA/eOwAP/36ACReTAA///yAP///AC/2awAgKtnAM/i + xQBwqV8ASJA3AG3EYgB6ym8ATJlGAGqpZgAvmC0ACoUKABaKFgAalhoAHo8eABl3GQAprSkAI5AjABto + GwA8tzwAQ7tDAECzQAAlZiUAOZo5AEq+SgBPwU8ARKZEAFLCUgBNs00AULhQAFbEVgBbxVsAY8pjAGnN + aQBv0W8AZ8BnAEV+RQB10nUAcctxAHzXfACP4I8AgLOAADVZOACfsKQAN31XAAJodgBpmq4AE3KiABh2 + pgAXY4oAIGCBACxYbwATX4gAJH6uADmf2QA6i7cAP5XDAEef0ABXqdcAY6vSAJ7M5gCj0OoADXOzACR9 + tgAibp0APaLfAE2z8gBTufkAervhAITA5ACUyOcAl8roAJ7N6QAVeboAI4XGAEOo7QBRt/8AVbv/AFa8 + /wBaYGQAG4HNAB+F1ABLsf8ATbP/AE60/wBCc5kAJ4ziAC2S5gBEqf8ARKr/AEet/wBJr/8ALJLxADqg + /wA8of8APaL/AECm/wBDqP8AMpb8ADKV+wAzmf8ANZv/ADed/wASWKIAL4zzADGR+QA2lPcACRIcABdj + ugAqfOIALYLqACd02gAmcdcAKXrgACh33QAhYrUAI2jOACRq0AAWU7AAHl/CACBgxgAiZcsAEEKeABxW + vAAjaN0AHlrAABAsWwAOGSwAG1G3ABpNswANKWgAHVbSABZBngAZSK4ABSmDABQ/pAAUPKIAFDqgABI1 + mwAMJX4ADy2TABAvlQAFBw4ACB1sAA0mjQAHFVsABhh7AC40VwAfICkABAxyAAECFQABBGoApKSkAJeX + lwCPj48AhISEAH5+fgBxcXEAbW1tAGZmZgBUVFQATU1NAEpKSgBGRkYAPz8/ADg4OAA2NjYALy8vACws + LAAqKioAKCgoACQkJAAhISEAHx8fABwcHAAaGhoAGBgYABcXFwASEhIADQ0NAAoKCgACAgIAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAODg4ODg4ODg4OAAAAAAAAAAAAAAAAAA + AAAAAAAAAODgMC0tLS0tLTQvMuDg4AAAAAAAAAAAAAAAAAAAAAAAKyIaFw8QCwgIHhoaIywv4ODg4ODg + 4ODg4ODg4OAAAAAiGhcQCQwREhQzKgoLDyI0WFhUUVNQUFBOUVRs4OAAACIXEAoRExYZKT4zFQwJEDhX + W0xTXV1aVlVSUk1R4AAAKQ8JERMZHCU3PjcfEwwLNmBhRkReYmFdVlVST1HgAAAqDw0TGSEmMzs7OyQZ + Ego2Y1xDP0pnY2JgVlVPUeAAAAAqGxYcJyo6Ojo6MRwTFEBnWUFBRVlpZGJbVVHgAAAAAAAlGxwqLg4O + NzUxHRgoSWlLQgEBa2VpY2FMUQAAAAAAAAAgKAXZ19cCBiQkPUhpaks/Pzk5SmhkX2YAAAAAAAAA5PL3 + 2M3Pz87UBAdLWWRqRDxweXBtR1xmAAAAAAAAAPT29tDEzMrKysvU1QAASkpugJKTkotvbOAAAAAAAADy + 9fT1xMfHw8PDx8nRAAAAAACenp6enpN2B+AAAAAAAPTz8fXCvb+/ub+9vcipAACBpqenp6empph14AAA + AADw8e/twbq7tre3t7u7vHUAcZigoKCgoKCfqIuR4AAAAPDu7Orzt7G0s7OztLK41QBxoaOam5ubo6Kh + mXXgAAAA8Ovp6O21sKqrpauqr7l1AHGbnJSUlJSdnJqidOAAAADw6+fm5sCqq6efp6akrnUAcZSVjo6O + jpaVnZuC4AAAAADw5uXj6sDGxb6wrKupqQBxjo+QkJCQj46WlIvgAAAAAOvm5OQH4ePW09LMxK0AAHGQ + hYN4hI6QhY6NceAAAAAAAOvi4uHd29rf5enr5gAAcYtxjHp5jJKTjHdzAAAAAAAAAO4H393c2tre5PEA + AACLcXp7fIaJfn16cpcAAAAAAAAAAOzh3Nvd4OXpAAAAAABxeXyGh4p+fXpxAAAAAAAAAAAAAOzs7Ozs + 7AAAAAAAAABxe4h/iIZ8dwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABxcXFxcXEAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////+AH//+AAP//gAAAA4AA + AAGAAAABgAAAAYAAAAHAAAAD4AAAB/AAAA/gAAAfwAMAH4AD4A+AAYAPAAEABwABAAcAAQAHAAEAB4AB + AAeAAwAHwAMAD+AHAA/wD4Af+B/AP///4H////////////////8oAAAAEAAAACAAAAABAAgAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wARDGkAAAAAADQaSwBMIU8Af0xuAGBeXgD9ZVQA/GRTAP1m + VQD5Y1AA/WpXAP1rWAC/i4QA51g+AO9dRgD9clwA/XVeAP14YADxaE4A821TAP18ZADcUTEA+HtfAP2E + aQDSTCcA73ZWAPyLbQD9jnAAzUghAOBmQgCxZU0A/pJyAMBAEwClPxkA0lwyANViNwDrgFkA+ZJvALdG + GwDFVysAzF0vALdXMQB+QCcAhUcuAOmaegBsVUwAjFA2ANd0RQBqY18A1YhVAG1JMQD/v5EArGUrAO64 + igCaWBkA/+/fAP/PnAD/2aYA39G8AIVgGgD947AA//foAJF5MAD///IA///8AL/ZrACAq2cAz+LFAHCp + XwBIkDcAbcRiAHrKbwBMmUYAaqlmAC+YLQAKhQoAFooWABqWGgAejx4AGXcZACmtKQAjkCMAG2gbADy3 + PABDu0MAQLNAACVmJQA5mjkASr5KAE/BTwBEpkQAUsJSAE2zTQBQuFAAVsRWAFvFWwBjymMAac1pAG/R + bwBnwGcARX5FAHXSdQBxy3EAfNd8AI/gjwCAs4AANVk4AJ+wpAA3fVcAAmh2AGmargATcqIAGHamABdj + igAgYIEALFhvABNfiAAkfq4AOZ/ZADqLtwA/lcMAR5/QAFep1wBjq9IAnszmAKPQ6gANc7MAJH22ACJu + nQA9ot8ATbPyAFO5+QB6u+EAhMDkAJTI5wCXyugAns3pABV5ugAjhcYAQ6jtAFG3/wBVu/8AVrz/AFpg + ZAAbgc0AH4XUAEux/wBNs/8ATrT/AEJzmQAnjOIALZLmAESp/wBEqv8AR63/AEmv/wAskvEAOqD/ADyh + /wA9ov8AQKb/AEOo/wAylvwAMpX7ADOZ/wA1m/8AN53/ABJYogAvjPMAMZH5ADaU9wAJEhwAF2O6ACp8 + 4gAtguoAJ3TaACZx1wApeuAAKHfdACFitQAjaM4AJGrQABZTsAAeX8IAIGDGACJlywAQQp4AHFa8ACNo + 3QAeWsAAECxbAA4ZLAAbUbcAGk2zAA0paAAdVtIAFkGeABlIrgAFKYMAFD+kABQ8ogAUOqAAEjWbAAwl + fgAPLZMAEC+VAAUHDgAIHWwADSaNAAcVWwAGGHsALjRXAB8gKQAEDHIAAQIVAAEEagCkpKQAl5eXAI+P + jwCEhIQAfn5+AHFxcQBtbW0AZmZmAFRUVABNTU0ASkpKAEZGRgA/Pz8AODg4ADY2NgAvLy8ALCwsACoq + KgAoKCgAJCQkACEhIQAfHx8AHBwcABoaGgAYGBgAFxcXABISEgANDQ0ACgoKAAICAgAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA39/f4ODg4OAAAAAAAAAA4CAwMDAw + LzLf4ODg4N/f4B8XCxEUMRQabGxMR0xYbOAzCxYcMzoVDEBeS2JdVVPgAB8ZJjo6Gw1EazleZ1tH4AAA + IAXVBiBAaWo/Q2FcAAAA89DEy8/R4kuXi4Fu4wAA5vHAw73Cz+JwnqamnnXdAPTszrGysr+ReqKioqGM + 4ADq6HWrpqy3kXuUlJWdmeEA4OTm5cm6dt58hISPjo3gAADn4dza4+UAfYF8fXtxcAAAAOAHB+EAAAB5 + h397cAAAAAAAAAAAAAAAAHl5eQAAAAAAAAAAAAAAAAAAAAAAAAD//xcQgH8TFgAAPjMAAAkQAABbTIAA + XVrAA1JSgAPgAAABDwkAARkcAAE+NwABDAuBAWFGw4NiYf/HVVL//+AAKAAAADAAAABgAAAAAQAgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAcAAAATAAAAHgAAACUAAAAsAAAALwAA + AC8AAAAvAAAALwAAAC8AAAAvAAAALgAAACkAAAAkAAAAHwAAABgAAAARAAAACQAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEAAAADEAAABVAAAAbQAA + AHwAAACJAAAAjwAAAI8AAACPAAAAjwAAAI8AAACPAAAAjAAAAIMAAAB5AAAAbgAAAGEAAABSAAAAQAAA + AC4AAAAfAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKA0BRm0i + ArWIKgLijy0C67A3A/+wNwP/sDcD/7A3A/+wNwP/sDcD/7A3A/+wNwP/nzID944sAu2FKgLnaSEC11Qa + AckwDwGyAAAAlwAAAIcAAABwAAAAUAAAAC0AAAARAAAABAAAAAAAAAAAAAAAAQAAAAQAAAAKAAAADwAA + ABUAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFQAAAA0AAAAGAAAAAQAAAAAAAAAAAAAAAAAA + AAB8JwJErDYD9bk8DP/AQBT/ykcf/9RNKf/dUjL/4lU4/+hYPv/uXET/9WBL//diTv/6Y1H/7lxE/+pa + QP++PxH/uTwM/8VDGf+0OQf/qDQD+4UpAulSGgHNAAAAnQAAAH0AAABPAAAAKAAAABwAAAAiAAAALAAA + ADcAAABDAAAATQAAAFkAAABfAAAAXwAAAF8AAABfAAAAXwAAAF8AAABfAAAAWQAAAEoAAAA6AAAAJwAA + ABEAAAAEAAAAAAAAAACjMwOsuj0N/8lGHv/RSyb/104s/+FUNv/lVzv/8F1G//hiT//9ZVT//WZV//1p + V//9alj//WpY/+pdQv+1Qw//tToI//hiT//4Yk//6lk//9BKJf+2Owr/nzID90UWAcwAAACYAAAAdQAA + AGgAAAB2AAwAjwAmAK0AJACzAD8AzwA+ANIAPgDTAD4A0wA+ANMAPgDTAD4A0wA+ANMAPgDTACMAuwAT + AKkAAACSAAAAegAAAEkAAAAWAAAAAQAAAACoNQPIw0IX/9BLJf/XTiz/4VQ2/+hYPv/1YEv//GVT//1o + Vv/9bVn//XBc//1zXv/9dF//+HBZ/7o+Dv/muYb/v1sn/+BYOf/9aFb//GVT//VgS//oWD7/1k4s/7M5 + Bv9iLAHlADwA2ABTAOoAYgD6AGYA/wVsBf8KcQr/H4wf/yORI/8ikCL/IJAg/yCQIP8cjhz/Go0a/xaL + Fv8OgA7/CHcI/wJqAv8AXAD3ACgAzAAAAIUAAAA3AAAACAAAAACqNQPGx0Ub/9ZOK//hVDb/6Fg+//Vg + S//9ZlT//WtY//1xXP/9d2D//Xpi//18ZP/9f2b/0lUt/8RkMf//7rv/3J5r/8hKH//9cVz//WxZ//1m + VP/1YEv/6Fg+/9xRMf+wNwP/I4IY/zGhMf9DtEP/Tb9N/wVsBf8Odw7/UMFQ/0/AT/9Nv03/S75L/0e8 + R/9CukL/PLc8/zSzNP8tsC3/Jawl/xynHP8SlRL/AWoB/wATAK0AAABTAAAAEgAAAACrNQO0xUQa/91S + Mv/lVzv/9WBL//1mVP/9bVr//XNe//16Yv/9f2b//YNp//2Gav/lbkv/tUIO//rbqf//6Lb/9dKf/7A3 + A//9emL//XNe//1tWv/9ZlT/9WBL/+ZXPP+9PxH/ZZ06/06/Tv9Tw1P/NaE1/zCDKP8geRv/Mpwy/1nG + Wf9Yxlj/VcRV/1HBUf9Mv0z/R7xH/z+5P/81tDX/LrAu/yWsJf8cpxz/Cn4K/wA4AM0AAABcAAAAFgAA + AACpNQNkuj0O/+NVOf/wXUb//GVT//1sWf/9c17//Xpi//2CaP/9h2v//o1v//mJav+1PAr/5qt4///h + rv//4q///+Kw/79XI//qb07//Xpi//1zXv/9bVn//GVT//BdRv+9PxH/aqA//1jGWP9eyF7/HoUe/5/G + iv+/2ab/BmwG/2DGYP9ky2T/YMlg/1vHW/9WxFb/T8BP/0i9SP9BuUH/N7U3/y2wLf8kqyT/DoYO/wA+ + ANEAAABVAAAAEwAAAACmNAMRrzcD8dtRMP/4Yk///WhW//1xXP/9emL//YJo//2IbP/+j3D//pR0/8RP + IP/OdED//9uo///bqP//3Kn//9yp/9N/S//XXjb//YJo//16Yv/9cl3//WlX//hiT/+8PhD/caNG/2TL + ZP9ix2L/AGYA/+/11f///+T/YJ9W/ySIJP9v0G//a85r/2XMZf9fyV//WMZY/1HBUf9JvUn/P7k//zW0 + Nf8qrir/DoAO/wA6AMQAAABBAAAACgAAAAAAAAAArDYDg7w+EP/9ZVT//W5a//13YP/9f2b//Ydr//6P + cP/+lnX/12g9/79UIP/6ypf//9Sh///Uof//1qP//9aj/9yQXf/IUiX//Ydr//1/Zv/9d2D//W5a//hi + T/+wNwP/Z8xn/27Qbv9PsE//MIMs////6f///+v/7/Xc/xBwD/9TslP/dtR2/3HRcf9ozWj/Ycph/1jG + WP9PwE//R7xH/z64Pv8xsjH/BW8F/wAhAJUAAAApAAAAAgAAAAAAAAAAAAAAAK83A9HNSiL//XBc//16 + Yv/9g2n//o1v//6UdP/melL/tUAM//Cwff//zpv//86b///Om///z5z//8+c/+updv/ETR///o1v//2E + af/9emL//XFc/+BWN/+eXR3/cdFx/3fUd/83mDf/gLN4////8P////L////y/6/Pp/8IbQj/cMtw/3rW + ev9y0nL/aM1o/2DJYP9YxVj/Tr9O/0K6Qv8onSj/AF4A8wAAAFQAAAATAAAAAAAAAAAAAAAAAAAAAKY0 + AxGvNwPw11Yx//18ZP/9hmr//o9x/++GYP+1PQr/5o9h//68jv//v5H//7+R///Ck///xpX//8aV/+ul + cv+/SRn//o9x//2Ha//9fWX/72lO/7U7Cf+AqlX/d9R3/4HZgf8ihCL/v9m6////+P////n////6//// + +v9wqW//IoQi/4Lagv971nv/cdFx/2fMZ/9bx1v/U8NT/0i9SP8Mdgz/ADoAqgAAACoAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAACpNQMyrTYD0shOIv/0f2D/74Bd/7U9Cv/hdEv/3ox5/59mdf9/U3P/f1l3/79/ + e//+p4D//qyE//6shP+wNwP//pJz//6Jbf/qbU3/tTsJ/5F5MP900nT/f9l//4jdiP8AZgD/7/Xv//// + ///////////////////v9e//MIMw/0WiRf+B2YH/dtR2/23Pbf9hymH/WMVY/yeTJ/8AWwDoAAAAQAAA + AA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUxoBIpkwA6W1PAr/tTwK/48tFv86HWD/AAFn/wEF + av8DCG7/Awhu/wABZ/8QC2j/f0xt/+p6Vf+6QxH/4XFJ/8NMHv+rQAj/gZRA/23Pbf951Xn/g9uD/43f + jf8AZgD///ny///58v//9+////Xs///17P//9Oj/z9e5/xBuDf9ct1z/fdd9/3HRcf9mzGb/OKI4/wBj + APcALwBpAAAAEwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAoAAAAoAAAAVAAAAJUaCAHYTRgI/wAD + NP8CCFP/Ch6D/w0njf8NJ43/DSeN/wwli/8IGn7/AQhr/yYUXP+lNAr/mzED6240ArMRaQb/RatF/3DR + cP99133/iN2I/3TJdP8gdhr//+zZ///o0v//6NL//+jS///lzP//48f//+LG/6+6hv8IbQj/aMNo/3PS + c/86oDr/AGMA9wAwAGYAAAATAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAABAAAADAAAADYAAACnAAAA8wEB + Af8DAwP/BAQE/wICAv8AAAD/CRlT/xAxl/8RMpj/ETKY/xEymP8QMJb/DSiN/wMQc/8MDFXzAAAAogAA + AFwAVwBxAGYA8CuPK/9uyW7/id6J/2zCbP9AhC7//9y5/5+xsP9AhKP/BWuj/wdtpv8GbKX/MHye/4+m + pv+PomX/CG0I/x6CHv8AYADtADYAWgAAABAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAPQAA + AOUBAQH/BQUF/wcHB/8JCQn/AwMD/wEDCv8IGEX/Dy+C/xM6oP8UPKL/FD2j/xQ7of8TOqD/Ezie/w8v + lP8BEnD/AAlA3AAAAIcAAAA1AFQAJwBkAKMAZgD/Gn0a/0GdQf8AZgr/QIKe/wtxr/8Xfcb/GoDM/xqA + zP8agMz/GH7J/w1zs/8CaIn/AGEe+wA/ANAAEABlAAAAGQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAqAAAA4gMDA/8KCgr/DAwM/w4ODv8HBwf/BAwg/xQ7m/8WQqj/FkOp/xdFq/8XRav/F0Wr/xdF + q/8XRav/FkKo/xZBp/8MLY//ABNr+wACC6kAAABYAAAAFAAAAAAAYAARAGAAZgBeDb8AZnz/FXvC/yKI + 3P8iiN3/Iojd/yKI3f8iiN3/IYfb/yCG2f8Zf8v/AmOX+wAaJsAAAACEAAAAPAAAAAsAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAgAAACoBAQE/w0NDf8QEBD/EhIS/xQUFP8BAQH/EziL/xhIrv8aTLL/Gk2z/xpO + tP8bULb/G1C2/xtQtv8aTrT/Gk2z/xlLsf8YR63/Ax56/wANPNUAAAB5AAAAJAAAAAAAAAAAAAAADgBa + h8YZfsr/J43n/ymO6v8rkO7/LZLy/y2S8v8rkO7/KY7q/yeN5/8li+L/HILR/wJjl/sAEhu3AAAAcgAA + ACgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAADEAAAD/Dg4O/xMTE/8VFRX/GBgY/xQUFP8FDiL/Gk60/xtR + t/8cVbv/HVe9/x1Xvf8eWb//HlrA/x5Yvv8dV73/HVa8/xxUuv8bUbf/CzKQ/wAZZPMAAACOAAAAMwAA + AAMAAAABAEhtWg91uP8wlvn/Mpj9/zOZ//8zmf//M5n//zOZ//8zmf//M5n//zKY/f8wlvn/LpP0/x+F + 1/8AUnvuAAAAnQAAAFMAAAATAAAAAAAAAAAAAAAAAAAAAAAAAIAGBgb/FRUV/xgYGP8bGxv/Hx8f/xIS + Ev8LIEb/HVa8/x5awP8gXsT/IWHH/yFiyP8hYsj/IWLI/yFiyP8hYsj/IGDG/x9dw/8eWb//Fkqr/wAh + d/8AAACYAAAAQQAAAAkAAAAHAF6Ozi6U8v82nP//N53//zie//84nv//OJ7//zie//84nv//OJ7//zac + //81m///NJr//zOY/v8Teb7/AC9G0QAAAH0AAAArAAAAAwAAAAAAAAAAAAAAAAAAAKwNDQ3/Gxsb/x8f + H/8iIiL/JSUl/xMTE/8PLmH/IWHH/yFjyf8iZ83/I2rQ/yRt0/8kbdP/JG3T/yRt0/8kbNL/I2rQ/yJm + zP8hY8n/IF/F/wAmev8ADSu2AAAATQAAAA8AR2ouC3Gs/zie//86oP//O6H//zyi//89o///PaP//z2j + //89o///PKL//zuh//86oP//OJ7//zac//8xl/n/AFyK9wAAAJoAAABJAAAADQAAAAAAAAAAAAAAAAAA + AMgVFRX/ICAg/yQkJP8oKCj/Kioq/x8fH/8IGTP/I2nP/yRt0/8mcdf/J3Ta/yd23P8oeN7/KHje/yh4 + 3v8ndtz/JnPZ/yVw1v8kbNL/I2jO/wQzhv8ADyq7AAAAWQAAABUAWINwIYfS/z2j//8+pP//P6X//0Cm + //9Bp///Qaf//0Gn//9Bp///QKb//z+l//8+pP//PaP//zuh//84nv//FXu//wAiM8EAAABoAAAAHAAA + AAAAAAAAAAAAAAAAAMcZGRn/JSUl/ykpKf8tLS3/MDAw/ykpKf8FDhr/JnHX/yh33f8ped//Kn7k/yuA + 5v8sguj/LIPp/yuB5/8rgOb/Kn3j/yl53/8nddv/JXDW/wlAlP8AHk3SAAAAWwAAABYAXYudL5Xm/0Gn + //9CqP//RKr//0Wr//9GrP//Rqz//0as//9Fq///Rav//0Op//9CqP//Qaf//z6k//89o///KI7f/wBH + a+QAAACBAAAAKQAAAAEAAAAAAAAAAAAAALYWFhb/Kioq/y8vL/8yMjL/NjY2/zk5Of8EBAT/JGrE/yuA + 5v8shOr/LYft/y6L8f8vjvT/L470/y+O9P8uivD/LYbs/yyD6f8qfuT/KHnf/wpFmP8AIU/QAAAAUAAA + ABAAYpLIPqT5/0Wr//9Hrf//SK7//0mv//9KsP//SrD//0qw//9KsP//Sa///0iu//9GrP//Rav//0Ko + //9Apv//PaP//wRgkPcAAACRAAAANwAAAAQAAAAAAAAAAAAAAIUTExP/MDAw/zQ0NP83Nzf/Ozs7/z4+ + Pv8ZGRn/FkJ1/y2I7v8wkff/Mpf9/zOZ//8zmf//NZv//zOZ//8zmf//Mpb8/zCP9f8thuz/LILo/whG + lf8AGTm6AAAARAAAAAoAYpLIR63//0mv//9Msv//TbP//060//9Ptf//ULb//1C2//9Ptf//TrT//02z + //9Msv//Sa///0as//9Dqf//Qaf//xB2s/8AChCfAAAAQwAAAAoAAAAAAAAAAAAAADIGBgb/MzMz/zc3 + N/89PT3/QUFB/0RERP82Njb/AwkP/yl84f8thvL/LYfy/zOT+f83nP3/OqD//zqg//85n///N53//zOZ + //8xlPr/Lonv/wA/hf8AFzKrAAAANgAAAAQAYpLISrD//02z//9Qtv//Ubf//1K4//9Tuf//U7n//1O5 + //9Tuf//Urj//1G3//9Qtv//TbP//0qw//9Hrf//RKr//x2Dxv8AJDe0AAAARwAAAAwAAAAAAAAAAAAA + AAAAAADiKSkp/z09Pf9BQUH/RUVF/0pKSv9NTU3/Ghoa/wUOJv8UPJv/Gk25/yBg2f8iZdz/JW7i/zGH + 7/83lff/Op/9/zmf//80mv//KIbm/wBEiP8ACBCDAAAAJgAAAAEAYpPHTrT//1G3//9Tuf//Vrz//1e9 + //9Yvv//WL7//1i+//9Yvv//V73//1W7//9Tuf//Ubf//060//9Msv//R63//yOJzP8AJDe0AAAARwAA + AAwAAAAAAAAAAAAAAAAAAACDDw8P/0BAQP9FRUX/S0tL/09PT/9TU1P/UVFR/ywsLP8XFxf/BgYG/wMK + Gv8MJG7/FDq2/xdDxv8dV9L/H17X/yJl3P8lbuL/Di1T/wAKEu4AAABeAAAAFgAAAAAAYpO2SK7y/1W7 + //9Xvf//WsD//13D//9gxv//Ycf//2HH//9fxf//W8H//1m///9Xvf//Vbv//1K4//9Ptf//TbP//x5/ + uP8AJDezAAAARAAAAAoAAAAAAAAAAAAAAAAAAAARAAAA8DMzM/9KSkr/S0tL/0RERP9PT0//X19f/2tr + a/91dXX/c3Nz/0RERP8YGBj/AQIL/wUOQ/8IGHD/CyGA/wsiY/8DChr/AAAA/wAAAMgAAAA9AAAACQAA + AAAAYpKGPKLf/1i+//9WvPn/NpzZ/yqQzP8bgbn/LpTS/0mv+f9Ns///TrT//1K4//9Uuv//Ubf//060 + //9Lsf//K43F/wZqnP8AJjitAAAAOgAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAYgkJCf9ISEj/UlJS/1RU + VP9YWFj/ZGRk/3V1df+Kior/m5ub/6Ojo/+ZmZn/YGBg/y0tLf8bGxv/FBQU/yAgIP8oKCj/BAQE/wAA + AH0AAAAfAAAAAQAAAAAAY5RCJ43G/y6UzP8Sdqn/H3+x/zWQwv89l8n/MIy+/wtuoP8WfL//I4nZ/yqQ + 5v82nP//M5n5/yaM3/8Ye7f/Gnel/wBmmf8AFyKQAAAAKgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AKIPDw//UFBQ/1tbW/9kZGT/bW1t/3V1df+CgoL/k5OT/6qqqv+5ubn/s7Oz/4eHh/9zc3P/XV1d/0hI + SP8VFRX/AAAA2AAAADcAAAAJAAAAAAAAAAAAAAAAAGWY8QVqnf8bfK7/L4y+/z+Yyv9Ppdb/VanY/221 + 3v9hqtP/QZTB/ySBsf8Qc6b/G3em/zKGsf8sgq7/DG6f/wFejfQAAABiAAAAGQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAABEAAADRERER/1lZWf9oaGj/dXV1/39/f/+Ghob/iIiI/4iIiP+jo6P/r6+v/5SU + lP94eHj/XV1d/y8vL/8AAAD3AAAATwAAABAAAAABAAAAAAAAAAAAAAAAAGSVoxN1qP83ksT/Rp7Q/1Cm + 1/9Yqtn/Y7Dc/3q74f+Sx+f/q9Ts/7zd8P+fyuL/drHP/0yXvP8oga7/D3Kl/wBIa8wAAAA8AAAACQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAogwMDP9RUVH/eXl5/4WFhf+QkJD/k5OT/4iI + iP99fX3/cHBw/2tra/9aWlr/ICAg/wAAAPYAAABfAAAAEgAAAAIAAAAAAAAAAAAAAAAAAAAAAGOUIQNp + mvA4k8X/UKbX/2Sx3P9ttd7/d7rh/4TA5P+czOn/t9rv/7bZ7f+FvNr/WaPK/zqRwP8ohrj/BGmc/wAe + LG4AAAAZAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGIAAADwHx8f/1RU + VP99fX3/kZGR/4iIiP9ubm7/TU1N/yYmJv8GBgb/AAAAwgAAADwAAAAKAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAABklmIPcqX/WanX/2213v+Dv+P/icPl/43F5v+Jw+X/gb/j/2213v9erdv/T6XW/z2X + yf8SdKf/AERnpwAAACUAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAARAAAAZAAAALQAAADxAAAA/wAAAP8AAADyAAAAygAAAJEAAAAzAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZJaiDXCi/2at1P+LxOX/n87q/6HP6v+fzur/icPl/3q7 + 4f9ost3/S6LT/xZ4qv8AVoG9AAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGKUUwBmmPA5jLf/hr3c/7zd + 8P+o0+z/lMjn/1mjzP8og7P/BmeX6ABKb24AAAARAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABg + kBEAYpNkAGKUpQBilMYAYpLIAGKSyABdi50AVH5hAAAADQAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /////wAA////////AAD///////8AAP///////wAA////////AADAAAP///8AAIAAAH///wAAgAAAGAAH + AACAAAAAAAEAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAMAA + AAAAAAAA4AAAAAABAADgAAAAAAEAAPAAAAAAAwAA8AAAAAADAADAAAAAAAcAAIAAAAAADwAAgAAAAAAf + AAAAAACAAB8AAAAAAMAADwAAAAAAAAAPAAAAAAAAAAcAAAAAAAAABwAAAAAAAAAHAAAAAAAAAAMAAAAA + AAAAAwAAAAAAAAADAAAAAAAAAAMAAIAAAAAAAwAAgAAAgAADAACAAACAAAMAAMAAAIAAAwAA4AABwAAH + AADgAAHAAAcAAPAAA8AABwAA/AAH4AAPAAD+AB/wAB8AAP////gAPwAA/////AD/AAD///////8AAP// + /////wAA////////AAD///////8AACgAAAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAMAAAAFQAAABgAAAAYAAAAGAAA + ABgAAAAYAAAAFgAAABIAAAALAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAJQAAAEUAAABZAAAAXwAA + AF8AAABfAAAAXwAAAF8AAABcAAAAUwAAAEYAAAA2AAAAJgAAABYAAAAJAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9RGQGMbyMCy2sh + AtJrIQLTayEC02shAtNrIQLTayEC01QaAcg9EwG5EgYAoAAAAI8AAAB7AAAAXQAAADkAAAAdAAAAFgAA + ABwAAAAjAAAAKQAAAC4AAAAvAAAALwAAAC8AAAAuAAAAKAAAAB4AAAAPAAAABAAAAAAAAAAArTcG18FB + Ff/RSyb/21Ew/+hYP//zX0r/+WNQ//1lVP/9ZVT/zUgh/9JLJv/UTSn/oTYO82ggAtogCgGwAAAAiAAA + AGcAAABeAAAAagAAAHcAAACDAAAAjAAAAI8AAACPAAAAjwAAAIwAAACCAAAAbQAAAEQAAAAWAAAAAQAA + AAC7PQ7/0kwn/91SM//vXUb//GRT//1pV//9cVz//XRe/+9qTv/Ti1f/zVsw//1nVf/5Y1D/5lc8/7c+ + FPtCIwHXADcAzwRPBN0IXwjqFHQU9SKRIv8fjx//H48f/x2OHf8Wihb/C24L9wNVA+kAKQDHAAAAgQAA + ADMAAAAGAAAAAMNDF//bUTD/711G//1mVf/9clz//Xdg//19ZP/9g2j/yFos//rir//ThlP/821T//1r + WP/8ZFP/7FtC/5pYGf9As0D/T8FP/y+SLP8kjiT/UsJS/1LCUv9Kvkr/QLlA/zu3O/8try3/Iakh/wqF + Cv8AFACmAAAAQwAAAAoAAAAAuT0O4uhYP//8ZFP//XJc//15Yf/9hWr//Yxu/9djOv/rt4T//+Ow//DE + kf/gZkL//Xdg//1qV//5Y1D/p2Im/1bEVv9Zw1n/cKlf/4Czbf9Ns03/ZMtk/1zHXP9Tw1P/RbxF/zy3 + PP8try3/Gpka/wAlAK8AAAA9AAAABwAAAACsNgOD5Vc7//1rWP/9d2D//YZq//6Scv/rgFn/2IdU///Z + pv//2ab//9qn/9JaMf/9g2j//XVe//1mVf+wZy//Z81n/0SoRP+/2az////l/0eYQv9003T/as5q/2LK + Yv9WxFb/RbxF/zm2Of8akhr/ACEAlAAAACgAAAACAAAAAAAAAAC7Pg/R+G9X//19ZP/9i27/+ZJv/8li + MP//zpv//8+c///PnP//0J3/13ZH//2JbP/9e2P/82ZO/5F5MP921Hb/Ppo9////8v////L/z+LF/ziY + OP9713v/btBu/2LKYv9RwVH/Prk+/w9zD/IAAABPAAAAEQAAAAAAAAAAAAAAAKY0AxG+RRjT73ZW//mM + a//NWy7/6Zp6/7+Kg/+/jIT/7q2K//+/kf/XcUP//Y5w//h7X/+6TBr/espv/4HZgf9kq2P////8//// + ////////gLOA/2fAZ/961nr/ac1p/1vGW/8unS7/ADcAlQAAACIAAAAEAAAAAAAAAAAAAAACAAAAEC4O + AT6JKwK4tEUe/0whT/8BBGr/BA1z/wMLcf8RDGn/f0xu/9JgNP/SXjP/hWAa/23EYv961nr/jN+M/3Cm + af//9u3///Pn///y5f//79//WZdM/3HLcf9w0XD/ULhQ/wZaBsQAAAAoAAAABwAAAAAAAAAAAAAAAQAA + ABAAAABMAAAAtQAAAOcCAgL/AQIV/wwlfv8QL5X/EC+V/w8tk/8GFnv/LRNF9xEFAKYAQACZN5s3/3XQ + df+S4ZL/gKNg/9/RvP9wnq//RYuv/2GWrP+fsKT/SJA3/0OkQ/8IVAjAAAAAKQAAAAYAAAAAAAAAAAAA + AAAAAAAGAAAAVQICAu4ICAj/CwsL/wUHDv8MJGT/EziY/xQ8ov8UPKL/FDyi/xQ6oP8FGnr/AAcy0QAA + AHwAOwBTDm4OpDuWO/Iwe1n/DXOz/xuBz/8dg9L/HILP/xB2uf8CaHb/ACgMyQAAAHkAAAAtAAAABgAA + AAAAAAAAAAAAAAAAACACAgLpDQ0N/xMTE/8ODg7/Ditq/xhGrP8ZSa//Gk2z/xpNs/8aTbP/GUmv/xQ/ + pP8AFmf3AAAAlQAAAEAAAAANAEpvbhh+yf8skvD/LZPy/y2T8v8tk/L/K5Hv/x+F1/8CVIDuAAAAoAAA + AFsAAAAYAAAAAQAAAAAAAAAAAAAAchEREf8XFxf/Ghoa/wwMDP8bUbf/HFW7/x5Zv/8fXML/H17E/x5a + wP8dV73/HFW7/wUpg/8ACCCyAAAAUgAAAB8OcK/oM5n//zWb//81m///NZv//zWb//80mv//M5n//yWL + 5P8AO1ncAAAAhgAAADQAAAAGAAAAAAAAAAACAgK6GRkZ/x8fH/8jIyP/Dhks/yBgxv8iZcv/I2jO/yRq + 0P8katD/JGrQ/yJmzP8hY8n/EEKe/wATOsgAAABcAEltcCiN3/87of//PKH//zyh//88of//PKH//zyh + //86oP//N53//xN0ufsACg+lAAAAUQAAABAAAAAAAAAAAAoKCschISH/Jycn/ywsLP8XFxf/JGvR/yd0 + 2v8od93/KXrg/yl74f8ped//KHfd/yZx1/8WU7D/ABxM0wAAAF8AVH2cPqP//0Kn//9Eqf//RKr//0Sq + //9Eqv//Q6j//0Cm//89ov//LZLm/wAwScsAAABoAAAAHAAAAAAAAAAABgYGtikpKf8vLy//NjY2/yQk + JP8hYrX/LIPp/y+N8/8xk/n/MpX7/zCS+P8ui/H/Kn3j/xxjwP8AIE7SAAAAWRBvp81Eqv//R63//0qw + //9Lsf//S7H//0ux//9Jr///Rqz//0Sp//9Apf//BExy4wAAAHoAAAAlAAAAAAAAAAAAAACEKioq/zg4 + OP8+Pj7/Pz8//xQ1XP8vjfb/MJD5/zWb//86oP//Npz//zOZ//8ylvz/F2O6/wAlUs0AAABGF3ewy0yy + //9Ns///ULb//1G3//9Rt///ULb//060//9Ns///Sa///0Wr//8SZJbuAAAAiAAAACsAAAAAAAAAAAAA + ACEcHBz/Pz8//0VFRf9MTEz/LCws/wsiWf8WQZ7/HVbS/yNo3f8ugOr/NpT3/zGQ+f8SWKL/ABs1pAAA + AC4Ze7THULb//1W7//9WvP//V73//1e9//9WvP//Vbv//1K4//9OtP//S7H//xl+uv8AAACGAAAAKwAA + AAAAAAAAAAAAAAUFBcJAQED/S0tL/0lJSf9dXV3/ZmZm/01NTf8fICn/BxVb/w0mjf8RMp7/Ditp/wMM + F/kAAABhAAAAGQBilKVWvP//U7n5/z2i3/85n9n/TbPy/1W7//9WvP//U7n//1G3//9DqO3/EW6f+gAA + AHQAAAAiAAAAAAAAAAAAAAAAAAAAIR0dHfBRUVH/V1dX/2ZmZv+EhIT/m5ub/6Wlpf9xcXH/RkZG/y4u + Lv8qKir/AAcMxQAAADMAAAAHAGKTZByCuf8Qc6b/LYq8/z+Yyv8wirr/IYPB/x2DzP8ghtL/JYfL/yR/ + r/8AVH7oAAAAVwAAABMAAAAAAAAAAAAAAAAAAAAAAAAAYiEhIf9hYWH/c3Nz/4SEhP+Pj4//oqKi/6Wl + pf9+fn7/SUlJ/woKCu4AAABJAAAAEAAAAAEAYJARBGib8TeSxP9Hn9D/VqnY/3W54P+Xyuj/nczo/2Sl + x/9Ml7z/GHam/wA+XrcAAAAxAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQhsbG/BjY2P/jo6O/5OT + k/+Dg4P/bW1t/0dHR/8RERHeAAAAUgAAAA0AAAACAAAAAAAAAAAAZJWDLou9/2Gv2/96u+H/hMDk/5/O + 6v+ezOb/ZKzT/zmSwv8NbZ73ABUfTwAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEQAA + AHQWFhbELS0txykpKcgLCwusAAAAcQAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAZJaiS5vG/5TI + 5/+j0Or/lMjn/3694v9XqNb/G3mr9QA0Tl4AAAASAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAZJWDJHyp01yhxP9PmsH/M4i18gplkq4AOlg4AAAACgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA////////////////wAH//4AAP/+AAAABgAAAAIAAAACAAAAAgAAAAIAA + AADAAAABwAAAAYAAAAMAAAAHAAAABwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAOAAAADgAAAA8AA + AAPgAYAD8AfAB///4A////////////////8oAAAAEAAAACAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAkAAAATAAAAGAAAABgAAAAXAAAAEwAAAAsAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAsAAAAvAAAAUwAAAF8AAABfAAAAXgAAAFYAAABFAAAALQAAABwAAAAbAAAAIQAA + ACMAAAAiAAAAHAAAAA9mIAI3ii0Mr3wrEMyDLxvTgy8b02YiCM09EwG6AAAAmQAAAIIAAABoAAAAZwAA + AHMAAAB3AAAAdgAAAGcAAAA9tz0Pxd1SM//5Y1D//XBb//NsUv/SbkH/+GVR/8xKKfstMgfXElcS2yF5 + IeothC3rIX4h7BFrEecDMAPAAAAAZ7c9D6P5Y1D//Xpi//6Mbv/chVb/9c2b/+9wUv/9alf/koc8/1Ov + T/9nrlz/Ycph/1XDVf84tTj/FnoW6QAAAGahMgMj4V0/8f2Ia//hfVH/+seU///ToP/ld1D/+HRb/5Gc + UP+GwoD/7/Xg/1WvVf9z0nP/UsJS/xh1GNkAAAA9AAAADVYbAWKhTELvQiNa/0M2eP9gSHf/u1s4+5N6 + Nf+C2oL/pMaX///17P+6z6j/Y8Fj/0GjQfkAKQB3AAAAFwAAAEkEBATtAwYN/w8rcf8UOqD/EDGX/wIP + XO4AJQCvQJBAy0OIjv8Qdrn/IH27/xpxW/sAGwC0AAAAVwAAABMKCgrKGhoa/xIvaP8aTbP/HVe9/xtP + tf8NMpP/AAggrQU9XpQtk/L/M5n//zOZ//8rke//BCxEzAAAAHkAAAAlFRUV/ygoKP8YQoH/JnPZ/yZz + 2f8mc9n/G1y9/wAPLLMdc7DQP6X//0Cm//9Apv//PqT//x97vvcAAACRAAAANyAgIPE1NTX/JUVr/zCQ + 9v80mv//M5b6/yFz0v8AFjGtK4bG1kyy//9Ns///TbP//0mv//8xl+b/AAoQnQAAAD0UFBSiSkpK/0JC + Qv82RmX/G0WQ/yJixv8VR33/ABgxhjKQzc5MsvL/SrDs/1e9//9Qtv//QqXq/wAnO6YAAAAwAAAAES4u + LvBpaWn/jY2N/6SkpP9PT0//ER0m1wAAAC8LbJ2XKYe5/1Kk0v9hqNP/UZ/Q/xh1pP8AAABaAAAAGQAA + AAAAAAAhLCwsslxcXP9LS0vkISEhrgAAACcAAAAIAGCQIimDs/CLxOX/oc/q/1ekz/8NXomtAAAAIAAA + AAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAY5QhLoCqhEyRtYkAVoFfAAAADQAA + AAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAB/AAAAABf/AAAw/wAARv8AAFX/AABc/wAAYP8AAGT/AABo/wAALP8AAK//AABT/wAA + U/+AAFj//4FT////Qv8= + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmUserKonfig.vb b/app - Kopie/DD-Record-Organiser/frmUserKonfig.vb new file mode 100644 index 0000000..9e6155b --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmUserKonfig.vb @@ -0,0 +1,193 @@ +Public Class frmUserKonfig + Private Shared _Instance As frmUserKonfig = Nothing + Public Shared Function Instance() As frmUserKonfig + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmUserKonfig + End If + _Instance.BringToFront() + Return _Instance + End Function + Private Sub TBDD_USERBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_USERBindingNavigatorSaveItem.Click + Save_User() + End Sub + + Private Sub frmUserKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.VWPMO_USERS_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen. + 'Me.VWPMO_USERS_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_USERS_GROUPS) + Load_User() + End Sub + Sub Load_User() + Try + Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER) + + Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS) + Catch ex As Exception + MsgBox("Error in frmUserKonfig_Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Sub Save_User() + Try + Me.TBDD_USERBindingSource.EndEdit() + If DD_DMSDataSet.TBDD_USER.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBDD_USERBindingSource.EndEdit() + Me.TBDD_USERTableAdapter.Update(Me.DD_DMSDataSet.TBDD_USER) + MsgBox("Chages saved successfully.", MsgBoxStyle.Information) + End If + Catch ex As Exception + MsgBox("Error in Save USer:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew + DD_DMSDataSet.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub tsAddUser_Click(sender As Object, e As EventArgs) Handles tsAddUser.Click + Dim frm As New frmUserKonfig_AddUsers + Cursor = Cursors.WaitCursor + frm.ShowDialog() + Load_User() + Cursor = Cursors.Default + End Sub + + Private Sub tbRefreshUsers_Click(sender As Object, e As EventArgs) Handles tbRefreshUsers.Click + Load_User() + End Sub + + Private Sub btnAddUserToGroup_Click(sender As Object, e As EventArgs) Handles btnAddUserToGroup.Click + Try + Dim user As DataRowView = GetSelectedUserObject() + Dim group As DataRowView = GetSelectedGroupObject() + + Dim userID As Integer = user.Item(0) + Dim userName As String = user.Item(3) + + Dim groupID As Integer = group.Item(0) + Dim groupName As String = group.Item(1) + + Dim SQL = String.Format("SELECT GUID FROM TBDD_GROUPS_USER WHERE USER_ID = {0} AND GROUP_ID = {1}", userID, groupID) + + Dim userInGroup = ClassDatabase.Execute_Scalar(SQL) + + If Not IsNothing(userInGroup) Then + MsgBox(String.Format("Der Benutzer {0} ist bereits Mitglied der Gruppe {1}", userName, groupName), MsgBoxStyle.Exclamation) + Exit Sub + Else + SQL = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", userID, groupID, Environment.UserName) + If ClassDatabase.Execute_non_Query(SQL) = True Then + LoadGroupsForSelectedUser() + Else + MsgBox(String.Format("Fehler beim Hinzufügen des Benutzers {0} zur Gruppe {1}", userName, groupName)) + End If + End If + Catch ex As Exception + MsgBox("Error in btnAddUserToGroup_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Function GetSelectedUserObject() As DataRowView + Dim user As DataRowView = lbUsers.SelectedItem + Return user + End Function + + Private Function GetSelectedGroupObject() As DataRowView + Dim group As DataRowView = cmbGroup.SelectedItem + Return group + End Function + + Private Function GetSelectedGroupObjectFromList() As String + Return lbGroups.SelectedItem + End Function + + Private Sub LoadGroupsForSelectedUser() + Dim user As DataRowView = GetSelectedUserObject() + If Not user Is Nothing Then + Dim userID As Integer = user.Item(0) + Dim SQL As String = String.Format("SELECT GROUP_NAME FROM VWPMO_USERS_GROUPS WHERE USER_ID = {0}", userID) + + Try + Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) + + lbGroups.Items.Clear() + For Each row As DataRow In dt.Rows + lbGroups.Items.Add(row.Item(0).ToString) + Next + Catch ex As Exception + MsgBox("Error in LoadGroupsForSelectedUser:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + + End Sub + + Private Sub TBDD_USERBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBDD_USERBindingSource.PositionChanged + LoadGroupsForSelectedUser() + End Sub + + Private Sub btnRemoveUserFromGroup_Click(sender As Object, e As EventArgs) Handles btnRemoveUserFromGroup.Click + Try + Dim user As DataRowView = GetSelectedUserObject() + Dim userID As Integer = user.Item(0) + Dim userName As String = user.Item(3) + Dim group As String = GetSelectedGroupObjectFromList() + + ' Gruppen ID über Name auslesen + Dim SQL = String.Format("SELECT GUID FROM TBDD_USER_GROUPS WHERE NAME = '{0}'", group) + Dim groupID As Integer = ClassDatabase.Execute_Scalar(SQL) + + ' Keine Gruppe ausgewählt + If IsNothing(group) Then + MsgBox("Bitte wählen Sie eine Gruppe aus.", MsgBoxStyle.Exclamation) + Exit Sub + End If + + SQL = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE USER_ID = {0} AND GROUP_ID = {1}", userID, groupID) + If ClassDatabase.Execute_non_Query(SQL) = True Then + LoadGroupsForSelectedUser() + Else + Throw New Exception(String.Format("Fehler beim Löschen der Gruppe {0} für Benutzer {1}", group, userName)) + End If + Catch ex As Exception + MsgBox("Error in btnRemoveUserFromGroup_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TBDD_USER_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USER_GROUPSBindingSource.AddingNew + Me.DD_DMSDataSet.TBDD_USER_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click + Save_Groups() + End Sub + + Sub Save_Groups() + Try + Me.TBDD_USER_GROUPSBindingSource.EndEdit() + If DD_DMSDataSet.TBDD_USER_GROUPS.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox1.Text = Environment.UserName + Me.TBDD_USER_GROUPSBindingSource.EndEdit() + Me.TBDD_USER_GROUPSTableAdapter.Update(Me.DD_DMSDataSet.TBDD_USER_GROUPS) + MsgBox("Changes saved successfully.", MsgBoxStyle.Information) + End If + Catch ex As Exception + MsgBox("Error in Save Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click + Load_Groups() + End Sub + Sub Load_Groups() + Try + Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS) + Catch ex As Exception + MsgBox("Error in Load_Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + Load_Groups() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb b/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb new file mode 100644 index 0000000..ab9b2fa --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb @@ -0,0 +1,196 @@ + _ +Partial Class frmUserKonfig_AddUsers + 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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUserKonfig_AddUsers)) + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.lbGroups = New System.Windows.Forms.ListBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.clbUsers = New System.Windows.Forms.CheckedListBox() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton() + Me.tbSelectNone = New System.Windows.Forms.ToolStripButton() + Me.btnCancel = New System.Windows.Forms.Button() + Me.btnAddUsers = New System.Windows.Forms.Button() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.lbGroups) + Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip1) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers) + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2) + Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel) + Me.SplitContainer1.Panel2.Controls.Add(Me.btnAddUsers) + Me.SplitContainer1.Size = New System.Drawing.Size(618, 457) + Me.SplitContainer1.SplitterDistance = 206 + Me.SplitContainer1.TabIndex = 1 + ' + 'lbGroups + ' + Me.lbGroups.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.lbGroups.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbGroups.FormattingEnabled = True + Me.lbGroups.Location = New System.Drawing.Point(0, 25) + Me.lbGroups.Name = "lbGroups" + Me.lbGroups.Size = New System.Drawing.Size(206, 432) + Me.lbGroups.TabIndex = 2 + ' + 'ToolStrip1 + ' + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(206, 25) + Me.ToolStrip1.TabIndex = 1 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(125, 22) + Me.ToolStripLabel1.Text = "Verfügbare Gruppen:" + ' + 'clbUsers + ' + Me.clbUsers.BackColor = System.Drawing.SystemColors.GradientActiveCaption + Me.clbUsers.Dock = System.Windows.Forms.DockStyle.Top + Me.clbUsers.FormattingEnabled = True + Me.clbUsers.Location = New System.Drawing.Point(0, 25) + Me.clbUsers.Name = "clbUsers" + Me.clbUsers.Size = New System.Drawing.Size(408, 378) + Me.clbUsers.TabIndex = 6 + ' + 'ToolStrip2 + ' + Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tbSelectEverything, Me.tbSelectNone}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(408, 25) + Me.ToolStrip2.TabIndex = 5 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(128, 22) + Me.ToolStripLabel2.Text = "Verfügbare Benutzer:" + ' + 'tbSelectEverything + ' + Me.tbSelectEverything.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.tbSelectEverything.ForeColor = System.Drawing.Color.Firebrick + Me.tbSelectEverything.Image = CType(resources.GetObject("tbSelectEverything.Image"), System.Drawing.Image) + Me.tbSelectEverything.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tbSelectEverything.Name = "tbSelectEverything" + Me.tbSelectEverything.Size = New System.Drawing.Size(90, 22) + Me.tbSelectEverything.Text = "Alle auswählen" + ' + 'tbSelectNone + ' + Me.tbSelectNone.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.tbSelectNone.Image = CType(resources.GetObject("tbSelectNone.Image"), System.Drawing.Image) + Me.tbSelectNone.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tbSelectNone.Name = "tbSelectNone" + Me.tbSelectNone.Size = New System.Drawing.Size(104, 22) + Me.tbSelectNone.Text = "Nichts auswählen" + ' + 'btnCancel + ' + Me.btnCancel.Location = New System.Drawing.Point(224, 425) + Me.btnCancel.Name = "btnCancel" + Me.btnCancel.Size = New System.Drawing.Size(75, 23) + Me.btnCancel.TabIndex = 4 + Me.btnCancel.Text = "Abbrechen" + Me.btnCancel.UseVisualStyleBackColor = True + ' + 'btnAddUsers + ' + Me.btnAddUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnAddUsers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUsers.Location = New System.Drawing.Point(305, 425) + Me.btnAddUsers.Name = "btnAddUsers" + Me.btnAddUsers.Size = New System.Drawing.Size(91, 23) + Me.btnAddUsers.TabIndex = 3 + Me.btnAddUsers.Text = "Hinzufügen" + Me.btnAddUsers.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUsers.UseVisualStyleBackColor = True + ' + 'frmUserKonfig_AddUsers + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(618, 457) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmUserKonfig_AddUsers" + Me.Text = "Add User from AD" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.PerformLayout() + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents btnCancel As System.Windows.Forms.Button + Friend WithEvents btnAddUsers As System.Windows.Forms.Button + Friend WithEvents lbGroups As System.Windows.Forms.ListBox + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents tbSelectEverything As System.Windows.Forms.ToolStripButton + Friend WithEvents tbSelectNone As System.Windows.Forms.ToolStripButton + Friend WithEvents clbUsers As System.Windows.Forms.CheckedListBox + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.resx b/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.resx new file mode 100644 index 0000000..7c9d719 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.resx @@ -0,0 +1,536 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 124, 17 + + + + + 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== + + + + + 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== + + + + + AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA + IACoJQAAHh0AACAgAAABACAAqBAAAMZCAAAQEAAAAQAgAGgEAABuUwAAKAAAADAAAABgAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AUk1rADAdaQAAAAAAl4ShADcUSABfOWwAaVNpAGBK + VABfR1EAFgcNAIpqcAC3jZIAwY+QAKqHiAB4WloAWUZGAHd2dgBXVlYAhIODAKVzcgCWdnUAmmpoAKp6 + dwCxgH4AxZSRAGZUUwDOdG4AwY+LALaIhADLm5cAZU1LAHhragD8ZVQAiWdjAJaDgQD1YUwA/WpXAP1u + WgD2a1gAn19WAM6CeADsW0IA/HNdAP14YACmdW0AhXl3AOVXPAD8f2UAlllNAGlSTQDdUjMAz1AwAOpo + SQD9hGkAp1lHALCEeQB5YVsAamZlANVMKQD9imwA/o5wAMZEHADMSiIArlAzAO98WgD9lnQAeVdMAItJ + MgB0QC4A74ljALA3BACzOQcApTYJALY7CgC8QBAAv0kZAJg8FgDNXC4A4XZNAMd0VABdU08AsUAOAKg+ + EQAfEAkAsmdHAM+ijQDauasAyWk2AOuYagD+sYcAnYFxANOvnADThFIAmHlnAN+SYADhup8A66l2ANvA + qgDuwpwA4M28AP7KmAD/0Z4A/9ajAPfOnwDtzqkA/9qpAP/esQDx06wA59S6AP/apwD/3KkA+NemAP/e + rAD/4K0A/+K1AP/luwD/4rAA/+WyAP/mtQD/+e0A+uS0AP/qvwD/6bYA/+q5AP/vxwD98dMA//nrAP/s + ugD/9dkA/+67AP/wvwD/88oA7eO+AP/zwAD/9s0A//rjAP/1wgD/+dcA//rfAP/75QD/+MUA//nGAP/6 + xwD699AA//zJAP/8zAD//dUA//7qAP/9zwD//ssA//7SAP//zAD//84A///VAP//1wD//9kA///cAP// + 3gD//+IA///lAP//7QD///MA///3AP///ABbwf8AZ6XMAFe9/wBCqP8AXK/1ADyi/wBPmdwAVKDhAAAr + VgAzmP4AOJ7/AAgSHAADRY0AJ33bACNotAAwjfMAMpT6ADKQ9QA4kfEAVHOWAGSFqAAMT6AAKXziACuA + 6AAvivIALojuAC2F6wAmc9oAKHnfACNozgAlb9UAH1WgACltzQAxbcIAQXrOADBPfAAfXcIAIGDGACJl + ywAhY9sAHFS7ABpMsgAWQ6kAHFXOAA8sawA4VpkAQlyUABM5oAARMosAFT7CABExlwADCBgAUWitAAQN + LQAOKI4ABxVYAAECCwADDHAAdXalAGxsfgBxcXIArq6uAJmZmQCLi4sAfX19AG1tbQBqamoAYmJiAFtb + WwBTU1MATExMAEdHRwBBQUEAPDw8ADY2NgAxMTEALS0tACoqKgAoKCgAJSUlACEhIQAdHR0AGhoaABgY + GAASEhIADQ0NAAkJCQAFBQUAAgICAAEBAQAEBAQEBAQEBATn5+fn5+fn5wQEBAQEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBATn6C8vUjob5ucEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBOc6IRLo4QUNEefnBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBOdE + 5BK52uAFDRHn5wQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBOdE5rm4yNrgBQ0R5+cE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBOc6uqipuMja4AUNEefnBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBOcjrKioqbjI2uAFDRHn5wQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE + BAQEBATn5+jn5+c7G6yoqKm4yNrgBQ0R5+cEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBOfnREVOTkhI + SEWspqipuMja4AUNETvn5wQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBOdKS0w/QDw0MDAyrKaoqbjI2uAF + DUZGEOfnBAQEBAQEBAQEBAQEBAQEBAQEBAQEBFRMP0A8NDAwKyUlKaymqKm4yNrgBQ1GSk5E5wQEBAQE + BAQEBAQEBAQEBAQEBAQEBEg/QDw0MDAlIiImKCmspqipuMja4AUNRT9IRecEBAQEBAQEBAQEBAQEBAQE + BAQEBElAPDQwKyUiJicsLSwprKaoqbjI2uAFFUE0S+fn5+fn5+fn5+fnBAQEBAQEBAQEBEg8NDArJSIn + LC0tMTExMqymqKm4yNrgF0EwNU4zREQQIyMjM1Ln5+cEBAQEBAQEBFM8NCslIicsLTExNz1CU1+tpqip + uLrhIyk4MhcVGDldY1hdGhkQERTnBAQEBAQEBFY/MCsiJiwtMTc9Pj1MYHFcrKaoquPm5OMNGFdqfISQ + mZqYkW4aGBHn5wQEBAQEBARLMCUiJy0xNz0+Q09Zb2txXK2n5OPkLx4daXN7iJSYmJycnp2dYxkgO+cE + BAQEBARBQCInLC03PT5DUFNmaGhoaW1eQVzjHldodIiWl5mYnJ6en5+iomUYIBLnBAQEBAQEUzAnLTE9 + PkNHSGJnZ2dnZ2daRSQfV2d1loqHl5icnqChlaQBAQFlFRHn5wQEBAQEBEk2LTc9Qz5JYGZbZmZmZ2Zi + QS4aZnSYg32OmZueoKGiogEBAQGhXSMT5wQEBAQEBARLNjc+PU1PW1tbW1tbW1taRR1haJiHd4GQmpue + oaKjpKUBAQGgkRUg5wQEBAQEBAQEVEBCTUAcBwPf3wMHKkNRFx9rfo92doOQmJyeoaKjpaWlpaKenV0Q + 5+cEBAQEBAQEU0FISgbf39/f39/f3wc4GF1ym4NrdoOQmpueoaKjpKSjoqGenYYXE+cEBAQEBOfn5/NV + C9vd3Nzc3Nzc398RHWR7kndvc32OmpueoJWio6OilaCdnZoXG+cEBAQE5/D8AP7+/f8A0tjY2NjY2NwR + H2p+j3Joc3yHl5icn6GhlZWhoZ+cm5c5UucEBATn+//9/Pz8/tvS1tXV1dXV1dUKH21+j3BocneDkJqb + nZ+goKCgn56bmI8eEOcEBOf9/vz7+/v+3dXQ0NDQ0NDQ0NAKH21+j3BncHyEh5Kam5yenp6enJualoc5 + EOcEBPj9+/v6+vzb0NDPz8/Pz8/Pz88CHWqIjnd7fnh8h46SmZibm5ubmJmXiIEXO+cE5/77+vr5+f3S + z8/Ozs7Ozs7Ozs4CD2GEloh/a2tyd4OKjpKZmZmZko6ahGoX5+cE9fz6+fj49wDPzs7KysvLy8vLysrT + DB99lJV7e3Vsa3aEgYSHh4eHhIeYd1cj5wQEAPr5+Pf29QDKysvLzMPDw8PDzMzKCA5qhaSkAaV+bHB8 + d3x8fX19fZN7chghBAQE/vj39vX19ADLzMPDxMTEwcHExMTD1BYfg6UBAQF5dWiEcHJzc3N3j4hoVxfn + BAQE/Pf29fTz8gDDxMHBwcLCwsLCwsHBxggeXZUBAQGAdXV0Z2hocH2QiGdkFS8EBAQE/PX18/Lx8fvF + wcK8vL29wL29vbzCwccIHlilAQGNjIt3c3eBjpZ+ZmQZFgQEBAQE/vXz8fHw8PjSvL3Av7++vr6+v8C9 + vMLFGxldf4KJnpOOj5OYfnZnYRkWBAQEBAQEAPTx8fDv7/KxwL+1tq+vr6+vtre/wL27yRYYGWF6g4SB + fXt2cmQfGSQEBAQEBAQE8/fx8O/u7u38tLa3trCwsLCwsK+vtb+7uQQEBBUVHlddYWFdHx0PBAQEBAQE + BAQEBPrw7+7u7ezx2dHNzcG9v7arq7Cwr7eyugQEBAQPFhcXGA0PDw8EBAQEBAQEBAQEBADx7u7t7Ozr + 9tnb0tXX0dHNvbW+vrOuBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBO357u3s7OsT6uzu8/vZ39fX19fR + ztuxBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAT88Ozs7+0T6BIUFOLv+N7b3d3bAPwEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQE/O3rE+rp6Obl5OPjFOvw8/Tx7/0EBAQEBAQEBAQEBAQEBAQEBAQEBAQE + BAQEBAQE7vjr6uk74hIU5OPj4+Tm6BPu9/EEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBPX2Ezvn + EhQUFOXj4+QU5xPy+wQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBATw+uvi5uXl5RTmEuLo6vP7 + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBADz4hTk5OXm4unv+/QEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE+/jw7e3w9wDzBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBATw+Pj48AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAT/gH////8AAP+A + P////wAA/wAf////AAD/AA////8AAP8AB////wAA/wAD////AAD/AAH///8AAOAAAP///wAAwAAAP/// + AADAAAAP//8AAMAAAAf//wAAwAAAA///AADAAAAAAP8AAMAAAAAAPwAAwAAAAAAfAADAAAAAAA8AAOAA + AAAABwAA4AAAAAADAADwAAAAAAEAAPgAAAAAAQAA/AAAAAABAAD+AAAAAAAAAP4AAAAAAAAA+AAAAAAA + AADwAAAAAAAAAOAAAAAAAAAAwAAAAAAAAADAAAAAAAAAAIAAAAAAAAAAgAAAAAABAACAAAAAAAMAAIAA + AAAAAwAAgAAAAAAHAACAAAAAAA8AAIAAAAAAHwAAgAAAAAA/AACAAAA4AP8AAMAAADwB/wAAwAAAf/// + AADAAAB///8AAOAAAP///wAA8AAA////AADwAAD///8AAPgAAf///wAA/AAD////AAD/AAf///8AAP/A + H////wAA//B/////AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wBSTWsAMB1pAAAAAACXhKEANxRIAF85bABpU2kAYEpUAF9HUQAWBw0AimpwALeNkgDBj5AAqoeIAHha + WgBZRkYAd3Z2AFdWVgCEg4MApXNyAJZ2dQCaamgAqnp3ALGAfgDFlJEAZlRTAM50bgDBj4sAtoiEAMub + lwBlTUsAeGtqAPxlVACJZ2MAloOBAPVhTAD9alcA/W5aAPZrWACfX1YAzoJ4AOxbQgD8c10A/XhgAKZ1 + bQCFeXcA5Vc8APx/ZQCWWU0AaVJNAN1SMwDPUDAA6mhJAP2EaQCnWUcAsIR5AHlhWwBqZmUA1UwpAP2K + bAD+jnAAxkQcAMxKIgCuUDMA73xaAP2WdAB5V0wAi0kyAHRALgDviWMAsDcEALM5BwClNgkAtjsKALxA + EAC/SRkAmDwWAM1cLgDhdk0Ax3RUAF1TTwCxQA4AqD4RAB8QCQCyZ0cAz6KNANq5qwDJaTYA65hqAP6x + hwCdgXEA06+cANOEUgCYeWcA35JgAOG6nwDrqXYA28CqAO7CnADgzbwA/sqYAP/RngD/1qMA986fAO3O + qQD/2qkA/96xAPHTrADn1LoA/9qnAP/cqQD416YA/96sAP/grQD/4rUA/+W7AP/isAD/5bIA/+a1AP/5 + 7QD65LQA/+q/AP/ptgD/6rkA/+/HAP3x0wD/+esA/+y6AP/12QD/7rsA//C/AP/zygDt474A//PAAP/2 + zQD/+uMA//XCAP/51wD/+t8A//vlAP/4xQD/+cYA//rHAPr30AD//MkA//zMAP/91QD//uoA//3PAP/+ + ywD//tIA///MAP//zgD//9UA///XAP//2QD//9wA///eAP//4gD//+UA///tAP//8wD///cA///8AFvB + /wBnpcwAV73/AEKo/wBcr/UAPKL/AE+Z3ABUoOEAACtWADOY/gA4nv8ACBIcAANFjQAnfdsAI2i0ADCN + 8wAylPoAMpD1ADiR8QBUc5YAZIWoAAxPoAApfOIAK4DoAC+K8gAuiO4ALYXrACZz2gAoed8AI2jOACVv + 1QAfVaAAKW3NADFtwgBBes4AME98AB9dwgAgYMYAImXLACFj2wAcVLsAGkyyABZDqQAcVc4ADyxrADhW + mQBCXJQAEzmgABEyiwAVPsIAETGXAAMIGABRaK0ABA0tAA4ojgAHFVgAAQILAAMMcAB1dqUAbGx+AHFx + cgCurq4AmZmZAIuLiwB9fX0AbW1tAGpqagBiYmIAW1tbAFNTUwBMTEwAR0dHAEFBQQA8PDwANjY2ADEx + MQAtLS0AKioqACgoKAAlJSUAISEhAB0dHQAaGhoAGBgYABISEgANDQ0ACQkJAAUFBQACAgIAAQEBAAQE + BAQEBOjn6OcEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQ6EOkQOujnBAQEBAQEBAQEBAQEBAQEBAQE + BAQEBAQEGzohEuEFI+fnBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQ6My+6yNoFI+fnBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBBs6uaiwyOAFOufnBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBvoraarxuAFI+fnBAQEBAQE + BAQEBAQEBAQEBAQEBOjn4ufqraiwyNoFOufnBAQEBAQEBAQEBAQEBAQEBAQ5VkFOTk4gqqiryOAFDOLn + BAQEBAQEBAQEBAQEBAQEU0w/NDArJTAQraarxuAFG+fn6Ofn5+fn5wQEBAQEBExMPDQwIiInKFFEraar + xuA6IOcQG0Q6Ojrn5+cEBAQETD80MCInLDExNkEvraaquhJERC4dXWplXVxE5+cEBAQ/TDAlJy0xNzdT + ZF06rKfk5R5XbYWWmJydf1g6IecEBARUKyYtMT1DNWJvcVFWKVwdYX2Tl5idn5+ipW4QEucEBDlNJy03 + Q1lZZ2doYk8pF2F1hYOXnJ+hoqUBpVgR5wQEBDhANz1QTWZmZmZiQTJXbI93hJqcoKKkpQGknRjp5wQE + BDhNNksXBwMHGUNUF2GIgXKEmp2goqWlo6CgWO7nBAQEBEZG29/f3NzfBkYVbY9zcIOTm6CVoqKVn6Ft + EecEBAT6//3+3tjY2Njf8Bh1jm9vfI6YnZ+goaCdnW4z5wQE/vz7/q7Q0NDQ0NUDLnqOcmx8h5KYnJ6e + nJibbSDnBP37+vuu0M/Pz8/Pz9IMbZOFdWt0h5CTmpmSl5lh7ufy+vn4+9bOysrKysrOxVJdiIB/fnJ3 + g4OHhIOThB3r5/349vX8zszDxMTEw8O0AxiGpQGldW90cHJ2jo5pM+cE/Pb18/nFxMHCwsLCwcTWIB+A + AQF/dWtoeI6KaxnqBAT89PHw9da8wL63tb+9wrvJRB9/lY2Wh4+Qg2kdUgQEBPnx8O/vsbevr6+wr7a1 + zuYEOhVdanp6em1hF+oEBAQE7fbv7u320s7CvbWwsK+7uQQEOjo6FzkeDDvpBAQEBAQE++7t6+zw97HS + 19HNxbEEBAQEBBcXFxcXBAQEBAQEBATt8+zt6ubl5ez629778AQEBAQEBAQEBAQEBAQEBAQEBAT47eno + 5uXj4xTo7fvwBAQEBAQEBAQEBAQEBAQEBAQEBAT57xIU5eXkFOn36wQEBAQEBAQEBAQEBAQEBAQEBAQE + BATv9+sS5+rz++cEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBATr6e3v6+sEBAQEBAQEBAQEBAQEBAQEBAQE + BAT8P///+A////AH///wA///8AH///gA///gAH//wAA//4AAAD8AAAAPAAAABwAAAAOAAAABgAAAAcAA + AADgAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAAABAAAAAwAAAAcAAIAPAADAH4AB8H+AAf//wAH//+AD + ///wB///+B///ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AFJN + awAwHWkAAAAAAJeEoQA3FEgAXzlsAGlTaQBgSlQAX0dRABYHDQCKanAAt42SAMGPkACqh4gAeFpaAFlG + RgB3dnYAV1ZWAISDgwClc3IAlnZ1AJpqaACqencAsYB+AMWUkQBmVFMAznRuAMGPiwC2iIQAy5uXAGVN + SwB4a2oA/GVUAIlnYwCWg4EA9WFMAP1qVwD9bloA9mtYAJ9fVgDOgngA7FtCAPxzXQD9eGAApnVtAIV5 + dwDlVzwA/H9lAJZZTQBpUk0A3VIzAM9QMADqaEkA/YRpAKdZRwCwhHkAeWFbAGpmZQDVTCkA/YpsAP6O + cADGRBwAzEoiAK5QMwDvfFoA/ZZ0AHlXTACLSTIAdEAuAO+JYwCwNwQAszkHAKU2CQC2OwoAvEAQAL9J + GQCYPBYAzVwuAOF2TQDHdFQAXVNPALFADgCoPhEAHxAJALJnRwDPoo0A2rmrAMlpNgDrmGoA/rGHAJ2B + cQDTr5wA04RSAJh5ZwDfkmAA4bqfAOupdgDbwKoA7sKcAODNvAD+ypgA/9GeAP/WowD3zp8A7c6pAP/a + qQD/3rEA8dOsAOfUugD/2qcA/9ypAPjXpgD/3qwA/+CtAP/itQD/5bsA/+KwAP/lsgD/5rUA//ntAPrk + tAD/6r8A/+m2AP/quQD/78cA/fHTAP/56wD/7LoA//XZAP/uuwD/8L8A//PKAO3jvgD/88AA//bNAP/6 + 4wD/9cIA//nXAP/63wD/++UA//jFAP/5xgD/+scA+vfQAP/8yQD//MwA//3VAP/+6gD//c8A//7LAP/+ + 0gD//8wA///OAP//1QD//9cA///ZAP//3AD//94A///iAP//5QD//+0A///zAP//9wD///wAW8H/AGel + zABXvf8AQqj/AFyv9QA8ov8AT5ncAFSg4QAAK1YAM5j+ADie/wAIEhwAA0WNACd92wAjaLQAMI3zADKU + +gAykPUAOJHxAFRzlgBkhagADE+gACl84gArgOgAL4ryAC6I7gAthesAJnPaACh53wAjaM4AJW/VAB9V + oAApbc0AMW3CAEF6zgAwT3wAH13CACBgxgAiZcsAIWPbABxUuwAaTLIAFkOpABxVzgAPLGsAOFaZAEJc + lAATOaAAETKLABU+wgARMZcAAwgYAFForQAEDS0ADiiOAAcVWAABAgsAAwxwAHV2pQBsbH4AcXFyAK6u + rgCZmZkAi4uLAH19fQBtbW0AampqAGJiYgBbW1sAU1NTAExMTABHR0cAQUFBADw8PAA2NjYAMTExAC0t + LQAqKioAKCgoACUlJQAhISEAHR0dABoaGgAYGBgAEhISAA0NDQAJCQkABQUFAAICAgABAQEABATn5+cE + BAQEBAQEBAQEBATn6Dvp5+cEBAQEBAQEBATn6Ois4Bvi5wQEBAQEBAQENUFFrLjgRuLnBAQEBAQEBFk1 + MDKtuOBE5+jn5+gEBARPJSxCMq2ruUZEIxY65wQEBE8xQmBfuuQfbZaeZRvnBAQEVgoDAxEdfZKdogF/ + EecE7vzb2NYKaoOHnqOklS/n7Pn5z8/QCHVzg5uhoZ8a5/n2rsrDyumGfnSHk5OaXOf28vG9v73UHaWJ + cnaHehHn7u/vsr24wMlYiYqDehDnBOfv7Onp0snbOzoeDxvnBAQE7BMU5OTr4gQbGxsEBAQEBATn6egT + 5wQEBAQEBAQEBMf/TD+B/yslAP+tpgB/4AUAB+foAAPn54ABBATAAAQEgAA8NAAAIicAAEStAADG4AAB + 5xAAAzo6gI/n58H/BAQoAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAKwcFBGIjFxOWJRgUoSUYFKAjFxOVFA0LbQAA + ADMAAAAPAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZDwoIZlU9NNZ8bmnwgXd09FNK + RvRwVlXtUDk11w8KCYYAAAA3AAAADwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkXD4z0HJr + af11dXX/bGxs/2xsfv+XhKH/to2T/kQxLuIPCgmHAAAANwAAAA8AAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAlZ0U55JeXl/93d3f/WG+P/1Forf91dqb/l4Sh/7aNk/5EMS7iDwoJhwAAADcAAAAPAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAiZ0U5435+fv9Zf5//OJLy/0F6zv9RaK3/dXam/5eEof+2jZP+RDEu4g8K + CYcAAAA3AAAADwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYZEM3zWOFnP1Xvf//Qqj//ziR8f9Bes7/UWit/3V2 + pv+XhKH/to2T/kQxLuIPCgmHAAAANwAAAA8AAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAABQAAAA4AAAAZAAAAIQAAACYAAAA1YUE2xkqY3ftbwf//V73//0Ko + //84kfH/QXrO/1Forf91dqb/l4Sh/7aNk/5EMS7iDwoJhwAAADcAAAAPAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAATAAAAMAAAAEwAAABkAAAAcwAAAH0AAACKCQYFnVNA + PuRIltv9W8H//1e9//9CqP//OJHx/0F6zv9RaK3/dXam/5eEof+2jZP+RDEu4w8KCIoAAABBAAAAHgAA + AAsAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEAAABGFQYAh0sYAbx0JALZjy0C644s + Au2wNwP/sDcD/604Bv+DSzj/TpfZ/1vB//9Xvf//Qqj//ziR8f9Bes7/UWit/3V2pv+XhKH/t42S/kMx + LuUNCQeeAAAAZwAAAEQAAAAnAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAACVWGwGjqDUD+rY6 + Cf+8Pg//x0Qa/8xHIP/XTiv/31M0/+RWOv/iVz7/l1dM/1CY2/9bwf//V73//0Ko//84kfH/QXrO/1Fo + rf91dqb/l4Sh/7mNkv9oOyv5YSEH2zIQAaoAAAB4AAAATQAAACIAAAAHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAA + ADejMwPxvT8R/8dEG//PSSP/1U0q/9xRMf/iVTj/6Fg+/+1bQ//1YEv/82JP/51aU/9QmNz/W8H//1e9 + //9CqP//OJHx/0F6zv9RaK3/dXam/5eEof+6jpP/ekEx/6E2Cv+XLwPxTRgBuAAAAGMAAAAnAAAACQAA + AAYAAAAJAAAACgAAAAoAAAAKAAAABwAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACCUMAUyxOAT/x0Qb/89JI//VTSr/3VEy/+VXO//pWT//819J//pjUf/9ZlX//WpX//Zr + WP+dXVX/UJnc/1vB//9Xvf//Qqj//ziR8f9Bes7/UWit/3V2pv+XhKH/uo6T/4pHO//BRCH/szkG/4Ao + AtoAAABjAAAANgAAADEAAAA6AAAAQAAAAEAAAAA8AAAAMgAAACQAAAAUAAAACgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABmohAmu2Ogn/zkgi/9RMKP/dUTL/5Vc7/+taQf/1YEz//WVU//1q + V//9b1r//XNd//13X//2dl7/nWBX/1CZ3f9bwf//V73//0Ko//84kfH/QXrO/1Forf91dqb/l4Sh/6p2 + eP+oQC3/3VIz/7g8DP9tIgLOCwgGhh4UEZIlGBShJxoWpysdGKslGBShIxcTlhIMCncAAABTAAAAOAAA + AB0AAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVEZAUaxOAT/0kom/9tRMP/kVjn/6lpA//Zh + Tf/9ZlT//WxZ//1xXP/9d2D//Xlh//1+ZP/9gGb/9n9l/5BYSf9OmNr/W8H//1e9//9CqP//OJHx/0F6 + zv9RaK3/eHmg/5Rta/+5Sjn/5Vg+/89QMP+VPRn8WTw1425LRe9yTUj1fVZT+ItkYfiGY1/1ellW7k44 + NN0wIBvEJRkVnAcFBGEAAAAxAAAAEAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAByrNQP21Ewo/+BU + Nv/oWT7/9WBL//1mVP/9bFn//XJc//14YP/9fWT//YJn//6Gav/+iWz/73pZ/7JDEf+YeWf/UJ3f/1vB + //9Xvf//Qqj//ziR8f9egbb/cHF2/4VrZ/+iYFb/p1ZG/5RZTP+aaWX/pHFx/6t8dv+ziHv/07KY/9zA + p//cuan/06qg/8WSkv+vf3/9dFRS8TMjH88WDgyFAAAAPwAAABUAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AA2WLwO6x0Qb/+ZYPP/vXUX//GVT//1rWP/9clz//Xlg//1/Zv/9hGn//olt//6Nb//5imr/ukIR/9yW + Yv/42aj/nYNw/1Cd3/9bwf//V73//1yv9f+mrLP/e3t7/5aWlv+wq6v/s46O/616ev/KnYr/7syj///q + t///8L3///vI////zP///87////S//v4z//n1Lr/w5aR/6V3dv1LNTHmGRAOnQAAAEMAAAAUAAAAAgAA + AAAAAAAAAAAAAAAAAAN6JgJcszkH/+ZXPP/4Yk7//WdW//1vW//9d2D//X5l//2Eaf/+im3//pBw//6V + c//NWi3/yWk2///ap///3Kn/+NWk/52Bbv9UoOH/Z6XM/6OgoP+wrqz/mJiY/4V7e/+0iIj/wZCH//XN + oP//4K3//+y+///2zP///dT////S////0////9j////Y////2////9n////Z/9rArP+wfX3/WT487BcP + DaEAAAA9AAAADgAAAAEAAAAAAAAAAAAAAAAAAAALozMDzs1IIf/8ZVP//WxZ//10Xv/9e2P//YNo//6K + bf/+kHH//pZ0/+F2Tf+1QQ3/+suX///Vov//1qP//9aj//jPnv/y06r/04RS/7lbOv+ef3b/rKam/7iI + iP/ToI3//9Wi///jtP//98////7Q///+y////83////T////1////93////c////3v///97////s//// + 7v/hzr//q3h4/1c8OusNCQeNAAAAKwAAAAcAAAAAAAAAAAAAAAAAAAABcSMCMq02A/TlWDz//W9a//14 + YP/9gGb//ohs//6OcP/+lXT/74lj/7A3A//wsn///8+c///Qnf//0Z7//9Ge///Rnv//0p//5qJu/5hN + Mf+Tgn7/xZyc/9Kfj///z5z//+W7///90P//9sP///PA///+y////9L////X////3f///+L////m//// + 6f////b/////////////////38y5/6Zzc/84JyTdAAAAYAAAABcAAAABAAAAAAAAAAAAAAAAAAAABI4s + AmO1Ogj/72dM//16Yf/9gmj//opt//6Tcv/5k3D/tT0K/+GOXf//xpX//8aV///Mmf//zJn//8yZ///M + mf//zJn/66d0/6ROLP+mdW3/xpOQ//vKm///4bf///7S///vvP//67j///jF////zf///9X////b//// + 4v///+f////t////8P/////////////////////////l/8yvnf+LX176EQsJsgAAAC4AAAAHAAAAAAAA + AAAAAAAAAAAAAAAAAASWLwNxtTsJ/+VoRv/9hGn//o1v//mObP+/Shn/zV0v//6qgv/+rIT//qyE//6w + h//+soj//rSJ//65jP/+uYz/65hq/4RNOf/CkI//6L2d///Vpf///NL///K////ksf//7br///rH//// + zv///9X////d////5f///+z////z////9/////3////////////////////i//n20f+mdnT/UTc24QAA + AGEAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAElC4DX602A/PIUCT/735b/79IGP/ITyP/znRu/185 + bP8wHWn/AABm/wAAZv8wHWn/b0Nt/86CeP/+n3v/x3RU/5xqX//LmZb//9uo///uxv//+cb//+Kv///j + sP//7rv///rH////0f///9f////d////5f///+7////1/////f////3////7////+v///+z////c//// + 2f/JrJr/eVFR9AAAAIgAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAUAAAALB8KAVqIKgLOsDcD/6U0 + Cf83FEj/AANo/wEHa/8FEHb/BxV7/wYTef8FEHb/Agds/wADaP9fOGv/p1xI/658df/csZ3//96s//// + 1f//77z//9uo///jsP//7rv///rH////z////9b////d////5f///+3////z////+P////j////z//// + 7f///+X////b////2f/t477/nGlp/wsHBq8AAAAjAAAAAAAAAAAAAAABAAAACgAAACoAAABXAAAAfwAA + ALIAAADUFwcA9hYHDf8AAif/BRBc/w0mjP8OKI7/DimP/w4pj/8OKY//DimP/wcYff8BCWz/XDxJ/8GP + jP/qxKT//+rB///7yv//5bL//9qn///hrv//67j///jF////zv///9X////c////4////+j////u//// + 8f////H////u////6P///+P////Z////2f///87/nGlp/zkmJckAAABCAAAAAAAAAAEAAAANAAAAOQAA + AHQAAADKAAAA9gEBAf8DAwP/BAQE/wQEBP8BAQH/AAAA/wshZ/8QMJb/ETKY/xEymP8RMpj/EDGX/xAw + lv8NKY7/XEBJ/8yZmf/xz6n///DG///5xv//36z//9ek///grf//6bb///PA///+y////9P////Y//// + 3v///+X////m////6v///+r////m////5f///9/////Y////1v///sv/roJ5/0UuLdQAAABLAAAAAAAA + AAoAAAA3AAAAhgAAAPABAQH/BQUF/wcHB/8ICAj/BwcH/wEBAf8FDij/DCRj/xEyi/8TOZ//Ezmf/xM5 + n/8TOZ//Ezmf/xM5n/8SN53/X0dR/8yZmf/x0av///DG///5xv//3Kr//9Wi///frP//5bL//+67///6 + x////87////V////2v///97////i////4////+P////i////3v///9z////U////0v//+sf/tIt+/18/ + P9wAAABYAAAAAwAAACQAAAB4AAAA+gMDA/8JCQn/CwsL/w0NDf8ODg7/AgIC/woeUf8UPaP/FUCm/xZC + qP8WQ6n/FkOp/xZDqf8WQ6n/FkOp/xZCqP8VQaf/YEpU/8yZmf/x1a7///DG///5xv//3Kn//9Kf///c + qf//6Lf///C9///zwP///cr////P////1P///9f////b////3f///93////c////2P///9T////P///9 + 0P//88D/roF3/00zM80AAABEAAAADQAAAEkAAADlBQUF/wwMDP8ODg7/ERER/xISEv8JCQn/BhEq/xZD + qf8XRqz/GEmv/xlLsf8aTbP/Gk2z/xpNs/8aTbP/Gk2z/xlLsf8ZSrD/WEth/7+Pj//u0K3///TM///5 + xv//5bP//+a////yyv//5rX//+m3///0wf//+MX///zJ////zf///9L////U////1f///9X////U//// + 0v///83///7L///4zP//7Ln/nGlp/zclJbcAAAAwAAAAHwAAAJICAgL/Dg4O/xISEv8TExP/FhYW/xgY + GP8FBQX/ETJ5/xpMsv8bT7X/G1G3/xxTuf8cVLr/HVa8/x1WvP8dVrz/HVW7/xxUuv8cUrj/S051/6uB + g//guqT//+7A///9z///9c7///HR///Zqv//2an//92s///ksf//77z///bD///4xf///Mn////M//// + zP///8z////M///8yf//+MX///7O///vwP/t0aj/nGlp/xAKCpcAAAAVAAAAMAAAANoKCgr/ExMT/xYW + Fv8ZGRn/Gxsb/x0dHf8AAAD/G1C2/xxUuv8dV73/HlrA/x9dw/8gX8X/IGDG/yBgxv8gYMb/IGDG/x9e + xP8fXML/OFaZ/4pqcP/On5n//+y5///91f///ev//+q////owP//5bz//96x///aqv//47D///G+///s + uf//8b7///PA///0wf//9MH///PA///xvv//88D///zS///lsv/Ppoz/h1tb8gAAAHEAAAAHAAAAPgAA + AP8SEhL/GBgY/xsbG/8eHh7/ISEh/yMjI/8AAAD/Hlm//x9exP8gYMb/IWLI/yJly/8iZ83/ImfN/yJn + zf8iZ83/ImfN/yJly/8hY8n/JGDA/2VWZf/Bj5H/6Mqq///zyP////j///33/////////fv//+rJ///d + sP//3av//+i2///ksf//6LX//+q3///ruP//67j//+u4///ruP///cz//+zA///eq/+se3X/UDY2vQAA + ADcAAAABAAAAaQICAv8ZGRn/HR0d/yAgIP8kJCT/JiYm/ygoKP8AAAD/IGHH/yJly/8jaM7/JGvR/yVu + 1P8lcdf/JXHX/yZz2f8mctj/JXHX/yVv1f8kbdP/I2rQ/0JclP+Vc3j/ypyV///uu/////3///////// + //////////nt///juf//1qT//+7B///cqf//36z//+Ct///grf//4K3//+Wy///5xv//9c3//9mm/9Gj + iv+UZWX1AAAAdAAAAAcAAAAAAAAAcwcHB/8eHh7/IiIi/yQkJP8oKCj/Kysr/y0tLf8AAAD/I2jO/yRt + 0/8mctj/JnTa/yd23P8oeN7/KHrg/yh64P8oeuD/KHje/yd33f8mdNr/JnPZ/yltzf9hWW7/tYaG/9ay + nv///ev///////////////////nr///luv//5Lv//+K1///ToP//1qP//9ek///cqf//67j///rH///3 + zP//1aT/77+W/6Zzc/9LNDSuAAAALQAAAAEAAAAAAAAAbAgICP8jIyP/JiYm/yoqKv8tLS3/MDAw/zIy + Mv8KCgr/HFWi/yZ02v8oed//KXvh/yp+5P8rgef/K4Lo/yyE6v8sguj/K4Hn/yp/5f8pfeP/KHrg/yd1 + 2/8xbcL/blpl/7eFhf/Xuaz////8//////////////vl///63///+df//+Wz///hrv//5bP//+y5///3 + xP///c7//+/H///Pnv/wvZP/sH15/3VRUc0AAABIAAAAAgAAAAAAAAAAAAAASQICAv8mJib/Kioq/y8v + L/8xMTH/NTU1/zg4OP8aGhr/FDxv/yl74f8rgOb/LYXr/y2H7f8uie//L4vx/y+L8f8vi/H/Lorw/y6I + 7v8thev/LILo/yp94/8oed//IVSe/2xSVvqzgYD+0K2d//rw1P//9dn///rj///+3f///Mz///nG///6 + x////Mz///7T///yx///4LL//9Sh/+O0lP+1gn//glxc0gAAAE4AAAADAAAAAAAAAAAAAAAAAAAAIgAA + AP8oKCj/MDAw/zIyMv82Njb/Ozs7/z09Pf8sLCz/BRAc/yyE6v8uiO7/L43z/zKV+/8yl/3/M5n//zOZ + //8zmf//M5j+/zKV+/8wkPb/Lonv/y2F6/8rgOb/DU6h/xQ3auF5VEvJpXZ0+bKCf//au57/+uS0///s + u///7sH//+q9///ou///6Lv//+Kx///eq//vyKL/y52R/69+fvtlR0erAAAAMAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAEwAAANUeHh7/MjIy/zc3N/88PDz/Pz8//0JCQv9ERET/CQkJ/yNotP8ylPr/MZL6/zGT + +v83nf//OJ7//zmf//85n///OJ7//zac//8zmf//Mpf9/zCO9P8th+3/C0+e/wAwabUAAAAWZUM4WIpf + WNagcG/7pHFx/7eMf//NqZD/06+W/9y3nv/mv6b/2q2d/8yblf/AjY3/kGlp0zsrK2QAAAASAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAAI8QEBD/Nzc3/zw8PP9AQED/Q0ND/0dHR/9KSkr/MDAw/wQM + G/8bUsb/IGDZ/yJn3f8kbOD/KX3s/y6G8P81kfX/PaP//zuh//85n///Npz//zOY/v8wj/X/A0WN/wAx + ZpUAAAAKAAAAAAAAAAFfQDUue1NMjoRaVtGHWljpkmVj76B0cvCxhIPqmHBv0INhYJUyJSU9AAAACQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAACsAAAD/MzMz/z8/P/9DQ0P/SEhI/0xM + TP9PT0//UlJS/yAgIP8CBxj/BxMz/w0nZv8UOqP/GEjJ/x1X0v8fXtf/I2jd/yx86P8yi/L/MIny/y6K + 9P8nfdv/ACtW/wAnTVUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAC2GBgY/0JC + Qv9HR0f/TExM/09PT/9UVFT/VlZW/1lZWf9LS0v/QUFB/yoqKv8MDAz/AgUW/wkacf8QMLn/FDrA/xU+ + w/8YRsf/HVfS/xxUvf8HFiv/AAoT9QAAABoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAA1AAAA9Tg4OP9KSkr/TU1N/z8/P/9GRkb/WFhY/2pqav92dnb/g4OD/4GBgf9xcXH/Pj4+/xgY + GP8BAgv/Awo2/wcTWv8HE1r/Awot/wAAAP8ICAj/AAAArAAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAFAAAAhgkJCf9ISEj/U1NT/1dXV/9bW1v/YmJi/2pqav97e3v/jY2N/5yc + nP+pqan/ra2t/4ODg/9RUVH/ODg4/yoqKv8nJyf/MTEx/zk5Of8EBAT/AAAATAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACQAAAL8ZGRn/VFRU/1paWv9hYWH/Z2dn/3Fx + cf92dnb/hISE/5eXl/+srKz/ubm5/7e3t/+ZmZn/fX19/2tra/9XV1f/Q0ND/xwcHP8AAADOAAAACwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAABsAAADZISEh/1ZW + Vv9lZWX/bW1t/3h4eP+BgYH/h4eH/4eHh/+NjY3/p6en/7S0tP+cnJz/hISE/21tbf9WVlb/Li4u/wAA + APMAAAAwAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAZAAAAyhISEv9TU1P/cXFx/35+fv+IiIj/j4+P/46Ojv+IiIj/fX19/3Z2dv9zc3P/aWlp/15e + Xv8pKSn/AAAA8wAAAD8AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABgAAAI0AAAD/Kysr/3BwcP+IiIj/lZWV/5SUlP+JiYn/fX19/3Nz + c/9gYGD/PDw8/wsLC/8AAADXAAAAOwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAApAAAAqQAAAPIaGhr/NTU1/0ZG + Rv9ERET/Nzc3/x0dHf8AAAD/AAAA1gAAAGsAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAABJAAAAigAAAIwAAACMAAAAigAAAEoAAAAUAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/wAf////AAD/AA////8AAP8AB////wAA/wAD//// + AAD/AAH///8AAP8AAP///wAAwAAAf///AACAAAAf//8AAIAAAAf//wAAAAAAA///AAAAAAAAAf8AAAAA + AAAAfwAAAAAAAAAfAAAAAAAAAA8AAIAAAAAABwAAgAAAAAADAACAAAAAAAEAAMAAAAAAAQAAwAAAAAAA + AADgAAAAAAAAAPAAAAAAAAAA+AAAAAAAAADwAAAAAAAAAMAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAQAAAAAAAAAD + AAAAAAAAAAcAAAAAAAAADwAAAAAAAAA/AAAAAAAQAP8AAAAAAB///wAAgAAAP///AACAAAA///8AAMAA + AD///wAA4AAAf///AADgAAB///8AAPAAAP///wAA/AAB////AAD+AAf///8AAP/AH////wAAKAAAACAA + AABAAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAA + ACQAAAA3AAAAPAAAADAAAAAaAAAACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + ABUcEg9WPCokqGlaVN1bS0LiWT870B8VEn8AAAApAAAACQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAAMFpAN9J8a2f8d3d2/2Vrgf+Yg6D/dlhX7xUOC4wAAAAqAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAMAAAA9YUY75YR4cP5ahq3/PXnS/2Ruqf+kiaL/eVtb8hkRDo8CAQEtAAAACQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAADRVPjnXXniR/VC+//88oP7/PHbN/2Zvqv+ji6b/d1pa8h0T + EZMDAgIwAAAACQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAHTgoJYhGSFXaVKni/lTB//88oPr/O3XP/2Ju + q/+kiqb/eFtb8x4UEZUCAQEuAAAACQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAGAAAAEAAAABkAAAApAAAAQQUDAnNGQEreVa3l/lPD + //88nfn/OnXN/2Vvq/+ljKf/cVZV8SEWE5QAAAAsAAAACQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADTAPATt1JAKRfygCsZkwA9yYLwPdki4D4YEp + BOlmR0P5Va7m/1DE//88nvn/OnPO/2Vwrv+ljKX/eltb8hgQDpICAQEoAAAABQAAAAIAAAAFAAAACAAA + AAkAAAAHAAAABAAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAwDwE6rDYE9sBBFP/KRh7/2lAv/+JV + N//vXUb/8mBN/9pYSf+CV1r/VbDo/1DG//88nvj/OXPO/2Vvq/+oj6z/YEhL7AcEA2QAAAAhAAAAJgQD + AjoTDQtPFg4MVRMMCkwAAAA0AAAAIAAAAA8AAAAEAAAAAQAAAAAAAAAAAAAAAG0iAoG9PhD/0ksm/91R + Mv/oWT//+mNR//1nVf/9blr/9m9a/9ZkUf95U1D/Vazj/1DG//88nvn/NnPQ/2t5tP9zYWf/QhoIyhkQ + DX4+KSSuVDQy1GA+OuJwT0jlbUxJ31AzM8o0Ih+fFA0LVwAAACIAAAAJAAAAAQAAAAAAAAAAdSUCkMJC + Fv/cUTH/6VlA//xkU//9bVn//XVf//17Y//8f2b/32hG/6dWLP+Ff3j/Vazn/1DG//9Nq///aoSp/3p2 + dP95WU7+bktI759waPvEm4b/0LOV/+TQrv/kzbL/0bWi/qJ+dvhePTviHxQSjwAAADAAAAAKAAAAAQAA + AABUGgFkwEEU/+NVOP/6Y1H//W1Z//13YP/9gGf//Ydr//mHaP+5RhT/7ceW/9a8k/95Xlj/UZPG/3+f + tv+en53/joiJ/7GLjf/Xp47/9Nas//zzxv/++9D////T////2P///Nr/+PDT/9m9qv99WFX1HhMRoQAA + ADAAAAAJAAAAAQAAACilNAPu6lpA//1pV//9dV///YBn//6Lbv/+k3P/yFQm/+amcv/+2qf/+NWj/8N8 + T/+yXkn/mWNb/5p9dv+5kpH/6LWT//3pu///+8z///7L////0f///9j////f////4P///+7//vz4/+bO + xP9+V1b3CgYGjgAAACIAAAAEAAAAEWkhAobDQxf//W5a//17Y//9h2v//pNz/9drPv/Obzz//9Gd///R + nv//05//6at3/8peOP+iXlD/onFs/+axlv/+57z///bI///xvP///cv////X////4P///+f////w//// + +////////v79/9y9rv9JMC7mAAAAWgAAAA8AAAAEAAAAIo4sAsXNTiX//YBn//6NcP/hc0v/v04c///B + kv//xpX//8aV///Jl//vr33/vFIp/5dbT//KmYn//N2x///4yf//5rL///C9////z////9j////j//// + 7v////n////+//////////f///za/6h9dv8NCQmmAAAAIgAAAAAAAAAHAAAAKIcqArrDShz/4W9I/7pD + Ef+aXmz/TzZw/0Atb/9fQ3P/v397//Scdv+hRSD/mmhg/+a7n///+cr//+y4///erP//8r7////P//// + 2f///+P////v////+f////r////y////5P///+H/2rum/yIUFNMAAAA5AAAAAAAAAAQAAAAYAAAASD0T + AbpaHAL6Fgo7/wQPbv8JG4D/CyCG/wkbgf8CCW3/RCVa/4Q4HP+mdmr+9NS0///5yf//4a3//92p///u + u////cz////W////4f///+n////v////7////+j////e////4v/r1rb/TjIy6QAAAFUAAAAGAAAAIAAA + AIYAAADvAgIC/wQEBP8BAQH/AgUS/xExl/8RMZf/ETGX/xExl/8GF3b/JR1A8qh7c/z43bv///jG///a + p///26f//+q3///5xf///9L////a////4P///+P////k////4f///9r////b/+/ctv9oRkTwAAAAagAA + AB8AAAC4AwMD/wkJCf8MDAz/AgIC/wwjXP8VP6X/FkKo/xZDqf8WQ6n/FUCm/xQ8nv8kJVn/only/ffd + vP//+cb//92s///fsP//6Lb///O////9yv///9L////X////2////9v////Y////0v///9b/69Gt/1g5 + O+sAAABfAAAAdAQEBP8PDw//FBQU/w0NDf8MI1b/GEiu/xpNs/8bULb/G1C2/xtQtv8aTrT/GEqu/yM2 + df+LZmb97tGy///8zP//8sn//+W5///dq///5bP///TA///6x////Mz///7O///+zv//+8r///7L///+ + zf/jvKD/MBwf2wAAAEEAAADSERER/xgYGP8bGxv/DQ0N/xU9iv8dVbv/Hlm//x5bwf8fXsT/H17E/x5a + wP8dVrv/Hkug/15HWP/ZsJr///jR///96P//7tX//+jJ///crP//5LH//+67///vvf//9L////G9///w + u////cz///K//8GSg/8TDAy4AAAAKQUFBf8bGxv/Hx8f/yQkJP8JCQn/HVe2/yFjyf8jaM7/JGzS/yRs + 0v8kbNL/I2vR/yJnzf8eXL3/MThg/6l7dP71373////6/////////fr//+S9///aqP//47P//9yo///f + rP//5K////bF///5xf/1yKX/ZkdG8QIBAW4AAAAUCAgI/yIiIv8nJyf/LCws/xcXF/8bUJz/JXDW/yd1 + 2/8oed//KXrg/yl64P8od93/J3PZ/yRt0v8VQ4//XEJF8smfkv/79Oz/////////////8dP//+a8///a + qP//2KX//+Wz///3xf//9cH//9ep/7qFff8XDxCzAAAAMAAAAAUJCQn/KCgo/y8vL/80NDT/IyMj/xZD + fP8qfeP/LIXr/y6L8f8wkff/L4/1/y6J7/8sguj/KXrg/xJRqP8MIkXQaEVA5cSdlv/05db////o//// + 5f///8////a////6yP//+8n//+67//zMpf/IkYf/JxsbyAIBAk8AAAAQAAAAAQAAAOYvLy//NjY2/zw8 + PP88PDz/BhEd/zCR9/8zmP7/NJr//zac//82nP//M5n//zKX/f8ui/H/E1mt/wAeRJYXDw1uWD02y51x + bPzRrpj/6M6r//Xgtv/54bj/+t+3//jSrv/puKL/kWln9BsSE68CAQJNAAAAFQAAAAIAAAAAAAAAuiIi + Iv8+Pj7/Q0ND/0lJSf8iIiL/ETJu/x1Wv/8mc+X/LYPv/zKN9P86nPz/OJ7//zOZ//8MV6T/ACRKdQAA + AB4HBQQ8LB4bgU4zL8J7U1HulWpk+ql+dvqxhoL3flxc4y4hIbMJBgdpAQEBMAAAAA8AAAACAAAAAAAA + AAAAAABVDw8P/0JCQv9JSUn/UFBQ/1BQUP80NDT/HR0d/wkPH/8MJGT/F0O8/xxU0f8gYNn/HFSh/wAK + EfcAAAAwAAAABAAAAAkAAAAZAAAALwAAAEMAAABOAAAATgAAAEkAAAA8AAAAJwAAABMAAAAFAAAAAQAA + AAAAAAAAAAAAAAAAABwAAAC6KSkp/0tLS/9LS0v/XFxc/3p6ev+Ojo7/iIiI/0hISP8RERH/Awot/wUH + EP8MDAz/AAAAxwAAABwAAAAAAAAAAAAAAAEAAAACAAAABAAAAAQAAAAFAAAABAAAAAQAAAACAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAAD4AAADmRUVF/19fX/9ra2v/enp6/46Ojv+oqKj/u7u7/4aG + hv9oaGj/R0dH/w4ODv8AAABzAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAADwAAAGIHBwfvPj4+/3R0dP+EhIT/jo6O/4qK + iv+Wlpb/g4OD/2BgYP8eHh7/AAAArQAAAB0AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEAAAAEEAAADGHh4e/1VV + Vf94eHj/cHBw/1lZWf8sLCz/BgYG9wAAAJMAAAAgAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACAAA + AB4AAABUAAAAoAAAALsAAADGAAAArwAAAIMAAAA+AAAAFQAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwB///4AP//+AB + ///gAP//4AB//+AAP/8AAB//AAAAHwAAAAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAACAAAAAgAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAMAfAAD//wAA//+AAf//wAP//ygA + AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAEQAAADIAAABFAAAANQAA + ABUAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAADVLODHCYFRV60Yz + M88CAQFaAAAAGQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYAAABgaGVo+E2U + 3P93e6//SjU13QEBAGUAAAArAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB2JQV6pjgS8IdB + L/9Todr/QZjy/3l6rP9pPjb4gjAa1FgcAnsAAAAfAAAACgAAAAUAAAADAAAAAQAAAAAAAAAAjjANq9hQ + L//iWkn/nVJJ/1aj2f9BmPH/eXut/3tNT//ASjT/aSMHsAEBAVgAAABJAAAAMgAAABUAAAADAAAAAHoo + B4/xXkf/+nNd/+R7Yf+RV0P/VKfg/0Sd9/9rc5P/dz82/3JFO/SFaFrvhWpg6kszL8gEAwJcAAAAGgAA + AAMAAAAowUcm5P2CZ//shF//0Yxh/5F9bf9fiaj/lpGV/8Shk//u1K7///3O////3P/l0cD/Uj074AEA + AF8AAAAWAAAAEyEKAVWbQyLUZy9L/0Axcv85LGX/UzxL/7+Tg///6br///3J////2v///+z//////+/g + 2P8pHBrNAAAAOAAAADcCAgK8BQUF+QUPKf8SNpz/EDGN/1NBWf/uzK3//++6///0wP///93////z//// + +f///+v/iHRm8wAAAFAFBQW4FBQU/w4VIv8YSa//Gk2z/xdEnv91X2v//ue+///grP//77v////V//// + 5P///+X////f/7WjiPgAAABZDw8P9yEhIf8cLEX/IGDG/yNnzf8gYb3/Y1dr//XdvP//8cn//+W2///0 + wP///M3///zN////0P+XfWr1AAAAUxkZGfctLS3/IjBD/yp+5P8tiO7/LIPk/zdckP+7m47////////1 + 5f//4K7//+Ww///2wP/84bf/OCgl1gAAADsWFhbRPDw8/z09Pf8XRoT/Kn3s/zKP9P8wiuP/Ok5v/8uy + rP779OT///HE///uvP/32rT/aU1F6QAAAG0AAAAZAAAAdT09Pf9MTEz/ZGRk/1teZv8jM2T/IT16/wob + LvkkGRWqcVFJ5q6Je/utiX/1OSkpxwAAAFwAAAAfAAAABQAAACAUFBTDV1dX/4GBgf+dnZ3/nZ2d/1RU + VP8GDxWWAAAANgAAAEYAAABYAAAAUgAAADQAAAATAAAAAwAAAAAAAAAHAAAAIg4ODoRGRkbaUlJS3TIy + MtAADBOBAAAAHAAAAAcAAAAEAAAABwAAAAYAAAAEAAAAAQAAAAAAAAAAAf8BOgD/BPYAPxT/AAMe/wAB + L/8AADf/AABG/wAATf8AAEn/AABa/wAA6P8AAP//AAD4/wAAzv8AAav/AAOs/w== + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.vb b/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.vb new file mode 100644 index 0000000..91b8f77 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmUserKonfig_AddUsers.vb @@ -0,0 +1,129 @@ +Imports System.DirectoryServices +Imports System.DirectoryServices.ActiveDirectory +Imports System.DirectoryServices.AccountManagement + +Public Class frmUserKonfig_AddUsers + + Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Cursor = Cursors.WaitCursor + Dim groups As List(Of String) = GetActiveDirectoryGroups() + + For Each group In groups + lbGroups.Items.Add(group) + Next + Catch ex As Exception + MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + Cursor = Cursors.Default + + End Sub + + Function GetActiveDirectoryGroups() As List(Of String) + Dim groups As List(Of String) = New List(Of String) + Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) + Dim group As GroupPrincipal = New GroupPrincipal(ctx) + Dim srch As PrincipalSearcher = New PrincipalSearcher(group) + For Each g In srch.FindAll() + If GetUsersForGroup(g.ToString()).Count <> 0 Then + groups.Add(g.ToString) + End If + Next + + Return groups + End Function + + + Function GetUsersForGroup(g As String) As List(Of UserPrincipal) + Dim users As List(Of UserPrincipal) = New List(Of UserPrincipal) + Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) + Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g) + + Dim u = group.GetMembers(True) + + For Each user In u + If user.GetType().Name = "UserPrincipal" Then + users.Add(user) + End If + Next + + Return users + End Function + + Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged + Dim group As String = lbGroups.SelectedItem + Dim users As List(Of UserPrincipal) = GetUsersForGroup(group) + + clbUsers.Items.Clear() + For Each user In users + clbUsers.Items.Add(user) + Next + End Sub + + Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click + Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems + Dim usersAdded As Integer = 0 + + If items.Count = 0 Then + MsgBox("Keine Benutzer ausgewählt") + Exit Sub + End If + + For Each item As UserPrincipal In items + Dim user As UserPrincipal = item + Dim PRENAME As String = user.GivenName + Dim NAME As String = user.Surname + Dim USERNAME As String = user.SamAccountName + Dim email As String = user.EmailAddress + Dim SQL + If Not UserExists(USERNAME) Then + SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ")" + If ClassDatabase.Execute_non_Query(SQL) = True Then + usersAdded = usersAdded + 1 + End If + Else + SQL = "UPDATE TBDD_USER SET MODULE_RECORD_ORG = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')" + If ClassDatabase.Execute_non_Query(SQL) = True Then + usersAdded = usersAdded + 1 + End If + End If + Next + + If usersAdded = 1 Then + MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information) + Else + MsgBox(usersAdded & " neue Benutzer hinzugefügt", MsgBoxStyle.Information) + End If + + End Sub + + Private Function UserExists(username As String) As Boolean + Try + Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')" + If ClassDatabase.Execute_Scalar(SQL) = Nothing Then + Return False + Else + Return True + End If + Catch ex As Exception + MsgBox("Error in UserExists: " & vbNewLine & ex.Message) + Return False + End Try + End Function + + Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click + Me.Close() + End Sub + + Private Sub tbSelectEverything_Click(sender As Object, e As EventArgs) Handles tbSelectEverything.Click + For i = 0 To clbUsers.Items.Count - 1 + clbUsers.SetItemChecked(i, True) + Next + End Sub + + Private Sub tbSelectNone_Click(sender As Object, e As EventArgs) Handles tbSelectNone.Click + For i = 0 To clbUsers.Items.Count - 1 + clbUsers.SetItemChecked(i, False) + Next + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.Designer.vb b/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.Designer.vb new file mode 100644 index 0000000..50b0e0a --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.Designer.vb @@ -0,0 +1,371 @@ + _ +Partial Class frmWD_EntityImport + 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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_EntityImport)) + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtEntityString = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnopenfolder = New System.Windows.Forms.Button() + Me.rbSubdirectoriesFolders = New System.Windows.Forms.RadioButton() + Me.rbsubdirectoriesFiles = New System.Windows.Forms.RadioButton() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnpathWD = New System.Windows.Forms.Button() + Me.btnrunImport = New System.Windows.Forms.Button() + Me.btnBackupordner = New System.Windows.Forms.Button() + Me.chkImportoptionenBackup = New System.Windows.Forms.CheckBox() + Me.ListBox2 = New System.Windows.Forms.ListBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.ListView1 = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.Label7 = New System.Windows.Forms.Label() + Me.cmbObjekttyp = New System.Windows.Forms.ComboBox() + Me.txtFilter_exclude = New System.Windows.Forms.TextBox() + Me.txtFilter = New System.Windows.Forms.TextBox() + Me.txtBackupordner = New System.Windows.Forms.TextBox() + Me.txtwindreamPath = New System.Windows.Forms.TextBox() + Me.txtpath = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(587, 30) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Designen Sie hier den Import für Dateien welche zur aktuellen Entität zugeordnet " & _ + "werden sollen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Beachten Sie dass alle gefundenen Dateien NUR der Entität und NU" & _ + "R der Parent-ID zugeordnet werden." + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 51) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(96, 15) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Gewählte Entität:" + ' + 'txtEntityString + ' + Me.txtEntityString.Location = New System.Drawing.Point(15, 69) + Me.txtEntityString.Name = "txtEntityString" + Me.txtEntityString.ReadOnly = True + Me.txtEntityString.Size = New System.Drawing.Size(151, 23) + Me.txtEntityString.TabIndex = 2 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(12, 168) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(188, 15) + Me.Label3.TabIndex = 3 + Me.Label3.Text = "Wählen Sie hier den Importordner:" + ' + 'btnopenfolder + ' + Me.btnopenfolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG + Me.btnopenfolder.Location = New System.Drawing.Point(529, 186) + Me.btnopenfolder.Name = "btnopenfolder" + Me.btnopenfolder.Size = New System.Drawing.Size(40, 23) + Me.btnopenfolder.TabIndex = 5 + Me.btnopenfolder.Text = "..." + Me.btnopenfolder.UseVisualStyleBackColor = True + ' + 'rbSubdirectoriesFolders + ' + Me.rbSubdirectoriesFolders.AutoSize = True + Me.rbSubdirectoriesFolders.Location = New System.Drawing.Point(291, 215) + Me.rbSubdirectoriesFolders.Name = "rbSubdirectoriesFolders" + Me.rbSubdirectoriesFolders.Size = New System.Drawing.Size(232, 34) + Me.rbSubdirectoriesFolders.TabIndex = 7 + Me.rbSubdirectoriesFolders.TabStop = True + Me.rbSubdirectoriesFolders.Text = "Unterordner incl. Dateien einbeziehen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Unterordnerstruktur wird übernommen" + Me.rbSubdirectoriesFolders.UseVisualStyleBackColor = True + ' + 'rbsubdirectoriesFiles + ' + Me.rbsubdirectoriesFiles.AutoSize = True + Me.rbsubdirectoriesFiles.Location = New System.Drawing.Point(15, 215) + Me.rbsubdirectoriesFiles.Name = "rbsubdirectoriesFiles" + Me.rbsubdirectoriesFiles.Size = New System.Drawing.Size(226, 34) + Me.rbsubdirectoriesFiles.TabIndex = 8 + Me.rbsubdirectoriesFiles.TabStop = True + Me.rbsubdirectoriesFiles.Text = "Dateien aus Unterordnern einbeziehen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Nur die Dateien werden übernommen" + Me.rbsubdirectoriesFiles.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 264) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(240, 15) + Me.Label4.TabIndex = 9 + Me.Label4.Text = "Wählen Sie hier den Zielordner in windream:" + ' + 'btnpathWD + ' + Me.btnpathWD.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG + Me.btnpathWD.Location = New System.Drawing.Point(529, 282) + Me.btnpathWD.Name = "btnpathWD" + Me.btnpathWD.Size = New System.Drawing.Size(40, 23) + Me.btnpathWD.TabIndex = 11 + Me.btnpathWD.Text = "..." + Me.btnpathWD.UseVisualStyleBackColor = True + ' + 'btnrunImport + ' + Me.btnrunImport.Font = New System.Drawing.Font("Segoe UI Semibold", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnrunImport.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + Me.btnrunImport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnrunImport.Location = New System.Drawing.Point(602, 327) + Me.btnrunImport.Name = "btnrunImport" + Me.btnrunImport.Size = New System.Drawing.Size(139, 29) + Me.btnrunImport.TabIndex = 12 + Me.btnrunImport.Text = "Starte Import" + Me.btnrunImport.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnrunImport.UseVisualStyleBackColor = True + ' + 'btnBackupordner + ' + Me.btnBackupordner.Enabled = False + Me.btnBackupordner.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnBackupordner.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG + Me.btnBackupordner.Location = New System.Drawing.Point(529, 332) + Me.btnBackupordner.Name = "btnBackupordner" + Me.btnBackupordner.Size = New System.Drawing.Size(40, 23) + Me.btnBackupordner.TabIndex = 17 + Me.btnBackupordner.Text = "..." + Me.btnBackupordner.UseVisualStyleBackColor = True + ' + 'chkImportoptionenBackup + ' + Me.chkImportoptionenBackup.AutoSize = True + Me.chkImportoptionenBackup.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkImportoptionenBackup.Location = New System.Drawing.Point(15, 311) + Me.chkImportoptionenBackup.Name = "chkImportoptionenBackup" + Me.chkImportoptionenBackup.Size = New System.Drawing.Size(279, 17) + Me.chkImportoptionenBackup.TabIndex = 14 + Me.chkImportoptionenBackup.Text = "Sicherheitskopien auf lokalem Rechner speichern" + Me.chkImportoptionenBackup.UseVisualStyleBackColor = True + ' + 'ListBox2 + ' + Me.ListBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBox2.FormattingEnabled = True + Me.ListBox2.ItemHeight = 15 + Me.ListBox2.Location = New System.Drawing.Point(15, 413) + Me.ListBox2.Name = "ListBox2" + Me.ListBox2.Size = New System.Drawing.Size(788, 274) + Me.ListBox2.TabIndex = 18 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(589, 189) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(347, 15) + Me.Label5.TabIndex = 20 + Me.Label5.Text = "Filter: (Fügen Sie neue Filter getrennt mit einem |-Symbol hinzu):" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(589, 236) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(410, 15) + Me.Label6.TabIndex = 22 + Me.Label6.Text = "Ausschluss-Filter: (Fügen Sie neue Filter getrennt mit einem |-Symbol hinzu):" + ' + 'ListView1 + ' + Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) + Me.ListView1.Location = New System.Drawing.Point(592, 69) + Me.ListView1.Name = "ListView1" + Me.ListView1.Size = New System.Drawing.Size(350, 114) + Me.ListView1.TabIndex = 24 + Me.ListView1.UseCompatibleStateImageBehavior = False + Me.ListView1.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "Indexname" + Me.ColumnHeader1.Width = 151 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Value" + Me.ColumnHeader2.Width = 120 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(170, 51) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(103, 15) + Me.Label7.TabIndex = 26 + Me.Label7.Text = "Objekttyp wählen:" + ' + 'cmbObjekttyp + ' + Me.cmbObjekttyp.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_OBJECTTYPE", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbObjekttyp.FormattingEnabled = True + Me.cmbObjekttyp.Location = New System.Drawing.Point(173, 69) + Me.cmbObjekttyp.Name = "cmbObjekttyp" + Me.cmbObjekttyp.Size = New System.Drawing.Size(350, 23) + Me.cmbObjekttyp.TabIndex = 25 + Me.cmbObjekttyp.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_OBJECTTYPE + ' + 'txtFilter_exclude + ' + Me.txtFilter_exclude.BackColor = System.Drawing.SystemColors.Info + Me.txtFilter_exclude.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_EXCLUDE", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtFilter_exclude.Location = New System.Drawing.Point(592, 254) + Me.txtFilter_exclude.Name = "txtFilter_exclude" + Me.txtFilter_exclude.Size = New System.Drawing.Size(344, 23) + Me.txtFilter_exclude.TabIndex = 23 + Me.txtFilter_exclude.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_EXCLUDE + ' + 'txtFilter + ' + Me.txtFilter.BackColor = System.Drawing.SystemColors.Info + Me.txtFilter.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_FILTER", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtFilter.Location = New System.Drawing.Point(592, 207) + Me.txtFilter.Name = "txtFilter" + Me.txtFilter.Size = New System.Drawing.Size(344, 23) + Me.txtFilter.TabIndex = 21 + Me.txtFilter.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_FILTER + ' + 'txtBackupordner + ' + Me.txtBackupordner.BackColor = System.Drawing.SystemColors.Info + Me.txtBackupordner.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_SAFETYPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtBackupordner.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBackupordner.Location = New System.Drawing.Point(15, 334) + Me.txtBackupordner.Name = "txtBackupordner" + Me.txtBackupordner.Size = New System.Drawing.Size(508, 22) + Me.txtBackupordner.TabIndex = 15 + Me.txtBackupordner.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_SAFETYPATH + ' + 'txtwindreamPath + ' + Me.txtwindreamPath.BackColor = System.Drawing.SystemColors.Info + Me.txtwindreamPath.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_TARGETPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtwindreamPath.Location = New System.Drawing.Point(15, 282) + Me.txtwindreamPath.Name = "txtwindreamPath" + Me.txtwindreamPath.Size = New System.Drawing.Size(508, 23) + Me.txtwindreamPath.TabIndex = 10 + Me.txtwindreamPath.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_TARGETPATH + ' + 'txtpath + ' + Me.txtpath.BackColor = System.Drawing.SystemColors.Info + Me.txtpath.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_IMPPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtpath.Location = New System.Drawing.Point(15, 186) + Me.txtpath.Name = "txtpath" + Me.txtpath.Size = New System.Drawing.Size(508, 23) + Me.txtpath.TabIndex = 4 + Me.txtpath.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_IMPPATH + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(589, 51) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(181, 15) + Me.Label8.TabIndex = 27 + Me.Label8.Text = "Automatisch zu setzende Indizes:" + ' + 'frmWD_EntityImport + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1025, 710) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.cmbObjekttyp) + Me.Controls.Add(Me.ListView1) + Me.Controls.Add(Me.txtFilter_exclude) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.txtFilter) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.ListBox2) + Me.Controls.Add(Me.txtBackupordner) + Me.Controls.Add(Me.btnBackupordner) + Me.Controls.Add(Me.chkImportoptionenBackup) + Me.Controls.Add(Me.btnrunImport) + Me.Controls.Add(Me.btnpathWD) + Me.Controls.Add(Me.txtwindreamPath) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.rbsubdirectoriesFiles) + Me.Controls.Add(Me.rbSubdirectoriesFolders) + Me.Controls.Add(Me.btnopenfolder) + Me.Controls.Add(Me.txtpath) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtEntityString) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmWD_EntityImport" + Me.Text = "Import-Designer für Entitäts-Dokumente:" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtEntityString As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtpath As System.Windows.Forms.TextBox + Friend WithEvents btnopenfolder As System.Windows.Forms.Button + Friend WithEvents rbSubdirectoriesFolders As System.Windows.Forms.RadioButton + Friend WithEvents rbsubdirectoriesFiles As System.Windows.Forms.RadioButton + Friend WithEvents txtwindreamPath As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnpathWD As System.Windows.Forms.Button + Friend WithEvents btnrunImport As System.Windows.Forms.Button + Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox + Friend WithEvents btnBackupordner As System.Windows.Forms.Button + Friend WithEvents chkImportoptionenBackup As System.Windows.Forms.CheckBox + Friend WithEvents ListBox2 As System.Windows.Forms.ListBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtFilter As System.Windows.Forms.TextBox + Friend WithEvents txtFilter_exclude As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents ListView1 As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents cmbObjekttyp As System.Windows.Forms.ComboBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.resx b/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.resx new file mode 100644 index 0000000..b24bb3e --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.resx @@ -0,0 +1,173 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA + AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAD/////////AId3d3d3 + d38Pd3d3d3d4fw93d3d3d3h/CHd3d3d3f3/4d3d3d3d/f/d3d3d3d49/93d3d3d3/3//9///////fwD3 + //////9/APf//////38A93d3f/d/fwD///93//9/AAAAAPd3d38AAAAAD///////AADAAAAAwAAAAIAA + AACAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAwAAAAMAAAADAAAAA/wAAAP+AAAAoAAAAEAAAACAA + AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBYWFgAb29vAISDgwCGhoYAj46OAKSj + pACnp6cAurm6AL6+vgDU1NQA29naAPHv8AD29vYA+fn5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAA4ODg4ODg4O + Dg4ODg4OAAAKAQEBAQEBAQEBAQEBDgAPBQEBAQEBAQEBAQEHAQ4ADgIBAQEBAQEBAQEBDAEOAAsBAQEB + AQEBAQEBAg0BDg8HAQEBAQEBAQEBAQYNAQ4OAwEBAQEBAQEBAQEKDQEODgEBAQEBAQEBAQEBDQ0BDg4O + DgENDQ0NDQ0NDQ0NAQ4AAA4BDQ0NDQ0NDQ0NDQEOAAAOAQ0NDQ0NDQ0NDQ0BDgAADgEBAQEBBQ0NAQEN + AQ4AAA4ODg4ODgUFDQ0NDQEOAAAAAAAAAAAOBQEBAQEBDgAAAAAAAAAAAA4ODg4ODg7//wAAwAAAAMAA + AACAAAAAgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAMAAAADAAAAAwAAAAP8AAAD/gAAAKAAAABAA + AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2EPb29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAPb29mC+vr7/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAD29vafhoaG/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+ko6T/QkJC//b29v8AAAAA9vb271lZ + Wf9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/29na/0JCQv/29vb/9vb2MNTU + 1P9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/WFhY//Hv8P9CQkL/9vb2//b2 + 9oCnp6f/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/4+Ojv/x7/D/QkJC//b2 + 9v/29vbPb29v/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+6ubr/8e/w/0JC + Qv/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/8e/w//Hv + 8P9CQkL/9vb2//b29v/29vb/9vb2/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/QkJC//b29v8AAAAAAAAAAPb29v9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w/0JCQv/29vb/AAAAAAAAAAD29vb/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P9CQkL/9vb2/wAAAAAAAAAA9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/hIOD//Hv + 8P/x7/D/QkJC/0JCQv/x7/D/QkJC//b29v8AAAAAAAAAAPb29v/29vb/9vb2//b29v/29vb/9vb2/4aG + hv+Eg4P/8e/w//Hv8P/x7/D/8e/w/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9jD29vbvhoaG/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA9vb2MPb29u/29vb/9vb2//b29v/29vb/9vb2//b29v///wAAgAAAAIAAAACAAAAAgAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAwAAAAMAAAADAAAAAwAAAAP4AAAD/AAAA + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.vb b/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.vb new file mode 100644 index 0000000..4f61491 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWD_EntityImport.vb @@ -0,0 +1,269 @@ +Imports System.IO + +Public Class frmWD_EntityImport + Private LOCAL_IMPORTFILE As String + Private LOCAL_NEWFILESTRING As String + Private LOCAL_TARGET_PATH As String + Private LOCAL_COUNTFILES As Integer + Private Sub frmWD_EntityImport_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + My.Settings.Save() + End Sub + + Private Sub frmWD_EntityImport_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.txtEntityString.Text = CURRENT_ENTITYSTRING + If ClassWindream.Init = True Then + ObjektTypenEintragen() + End If + + + + + End Sub + Private Sub ObjektTypenEintragen() + Try + Dim oDokumentTyp As WINDREAMLib.WMObject + ' Combobox leeren + Me.cmbObjekttyp.Items.Clear() + ' alle Objekttypen durchlaufen + For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects + ' und in die Combobox eintragen + Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName) + Next + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") + End Try + + End Sub + Private Sub btnopenfolder_Click(sender As Object, e As EventArgs) Handles btnopenfolder.Click + Dim fbdia As New FolderBrowserDialog + If fbdia.ShowDialog() = DialogResult.OK Then + txtpath.Text = fbdia.SelectedPath + End If + End Sub + + Private Sub btnpathWD_Click(sender As Object, e As EventArgs) Handles btnpathWD.Click + Dim fbdia As New FolderBrowserDialog + If fbdia.ShowDialog() = DialogResult.OK Then + txtwindreamPath.Text = fbdia.SelectedPath + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnrunImport.Click + If txtpath.Text <> "" And txtwindreamPath.Text <> "" Then + LOCAL_COUNTFILES = 0 + Dim searchoption As New System.IO.SearchOption + ListBox2.Items.Clear() + If rbsubdirectoriesFiles.Checked Or rbSubdirectoriesFolders.Checked Then + searchoption = IO.SearchOption.AllDirectories + Else + searchoption = IO.SearchOption.TopDirectoryOnly + End If + Dim filesarray = GetFiles(Me.txtpath.Text, Me.txtFilter.Text, txtFilter_exclude.Text, searchoption) + For Each f As String In filesarray + Work_File(f) + Next + MsgBox("Insgesamt wurden " & LOCAL_COUNTFILES.ToString & " Dateien nach windream importiert!", MsgBoxStyle.Information) + End If + + End Sub + Private Sub chkImportoptionenBackup_CheckedChanged(sender As Object, e As EventArgs) Handles chkImportoptionenBackup.CheckedChanged + If chkImportoptionenBackup.Checked Then + Me.txtBackupordner.Enabled = True + Me.btnBackupordner.Enabled = True + Else + Me.txtBackupordner.Enabled = False + Me.btnBackupordner.Enabled = False + End If + End Sub + Public Shared Function GetFiles(path As String, searchPattern As String, excludePattern As String, searchOption As SearchOption) As String() + Dim searchPatterns As String() = searchPattern.Split("|"c) + Dim allFiles As New List(Of String)() + For Each sp As String In searchPatterns + allFiles.AddRange(System.IO.Directory.GetFiles(path, sp, searchOption)) + Next + 'allFiles.Sort() + Dim filesToExclude As New List(Of String)() + searchPatterns = excludePattern.Split("|"c) + For Each sp As String In searchPatterns + filesToExclude.AddRange(System.IO.Directory.GetFiles(path, sp, searchOption)) + Next + + Dim wantedFiles = allFiles.Except(filesToExclude) + + Return wantedFiles.ToArray() + End Function + Sub Work_File(Filepath As String) + LOCAL_IMPORTFILE = Filepath + Dim filestring As String + + If rbSubdirectoriesFolders.Checked = False Then + filestring = Path.GetFileName(Filepath) + Else + filestring = Filepath.Replace(Me.txtpath.Text, "") + End If + If rbsubdirectoriesFiles.Checked Then + filestring = Path.GetFileName(Filepath) + End If + Dim target As String = txtwindreamPath.Text & "\" & filestring + + Dim version As Integer = 2 + Dim Dateiname As String = Path.GetFileNameWithoutExtension(target) + Dim extension As String = Path.GetExtension(target) + + Dim folder_Base As String = Path.GetDirectoryName(target) + If rbSubdirectoriesFolders.Checked Then + If Not IO.Directory.Exists(folder_Base) Then + ' Nein! Jetzt erstellen... + Try + IO.Directory.CreateDirectory(folder_Base) + ' Ordner wurde korrekt erstellt! + Catch ex As Exception + ' Ordner wurde nich erstellt + End Try + End If + End If + Dim Stammname As String = folder_Base & "\" & Dateiname + Dim _neuername As String = folder_Base & "\" & Dateiname + LOCAL_TARGET_PATH = folder_Base + 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "") + 'Überprüfen ob File existiert + + Do While File.Exists(_neuername & extension) + _neuername = Stammname & "~" & version + LOCAL_NEWFILESTRING = _neuername + version = version + 1 + Loop + LOCAL_NEWFILESTRING = _neuername & extension + WINDREAM_IMPORT() + LOCAL_COUNTFILES += 1 + End Sub + Private Function WINDREAM_IMPORT() + Try + ClassWindream._WDObjekttyp = Me.cmbObjekttyp.Text + Dim streamresult = ClassWindream.Stream_File(LOCAL_IMPORTFILE, LOCAL_TARGET_PATH) + 'Dim type = streamresult.GetType + If streamresult = True Then + Dim indexierung_erfolgreich As Boolean = False + + 'den Entity-Key auslesen + Dim sql As String = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + If Not dt Is Nothing Then + If dt.Rows.Count = 1 Then + Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString + Dim idxvalue = CURRENT_FORM_ID + If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False) + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical) + End If + indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString + idxvalue = CURRENT_PARENTID + If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False) + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) + End If + End If + End If + If indexierung_erfolgreich = True Then + Dim error_Occured = False + If chkImportoptionenBackup.Checked And txtBackupordner.Text <> String.Empty Then + error_Occured = Create_Copy() + End If + 'Die Originaldatei löschen + If error_Occured = False Then + File.Delete(LOCAL_IMPORTFILE) + End If + + Else + MsgBox("Es gab ein Problem bei der Indexierung der Datei. Bitte prüfen sie das Log!", MsgBoxStyle.Exclamation, "Achtung:") + End If + Else + MsgBox("Unexpected Error in Stream2windream. Please check logfile!", MsgBoxStyle.Exclamation) + End If + Catch ex As Exception + MsgBox("Unexpected Error in Windream-Import:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + Private Function Create_Copy() + Try + Dim filestring As String + If rbSubdirectoriesFolders.Checked = False Then + filestring = Path.GetFileName(LOCAL_IMPORTFILE) + Else + filestring = LOCAL_IMPORTFILE.Replace(Me.txtpath.Text, "") + End If + If rbsubdirectoriesFiles.Checked Then + filestring = Path.GetFileName(LOCAL_IMPORTFILE) + End If + Dim target As String = txtBackupordner.Text & "\" & filestring + + Dim version As Integer = 2 + Dim Dateiname As String = Path.GetFileNameWithoutExtension(target) + Dim extension As String = Path.GetExtension(target) + + Dim folder_Base As String = Path.GetDirectoryName(target) + + If Not IO.Directory.Exists(folder_Base) Then + ' Nein! Jetzt erstellen... + Try + IO.Directory.CreateDirectory(folder_Base) + ' Ordner wurde korrekt erstellt! + Catch ex As Exception + ' Ordner wurde nich erstellt + End Try + End If + + Dim Stammname As String = folder_Base & "\" & Dateiname + Dim _neuername As String = folder_Base & "\" & Dateiname + LOCAL_TARGET_PATH = folder_Base + 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "") + 'Überprüfen ob File existiert + Dim COPY_STRING As String + Do While File.Exists(_neuername & extension) + _neuername = Stammname & "~" & version + COPY_STRING = _neuername + version = version + 1 + Loop + COPY_STRING = _neuername & extension + File.Copy(LOCAL_IMPORTFILE, COPY_STRING) + Return False + Catch ex As Exception + MsgBox("Unexpected Error in Create-Copy:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return True + End Try + + + End Function + Private Sub cmbObjekttyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbObjekttyp.SelectedIndexChanged + If cmbObjekttyp.SelectedIndex <> -1 Then + Load_Indices(cmbObjekttyp.Text) + End If + End Sub + Sub Load_Indices(Objecttype As String) + + 'den Entity-Key auslesen + Dim Sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & Objecttype & "')" + Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql) + Dim count As Integer = 0 + If Not DT Is Nothing Then + If DT.Rows.Count = 1 Then + ListView1.Items.Clear() + ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_ENTITYID").ToString) + ListView1.Items(count).SubItems.Add(CURRENT_FORM_ID) + ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_PARENTID").ToString) + ListView1.Items(count + 1).SubItems.Add(CURRENT_PARENTID) + End If + End If + End Sub + + Private Sub frmWD_EntityImport_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If My.Settings.WD_ENTITYIMP_OBJECTTYPE <> String.Empty Then + Load_Indices(My.Settings.WD_ENTITYIMP_OBJECTTYPE) + End If + If My.Settings.WD_ENTITYIMP_SAFETYPATH <> String.Empty Then + Me.chkImportoptionenBackup.Checked = True + End If + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb b/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb new file mode 100644 index 0000000..040fb80 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb @@ -0,0 +1,358 @@ + _ +Partial Class frmWD_Index_Dokart + 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 OBJECT_TYPELabel As System.Windows.Forms.Label + Dim FW_DOCTYPE_IDLabel As System.Windows.Forms.Label + Dim PATHLabel As System.Windows.Forms.Label + Dim Label3 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Index_Dokart)) + Me.Label1 = New System.Windows.Forms.Label() + Me.txtFilepath = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.cmbDokumentart = New System.Windows.Forms.ComboBox() + Me.VWPMO_DOKUMENTTYPESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.VWPMO_DOKUMENTTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.btnindex = New System.Windows.Forms.Button() + Me.OBJECT_TYPETextBox = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.PATHTextBox = New System.Windows.Forms.TextBox() + Me.ListView1 = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.FW_DOCTYPE_IDTextBox = New System.Windows.Forms.TextBox() + Me.chkdelete_origin = New System.Windows.Forms.CheckBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.chkMultiIndexer = New System.Windows.Forms.CheckBox() + Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() + OBJECT_TYPELabel = New System.Windows.Forms.Label() + FW_DOCTYPE_IDLabel = New System.Windows.Forms.Label() + PATHLabel = New System.Windows.Forms.Label() + Label3 = New System.Windows.Forms.Label() + CType(Me.VWPMO_DOKUMENTTYPESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'OBJECT_TYPELabel + ' + OBJECT_TYPELabel.AutoSize = True + OBJECT_TYPELabel.Location = New System.Drawing.Point(6, 25) + OBJECT_TYPELabel.Name = "OBJECT_TYPELabel" + OBJECT_TYPELabel.Size = New System.Drawing.Size(62, 15) + OBJECT_TYPELabel.TabIndex = 5 + OBJECT_TYPELabel.Text = "Objekttyp:" + ' + 'FW_DOCTYPE_IDLabel + ' + FW_DOCTYPE_IDLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + FW_DOCTYPE_IDLabel.AutoSize = True + FW_DOCTYPE_IDLabel.Location = New System.Drawing.Point(449, 25) + FW_DOCTYPE_IDLabel.Name = "FW_DOCTYPE_IDLabel" + FW_DOCTYPE_IDLabel.Size = New System.Drawing.Size(70, 15) + FW_DOCTYPE_IDLabel.TabIndex = 6 + FW_DOCTYPE_IDLabel.Text = "Doctype-ID:" + ' + 'PATHLabel + ' + PATHLabel.AutoSize = True + PATHLabel.Location = New System.Drawing.Point(6, 54) + PATHLabel.Name = "PATHLabel" + PATHLabel.Size = New System.Drawing.Size(73, 15) + PATHLabel.TabIndex = 8 + PATHLabel.Text = "Ablagepfad:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(61, 15) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Dateipfad:" + ' + 'txtFilepath + ' + Me.txtFilepath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtFilepath.Location = New System.Drawing.Point(15, 27) + Me.txtFilepath.Name = "txtFilepath" + Me.txtFilepath.ReadOnly = True + Me.txtFilepath.Size = New System.Drawing.Size(581, 23) + Me.txtFilepath.TabIndex = 1 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(12, 58) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(188, 17) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "Wählen Sie eine Dokumentart" + ' + 'cmbDokumentart + ' + Me.cmbDokumentart.DataSource = Me.VWPMO_DOKUMENTTYPESBindingSource + Me.cmbDokumentart.DisplayMember = "DOKUMENTTYPE" + Me.cmbDokumentart.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbDokumentart.FormattingEnabled = True + Me.cmbDokumentart.Location = New System.Drawing.Point(15, 78) + Me.cmbDokumentart.Name = "cmbDokumentart" + Me.cmbDokumentart.Size = New System.Drawing.Size(343, 25) + Me.cmbDokumentart.TabIndex = 3 + Me.ToolTip1.SetToolTip(Me.cmbDokumentart, "Auswahl der Dokumentart - Wird für nächste Eingabe gespeichert") + Me.cmbDokumentart.ValueMember = "DOKUMENTTYPE_ID" + ' + 'VWPMO_DOKUMENTTYPESBindingSource + ' + Me.VWPMO_DOKUMENTTYPESBindingSource.DataMember = "VWPMO_DOKUMENTTYPES" + Me.VWPMO_DOKUMENTTYPESBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPMO_DOKUMENTTYPESTableAdapter + ' + Me.VWPMO_DOKUMENTTYPESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'btnindex + ' + Me.btnindex.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnindex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnindex.Image = Global.DD_Record_Organiser.My.Resources.Resources.key_go + Me.btnindex.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnindex.Location = New System.Drawing.Point(438, 382) + Me.btnindex.Name = "btnindex" + Me.btnindex.Size = New System.Drawing.Size(158, 28) + Me.btnindex.TabIndex = 4 + Me.btnindex.Text = "Datei indexieren" + Me.btnindex.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnindex.UseVisualStyleBackColor = True + ' + 'OBJECT_TYPETextBox + ' + Me.OBJECT_TYPETextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OBJECT_TYPETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_DOKUMENTTYPESBindingSource, "OBJECT_TYPE", True)) + Me.OBJECT_TYPETextBox.Location = New System.Drawing.Point(85, 22) + Me.OBJECT_TYPETextBox.Name = "OBJECT_TYPETextBox" + Me.OBJECT_TYPETextBox.ReadOnly = True + Me.OBJECT_TYPETextBox.Size = New System.Drawing.Size(302, 23) + Me.OBJECT_TYPETextBox.TabIndex = 6 + ' + 'GroupBox1 + ' + Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.GroupBox1.Controls.Add(Label3) + Me.GroupBox1.Controls.Add(PATHLabel) + Me.GroupBox1.Controls.Add(Me.PATHTextBox) + Me.GroupBox1.Controls.Add(Me.ListView1) + Me.GroupBox1.Controls.Add(FW_DOCTYPE_IDLabel) + Me.GroupBox1.Controls.Add(Me.FW_DOCTYPE_IDTextBox) + Me.GroupBox1.Controls.Add(OBJECT_TYPELabel) + Me.GroupBox1.Controls.Add(Me.OBJECT_TYPETextBox) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(15, 117) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(581, 260) + Me.GroupBox1.TabIndex = 7 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Gewählte Indexierungsdaten - Automatik:" + ' + 'PATHTextBox + ' + Me.PATHTextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.PATHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_DOKUMENTTYPESBindingSource, "PATH", True)) + Me.PATHTextBox.Location = New System.Drawing.Point(85, 51) + Me.PATHTextBox.Name = "PATHTextBox" + Me.PATHTextBox.Size = New System.Drawing.Size(490, 23) + Me.PATHTextBox.TabIndex = 9 + ' + 'ListView1 + ' + Me.ListView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) + Me.ListView1.Location = New System.Drawing.Point(85, 93) + Me.ListView1.Name = "ListView1" + Me.ListView1.Size = New System.Drawing.Size(302, 161) + Me.ListView1.TabIndex = 8 + Me.ListView1.UseCompatibleStateImageBehavior = False + Me.ListView1.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "Indexname" + Me.ColumnHeader1.Width = 100 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Value" + Me.ColumnHeader2.Width = 120 + ' + 'FW_DOCTYPE_IDTextBox + ' + Me.FW_DOCTYPE_IDTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FW_DOCTYPE_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_DOKUMENTTYPESBindingSource, "FW_DOCTYPE_ID", True)) + Me.FW_DOCTYPE_IDTextBox.Location = New System.Drawing.Point(525, 22) + Me.FW_DOCTYPE_IDTextBox.Name = "FW_DOCTYPE_IDTextBox" + Me.FW_DOCTYPE_IDTextBox.ReadOnly = True + Me.FW_DOCTYPE_IDTextBox.Size = New System.Drawing.Size(50, 23) + Me.FW_DOCTYPE_IDTextBox.TabIndex = 7 + ' + 'chkdelete_origin + ' + Me.chkdelete_origin.AutoSize = True + Me.chkdelete_origin.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkdelete_origin.Location = New System.Drawing.Point(24, 388) + Me.chkdelete_origin.Name = "chkdelete_origin" + Me.chkdelete_origin.Size = New System.Drawing.Size(178, 20) + Me.chkdelete_origin.TabIndex = 8 + Me.chkdelete_origin.Text = "Lösche Ursprungsdatei" + Me.ToolTip1.SetToolTip(Me.chkdelete_origin, "Die gedroppte Datei wird nach Ablage in windream gelöscht - Wird für nächste Eing" & _ + "abe gespeichert") + Me.chkdelete_origin.UseVisualStyleBackColor = True + ' + 'chkMultiIndexer + ' + Me.chkMultiIndexer.AutoSize = True + Me.chkMultiIndexer.BackColor = System.Drawing.Color.Yellow + Me.chkMultiIndexer.Font = New System.Drawing.Font("Verdana", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkMultiIndexer.ForeColor = System.Drawing.Color.Maroon + Me.chkMultiIndexer.Location = New System.Drawing.Point(24, 417) + Me.chkMultiIndexer.Name = "chkMultiIndexer" + Me.chkMultiIndexer.Size = New System.Drawing.Size(520, 20) + Me.chkMultiIndexer.TabIndex = 9 + Me.chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (0) identisch indexieren" + Me.ToolTip1.SetToolTip(Me.chkMultiIndexer, "Alle nachfolgenden Dateien werden wie angezeigt indexiert") + Me.chkMultiIndexer.UseVisualStyleBackColor = False + ' + 'TBPMO_FILES_USERBindingSource + ' + Me.TBPMO_FILES_USERBindingSource.DataMember = "TBPMO_FILES_USER" + Me.TBPMO_FILES_USERBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_FILES_USERTableAdapter + ' + Me.TBPMO_FILES_USERTableAdapter.ClearBeforeFill = True + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.Location = New System.Drawing.Point(6, 93) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(46, 15) + Label3.TabIndex = 10 + Label3.Text = "Indizes:" + ' + 'frmWD_Index_Dokart + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlLight + Me.ClientSize = New System.Drawing.Size(611, 451) + Me.Controls.Add(Me.chkMultiIndexer) + Me.Controls.Add(Me.chkdelete_origin) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.btnindex) + Me.Controls.Add(Me.cmbDokumentart) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtFilepath) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmWD_Index_Dokart" + Me.Text = "Import nach windream:" + CType(Me.VWPMO_DOKUMENTTYPESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout + +End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtFilepath As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents VWPMO_DOKUMENTTYPESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_DOKUMENTTYPESTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents btnindex As System.Windows.Forms.Button + Friend WithEvents OBJECT_TYPETextBox As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents FW_DOCTYPE_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents ListView1 As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents PATHTextBox As System.Windows.Forms.TextBox + Friend WithEvents chkdelete_origin As System.Windows.Forms.CheckBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents chkMultiIndexer As System.Windows.Forms.CheckBox + Friend WithEvents TBPMO_FILES_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FILES_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.resx b/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.resx new file mode 100644 index 0000000..45c0f34 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.resx @@ -0,0 +1,603 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + 160, 17 + + + 17, 17 + + + 891, 17 + + + 442, 17 + + + 718, 17 + + + False + + + 990, 17 + + + 17, 56 + + + + + AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA + IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw + AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wBA43kAAJkDAFtbWwCsrKwAef6oAHCmcQA2oToA2djZACrJVACQkJAAdXV1AMm6xgBUqVcAGLUvAF3s + jgDr6usAC6gaAHu9fAA+s0wAWnRZACu3PwCfn58AgoKCABrDPgDNzc0ALpIwAGn2mgBJn0sAZmZmAFDm + gQD36/YAaZtpAOLi4gC0tLQANcRQAHFqcADAwMAARq1TAImJiQD39/cApqSmADW4SADHxscAfHx8ABWs + LAAmv0IASeJ8AFLthwAiuTwA8PDwAJaTlgBZ9I4AVueGAESzUAA5tk8AR6VMAEXfeABwcHAACaMYAMvF + ywBH5n8A+vr6APPz8wDl5eUAXl5eAIaGhgBBr00AxMTEAJ2cnABa7YsAk5OTAAqqHQBZWVkAqqqqAHNz + cwB3d3cAenp6AH5+fgCOjo4ATeaCAOnp6QAkuDoAKbY9AFfpiADa2toATeaAAPn5+QD29vYA7+/vAMHB + wQBlZWUASuN9AKWlpQB9fX0AkpKSAMbGxgBI4n0A5eTlAMfHxwBR7YcAlpOVAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAC0oAAAAAAAAAAAAAAABDRQFOHjsAAAAAAAAAAGAXQFkBDE8tQigA + AAAAAEgaUkFaWFZgTV87XAAAAABeViI/LGYqCWEYTQQAAAAASylkTCUbIT0RMyYeAAAAAAUaWzQVGRIT + IGMjUAAAAAAAAEYNFAI+SR0AAAAAAAAAAAAAOQo6XWUPCAAAAAAAAAAAAFRiMB9VUVMOAAAAAAAAAERH + NlcQAwcAAAAAAAAAAAA3KzIxHDwAAAAAAAAAAAAAAAAvNQYuAAAAAAAAAAAAAAAAFiQ4JwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD//wAA/n8AAPgfAADgBwAAwAMAAMADAADAAwAAwAMAAPAfAAD4DwAA+AcAAPAf + AADwPwAA/D8AAPw/AAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMTEw3j4+P5U9PT+FSUlIzAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAE5OTgp4eHi1xsbG/v////96enr/Z2dn/ldXV7JaWloKAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAG9vb3ChoaH48/Pz//b29v//////dXV1/35+fv98fHz/XV1d91lZ + WW4AAAAAAAAAAAAAAAAAAAAAAAAAAI2NjcrNzc3/6enp/+Xl5f/v7+//+fn5/9ra2v+SkpL/d3d3/319 + ff9wcHD/V1dX0wAAAAAAAAAAAAAAAAAAAACmpqb32tra/+Li4v/6+vr/x8bH/5aTlf+mpKb/2djZ/8bG + xv+CgoL/d3d3/1tbW/sAAAAAAAAAAAAAAAAAAAAAq6ur/Pf39//Hx8f/c3Nz/3FqcP8ukjD/aZtp/8vF + y//r6uv/8PDw/8DAwP9nZ2f+AAAAAAAAAAAAAAAAAAAAAKysrKrQ0ND3wcHB/5aTlv9adFn/GsM+/wyq + G/57vXz/+e34/ufm5/62trb3gICAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIOAgGHexNiYPbVL+kDj + ef9H5n//C6we/jyePuCRc44yAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaAKlyrL + VP1F33j/SuN9/1Lvif4Yty/9AJ0HsAD/AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARi5 + L+FI4n3/SeJ8/1Hog/5Y64r+TuiE/hq7MusCpQmGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2w + Hqxb743+V+mI/k3mgP9e7pD+AJkD/wCZA1wAmQMzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAUtiWvH7s21yK7PP1S7Yf/afaa/wmjGP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAABzAAImwUL9WfSO/3n+qP8Wri3+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAv2QDI7o57jLGTvckuj7VGq8ssQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD//wAA/n8AAPgfAADgBwAAwAMAAMADAADAAwAAwAMAAPAfAAD4DwAA+AcAAPAfAADwPwAA/D8AAPw/ + AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AOthsAK+u + rwBmZmYABZ8RAHD0nAB1rXUA19fXADeiPgCHgYYAUeuGABiyKwBYxHYAn5KdALbQtwDr6+sAJMBHAD/C + WAB9bHoAyMjIAAS4HwCfsZ4AYrZmAGbkjwAl0FUAvLy8AGq/fwBG33oAStBoAHe0hQCmoqYA493iAJKS + kgBT1nUANL1FAHFwcABZ9o4AfHx8APb29gAps0MAU7luAC/GVwA7zmMADqQZAGP2lQDQ0NAAnp6eAEXp + gABG1nEAEKsnACyhPAAeuUIAmJiYAIqKigBaumEAcLF9AFvsjgB2dnYA8unxALS0tAAXsTQAZm9lAOXl + 5QDc3NwAw8PDAE3mgACYjZUA2M/VAKmpqQDx8fEAB6YWADjVZQBltG0AaMaCAFXwiwCBgYEAO8dgAEDK + ZwBC3XQAV+iJAELVawBAyVkAKslTAPv7+wCilqEAO9JqAE7khgB1uIEASeJ+AKKiogDo6OgABKQSAN/f + 3wC3t7cAeXl5AJubmwDU19MAbPaaAHNzcwCEhIQA5+HmAEHfeABO6YMAR9l0AF7pjQAuylgAY/OSALGx + sQCmpqYARt92AHZydQBS7YkAWu6LAP39/QDz8/MA7e3tAOPj4wDh4eEA2traAH5+fgCrq6sAiIiIAKSk + pACWlpYAWPONAFXuiAA+02oASdNoAEjiewDV1dUARN13AEvkfwBvb28AWemIAFjxjABN54MAU+yGAFDp + gwBT6oYA+vr6APf39wDy8vIA8PDwAOzs7ADq6uoA6enpAOfn5wDm5uYA4ODgAN7e3gDd3d0A29vbANnZ + 2QDY2NgA1tbWANHR0QBycnIAdHR0AHV1dQDHx8cAd3d3AHh4eAB6enoAe3t7AH19fQB/f38AgoKCAFbv + iQCzs7MAp6enAJOTkwClpaUAo6OjAJeXlwCZmZkAmpqaAJ+fnwCcnJwAnZ2dAEfgegBJ4nwATOV/AE/p + hADp6OkA5OPjAEXfegBG33kASOF7AErkfwBL5H4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADZkAAAAAAAAAAAAAAAAAAAAAAAAAACybXKeoi8AAAAAAAAA + AAAAAAAAAAAAAHx3AXI6pKJ6AAAAAAAAAAAAAAAAAACweXOORgFfpqVfn6sAAAAAAAAAAAAAAK6bdFuS + dFSmJqYmo55fAAAAAAAAAACtqXWVXXWTj40nbKKkJl86nSEAAAAAAABalgiZQJJydm08kVuzn6NfoaQA + AAAAAACsgi6XcpCxpyFgLxqULjaeX18AAAAAAAB7nI6MrAQkCkMOHxSUkj9eeJ4AAAAAAABFcpBjhZ9v + PhUJIGW5kSeSmEwAAAAAAAAAbaAQmq8TMzBTLGE7uEGqNQAAAAAAAAAAAAAAA0QPGRy9SFwWVQAAAAAA + AAAAAAAAAAAAAAAoZoO0iE9HBwAAAAAAAAAAAAAAAAAAAFgCHLu1vguLDBcAAAAAAAAAAAAAAAAAAE1Z + u7yEZ3E5VxE3AAAAAAAAAAAAAAAAG7qBtb63gH9qEkkAAAAAAAAAAAAAAAAAVlBptkJwIwUAAAAAAAAA + AAAAAAAAAABKhmtuiopLUjIAAAAAAAAAAAAAAAAAAAAAAB4rfol9HT0AAAAAAAAAAAAAAAAAAAAAAABR + h6glIjQAAAAAAAAAAAAAAAAAAAAAAABoLWIGGCoAAAAAAAAAAAAAAAAAAAAAAAANMU4pOAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A/+f/AP+B/wD/AP8A/AA/APgAHwDgAAcA4AAHAOAA + BwDgAAcA4AAHAPAADwD+AH8A/4B/AP8APwD/AB8A/gA/AP4B/wD8Af8A/wH/AP+B/wD/gf8A/4P/AP// + /wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHFx + cRd4eHinbGxsnnZ2dhMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgYGBYaenp+z////+dHR0/3R0dOmCgoJbAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJCQ + kCWPj4+92tra///////////+dnZ2/3t7e/94eHj/enp6uYCAgCIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB0dHQFhYWFeK2trfXz8/P/8vLy//Hx8f//////eXl5/39/ + f/99fX3/eXl5/3R0dPR1dXV2oKCgBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJiY + mDaTk5PQ1tbW/+3t7f/o6Oj/6enp/+3t7f/7+/v/f39//3x8fP9/f3//fHx8/3p6ev90dHT/bW1tz3p6 + ejYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAlZWVb7W1tfvj4+P/4ODg/9/f3//j4+P/5+fn//Dw + 8P/39/f/9vb2/7Gxsf94eHj/e3t7/3x8fP95eXn/dnZ2/3Jycvx1dXV9AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAn5+fsd7e3v/X19f/2dnZ/9zc3P/p6en//f39/+Hh4f+mpqb/tLS0/+rq6v/o6Oj/nZ2d/3V1 + df96enr/eXl5/3d3d/9vb2/KAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApKSkwtXV1f/Q0ND/3d3d//39 + /f/s7Oz/n5+f/4KCgv+SkpL/m5ub/56env+8vLz/5ubm/9DQ0P+Kior/dHR0/3l5ef9xcXHYAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAApKSk1NHR0f/y8vL/+vr6/6Wlpf9mZmb/cXBw/4eBhv+YjZX/n5Kd/6ai + pv/IyMj/5ubm/+np6f/l5eX/ubm5/n9/f/5vb2/lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqqqq3v// + //7s7Oz/c3Nz/29vb/91dXX/dnJ1/2ZvZf8EuB//N6I+/+Pd4v/n4eb/5OPj/+rq6v/4+Pj+6+vr/t3d + 3f5/f3/rAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnZ2dEJ2dnW3Ozs7T7e3t/tjY2P+ZmZn/fWx6/yyh + PP9F6YD/K8tU/g6kGf/U19P/8unx/+vq6/7FxcX+p6en0X19fW59fX0SAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAoaGhPLCvsKPb0tj2ttC3/yXQVf9G33r/SuR//zjVZf8EpBL/oLOf9JuH + mZqLhoo2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACGi5EWHrU76kHfeP9E3Xf/R+B6/03ng/9D33X+AKcQ9ACsAFQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUyjVfOths/0bfev9G33n/SeJ8/0vk + fv9R64b/U+yH/Ra0KfoFwQ9zAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAABvWOAouy1fjSeJ+/0bfef9I4Xv/S+R//07pg/9b8I3+XO6Q/k/miP4lwkj+CcgWgQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACTRTn1F33r/SOJ7/0ni + fP9L5H7/T+mE/0rVaf4/1Wv+LcxY/B/KP8QMvR5zCckTHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAIetTGTfWaPJX6In/X+uP/kzlf/9N5oD/Uu2J/zW/Rv4FnxH/DrskPQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALNxdiVrr + iv5k9ZT+R+F3/lDpg/9Q6YP/VfCL/0DJWf8Qqyf/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJe9LCCbUV0sgwEViOdBi+VXuiP9T7Ib/WPON/0rQ + aP8XsTT/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAsmADQdhr+ljxjP9W74n/WfaO/1PWdf8euUL/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA6y8FR9t1/WT4 + l/5t+Jz+cfae/mbkj/8wyFj+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA10QEPM5lvkPacPU0z2DkJcBPqBu2OmwbzD4vAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA////AP/n/wD/gf8A/wD/APwAPwD4AB8A4AAHAOAABwDgAAcA4AAHAOAABwDwAA8A/gB/AP+A + fwD/AD8A/wAfAP4APwD+Af8A/AH/AP8B/wD/gf8A/4H/AP+D/wD///8AKAAAACAAAABAAAAAAQAIAAAA + AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8APtZrAK6urgBra2sACqIXAHLunADW1tYAd7GDACux + QwBMi1QAhoaGAFLrhQBaqmMA6+vrAMLCwgCampoAcZZ1ADu8XQAXry8AXrp4AHN/dABMplIAKcFRAIqw + jABk5o4AI58xAMLWwwBsqHAASOF4AFnagABQ0WwANaQ8ADLLXQD19fUA4eHhALi4uACRkZEAH7g7AEi6 + ZgA7slEAy8vLABikJQBj9JMAOMNRAEu0VACmpqYAfn5+AGOiaAApqTkAcnJyAFnxjAAxtUwAD6gfACW+ + SABqsHcASNdwAICNgQBi4YUAoKCgAFHgfQB3l30AgLGMAGnslAA40WUAIrI0AHh4eABgvG8Az9fQADC+ + TABiq2gAbfWaACu6QgBC23UA8PDwAObm5gDc3NwAvb29ALOzswCVlZUAWumJADvMXwAaszYAOMVZADCt + OgAcrSkAVuGDAE3mgAAtxlUAHKoxAF+1cwDQ0NAAQLxiAMfHxwCCgoIAioqKAGHsjwAUphsAJ7g9ACe8 + TQAuvlQAHaQpABKqJAAguUEAbe6YACy2SQBjuXsALq1BAGj0lgArwEoARLhhAFPcgADZ2dkAFq8rAKur + qwBubm4AnZ2dAHV1dQB7e3sAjY2NAFXuiAA1zmIASuN9AA6jGgAxozkAPtdwAELbcABF3XgAHKgnACK6 + RQBJ03IAV+iGAFDjgQBb7YoAYrV2ABuvLgApwk0AL8hYADrTaAA5ymIAQNhzAA6mHADz8/MA7u7uAOnp + 6QDk5OQA39/fANTV1ADS0tIAzs7OAMXFxQDAwMAAu7u7ALa2tgCxsbEAqKioAHBwcACioqIAl5eXAICA + gACTk5MAhISEAIiIiABQ6YMAHrU6ACa/TAAqwlQAYO+QAG3ymgBm7JMALLBCACW7SwBt8ZkAV/CKAEjh + ewA81WgAVeiEABCpIQAgszUAKbJCAGDqjgA/2GwARt95AErgeQAVriwAlJeVAFnsigA81WsARd52AHBy + cABS64MA9vb2APT09ADy8vIA7+/vAO3t7QDs7OwA6OjoAOfn5wDl5eUA4+PjAOLi4gDg4OAA3t7eAN3d + 3QDb29sA2traANjY2ADV1dUA0dHRAM/PzwDIyMgAw8PDAMHBwQC/v78AvLy8ALm5uQBtbW0Ab29vAHFx + cQBzc3MAsrKyAHR0dAB3d3cAeXl5AHp6egA50mQAfHx8AKenpwB9fX0Af39/AKGhoQCDg4MAQdlyAEHa + dACfn58AhYWFAEPcdgCHh4cAVu+JAJycnABH4HoAm5ubAFTthwCJiYkAU+yGAEnifABR6oQAlpaWAEvk + fgCOjo4ATOV/AI+PjwBP6IIAlJSUAE7ngQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAOHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO7ulebaoQAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAE/j2I7AouHenPwAAAAAAAAAAAAAAAAAAAAAAAAAAAChdCPBwL935Xbf23UAAAAA + AAAAAAAAAAAAAAAAAAAl9F0Ow0rBvyXm5Xbg3tmfAAAAAAAAAAAAAAAAAADw7APKS5AOw0oiT16fL3bg + 39vZdwAAAAAAAAAAAAAA+hDSksmRS5AOj7/d7F6fL+Pg395z3AAAAAAAAAAA63fYz83MksmRS8KOw8TP + 516fL+Ph33XbBF8AAAAAAABPTZMHcM3MksXBSsjX1crGlZ6fL+PhQnUyQgAAAAAAAKAPlJMHcMrCjseZ + nhA7m9TMydQlL+PhQnXeAAAAAAAAJZZblM8OIpCaol8lT/Ln5ANdy84kouXh39sAAAAAAAAl09KRv8KZ + 5d7fXjkRufDk1MzHyEzQcp/hnAAAAAAAACVMIiKXouXh3969GnEqRpPNkpHFxMfPKZ0yAAAAAAAAnpvR + StAu6OXh3wom6W01LUTLyUvFydEDougAAAAAAAAAAPKgTs/HmPoVWYpJf1FmVBsjzNYQL/oAAAAAAAAA + AAAAAADn/viYzEOI6u1/8TiHgBgL7vIAAAAAAAAAAAAAAAAAAAAAAPA9pH1Jf7auejxiezAAAAAAAAAA + AAAAAAAAAAAAAAAAACghSX9/8fb5V4MsBRYAAAAAAAAAAAAAAAAAAAAAAAAINkl/f/H2+fv/o7ofjXwA + AAAAAAAAAAAAAAAAAAAAAGm7f7bx9nr7/1A/GW+CsiAAAAAAAAAAAAAAAAAAAABaibbxrvZ6+7Q6Vox5 + NrhlHAAAAAAAAAAAAAAAAAAAAGO8rvZ6+fv/aGFxEzENAAAAAAAAAAAAAAAAAAAAAAAnioSpYPtX/6Os + VbFrAAAAAAAAAAAAAAAAAAAAAAAAAKawK74d//2jDKxBuGsAAAAAAAAAAAAAAAAAAAAAAAAAahIXq+Kj + 9wzzqEhSqgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAr/XzeO+oRWeqAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAC1eO+tM0dTpQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH6tM2yoBh6LswAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAoWnt0BYgTQ3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUXGRuhj4AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA///////+f///+B///+AH///AA///AAD//AAAP/gA + AB/gAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH+AAAH/4AAH//wAH//+AA///AAH//wAA//4AAP/+A + Af//AAf//wAH//8AB///8Af///AH///wB///8Af///A///////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHJyckdxcXHWb29v0mxsbEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHFxcRt0dHSpiYmJ/tDQ0P5/f3//cHBw/m9vb6lpaWkdAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAD8/PwR3d3dxe3t78bm5uf/z8/P/9vb2/oiIiP96enr/dHR0/25u + bvNubm54VVVVBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7e3s6e3t7z52dnf/h4eH/8vLy//T09P/4+Pj+jY2N/319 + ff97e3v/d3d3/3Fxcf9tbW3Ya2trRwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4eHgTfn5+m4qKivzHx8f/6+vr/+3t7f/w8PD/8vLy//b2 + 9v+RkZH/f39//319ff97e3v/eXl5/3R0dP9ubm7+bGxsrmdnZyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgoKCYoODg+qurq7/4ODg/+bm5v/p6en/6+vr/+3t + 7f/w8PD/9fX1/5WVlf+CgoL/gICA/35+fv97e3v/eXl5/3d3d/9xcXH/bGxs9GpqanxtbW0HAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhYWFLoWFhcOampr/z8/P/9/f3//i4uL/5OTk/+bm + 5v/p6en/6+vr/+7u7v/29vb/srKy/4WFhf+CgoL/gICA/35+fv98fHz/eXl5/3d3d/90dHT/bm5u/2tr + a9tpaWlLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIiIiGGOjo76ubm5/9jY2P/b29v/3d3d/9/f + 3//i4uL/5OTk/+bm5v/v7+//8/Pz/+3t7f/s7Oz/2NjY/6Ghof+CgoL/gICA/35+fv98fHz/enp6/3d3 + d/91dXX/cXFx/2xsbP5ra2uHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAioqKqr29vf/U1NT/1tbW/9nZ + 2f/b29v/3d3d/9/f3//o6Oj/8vLy//Dw8P/j4+P/vLy8/8HBwf/g4OD/5+fn/87Ozv+Xl5f/gICA/35+ + fv98fHz/enp6/3h4eP91dXX/cnJy/2tra8wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACKioq+wsLC/9LS + 0v/U1NT/1tbW/9nZ2f/g4OD/7+/v//Pz8//l5eX/tra2/5eXl/+ampr/oKCg/6ioqP/Dw8P/3d3d/+Li + 4v/Dw8P/kJCQ/35+fv98fHz/enp6/3h4eP91dXX/bGxs3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIyM + jNHFxcX/0NDQ/9LS0v/Y2Nj/6+vr//X19f/p6en/sbGx/4iIiP+Kior/kJCQ/5WVlf+bm5v/oaGh/6en + p/+urq7/x8fH/97e3v/c3Nz+uLi4/4iIiP99fX3/enp6/3d3d/9ubm7rAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAjo6O5cjIyP/Pz8//5OTk//b29v/v7+//tra2/319ff90dHT/d3d3/4KCgv+AjYH/cZZ1/5SX + lf+cnJz/p6en/8PDw//d3d3/5eXl/+Pj4//c3Nz/1dXV/62trf6CgoL+enp6/3BwcPgAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACSkpL33Nzc//X19f/19fX/wMDA/4iIiP99fX3/enp6/3d3d/90dHT/cHJw/yOf + Mf8Wrir/GKQl/2KraP/U1dT/29vb/9/f3//k5OT/6Ojo/+zs7P/l5eX/2NjY/83Nzf6ioqL/c3Nz/gAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJGRkcOqqqr+0dHR//Dw8P/V1dX/pqam/4ODg/99fX3/enp6/3d3 + d/9Mi1T/H7g7/0HZcv8rwEr/D6gf/0u0VP/P19D/3t7e/+Li4v/m5ub/6Ojo/+Li4v/R0dH/rq6u/4mJ + if1ycnKyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAY+PjzmPj4+Zk5OT8LOzs//Y2Nj/5eXl/7u7 + u/+Ojo7/c390/xyqMf850mj/Qtt1/0XdeP87zF//Eqok/zCtOv/C1sP/4eHh/93d3f+/v7//mpqa/3t7 + e+x1dXWPdnZ2KwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB/f38KjIyMW4yM + jLuXl5f8u7u7/93d3f9gvG//KcJN/0HadP9D3Hb/Rd54/0fgev9I13D/G68u/xyoJ/+KsIz/h4eH/Xp6 + er95eXlaX19fCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAIuLix+Kiop9cJV34B61Ov8+13D/Qtt1/0Tdd/9G33n/SOF7/0rjff9R4H3/J7g9/w6j + Gv8mmS+MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/AAEbtDfGMstd/0Lbdf9E3Xf/Rd54/0fgev9J4nz/S+R+/03m + gP9X6Ib/OMNR/wukGP4IohKVAJkABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHbc9YCW+SP9C23X/RN13/0XeeP9H4Hr/SeJ8/0vk + fv9M5X//TueB/1Dpg/9Z7Ir/UNFs/w6mHP8IoRK+AJkMFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+vPxAguEDnPNVr/0XeeP9G33n/R+B6/0ni + fP9K433/TOV//07ngf9b64v+au6W/mXokP5U3oL+SdNy/yCzNf8IoRG5AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIbtFjy/IWP9G33n/R+B6/0jh + e/9J4nz/SuN9/0zlf/9g6o7/Y+OH/lfjhf5B2nT+Nc5i/yW+R/8Wryz+C6QY4QqhFGUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACK/Sywlvkz6Rd52/0jh + e/9J4nz/SuN9/0vkfv9M5X//TueB/23umP8Uphv/Fq8r/xixMP4QqiPVD6gghQmmHTQAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJb9OvTrT + aP9R5YP+ZuyT/2Hsj/9M5X//TeaA/07ngf9Q6YP/bfCZ/xytKf8QqSH/FK4q0wAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACbA + UTUrxFX+VeiE/2T2lf5S64P/SOF4/07ngf9P6IL/UOmD/1Lrhf9s8Zj/IrI0/xWuLP8VrizUAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAHMZVCSnCU48owFDYKcNR/SS9S/s50mT/UOmD/1HqhP9S64X/VO2H/23ymf8rukL/GrM2/xaw + L9kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAou1ATAAAAADzVaP9T7Ib/VO2H/1XuiP9W74n/bfOa/zC+ + TP8guUH/GLEx3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP9hs/1XuiP9W74n/V/CK/1jx + i/9t9Zr/OMVZ/ya/TP8ZsjTfAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABC23D/V/CK/1nx + jP9o9Jb/bvKa/3LunP9Z2oD/Ocpi/xq0NuQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD7W + a/9b7Yr/YO+Q/0rgef840WX/LcZV/yK8Rf0etz3cHLQ4dQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAKcNVmSjBUtAowVDxJb1LxCO8SIofuUVRHrc9GQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////n////gf///gB///wAP//wAA//wA + AD/4AAAf4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB/gAAB/+AAB//8AB///gAP//wAB//8AAP/+A + AD//gAH//wAH//8AB///AAf///AH///wB///8Af///AH///wP///////KAAAADAAAABgAAAAAQAIAAAA + AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8APtZrAK6urgBsbGwABaIQAH/0pwDX19cAdruEACux + QwBaimAAhoaGAFHrhQBaqmMA6+vrAMLCwgCampoAdZh4ADq+XAAYsTAAXsB5AHN/dABOrVMAKcFRAIqw + jABn5pMAJKE0AMLWwwBsqHAASOF4AFzWeABT0HEAN6JBADLLXAD19fUA497jALi4uACSkJIAH7g7AEnC + aAA5tFAAzMzMABikJQBj9JMAN79QAEu0VAClpaUAfn5+AGOiaAAprTIAcnJyAFnyjQAxtUwADqkeACS8 + SQBsrHQASNdwAICNgQBh34sAoKCgAFHgfQB3l30Ag7+NAGzlkgA30WYAJLEyAHl3eQBevG8AytbLADO9 + SQBjr2kAbfibACu6QgBB23YA8fHxAOfl5wDc3NwAvr6+ALS0tACWk5YAXeiLAELIXgAbsjYAO8JWADCt + OgAcrSkAV+CCAEzngAAtxVQAG60yAFW4bwDQ0NAAQLxiAMbGxgCBgoEAi4qLAGDtkAAUoxwALLY9ACa7 + TQAuvlQAIqQrABKrJQAguUAAbe6YACu4SwBotnwANbBAAGrzlwArvkgAR7pbAFPcgADZ2dkAFrIsAKys + rABubm4Anp6eAHZ1dgB8eXwAjI+MAFXviAA2z2EASeN9AAymGAAwmjoAPdZvAELbcABE3XgAG6olACK8 + RgBN1XEAV+iGAFDjgQBb7YoAYrV2ABuuMgApwkwAL8hZADrTaQA+zGYAP9lyAA2nGwDz8/MA7u7uAOnp + 6QDk5OQA397gANTU1ADT09MAzs7OAMXFxQDAwMAAu7u7ALO8swCxsbEAqampAHBwcACjoqMAmJeYAICA + gACTk5MAhISEAIiIiABQ6YMAHLU6ACa/TAAqwlYAYO+QAG7zmgBm7JMALLBCACS6SABr8JgAV/GKAEjh + ewA91GkAVeaFAA6sIgAgsjYAKbJCAF/pjwA/2GwARt96AErgeQATrSoAlJeVAFnsigA61G8ARN51AGR+ + ZgBS64MA+fj5APT09ADy8vIA7+/vAO3t7QDs7OwA6OjoAOfn5wDl5eUA5eDkAOLi4gDi3uIA397fAN3d + 3QDb29sA2traANjY2ADW09YA0dHRAM/PzwDIyMgAw8PDAMK/wgC/v78AvLy8ALm5uQBtbW0Ab29vAHFx + cQB1cXUAsrKyAHR0dAB3d3cAeXl5AHp6egA50mUAfHx8AKenpwB9fX0Af39/AKGhoQCDg4MAQdlyAEHa + dQCfn58AhYWFAEPcdwCHh4cAVu+JAJ6ZnQBH4HoAm5ubAFTthwCJiYkAU+2GAEjifABR6oQAmJSXAEvl + fQCOjo4ATOZ/AI+PjwBO6YIAlJSUAE3ngQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF9fAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw2nfc3hAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKHeKQGhdXNeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAlnJ2/ + AQGiduAy2voAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOPozgG/vwFf5XZ2ddredAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD8dU4iwMHAIgH85eXl4eAy2ewAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAdOH+yMHCwkrBwAElny/l4+Hh35xz/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAL5pZKDg7Ej8JKwQGen5/m5ePh4ELcc3UAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEOMukcXGxpAOxI/C + SgGeXl6f5uXj4eDfdZwECwAAAAAAAAAAAAAAAAAAAAAAAC4L+pVLyciRS8aQDsSPwgHwXuhen+bl43bg + Qt/ec3MlAAAAAAAAAAAAAAAAAAAA+F6aypLLyiPIkUvGkA7Dv7/EcuZeXp/mL+N24EJ1ddsE3wAAAAAA + AAAAAAAAAOQL8JRMzc3My8ojyJFLxcG/wsPDwMc75V6f5i/jduBCdXXecwQlAAAAAAAAAAAAAJ4DzgfP + z87NzMvKI8nEv8HCwc9Mjw7BcP7lXuYv43bgQt91ddveAAAAAAAAAAAAAE9Nk5PQB8/OzczMS8DASsDL + chDrJMsOxkop9OPmL+N24ULfdTLaAAAAAAAAAAAAACXVlJST0AfPcMvCv8C/kZv6+PLrnZ3XzEuRDk1e + 4y/lduFC394EAAAAAAAAAAAAAF+WW9GUk9DPDr+/vw6b6Hcl/p7wOy7km5dMyiPImuPj5XbhQnUEAAAA + AAAAAAAAAF8p0tLR0cm/vwFKLt9eC193JU8QdOcum5ty0MpMksyd4ON24eBzAAAAAAAAAAAAAKKVlZVw + jgEBv04yMjJ1n6JfJfie8nQ75NTKkcbHzHDL0fjfduGcAAAAAAAAAAAAAPqVlcMBAQFN49/g33XcnHVe + fCAR8J2XTMrKyceQDktwB3AP9OAyAAAAAAAAAAAAAPjCAQEBXV525uV24N913Nx8cXEFjZnKzkzLI5HG + Do/Bxc8Hzk1CAAAAAAAAAAAAACWb0AEBSk30duUv4+Hfdb2NirZtNQU+I0zMyshLDsTDyM7QA6FCAAAA + AAAAAAAAAAAunl+ZkQEBB+vgduN2dhpnf+2uUbEFQ8jLkslLx5LN1Z7c7HQAAAAAAAAAAAAAAAAAAAB0 + X/gPSgGPJKFCCrGM6u1/9oK4BWuSS5HKlJteQiUAAAAAAAAAAAAAAAAAAAAAAAAAAC4Q7i7Rv7/QuFhJ + Se1/tnpWsgWARNWgdV90AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOtfX5kIuO3qSX9/8a56UEUFBb1P + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHe4eUlJ7X+28fZ6+bRRBQVGAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAG6Bf0ntf3/xrvb5+1czHo0FFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAFJ97e1/f7au9nr5V//97z9mBSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKFh/7X9/ + tvH2evn7V/2jDPUGQQVlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIZ+1/f7a28a56+ftXV/33qAYG + Px+AYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABpebZ/tvGu9nr5+1f/rAYGVrt9fUBYjQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAEOl9rbx8a72evn7+wYGtEnqSYqlcQUxRgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAKt9rq6u9vZ6+ftXVwYFNViIEzVrRgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ4n59q72evn7 + +1f//waABY24NwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+pbb2sAYG+/tX///9/QZBe2ZZAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASimCoRzOtV1f//aP39wZBsbhZAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACmr/kz9bUh/f2jo/cMDAZiuBOHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAFBJjNmlY9aP3DPX19QZFE6RZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJ8wz1 + 9fN4eAYsUmdZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh7/XzeHjv7wZTZ4FSAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB5M3jv762trQZRgaVSAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAB5M62tM60zMwYfpaZSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAADiMzMzbAYGBj8ZOotSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACvR0dH + YP28QFiBpG1DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmpkC1IaWBEkMIAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhaagAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP// + /n///wAA///4H///AAD///AP//8AAP//wAP//wAA//+AAP//AAD//gAAf/8AAP/4AAAf/wAA//AAAA// + AAD/wAAAA/8AAP8AAAAA/wAA/gAAAAB/AAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgA + AAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPwAAAAAPwAA/4AAAAH/ + AAD/4AAAB/8AAP/8AAA//wAA//+AAD//AAD//4AAH/8AAP//gAAP/wAA//8AAAf/AAD//gAAA/8AAP/+ + AAAD/wAA//wAAAP/AAD//AAAH/8AAP/4AAD//wAA//AAAf//AAD/8AAB//8AAP/wAAH//wAA//gAAf// + AAD//8AB//8AAP//wAH//wAA///AAf//AAD//8AB//8AAP//wAH//wAA///AAf//AAD//8AP//8AAP// + 8f///wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHR0dBVwcHCPb29vjHp6ehIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgICAYmtra+uNjY3/c3Nz/29v + b+l8fHxhAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIaGhit3d3fAdXV1/svL + y//////+hISE/3V1df9vb2/+dnZ2wnx8fC8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSkpIKenp6hnBw + cPiioqL/9/f3//39/f/+/v78iIiI/3t7e/95eXn/cnJy/29vb/l2dnaNfX19DgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAImJ + iUl1dXXbg4OD/9ra2v/9/f3/9vb2//j4+P/////+ioqK/319ff97e3v/e3t7/3V1df9vb2//bm5u4n5+ + flUAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACMjIwbgICAqXd3d/20tLT/9fX1//T09P/y8vL/9PT0//X19f//////j4+P/319ff99fX3/fX19/3p6 + ev95eXn/cnJy/25ubv52dna3enp6JgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAkZGRBIWFhWx3d3fvlJSU/+Pj4//y8vL/7+/v/+/v7//x8fH/8vLy//T09P//////kpKS/4CA + gP9+fn7/fX19/3x8fP96enr/enp6/3d3d/9wcHD/bW1t9nNzc4GCgoIJAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACPj480fHx8yYGBgf7ExMT/8PDw/+vr6//q6ur/7Ozs/+7u7v/v7+//8fHx//Ly + 8v//////l5eX/4CAgP+AgID/f39//319ff98fHz/enp6/3l5ef94eHj/c3Nz/25ubv9tbW3aeHh4SgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAh4eHD4qKipB8fHz6paWl/+Tk5P/o6Oj/5+fn/+fn5//p6en/6urq/+zs + 7P/u7u7/7+/v//Hx8f//////mJiY/4KCgv+CgoL/gICA/39/f/99fX3/fHx8/3p6ev95eXn/d3d3/3Z2 + dv9wcHD/bW1t/XR0dKx5eXkfAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGVlZVTgoKC4Y6Ojv/Ozs7/5ubm/+Li4v/j4+P/5OTk/+bm + 5v/n5+f/6enp/+rq6v/s7Oz/7u7u/+/v7///////nJyc/4GBgf+Dg4P/goKC/4CAgP9/f3//fX19/3x8 + fP97e3v/eXl5/3h4eP93d3f/dHR0/25ubv9sbGzxc3NzdV5eXgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAm5ubIo2NjbKDg4P+sbGx/+Dg4P/f39//3t7e/+Dg + 4P/h4eH/4+Pj/+Tk5P/m5ub/5+fn/+np6f/r6+v/7e3t//f39//39/f/7Ozs/6urq/9/f3//goKC/4KC + gv+AgID/f39//35+fv98fHz/e3t7/3l5ef94eHj/dnZ2/3Z2dv9xcXH/bGxs/m1tbdJ1dXVAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACamppThYWF85ycnP/T09P/3Nzc/9vb + 2//b29v/3d3d/97e3v/g4OD/4eHh/+Pj4//k5OT/5ubm/+jo6P/y8vL/9vb2/+/v7//t7e3/7e3t//T0 + 9P/l5eX/oKCg/319ff+BgYH/gICA/39/f/9+fn7/fHx8/3t7e/95eXn/eHh4/3Z2dv91dXX/dHR0/25u + bv9sbGz8eXl5hgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSkpLBra2t/9ra + 2v/W1tb/2NjY/9jY2P/a2tr/29vb/93d3f/e3t7/4ODg/+Hh4f/i4uL/7Ozs//j4+P/y8vL/7+/v//Ly + 8v/Y2Nj/3Nzc/+7u7v/r6+v/8vLy/9nZ2f+UlJT/fX19/4GBgf9/f3//fn5+/3x8fP97e3v/eXl5/3h4 + eP93d3f/dXV1/3V1df9xcXH/cXFx7wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACSkpLVvb29/9TU1P/U1NT/1dXV/9fX1//Y2Nj/2tra/9vb2//d3d3/3d3d/+bm5v/09PT/9PT0//Hx + 8f/09PT/3t7e/6ysrP+ZmZn/n5+f/7i4uP/e3t7/6urq/+fn5//w8PD/zMzM/4mJif98fHz/f39//35+ + fv98fHz/e3t7/3p6ev94eHj/d3d3/3V1df9ycnL/b29v+QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACQkJDowcHB/9PT0//S0tL/1NTU/9XV1f/X19f/2NjY/9nZ2f/e3t7/7+/v//j4 + +P/09PT/+Pj4/+Tk5P+pqan/jo6O/5aWlv+bm5v/n5+f/6Kiov+jo6P/vLy8/93d3f/m5ub/5OTk/+vr + 6/+9vb3/goKC/3x8fP9+fn7/fX19/3t7e/96enr/eHh4/3d3d/90dHT/bGxs/QAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACLi4v2xcXF/9DQ0P/R0dH/0tLS/9TU1P/V1dX/2NjY/+rq + 6v/4+Pj/9vb2//r6+v/q6ur/qamp/4ODg/+MjIz/kZGR/5SUlP+YmJj/nJyc/6CgoP+kpKT/p6en/6mp + qf/AwMD/3Nzc/+Dg4P/h4eH/5eXl/rGxsf98fHz/fHx8/319ff97e3v/enp6/3h4eP92dnb/bW1t/gAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACLi4v8y8vL/8/Pz//Pz8//0dHR/9HR + 0f/i4uL/9/f3//n5+f/8/Pz/8PDw/6ampv93d3f/gYGB/4aGhv+Kior/jY2N/5GRkf+VlZX/mZmZ/52d + nf+hoaH/paWl/6mpqf+pqan/rKys/9XV1f/g4OD/3Nzc/9/f3//d3d3/o6Oj/3l5ef98fHz/e3t7/3p6 + ev95eXn/b29v/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACKior+zs7O/83N + zf/Nzc3/2dnZ//Pz8//7+/v//f39//b29v+zs7P/cnJy/3Jycv9ycnL/dXV1/4CAgP+IiIj/jIqL/5SO + k/+Zkpj/mZaZ/5uam/+enp7/oKCg/6enp//Dw8P/4ODg/+Tk5P/n5+f/5eXl/93d3f/Z2dn/3t7e/9HR + 0f+Wlpb/d3d3/3t7e/96enr/cHBw/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACQkJD+zs7O/8/Pz/7t7e3//f39//39/f/7+/v/vr6+/3x8fP93d3f/eXl5/3d3d/91dXX/c3Nz/3Bw + cP91dHX/gYOA/yyhOP85nkP/dZh4/5+Wnv+koaT/wMDA/9zc3P/g4OD/4ODg/+Li4v/l5eX/6enp/+vr + 6//m5ub/2dnZ/9bW1v/b29v+xMTE/ouLi/55eXn/cnJy/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACWlpb/7+/v//////78/Pz/+/v7/8bGxv+CgoL/e3t7/39/f/99fX3/e3t7/3l5 + ef93d3f/dXV1/3Nzc/92bnb/M5I8/xS0LP8WsSv/AqUQ/xClHP+qzKz/49vj/9ra2v/c3Nz/3t7e/+Hh + 4f/k5OT/5+fn/+rq6v/u7u7/8vLy/+jo6P/Y2Nj/1tbW/9zc3P69vb3/eHh4/wAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACQkJDwqKio/9XV1f/9/f3///////Dw8P+9vb3/iYmJ/3t7 + e/99fX3/fn5+/3x8fP96enr/d3d3/3d1dv9ne2n/CKsa/zrUav9G3Xv/LL5I/wyoH/8Aogv/g8KI/+Xb + 5P/c3Nz/3d3d/+Dg4P/j4+P/5ubm/+rq6v/s7Oz/7e3t/+Pj4//a2tr/1dXV/66urv+Ghob+cnJy3gAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmpqYVmZmZcZSUlNKNjY3+tbW1/+Tk + 5P///////////9bW1v+fn5//eXl5/3t7e/98fHz/e3p7/391fv8koTT/Ir1B/0Tdef9C3Hb/SN98/z3J + Xf8PqiP/AKEL/124Y//n3eX/393f/9/f3//i4uL/5ubm/+Xl5f/f39//29vb/8HBwf+Xl5f/c3Nz/Hd3 + d7h6enpQc3NzBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACjo6M3lZWVmIqKiu+Wlpb/wsLC//Hx8f//////7u7u/7i4uP+EhIT/enV5/1qKYP8MryP/P9ly/0Ha + df9D3Hb/RN13/0fiff9N1XH/Fa0r/wCiDf83r0D/393g/+jk5//k4+T/4ODg/9PT0/+pqan/gYGB/3R0 + dOh8fHyIhISEIwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ+fnwuZmZldk5OTv4iIiP2kpKT/0dHR//f39//7+fv/1tHW/xWp + Kv8sxlP/Qtt2/0Lbdf9D3Hb/Rd54/0bfef9I437/WOCB/yCyNv8CoxH/HKon/8rWy//DvcL/k5OT/3d3 + d/1/f3+/goKCWHt7ewcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKGhoSSTk5OFiYmJ4oqK + iv+5srj/ecaF/xKzLv9C3Hf/Qdp0/0Lbdf9E3Xf/Rd54/0fgev9I4Xv/SeN9/13oi/8wvEj/BaQV/wKg + Dv9egGDyhXmFj46MjikAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAkJCQBJWSlUp/jX+7D68p/zXPYf9C23b/Qtt1/0Pcdv9F3nj/Rt95/0fgev9J4nz/SuN9/0vl + fv9f64//Rcde/welGP8DpA76Aq8MawAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUwTOqIbxD/0Tdef9C23X/Q9x2/0Tdd/9F3nj/R+B6/0jh + e/9J4nz/S+R+/0zlf/9N5oD/Wu6P/1zWeP8Lphv/CaMV/gmtE5QArgAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB/NQEIbtTb9Ptdv/0Pcdv9D3Hb/RN13/0Xe + eP9G33n/SOF7/0nifP9K433/S+R+/03mgP9O54H/T+iC/1buiv9w5I//E6sl/wiiE/4IpBS5AK8PEgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxIBB62O88sxVP/Rd55/0Pc + dv9E3Xf/Rd54/0bfef9H4Hr/SeJ8/0rjff9L5H7/TOV//03mgP9P6IL/UOmD/1Hrhf9R7Yf/e++e/yOz + Nv8GoRH/CKMT1gewDicAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI8VDaR+3 + QP5D3Hf/RN14/0XeeP9G33n/Rt95/0fgev9I4Xv/SuN9/0vkfv9M5X//TeaA/03ngP9O6YL/UOqE/23y + mf+C9aj+eO6g/mzmlf5Rzm3/GKsk/wijEewAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAdxk0TILtB6jbPYf9G33r/Rd54/0bfef9H4Hr/SOF7/0nifP9K433/S+R+/0zlf/9M5oD/TeeB/2vw + mP+C9Kj+e+6i/lfhhf471nD+O9Vv/zrVcP82z2r/MsNV/w+mHP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAiyUmTJ8BK/0jhff9G33n/R+B6/0fgev9I4Xv/SeJ8/0rjff9L5H7/TOV//0zm + f/9y8J3/f+2h/mDpkP5C3Hf+QNt1/0Dbd/850mn/J8BL/xewLP8LpRb9Cq4WzguwFnoAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAACfWUy0ivEf6P9hv/0jhe/9I4Xv/SOF7/0nifP9J4nz/SuN9/0vk + fv9M5X//TeaA/0vngP+I+bD/DZ8N/w+rHv8ux1L/KcJM/xixLv8OqR37D7Mgxg60HXUHuRckAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASXLULsux1j/S+R+/0nifP9H4nv/SON8/0rj + ff9L5H7/TOV//0zlf/9N5oD/TueB/0zogf+F+a//Hakj/wagDv8Nphv/E6wo+BOqJ20UwCceAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKtpXUiXATf5F33n/SeN8/1Xm + hf968KH/gvWo/0zlf/9M5X//TeaA/07ngf9O54H/T+iC/03pgv+G+LD/I68t/wymGP8RqiT/FK4s8wDQ + AAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMNR3DrS + aP9i7pP+cPWd/nL5n/5b9o//VvKL/03mgP9N5oD/TueB/0/ogv9Q6YP/UeqE/1HrhP+D+az/J7Iz/xCq + If8UrSr/Fa4u9ADRAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAKcVU+z3TaP9M5nv/W/WN/1Tthf8/2Gv/Msta/0/og/9P6IL/UOmD/1Dpg/9R6oT/UuuF/1Hs + hf+B+Kv/LLY9/xOtKf8ZsjH/Fq8u9gDGKQcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAALd1fRivNV5onvVLdJr1N/SO9Sfwiu0juLMVU/1Psh/9Q6YP/UeqE/1Lr + hf9T7Ib/U+yG/1Lthv+C+az/Nb1K/xawMf8ctTj/F68w+AC3HAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL8hZ/1Tt + h/9S64X/U+yG/1Pshv9U7Yf/Ve6I/1XviP9/+ar/N79Q/xu1OP8fuD//GLAx+ADCOQoAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAMcpb/1bvif9T7Ib/VO2H/1XuiP9V7oj/Vu+J/1bwif9++an/O8JW/x+5QP8jvEb/GLIz+hC9 + MhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAANc5f/1jxi/9V7oj/Vu+J/1bvif9X8Ir/V/CK/1fxiv99+qj/Q8lg/yG7 + Rv8nwE7/GbI1+g+9MhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN89i/1jxjP9X8Ir/V/CK/1jxi/9X8Yr/WPKL/1jz + jf+J/bD/VNF1/yPAS/8pw1b/GrM1/BzANxQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOdJl/1rzjv9Y8Yv/WPKM/2v1 + mf5796X+f/Sn/4Dwpf9o55P/Z+aT/2Hfi/8+zGb/HLQ4+x7XPBMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPNVp/2j7 + mv9s+Zv/b/ac/l/vkP5O6YL/RN51/zjSZf8rxlX/Ir1F/xy3PP4cwj3lIM9CiAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAKcNW+SzEV/430WP/Ptht/zPNXv8owE3+IrxI+yPGSNEjykaXH8VGXSLWRSIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAI9xbDynCU0MowVJ5Jr9OpifAToIjv0pIIM1CEAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///5///8AAP//+B///wAA///wD/// + AAD//8AD//8AAP//gAD//wAA//4AAH//AAD/+AAAH/8AAP/wAAAP/wAA/8AAAAP/AAD/AAAAAP8AAP4A + AAAAfwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAf + AAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD8AAAAAD8AAP+AAAAB/wAA/+AAAAf/AAD//AAAP/8AAP// + gAA//wAA//+AAB//AAD//4AAD/8AAP//AAAH/wAA//4AAAP/AAD//gAAA/8AAP/8AAAD/wAA//wAAB// + AAD/+AAA//8AAP/wAAH//wAA//AAAf//AAD/8AAB//8AAP/4AAH//wAA///AAf//AAD//8AB//8AAP// + wAH//wAA///AAf//AAD//8AB//8AAP//wAH//wAA///AD///AAD///H///8AAP///////wAA + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.vb b/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.vb new file mode 100644 index 0000000..6d2c599 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWD_Index_Dokart.vb @@ -0,0 +1,328 @@ +Imports System.IO + +Public Class frmWD_Index_Dokart + Dim droptype As String + Dim aktFiledropped As String + Dim MULTIFILES As Integer = 0 + Private Sub FillToolStripButton_Click(sender As Object, e As EventArgs) + Try + Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + End Sub + Function WORK_FILE(Filepath As String, Targetpath As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean) + Try + Dim err As Boolean = False + Dim streamresult = ClassWindream.Stream_File(Filepath, Targetpath) + 'Dim type = streamresult.GetType + If streamresult = True Then + Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & vDokart_ID + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + Dim indexierung_erfolgreich As Boolean = False + If dt Is Nothing = False Then + If dt.Rows.Count > 0 Then + Dim Count As Integer = 0 + For Each row As DataRow In dt.Rows + Dim indexname = row.Item("INDEXNAME").ToString + Dim idxvalue = row.Item("VALUE") + If idxvalue.ToString.StartsWith("@") Then + Select Case idxvalue.ToString.ToUpper + Case "@RECORD-ID" + idxvalue = idxvalue.ToString.Replace("@Record-ID", CURRENT_RECORD_ID) + Case "@DOKART" + idxvalue = idxvalue.ToString.Replace("@Dokart", vDokart) + End Select + End If + If LogErrorsOnly = False Then ClassLogger.Add(" - Indexvalue: " & idxvalue.ToString, False) + Count += 1 + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical) + err = True + Exit For + End If + 'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String + Next + If err = True Then + Return False + End If + 'den Entity-Key auslesen + sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')" + dt = ClassDatabase.Return_Datatable(sql) + If Not dt Is Nothing Then + If dt.Rows.Count = 1 Then + Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString + Dim idxvalue = CURRENT_FORM_ID + If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False) + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + err = True + MsgBox("Unexpected Error in indexing file Entity - See log", MsgBoxStyle.Critical) + Return False + End If + indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString + idxvalue = CURRENT_PARENTID + If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False) + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) + If indexierung_erfolgreich = False Then + err = True + MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) + Return False + End If + End If + End If + If indexierung_erfolgreich = True Then + If multiindex = False Then MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung") + ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID) + frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen") + 'Die Originaldatei löschen + If droptype = "dragdrop file" And indexierung_erfolgreich = True Then + If chkdelete_origin.Checked = True Then + 'Die temporäre Datei löschen + File.Delete(aktFiledropped) + End If + ElseIf droptype = "@ATTMNTEXTRACTED@" And indexierung_erfolgreich = True Then + 'Die temporäre Datei löschen + File.Delete(aktFiledropped) + ElseIf droptype = "dragdrop message" And indexierung_erfolgreich = True Then + 'Die temporäre Datei löschen + File.Delete(aktFiledropped) + End If + Return True + Else + MsgBox("Es gab ein Problem bei der Indexierung der Datei. Bitte prüfen sie das Log!", MsgBoxStyle.Exclamation, "Achtung:") + Return False + End If + End If + End If + End If + Catch ex As Exception + MsgBox("Unexpected error in Work-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + + End Function + Private Sub btnindex_Click(sender As Object, e As EventArgs) Handles btnindex.Click + Try + Me.Cursor = Cursors.WaitCursor + SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs) + + If cmbDokumentart.SelectedIndex <> -1 Then + My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text + My.Settings.Save() + ClassWindream._WDObjekttyp = Me.OBJECT_TYPETextBox.Text + If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then + 'Die erste Datei indexieren + If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, True) = True Then + 'Und nun die folgenden + Dim DTFiles2Work As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')") + If Not DTFiles2Work Is Nothing Then + Dim err = False + For Each filerow As DataRow In DTFiles2Work.Rows + CURRENT_FILEID = filerow.Item("GUID") + CURRENT_FILENAME = filerow.Item("FILENAME2WORK") + Dim HandleType As String = filerow.Item("HANDLE_TYPE") + aktFiledropped = CURRENT_FILENAME + If HandleType = "@DROPFROMFSYSTEM@" Then + droptype = "dragdrop file" + ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then + droptype = "dragdrop attachment" + ElseIf HandleType = "@OUTLOOKMESSAGE@" Then + droptype = "dragdrop message" + End If + If WORK_FILE(CURRENT_FILENAME, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, True) = False Then + err = True + Exit For + End If + Next + Me.Cursor = Cursors.Default + If err = False Then + MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich nach windream übertragen!", MsgBoxStyle.Information, "Erfolgsmeldung:") + Me.Close() + End If + End If + + + End If + Else + If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, False) = True Then Me.Close() + End If + Me.Cursor = Cursors.Default + 'ClassWindream._WDObjekttyp = Me.OBJECT_TYPETextBox.Text + 'Dim streamresult = ClassWindream.Stream_File(Me.txtFilepath.Text, Me.PATHTextBox.Text) + ''Dim type = streamresult.GetType + 'If streamresult = True Then + ' Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & cmbDokumentart.SelectedValue + ' Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + ' Dim indexierung_erfolgreich As Boolean = False + ' If dt Is Nothing = False Then + ' If dt.Rows.Count > 0 Then + ' Dim Count As Integer = 0 + ' For Each row As DataRow In dt.Rows + ' Dim indexname = row.Item("INDEXNAME").ToString + ' Dim idxvalue = row.Item("VALUE") + ' If idxvalue.ToString.StartsWith("@") Then + ' Select Case idxvalue.ToString.ToUpper + ' Case "@RECORD-ID" + ' idxvalue = idxvalue.ToString.Replace("@Record-ID", CURRENT_RECORD_ID) + ' Case "@DOKART" + ' idxvalue = idxvalue.ToString.Replace("@Dokart", cmbDokumentart.Text) + ' End Select + ' End If + ' If LogErrorsOnly = False Then ClassLogger.Add(" - Indexvalue: " & idxvalue.ToString, False) + ' Count += 1 + ' indexierung_erfolgreich = ClassWindream.DateiIndexieren(streamresult, indexname, idxvalue) + ' If indexierung_erfolgreich = False Then + ' MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical) + ' Exit For + ' End If + ' 'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String + ' Next + ' 'den Entity-Key auslesen + ' sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')" + ' dt = ClassDatabase.Return_Datatable(sql) + ' If Not dt Is Nothing Then + ' If dt.Rows.Count = 1 Then + ' Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString + ' Dim idxvalue = CURRENT_FORM_ID + ' If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False) + ' indexierung_erfolgreich = ClassWindream.DateiIndexieren(streamresult, indexname, idxvalue) + ' If indexierung_erfolgreich = False Then + ' MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical) + ' End If + ' indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString + ' idxvalue = CURRENT_PARENTID + ' If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False) + ' indexierung_erfolgreich = ClassWindream.DateiIndexieren(streamresult, indexname, idxvalue) + ' If indexierung_erfolgreich = False Then + ' MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) + ' End If + ' End If + ' End If + ' If indexierung_erfolgreich = True Then + ' MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung") + ' ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID) + ' frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen") + ' 'Die Originaldatei löschen + ' If droptype = "dragdrop file" And indexierung_erfolgreich = True Then + ' If chkdelete_origin.Checked = True Then + ' 'Die temporäre Datei löschen + ' File.Delete(aktFiledropped) + ' End If + ' ElseIf droptype = "@ATTMNTEXTRACTED@" And indexierung_erfolgreich = True Then + ' 'Die temporäre Datei löschen + ' File.Delete(aktFiledropped) + ' ElseIf droptype = "dragdrop message" And indexierung_erfolgreich = True Then + ' 'Die temporäre Datei löschen + ' File.Delete(aktFiledropped) + ' End If + ' Me.Close() + ' Else + ' MsgBox("Es gab ein Problem bei der Indexierung der Datei. Bitte prüfen sie das Log!", MsgBoxStyle.Exclamation, "Achtung:") + ' End If + ' End If + ' End If + 'Else + ' MsgBox("Unexpected Error in Stream2windream. Please check logfile!", MsgBoxStyle.Exclamation) + End If + Catch ex As Exception + MsgBox("Error in Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub cmbDokumentart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDokumentart.SelectedIndexChanged + Try + If cmbDokumentart.SelectedIndex <> -1 Then + Refresh_indices() + + End If + Catch ex As Exception + MsgBox("Error in cmbDokumentart SelectedIndex:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Refresh_indices() + Try + If Not FW_DOCTYPE_IDTextBox.Text = String.Empty Then + Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & FW_DOCTYPE_IDTextBox.Text + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + Dim Count As Integer = 0 + If dt.Rows.Count > 0 Then + ListView1.Items.Clear() + For Each row As DataRow In dt.Rows + ListView1.Items.Add(row.Item("INDEXNAME").ToString) + ListView1.Items(Count).SubItems.Add(row.Item("VALUE")) + Count += 1 + Next + End If + 'den Entity-Key auslesen + sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')" + dt = ClassDatabase.Return_Datatable(sql) + If Not dt Is Nothing Then + If dt.Rows.Count = 1 Then + ListView1.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString) + ListView1.Items(Count).SubItems.Add(CURRENT_FORM_ID) + ListView1.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString) + ListView1.Items(Count + 1).SubItems.Add(CURRENT_PARENTID) + End If + End If + End If + Catch ex As Exception + MsgBox("Error in Refresh Indices for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub frmWD_Index_Dokart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + My.Settings.Save() + End Sub + Private Sub frmWD_Index_Dokart_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + chkMultiIndexer.Checked = False + ClassLogger.Add(">> frmWD_Index_Dokart_Load", False) + chkdelete_origin.Checked = False + chkdelete_origin.Visible = False + CURRENT_FILENAME = ClassDatabase.Execute_Scalar("SELECT FILENAME2WORK FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID) + Dim HandleType As String = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID) + MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')") + If MULTIFILES > 0 Then + chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren" + chkMultiIndexer.Visible = True + Else + chkMultiIndexer.Visible = False + End If + aktFiledropped = CURRENT_FILENAME + txtFilepath.Text = aktFiledropped + If HandleType = "@DROPFROMFSYSTEM@" Then + droptype = "dragdrop file" + chkdelete_origin.Visible = True + chkdelete_origin.Checked = WD_IndexDeleteDocs + ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then + droptype = "dragdrop attachment" + chkdelete_origin.Visible = True + chkdelete_origin.Checked = WD_IndexDeleteDocs + ElseIf HandleType = "@OUTLOOKMESSAGE@" Then + droptype = "dragdrop message" + chkdelete_origin.Visible = True + chkdelete_origin.Checked = WD_IndexDeleteDocs + End If + + VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID) + TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Refresh_indices() + Catch ex As Exception + MsgBox("Error in frmWD_Index_Dokart_Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub chkdelete_origin_CheckedChanged(sender As Object, e As EventArgs) Handles chkdelete_origin.CheckedChanged + WD_IndexDeleteDocs = chkdelete_origin.Checked + SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs) + End Sub + + Private Sub frmWD_Index_Dokart_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then + cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE) + End If + + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.Designer.vb b/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.Designer.vb new file mode 100644 index 0000000..38cbc9f --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.Designer.vb @@ -0,0 +1,634 @@ + _ +Partial Class frmWF_TaskEditor + 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 CHANGED_WHENLabel As System.Windows.Forms.Label + Dim GUIDLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim TITLELabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim COMMENTLabel As System.Windows.Forms.Label + Dim STATE_IDLabel As System.Windows.Forms.Label + Dim DUE_DATELabel As System.Windows.Forms.Label + Dim Label4 As System.Windows.Forms.Label + Dim RECORD_IDLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWF_TaskEditor)) + Me.OK_Button = New System.Windows.Forms.Button() + Me.Cancel_Button = New System.Windows.Forms.Button() + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.TBPMO_WORKFLOW_TASKBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_WORKFLOW_TASKTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.btnAddAppointment = New System.Windows.Forms.Button() + Me.btndeleteTask = New System.Windows.Forms.Button() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.TITLETextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.DUE_DATEDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox() + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_FOLLOWING_TASKSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Label1 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.btnAddUser = New System.Windows.Forms.Button() + Me.ListBoxUser = New System.Windows.Forms.ListBox() + Me.ListView1 = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.Label3 = New System.Windows.Forms.Label() + Me.btndeleteuser = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() + Me.VWPMO_FOLLOWING_TASKSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_FOLLOWING_TASKSTableAdapter() + Me.btndelete_following = New System.Windows.Forms.Button() + Me.ListBoxFollowing = New System.Windows.Forms.ListBox() + Me.RECORD_IDTextBox = New System.Windows.Forms.TextBox() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + TITLELabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + COMMENTLabel = New System.Windows.Forms.Label() + STATE_IDLabel = New System.Windows.Forms.Label() + DUE_DATELabel = New System.Windows.Forms.Label() + Label4 = New System.Windows.Forms.Label() + RECORD_IDLabel = New System.Windows.Forms.Label() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_FOLLOWING_TASKSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(402, 255) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 15) + CHANGED_WHENLabel.TabIndex = 16 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(9, 20) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(50, 15) + GUIDLabel.TabIndex = 4 + GUIDLabel.Text = "Task-ID:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(243, 254) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 15) + CHANGED_WHOLabel.TabIndex = 14 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'TITLELabel + ' + TITLELabel.AutoSize = True + TITLELabel.Location = New System.Drawing.Point(84, 20) + TITLELabel.Name = "TITLELabel" + TITLELabel.Size = New System.Drawing.Size(34, 15) + TITLELabel.TabIndex = 5 + TITLELabel.Text = "Task:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(84, 255) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 15) + ADDED_WHENLabel.TabIndex = 12 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'COMMENTLabel + ' + COMMENTLabel.AutoSize = True + COMMENTLabel.Location = New System.Drawing.Point(84, 68) + COMMENTLabel.Name = "COMMENTLabel" + COMMENTLabel.Size = New System.Drawing.Size(73, 15) + COMMENTLabel.TabIndex = 6 + COMMENTLabel.Text = "Kommentar:" + ' + 'STATE_IDLabel + ' + STATE_IDLabel.AutoSize = True + STATE_IDLabel.Location = New System.Drawing.Point(84, 204) + STATE_IDLabel.Name = "STATE_IDLabel" + STATE_IDLabel.Size = New System.Drawing.Size(42, 15) + STATE_IDLabel.TabIndex = 10 + STATE_IDLabel.Text = "Status:" + ' + 'DUE_DATELabel + ' + DUE_DATELabel.AutoSize = True + DUE_DATELabel.Location = New System.Drawing.Point(206, 160) + DUE_DATELabel.Name = "DUE_DATELabel" + DUE_DATELabel.Size = New System.Drawing.Size(57, 15) + DUE_DATELabel.TabIndex = 8 + DUE_DATELabel.Text = "Fälligkeit:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.Location = New System.Drawing.Point(84, 160) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(63, 15) + Label4.TabIndex = 20 + Label4.Text = "Ist-Datum:" + ' + 'OK_Button + ' + Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.OK_Button.Image = Global.DD_Record_Organiser.My.Resources.Resources.brick_go + Me.OK_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.OK_Button.Location = New System.Drawing.Point(834, 538) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(178, 27) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "Speichern und Schließen" + Me.OK_Button.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Cancel_Button + ' + Me.Cancel_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel_Button.Location = New System.Drawing.Point(709, 538) + Me.Cancel_Button.Name = "Cancel_Button" + Me.Cancel_Button.Size = New System.Drawing.Size(90, 27) + Me.Cancel_Button.TabIndex = 1 + Me.Cancel_Button.Text = "Abbrechen" + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMO_WORKFLOW_TASKBindingSource + ' + Me.TBPMO_WORKFLOW_TASKBindingSource.DataMember = "TBPMO_WORKFLOW_TASK" + Me.TBPMO_WORKFLOW_TASKBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBPMO_WORKFLOW_TASKTableAdapter + ' + Me.TBPMO_WORKFLOW_TASKTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Me.TBPMO_WORKFLOW_TASK_STATETableAdapter + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_WORKFLOW_TASK_STATETableAdapter + ' + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.ClearBeforeFill = True + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(RECORD_IDLabel) + Me.GroupBox1.Controls.Add(Me.RECORD_IDTextBox) + Me.GroupBox1.Controls.Add(Me.DateTimePicker1) + Me.GroupBox1.Controls.Add(Label4) + Me.GroupBox1.Controls.Add(Me.btnAddAppointment) + Me.GroupBox1.Controls.Add(Me.btndeleteTask) + Me.GroupBox1.Controls.Add(CHANGED_WHENLabel) + Me.GroupBox1.Controls.Add(Me.GUIDTextBox) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.GroupBox1.Controls.Add(GUIDLabel) + Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) + Me.GroupBox1.Controls.Add(Me.TITLETextBox) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.GroupBox1.Controls.Add(TITLELabel) + Me.GroupBox1.Controls.Add(ADDED_WHENLabel) + Me.GroupBox1.Controls.Add(Me.COMMENTTextBox) + Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox) + Me.GroupBox1.Controls.Add(COMMENTLabel) + Me.GroupBox1.Controls.Add(STATE_IDLabel) + Me.GroupBox1.Controls.Add(Me.DUE_DATEDateTimePicker) + Me.GroupBox1.Controls.Add(Me.STATE_IDComboBox) + Me.GroupBox1.Controls.Add(DUE_DATELabel) + Me.GroupBox1.Location = New System.Drawing.Point(0, 0) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(700, 318) + Me.GroupBox1.TabIndex = 19 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Aktueller Task:" + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TASK_DATE", True)) + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DateTimePicker1.Location = New System.Drawing.Point(87, 178) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.Size = New System.Drawing.Size(96, 23) + Me.DateTimePicker1.TabIndex = 21 + ' + 'VWPMO_WF_USER_ACTIVEBindingSource + ' + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'btnAddAppointment + ' + Me.btnAddAppointment.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632 + Me.btnAddAppointment.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddAppointment.Location = New System.Drawing.Point(504, 184) + Me.btnAddAppointment.Name = "btnAddAppointment" + Me.btnAddAppointment.Size = New System.Drawing.Size(176, 23) + Me.btnAddAppointment.TabIndex = 19 + Me.btnAddAppointment.Text = "zum Kalender hinzufügen" + Me.btnAddAppointment.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddAppointment.UseVisualStyleBackColor = True + ' + 'btndeleteTask + ' + Me.btndeleteTask.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete + Me.btndeleteTask.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndeleteTask.Location = New System.Drawing.Point(605, 20) + Me.btndeleteTask.Name = "btndeleteTask" + Me.btndeleteTask.Size = New System.Drawing.Size(75, 43) + Me.btndeleteTask.TabIndex = 18 + Me.btndeleteTask.Text = "Löschen" + Me.btndeleteTask.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndeleteTask.UseVisualStyleBackColor = True + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "WF_TASK_ID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(12, 40) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(68, 23) + Me.GUIDTextBox.TabIndex = 5 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(405, 275) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(160, 23) + Me.CHANGED_WHENTextBox.TabIndex = 17 + ' + 'TITLETextBox + ' + Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TITLE", True)) + Me.TITLETextBox.Location = New System.Drawing.Point(87, 40) + Me.TITLETextBox.Name = "TITLETextBox" + Me.TITLETextBox.ReadOnly = True + Me.TITLETextBox.Size = New System.Drawing.Size(512, 23) + Me.TITLETextBox.TabIndex = 6 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(246, 275) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(138, 23) + Me.CHANGED_WHOTextBox.TabIndex = 15 + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.Location = New System.Drawing.Point(87, 88) + Me.COMMENTTextBox.Multiline = True + Me.COMMENTTextBox.Name = "COMMENTTextBox" + Me.COMMENTTextBox.Size = New System.Drawing.Size(593, 69) + Me.COMMENTTextBox.TabIndex = 7 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(87, 275) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(138, 23) + Me.ADDED_WHENTextBox.TabIndex = 13 + ' + 'DUE_DATEDateTimePicker + ' + Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "DUE_DATE", True)) + Me.DUE_DATEDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DUE_DATEDateTimePicker.Location = New System.Drawing.Point(209, 178) + Me.DUE_DATEDateTimePicker.Name = "DUE_DATEDateTimePicker" + Me.DUE_DATEDateTimePicker.Size = New System.Drawing.Size(96, 23) + Me.DUE_DATEDateTimePicker.TabIndex = 9 + ' + 'STATE_IDComboBox + ' + Me.STATE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.VWPMO_WF_USER_ACTIVEBindingSource, "STATE_ID", True)) + Me.STATE_IDComboBox.DataSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource + Me.STATE_IDComboBox.DisplayMember = "STATE_DESC" + Me.STATE_IDComboBox.FormattingEnabled = True + Me.STATE_IDComboBox.Location = New System.Drawing.Point(87, 222) + Me.STATE_IDComboBox.Name = "STATE_IDComboBox" + Me.STATE_IDComboBox.Size = New System.Drawing.Size(297, 23) + Me.STATE_IDComboBox.TabIndex = 11 + Me.STATE_IDComboBox.ValueMember = "GUID" + ' + 'TBPMO_WORKFLOW_TASK_STATEBindingSource + ' + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_STATE" + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'VWPMO_FOLLOWING_TASKSBindingSource + ' + Me.VWPMO_FOLLOWING_TASKSBindingSource.DataMember = "VWPMO_FOLLOWING_TASKS" + Me.VWPMO_FOLLOWING_TASKSBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.Crimson + Me.Label1.Location = New System.Drawing.Point(706, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(115, 15) + Me.Label1.TabIndex = 21 + Me.Label1.Text = "Nacholgende Tasks:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GroupBox2.BackColor = System.Drawing.SystemColors.ControlLight + Me.GroupBox2.Controls.Add(Me.btnAddUser) + Me.GroupBox2.Controls.Add(Me.ListBoxUser) + Me.GroupBox2.Controls.Add(Me.ListView1) + Me.GroupBox2.Controls.Add(Me.Label3) + Me.GroupBox2.Controls.Add(Me.btndeleteuser) + Me.GroupBox2.Controls.Add(Me.Label2) + Me.GroupBox2.Location = New System.Drawing.Point(0, 329) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(700, 253) + Me.GroupBox2.TabIndex = 22 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Exklusive Zuordnung von Tasks zu Usern:" + ' + 'btnAddUser + ' + Me.btnAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left + Me.btnAddUser.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUser.Location = New System.Drawing.Point(385, 76) + Me.btnAddUser.Name = "btnAddUser" + Me.btnAddUser.Size = New System.Drawing.Size(112, 40) + Me.btnAddUser.TabIndex = 29 + Me.btnAddUser.Text = "User dem Task" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "zuordnen" + Me.btnAddUser.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUser.UseVisualStyleBackColor = True + ' + 'ListBoxUser + ' + Me.ListBoxUser.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBoxUser.FormattingEnabled = True + Me.ListBoxUser.ItemHeight = 15 + Me.ListBoxUser.Location = New System.Drawing.Point(503, 37) + Me.ListBoxUser.Name = "ListBoxUser" + Me.ListBoxUser.Size = New System.Drawing.Size(184, 199) + Me.ListBoxUser.TabIndex = 28 + ' + 'ListView1 + ' + Me.ListView1.AllowDrop = True + Me.ListView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3}) + Me.ListView1.FullRowSelect = True + Me.ListView1.Location = New System.Drawing.Point(12, 37) + Me.ListView1.Name = "ListView1" + Me.ListView1.Size = New System.Drawing.Size(367, 210) + Me.ListView1.TabIndex = 27 + Me.ListView1.UseCompatibleStateImageBehavior = False + Me.ListView1.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "ID" + Me.ColumnHeader1.Width = 40 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Task" + Me.ColumnHeader2.Width = 200 + ' + 'ColumnHeader3 + ' + Me.ColumnHeader3.Text = "User" + Me.ColumnHeader3.Width = 120 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.Crimson + Me.Label3.Location = New System.Drawing.Point(500, 19) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(182, 15) + Me.Label3.TabIndex = 26 + Me.Label3.Text = "User zur Zuordnung auswählen:" + ' + 'btndeleteuser + ' + Me.btndeleteuser.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete + Me.btndeleteuser.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndeleteuser.Location = New System.Drawing.Point(385, 37) + Me.btndeleteuser.Name = "btndeleteuser" + Me.btndeleteuser.Size = New System.Drawing.Size(112, 33) + Me.btndeleteuser.TabIndex = 24 + Me.btndeleteuser.Text = "löschen" + Me.btndeleteuser.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndeleteuser.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.Crimson + Me.Label2.Location = New System.Drawing.Point(9, 19) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(112, 15) + Me.Label2.TabIndex = 22 + Me.Label2.Text = "Zugeordnete User:" + ' + 'VWPMO_WF_USER_ACTIVETableAdapter + ' + Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True + ' + 'VWPMO_FOLLOWING_TASKSTableAdapter + ' + Me.VWPMO_FOLLOWING_TASKSTableAdapter.ClearBeforeFill = True + ' + 'btndelete_following + ' + Me.btndelete_following.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete + Me.btndelete_following.Location = New System.Drawing.Point(1019, 38) + Me.btndelete_following.Name = "btndelete_following" + Me.btndelete_following.Size = New System.Drawing.Size(35, 24) + Me.btndelete_following.TabIndex = 23 + Me.btndelete_following.UseVisualStyleBackColor = True + ' + 'ListBoxFollowing + ' + Me.ListBoxFollowing.DataSource = Me.VWPMO_FOLLOWING_TASKSBindingSource + Me.ListBoxFollowing.DisplayMember = "TITLE" + Me.ListBoxFollowing.FormattingEnabled = True + Me.ListBoxFollowing.ItemHeight = 15 + Me.ListBoxFollowing.Location = New System.Drawing.Point(709, 38) + Me.ListBoxFollowing.Name = "ListBoxFollowing" + Me.ListBoxFollowing.Size = New System.Drawing.Size(303, 274) + Me.ListBoxFollowing.TabIndex = 24 + Me.ListBoxFollowing.ValueMember = "WF_TASK_ID" + ' + 'RECORD_IDLabel + ' + RECORD_IDLabel.AutoSize = True + RECORD_IDLabel.Location = New System.Drawing.Point(12, 68) + RECORD_IDLabel.Name = "RECORD_IDLabel" + RECORD_IDLabel.Size = New System.Drawing.Size(63, 15) + RECORD_IDLabel.TabIndex = 21 + RECORD_IDLabel.Text = "Record-ID:" + ' + 'RECORD_IDTextBox + ' + Me.RECORD_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "RECORD_ID", True)) + Me.RECORD_IDTextBox.Location = New System.Drawing.Point(12, 88) + Me.RECORD_IDTextBox.Name = "RECORD_IDTextBox" + Me.RECORD_IDTextBox.ReadOnly = True + Me.RECORD_IDTextBox.Size = New System.Drawing.Size(68, 23) + Me.RECORD_IDTextBox.TabIndex = 22 + Me.RECORD_IDTextBox.TabStop = False + ' + 'frmWF_TaskEditor + ' + Me.AcceptButton = Me.OK_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel_Button + Me.ClientSize = New System.Drawing.Size(1066, 594) + Me.Controls.Add(Me.OK_Button) + Me.Controls.Add(Me.ListBoxFollowing) + Me.Controls.Add(Me.Cancel_Button) + Me.Controls.Add(Me.btndelete_following) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.GroupBox1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmWF_TaskEditor" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Übersicht aller Tasks für diesen Vorgang/Record" + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_FOLLOWING_TASKSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents Cancel_Button As System.Windows.Forms.Button + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_WORKFLOW_TASKBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_WORKFLOW_TASKTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WORKFLOW_TASK_STATETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents TITLETextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents DUE_DATEDateTimePicker As System.Windows.Forms.DateTimePicker + Friend WithEvents STATE_IDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents TBPMO_WORKFLOW_TASK_STATEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents btndeleteuser As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents ListView1 As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader + Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter + Friend WithEvents VWPMO_FOLLOWING_TASKSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_FOLLOWING_TASKSTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_FOLLOWING_TASKSTableAdapter + Friend WithEvents btndeleteTask As System.Windows.Forms.Button + Friend WithEvents btnAddAppointment As System.Windows.Forms.Button + Friend WithEvents btndelete_following As System.Windows.Forms.Button + Friend WithEvents ListBoxUser As System.Windows.Forms.ListBox + Friend WithEvents btnAddUser As System.Windows.Forms.Button + Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker + Friend WithEvents ListBoxFollowing As System.Windows.Forms.ListBox + Friend WithEvents RECORD_IDTextBox As System.Windows.Forms.TextBox + +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.resx b/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.resx new file mode 100644 index 0000000..5ec146d --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.resx @@ -0,0 +1,630 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 160, 17 + + + 438, 17 + + + 710, 17 + + + 17, 56 + + + False + + + 328, 56 + + + 883, 17 + + + 878, 56 + + + 606, 56 + + + 1169, 56 + + + + + AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA + IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw + AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wAlWv8AmqK9AAAFvgBNUKsAZ5j/ALbH+QAcN9AAcXjAAMXGwwBOZNgAABzoAJGv+ABHef4ALDSqAIOV + 2QBnfd8ANUvKABdB7gAIIMkAh4u6AMzU6wCtsMgAOVvkABoltABeYLEAPEK2AIae7gALL+MATVq/ADhl + /QApS+cAWIn/AAsYtgAAEdMAX3PSACo+xQDM2fwA9fX1ABpN/gCOotkAJTG4AAAUwwC/y+0AcHKyALa7 + zQCRmcQAWGLEAHWZ/AAAH9oAHz/bAGx90gBDR6wAQFvZAKqtvAAtPLkAFDTZAHiCwQCjpMUAPm//AAIo + 5QAgSu4AUIH/AGOI/wAvX/8ASlO1AAAbzwAfRuMAmqPJACZG3AAADroARlO+AA8jwwAACMcAABTcADxq + 9gCxwfQAND2zAFB4/ABvkvwAcH/KABcovABJWccAMUG/AIqv/QCGjsIAO1XcADtArgAZRvQAIz/UAAAR + ywAwRcsAlZ2/AAAh4QAADMEAABjWACxN4QAMMukABSjfAERy/wAzYvoApKjAACBW/wBudbcAGkDpAAAX + 4QAqL7YAABfLADJk/wCmqMcAND+4ACIutQAuO74AABzgAAEf1QBcjP8AOmz/AAkexQAjSOIAABXRAAIb + ywAAIOoAK13/AC05tgDDw8UAhYi4AAASugCmq78AaIDdAEJ1/gBqfNUATlKuAAAUyQAAFdgAABvVABM0 + 3AA1Zf8AxcbGAAAV1QAAF84ALj6+ACxK4QAAFsUAACHcAC1h/wAgQNkAPVbbAAAGxgAADcMAABnQAAAc + 0QAAHt8ALV7/ADxr/wAABcAAABHJAAQn4AAADcAAABXKAAAW1AAAH9YAACLgAAou4wAaRvMAO23/ADRm + /wAuYP8AMWP/ADRl/gCjqMAAAAzDAAAZ1gAAG9AAABzVACte/wAsXf8AAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAcBmEAAAAAAAAAAAAAABxiAJzrSsiGy0AAAAAAABvpqd7opChQ49HD2sa + AAAAjaWvT3d6cqxsXwOcfwUAACUxFiwVN0U0CJRdaq01AABcTR9njEpCL1aqCoEzWAAAWqiwbZ1gHoNL + i3kwfk4AAJJ1mVAYPVMRDJiHn558AACOJicHOheKLhA2OXiVKgAAIEAokWOGIxRUCX1mgDgAABOJQTxi + XjKXhQRulqtSAABZZJohTD4doFubO6OuSQAApKmCDj90BlUNHCllaXYAAAAAAFEkC5NXYURGEkhoAAAA + AAAAAAAAAAAAAAAAAAD//wAA8f8AAMAfAACAAwAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIAB + AACAAQAAgAEAAPABAAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAACL1IAhG4zwANttkACbCNAAeyQAAAzgQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAALxCsAEsa7FDXe/iVa//8BH9X/ABvQ/wAUw/8AD7nuAAq8pwAIulsAAMISAAAAAAAA + AAAAAAAAAAAAAAAAAAAAEb6yNGb//y5g//8rXf//ACLg/wAh3P8AH9b/ABvP/wAWxf8ADrr/KzSs+wAH + usEABrd1AACzFwAAAAAAAAAAARbGuztt//8rXv//UHj8/yNI4v8AIOr/ABzg/wAZ1v8AF8v/AAzB/5qi + vf8AEcn/ABK6/wAHqo4AAAAAAAAAAAEbzsF1mfz/zNTr/7/L7f+Hi7r/qq28/5qjyf9sfdL/HDfQ/wAG + xv+Vnb//ABfh/wAb0P8ACKydAAAAAAAAAAAPKdXIscH0/zhl/f8gVv//ABfO/wAIx/9KU7X/kZnE/4aO + wv+jqMD/xcbD/2iA3f8fP9v/AAmwqAAAAAAAAAAAAybfzjFj//8sXf//MmT//wQn4P8AGNb/TVq//2p8 + 1f8AFNz/ABXV/wIby/9YYsT/hYi4/wANuLIAAAAAAAAAAAYs5NU6bP//LV7//2+S/P85W+T/Aijl/0lZ + x/9nfd//ABzo/wAe3/8AG9X/ABXK/wANwP8BEbq9AAAAAAAAAAAYO+zbzNn8//X19f+2x/n/eILB/62w + yP/Fxsb/trvN/4OV2f9AW9n/FDTZ/wAV0f8ADcP/ABC9yAAAAAAAAAAAGUDx4mOI//8aTf7/LWH//wUo + 3/8AFdj/ABHT/wggyf8xQb//cXjA/8PDxf+kqMD/pqu//xMlvdMAAAAAAAAAAAk49+g1Zf//L1///z5v + //8MMun/ACHh/wAf2v8AHNH/ABTJ/wAFvv+mqMf/ABnQ/wAMw/8CFcDeAAAAAAAAAAAQQPvuRHL//zxr + //9Yif//PGr2/yBK7v8LL+P/ABbU/wARy/8ABcD/o6TF/wou4/8AHNX/ARbG6QAAAAAAAAAACTv95DRl + /v9Cdf7/R3n+/1CB//9cjP//Z5j//4qv/f+Rr/j/hp7u/46i2f8zYvr/GkDp/wIYyPMAAAAAAAAAAAAu + /wsAL/8pAC//QgAt/1sALf90ACn7jQAn9KYWOe3AFj3r2RhB6PEWOuTiDCnWvQAWy5gAFcheAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD//wAA8f8AAMAfAACAAwAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAPAB + AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AJ1j/AJub + pQAACq4AcKH+AE9UrQDd2MUAABvxALTC9wBvfsgAJzjMAE18+ADAvKYA1eH8AD1Z2QCfq8gAEjrqAJGt + 9wDu7OUAABrNABofsQA4Pq0Ah4u4AHiS5QBeaL0AWXPVAERi8QBpiPgAcHOuAM3KtwASSP8AESvQACRF + 3wBCT8QAJjO2ALKxsQA9bf8Aob37AJeiuAAABMEA4+HVAEtfyQAAId4ACh27ACFN8QCCn/oAMUPCAAAs + 7gAvWvAAFyXBAAst3wDAvLUAYZP/AHh9twBWhvwADhauAFJ07AAzYv8AABDYAAASwQBaXbQANU3WAKWr + sABHY9oAIDrYAHKG0wDk5OkACzn1AERv8gBJVrwAiLH/AB1P/wBpdcIAMTi4ADRb5gBpbLUA9/PnALi1 + qADO2P0ALlHpAIqLrQAHItEAd4bIACIktwDJxa4AAA/MAI2k8gA9R7EAjZS3AAkZxQAEEbUAEjXgAHGP + 9wCYm68AHEXwAAAj6QCDkb8APWrzAP//9gATQfgANGH1AGFktAAAB7cAHkPmAEBf4ABRWrUAAB3VAF1u + zgDEw7gALlz6AEpd0gARHbUAaJr/ABs93wBwfb8AABroABAv2ADU3PUABzHtAOfq7gARIMQAXIH5ABwq + xQAlLLoAmZ2+AEJy/wCgqrYAkpu0AFB+/gAnUOwAAAvEAMLArwC6uaIAOGf5ABc/7ABHdfUAABvdAB4l + vQAAFdMAFiW6ACYusQAsOLMAurqyADs/swClu/YAABbGACtd/wAOMuMAAA68AAQVugALJc0ANUfFACY1 + vAAWKc0AOGf/AF50zwAZSf4AY2y1AENq7wAFHMgALDO2AG2D0wAAFdkAdKX+AKPC/ACZmaoADzHdABFD + /QBSg/8AdojNAHaEwwBucrMAAB/lABIq2AAWRfoADircAHV+vgC5t64AAAO5AAARyAAAFM0ABBa/AAAd + 0gCXo70Ah47AAGqL/AAlOtcAJ0vtAAAe6wAAINoAACPiACRW/wB0ercARlbAAJWetgAfSvQAs7WvAJui + uwCIj64AMmT7AFF8+gAAAb0AEDbqABIv1ABgkf8AMzi0AC9g/wBqcLMAKTC3AMXDrwBbZrwAAA+4AAAN + xwAAEcQAAA/UAAESvAACGMMAABrRABMo0gAPQfkAGk7/ACMxuAAAC8AAQHH/AKKsxgACGccACivcAGaY + /gBzh88AwL2vAAAGuwACDrUAABTWAAAb7QAAGMoAABnXADFe+gAXKLsAEzDZABM75wAADa8AAA/AAAAS + ygAAFcIAdX27AFB/+gApW/8AJ1f8ADBj/wA6a/8AOEzWALCyrwAABr4AABLSAAAWzwAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAGOBYdAAAAAAAAAAAAAAAAAAAAAAAArHBcEes8W0pMAAAAAAAAAAAA + AAAAAACNzALAh2trtxQ86NFmAAAAAAAAAAAAAHtu+ZP3Xyu+vmsU6/TU8VQ9AAAAAAAAAJr6Os+TxL+/ + K763FJI8jsdnBBUAAAAAANvgm8+TOTC9rStr2us8I4BWktiQAAAAAK7g+lcTBw24nCGJi7XW3sOj2uLO + AAAAALCRTUNdaIxqUU7FYSog7id0K7ehAAAAAEF4HN3dgvO0KNBZ014N/D9Ld4l8AAAAAOOT9/cCMWva + 88GrO+naL54DhX+KAAAAADP6Os+TZSu+i/VTib5r2rXVtlgyAAAAAJTgm8/AyOqto7Gqrb8ra9rr9JV5 + AAAAAMslJS52KRBCD7miCGCtK2sUkjxaAAAAALwOY2MJGEl9bR5t4eVAcon+tPKWAAAAABtPukgfYunp + 15eYGRckVY/Gc8IsAAAAAET3AvfAiIm+vrf/84P9Z4RG0KaZAAAAAGSbOs/3DK2/K763FJI8s9JS1d/0 + AAAAAK8lmzr39r1gv75rFOv05+anaxTZAAAAAJ1++n6ppAxigpTs//PWyrLwK2viAAAAAJ2B5AXkNTXN + NXFxN0VLPjQtYL7rAAAAABppUF/cqEj47YZ6EialR83JnyGgAAAAAAAAAAAAAAAACmxv+7vvdQsi0zYA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A/D//APAH/wDgAP8AwAAfAMAABwDAAAMAwAADAMAA + AwDAAAMAwAADAMAAAwDAAAMAwAADAMAAAwDAAAMAwAADAMAAAwDAAAMAwAADAMAAAwDAAAMA/8AHAP// + /wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMMOAAquiwAJsOoACq6tAAuwWwAA + uxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAD/AQANvF8ADrfmEjXg/xI66v8AGMr/ABPA/wAOt/gAC723AAq/ZgALwhgAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEM8yAAu0xxIv1P8mV///JFf//xc/ + 7P8AHdb/AB7V/wAd0/8AGcv/ABK//wANtvwACrvDAAm+cQAHySAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAEszVLlz6/zBj//8sXP//KFr//xxF7/8AH93/ACDa/wAg1/8AHNT/ABvP/wAY + yf8AFcL/AA+4/wEOsf4AA7vNAAi6fAAFvSsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADGdPhO2z//zNj + //8wYP//LF3//x9K9P8AIuT/ACPi/wAh3v8AH9j/ABzS/wAZzP8AFsb/ABLB/yw4s/+Ij67/AAi4/wAL + sP4AB7PYAAe+TQAAAAAAAAAAAAAAAAAAAAAEG9fnP3L//zlo//8uYP//LF7//1J07P8ALO7/AB3r/wAf + 5P8AH93/AB7W/wAb0P8AGMn/ABLC/yYztv+Sm7T/AA/M/wAWxv8BErz/AAe3qQAAAAAAAAAAAAAAAAAA + AAAHId3tQHH//zpr//+NpPL/7uzl/93Yxf+/u6b/l6O9/150z/8kRt//ABze/wAU0/8AFcz/ABHE/yMx + uP+Vnrb/ABbZ/wAb0v8BGcf/AAi4tAAAAAAAAAAAAAAAAAAAAAAHJOHypbv2//fz5//k5On/cY/3/x5D + 5v8WJbr/UVq1/4qLrf+4taj/s7Wv/4ORv/9LX8n/ESvQ/xcou/+Xorj/ABro/wAg3f8BHdH/AAq7vgAA + AAAAAAAAAAAAAAAAfQIdN9v35+ru/2mI+P8ZTv//G07//ydP6/8AE8n/ABHH/wAEwf9qcLP/jZS3/1pn + vP+Ym6//wL2l/7Cyr/+lq7D/NFrn/wcx7f8AG9v/AAq/yAAAAAAAAAAAAAAAAAAAvwQJKt/7Kl7//ylb + //8rW///J1j//y9a8P8AG9b/ABvS/wARyv90erf/doTD/wAQ2P8AFNb/ABnR/zFDwv9jbLX/m5ul/7q5 + ov+gqrb/AAnC0wAAAAAAAAAAAAAAAAAn2gcLLeH9OWr//zNj//8wYP//K1z//zRh9f8AIOD/ACDb/wAV + 0v91fbv/d4bI/wAa3/8AINr/AB7W/wAZ0/8AE83/AAzI/wQWv/89R7H/ARHF3QAAAAAAAAAAAAAAAAAS + 6gwOM+X+QHD//zlo//8vYf//JFf//zJk+/8AG+3/AB7l/wAU2f91fr7/dojN/wAe5v8AJOH/ACHd/wAf + 1/8AG9H/ABjK/wAVw/8ADrz/AhLI5wAAAAAAAAAAAAAAAAAb4hIQNur/PG7//zxs//+Cn/r/1Nz1/+Ph + 1f+fq8j/cobT/z1Z2f+HjsD/bYPT/wAb8f8AIev/ACHj/wAg3f8AHdX/ABrN/wAWxv8AEr//ARLI8QAA + AAAAAAAAAAAAAAAc6RgnS+3/1eH8////9/////X/tML3/3iS5f9pdcL/mZ2+/8TCuP/Nyrf/xMS4/6Ks + xv9zh8//R2Pa/xs93/8AGt3/ABLS/wAQyf8AD8D/ARK8+AAA/wIAAAAAAAAAAAAe7h5EYvH/ztj9/2qL + /P8cT///Ekj//z1q8/8AE9f/ABXW/wAP1P8LJc3/NUfF/15ovf+Hi7j/srGx/8nFrv+6urL/m6K7/3B9 + v/9GVsD/Ch29/QAAvQgAAAAAAAAAAAAq8CQLOfX/KVz//yda//8pWv//I1X//0d19f8AHd3/ACHb/wAf + 2f8AHNP/ABfP/wARyv8AC8T/AAa+/wAGtv/CwK//SVa8/2lvsv+Zmar/JjW8/wAOsxEAAAAAAAAAAAAp + 8ioTQfj/OGf//zJi//8uXv//KVn//0189/8AIOX/ACTj/wAi3f8AH9j/ABzS/wAZzP8AFsb/ABPA/wAD + uf/Fw6//ByLR/wAOxv8AC8D/ARXB/wASvBsAAAAAAAAAAAAt9DEWRfr/Pm3//zdn//8zYv//KVn//1B/ + +v8AHuv/ACTn/wAi4v8AINz/AB7W/wAbz/8AF8n/ABTC/wAGu//Ava//DzHd/wAb1P8AGcv/AhjD/wAN + wCUAAAAAAAAAAAAu/zYaSv3/Q3L//ztq//9Bcf//UoP//3Sl/v9Me/j/PGnz/ydQ7P8OMuL/ABnX/wAV + z/8AEsr/ABDD/wABvf+5t67/Ezvn/wAh3/8AHdb/AxjH/wAPvzAAAAAAAAAAAAAw/zoYSP7/UH7+/2aX + /v9wof7/Zpj+/2GS//9gkv//X5D//2GU//9nmv//aJr//1aG/P9Eb/L/NFvl/zVN1v/AvLX/IU3x/wAj + 6f8AINz/ARnK/wARwToAAAAAAAAAAAAs/wYANv99ADL/oQAw/7wAMf/WBjv/8BJE//4dTv7/J1f8/zFe + +v84Z/n/XIH5/5Gt9/+hvfv/o8L8/4ix//9gkf//UXz6/0Nq7/8kRN//BRzK/QAQ0C4AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn/w0ALP8nACz7QgAr9l0AJvR3ACPvkgAe6q0AG+TIACHh4gQm + 3usAF9bGABXSnwAUzXgAE8xQABbRIwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA////APw//wDwB/8A4AD/AMAAHwDAAAcAwAADAMAAAwDAAAMAwAADAMAAAwDAAAMAwAADAMAA + AwDAAAMAwAADAMAAAwDAAAMAwAADAMAAAwDAAAMAwAADAP/ABwD///8AKAAAACAAAABAAAAAAQAIAAAA + AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AJ1j/AKKgpAABCqsAcqT+AFxjswC3xO0AAB7uACk4 + vgDOyrYAVHLrAHiKzACWqNwA1d75AEFZzAAFHskAFDroAKy1wAC9uJ8An7T5AHZ5sQBai/8A9/PkAI6a + vQAWHq8APm3/ACtO4wBKT64AY3LKAIme8gAAAcMAP2bnAOrs9QAIOPwAFi3OAJCRqAAAC9cAOUfEADI5 + rQCkuOcATGbWACA+2AAZTP8An6e7AAAh3ADG0O8AhIayAE5avwABErwAtLWwAK/A/AAxWe0AVIH0AEx1 + /gAxR9MAGyy+ALCungBpbrMAAC7yAG5/xgBFcfIAwsCzAKCsygCEi8IAs7jjAA4w3gAiSu0AWHfdAJOi + yQBmlv4APUO2APb19gAAEsoAqa2yADJi/wD///IAX3vvABA/8wAqMbIADReyAFppxwCJqvcAdn26ACVD + 4AANIcAAJDbOADdRzwAAJ+cAFjbXAAAX0wBPbuEAmZ26AJ2u8ABGUsQAVmC7AFKB/gCuve0AAAe7AMG/ + pwDRzsAAJVHzAJOVsgBRV7QAW3PTABsotAALKdgANFbkAH6SxwDFxrsAkqfzAAAc5gBFTLYALEHYAEdg + 0gBQYc4ADijMAGFmqwBIZd0ABiHSADxp+ABznP8AiY6xADRDuQAuXPcAtbOoAKqooQClrsEA+fXrAO/x + +wABDrMAHT7fAC1T6gAkMrcALkLMALS1uQCOqeAAqrz2ABhB7AB8g7QAmaXEAD5PyAAUJsEAABXDAHB0 + sgAAFtkAHlH/AB5L+ACkpKsAMDy7AA436wBCa+0AVn79AK7H+AAACsIAACXuACIzvwAAGMsARXX+AGNp + sgAAEdIAuLapACJH5gAsXf8AnLv9ABM24gAUILYAdIHCAK6wvAAxM7QAE0L5ABgv1gA0YPgAOWf+AAAB + vQAAJ/UAR3T3ACM5xwAFJdkApKu4AJ6htgBqm/8AYZL/AAAe1gApPdwAPmTtAP335gAcP+cAJkvoAEpa + wwB4frEAPU/RABcrxAA3PrgAvrqmAMC9rQAAHNAAEjDYABQ78AA1S9AAACDoAG2AzABaZL4AR2TXAAAb + 2gCao74A///4AAYRrwBJbvQAxsOwALe1owAAI+IAqaesAJaZtQAiVf8AVob/AEJUxwASG7QAurmvAAQZ + xwCnsMcAIULkACNC2wAnVPcAxsW3AAALvQCyuL0AABngAClX+wCDksUATFS1AEpUwQBSWrsAAAqzAAAQ + xQAYPO0AjZGwACZG3AA2Z/8AOWr/AC9R5ABHcfwAaGqxAGBltgAEErgAABTQAAAf4QCdsvMAEDv1AJ6q + xgA5Tc0AWmK2AMzItQAAELkAqbHAADxGuQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJxkcAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAZ/QRao8xUHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkNnF1tZCt7fEjzFQRxUAAAAAAAAA + AAAAAAAAAAAAAE905KMCAqW3t7e3xJ2P/c/BkAAAAAAAAAAAAAAAAACfg+6jowICES0tLbe3xJ2dj/2C + z6nyAAAAAAAAAAAAAAai7ktLo6OK09MtLbe3nZ2Pj2I5e+kET/IAAAAAAAAA+7wa7kujAk7IyNMtLbfE + nY+PYn7Y6o8xBAAAAAAAAABfhBrvo/Fh3Gi8m2/2t7ednY+afg/1nY+CAAAAAAAAAOg075gHFxeowsIy + 5SmlkfWdj5p+csy3xPQAAAAAAAAAMAsuuhddo1kx/5DUoaGzPFd3HwPLyC23MQAAAAAAAADnQYBuoyuS + 7UmPmq7sSot9wqEYfkSvyMyPFQAAAAAAAF5No9YCAtYbWp2dmmbNJfWxX3p90kpsKcCQAAAAAAAA2N9L + S6OjAoTMt8RJ1c2Rt8xaoPUJBiQTdfIAAAAAAACNfO5LS6OjNNMtt6DVjOMtLbe3xJ3qmjFpnwAAAAAA + APqsGq1LowJ8yNMtWlyMb9PTLS23nZ2PMfQGAAAAAAAAx3ga7qOYiQ1bvFglXEUIWNPTLbfEnY+PMWcA + AAAAAAA3rZgUIUxMZPwKbT+H+UM7CMj2zLednY8x5gAAAAAAAHEOzs5IFDYghlFAqODg/OB/DCneLfVJ + 6jFwAAAAAAAAuIEzmCsr1iCRzFqgnbEwU7Q+0cPaLKe9nP8AAAAAAABUAtYCAgKjl8wtt7fEnUnqmuGm + L0q+1GOUwQAAAAAAAN1LS6OjAqM99tMtLbfEnZ2PMWI6zR+aMYWVAAAAAAAAu+/uS0uj7j3I09MtLbfE + nY+P4Z9/9Z2PjwkAAAAAAADrGhruS6PusAhYWNMtt8SdnY/h8/6Rt1rbnAAAAAAAAMaeGu9L7xYFeGWW + 9szMWp1Jj+H7Em8tt8Q4AAAAAAAA+GDXtgUFRha2tQUFRjWXayoQrmfiCFgtt44AAAAAAABDKwJL755g + Fra2FhbX12DXeaSZKIhLZRGyVQAAAAAAAAAAAMlodmtD+CKqk9/QHvdSebYWsLnwKiMmAAAAAAAAAAAA + AAAAAAAAAAAApx1zv3GralaNylMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////j////gH///gAH//wAAP/4AAAf+AA + AA/gAAAP4AAAD+AAAA/gAAAP4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA + AAfgAAAH4AAAB+AAAAfgAAAH4AAAB/wAAAf//gA///////////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAa7JwAKr7UACrDfAAqvkwAHs0EAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAADIDQALv4oCD7n4Ezrn/wkp2f8AFcX/ABC7/wALtOoAC7ucAAu8SgAA0QcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAD/AQAOv1sAC7bkEjDY/yNV//8iVf//DjDe/wAd0/8AHdT/ABvR/wAXxv8AEbv/AAuz7wAK + vaUACr1TAADCDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAJyRsADLXCDynO/ilX+/8qXf//Jlf//yRX//8RNeP/AB7Y/wAe1/8AHdb/ABzT/wAb + 0P8AGc3/ABXB/wAPuP8AC7L0AAu7rgAJvFwAALsRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAA+6bh0+3/80Z///L1///yxc//8pWv//J1n//xQ75/8AId7/ACHc/wAg + 2v8AHtb/AB3T/wAcz/8AGMz/ABfH/wAVwv8AELr/AA2z/wINsPgABLi3AAe5ZQAAvhcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADr11Ikfm/zVn//8zYv//MGD//y1d//8qXP//GEHs/wAj + 4/8AI+H/ACLe/wAg2/8AHtf/ABzT/wAazv8AGMn/ABXE/wATv/8ACbz/sK6e/zRDuf8ACrP/AAmt+wAG + tcAABLxnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARw3snTOj/O2v//zdm//80Y///L1///yZZ + //8QP/P/ACDq/wAk5/8AJOL/ACLe/wAg2v8AHtb/ABvR/wAZzP8AFsf/ABTC/wAGvf+rqZ7/QVbH/wAS + xf8AFcL/ABG6/wAKrf4AB7MmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABHFgS1S6/8+bv//OWn//y1f + //9Hcfz/rr3t/6ewx/9bdNH/J0zn/wAl7v8AHeX/AB7e/wAe2P8AHNP/ABrO/wAXyf8AFcP/AAjA/6qn + oP9BWcz/ABbQ/wAYzP8AF8b/AQ+y/wAEqDUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEciHMVfs/zhr + //9Xfvv/t8Tt//jz4v/38+P/rq+8/725pv+/u6b/tLWw/4OSxf9LZNX/FDfh/wAX2f8AFND/ABXK/wAU + xP8AB8D/pqah/0dg0v8AG9r/AB3U/wAbz/8DEbf/AAiqPwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAT + zY1Ucuv/xtDv//335v/38ub/na7w/y1c//8WNtf/AhS+/zpGuP9wdrH/qaer/7i2qP+4taj/pKu4/25/ + xv83Uc//BiHS/wAAwv+ioKT/R2TX/wAf5P8AId7/AB3X/wITvP8ACq5JAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAABLQk7O44//59ev/kqfz/yta/v8YTf//HlH//yZG3P8AE8j/ABPG/wANwv8AAL3/jZGw/6mr + sP98g7T/trOp/7+6pv+4uKr/jpq9/6uppP9Yd93/ACf1/wAe5/8AHN3/AxXA/wAJslMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAFdSZX3vv/y5f//8iV///KFr//yZX//8jVP//K07j/wAY0f8AGs3/ABfK/wAM + xP+TlbL/maO9/wAK1f8AFNP/ITjI/1VhvP+JjrH/s7Km/7e1o/+qr7L/fpLH/0to1/8XK8T/AAiyXQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa158nVPf/MWH//zBg//8tXf//Klv//ydZ//8tVOn/AB3Z/wAf + 1f8AG9D/AA/K/5WYtP+Zo7//ABba/wAe2P8AG9b/ABfT/wAR0v8AFM3/KTnA/1xks/+Qkaj/vbif/2Fm + q/8ACLJoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3apS5a9/83Zv//NGP//zFh//8tXv//K1v//zFa + 7v8AIeL/ACHe/wAe1v8AEdH/lpm1/5mkw/8AGeD/ACHd/wAg2v8AH9f/AB3T/wAbz/8AFcz/ABHH/wAK + w/8CErv/Gyi0/wAMt3EAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHt6rNGD4/ztr//84Z///NGT//y5e + //8mWf//Ll32/wAg6/8AI+T/ACHb/wAU1f+Znbn/mKXF/wAc5/8AJOL/ACPh/wAh3P8AH9n/AB3T/wAa + zv8AF8n/ABXD/wASvv8EE7n/AA65fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAg4bE8Z/n/PW3//zRl + //8qXv//Vn78/6q89v+WqNz/T27h/yVK6f8AKOb/AAvZ/5icuv+Tosn/AB3u/wAn6f8AJeT/ACPg/wAh + 2/8AHtb/ABzR/wAZy/8AFsb/ABPA/wQTu/8AD7qGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB/ktzln + /P9Vf/7/nbT6/+rs9f////L////x/9HOwP/MyLb/zsq2/8XGu/+grMr/tLW5/56qxv8gSu3/AC7y/wAf + 7f8AHuf/AB7g/wAd2v8AHdP/ABrO/wAXyP8AFML/ARO9/wAPu5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAHOm91d75////+f////f/9vX2/6Cz+P9Mdf7/P2Xl/y5CzP9aacf/hIvC/66wvP/Hxbj/x8W3/8vH + tP/FxLb/pq7C/3iKzP9NZ9X/I0Lb/wAh3P8AEtD/ABDK/wAPw/8AEr7/ABC8mgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAb7MPv8fv/r8D8/1d9/f8YS/7/GEv//yBU//8/Zun/ABXX/wAZ1/8AFtT/ABDT/wAZ + zf8lOcb/TlvA/3Z9u/+eobb/wsCz/8bDsP/Ava3/urmv/5+nu/9zgcD/SlrD/yI1wP8ADsCkAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAACfvySZa//8kVv//J1j//ylZ//8mVv//K1z//0Fq7P8AHNz/ACDb/wAf + 2P8AHtX/ABzS/wAYzv8AE8v/AA/F/wAJwP8ACr3/FCC2/4SGsv+prLT/eH6x/6inrP/Bv6f/pKSr/wAL + v68AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKfLPM2T//zFh//8vX///LV3//yla//8vYP//RXDw/wAg + 4v8AI+H/ACHd/wAg2f8AHtX/ABzR/wAZzf8AF8j/ABXD/wASvv8AB7n/aW6z/5ykv/8AAsT/AAjC/wER + vf8kMrf/ABHBuQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAr9dU5av//Nmf//zRj//8wYP//LV3//zRl + //9FcvP/ACHn/wAl5P8AJOH/ACLd/wAf2f8AHdT/ABvQ/wAYy/8AFsb/ABPA/wALu/9ma7P/o62//wAR + zv8AGMz/ABbH/wIXwP8AE8HDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACv520Bv/v88a///N2f//zRj + //8uX///N2j//0Vz9v8AIOz/ACbp/wAl5f8AI+H/ACHc/wAe1/8AHNL/ABnN/wAXx/8AFML/AAu+/2Bl + tv+pscD/ABXb/wAd1P8AGtD/BBnH/wATw80AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALfvhRnT+/z9t + //86af//M2P//zho//9Zi///c6X7/zxq9v8mUvL/Djfr/wAf4/8AGt3/ABjY/wAY0/8AFs3/ABTJ/wAU + w/8ADL7/WWK1/6y1wP8AG+X/ACPd/wAe1v8CHc//ABXD1wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAw + /edTgf7/VoX//2CR//9uof//c6b//2WW//9djv//Y5T//2qb//9xpP//dKX//2aW/P9UgfT/Qmzt/zJW + 4v8fPtb/BR7J/wACvP9QV7P/sri9/wAd7/8AJeX/ACDd/wEe0/8AFcXhAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAADP/yxxN/v8lV/7/L2L+/zpr/v9Edf7/UYD+/1yM/v9ikv7/XpD+/1uM//9Zif//V4j//1SG + //9Rgv//VYX//3Sb//+cu/3/rsf4/6S45/+OqeD/MGD+/yRQ9P8UOur/BSXZ/wEWw+wAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAJf8HADL/KwAx/0UAM/9gADH/ewAz/5YAMf+xADD/zAAw/+cHOP/7E0L5/x5L + +P8nVPf/SW70/4me8v+dsvP/iar3/3Gc/v9glP//WIn//0h0+P8+ZO3/L1Hk/yE+2v8ULND6ABbRqwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAr + /wYAKfYeACv2OQAn8lQAJO5vACHqigAd56UAHOTAABvf2wAe3esAGNjKABjWogAV0nsAFdBTABfKLAAA + ywgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////////4////4B///4AB//8AAD/+AA + AH/gAAAP4AAAD+AAAA/gAAAP4AAAD+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA + AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAf8AAAH//4AP///////////KAAAADAAAABgAAAAAQAIAAAA + AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AKFj/AKGhqAABCKwAdKb+AFpesQC5xvIAAB/wACoz + wADOyrYAUHntAHWJzgCSqNwA19/zAD5WzwAJH8kAETrpAK+3wgC9uJ8Anrb8AHN4rQBcjP8A8O3lAJCc + wwAWHq0AP2//AC1N4ABMUa4AZHbLAICc+AAAAsEAQGLjAOTn7AAHOPsAFy3MAJCRqAAAC9cANUfFADI5 + rQCkuOcAUWzZACE+1gAZS/4An6e7AAAh3ADH0vAAhIiyAE5avwABEr0As7OvAK/A/AAyWewAUX72AEx4 + /QAtR9UAGyrBALCtnwBocLgAAi/yAHF9xABJdO8AwL61AJuozQCEi8IAtsPgAAwv4QAiSe8AWHfdAJOk + zwBolPwAPkS1APf28wAAEskArK+xADJi/wD9+/MAWnrnABNB9QAqMLIACxazAFVkxwCFrPwAc3q6ACVD + 4AANH8EAHzLOADVR1AABJ+gAGDbYAAAY0wBPbNoAl5y5AJ2u8ABHVcUAVF/BAE+A/gCtvvIAAAi8AMG/ + pwDRzsAAJFHyAJOXrgBTV7IAXHTUAB8mtAANK9YANVbhAH6SxwDEw7sAkqjxAAAd5QBFS7YALEHYAEdg + 0gBSY8sAEyPOAGFkpQBIY90ACCDRADtn9QB2nP4AiY6xADRDuQAwXPYAtLKoAKqopgClqL4A9/TsAO3w + +AABDrMAHD3fACxR6wAkMrcAK0HNALa3twCOqeAArL74ABlD8AB8g7QAlaTCAD5PyAAUI8AAABXDAHF2 + rwAAFtgAH1H/ABxK+QCfoa4ALzi5AAwz6wBGbOsAW374AK/G+AAAC8IAASXtACMuwgAAGMsARnb/AGNp + sgAAENEAt7arAB5G6QAsXf8An7v7ABU44QASH7YAeoPBALCyvQAxN7cAEkL8ABkz1QAzXvMAOGj9AAAB + twACLv0AS3b1AB4zyQAIJdYAoay8AJ6htgBrnP8AYo/9AAAd1gApPdwAO2LsAP335gAbQegAKE/tAEpa + wwB5fakAP1PPABsuyAA3PbkAv7ynAL69sQAAG9EAEi3YABQ/7gAyTdEAACLoAGuB0gBcZr4APlzbAAAc + 2gCYpb4A//74AAcRsABJbvQAxsOwALe1owAAJOIAqqurAJmbsAAjVf8AVYf+AEJUxwARGq8Au7qwAAUZ + xQCnsMcAHkTjACFB3AAnVPcAxcO5AAALvQC2u8EAABngACdU/QCElskATFO1AEpUwQBSWrsAAQuwAAAQ + xgAYPO0AjZGwACpK2gA2Zv8AOmr/AC5R4ABEb/sAaWuwAGFmtwAGFboAARTPAAAf4QCdsvMACzj0AJ6q + xgA5Tc0AW2W4AMzItQAAD7gAqbHAADxIugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAE8ZHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABw6WoQMYLZcAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA81AQk5JqxMSdMYJQRxUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABp20PWkpLFt8TExMSdMYLPwZAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAwf2DowLW1talt7e3t8TExMSdMYLPqToAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADr0WUuj + AgICAtalLS23t7e3xMTEnZ2PMYIET/MAAAAAAAAAAAAAAAAAAAAAAAAAAAm8S0ujo6MCAgK7LS0tLbe3 + t8TEnZ2dj48x/ekEaQYAAAAAAAAAAAAAAAAAAAAAAJw0S0tLS6OjAgK709PTLS0tt7fExJ2dj4+PMeEV + dRkEaWcAAAAAAAAAAAAAAAAAADh87u5LS0ujo6ND09PT0y0tLbe3xMSdnY+PMWK+Occx/ekEGWcAAAAA + AAAAAAAAAMCs763u7ktLowJDWFhY09MtLS23t8SdnY+PMeG+OVfqj48x/QQVAAAAAAAAAAAAACN4Gu+t + 7u6j1rZN+AjIyNPTLS23t8TEnZ2Pj+G+OVednZ2Pj4LyAAAAAAAAAAAAAHR4Ghrv7qNGLhfafYxohDtv + 9i0tt8TEnZ2Pj+EVOWtaxJ2dnYLzAAAAAAAAAAAAAHewGu/uHg4XFxc+fX19fUrlW7v2kVrEnZ2Pj5oV + OcvMt7fEnfQGAAAAAAAAAAAAAHfxGlIhFxcXDkbH/xXU2n19fX2zDMtC9Unqj5qQOSD2LS23xDFnAAAA + AAAAAAAAANtuIRcXFy6YqivtmpqajuYvSn3UfX0yjB03dx86OSDI0y0ttzHmAAAAAAAAAAAAANshgIAH + NiuSktYbSY+Pj+FipqFKlH19fX19SuVmOSAIyNMtt9twAAAAAAAAAAAAAPWAYfGSAgIC1gLwnZ2dnY+P + ONp9Kp0mOtV9fX3Ufs0MuU7IzNv/AAAAAAAAAAAAAMQa1qOjowICAqNrWsTEnZ2PONra7VpaWqB3JjqU + fX05OdSMySbBAAAAAAAAAAAAAFruS0ujo6MCAks0zLe3xMSdONra3sy3t7fEWvWgEP+QA305ORWVAAAA + AAAAAAAAALfvS0tLS6OjAks09i0tt8SdwNra3S0tt7e3t8TEnUnqmlVwvpAJAAAAAAAAAAAAALca7u5L + S0ujo+6509MtLbfEwMPa3fYtLS23t7fExJ2dj4/hYvScAAAAAAAAAAAAAC0a763u7ktLo+94WFjTLS23 + Iz7aotPT0y0tLbe3xJ2dj4+PMfQ4AAAAAAAAAAAAANOeGu/v7u6j1hqtCJvI9i23Vj4+ilhY09PTLS23 + t8SdnY+PMfSOAAAAAAAAAAAAAEKeGhrvS6O2B4DiRcm5xtORIz4+ilhYWFjTLS23t8TEnY+PMfRVAAAA + AAAAAAAAAJae7+4WiUhMSEhtPj4+4BJFDNo+qgibm1hY0y0tt8TEnZ2PjzH0AAAAAAAAAAAAAFi2FIHO + TEhMTA4/qG1tbW0+PoeH4kXJIIqbb/bMt7fEnZ2PjzH0AAAAAAAAAAAAAEPOzs7Ozg4eAqO5oHeGUad/ + 4OA+Pj4+Pj7iRcnLpcyg9UmPjzExAAAAAAAAAAAAAEMBzg5SSysrKxqXWre3Wlqg9bFePFyHPj7a2tra + 2ocYHQ+rSeExAAAAAAAAAAAAAEMU75LWAgLWkhqXzC23t7e3xMSdSeqajv/zL0raMjIyoaGhSlwxAAAA + AAAAAAAAAPijo6OjAgIC1p49zC0tLbe3t8TEnZ2PjzHhYq5p2jL7L9ShfcJVAAAAAAAAAAAAPPhLS0uj + o6MC1p499tMtLS23t7fExJ2dj48xMf2mwxLqmmL0lQZVAAAAAAAAAAAAyU7uS0tLo6OjAmCw9tPT0y0t + t7e3xJ2dnY+PMf2mw4daj4+PMeGPAAAAAAAAAAAAyarv7u5LS6OjAmCwyFhY09MtLbe3xMSdnY+PMTFQ + Poe3nZ2dj4/bAAAAAAAAAAAAyaoa763uS0ujo2A1m1hYWNPTLS23t8SdnY+PjzH0Poctt8TEnY/bUwAA + AAAAAAAAHSsaGu+t7ktLo9c1CJubWFjT0y23t8TEnZ2PjzH9PodYLbe3xJ3bUwAAAAAAAAAAaCueGhrv + 7kujGgVSYHhllm9v9szMt8TEnZ2PjzHhPoc70y0tt8TbOgAAAAAAAAAAaCueGhqeFrVSBbVGtQUFUlIF + tj00g7L1SUnq6jFi2of4WFgtt7fb8wAAAAAAAAAAaAK2RgUFRra2FhYWFhbX19fX1xa2tQUFtgsg7SPh + Mtoim1jTLbfbygAAAAAAAAAADCIiK9ajrZ5gFka1trYWFhbX19dgYDaenmB5FC4OQQ2efEMR07edXwAA + AAAAAAAAAAAADB0pIISKIq87qivko63xYNd5pC4OIQ6ZUkbX19cWthY1l+1VygAAAAAAAAAAAAAAAAAA + AAAAAAAAAMlodmtDlpublkNDZax4sNewuRuDdxBWJl9TAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAKcdc783q8WGXh0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP// + /////wAA////////AAD//H////8AAP/wD////wAA/8AA////AAD/gAAf//8AAP4AAAP//wAA+AAAAH// + AAD4AAAAD/8AAPgAAAAB/wAA+AAAAAA/AAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgA + AAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAf + AAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgA + AAAAHwAA+AAAAAAfAADwAAAAAB8AAPAAAAAAHwAA8AAAAAAfAADwAAAAAA8AAPAAAAAADwAA8AAAAAAP + AADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAAD+AAAAAA8AAP//gAAAHwAA////wA//AAD///////8AAP// + /////wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIujkACa/CAAqu2gAKr5AACLA+AADPBAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC8UZAAu9nwAJsfwNK9X/Bh/L/wARvf8ADbP/AAuw5gAK + u5kAC8BIAACzCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADBBgANwHQACLLvCiHI/xxK+f8eVP//DCrX/wAb + 0f8AG9H/ABjL/wASv/8ADrT+AAqy7QAKuqQACr9SAADMCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD9BIAAu21wYZwP8eRu//I1j//yFS + //8fUf//ETHa/wAd0/8AHNP/ABzT/wAb0v8AHNH/ABjL/wASv/8ADrX/AAux9AAKuq4ADb9cAADCEgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7MJQANw7EBEbr+Gz7i/ype + //8nWP//JFX//yJT//8hVf//FDXe/wAd1/8AHtb/AB7V/wAd1P8AHNP/ABvS/wAb0P8AGs//ABfJ/wAS + vv8ADrX/AAuy9gAJvLcAC71mAAvGGQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAENRkAA279hg2 + 2P8vYP//LF///ypa//8oWf//J1f//yVW//8kVv//Fjnj/wAf2v8AINr/AB/Z/wAf1/8AHtb/AB3U/wAc + 0v8AG8//ABvN/wAYzP8AGMn/ABbE/wARu/8ADbT/AAqw+gAKvMEACbtwAAnFHwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAEMjDKE/t/zNl//8wYP//Ll7//y1d//8rW///KVr//ydY//8mV///GT3l/wAh3v8AIt3/ACHc/wAg + 2/8AH9n/AB7X/wAd1f8AHNL/ABvQ/wAZzf8AGMr/ABfH/wAVxf8AFcL/ABO+/wAPtv8ADLH/AAWx/QAD + ussACLl6AAa/KQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAADsrMLVXx/zRk//8yYv//MWH//y9h//8uXv//LFz//yla//8oWf//HUTq/wAj + 4f8AI+H/ACPf/wAi3v8AIdz/ACDa/wAf1/8AHdX/ABzS/wAbz/8AGcz/ABjJ/wAWxv8AFcP/ABPA/wAR + vv8AC7r/cnen/2Fkpf8SHK//AAit/gAItdQACLiEAAa4MgAAjAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEMzRMFjz/zdo//81Zf//NGP//zJi//8wYP//Ll7//ytc + //8qXP//Hkfs/wAj5f8AJeT/ACTj/wAj4f8AIt//ACHc/wAg2v8AH9f/AB3U/wAc0f8AGs7/ABjL/wAX + yP8AFcX/ABTB/wASvv8ACLz/fICn/7CunP8xS8//AA+8/wAPuP8ADLD/AAiq/gAGq90ABrKJAADVBwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEdDWNF3y/zpp//84Z///N2b//zVk + //8yYv//MGD//y1e//8pWv//HEfv/wAk6P8AJ+f/ACbm/wAl5P8AJOH/ACLf/wAh3P8AINn/AB7W/wAd + 0/8AG9D/ABnN/wAYyf8AFsb/ABTD/wATv/8ACb3/eH2o/62qnf80UNP/ABHE/wAUxP8AE8L/ABO+/wAQ + tv8BCar/AAexVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEdPdOmT1/z1s + //87av//OWj//zdm//81ZP//Ll///yNX//9niff/Wnrn/wk38/8AIe//ACHr/wAj5/8AJeT/ACTh/wAi + 3v8AIdv/AB/Y/wAd1f8AHNH/ABrO/wAYy/8AF8f/ABXE/wATwf8AC77/eHyp/66rnf81UtX/ABbL/wAY + yf8AF8f/ABXE/wAUwf8CDbD/AAe0ZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAE9TjPmj3/z9v//89bP//O2r//zRl//8rXv//b4/2/9HV5v/x7uL/vLmz/7Cwqv+Vo8L/X3vW/ytR + 6/8BLO7/ABzl/wAe4f8AH93/ACDZ/wAe1v8AHNP/ABvP/wAZzP8AF8j/ABXF/wAUwf8AC7//dHir/6+s + nv82Vdr/ABjS/wAb0P8AGs3/ABjK/wAXx/8DEbP/AAa4cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAE9foRXD4/0Jw//87bP//Nmf//36b9v/a3uf/7+zj/+no4//v7eT/wL+3/7Sy + qf+zsqr/s7Go/7Wxp/+tsrL/hpjJ/09s2v8bQuj/AB/g/wAY2P8AGdT/ABrQ/wAZzf8AGMn/ABbG/wAU + wv8AC8D/c3ms/7Ctn/8+XNv/ABvZ/wAe1/8AHdX/ABvQ/wAYzP8FErf/AAi4egAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAE9jtQ276/z9x//+KpfT/4eTo//Dt5f/t6+b/8u/k/9XZ + 5/9qi/j/Mk7S/zxHt/9yebL/p6eu/7m4rP+0s6r/s7Kq/7SyqP+1s6j/oay8/3SIzf89XNr/DjHf/wAV + 0P8AEcr/ABPG/wATw/8ADMD/cXat/7GuoP89X+D/ACDh/wAj3f8AINr/AB3V/wAc0f8DFLv/AAm7gwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvgMAEc/ykqjx/+nq6//x7+j/7+3o//Xy + 5v/L0ez/W374/xFF//8aT///K0vY/wAMwv8ADML/AAnA/xUlvP9LVLX/gIOw/66vrf+vr6z/rayq/7Gv + qv+zsaf/sLKs/5Wjwv9iec//LUvY/wQh0P8AAsH/Z26v/7KuoP9AY+L/ACLn/wAl4/8AIt//ACDb/wAe + 1f8DF77/AAi7jgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3QUAEM/15eXo//Tx + 6v/49Or/u8fv/050+v8WS///HVD//yBR//8kVv//Lk7c/wAUyP8AFsb/ABXG/wATwv8ADr//AAa9/xAe + uP+3tq3/rq2s/6Gjr/+1tKv/trSq/7OxqP+zsaj/tLGm/6qvtP+ClMn/k5eu/6+sov9CZuX/AB/x/wAj + 6v8AJOP/ACLd/wAe2P8FGcH/AAq9mQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + 9AgAENL38/Lr/62+8v9Dbvz/HVH//yVW//8mV///JVb//yNU//8pWv//LlHg/wAXzP8AGcz/ABjK/wAX + x/8AFcT/ABLC/xgovP+6ua7/trSr/yE+1v8AGM//MkbF/2Rwuv+Zm7D/trWo/7Syp/+xr6b/rKuo/6qo + pv+Ypb7/cIzZ/z9n7v8VQvP/ACHl/wAZ2/8EGcT/AArAowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAU6Q0AGNP6Qm7//yRX//8rXP//LFz//ytb//8pWv//J1j//yVW//8rXf//NFjl/wAa + 0/8AHNL/ABvP/wAZzf8AGMn/ABXF/xkrv/+7uq//urit/yZG2/8AGtP/ABnT/wAX0v8AEdP/BiDO/zhJ + wv9pcrf/nZ+s/7a0p/+ysKT/sK2j/6+soP+pq6n/lKXB/2qG1f8xRsX/AAjBrQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi4hEAGdf7N2j//zFh//8wYP//L1///y1e//8sXP//Klr//ydY + //8wYv//Mlno/wAd2f8AH9f/AB3V/wAc0/8AGs7/ABfJ/xstwv+8uq//u7mt/yFB3P8AG9f/AB7W/wAe + 1f8AHdT/ABzT/wAY0f8AFND/AA/O/wshx/8+Tbv/cHWx/6GhqP+ysKT/r6yi/7GuoP9zdaj/AAbFtwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZ7RUAHtj8Omr//zRk//8zY///MmL//zBg + //8uXv//LFz//ypa//80ZP//M1vs/wAg3/8AId3/ACDa/wAe1v8AHNL/ABnN/xovxv+9u7D/vbqu/x9C + 4P8AHtv/ACDa/wAf2f8AH9f/AB7W/wAd0/8AHNH/ABrO/wAYzf8AE8r/AA/H/wAKxP8RIrz/RE60/3h8 + q/9xd6r/AAjGwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAc7BwAH9v+Pm7//zdn + //82Zv//NGT//zNi//8xYP//Ll7//yxc//83af//OWLw/wAi5f8AJOL/ACLf/wAg2v8AHtb/ABrS/xow + yP++vLH/vLuv/x1F5f8AIN//ACLe/wAh3f8AINv/AB/Z/wAe1/8AHdT/ABzR/wAazv8AGcv/ABfI/wAV + xf8AE8H/AA6//wAJu/8EFLj/AA3GywAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf + 6CECJN7+QXH//zpp//85aP//N2b//zVl//8zYv//MGD//yxe//86a///OWX0/wAl6v8AJ+f/ACTk/wAi + 3v8AIdn/ABzV/xsxyv/Bv7T/vbyx/x5G6f8AIuP/ACTi/wAj4P8AIt7/ACHc/wAg2v8AHtf/AB3U/wAb + 0f8AGs3/ABjK/wAWx/8AFcP/ABPA/wARvP8HFrj/AA/H1gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAl9yUEJeH/RHT//z1s//87a///OWn//zdm//81ZP//Ll///yRW//88bv//N2j6/wAe + 8v8AI+3/ACLn/wAh4f8AIdv/ABzX/x40zP/Bv7T/v72y/xlE7v8AJOf/ACbl/wAl5P8AJOL/ACPf/wAh + 3P8AINn/AB7W/wAd0/8AG9D/ABnM/wAXyf8AFcX/ABTB/wASvv8HFrr/AA7I4AAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAj9CwJLOP/R3f//0Bv//8+bf//OGn//zFi//8tXv//aIz7/7fF + 9f/7+fD/usDJ/5Sm0v9phd//PmLp/xQ/7v8AJOL/ABPY/xYvzf/Bv7X/wb6z/xdC8f8AJur/ACjp/wAn + 5/8AJeX/ACTi/wAi3/8AIdz/AB/Y/wAd1f8AHNH/ABrO/wAYyv8AFsb/ABTD/wASv/8FFrv/ABDJ6QAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAk8zMKL+f/RXb//zts//80Zv//YYf9/6y+ + +P/09PT//vvy//X18P/39vL/wcC9/7+9uP/Bv7n/w8C2/8PCuP+xusf/jqHU/3qMz/+8u7b/vry1/xFE + +v8AIPH/ACLw/wAk6/8AJun/ACXl/wAk4f8AIt7/ACDa/wAe1/8AHNP/ABvP/wAZy/8AF8j/ABXE/wAT + wP8CFLz/ABG/8QAAwAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn+jcILuj/Y4z//6S5 + +//t8Pj////2//z69f/6+fT//Pny///98f/W3/b/m6jN/7Cyvf/Ix7r/x8a7/8PBuv/CwLr/wL64/768 + uf+5uLj/uri3/7S5wP+Xps3/a4XZ/0Jk5P8YQ+7/ACfu/wAc5f8AHeD/AB3d/wAd2P8AHdT/ABvQ/wAZ + zP8AF8n/ABXF/wATwf8EFb3/ABG89wAA0AgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAl + /j4lSOz////7////+v/+/fj///73////9v/Y3vb/gpz5/ypZ/v8pYP//OWHo/wAN0/8DH9H/KkHN/1Vk + x/99hML/pai+/8fEuf/GxLn/wcC4/8C/uP++vLb/vru0/7+8sv/AvLL/s7i7/5OhyP9qf9P/QF3b/xY7 + 4v8AHNv/ABPS/wATzv8AFMn/ABTF/wAUwf8BE73/ABG9+gAV2g4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAo/0UnSu/////9////+//e4/r/iKL7/zVi/f8USf//Gk3//xtM//88b///Rm7q/wAZ + 1f8AHtb/ABrW/wAY1P8AFdP/ABDR/wAUzv8eM8n/R1XD/253v/+Wmbv/urq3/8LBtv/AvrX/vbu0/7m4 + sf+5t6//ubet/7y4rf+wtLf/kJzD/2Z5yv8+Vs//FzLS/wAUyP8ACr//ABG+/QAL1hYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAq/0ojSPH/nbT+/zxp/v8cT/7/IVT//yZX//8lVv//I1T//yBS + //8/cf//R27s/wAb2v8AINn/AB/Y/wAe1/8AHdX/AB3T/wAb0f8AGdD/ABXM/wARy/8ADsj/AAzF/xEj + wf84Rrz/X2i4/4aKtf+rq7P/u7ux/7KysP+ysa//t7Wt/7e1rP+3tav/t7Sp/6qws/+Xn7b/BRi+/gAR + zB8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAq/08LN/T/K13//ytd//8tXf//K1z//ypa + //8oWf//Jlf//yNU//9Fdv//RnDu/wAd3P8AId3/ACHb/wAg2v8AH9j/AB7W/wAd1P8AHNH/ABrP/wAZ + zP8AGMn/ABbG/wAUw/8AEMD/AA29/wAHuv8AAbf/ICqz/7q5sP+ws7T/W2W4/4aKsf+rrKz/ubiq/7W0 + qf+/vKf/ChzA/wATyCkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu/1cOO/X/NGT//zFh + //8wYP//Ll7//y1d//8rW///KVn//yRV//9Gef//S3bw/wAe4f8AI+D/ACLf/wAi3f8AIdv/AB/Z/wAe + 1v8AHdT/ABzR/wAazv8AGcv/ABfI/wAWxf8AFML/ABK//wARvP8ADrj/FSG1/7+9sf+ss73/AAzH/wAK + wf8ABr//Bxi8/y06tf9ZX6//DB6//wAP0jIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAv + /1wQP/f/N2f//zRk//8zYv//MWH//y9f//8tXf//K1v//yZX//9Mff//TXny/wAg5P8AJeP/ACTi/wAj + 4P8AIt7/ACHc/wAf2f8AHtb/AB3T/wAb0P8AGs3/ABjK/wAXx/8AFcT/ABPA/wASvf8AD7r/ER+2/769 + sf+ytrr/ABjQ/wAWx/8AFcX/ABPC/wAQv/8ADLv/BRjB/wAQ0D0AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAt/2ETQPn/O2r//zdm//82Zf//NGT//zJi//8vX///LV3//yha//9Of///THn0/wAi + 6P8AJuf/ACbl/wAl4/8AI+H/ACLe/wAh2/8AH9j/AB7V/wAc0v8AG8//ABnM/wAXyf8AFsX/ABTC/wAS + vv8AEbv/Cxq3/8C/sv+yt7n/AB7X/wAazf8AGcv/ABfJ/wAWxf8AE8H/BxrB/wASzkgAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAw/2kTQvr/Pm3//zpp//84aP//Nmb//zRk//8xYf//L1///yta + //9ShP//T372/wAk6/8AKOr/ACfo/wAm5v8AJeP/ACPg/wAi3f8AINr/AB/X/wAd1P8AG9H/ABrN/wAY + yv8AFsb/ABXD/wATwP8AEbz/BBK4/8C/sv+ztrn/ASXe/wAd1P8AHNL/ABrQ/wAYy/8AFsb/BhrC/wAT + 0FIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu/28YR/v/QXD//z1s//87av//OWj//zZm + //8zY///MGD//ypb//9Thf//UYD4/wAe7/8AJ+3/ACbr/wAm6P8AJuX/ACTi/wAj3/8AIdz/AB/Z/wAe + 1f8AHNL/ABrO/wAYy/8AF8j/ABXE/wATwP8AEr3/AA+5/8G/sv+3ubb/Ayrn/wAf2/8AH9j/AB3U/wAb + 0P8AGMv/BRnE/wAU0lwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAy/3MaSv3/RHP//0Bu + //89bP//O2r//zdm//8yYf//Ll7//z9v//9xov//f7D+/09++f86aPb/IU3y/wkz7f8AHuf/ABzj/wAc + 4f8AHdz/ABza/wAc1v8AG9P/ABvP/wAZzP8AF8j/ABXF/wAUwf8AEr7/AA27/8C+s/+2t7X/BjHs/wAk + 4f8AIt7/ACDa/wAd1f8AG8//BRvG/wAV02YAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0 + /3odTf7/RnX//0Fv//8+bP//R3f//12O//9tn///frD//3iq//9qnP//ZZf//22e//90p///fK3//4S2 + //+Etv//dab7/2KQ9v9Ld+//NVzp/x5A4f8IJdb/ABXO/wARyf8AEMj/ABHE/wARwv8AEL7/AAm6/728 + s/+3uLX/Czjz/wAm6P8AJeX/ACLe/wAf2f8AHNT/BRrH/wAV03AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAy/4EnVf7/Y5H+/2aX//9xpP//caX//2aY//9gkv//XpD//12P//9cjv//W43//1qM + //9Yiv//V4n//1eI//9Wh///VYX//1aH//9cjP//YpT//2qd//9yo///cKD+/2GP+P9Qee3/PmPk/ytM + 2P8TLsv/AAq+/7e2sP+8ua7/CTr5/wAl7f8AJej/ACPi/wAh3P8AHtX/AhrJ/wAV0XsAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2/1QAM//8Bzn+/xVH/v8iUv7/LV3+/zho/v9EdP7/Tn7+/1qJ + /v9llP7/aZj+/2GS//9fkP//XY7//1uM//9ai///V4n//1aH//9UhP//UYL//01///9KfP//SHn//0Z4 + //9Tg///dZn+/5m0+//C0/j/0eL4/7bD4P+SqNz/Rnf//zBf+P8hTPL/ETrp/wMm3/8AHdf/AhvK/wAW + 0oUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL/8YADT/OQAx/1QANf9uADP/iQAx + /6QAMv+/ADH/2QAy//AALf/8ADH//hFB/v8bTP7/J1T9/y9e/P86Z/v/RnL7/098+/9Yhf3/dp79/5+7 + +/++z/f/2OL1/+Dn9P/Q3fX/r8b4/4qt+v9nlf7/U4f//1SI//9Wiv//WYz//16P//9fjP7/U3v1/0Vo + 6/8sSdz/DCLI/gAV1HUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/wMALf8TADL/KwAy/0UANP9gADL/ewAv/5YALv+xAC7/ywAr + 9eQAJvL3ACfv/gwz7f8lSe3/I07v/yZU8v8yX/P/Pmz1/0t59/9XhPn/THTz/zpg6/8rTOT/HDnb/wok + 0v4AFc/yABTY0QAW2KoAFNeCABXXVgAA0AcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAA/wEAHd4JACT4HAAp7DcAJ+lSACLpbAAi5ocAIOSiAB7gvQAd4NcAGdziABvZvgAZ + 2JcAGtVvABvUSAAX0CEAAOQGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///////8AAP///////wAA//x///// + AAD/8A////8AAP/AAP///wAA/4AAH///AAD+AAAD//8AAPgAAAB//wAA+AAAAA//AAD4AAAAAf8AAPgA + AAAAPwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAf + AAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgA + AAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA+AAAAAAfAAD4AAAAAB8AAPgAAAAAHwAA8AAAAAAf + AADwAAAAAB8AAPAAAAAAHwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAA + AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.vb b/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.vb new file mode 100644 index 0000000..3fd5411 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWF_TaskEditor.vb @@ -0,0 +1,249 @@ +Imports System.Windows.Forms + +Public Class frmWF_TaskEditor + + Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click + Try + Me.TBPMO_WORKFLOW_TASKTableAdapter.cmdUpdate(COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, Environment.UserName, DateTimePicker1.Value, Me.GUIDTextBox.Text) + Catch ex As Exception + MsgBox("Error in Exit:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + Me.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + + Private Sub frmWF_TaskEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_WORKFLOW_TASKTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWPMO_FOLLOWING_TASKSTableAdapter.Connection.ConnectionString = MyConnectionString + + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE) + Load_Task() + + If DD_DMSDataSet.VWPMO_WF_USER_ACTIVE.Rows.Count = 0 Then + Dim result As MsgBoxResult = MsgBox("Aktuell ist der Workflow anscheinend noch nicht aktiv - Wollen Sie diesen nun starten?", MsgBoxStyle.YesNo, "Frage:") + If result = MsgBoxResult.Yes Then + TBPMO_WORKFLOW_TASKTableAdapter.cmdsetActive(Environment.UserName, CURRENT_RECORD_ID) + Load_Task() + If DD_DMSDataSet.VWPMO_WF_USER_ACTIVE.Rows.Count = 0 Then + MsgBox("Keine aktiven Tasks - Bitte informieren Sie Ihren Systembetreuer.", MsgBoxStyle.Exclamation) + Me.Close() + End If + End If + End If + Catch ex As Exception + MsgBox("Error Loading Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Me.Close() + End Try + + End Sub + + Sub Load_Task() + Try + Me.VWPMO_WF_USER_ACTIVETableAdapter.FillByRecordID(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName, CURRENT_RECORD_ID) + Catch ex As Exception + MsgBox("Error in Load_Task:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Load_Following() + Try + + Me.VWPMO_FOLLOWING_TASKSTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_FOLLOWING_TASKS, Environment.UserName, CURRENT_RECORD_ID, Me.GUIDTextBox.Text) + + 'Dim sql As String = "SELECT T.GUID as [Task-ID],T1.TITLE as Task, T2.STATE_DESC As Status ,T.DUE_DATE as Fälligkeit" & _ + ' " FROM TBPMO_WORKFLOW_TASK T, TBPMO_WORKFLOW T1, TBPMO_WORKFLOW_TASK_STATE T2" & _ + ' " WHERE T.WF_ID = T1.GUID AND T.STATE_ID = T2.GUID AND T2.GUID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATIOn WHERE GUID = 1) AND T.RECORD_ID = " & CURRENT_RECORD_ID & " and T.GUID <> " & Me.GUIDTextBox.Text + 'Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + 'If DT Is Nothing Then + ' Me.DataGridView1.Visible = False + ' Exit Sub + 'End If + If DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count > 0 Then + If DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count = 1 Then + Label1.Text = "1 nachfolgender Task:" + Else + Label1.Text = DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count.ToString & " nachfolgende Tasks:" + End If + + ListBoxFollowing.Visible = True + btndelete_following.Visible = True + 'Me.DataGridView1.DataSource = DT + Else + Label1.Text = "Keine nachfolgenden Tasks" + Me.ListBoxFollowing.Visible = False + btndelete_following.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Load_Following:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Load_User() + Try + Dim Sql = "SELECT GUID as [User-ID], NAME + ', ' + PRENAME AS [User] FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1" + Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql) + If DT Is Nothing = False Then + Me.ListBoxUser.Visible = True + Me.ListBoxUser.DataSource = DT + Me.ListBoxUser.DisplayMember = DT.Columns(1).ColumnName + Me.ListBoxUser.ValueMember = DT.Columns(0).ColumnName + Else + Me.ListBoxUser.Visible = False + End If + + Catch ex As Exception + MsgBox("Error in Load_User:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Load_TASK_USER() + Try + 'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & Environment.UserName & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text + Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + Dim count As Integer = 0 + If DT Is Nothing = False Then + ListView1.Items.Clear() + For Each row As DataRow In DT.Rows + ListView1.Items.Add(row.Item("GUID").ToString) + ListView1.Items(count).SubItems.Add(row.Item("TITLE").ToString) + ListView1.Items(count).SubItems.Add(row.Item("USERNAME").ToString) + count += 1 + Next + End If + Catch ex As Exception + MsgBox("Error in Load_TASK_USER:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub frmWF_TaskEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Load_Following() + Load_User() + Load_TASK_USER() + End Sub + + 'Private Sub DataGridView2_MouseDown(sender As Object, e As MouseEventArgs) + ' If DataGridViewUser.Visible = True Then + ' 'If tsbtnworkUser.Text <> "Bearbeitung aktiv" Then + ' Dim i As Integer + ' i = DataGridViewUser.CurrentRow.Index + ' If DataGridViewUser.Item(0, i).Value Is Nothing = False Then + ' Me.DataGridViewUser.DoDragDrop(DataGridViewUser.Item(0, i).Value.ToString, DragDropEffects.Copy) + ' End If + ' End If + + 'End Sub + Private Sub ListView1_DragEnter(sender As Object, e As DragEventArgs) Handles ListView1.DragEnter + ' Check the format of the data being dropped. + If (e.Data.GetDataPresent(DataFormats.Text)) Then + ' Display the copy cursor. + e.Effect = DragDropEffects.Copy + Else + ' Display the no-drop cursor. + e.Effect = DragDropEffects.None + End If + End Sub + + Private Sub ListView1_DragDrop(sender As Object, e As DragEventArgs) Handles ListView1.DragDrop + Try + If e.Data.GetData(DataFormats.Text) Is Nothing = False Then + Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & e.Data.GetData(DataFormats.Text) & ")" + If ClassDatabase.Execute_non_Query(sql) = True Then + Load_TASK_USER() + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:") + End Try + End Sub + + Private Sub btndeleteuser_Click(sender As Object, e As EventArgs) Handles btndeleteuser.Click + Try + If (Me.ListView1.SelectedItems.Count > 0) Then + Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListView1.SelectedItems.Item(0).Text + ClassDatabase.Execute_non_Query(sql) + Load_TASK_USER() + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in btndeleteuser:") + End Try + End Sub + + Private Sub btndeleteTask_Click(sender As Object, e As EventArgs) Handles btndeleteTask.Click + Try + Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + If result = MsgBoxResult.Yes Then + Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text + If ClassDatabase.Execute_non_Query(sql, True) Then + sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & Me.GUIDTextBox.Text + If ClassDatabase.Execute_non_Query(sql, True) Then + Load_Task() + Load_Following() + Load_TASK_USER() + End If + End If + + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Delete Task:") + End Try + End Sub + + Private Sub btnAddAppointment_Click(sender As Object, e As EventArgs) Handles btnAddAppointment.Click + Dim Subject As String = "WF-Task: " & TITLETextBox.Text + Dim Desc As String = COMMENTTextBox.Text + ' Dim ControlID As Integer = 10 + Dim DueDate = DUE_DATEDateTimePicker.Value + + ClassFunctionCommandsUI.NewEditTaskAppointment(CURRENT_RECORD_ID, 0, Subject, Desc, DueDate) + End Sub + + Private Sub btndelete_following_Click(sender As Object, e As EventArgs) Handles btndelete_following.Click + Try + If ListBoxFollowing.SelectedIndex <> -1 Then + Dim ID = ListBoxFollowing.SelectedValue + If ID > 0 Then + Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen nachfolgenden Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + If result = MsgBoxResult.Yes Then + Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & ID + If ClassDatabase.Execute_non_Query(sql, True) = True Then + Load_Task() + Load_Following() + Load_TASK_USER() + End If + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Delete Following:") + End Try + + End Sub + + Private Sub ListBoxUser_MouseDown(sender As Object, e As MouseEventArgs) Handles ListBoxUser.MouseDown + + End Sub + + Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click + Try + If ListBoxUser.SelectedIndex <> -1 And ListBoxUser.SelectedValue > 0 Then + Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & ListBoxUser.SelectedValue & ")" + If ClassDatabase.Execute_non_Query(sql) = True Then + Load_TASK_USER() + End If + End If + Catch ex As Exception + MsgBox("Error in Adding User exclusive Task:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + End Sub +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmWiedervorlage.Designer.vb b/app - Kopie/DD-Record-Organiser/frmWiedervorlage.Designer.vb new file mode 100644 index 0000000..9729e05 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWiedervorlage.Designer.vb @@ -0,0 +1,1216 @@ + _ +Partial Class frmWiedervorlage + 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 GUIDLabel As System.Windows.Forms.Label + Dim FOLLOW_UP_SEQUENCELabel As System.Windows.Forms.Label + Dim FOLLOW_UP_TIME_SPANLabel As System.Windows.Forms.Label + Dim DEPENDENT_DATE_CTRL_IDLabel As System.Windows.Forms.Label + Dim DEPENDENT_DONE_CTRL_IDLabel As System.Windows.Forms.Label + Dim PARENT_IDLabel As System.Windows.Forms.Label + Dim TIME_UNITYLabel As System.Windows.Forms.Label + Dim TIME_SPANLabel As System.Windows.Forms.Label + Dim TIME_DISTLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim EMAIL_SUBJECTLabel As System.Windows.Forms.Label + Dim EMAIL_BODYLabel As System.Windows.Forms.Label + Dim PROCESS_SELECT1Label As System.Windows.Forms.Label + Dim PROCESS_SELECT2Label As System.Windows.Forms.Label + Dim PROCESS_SELECT3Label As System.Windows.Forms.Label + Dim PROCESS_SELECT4Label As System.Windows.Forms.Label + Dim PROCESS_SELECT5Label As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWiedervorlage)) + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.ListBoxUser2Profile = New System.Windows.Forms.ListBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbUser = New System.Windows.Forms.ComboBox() + Me.btnAddUser_WV = New System.Windows.Forms.Button() + Me.btndelete = New System.Windows.Forms.Button() + Me.FOLLOW_UP_DAYSTextBox = New System.Windows.Forms.TextBox() + Me.TBPMO_FOLLOW_UP_EMAILBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.chkSonntag = New System.Windows.Forms.CheckBox() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.chkSamstag = New System.Windows.Forms.CheckBox() + Me.chkDienstag = New System.Windows.Forms.CheckBox() + Me.chkFreitag = New System.Windows.Forms.CheckBox() + Me.chkMittwoch = New System.Windows.Forms.CheckBox() + Me.chkDonnerstag = New System.Windows.Forms.CheckBox() + Me.PROCESS_SELECT5TextBox = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.PROCESS_SELECT4TextBox = New System.Windows.Forms.TextBox() + Me.PROCESS_SELECT3TextBox = New System.Windows.Forms.TextBox() + Me.PROCESS_SELECT2TextBox = New System.Windows.Forms.TextBox() + Me.PROCESS_SELECT1TextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_BODYTextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_SUBJECTTextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.lblSaveWVEmail = New System.Windows.Forms.Label() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.TIME_DISTComboBox = New System.Windows.Forms.ComboBox() + Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.TIME_SPANTextBox = New System.Windows.Forms.TextBox() + Me.TIME_UNITYComboBox = New System.Windows.Forms.ComboBox() + Me.PARENT_IDComboBox = New System.Windows.Forms.ComboBox() + Me.DEPENDENT_DONE_CTRL_IDComboBox = New System.Windows.Forms.ComboBox() + Me.DEPENDENT_DATE_CTRL_IDComboBox = New System.Windows.Forms.ComboBox() + Me.FOLLOW_UP_TIME_SPANTextBox = New System.Windows.Forms.TextBox() + Me.FOLLOW_UP_SEQUENCEComboBox = New System.Windows.Forms.ComboBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.btnEmailConfig = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.chkbxLogErrorsonly = New System.Windows.Forms.CheckBox() + Me.cmbWWEmail = New System.Windows.Forms.ComboBox() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.ListBox2 = New System.Windows.Forms.ListBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.TBPMO_FOLLOW_UP_EMAILTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.Label3 = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() + FOLLOW_UP_SEQUENCELabel = New System.Windows.Forms.Label() + FOLLOW_UP_TIME_SPANLabel = New System.Windows.Forms.Label() + DEPENDENT_DATE_CTRL_IDLabel = New System.Windows.Forms.Label() + DEPENDENT_DONE_CTRL_IDLabel = New System.Windows.Forms.Label() + PARENT_IDLabel = New System.Windows.Forms.Label() + TIME_UNITYLabel = New System.Windows.Forms.Label() + TIME_SPANLabel = New System.Windows.Forms.Label() + TIME_DISTLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + EMAIL_SUBJECTLabel = New System.Windows.Forms.Label() + EMAIL_BODYLabel = New System.Windows.Forms.Label() + PROCESS_SELECT1Label = New System.Windows.Forms.Label() + PROCESS_SELECT2Label = New System.Windows.Forms.Label() + PROCESS_SELECT3Label = New System.Windows.Forms.Label() + PROCESS_SELECT4Label = New System.Windows.Forms.Label() + PROCESS_SELECT5Label = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + CType(Me.TBPMO_FOLLOW_UP_EMAILBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(11, 59) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(20, 13) + GUIDLabel.TabIndex = 2 + GUIDLabel.Text = "ID:" + ' + 'FOLLOW_UP_SEQUENCELabel + ' + FOLLOW_UP_SEQUENCELabel.AutoSize = True + FOLLOW_UP_SEQUENCELabel.Location = New System.Drawing.Point(297, 59) + FOLLOW_UP_SEQUENCELabel.Name = "FOLLOW_UP_SEQUENCELabel" + FOLLOW_UP_SEQUENCELabel.Size = New System.Drawing.Size(51, 13) + FOLLOW_UP_SEQUENCELabel.TabIndex = 4 + FOLLOW_UP_SEQUENCELabel.Text = "Intervall:" + ' + 'FOLLOW_UP_TIME_SPANLabel + ' + FOLLOW_UP_TIME_SPANLabel.AutoSize = True + FOLLOW_UP_TIME_SPANLabel.Location = New System.Drawing.Point(620, 99) + FOLLOW_UP_TIME_SPANLabel.Name = "FOLLOW_UP_TIME_SPANLabel" + FOLLOW_UP_TIME_SPANLabel.Size = New System.Drawing.Size(60, 13) + FOLLOW_UP_TIME_SPANLabel.TabIndex = 8 + FOLLOW_UP_TIME_SPANLabel.Text = "Uhrzeiten:" + ' + 'DEPENDENT_DATE_CTRL_IDLabel + ' + DEPENDENT_DATE_CTRL_IDLabel.AutoSize = True + DEPENDENT_DATE_CTRL_IDLabel.ForeColor = System.Drawing.Color.OrangeRed + DEPENDENT_DATE_CTRL_IDLabel.Location = New System.Drawing.Point(356, 150) + DEPENDENT_DATE_CTRL_IDLabel.Name = "DEPENDENT_DATE_CTRL_IDLabel" + DEPENDENT_DATE_CTRL_IDLabel.Size = New System.Drawing.Size(87, 13) + DEPENDENT_DATE_CTRL_IDLabel.TabIndex = 10 + DEPENDENT_DATE_CTRL_IDLabel.Text = "Datum-Control:" + ' + 'DEPENDENT_DONE_CTRL_IDLabel + ' + DEPENDENT_DONE_CTRL_IDLabel.AutoSize = True + DEPENDENT_DONE_CTRL_IDLabel.ForeColor = System.Drawing.Color.OrangeRed + DEPENDENT_DONE_CTRL_IDLabel.Location = New System.Drawing.Point(551, 148) + DEPENDENT_DONE_CTRL_IDLabel.Name = "DEPENDENT_DONE_CTRL_IDLabel" + DEPENDENT_DONE_CTRL_IDLabel.Size = New System.Drawing.Size(92, 13) + DEPENDENT_DONE_CTRL_IDLabel.TabIndex = 12 + DEPENDENT_DONE_CTRL_IDLabel.Text = "Erledigt Control:" + ' + 'PARENT_IDLabel + ' + PARENT_IDLabel.AutoSize = True + PARENT_IDLabel.Location = New System.Drawing.Point(64, 190) + PARENT_IDLabel.Name = "PARENT_IDLabel" + PARENT_IDLabel.Size = New System.Drawing.Size(123, 13) + PARENT_IDLabel.TabIndex = 14 + PARENT_IDLabel.Text = "Nachfolgevorlage von:" + ' + 'TIME_UNITYLabel + ' + TIME_UNITYLabel.AutoSize = True + TIME_UNITYLabel.Location = New System.Drawing.Point(137, 149) + TIME_UNITYLabel.Name = "TIME_UNITYLabel" + TIME_UNITYLabel.Size = New System.Drawing.Size(68, 13) + TIME_UNITYLabel.TabIndex = 16 + TIME_UNITYLabel.Text = "Zeit Einheit:" + ' + 'TIME_SPANLabel + ' + TIME_SPANLabel.AutoSize = True + TIME_SPANLabel.Location = New System.Drawing.Point(64, 149) + TIME_SPANLabel.Name = "TIME_SPANLabel" + TIME_SPANLabel.Size = New System.Drawing.Size(70, 13) + TIME_SPANLabel.TabIndex = 18 + TIME_SPANLabel.Text = "Zeit Distanz:" + ' + 'TIME_DISTLabel + ' + TIME_DISTLabel.AutoSize = True + TIME_DISTLabel.Location = New System.Drawing.Point(229, 149) + TIME_DISTLabel.Name = "TIME_DISTLabel" + TIME_DISTLabel.Size = New System.Drawing.Size(96, 13) + TIME_DISTLabel.TabIndex = 22 + TIME_DISTLabel.Text = "Zeit-Abhängikeit:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(551, 446) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(61, 13) + ADDED_WHOLabel.TabIndex = 23 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(712, 446) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(70, 13) + ADDED_WHENLabel.TabIndex = 25 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(551, 487) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(58, 13) + CHANGED_WHOLabel.TabIndex = 27 + CHANGED_WHOLabel.Text = "Erstellt wo:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(712, 487) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(70, 13) + CHANGED_WHENLabel.TabIndex = 29 + CHANGED_WHENLabel.Text = "Erstellt wann:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Location = New System.Drawing.Point(64, 59) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(77, 13) + NAMELabel.TabIndex = 78 + NAMELabel.Text = "Bezeichnung:" + ' + 'EMAIL_SUBJECTLabel + ' + EMAIL_SUBJECTLabel.AutoSize = True + EMAIL_SUBJECTLabel.Location = New System.Drawing.Point(64, 230) + EMAIL_SUBJECTLabel.Name = "EMAIL_SUBJECTLabel" + EMAIL_SUBJECTLabel.Size = New System.Drawing.Size(76, 13) + EMAIL_SUBJECTLabel.TabIndex = 80 + EMAIL_SUBJECTLabel.Text = "Email-Betreff:" + ' + 'EMAIL_BODYLabel + ' + EMAIL_BODYLabel.AutoSize = True + EMAIL_BODYLabel.Location = New System.Drawing.Point(64, 271) + EMAIL_BODYLabel.Name = "EMAIL_BODYLabel" + EMAIL_BODYLabel.Size = New System.Drawing.Size(67, 13) + EMAIL_BODYLabel.TabIndex = 81 + EMAIL_BODYLabel.Text = "Email-Body:" + ' + 'PROCESS_SELECT1Label + ' + PROCESS_SELECT1Label.AutoSize = True + PROCESS_SELECT1Label.Location = New System.Drawing.Point(551, 230) + PROCESS_SELECT1Label.Name = "PROCESS_SELECT1Label" + PROCESS_SELECT1Label.Size = New System.Drawing.Size(102, 13) + PROCESS_SELECT1Label.TabIndex = 82 + PROCESS_SELECT1Label.Text = "Select [%pattern1]:" + ' + 'PROCESS_SELECT2Label + ' + PROCESS_SELECT2Label.AutoSize = True + PROCESS_SELECT2Label.Location = New System.Drawing.Point(551, 271) + PROCESS_SELECT2Label.Name = "PROCESS_SELECT2Label" + PROCESS_SELECT2Label.Size = New System.Drawing.Size(102, 13) + PROCESS_SELECT2Label.TabIndex = 83 + PROCESS_SELECT2Label.Text = "Select [%pattern2]:" + ' + 'PROCESS_SELECT3Label + ' + PROCESS_SELECT3Label.AutoSize = True + PROCESS_SELECT3Label.Location = New System.Drawing.Point(551, 312) + PROCESS_SELECT3Label.Name = "PROCESS_SELECT3Label" + PROCESS_SELECT3Label.Size = New System.Drawing.Size(102, 13) + PROCESS_SELECT3Label.TabIndex = 84 + PROCESS_SELECT3Label.Text = "Select [%pattern3]:" + ' + 'PROCESS_SELECT4Label + ' + PROCESS_SELECT4Label.AutoSize = True + PROCESS_SELECT4Label.Location = New System.Drawing.Point(551, 353) + PROCESS_SELECT4Label.Name = "PROCESS_SELECT4Label" + PROCESS_SELECT4Label.Size = New System.Drawing.Size(102, 13) + PROCESS_SELECT4Label.TabIndex = 85 + PROCESS_SELECT4Label.Text = "Select [%pattern4]:" + ' + 'PROCESS_SELECT5Label + ' + PROCESS_SELECT5Label.AutoSize = True + PROCESS_SELECT5Label.Location = New System.Drawing.Point(551, 394) + PROCESS_SELECT5Label.Name = "PROCESS_SELECT5Label" + PROCESS_SELECT5Label.Size = New System.Drawing.Size(102, 13) + PROCESS_SELECT5Label.TabIndex = 92 + PROCESS_SELECT5Label.Text = "Select [%pattern5]:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Label6.Location = New System.Drawing.Point(551, 529) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(32, 13) + Label6.TabIndex = 102 + Label6.Text = "Tage:" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.Fuchsia + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseFont = True + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(993, 642) + Me.XtraTabControl1.TabIndex = 0 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage3}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(Me.GroupBox3) + Me.XtraTabPage1.Controls.Add(Label6) + Me.XtraTabPage1.Controls.Add(Me.FOLLOW_UP_DAYSTextBox) + Me.XtraTabPage1.Controls.Add(Me.GroupBox1) + Me.XtraTabPage1.Controls.Add(PROCESS_SELECT5Label) + Me.XtraTabPage1.Controls.Add(Me.PROCESS_SELECT5TextBox) + Me.XtraTabPage1.Controls.Add(Me.Label4) + Me.XtraTabPage1.Controls.Add(PROCESS_SELECT4Label) + Me.XtraTabPage1.Controls.Add(Me.PROCESS_SELECT4TextBox) + Me.XtraTabPage1.Controls.Add(PROCESS_SELECT3Label) + Me.XtraTabPage1.Controls.Add(Me.PROCESS_SELECT3TextBox) + Me.XtraTabPage1.Controls.Add(PROCESS_SELECT2Label) + Me.XtraTabPage1.Controls.Add(Me.PROCESS_SELECT2TextBox) + Me.XtraTabPage1.Controls.Add(PROCESS_SELECT1Label) + Me.XtraTabPage1.Controls.Add(Me.PROCESS_SELECT1TextBox) + Me.XtraTabPage1.Controls.Add(EMAIL_BODYLabel) + Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODYTextBox) + Me.XtraTabPage1.Controls.Add(EMAIL_SUBJECTLabel) + Me.XtraTabPage1.Controls.Add(Me.EMAIL_SUBJECTTextBox) + Me.XtraTabPage1.Controls.Add(NAMELabel) + Me.XtraTabPage1.Controls.Add(Me.NAMETextBox) + Me.XtraTabPage1.Controls.Add(Me.ListBox1) + Me.XtraTabPage1.Controls.Add(Me.lblSaveWVEmail) + Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.XtraTabPage1.Controls.Add(ADDED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.ADDED_WHENTextBox) + Me.XtraTabPage1.Controls.Add(ADDED_WHOLabel) + Me.XtraTabPage1.Controls.Add(Me.ADDED_WHOTextBox) + Me.XtraTabPage1.Controls.Add(TIME_DISTLabel) + Me.XtraTabPage1.Controls.Add(Me.TIME_DISTComboBox) + Me.XtraTabPage1.Controls.Add(Me.ACTIVECheckBox) + Me.XtraTabPage1.Controls.Add(TIME_SPANLabel) + Me.XtraTabPage1.Controls.Add(Me.TIME_SPANTextBox) + Me.XtraTabPage1.Controls.Add(TIME_UNITYLabel) + Me.XtraTabPage1.Controls.Add(Me.TIME_UNITYComboBox) + Me.XtraTabPage1.Controls.Add(PARENT_IDLabel) + Me.XtraTabPage1.Controls.Add(Me.PARENT_IDComboBox) + Me.XtraTabPage1.Controls.Add(DEPENDENT_DONE_CTRL_IDLabel) + Me.XtraTabPage1.Controls.Add(Me.DEPENDENT_DONE_CTRL_IDComboBox) + Me.XtraTabPage1.Controls.Add(DEPENDENT_DATE_CTRL_IDLabel) + Me.XtraTabPage1.Controls.Add(Me.DEPENDENT_DATE_CTRL_IDComboBox) + Me.XtraTabPage1.Controls.Add(FOLLOW_UP_TIME_SPANLabel) + Me.XtraTabPage1.Controls.Add(Me.FOLLOW_UP_TIME_SPANTextBox) + Me.XtraTabPage1.Controls.Add(FOLLOW_UP_SEQUENCELabel) + Me.XtraTabPage1.Controls.Add(Me.FOLLOW_UP_SEQUENCEComboBox) + Me.XtraTabPage1.Controls.Add(GUIDLabel) + Me.XtraTabPage1.Controls.Add(Me.GUIDTextBox) + Me.XtraTabPage1.Controls.Add(Me.Label1) + Me.XtraTabPage1.Controls.Add(Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(987, 614) + Me.XtraTabPage1.Text = "Wiedervorlage per E-Mail" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.ListBoxUser2Profile) + Me.GroupBox3.Controls.Add(Me.Label5) + Me.GroupBox3.Controls.Add(Me.cmbUser) + Me.GroupBox3.Controls.Add(Me.btnAddUser_WV) + Me.GroupBox3.Controls.Add(Me.btndelete) + Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(67, 446) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(479, 160) + Me.GroupBox3.TabIndex = 103 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Zugeordnete User für Wiedervorlage:" + ' + 'ListBoxUser2Profile + ' + Me.ListBoxUser2Profile.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBoxUser2Profile.FormattingEnabled = True + Me.ListBoxUser2Profile.Location = New System.Drawing.Point(21, 21) + Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" + Me.ListBoxUser2Profile.Size = New System.Drawing.Size(181, 134) + Me.ListBoxUser2Profile.TabIndex = 80 + Me.ListBoxUser2Profile.TabStop = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(213, 21) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(92, 13) + Me.Label5.TabIndex = 91 + Me.Label5.Text = "User auswählen:" + ' + 'cmbUser + ' + Me.cmbUser.DisplayMember = "FORM_TITLE" + Me.cmbUser.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbUser.FormattingEnabled = True + Me.cmbUser.Location = New System.Drawing.Point(216, 37) + Me.cmbUser.Name = "cmbUser" + Me.cmbUser.Size = New System.Drawing.Size(234, 21) + Me.cmbUser.TabIndex = 89 + Me.cmbUser.TabStop = False + Me.cmbUser.ValueMember = "GUID" + ' + 'btnAddUser_WV + ' + Me.btnAddUser_WV.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnAddUser_WV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddUser_WV.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUser_WV.Location = New System.Drawing.Point(216, 64) + Me.btnAddUser_WV.Name = "btnAddUser_WV" + Me.btnAddUser_WV.Size = New System.Drawing.Size(234, 23) + Me.btnAddUser_WV.TabIndex = 90 + Me.btnAddUser_WV.TabStop = False + Me.btnAddUser_WV.Text = "User zu Wiedervorlage hinzufügen:" + Me.btnAddUser_WV.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUser_WV.UseVisualStyleBackColor = False + ' + 'btndelete + ' + Me.btndelete.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndelete.Location = New System.Drawing.Point(216, 93) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(234, 23) + Me.btndelete.TabIndex = 92 + Me.btndelete.TabStop = False + Me.btndelete.Text = "Userzuordnung löschen" + Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndelete.UseVisualStyleBackColor = True + ' + 'FOLLOW_UP_DAYSTextBox + ' + Me.FOLLOW_UP_DAYSTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "FOLLOW_UP_DAYS", True)) + Me.FOLLOW_UP_DAYSTextBox.Location = New System.Drawing.Point(554, 545) + Me.FOLLOW_UP_DAYSTextBox.Name = "FOLLOW_UP_DAYSTextBox" + Me.FOLLOW_UP_DAYSTextBox.ReadOnly = True + Me.FOLLOW_UP_DAYSTextBox.Size = New System.Drawing.Size(99, 22) + Me.FOLLOW_UP_DAYSTextBox.TabIndex = 101 + Me.FOLLOW_UP_DAYSTextBox.TabStop = False + ' + 'TBPMO_FOLLOW_UP_EMAILBindingSource + ' + Me.TBPMO_FOLLOW_UP_EMAILBindingSource.DataMember = "TBPMO_FOLLOW_UP_EMAIL" + Me.TBPMO_FOLLOW_UP_EMAILBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.chkSonntag) + Me.GroupBox1.Controls.Add(Me.CheckBox1) + Me.GroupBox1.Controls.Add(Me.chkSamstag) + Me.GroupBox1.Controls.Add(Me.chkDienstag) + Me.GroupBox1.Controls.Add(Me.chkFreitag) + Me.GroupBox1.Controls.Add(Me.chkMittwoch) + Me.GroupBox1.Controls.Add(Me.chkDonnerstag) + Me.GroupBox1.Location = New System.Drawing.Point(67, 102) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(550, 43) + Me.GroupBox1.TabIndex = 100 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Tage:" + ' + 'chkSonntag + ' + Me.chkSonntag.AutoSize = True + Me.chkSonntag.Location = New System.Drawing.Point(472, 18) + Me.chkSonntag.Name = "chkSonntag" + Me.chkSonntag.Size = New System.Drawing.Size(70, 17) + Me.chkSonntag.TabIndex = 100 + Me.chkSonntag.Text = "Sonntag" + Me.chkSonntag.UseVisualStyleBackColor = True + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(10, 18) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(67, 17) + Me.CheckBox1.TabIndex = 94 + Me.CheckBox1.Text = "Montag" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'chkSamstag + ' + Me.chkSamstag.AutoSize = True + Me.chkSamstag.Location = New System.Drawing.Point(402, 18) + Me.chkSamstag.Name = "chkSamstag" + Me.chkSamstag.Size = New System.Drawing.Size(69, 17) + Me.chkSamstag.TabIndex = 99 + Me.chkSamstag.Text = "Samstag" + Me.chkSamstag.UseVisualStyleBackColor = True + ' + 'chkDienstag + ' + Me.chkDienstag.AutoSize = True + Me.chkDienstag.Location = New System.Drawing.Point(83, 18) + Me.chkDienstag.Name = "chkDienstag" + Me.chkDienstag.Size = New System.Drawing.Size(72, 17) + Me.chkDienstag.TabIndex = 95 + Me.chkDienstag.Text = "Dienstag" + Me.chkDienstag.UseVisualStyleBackColor = True + ' + 'chkFreitag + ' + Me.chkFreitag.AutoSize = True + Me.chkFreitag.Location = New System.Drawing.Point(335, 18) + Me.chkFreitag.Name = "chkFreitag" + Me.chkFreitag.Size = New System.Drawing.Size(62, 17) + Me.chkFreitag.TabIndex = 98 + Me.chkFreitag.Text = "Freitag" + Me.chkFreitag.UseVisualStyleBackColor = True + ' + 'chkMittwoch + ' + Me.chkMittwoch.AutoSize = True + Me.chkMittwoch.Location = New System.Drawing.Point(162, 18) + Me.chkMittwoch.Name = "chkMittwoch" + Me.chkMittwoch.Size = New System.Drawing.Size(75, 17) + Me.chkMittwoch.TabIndex = 96 + Me.chkMittwoch.Text = "Mittwoch" + Me.chkMittwoch.UseVisualStyleBackColor = True + ' + 'chkDonnerstag + ' + Me.chkDonnerstag.AutoSize = True + Me.chkDonnerstag.Location = New System.Drawing.Point(243, 18) + Me.chkDonnerstag.Name = "chkDonnerstag" + Me.chkDonnerstag.Size = New System.Drawing.Size(87, 17) + Me.chkDonnerstag.TabIndex = 97 + Me.chkDonnerstag.Text = "Donnerstag" + Me.chkDonnerstag.UseVisualStyleBackColor = True + ' + 'PROCESS_SELECT5TextBox + ' + Me.PROCESS_SELECT5TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "PROCESS_SELECT5", True)) + Me.PROCESS_SELECT5TextBox.Location = New System.Drawing.Point(554, 410) + Me.PROCESS_SELECT5TextBox.Name = "PROCESS_SELECT5TextBox" + Me.PROCESS_SELECT5TextBox.Size = New System.Drawing.Size(420, 22) + Me.PROCESS_SELECT5TextBox.TabIndex = 93 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(706, 26) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(119, 13) + Me.Label4.TabIndex = 88 + Me.Label4.Text = "Wiedervorlageprofile:" + ' + 'PROCESS_SELECT4TextBox + ' + Me.PROCESS_SELECT4TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "PROCESS_SELECT4", True)) + Me.PROCESS_SELECT4TextBox.Location = New System.Drawing.Point(554, 369) + Me.PROCESS_SELECT4TextBox.Name = "PROCESS_SELECT4TextBox" + Me.PROCESS_SELECT4TextBox.Size = New System.Drawing.Size(420, 22) + Me.PROCESS_SELECT4TextBox.TabIndex = 15 + ' + 'PROCESS_SELECT3TextBox + ' + Me.PROCESS_SELECT3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "PROCESS_SELECT3", True)) + Me.PROCESS_SELECT3TextBox.Location = New System.Drawing.Point(554, 328) + Me.PROCESS_SELECT3TextBox.Name = "PROCESS_SELECT3TextBox" + Me.PROCESS_SELECT3TextBox.Size = New System.Drawing.Size(420, 22) + Me.PROCESS_SELECT3TextBox.TabIndex = 14 + ' + 'PROCESS_SELECT2TextBox + ' + Me.PROCESS_SELECT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "PROCESS_SELECT2", True)) + Me.PROCESS_SELECT2TextBox.Location = New System.Drawing.Point(554, 287) + Me.PROCESS_SELECT2TextBox.Name = "PROCESS_SELECT2TextBox" + Me.PROCESS_SELECT2TextBox.Size = New System.Drawing.Size(420, 22) + Me.PROCESS_SELECT2TextBox.TabIndex = 13 + ' + 'PROCESS_SELECT1TextBox + ' + Me.PROCESS_SELECT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "PROCESS_SELECT1", True)) + Me.PROCESS_SELECT1TextBox.Location = New System.Drawing.Point(554, 246) + Me.PROCESS_SELECT1TextBox.Name = "PROCESS_SELECT1TextBox" + Me.PROCESS_SELECT1TextBox.Size = New System.Drawing.Size(420, 22) + Me.PROCESS_SELECT1TextBox.TabIndex = 12 + ' + 'EMAIL_BODYTextBox + ' + Me.EMAIL_BODYTextBox.AcceptsReturn = True + Me.EMAIL_BODYTextBox.AcceptsTab = True + Me.EMAIL_BODYTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "EMAIL_BODY", True)) + Me.EMAIL_BODYTextBox.Location = New System.Drawing.Point(67, 287) + Me.EMAIL_BODYTextBox.Multiline = True + Me.EMAIL_BODYTextBox.Name = "EMAIL_BODYTextBox" + Me.EMAIL_BODYTextBox.Size = New System.Drawing.Size(479, 145) + Me.EMAIL_BODYTextBox.TabIndex = 11 + ' + 'EMAIL_SUBJECTTextBox + ' + Me.EMAIL_SUBJECTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "EMAIL_SUBJECT", True)) + Me.EMAIL_SUBJECTTextBox.Location = New System.Drawing.Point(67, 246) + Me.EMAIL_SUBJECTTextBox.Name = "EMAIL_SUBJECTTextBox" + Me.EMAIL_SUBJECTTextBox.Size = New System.Drawing.Size(479, 22) + Me.EMAIL_SUBJECTTextBox.TabIndex = 10 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "NAME", True)) + Me.NAMETextBox.Location = New System.Drawing.Point(67, 74) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(227, 22) + Me.NAMETextBox.TabIndex = 0 + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBPMO_FOLLOW_UP_EMAILBindingSource + Me.ListBox1.DisplayMember = "NAME" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(709, 42) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(265, 147) + Me.ListBox1.TabIndex = 1 + Me.ListBox1.TabStop = False + Me.ListBox1.ValueMember = "GUID" + ' + 'lblSaveWVEmail + ' + Me.lblSaveWVEmail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSaveWVEmail.AutoSize = True + Me.lblSaveWVEmail.BackColor = System.Drawing.Color.Yellow + Me.lblSaveWVEmail.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveWVEmail.Location = New System.Drawing.Point(716, 196) + Me.lblSaveWVEmail.Name = "lblSaveWVEmail" + Me.lblSaveWVEmail.Size = New System.Drawing.Size(219, 17) + Me.lblSaveWVEmail.TabIndex = 78 + Me.lblSaveWVEmail.Text = "Datensatz erfolgreich gespeichert!" + Me.lblSaveWVEmail.Visible = False + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(715, 503) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(150, 22) + Me.CHANGED_WHENTextBox.TabIndex = 30 + Me.CHANGED_WHENTextBox.TabStop = False + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(554, 503) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(138, 22) + Me.CHANGED_WHOTextBox.TabIndex = 28 + Me.CHANGED_WHOTextBox.TabStop = False + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(715, 462) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(150, 22) + Me.ADDED_WHENTextBox.TabIndex = 26 + Me.ADDED_WHENTextBox.TabStop = False + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(554, 462) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(138, 22) + Me.ADDED_WHOTextBox.TabIndex = 24 + Me.ADDED_WHOTextBox.TabStop = False + ' + 'TIME_DISTComboBox + ' + Me.TIME_DISTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "TIME_DIST", True)) + Me.TIME_DISTComboBox.FormattingEnabled = True + Me.TIME_DISTComboBox.Items.AddRange(New Object() {"BEFORE", "AFTER"}) + Me.TIME_DISTComboBox.Location = New System.Drawing.Point(232, 165) + Me.TIME_DISTComboBox.Name = "TIME_DISTComboBox" + Me.TIME_DISTComboBox.Size = New System.Drawing.Size(121, 21) + Me.TIME_DISTComboBox.TabIndex = 6 + ' + 'ACTIVECheckBox + ' + Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(469, 72) + Me.ACTIVECheckBox.Name = "ACTIVECheckBox" + Me.ACTIVECheckBox.Size = New System.Drawing.Size(58, 24) + Me.ACTIVECheckBox.TabIndex = 21 + Me.ACTIVECheckBox.TabStop = False + Me.ACTIVECheckBox.Text = "Aktiv" + Me.ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'TIME_SPANTextBox + ' + Me.TIME_SPANTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "TIME_SPAN", True)) + Me.TIME_SPANTextBox.Location = New System.Drawing.Point(67, 165) + Me.TIME_SPANTextBox.Name = "TIME_SPANTextBox" + Me.TIME_SPANTextBox.Size = New System.Drawing.Size(67, 22) + Me.TIME_SPANTextBox.TabIndex = 4 + ' + 'TIME_UNITYComboBox + ' + Me.TIME_UNITYComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "TIME_UNITY", True)) + Me.TIME_UNITYComboBox.FormattingEnabled = True + Me.TIME_UNITYComboBox.Items.AddRange(New Object() {"Month", "Week", "Day"}) + Me.TIME_UNITYComboBox.Location = New System.Drawing.Point(140, 165) + Me.TIME_UNITYComboBox.Name = "TIME_UNITYComboBox" + Me.TIME_UNITYComboBox.Size = New System.Drawing.Size(86, 21) + Me.TIME_UNITYComboBox.TabIndex = 5 + ' + 'PARENT_IDComboBox + ' + Me.PARENT_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "PARENT_ID", True)) + Me.PARENT_IDComboBox.FormattingEnabled = True + Me.PARENT_IDComboBox.Location = New System.Drawing.Point(67, 206) + Me.PARENT_IDComboBox.Name = "PARENT_IDComboBox" + Me.PARENT_IDComboBox.Size = New System.Drawing.Size(286, 21) + Me.PARENT_IDComboBox.TabIndex = 9 + ' + 'DEPENDENT_DONE_CTRL_IDComboBox + ' + Me.DEPENDENT_DONE_CTRL_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "DEPENDENT_DONE_CTRL_ID", True)) + Me.DEPENDENT_DONE_CTRL_IDComboBox.DropDownWidth = 250 + Me.DEPENDENT_DONE_CTRL_IDComboBox.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DEPENDENT_DONE_CTRL_IDComboBox.ForeColor = System.Drawing.Color.OrangeRed + Me.DEPENDENT_DONE_CTRL_IDComboBox.FormattingEnabled = True + Me.DEPENDENT_DONE_CTRL_IDComboBox.Location = New System.Drawing.Point(554, 165) + Me.DEPENDENT_DONE_CTRL_IDComboBox.Name = "DEPENDENT_DONE_CTRL_IDComboBox" + Me.DEPENDENT_DONE_CTRL_IDComboBox.Size = New System.Drawing.Size(149, 21) + Me.DEPENDENT_DONE_CTRL_IDComboBox.TabIndex = 8 + ' + 'DEPENDENT_DATE_CTRL_IDComboBox + ' + Me.DEPENDENT_DATE_CTRL_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "DEPENDENT_DATE_CTRL_ID", True)) + Me.DEPENDENT_DATE_CTRL_IDComboBox.DropDownWidth = 250 + Me.DEPENDENT_DATE_CTRL_IDComboBox.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DEPENDENT_DATE_CTRL_IDComboBox.ForeColor = System.Drawing.Color.OrangeRed + Me.DEPENDENT_DATE_CTRL_IDComboBox.FormattingEnabled = True + Me.DEPENDENT_DATE_CTRL_IDComboBox.Location = New System.Drawing.Point(359, 166) + Me.DEPENDENT_DATE_CTRL_IDComboBox.Name = "DEPENDENT_DATE_CTRL_IDComboBox" + Me.DEPENDENT_DATE_CTRL_IDComboBox.Size = New System.Drawing.Size(187, 21) + Me.DEPENDENT_DATE_CTRL_IDComboBox.TabIndex = 7 + ' + 'FOLLOW_UP_TIME_SPANTextBox + ' + Me.FOLLOW_UP_TIME_SPANTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "FOLLOW_UP_TIME_SPAN", True)) + Me.FOLLOW_UP_TIME_SPANTextBox.Location = New System.Drawing.Point(623, 120) + Me.FOLLOW_UP_TIME_SPANTextBox.Name = "FOLLOW_UP_TIME_SPANTextBox" + Me.FOLLOW_UP_TIME_SPANTextBox.Size = New System.Drawing.Size(80, 22) + Me.FOLLOW_UP_TIME_SPANTextBox.TabIndex = 3 + ' + 'FOLLOW_UP_SEQUENCEComboBox + ' + Me.FOLLOW_UP_SEQUENCEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "FOLLOW_UP_SEQUENCE", True)) + Me.FOLLOW_UP_SEQUENCEComboBox.FormattingEnabled = True + Me.FOLLOW_UP_SEQUENCEComboBox.Items.AddRange(New Object() {"ONCE_WEEKLY", "ONCE_DAILY", "HOUR"}) + Me.FOLLOW_UP_SEQUENCEComboBox.Location = New System.Drawing.Point(300, 75) + Me.FOLLOW_UP_SEQUENCEComboBox.Name = "FOLLOW_UP_SEQUENCEComboBox" + Me.FOLLOW_UP_SEQUENCEComboBox.Size = New System.Drawing.Size(138, 21) + Me.FOLLOW_UP_SEQUENCEComboBox.TabIndex = 1 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FOLLOW_UP_EMAILBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(14, 75) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(46, 22) + Me.GUIDTextBox.TabIndex = 3 + Me.GUIDTextBox.TabStop = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(11, 25) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(464, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Definieren Sie hier Wiedervorlagen in Abhängigkeit von einem Datumswert der jewei" & _ + "ligen Entität." + ' + 'TBPMO_FOLLOW_UP_EMAILBindingNavigator + ' + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.BindingSource = Me.TBPMO_FOLLOW_UP_EMAILBindingSource + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.CountItemFormat = "von {0} Wiedervorlage-Schritten" + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem}) + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.Name = "TBPMO_FOLLOW_UP_EMAILBindingNavigator" + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.Size = New System.Drawing.Size(987, 25) + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.TabIndex = 1 + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(175, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Wiedervorlage-Schritten" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem + ' + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.Name = "TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem" + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Controls.Add(Me.Label3) + Me.XtraTabPage2.Controls.Add(Me.btnEmailConfig) + Me.XtraTabPage2.Controls.Add(Me.Label2) + Me.XtraTabPage2.Controls.Add(Me.chkbxLogErrorsonly) + Me.XtraTabPage2.Controls.Add(Me.cmbWWEmail) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(987, 614) + Me.XtraTabPage2.Text = "Grundeinstellungen Wiedervorlage" + ' + 'btnEmailConfig + ' + Me.btnEmailConfig.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_edit + Me.btnEmailConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEmailConfig.Location = New System.Drawing.Point(297, 30) + Me.btnEmailConfig.Name = "btnEmailConfig" + Me.btnEmailConfig.Size = New System.Drawing.Size(103, 23) + Me.btnEmailConfig.TabIndex = 4 + Me.btnEmailConfig.Text = "Email-Profile" + Me.btnEmailConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnEmailConfig.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(8, 16) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(283, 13) + Me.Label2.TabIndex = 3 + Me.Label2.Text = "Email-Profil zur Versendung der Wiedervorlage Emails" + ' + 'chkbxLogErrorsonly + ' + Me.chkbxLogErrorsonly.AutoSize = True + Me.chkbxLogErrorsonly.Location = New System.Drawing.Point(11, 69) + Me.chkbxLogErrorsonly.Name = "chkbxLogErrorsonly" + Me.chkbxLogErrorsonly.Size = New System.Drawing.Size(152, 17) + Me.chkbxLogErrorsonly.TabIndex = 1 + Me.chkbxLogErrorsonly.Text = "Log Errors Only (Ja/Nein)" + Me.chkbxLogErrorsonly.UseVisualStyleBackColor = True + ' + 'cmbWWEmail + ' + Me.cmbWWEmail.FormattingEnabled = True + Me.cmbWWEmail.Location = New System.Drawing.Point(11, 32) + Me.cmbWWEmail.Name = "cmbWWEmail" + Me.cmbWWEmail.Size = New System.Drawing.Size(280, 21) + Me.cmbWWEmail.TabIndex = 0 + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Controls.Add(Me.GroupBox2) + Me.XtraTabPage3.Controls.Add(Me.Label7) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(987, 614) + Me.XtraTabPage3.Text = "Aktuelle Übersicht" + ' + 'GroupBox2 + ' + Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GroupBox2.Controls.Add(Me.ListBox2) + Me.GroupBox2.Location = New System.Drawing.Point(14, 25) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(470, 581) + Me.GroupBox2.TabIndex = 1 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Wiedervorlage Email" + ' + 'ListBox2 + ' + Me.ListBox2.Dock = System.Windows.Forms.DockStyle.Fill + Me.ListBox2.FormattingEnabled = True + Me.ListBox2.Location = New System.Drawing.Point(3, 18) + Me.ListBox2.Name = "ListBox2" + Me.ListBox2.Size = New System.Drawing.Size(464, 560) + Me.ListBox2.TabIndex = 0 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(11, 9) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(414, 13) + Me.Label7.TabIndex = 0 + Me.Label7.Text = "Folgende Wiedervorlagen werden aktuell auf Ausführungsgültigkeit überprüft" + ' + 'TBPMO_FOLLOW_UP_EMAILTableAdapter + ' + Me.TBPMO_FOLLOW_UP_EMAILTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Me.TBPMO_FOLLOW_UP_EMAILTableAdapter + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(8, 89) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(364, 13) + Me.Label3.TabIndex = 5 + Me.Label3.Text = "Definiert das Logverhalten der Wiedervorlagen im Dienst ""DD_PMO Service""" + ' + 'frmWiedervorlage + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(993, 642) + Me.Controls.Add(Me.XtraTabControl1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmWiedervorlage" + Me.Text = "Konfiguration Wiedervorlage" + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.TBPMO_FOLLOW_UP_EMAILBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.ResumeLayout(False) + Me.TBPMO_FOLLOW_UP_EMAILBindingNavigator.PerformLayout() + Me.XtraTabPage2.ResumeLayout(False) + Me.XtraTabPage2.PerformLayout() + Me.XtraTabPage3.ResumeLayout(False) + Me.XtraTabPage3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents TBPMO_FOLLOW_UP_EMAILBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FOLLOW_UP_EMAILTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FOLLOW_UP_EMAILBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents chkbxLogErrorsonly As System.Windows.Forms.CheckBox + Friend WithEvents cmbWWEmail As System.Windows.Forms.ComboBox + Friend WithEvents btnEmailConfig As System.Windows.Forms.Button + Friend WithEvents TIME_DISTComboBox As System.Windows.Forms.ComboBox + Friend WithEvents ACTIVECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents TIME_SPANTextBox As System.Windows.Forms.TextBox + Friend WithEvents TIME_UNITYComboBox As System.Windows.Forms.ComboBox + Friend WithEvents PARENT_IDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents DEPENDENT_DONE_CTRL_IDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents DEPENDENT_DATE_CTRL_IDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents FOLLOW_UP_TIME_SPANTextBox As System.Windows.Forms.TextBox + Friend WithEvents FOLLOW_UP_SEQUENCEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents lblSaveWVEmail As System.Windows.Forms.Label + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents ListBoxUser2Profile As System.Windows.Forms.ListBox + Friend WithEvents PROCESS_SELECT4TextBox As System.Windows.Forms.TextBox + Friend WithEvents PROCESS_SELECT3TextBox As System.Windows.Forms.TextBox + Friend WithEvents PROCESS_SELECT2TextBox As System.Windows.Forms.TextBox + Friend WithEvents PROCESS_SELECT1TextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAIL_BODYTextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAIL_SUBJECTTextBox As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents btnAddUser_WV As System.Windows.Forms.Button + Friend WithEvents cmbUser As System.Windows.Forms.ComboBox + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents PROCESS_SELECT5TextBox As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents chkSonntag As System.Windows.Forms.CheckBox + Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox + Friend WithEvents chkSamstag As System.Windows.Forms.CheckBox + Friend WithEvents chkDienstag As System.Windows.Forms.CheckBox + Friend WithEvents chkFreitag As System.Windows.Forms.CheckBox + Friend WithEvents chkMittwoch As System.Windows.Forms.CheckBox + Friend WithEvents chkDonnerstag As System.Windows.Forms.CheckBox + Friend WithEvents FOLLOW_UP_DAYSTextBox As System.Windows.Forms.TextBox + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents ListBox2 As System.Windows.Forms.ListBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents Label3 As System.Windows.Forms.Label +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmWiedervorlage.resx b/app - Kopie/DD-Record-Organiser/frmWiedervorlage.resx new file mode 100644 index 0000000..3e83ae2 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWiedervorlage.resx @@ -0,0 +1,731 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 896, 17 + + + 160, 17 + + + 160, 17 + + + 17, 17 + + + 17, 17 + + + 896, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 444, 17 + + + 723, 17 + + + + AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA + IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw + AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wDUfQEAVvCDAACfAAC4iowAdZg1AMbVwAArzEAAlGRcAMqXSQA0jzUAlLuGAHb/sQD319cA16enAFyr + VwC5tHEAq6ioAEHYYgAarycAkouLALOEaAAWjhgAAHwAAKLJogC7tsIA6Lq6ANmdYQD/6+sA4NzmAGf/ + mgDQx9UATJIsAEuzRgCfaUYApHV1AEjCWgDQdBcAxMWvAKeYmACup2IAFKQVAOnMxgAnnicAup6RAMSt + rADUwsIArYGBADXTTQDXbAkACoINALHGqgCPaWsAzrW2AKmJjgD/9fUA/+HhAEjfbAC2oqIA7N7gAFDr + eAC5srIAsaSzAMDAyADPfxEA8s/PALmSlQCdjo8AspmbANZyAAAgrzAAsIuCAJmFhgD17e0ALMJCAK2R + kwDUvbcA/+v1ABWrHACzrKwAbP+iAJ6WlgChnZ0AtZKKAPTJyQDNvLwAOpQ4ALWhlwDCwMAA++bmALur + qwDkxsgAo4eJABGdEwD68fEA+t3dAMy3rwC0hoYAPttcAKyjowC5sb4AxLCyAL+0tAD30tIAqnx+AMix + qQCjk5QAuKamALKKigDRwccArYaEAB6yLAC1jo4A//v8AP/x8QCtiooAHKslAMq5swD44OAAq46QAK+X + ngBG4GgAt6uuAK6ZmQCpiYkAE6kZAP3o6QD/5uYAsYGBAKOanAD/7fgAq39/ALCQkgCkmZkAqpKTABux + JQCsg4MAroiGALOMjAD/7e0AqIiMAKuRkQColpcAFKsaAP/p6QCPZ2oAroGDAOTIyACsgIAAroWFALGJ + iQCdlZUA//LyAP/s7AD/6uoA/OjoAP/i4gDNtbUAxLGxALSPjgComJkApZmaAP3p6QD95+kArH9/AK2D + gwCzhoYArYWFAKKTlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAABEZnSWiaampjCVpSQAAABraZRtmYwdmmSYhjmnAACpQ1w8NjhzgJtQUhUo + YgAAhQxeiBRwKpkdo5ykfwUAADcrBjofDU84m5FOIhioAABUEUc9A1GQX3OMgyUEigAAaldjehN1fp6L + oHGXb5MAAGEXMUsQByweIG5NLgAAAAB2CwghHCYKMkYCQSMAAAAALSkzNEAaZT95SBYJAAAAAFgBGSdZ + Z1s7RUyNkgAAAAB7ckpCL1afbHyOfTUAAAAAPmCdWncOaFUbD4GEAAAAAFMSgqKhj4d4XUkAAAAAAAAA + AAAAAAAAAAAAAAAAAAD//wAA4AEAAMABAACAAQAAgAEAAIABAACAAQAAgAEAAIAHAACABwAAgAcAAIAH + AACABwAAgAcAAIAfAAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAB/VVlbx7K09K+MjP6wh4f+roWF/q+Fhf6vhYX+r4WF/q+Dg/6ugoL+roGB/qV1 + dfcAAAAAAAAAAAAAAACPX2NZq3t98+TIyP+yior///Ly///t7f//6+v//+zs/6yjo/+dlZX/pJmZ///h + 4f+1h4f9AAAAAAAAAACMXmNVu5KV8+TGyP/s3uD/zrW2///19f//8fH//+bm///q6v+zrKz/npaW/5KL + i/+nmJj/toeH/QAAAAAAAAAAsY+R7JS7hv8RnRP/G7El/xqvJ/8esiz/FKQV///y8v//6+v//enp//zo + 6P/95+n//ejp/7qLjf0AAAAAAAAAAKuJjvTpzMb/dZg1/0jfbP9n/5r/dv+x/xWrHP//9fX//+rq///p + 6f//6/X/S7NG/wB8AP+vhob9AAAAAAAAAAC3k4r1ubRx/yCvMP9Q63j/VvCD/2z/ov8Uqxr/+vHx///x + 8f//7e3//+34/0jCWv8AnwD/sImH/QAAAAAAAAAAy7Or9zqUOP8+21z/RuBo/0HYYv8cqyX/E6kZ/821 + tf+zjIz/tI+O/7WOjv+xiYn/r4iG/q+ChPwAAAAAAAAAAM+5sfgWjhj/NdNN/yzCQv9cq1f/xtXA/yee + J//g3Ob/0MfV/9HBx//Uvbf/xq+u+wAAAAAAAAAAAAAAAAAAAADNu7X3NI81/yvMQP9Mkiz/2Z1h/9B0 + F//Kl0n/12wJ/9ZyAP/UfQH/z38R/6BoRPcAAAAAAAAAAAAAAAAAAAAAvZ+S9a6nYv8Kgg3/scaq/8DA + yP+7tsL/ubG+/7Gks/+vl57/sIuC/7OEaP+VZFv4AAAAAAAAAAAAAAAAAAAAALeimPT/////osmi/8TF + r//CwMD/v7S0/7urq/+2oqL/spmb/62Rk/+oiIz/kGdq+AAAAAAAAAAAAAAAAAAAAAC5rbD0//v8//Xt + 7f/00dH+1MLC/828vP/EsbH/uKam/66Zmf+rkZH/qYmJ/5Bpa/gAAAAAAAAAAAAAAAAAAAAAvLS08vrd + 3f//4uL/++bm//jg4P/319f/99LS//TJyf/ourr/16en/7ODg/6sdXXNAAAAAAAAAAAAAAAAAAAAAJSM + jICrpqaYoJSWt6SUlsSolJbQqZSV3qyRk+utj5H3on+Bz4llZ42JX2RLAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD//wAA4AEAAMABAACAAQAAgAEAAIABAACAAQAAgAEAAIAHAACABwAAgAcAAIAHAACABwAAgAcAAIAf + AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A2nwAAFTu + fAAHnw8AzJqaAIJjYwBUkycA9KZUAPjXuwB9/7sALcxDAIO2dgC+fz8AwsDAAJ97iQBnm1AAH3sUALiJ + aQD/3OUAo6KiAO/EmACprm0AHa4sAJTKkAA/22AA3NXbAGj/nQDgsLAA6K5zAMpyGwA8gDEA2YcwALaU + hQCbbW4ABnsFAMtlAADkxcUAuaizANTOrwA5s0MA0qmFALfFqQAfnRoA8+7xAJqRkQBkqWIA35xnAP/R + 0QAAkAAADYsUAJtpWgBxnD4AtZybAMV7LADLrZ8AxtLGADbQUwDu2dkA1Lq6AF32igC/hFAAcv+sANfS + ygApvD4AqYqQAKyIfgDFtLEA16WlAEvlcgCfeHgAE6YWAO/LywCPaGkAz8bMAP/r6wDnuroAvqOjABF6 + EQC5hoYAyoVHANVvAAD/+vIA0K2tAMzUuAC5kpIA7tbFAKOXmwC8iFwACYcIALy0ugB/tmoAE5ocAMps + EADNqpMA9OHhANjCwgDlnl0A6NDQALOJdQCaZmYA/9raAKOPigClf38AGIsVALCYkADi3d0A+fb6ACXD + NwDfy8sApJaRAMi4wQDErqkAROFmAKmHhwDLwMgArKCgALqqqgAvxEcA7cPDAK2RlQD/8vIA07qxAN+/ + vwCicnIALLRAAL6vsgC2oaIAsJCOABGfEwDT0dEAx7S6ACKwMgD/5OQA8+vrAMnHxwDMvr4Awbq6AJ2N + jQCqmJgAWfKGAGD5kADmyckA1sfHAO/PzwClgYcA//n5APvh6QDQtbUAvp6eAJ2AgACgnZ0AsZeYAMtp + CgD57u4A/9/fAMmwrQCofnsAuKWlAJ10dAAimh8ADaYTABmeGADq3d0A/M3NAIVnZwC3jXIAy3ksADXS + TwC3rbYAu5qaAP7V1QDt1NQA1r6+AMe6ugCui4oA2HQAAM68vADQnZ0AtqetABSKEQAcqigA//b2AMG3 + twDEeTEAp4aMAPfx8wBv/6cAt5uWAPr19QDw3t4A8dbWANzIyAClnp4A1GoAAJxpXwDEub4AoH+MAKmC + fgCshoMApIuLALKUkwDPZQAAa/+hAOrHxwCfmZkA4sHBAKJ8fADHrKwAvK6uAMJ+QQC6h2AAp4ODAJts + bADJu8QAnXJyAMi3twCrjY0AtJ2eAP318gD/7u4A9O3tAP/n5wDYu7sApXt7AL+0tADBsLAApomJAPzY + 2ACfdnYApYWFAJ2UlADXfQAAoIyMAAuKEQC6p6cAUut8AE3ndADLxcUAw7y8AL62vADKmJgAvqurABCi + FAD28fEA/9fXAOnKygDixcUAvINPALuxuQCuk5MAop+fAKScnABE3mcAyHktAKeFiQAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAClBorm5ubm1Gdnz8/l5Z/XIgAAAAAAAEmyZKqv3N7ehYWFsdji9fWb + 1wAAAAAAIvFE1ZWved7ehYWFsdji8uubnwAAAADQ9/f20MCxeUtL3t6FiNji8uub5QAAANChoaGhoaGh + ktxLS96FbcBgrTub5QAAn3sMhBvLPgpHktzcS0vehYWbm2WbRgAAz84qWUWMjT7zknl53EtL3oUYMWib + RgAA5j+0/e3sPLvzAYKHDktL3oUYBKKFRgAAfxBAGf0DdoxHAYKHDtxL3oUYfSiFRgAAcBGoOXG1ByuB + AQGSkrZ5edxL3oVLzwAAQ04LqFxbelSgscmAgK+vx8fGnc/gRgAAfh9sFy6TJho4SnNz1m+DnDdeKbwA + AAAAaRYy6icgJF2nuNI9WBJjQv/FD0kAAAAAZtsuIy9hUP4emcrKwlGwAgIC6DMAAAAAVwkdNFYTxPBa + +amzNSGm0/gNNsMAAAAAZggVayz1rrfh0XWef9qYeEG5kSIAAAAAblIBuoariO+34dHrf9qY+tly1CIA + AAAA/AG99Iar7g6J4dF1ntqY+tly1CIAAAAA/JL03V+kSMwle9+U0E01+tly1CIAAAAAwZq/MORfvjqs + kEhId0wcRAVPfNUAAAAALXSPamqjo76+rGKOJc5TVWfjiwAAAAAAAAAU+5fN5y2KiunI45bpAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A/AABAPgAAQDwAAEA4AABAMAAAQCAAAEAgAABAIAA + AQCAAAEAgAABAIAAAQCAAAcAgAAHAIAABwCAAAcAgAAHAIAABwCAAAcAgAAHAIAABwCAAA8A4AD/AP// + /wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDWlohflpa1HtWVtWagoK/pYSE96eG + hvmmhIT3poWF9aaCgvSlf3/0pX9/9KN8fPSie3v0oXZ29KB0dPSfcnL0nnBw9JloaOcAAAAAAAAAAAAA + AAAAAAAAAAAAAKBqaiaNYWHi0J2d/5pmZv+7mpr/roqK///v7///6Oj//+fn///l5f//5OT//+Li/8y7 + u//It7f/wbCw///Y2P//19f//97e/55ycvgAAAAAAAAAAAAAAAAAAAAArG9vLJloaOfKmJj/2KSk/5xr + a/++np7/r4yM///w8P//6Oj//+fn///l5f//5OT//+Li/8y8vP/It7f/wa+v/76rq/+7pqb//97e/59z + c/gAAAAAAAAAAAAAAACuc3Myya2t8+LFxf/hxcX/6crK/8erq//byMj/0Ly8///x8f//6+v//+np///o + 6P//5ub//+Tk/8y9vf/It7f/wbCw/76rq/+7p6f//9/f/591dfgAAAAAAAAAAKNycjnKr6/1DaYT/w2m + E/8NphP/DaYT/w2mE/8NphP/DaYT///5+f//7e3//+vr///q6v//6Oj//+Xl/9/Ly//dyMj/2MLC/9a+ + vv/Uurr//+Dg/6F2dvgAAAAAAAAAAJxvb+Lfvr7/g7Z2/yKwMv9o/53/a/+h/3H/rP99/7v/EqYX///6 + +v//7+///+7u///s7P//6en//+fn///l5f//4uL//9/f///d3f//2tr//+Hh/6B4ePgAAAAAAAAAAKF3 + d+niwcH/t8Wp/wmHCP9L5XL/WfKG/2D5kP9y/6v/EKIU///7+///8vL///Dw///u7v//6+v//+np///m + 5v//4+P/lMqP/wCQAP8YixX//+Hh/6F4ePgAAAAAAAAAAKWCg+rX0sr/FIoR/0TeZ/9N53T/Uut8/132 + iv9v/6f/EKIU///9/f/T0ND/ycfH/8G/v///7Oz//+rq///n5///5OT/lMqQ/wefD/8Znhj//+Pj/6F5 + efgAAAAAAAAAALmho+5nm1D/Kbw+/z/bYP9E3mf/VO58/y/ER/9Y8ob/E6UV///+/v/T0dH/ycfH/8G/ + v///7u7//+vr///o6P//5eX/lMuQ/yy0QP85s0P//+Li/6F5efgAAAAAAAAAAMewq/EfexT/NNNO/zbQ + U/9E4Wb/HKoo/1STJ/8fnRr/EZ8T/////////f3///v7///4+P//9vb///Pz///w8P//7u7//+vr///o + 6P//5eX//+vr/6R9ffgAAAAAAAAAAMi2s/ERehH/LcxD/zXRUP8Tmhz/f7Zq/9O6sf/M1Lj/Ipof/868 + u/+ylJP/sJGP/6+Pjf+tjIr/rYqH/6yHhP+rhYL/qYJ+/6h+e/+ke3v+pnt7+aF2dvAAAAAAAAAAAMGx + tPA8gDH/JcM3/x2uLP9kqWP/++Hp/7mos//c1dv/xtLG/8/GzP/Lwcn/yr/H/8m7xP/IuMH/x7S6/8mw + rf/LrZ//zaqT/9Kphf+5nJf0AAAAAAAAAAAAAAAAAAAAALGXj+yprm3/DYsU/wuKEf/Uzq//2Ycw/8tl + AP/KbBD/y3ks/8R5Mf/CfkH/v4RQ/7yIXP+4iWn/s4l1/6yIfv+nhYn/oH+M/597if+OY2fuAAAAAAAA + AAAAAAAAAAAAAKONien99fL/Y6hh/wZ7Bf/fnGf/5Z5d/8qFR//IeS3/ynIb/8tpCv/OZAD/0GUA/9Rq + AP/VbwD/2HQA/9l7AP/bfQD/2n0A/9d9AP+bZlXuAAAAAAAAAAAAAAAAAAAAAKOWmun417v/6K5z/3Gc + Pv/u1sX//9zl/8S5vv++trz/vLS6/7uxuf+3rbb/tqet/7Scmv+2lIX/t41y/7qHYP+8g0//vn8//8V7 + LP+cZlvuAAAAAAAAAAAAAAAAAAAAAKONhen0plT/78SY//n2+v/z7vH//tfX/8e6uv/Btrb/v7Oz/72v + r/+6qqr/uKWm/7Wgov+znJ7/sJea/62Rlf+pipD/p4aM/6WBh/+aamvuAAAAAAAAAAAAAAAAAAAAAKSV + j+n/+vL//f3///fx8//z6+v//tXV/8u/v//DvLz/wbe3/7+0tP+8ra3/uaio/7aiov+0nZ3/sZeX/66S + kv+rjIz/qIaG/6iEhP+ba2vuAAAAAAAAAAAAAAAAAAAAAKSbm+n/////+vX1//bw8P/z6ur//dXV/8vF + xf/CwMD/wbq6/761tf+8r6//uaqq/7ekpP+0np7/sZiY/66Tk/+sjY3/qYeH/6eDg/+bamruAAAAAAAA + AAAAAAAAAAAAAKObm+n++Pj/9vHx//Tt7f/04OD//s/P/vDKyv/qx8f/5MTE/9/AwP/Yu7v/0LW1/8is + rP++o6P/tZub/6+Tk/+qjY3/qYeH/6eEhP+ba2vuAAAAAAAAAAAAAAAAAAAAAKWenun57u7/8dbW///R + 0f/82Nj/8+Hh/+/g4P/u2dn/7dPT/+/Pz//uy8v/8MrK/+3Dw//nurr/4LCw/9alpf/Mmpr/uYaG/6Jy + cv+ZZ2fpAAAAAAAAAAAAAAAAAAAAAJmRkemsoKD/1sfH/+Hc3P/j3d3/6dzc/+vd3f/w3t7/8Nzc/+zV + 1f/o0ND/5snJ/+PFxf/hwMD/0K2t/7mSkv+mfHzvonV1qaRzc16tamoVAAAAAAAAAAAAAAAAAAAAAJeN + jTaVkZFPk4+PXpOMjG2TjIx7k4iIipOEhJmSgoKoloKCt5qFhcWfhobUpIiI46iJifKbeXnXlXBwjJRz + c0ClbGwFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA////APwAAQD4AAEA8AABAOAAAQDAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAAHAIAA + BwCAAAcAgAAHAIAABwCAAAcAgAAHAIAABwCAAAcAgAAPAOAA/wD///8AKAAAACAAAABAAAAAAQAIAAAA + AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A2nsAAFLrewAAngAAypeXAFVeXgArw0EAvINNANTS + 0gCItHsALoAsAPSrYwCAhC8AkmdyAPjJmQAAZgAA/9zdALevuQCkhJEA5ZM/ALrXqwDMVAAAaatgAD/X + XgDIdiMAFqEhAGT9lwDRoHIA3ri4AG93dwCmwY0ARY1DABZ2FQDy1r8A6O/uAKl9cQCmrnIAn56eALmT + fgAAsiMAQ09PAIdbWwDCnVsAxsDAABOOEQDxtXkAI7EzAAB+AAC4paYARX8mAImddQCBs2UA/+7uAOrW + 1gDJ17kA4sbGAOPCmADHfDgAyWwQAL+LZgCRhoYAr5SUAGVtbQDMra0Amq+DAODIrgDio2cANc5PAJ52 + gAA0kjEA2YtKANFnAAAAphIAW/SJAKx/ggDJpIwA8b2IAEXeaADy5eUA4t/fAODVwQAAjwAAu42NAMx8 + FQDFppsAl2VlAP7r1wAhlx4A+Pb2ABWdEwCvnqsA78ilAAiCCwC/y7sACZoIAMO1tgD41dQAP4srAL3c + uADRxsYAd61tAJWxdgC3hFoAs66uAM2ifwCfdHQAsIBmAPLg1AC8mZkArYqLANagYwD/5OgAlbeLADuP + PQCvmqEAdn19ANzY2ABfZ2cAva+vAN29vQClhoYADnoOAObk7QDXdQAAwn9AANyrbADQnp4Az82/AO7e + 3gAmvjkA8M/PALu0vwAblREAppKSAJttbQD16+wAupiHAAyQBQA601cAx6WlAKmPmgDMtLQAS+RxAP72 + 9gAxyEoAYPmRAKV/gAAAqhsAoHyJAM1vAgDpzsQA6d/RALKmrwDPYAAA0XoEAODMvgAGegkAx7m9ANWr + qwCuoqQAvpSUAB2PHADJfiQAvnxHAJBkZgD29v8AVu+CAMrGxgARoBoAo3l5AOXMzABFijsA/9fXAAyU + DgBpcHAAu7m5APjo4QD32dkAxIAzAMCjowCqmJgA6+jpAJx4eACnmZ8AoMaPANa+vgCPW1sACY4MAM3C + xACznp8AuoxsAL+YfQApuz4ADpEVAMKwuQCTYGAAw6mqALiUlADz8vIAy3UTAOjAnQC6qqsAFXgOAASe + CADaxsYApIuLAPz6/AASlhAA8ufrACK4MwCwqaoAprqOAA+aFwDUtbUAvYdYANFrBgDq6/MAHrMtAL3R + qwCrmKUAz8fJAMPatgDAubkA6snJAKeLlgCtj48A6dDQAFhiYgDAg0YAmmlqALKZmQCuh4YA+PHxAO3s + 7QDm08YAt5yWAP/p6QD/4uMA8NXVAODExAC+tLQA39reALWhpABHUlIA8tLSAE/odwCsk54Ap4SEAObm + 5gDt2dkAwr+/AKF9fQCoiIgArZucAP/y8gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAACGKqW+/f39eXn4+PiTk5OT/KqqampqaocAAAAAAAAAtbtLu25uNXBw7u7u7u7u7u5w7u4Rra2t + agAAAAAAAP7EBVPExm41cO1w7u7u7nAmHj/kKY6tra1qAAAAAAD+VgV/U1bGbjXtcHBw7u7u7rKysmH1 + ERGtrWoAAAAAAOYFf3+h5m1uNe3t7e1w7u7tJnQer3YG9D0RagAAAMq08Dg4OLq0uo7/7e3t7e1wcO2y + 7+/1g4PggxFqAADKMy3Q0NBaWlpaWpA1Ne3t7e1w7SZ0Hj92BvQ9EaoAAGp4Cq5OA6dKSkpfzzU1NTXt + 7e3t7u7u7hERERERqgAAtx2rF6kDSpIbG1/P/zU1NTXt7e1w7u7uEVHrnGGqAAC3eICiwfanSpIbXwGQ + //81NTXt7XDu7nDbUjAQQZMAAPw2Ri9Oj/anSpJfAQmo+7A1Ne3t7XDucDcEUjDUSwAAPnHCixhOj/YY + Sl8BCaj7sP81Ne3tcO5wN0nMUh9LAADKYi9EixgY1YqRXwEJqPuwaDU17e1w7nA3KJQEuZMAAGDLgpFE + kbw0K4WuAQEBAQHPkJD/NTU17bFj3hVskwAAYCHSBwddZnuZXliObm5ubm5ubm5u6Ojo6EtLS0uqAAB3 + IBqCwmXR8nPdXr2enp6ew8PDxVVMaRxvPgAAAAAAAPMlndp66pdCpDzAiezzW1vc943hExOVlUWlAAAA + AAAAuA+sXXLJSDkWmpqamppIlsijs30IZ2skqqUAAAAAAAC1sSMLMkfYmH06GTtImkhISHx8fAICAgIC + DgAAAAAAAP7PXH4NQ0/ZEoSEhIQSMewnv9fls6NUm3wOAAAAAAAAoC4UFCKm0bZ38fF3ysox8/O+c/eN + 4RMTleYAAAAAAACZDE3Pz4hP6vHf8fF3ysoxvufnPuJu/fiT5gAAAAAAANNXAc/piE/q3/vf8fF3yjHz + vuc+4m79+JPmAAAAAAAA08/PWemIT8f7LN/f8XfKMfO+5z7ibv34k+YAAAAAAABo6VnpiIhPx/v732Dx + d8rKMb7nPuLi/fiT5gAAAAAAAGjpiIiIT9FZtvlQdQndnvExvj4+4v15+JOHAAAAAAAAaIhPT4jp0YGB + +jbj46urq6ur8LrWQIxtk+YAAAAAAABoiJABkOmIT0+B+jbjqzjweHgdHZ+hS2puAAAAAAAAAPHf3yyo + vWRkZM3Nzc04ODg41m346OcAAAAAAAAAAAAAAAAAAAAAaGjT06Cg/rWGznnOtQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////4AAAH8AAAB+AAAAfAAAAHwAAABwAAAAYAA + AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AA + AB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAD+AAAH//gAP//////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAl15eVoNS + UuOGUVHFt5mZuqmGhvmoiIj5qIaG+aaFhfemhYX3p4SE96aEhPemgoL3pYKC96aAgPekfn73pH1996N8 + fPeienr3onh496F2dvegdXX3oHNz96Fzc/eaaWnvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlr + a1SQW1v6rn5+/I5aWv+wjIz/r4iJ///u7v//5eX//+bm///k5P//4+P//+Tk///j4///4uL//+Hh///j + 4///5OT//+Xl///k5P//4eH//93d///Y2P//19f//9fX/6J0dPoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACvcXFTk19f+cuYmP+9jY38k2Bg/7aSkv+uiIn//+3t///m5v//5+f//+Xl///k5P//4+P//+Hh///h + 4f//5eX/npyc/294eP9jbGz/WGJi/0NPT//OtLT//9nZ///V1f//1NT/oXNz+gAAAAAAAAAAAAAAAAAA + AAAAAAAAtHZ2UZdlZfnJlZX/0p6e/7uPj/2XZGT/uZWV/66Ki///7e3//+fn///m5v//5ub//+Xl///k + 5P//4+P//+Li///k5P/42tr/99fX//nX1//31tb/89HR///c3P//29v//9jY///W1v+hdHT6AAAAAAAA + AAAAAAAAAAAAALN5eU+baWn5ypmZ/9Cfn//PnZ3/vZWV/Zlqav+6mZn/r4uL///v7///6en//+jo///o + 6P//5+f//+bm///k5P//4+P//+jo/6Gfn/93fn7/cXh4/2lwcP9gaGj/VV5e/0ZSUv+Shob//9vb/6J2 + dvoAAAAAAAAAAAAAAADPpKRjwqSk++DExP/kx8f/4sXF/+PExP/YwMD+wKOj/9TAwP/MtbX///Pz///r + 6///6ur//+rq///p6f//5+f//+bm///l5f//5+f/89ra/+/V1f/x1dX/8NLS//DQ0P/vzs7/6snJ//LO + zv//29v/onZ2+gAAAAAAAAAAxaOjYoqedfwTjhH/EpQQ/xKWEP8SmRD/FJ0S/xWeE/8SmxH/FJ0T/xic + Ff//+Pj//+3t///s7P//6+v//+rq///p6f//6Oj//+bm///r6/+fnp7/dHt7/252dv9mbW3/XWVl/1Vd + Xf9HUlL/kIaG///d3f+ieHj6AAAAAAAAAACabW3g3L6+/4i0e/8LlRD/R95q/1Lre/9X8IP/XPWL/1z1 + i/9a84f/B5sG///6+v//7+///+7u///t7f//7Oz//+vr///p6f//6Oj//+jo//7k5P//4+P//+Dg///g + 4P//3+D//93g///b3v//2tz//9vd/6R4ePoAAAAAAAAAAJpxcePctrb/5czM/2mrYP8RoBr/Uut7/1rz + iP9g+ZH/Zf6Y/2P8lf8Imwj///v7///x8f//8PD///Dw///v7///7Oz//+vr///p6f//5+f//+bm///k + 5P//5OT//+Pk//7g3v/g1cH/5tPG/+DMvv/51NL/pnp7+gAAAAAAAAAAm3Nz496+vv/Pzb//HY8c/ym7 + Pv9P6Hf/Ve6A/1v0if9h+pL/Y/yV/wqaCf///Pz///T0///z8///8vL///Dw///v7///7e3//+rq///o + 6P//5ub//+Tk///i4v//5Oj/vdGr/wCNAP8AfgD/AGYA/5qvg/+rfYD6AAAAAAAAAACeeHjj6NbX/zSS + Mf8jsTT/RN1n/0rjcP9Q6Xn/Vu+C/1z1i/9g+ZD/CZkJ///9/f/T0dH/ycfH/8G/v/+7uLj///Dw///v + 7///6+v//+np///n5///5eX//+Pj///j6f/J1Lf/AJsA/wCRAP8AfgD/prqO/61/g/oAAAAAAAAAALCS + lOeVt4v/DZAU/znSVv8/2F//Rd5o/0vkcf9O5nX/PdRc/1rziP8JmQj///7+/9PR0f/Jx8f/wcDA/7u5 + uf//8fH//+/v///s7P//6ur//+jo///m5v//5OT//+Xq/8vXuv8AphL/BJ4I/wCQAP+mwY3/rXyC+gAA + AAAAAAAAv6uv7D+LK/8isTL/NM1O/zrTV/9A2WD/PtZe/w+aF/8MkAX/MshL/wuXCf//////09HR/8nH + x//BwMD/u7m5/7Oxsf//8PD///Dw///r6///6Oj//+bm///k5P//4+j/yNm7/wCyI/8Aqhv/AKAA/6DG + j/+rfYH6AAAAAAAAAADHtrnuFXgO/ye9Ov8vyEf/Nc5Q/zLHS/8Jjgz/gbNl/8KdW/8blRH/DJML//// + //////////7+///8/P///Pz///r6///4+P//9vb///Hx///w8P//7u7//+3t///q6//56OL/vdy4/8Pa + tv+616v/8uDU/6p9f/oAAAAAAAAAAMi3ue4WdhX/Irgz/yrDQP8swkL/CYQK/5Wxdv/m5O3/tKWv/77L + uv8hlx7/yrOy/66Liv+ui4r/rouK/66Liv+ui4r/rouK/66Liv+ui4r/rouK/66Jh/+uiIb/roaG/66F + hv+ug4b+roOF/K6BhPytgYP8pHh59gAAAAAAAAAAwrCx60WNQ/8WoSH/Jb44/w6RFv93rW3/8eXs/9/a + 3v+unKL/z8XJ/8DLvP/Nv8T/yLq//8i4vv/Ft73/xLW8/8Oyu//BsLv/wa62/8Opqv/Fppv/yaSM/82i + f//RoHL/1qBj/7CPlPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC2o6fnpq5y/wZ6Cf8esy3/DnoO/+zr + 7v/pzsT/4Miu/758R/+/i2b/v5h9/7qYh/+2m5f/sqCm/7CfrP+tnKr/q5il/6uSnv+oj5r/pouW/6WG + kv+jgY3/oX2J/596h/+edoD/j11f6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKiYnuP4yZn/RYo7/wd/ + C/87jz3/6MCd/9FoAP/jwpj/zFQA/89eAP/PXwD/z18A/89gAP/PYQD/0GcA/81vAv/LdRP/yXwj/8R/ + Mf/BgUD/vINN/7eEWv+wgGb/qX1x/6R6eP+QXWHpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAq5eZ4/bn + 4P/o7+7/LoAs/0V/Jv/Zi0r/0WsG/+nf0f/CfUD/x3w4/8h2I//JbBD/zWUA/85gAP/QYwD/0mcA/9Nr + AP/VcAD/1nMA/9h4AP/ZegD/2n0A/9t9AP/aewD/3HoA/49hbekAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACrm5zj+vr//+/Ipf/cq2z/gIQv/+KjZ//x4uH/6uvz/7evtv+9tb7/u7bA/7qyvv+5sr//tq67/7ak + qv+4nJT/uZN+/7qMbP+9h1j/wING/8SBNf/JfyT/zHwV/9F6BP/XdwD/kmFs6QAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAK6jqePxtXn/5pQ//+ORPv/y1r//9vb///Po6//r6On/vLCw/7+1tf++s7P/va+v/7us + rP+6qar/uKan/7aipP+0oKT/spyh/6+Yn/+slJ3/qY6Z/6eKlv+khpT/ooOR/6B+iv+WY2XpAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAsKiv4/SrY//xvYj/+/j8//n3/P/27e7/8+bm/+3r6/+9tLT/wbi4/8C1 + tf++srL/va+v/7urq/+5qKj/t6Sk/7WgoP+zm5v/sZeX/6+Tk/+tj4//qouL/6iGhv+mgoL/pH9//5li + YukAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACyqazj/uvX///////7+vz/+fLy//Xs7P/y5+f/7+3t/7+4 + uP/Dvb3/wrm5/8C1tf++srL/vK6u/7qqqv+4paX/tqGh/7Sdnf+xmZn/r5SU/62QkP+rjIz/qYeH/6iD + g/+mgID/mWNj6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALOqq+P9+/3//fv7//n29v/38PD/9Ovr//Pm + 5v/z8fH/wr6+/8W/v//Du7v/wbi4/7+0tP+9r6//u6ur/7mnp/+2oqL/tJ6e/7Kamv+wlZX/rZGR/6uM + jP+piIj/p4WF/6WBgf+YZWXpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtKys4/r09P/59fX/9/Ly//Xt + 7f/z6en/8ePj//Ly8v/Bvr7/w7+//8G6uv/Atrb/vrOz/7uurv+6q6v/uaio/7ejo/+0n5//spqa/7CW + lv+ukZH/rI2N/6mIiP+nhIT/pYGB/5pkZOkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC2r6/j+PDw//Xu + 7v/17Oz/8+np//Ll5f/y6en/9fb2/+vo6P/m5ub/4t/f/9zY2P/U0tL/z8nJ/8m9vf+/tLT/uaen/7Gd + nf+tlZX/rJKS/6uNjf+pior/poeH/6aEhP+kgYH/mmho6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALav + r+P06ur/8+jo//Pn5//17u7/9vLy//Lp6f/v4OD/7d3d/+zZ2f/r1dX/6dLS/+nOzv/nzc3/583N/ufN + zf7nzs7+5c7O/uHHx/7bv7/+1be3/s6vr/7Jp6f+vZmZ/qV/f/6ZZWXpAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAuLGx4/rr6//++Pj///z8//z09P/67+//9+rq//Xm5v/y4uL/793d/+3Z2f/r1dX/6NDQ/+bL + y//jxsb/4MLC/96+vv/eurr/3rm5/9+4uP/Vq6v/wJSU/6t/f/+dcHDsrHd3oqx1dUoAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADBt7fRwLq6/MC9vf7GwcH/ysTE/8zExP/Qxsb/0cbG/9PFxf/XxcX/2MXF/9rG + xv/dxsb/38bG/+HGxv/ixsb/5MbG/9W0tP++m5v/rIaG/q6Cgt20hoaQsICAQbt7ewUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBycgK+wMALwLOzGLWwsCi3s7M3uLKyR7ivr1a4rKxltKendbGj + o4SxnZ2Urpubo6yUlLOnkZHDpouL0qSIiOKkhYXxooODzKV/f32ziIgvAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/////+AAAB/AAAAfgAAAHwAAAB8AAAAcAA + AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAAfgAAAH4AAAB+AAAAfgAAAH4AA + AB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAA/gAAB//4AD///////KAAAADAAAABgAAAAAQAIAAAA + AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A1nwAAFLrewAAmAEAxpqaAFVeXgArw0MAtoZMANPQ + 0AB+ynsAKH4gAO6oYgCLm0UAkmdyAPjJmQADbAQA/93dALeztQCkhJEA4pNDAK/ZqQDMVAAAY6dZAD/Z + XwDHdScAFqUjAGj+nADRoHIA3bm5AHJycgCmwY0ATpVIABZ5FgDu1MAA6O/uAKl9cQCpuXgAn5qaALeQ + fAAAsiMAQ09PAIdbWwC3mlQAxsHCABOOEQDmsX8AK6sxAAN+AgC4pqYARX8mAImddQCBs2UA/+7uAOnV + 1QDN5sYA48bFAN28jADLfjUAzG4RAL+LYwCPiooAr5OUAGVtbQDLra0Aka2FAOC+pwDjo2YANM1QAJ52 + gAAxkTEA3ZVNAM1oAQAAphIAW/SJAKx/ggDKoosA7buNAEbfaQDy5OQA5d/gAODVwQABjgEAu42NANB6 + GADFppsAl2ZmAPrn0wAimSAA+fX2ABmbGACvnqsA78ilAAaCCQC/y7sACp0PAMS1tQD21dUARogxAL3c + uADSxcUAdMBvAI+ydQC0gFoAtK+vANOifACfdHMAsYFpAPLg1AC5nJ4ArIuLAN2YWQD/5uYAkbGOADuP + PQCwm6EAfHx8ANje1ABfZ2cAva6vAN6+vQCjh4gADnoOAObk7QDTdgAAvXxAAOGtegDQnp4A0M2/AO3f + 4AAmvjkA9NDNALu0vwAXlRYAn5SUAJxubgD17OwAupiHAAyQBQA601cAx6aiAKyRmQDOtbUAS+NwAP/3 + 9wAvx0oAYPmQAKSAgAAAqhsAoHyJANBvAADpzsQA6d/RALKmrwDMYwAA0nkDAOXMugAIeAYAybu8ANet + rQCrpKQAvpSUACGNHwDSgCkAvnxHAJJjaQD29v8AVu+CAMrIyAAOpRoAonp6AOTMzQBDhzcA/9nZAAuW + DQBubm4Au7m5APjo4QD23NwAw4E1AL6iowCpmJkA7ejoAJ54eACmn58Al9GTANm8vACPW1sADI0OAMvA + xACznp4AvI9uAL2XgQAtuEIADo8VAMKwuQCSYGAAwqqrALiUlADz8PEAz3MSAOnBnwC6qqsAFXgOAAWe + CwDdxsUAp4uNAP77+wASlhAA8ujpACC5NQCwqakAprqOABOZHQDWtLQAwIlcAM9sCADq6/MAGrAtALLG + qgCrmKUAz8vLAMPatgDBuroA6MjIAKmMkwCtj44A6NDQAFhiYgDBhEsAmWlpALKZmQCxiIMA9/HxAPDs + 7ADm08YAvJ+SAP/p6QD/4uIA8NXVAN/DwwC9s7QA3tvbALahowBHUlIA9tHRAE7odQCulpwApoOEAOnl + 4gDr2doAwr6+AKF8fACoh4kArZydAP/z8wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh2pqampqampqampqampqaoeHh4eHh+bm5ubm5lZWVlZW + VgAAAAAAAAAAAAAAAAAAau1knp6enp6enp6enp6enp6eno6Ojo6Ojo5AQEBAQEAdVgAAAAAAAAAAAAAA + AAAAtJD/iIiIiE9PT09PT09PT4GBsrKysrKysmFh9fWDgx0dVgAAAAAAAEZYWKJYWFhYWFhYWFgaF/81 + NTXt7e3t7Z7T06C4JoY9PbURERGtrTgdVgAAAAAAAAC80o+Pj/YDp6enp0qRF/81NTU17e3t7dM9PT09 + dB6vrz3uERGtrTh4VgAAAAAAAAAAvERKSpIbGxsbGxsHZf81NTU1Ne3t7d+goCYmhj09PYbuERERETh4 + VgAAAAAAAAAAADCLp0qSkhsbGxvSuf81NTU1NTXt7e3t7e3tcHBwcO7u7hEREeB4VgAAAAAAAAAAohoD + p6dKkpIbGxupFf81NTU1NTXt7Z7T06C4JiYmhoY9PbUREeB4VgAAAAAAAACi2vb2AwOnSpKSGxvMNzU1 + NTU1NTU17dM9PT09dHR0dB6vrz0REeB45gAAAAAAAEYaTk6PjwOnp0qSGxtS+f81NTU1NTU1Nd+goCYm + JoaGPT09PYYREeB4VgAAAAAAF10YGE5Oj/YDp6dKkkqu6TU1NTU1NTU1Ne3t7e3t7e3tcHBw7u4REeDw + 5gAAAAAAIcGLGBhOTo/2A0pKko/akP//NTU1NTU1NZ7T06C4JiYmhoY9PbXuEeB45gAAAABxXUREixgY + Tk6PAxqRkhjBkP///zU1NTU1NdM9PT09dHR0dB6vrz3u7uDw5gAAAN8g1URERIsYGE5OriCFkUQXkP// + //81NTU1Nd/ToCYmJoaGPT09PYbu7uDw5gAAAG2sGpGRRESLGERSF891hV8KkP//////NTU1NTU17e3t + 7e3t7XBwcO7u7qvw5gAA/EBiGgcHkUSLBzBmtM+QdVq5kP//////NTU1NTU1Ne3t7e3t7XBwcO7u7qvw + 5gAAanggGoIHB0SCnSvJqs+QkHU3kP////////81NTU1Ne3t7e3tL1hYoguscKvw5gAAt7oXwoKCB4Kd + JRQu/M+QdQmo37AS0/v/////NTU1NTXt7e3tqQRSUjCicOPwhwAA/NZBndKCgjANl2tMkwGQdd0s+7AS + aCz/////NTU1NTXt7e3tGswEUlJYcOPwhwAA/NaAENrSwmKXq/3FkwGQkJCQkJCQkJD/////NTU1NTXt + 7e3t2qnMBFJY7eM4hwAAk9b6C6nanYDwq253kwHPdd0s+7AS0/uQ/////zU1NTU17e3t0hqpzARYcOM4 + hwAA+NbJF128FzZ4nGuMkwHPdQks+7ASaCyQ/////zU1NTU17e3twdoaqcwvcOM4hwAAeX4MORAQ23ij + fkgukwHPz8+QkJCQkJCQ/////zU1NTU17e3tkdLa2hovcOPwhwAAzi4MIiAhnEjIOcgukwHPdQmo+/uw + Emho3////zU1NTU17e3tRAfB0trBcOPwhwAAzk2X+tusR0jInDxpkwEBdQmoLPuwEmho+////zU1NTU1 + 7e3t7e3t7XBwcLLwhwAAzs36Nn4Iozo4gfOe+AEBAQEBz8/PkJCQkJD/kP//NTU1NTU1Ne3t7e3t7e3t + hwAAhquXFBQUQ/o2gTGe/eLi4m5u/f39+Pj4k5OT/KqqqqpqampqamqHh4eHh4eHhwAAhkIMFBTJgfr6 + gbS9vb0snp6enmBgYGBAxcXFxcW0tLRt4gAAAAAAAAAAAAAAAAAAtX4MQ4NPT/pvOciaSDsZOn0IPL8n + 4j6N4eHO/fiT/KpqxAAAAAAAAAAAAAAAAAAA/i5NT0/RyTvIyaOaSEhISEhISEhIlpZ8VFSjs30IZ2tq + xAAAAAAAAAAAAAAAAAAA/pyIiNFD2EjYIisZyNhImpqaSEiWlpZ8fJubAgICAgLIpQAAAAAAAAAAAAAA + AAAA/lBZIhRUyFTJx57x8RJ3MezAv9flOqNUm5t8AgICAnzIpQAAAAAAAAAAAAAAAAAAvvnJFBSjQ0/R + 6p7xd3d3d8rKMTHz83Nz9z7i6GtnCH19VgAAAAAAAAAAAAAAAAAA0y4MFBQiWYhPiCzx8fF3d8rKMTHz + vufnPj7i4v39+JOqVgAAAAAAAAAAAAAAAAAA0y4MTVlZ6YhPiL3fYPHxd3fKyjHzvr7nPj7i4m79+JOq + VgAAAAAAAAAAAAAAAAAA001XAVlZ6YhPiN37399g8Xd3yjEx877n5z7i4m79+JOq5gAAAAAAAAAAAAAA + AAAA0+oBz1npiIhPiN0s+9/f8fF3ysox877n5z4+4m79+PiqVgAAAAAAAAAAAAAAAAAAaLaQWVnpiIhP + xwksLJ7fYPF3d8ox876+5z4+4m79+JOq5gAAAAAAAAAAAAAAAAAAaLZZ6emIiNFPxwksLPvfYPF3d8ox + 876+5z4+4m79+Piq5gAAAAAAAAAAAAAAAAAAaPnp6YiI0U9P6VAJCaj73/F3yjEx876+5z4+4m79+Piq + 5gAAAAAAAAAAAAAAAAAAaIGIiIjRT4jHiE9PT9HRT/lQdQkJZJ5gyvPn4v39+Piq5gAAAAAAAAAAAAAA + AAAA8YHRT9Hp6YhPT4GB+jbj46urOPDweHgdHR0d1tZAtG5q5gAAAAAAAAAAAAAAAAAAd/rR6VnpiNFP + T4GB+jY246urOPDweHgd1tbWnwXoaof4AAAAAAAAAAAAAAAAAAAAaN3yUFD5gU9PT0+Bgfo24+Orqzjw + eHh41oxuqvziAAAAAAAAAAAAAAAAAAAAAAAA8bDf39/73/FoaMrKynd3d0BAQI6O1ow+k24+AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPToKD+tbWGzs61AAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP/4 + AAAAAQAA//gAAAABAAD/+AAAAAEAAPgAAAAAAQAA/AAAAAABAAD+AAAAAAEAAP8AAAAAAQAA/gAAAAAB + AAD8AAAAAAEAAPgAAAAAAQAA8AAAAAABAADwAAAAAAEAAOAAAAAAAQAAwAAAAAABAADAAAAAAAEAAIAA + AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB + AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAA + AAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB// + AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAA//wAAgAAAAf//AACAAAAP//8AAP/8 + AH///wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ1v + b/+gdXX/oXV1/6F2dv+hdnb/oHZ2/6B1df+gdXX/oHV1/6B1df+fdHT/n3R0/59zc/+fc3P/nnJy/55x + cf+db2//nXBw/51ubv+dbW3/nGxs/5xsbP+ba2v/m2pq/5pra/+aaWn/mWho/5pnZ/+ZZ2f/mGdn/5hm + Zv+YZWX/l2Vl/5lmZv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAJ1xcf/86ur/1cXF/8u8vP/LvLz/zLy8/8y8vP/Mvb3/zL29/8y7u//MvLz/zLy8/8y7 + u//OvLz/zbu7/827u//Nu7v/zbq6/826uv/Nubn/zbi4/863t//Otrb/zrW1/860tP/OsrL/zrCw/82v + r//Nra3/zaur/82qqv/Nqan/4rq6/5ZkZP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCjo///9/f///T0//ns7P/57e3/+e3t//jr6//14+P/9eLi//Xi + 4v/14uL/9eHh//Xh4f/24eH/9uDg//bg4P/239//9t/f//be3v/23t7/9t3d//bc3P/22tr/9tnZ//bY + 2P/21dX/9tTU//bS0v/20ND/9s7O//fMzP/jurr/37i4/5VjY/8AAAAAAAAAAAAAAAAAAAAAAAAAAACi + ABYAjgC4AI8AyQCQAMkAjgDRAJEA0QCSANEAkgDRAJQA1R6VGv8moCX/JqAl/yWgJP8dnRz/HZ8c/1G1 + Tv//8vL//+zs///s7P//7Oz//+vr///r6///6ur//+rq///p6f/Fu7v/sKqq/6+oqP+qo6P/pp+f/6Ob + m/+ZkZH/lo6O/5OMjP+mmZn//9/f///d3f//2tr//9jY///Y2P/owsL/3rq6/5ZlZf8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAngA1AI4A7SO3Nv9K4m//SeFt/0rjcf9N5nX/Uut7/1XugP9V7n//Ve5//1Xu + f/9c9Yr/MsxM/1e2U///8vL//+3t///t7f//7Oz//+zs///r6///6+v//+rq///q6v+uqan/k5OT/5CQ + kP+Kior/hISE/4CAgP9ycnL/b29v/2xsbP+GgID//+Dg///e3v//29v//9nZ///Z2f/ow8P/3ru7/5hm + Zv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ0ANwCLAO04zlT/XveL/1z1i/9g+ZD/Y/yV/2b/ + mv9m/5v/aP+c/2f/nP9t/6L/LcZE/3TAb///8vL//+7u///t7f//7e3//+3t///s7P//6+v//+vr///q + 6v/At7f/q6am/6ijo/+jnp7/nZiY/5yWlv+Ri4v/jomJ/42Hh/+il5f//+Hh///f3///3Nz//9ra///a + 2v/oxMT/3ry8/5dmZv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACRAEYAgwD+OtBW/1jx + hf9a84j/XveN/2H6lP9m/5j/Zv+a/2b/mf9r/6L/H7gv/5LNjf//8fH//+7u///u7v//7e3//+3t///s + 7P//7Oz//+vr///r6///6en//+np///p6f//6Oj//+fn///m5v//5ub//+Xl///l5f//4+P//+Li///g + 4P//3d3//9vb///b2//oxcX/3r6+/5dnZ/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJsAFwCF + ANAYqCX/Uut7/1Ttf/9X8IP/W/SI/173jv9i+5P/Zv+Z/2f/mv9t/6T/E6wb/6/Zqf//8fH//+/v///u + 7v//7u7//+3t///t7f//7Oz//+vr///r6//FvLz/sKqq/6+pqf+qo6P/pp+f/6OcnP+gmpr/npeX/52W + lv+ZkZH/lo6O/5OLi/+mmJj//9zc///c3P/oxsb/3r29/5dnZ/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAhwARAIIA0RysK/9Q6nb/Tud1/1Hqef9U7X7/WPGE/1v0if9e947/YvuT/2b/mf9t/6T/BJ0G/83k + xv//8PD//+/v///v7///7u7//+7u///t7f//7e3//+zs///r6/+uqan/k5OT/5CQkP+Kior/hISE/4CA + gP9+fn7/e3t7/3h4eP9ycnL/b29v/2xsbP+Gf3///93d///e3v/oxsb/3r6+/5loaP8AAAAAAAAAAAAA + AAAAAAAAAAAAAAB/AAIAfgC1FZ4f/0fibP9G32v/SuNv/03mdP9R6nr/VO1//1jxhP9b9In/X/iP/2L7 + lf9q/6D/ApUC/+ju4P//8fH///Dw///v7///7+///+/v///u7v//7e3//+zs///s7P/AuLj/q6am/6ij + o/+jnp7/nZiY/5yXl/+ZlJT/l5KS/5WPj/+Ri4v/jomJ/42Hh/+ilpb//97e///d3f/ox8f/3r+//5ln + Z/8AAAAAAAAAAAAAAAAAAAAAAAAAAACAAGEFhgj/Ptle/0HaYf9D3GX/R+Bq/0rjb/9O53X/Uep6/1Xu + f/9Y8YT/XPWK/2D5kP9c9Yv/DZgN//r08f//8PD///Dw///w8P//7+///+/v///u7v//7u7//+3t///s + 7P//6+v//+vr///q6v//6en//+jo///o6P//5+f//+fn///m5v//5eX//+Xl///k5P//4eH//9/f///e + 3v/oyMj/4MHB/5lpaf8AAAAAAAAAAAAAAAAAAAAAAG0ABxB/D+8pvD7/O9VZ/z3WW/9A2WD/Q9xl/0fg + a/9K43D/Tud1/1Lre/9Z8oX/W/SK/173jf9N5nL/Jqol///29v//8fH///Hx///w8P//8PD//+/v///v + 7///7u7//+3t///t7f/FvLz/sKur/6+pqf+qpKT/pp+f/6OcnP+gmpr/npiY/52Wlv+ZkZH/lo6O/5OM + jP+mmZn//+Dg///f3//oycn/38DA/5hoaP8AAAAAAAAAAAAAAAAAAAAAg7R+pAaACf820lH/Ns9R/znS + Vv891lv/QNlh/0TdZv9H4Gv/TeZy/1Hqev8Uph//MMVI/2L7kv891lz/Q7VB///29v//8vL///Hx///x + 8f//8PD///Dw///v7///7u7//+7u///t7f+uqqr/k5OT/5CQkP+Kior/hISE/4CAgP9+fn7/e3t7/3h4 + eP9ycnL/b29v/2xsbP+GgID//+Hh///g4P/oycn/38LC/5pqav8AAAAAAAAAAAAAAADk1NRVVotL9xOZ + Hf8zzUv/M8xM/zbPUf8601b/PdZc/0LbYf9G4Gn/RN1m/wmUDP9Lq0r/F5MW/zPJTP8zy03/YcFe///1 + 9f//8vL///Ly///x8f//8fH///Dw///w8P//7+///+7u///t7f/AuLj/q6en/6ijo/+jnp7/nZmZ/5yX + l/+ZlJT/l5KS/5WQkP+Ri4v/jomJ/42Hh/+il5f//+Hh///i4v/oysr/38HB/5ppaf8AAAAAAAAAAKVw + cB+6m5vpPoM2/xqlJ/8tyEX/MMlI/zPMTf82z1L/OtNX/0DZYP82zFL/AokC/2OgV//9+vn/1OjO/xeW + Fv8KnQ//fsp7///19f//8/P///Ly///y8v//8fH///Hx///w8P//7+///+7u///u7v//7Oz//+zs///r + 6///6ur//+np///p6f//6Oj//+jo///n5///5ub//+bm///l5f//5OT//+Li///h4f/oy8v/38PD/5pr + a/8AAAAAAAAAAJ5yctDJq6v/O4U1/xqnJ/8qxD//LcZD/zDJSP8zzE3/OtRV/yzAQ/8GgAT/j7J1/7yf + n///+vr///f3/9Pozf8Zmxj/nNWY///19f//8/P///Pz///y8v//8vL///Hx///w8P//8PD//+/v///u + 7v//7e3//+zs///s7P//6+v//+rq///p6f//6en//+jo///o6P//5ub//+bm///l5f//5OT//+Pj///i + 4v/oy8v/38LC/5pqav8AAAAAAAAAAJ1ycuvav7//SYtC/xaeIP8nwjr/KsM+/y3GRf8zzkz/J7g5/wl9 + Bv+goEv/7MWd/6N7e///+vr///b2///39//U6s//zOjG///29v//9PT///T0///z8///8/P///Ly///y + 8v//8fH///Dw///v7///7u7//+3t///t7f//6+v//+rq///q6v//6en//+np/yyrMf8knSH/JJUh/ySO + IP8kfyD/QYg6///l5f/ozc3/38TE/5tra/8AAAAAAAAAAJ51devZvLz/ZZhc/w+QFv8kvzb/Jr86/yvF + Qf8mujr/BngD/6m5eP/ajDf/57OB/6R8fP///Pz///n5/9jW1v/R0ND/ysnJ/768vP+6uLj/tbS0/66s + rP/Bvb3///T0///z8///8vL///Hx///w8P//7u7//+7u///t7f//7Oz//+vr///r6///6ur//+np/w+o + H/8BmQL/AJIA/wCLAP8AgQD/Iosf///l5f/ozs7/38XF/5ttbf8AAAAAAAAAAJ94eOvXuLj/ka2F/wZ8 + Cv8ivjL/I702/yjBO/8CeAH/i5tF/+bQxP+uf2z/yqKL/6R+fv///v7///j4/9rY2P/Pzc3/xcTE/7+9 + vf+7ubn/trW1/7Cvr//EwMD///T0///z8///8vL///Hx///w8P//7+///+7u///u7v//7Oz//+vr///r + 6///6ur//+rq/xOsJ/8EnQr/AJcA/wCRAP8AiAD/IpQf///l5f/oz8//38XF/5tsbP8AAAAAAAAAAKB5 + eevTs7P/zsu+/wNrA/8dtyz/Ir4z/w2NFP9Qiyz/5crD/9/Mzv+nhoj/wqus/6R+fv///f3///n5///5 + +f//+fn///j4///39///9/f///b2///19f//9fX///T0///z8///8vL///Hx///w8P//7+///+7u///u + 7v//7e3//+vr///r6///6ur//+rq/xewMP8KoxX/BJ0J/wCYAf8AkAD/Ipof///n5//oz8//38fH/5ts + bP8AAAAAAAAAAKJ+fuvTtLT/69nb/yt8IP8SnRv/G7Ip/wlvBv/Sz8D/3sDC/+LQ0f+pi43/w66u/6V/ + f////v7///v7/9jX1//Ozc3/xcTE/769vf+6uLj/tbS0/66srP/Bvr7///X1///09P//8vL///Hx///x + 8f//7+///+7u///u7v//7e3//+zs///r6///6ur//+rq/xy1Ov8QqSH/CqMW/wafDf8BmQL/IqEf///m + 5v/oz8//38bG/5tsbP8AAAAAAAAAAKSBgevUuLr/7L2V/32ZTf8HgAv/DI0R/1+cWf/o09X/38C//+HK + u/+1hGj/yKuh/6Z/f/////////r6/9rY2P/Pzs7/xcTE/7++vv+7ubn/trW1/7Cvr//EwMD///X1///0 + 9P//8/P///Hx///x8f//7+///+/v///u7v//7e3//+zs///r6///6+v//+rq/yG6Rf8Wry7/Eaok/w2m + HP8IoRD/J6gq///m5v/o0ND/4MbG/5tubv8AAAAAAAAAAKSFh+vgqnv/8Kxo/9a+h/8FawX/Am4D/7TF + qv/iw7r/1n8t/92xf//PaQL/57KB/6aAgP////////z8///6+v//+vr///n5///4+P//+Pj///f3///2 + 9v//9vb///X1///09P//8/P///Ly///x8f//7+///+/v///u7v//7e3//+zs///r6///6+v//+rq/yjB + UP8dtjv/GLEy/xWuK/8QqSH/L685///m5v/nz8//3sbG/5xtbf8AAAAAAAAAAKWGievkrXz/8q9r/+/T + w/9Lkkj/E3AS/+bLuP/OaQP/0nER/+C7jf/RdA//5rKB/6aAgP////////v7/9nY2P/Pz8//ycjI/8HA + wP+/vr7/u7q6/7W0tP+zsrL/sK6u/8C8vP//8/P///Ly///x8f//7+///+/v///u7v//7e3//+zs///r + 6///6+v//+rq/y7HXf8kvUn/ILlB/xy1Ov8YsTH/NrZH///m5v/nz8//3sbG/5xtbf8AAAAAAAAAAKeJ + i+vns4f/68zB/+rX2/+vxqn/SYo1/92VTf/NaQL/0nMX/+XQuf/BjmT/06J8/6aBgf////////39/9nY + 2P/Pz8//ycjI/8PCwv/Avr7/vLu7/7a1tf+0srL/sK+v/8K9vf//8/P///Ly///x8f//8PD//+/v///u + 7v//7e3//+zs///r6///6+v//+rq///q6v//6Oj//+jo///n5///5ub//+bm///m5v/339//3sbG/5xt + bf8AAAAAAAAAAKiNjevdxsX/6tfa/+nV1P/jrHf/p5VF/9mEL//XgzH/5MjB/+rg4/+0oKL/yLm8/6eD + g//////////////+/v///v7///39///7+///+/v///r6///5+f//+Pj///n5///4+P//9fX///T0///1 + 9f//8fH///Ly///w8P//8PD//+/v///u7v//7e3//+3t///s7P//6+v//+rq///q6v//6en//+jo///n + 5///6Oj//+fn/5tsbP8AAAAAAAAAAKmQkOvey87/7NHI/+SbUf/fizn/4JBA/9+haP/p2Nv/59PU/+rh + 4f+3pKX/yru7/6iGhv+tj4//rI+P/6uNjf+sjIz/q4qK/6mJif+ph4f/qIaG/6iFhf+nhIT/p4SE/6aB + gf+lgID/pH9//6R9ff+je3v/oXp6/6J6ev+geHj/n3Z2/6B1df+fdXX/nnNz/55ycv+dcXH/nHBw/51v + b/+cbm7/mmxs/5psbP+abGz/mmxs/51ubv8AAAAAAAAAAKqSlOvgvqf/66NZ/+abTf/jk0H/57+h/+ze + 5P/r2dr/6tjc/+vi4/+8pJ//y7/C/8rAxf/LvsP/yr7C/8q8v//Ku77/ybq8/8i3uv/Itrf/x7W1/8az + tP/FsLD/xa+v/8Otrf/Dq6z/wqmr/8Gnqf+/p6n/vqSn/72ipf+8oKT/upuf/7KPj/YAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK2WmevjrHb/7qhi/+qo + Zf/u1s3/7+Hl/+7h5P/s2tj/3ZhZ/+G7kf/RcxT/zGMA/8tnA//JbhX/x3Ql/8V4M//BfkT/v4RS/72I + Yf+6jW7/t5B8/7KSif+ukpT/rJGZ/6mNlP+pi5L/qIiO/6aFiv+lgYX/o36B/6N8f/+ienv/n3Jz/5Jd + XfIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK2a + nevnsH7/8r+P//Lk5P/x5ef/8unu/+bBp//Pbg3/0nER/+TGo//SfiT/zGQA/8xlAP/MZQD/zWUA/81l + AP/NZQD/zWYA/81oAP/OagD/0GsA/9FvAP/RcQD/0nUA/856Dv/LfRv/x4Ap/8OBNf+/gkH/uX9L/7R+ + V/+te2H/pXRp/5JeX/IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAK6cnevozLr/9Ozv//Tr7v/z6er/4KJn/9BqBP/NaAL/0m8N/+nUu//OlFz/x3Yo/8lx + GP/Lagj/zGUA/8xjAP/NYwD/zWMA/81nAP/OagD/z2wA/9BuAP/RcgD/0XQA/9J2AP/TeQD/1HsA/9V9 + AP/WfgD/1n0A/9Z8AP/WewD/y3UM/5JfZPIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAALGdnevn3uD/9/L2//HZyP/fjj7/2Hwf/9R1FP/Udxn/5r6i//Du + 8v/Dur3/u7K3/7yyuP+6sLf/uq2y/7qopv+8n5L/vZeB/76Qbv/AiVz/wYRL/8WAOv/HfSn/ynkZ/894 + C//SeAD/1XgA/9V6AP/VewD/1XsA/9V6AP/UeAD/yHQP/5NjafIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALGgoevq4+T/78OZ/+STQP/gjTj/24Im/+Ki + Y//x5eT/8ebp//Ds7P/Gvb3/vrKy/76xsf+9sLD/vK6v/7utrf+6q6z/uaiq/7imqf+2pKf/taGl/7Kf + pP+xnKL/r5mf/66WnP+skpf/rI2O/6+Jfv+yhG3/tIFd/7h+Tf+8ez//uHU7/5VkZ/IAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALSnqevksX//7KRb/+eb + T//kmUr/8NG5//fy9//06er/8eXl//Hs7P/JwcH/wLW1/7+0tP+/srL/vrGx/7yurv+7rKz/uqqq/7mn + p/+3pKT/tqGh/7Senv+zm5v/sZiY/7CVlf+ukpP/rY+Q/6uMjv+piov/qIWI/6WChf+lgIP/oXh7/5dj + ZPIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALWp + q+vmsX//7qhh//C/jv/69PP/+fT2//fv7//06ur/8ubm//Pt7f/LxMT/wri4/8G3t//AtbX/v7Oz/76x + sf+8rq7/u6ys/7qpqf+4pqb/tqOj/7WgoP+znZ3/spmZ/7CWlv+vk5P/rZCQ/6uNjf+qior/qIaG/6eD + g/+lgYH/oXl5/5hkZPIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAALWsrevqu47/+ufT//3////69/j/+PT0//bv7//06+v/8ufn//Lu7v/Nycn/w7y8/8K6 + uv/BuLj/wLa2/7+zs/+9sLD/vK2t/7qqqv+5p6f/t6Sk/7ahof+0np7/spub/7GXl/+vlJT/rpGR/6yO + jv+qior/qYeH/6eEhP+lgID/o3p6/5hmZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAALarrOvv6+z///7///37+//69vb/+PLy//bu7v/06+v/8ufn//Pu + 7v/Py8v/xb+//8S9vf/Durr/wbi4/8C1tf++srL/va+v/7usrP+5qan/uKWl/7aiov+0n5//s5ub/7GY + mP+vlZX/rpKS/6yOjv+ri4v/qYiI/6eEhP+ngoL/onp6/5hlZfIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALetrevt6en//Pj4//r4+P/59PT/9/Ly//Xt + 7f/06+v/8ubm//Pw8P/R0ND/xsLC/8W/v//EvLz/wrq6/8G2tv+/s7P/vbCw/7ytrf+6qan/uKam/7aj + o/+1oKD/s5yc/7GZmf+wlpb/rpKS/6yPj/+ri4v/qYiI/6iFhf+mgYH/ont7/5lnZ/IAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALmxsevs5+f/+vT0//jz + 8//38fH/9u7u//Xr6//z6Oj/8eTk//Tv7//T0tL/xsPD/8bBwf/Evr7/w7u7/8G3t/+/tLT/vrGx/7yt + rf+6qqr/uaen/7ejo/+1oKD/s52d/7KZmf+wlpb/rpOT/62Pj/+rjIz/qYiI/6iFhf+mg4P/ont7/5lm + ZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALqz + s+vq4+P/+PDw//bv7//27u7/9ezs//Pp6f/y5ub/8OLi//Xw8P/i4uL/1tTU/9DOzv/Lxsb/xb29/8C3 + t/++s7P/vK+v/7qsrP+4qKj/uKam/7ajo/+0n5//spyc/7KYmP+wlpb/rpOT/62Pj/+rjIz/qYmJ/6iF + hf+mgoL/ont7/5lmZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAALq0tOvp4eH/9ezs//Tr6//06ur/8+jo//Ln5//z6+v/9fPz//Pt7f/x5+f/8efn//Hn + 5//x6Oj/8Ojo/+7m5v/r4+P/597e/+HZ2f/c09P+1s3N/9HHx/7Mv7/+xba2/r+trf64oqL/sJeX/6yP + j/+pior/p4iI/6eEhP+mgoL/o3t7/5lmZvIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAALq1tevo3t7/8+jo//Ln5//z6Oj/9e/v//fy8v/07e3/8eXl//Di + 4v/u39//7dzc/+vZ2f/q1tb/6NLS/+fPz//lzMz/48rK/+LHx//gxMT/4MHB/96+vv/du7v/3bu7/ty6 + uv7bu7v+3Ly8/tm4uP7Vs7P+z6ur/sejo/60jo7+oHV1/5lnZ/EAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuzs+vn29v/9Onp//jx8f/69vb/9/Dw//bt + 7f/z6en/8+bm//Dj4//v4OD/7d3d/+za2v/q19f/6NTU/+fR0f/lzs7/5MvL/+LHx//hxMT/38HB/96+ + vv/cu7v/27i4/9m1tf/as7P/2LGx/9etrf/Gmpr/soeH/6Fzc/6cbW3wo3BwqKNtbU0AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALq0tOvRysr/3tvb/+Le + 3v/m4OD/6OLi/+ri4v/u5OT/8OTk//Hk5P/y5OT/8ODg/+/d3f/t2tr/7NfX/+nT0//n0ND/5s3N/+TK + yv/jx8f/4MPD/9+/v//dvb3/3ru7/9i0tP/GoKD/souL/6J6ev6hdnbmp3l5mah3d0mzaWkIAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMi+ + vnLIv7+eyMLCrsjBwb7IwcHOyMLC3ca9ve28tLT5uK6u/retrf64rKz+uqys/7ysrP+/ra3/wa2t/8Sv + r//Gr6//yK+v/8uvr//MsbH/zrGx/9Gzs//Gpqb/s5GR/6WAgP6sg4PZrYODiqx/fzpXW1sDAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACztLQDqaqqD7mwsB21qqots6enPbKl + pU20o6Ncs52dbK+cnHytmJiMrZaWm6uSkquqj4+7qIuLyqiJidqmhobJpYSEe7CKiisAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD/+AAAAAEAAP/4AAAAAQAA//gAAAAB + AAD4AAAAAAEAAPwAAAAAAQAA/gAAAAABAAD/AAAAAAEAAP4AAAAAAQAA/AAAAAABAAD4AAAAAAEAAPAA + AAAAAQAA8AAAAAABAADgAAAAAAEAAMAAAAAAAQAAwAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB + AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA + AAAAAQAAgAAAAAABAACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB// + AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAAAAAf/wAAgAAAAB//AACAAAAAH/8AAIAA + AAAf/wAAgAAAAB//AACAAAAAP/8AAIAAAAH//wAAgAAAD///AAD//AB///8AAP///////wAA + + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmWiedervorlage.vb b/app - Kopie/DD-Record-Organiser/frmWiedervorlage.vb new file mode 100644 index 0000000..0c5c9e7 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmWiedervorlage.vb @@ -0,0 +1,331 @@ +Public Class frmWiedervorlage + Dim Formloaded As Boolean = False + Private Sub TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.Click + Save_FollowUP_EMail + End Sub + Sub Save_FollowUP_EMail() + Try + Me.TBPMO_FOLLOW_UP_EMAILBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBPMO_FOLLOW_UP_EMAILBindingSource.EndEdit() + TBPMO_FOLLOW_UP_EMAILTableAdapter.Update(Me.DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL) + lblSaveWVEmail.Visible = True + Else + lblSaveWVEmail.Visible = False + End If + Catch ex As Exception + MsgBox("Fehler in Save_FollowUP_EMail:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub frmWiedervorlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID") + Dim DT2 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID") + Dim DT3 As DataTable = ClassDatabase.Return_Datatable("select GUID,NAME FROM TBPMO_FOLLOW_UP_EMAIL ORDER BY NAME") + Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL AND MODULE_RECORD_ORG = 1 order by USERNAME") + + PARENT_IDComboBox.DataSource = DT3 + PARENT_IDComboBox.DisplayMember = DT3.Columns(1).ColumnName + PARENT_IDComboBox.ValueMember = DT3.Columns(0).ColumnName + + DEPENDENT_DATE_CTRL_IDComboBox.DataSource = DT1 + DEPENDENT_DATE_CTRL_IDComboBox.DisplayMember = DT1.Columns(1).ColumnName + DEPENDENT_DATE_CTRL_IDComboBox.ValueMember = DT1.Columns(0).ColumnName + DEPENDENT_DONE_CTRL_IDComboBox.DataSource = DT2 + DEPENDENT_DONE_CTRL_IDComboBox.DisplayMember = DT2.Columns(1).ColumnName + DEPENDENT_DONE_CTRL_IDComboBox.ValueMember = DT2.Columns(0).ColumnName + cmbUser.DataSource = DTUser + cmbUser.DisplayMember = DTUser.Columns(1).ColumnName + cmbUser.ValueMember = DTUser.Columns(0).ColumnName + TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MyConnectionString + Load_WV_Profiles() + Catch ex As Exception + MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub Load_WV_PRofiles() + Try + Me.TBPMO_FOLLOW_UP_EMAILTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL) + Catch ex As Exception + MsgBox("Error in Load_WV_PRofiles:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Dim loaded As Boolean = False + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + Select Case XtraTabControl1.SelectedTabPageIndex + Case 0 + Case 1 + Try + loaded = False + Dim sql2 = "SELECT FOLLOW_UP_LOG_ERR_ONLY FROM TBPMO_KONFIGURATION WHERE GUID = 1" + chkbxLogErrorsonly.Checked = CBool(ClassDatabase.Execute_Scalar(sql2)) + load_EmailProfiles() + Catch ex As Exception + MsgBox("Fehler beim Laden der Grundeinstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + loaded = True + End Select + End Sub + + Private Sub chkbxLogErrorsonly_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxLogErrorsonly.CheckedChanged + Try + If loaded = True Then + Dim bool As Integer + If chkbxLogErrorsonly.Checked Then + bool = 1 + Else + bool = 0 + End If + Dim upd = "UPDATE TBPMO_KONFIGURATION SET FOLLOW_UP_LOG_ERR_ONLY = " & bool & " WHERE GUID = 1" + ClassDatabase.Execute_non_Query(upd, True) + End If + Catch ex As Exception + MsgBox("Fehler bei Update LogErrorsOnly:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnEmailConfig_Click(sender As Object, e As EventArgs) Handles btnEmailConfig.Click + frmDD_EMAIL_ACCOUNT.ShowDialog() + load_EmailProfiles() + End Sub + Sub load_EmailProfiles() + Try + Dim sql1 = "SELECT FOLLOW_UP_EMAIL_PROFILE FROM TBPMO_KONFIGURATION WHERE GUID = 1" + Dim email_id = ClassDatabase.Execute_Scalar(sql1) + Dim sql = "SELECT GUID, NAME FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + If Not IsNothing(DT) Then + cmbWWEmail.DataSource = DT + cmbWWEmail.DisplayMember = DT.Columns(1).ColumnName + cmbWWEmail.ValueMember = DT.Columns(0).ColumnName + Dim emailp = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBDD_EMAIL_ACCOUNT WHERE GUID = " & email_id) + cmbWWEmail.SelectedIndex = cmbWWEmail.FindStringExact(emailp) + End If + Catch ex As Exception + MsgBox("Fehler bei Load EmailProfiles:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TBPMO_FOLLOW_UP_EMAILBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_FOLLOW_UP_EMAILBindingSource.AddingNew + Try + DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn.DefaultValue = Environment.UserName + DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn.DefaultValue = "0000000" + Catch ex As Exception + MsgBox("Fehler bei Add Record FollowUp:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Load_User_2_Profile(ID As Integer) + Try + Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & GUIDTextBox.Text & " ORDER BY T1.USERNAME" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + ListBoxUser2Profile.DataSource = DT + ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName + ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName + Catch ex As Exception + MsgBox("Fehler bei LaodUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TBPMO_FOLLOW_UP_EMAILBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_FOLLOW_UP_EMAILBindingSource.CurrentChanged + If GUIDTextBox.Text <> "" Then + Load_User_2_Profile(GUIDTextBox.Text) + SetCheckbox() + End If + End Sub + + Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click + If cmbUser.SelectedIndex <> -1 Then + Try + Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & cmbUser.SelectedValue & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')" + If ClassDatabase.Execute_non_Query(ins, True) = True Then + Load_User_2_Profile(Me.GUIDTextBox.Text) + End If + Catch ex As Exception + MsgBox("Fehler bei AddUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + If ListBoxUser2Profile.SelectedIndex <> -1 Then + Try + Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = " & ListBoxUser2Profile.SelectedValue + If ClassDatabase.Execute_non_Query(del, True) = True Then + Load_User_2_Profile(Me.GUIDTextBox.Text) + End If + Catch ex As Exception + MsgBox("Fehler bei DeleteUserRelation:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + Private Sub frmWiedervorlage_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Load_User_2_Profile(Me.GUIDTextBox.Text) + Formloaded = True + SetCheckbox() + End Sub + + Private Sub FOLLOW_UP_SEQUENCEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FOLLOW_UP_SEQUENCEComboBox.SelectedIndexChanged + If Formloaded = True And FOLLOW_UP_SEQUENCEComboBox.SelectedIndex <> -1 Then + Select Case FOLLOW_UP_SEQUENCEComboBox.Text + Case "ONCE_WEEKLY" + Case "ONCE_DAILY" + Case "Hour" + + End Select + End If + End Sub + Dim CheckChange As Boolean = False + Private Sub FOLLOW_UP_DAYSTextBox_TextChanged(sender As Object, e As EventArgs) + 'If Formloaded = True And CheckChange = False And follup_Days <> "" Then + ' If follup_Days.Length = 7 Then + ' SetCheckbox() + ' End If + + 'End If + End Sub + Sub SetCheckbox() + Try + Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text + Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql) + Formloaded = False + Console.WriteLine("SetCheckbox") + CheckBox1.Checked = False + chkDienstag.Checked = False + chkMittwoch.Checked = False + chkDonnerstag.Checked = False + chkFreitag.Checked = False + chkSamstag.Checked = False + chkSonntag.Checked = False + + + If follup_Days.Substring(0, 1) = 1 Then + CheckBox1.Checked = True + End If + If follup_Days.Substring(1, 1) = 1 Then + chkDienstag.Checked = True + End If + If follup_Days.Substring(2, 1) = 1 Then + chkMittwoch.Checked = True + End If + If follup_Days.Substring(3, 1) = 1 Then + chkDonnerstag.Checked = True + End If + If follup_Days.Substring(4, 1) = 1 Then + chkFreitag.Checked = True + End If + If follup_Days.Substring(5, 1) = 1 Then + chkSamstag.Checked = True + End If + If follup_Days.Substring(6, 1) = 1 Then + chkSonntag.Checked = True + End If + Catch ex As Exception + MsgBox("Fehler bei SetCheckbox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + Formloaded = True + End Sub + Sub CheckBox_CheckChanged() + If Formloaded = False Then + Exit Sub + End If + Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text + Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql) + Dim follup_Old = follup_Days + CheckChange = True + If CheckBox1.Checked Then + follup_Days = "1" & follup_Days.Substring(1) + Else + follup_Days = "0" & follup_Days.Substring(1) + End If + If chkDienstag.Checked Then + Select Case FOLLOW_UP_SEQUENCEComboBox.Text + Case "ONCE_WEEKLY" + If follup_Days.Contains("1") Then + MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation) + chkDienstag.Checked = False + Exit Sub + End If + End Select + follup_Days = follup_Days.Substring(0, 1) & "1" & follup_Days.Substring(2) + Else + follup_Days = follup_Days.Substring(0, 1) & "0" & follup_Days.Substring(2) + End If + If chkMittwoch.Checked Then + Select Case FOLLOW_UP_SEQUENCEComboBox.Text + Case "ONCE_WEEKLY" + If follup_Days.Contains("1") Then + MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation) + chkMittwoch.Checked = False + Exit Sub + End If + End Select + follup_Days = follup_Days.Substring(0, 2) & "1" & follup_Days.Substring(3) + Else + follup_Days = follup_Days.Substring(0, 2) & "0" & follup_Days.Substring(3) + End If + If chkDonnerstag.Checked Then + Select Case FOLLOW_UP_SEQUENCEComboBox.Text + Case "ONCE_WEEKLY" + If follup_Days.Contains("1") Then + MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation) + chkDonnerstag.Checked = False + Exit Sub + End If + End Select + follup_Days = follup_Days.Substring(0, 3) & "1" & follup_Days.Substring(4) + Else + follup_Days = follup_Days.Substring(0, 3) & "0" & follup_Days.Substring(4) + End If + If chkFreitag.Checked Then + Select Case FOLLOW_UP_SEQUENCEComboBox.Text + Case "ONCE_WEEKLY" + If follup_Days.Contains("1") Then + MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation) + chkFreitag.Checked = False + Exit Sub + End If + End Select + follup_Days = follup_Days.Substring(0, 4) & "1" & follup_Days.Substring(5) + Else + follup_Days = follup_Days.Substring(0, 4) & "0" & follup_Days.Substring(5) + End If + If chkSamstag.Checked Then + Select Case FOLLOW_UP_SEQUENCEComboBox.Text + Case "ONCE_WEEKLY" + If follup_Days.Contains("1") Then + MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation) + chkSamstag.Checked = False + Exit Sub + End If + End Select + follup_Days = follup_Days.Substring(0, 5) & "1" & follup_Days.Substring(6) + Else + follup_Days = follup_Days.Substring(0, 5) & "0" & follup_Days.Substring(6) + End If + If chkSonntag.Checked Then + Select Case FOLLOW_UP_SEQUENCEComboBox.Text + Case "ONCE_WEEKLY" + If follup_Days.Contains("1") Then + MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation) + chkSonntag.Checked = False + Exit Sub + End If + End Select + follup_Days = follup_Days.Substring(0, 6) & "1" + Else + follup_Days = follup_Days.Substring(0, 6) & "0" + End If + + + If follup_Old <> follup_Days Then + FOLLOW_UP_DAYSTextBox.Text = follup_Days + End If + CheckChange = False + End Sub + Private Sub chkDienstag_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, chkDienstag.CheckedChanged, chkMittwoch.CheckedChanged, chkDonnerstag.CheckedChanged, chkFreitag.CheckedChanged, _ + chkSamstag.CheckedChanged, chkSonntag.CheckedChanged + CheckBox_CheckChanged() + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.Designer.vb b/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.Designer.vb new file mode 100644 index 0000000..e140cd5 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.Designer.vb @@ -0,0 +1,54 @@ + _ +Partial Class frmwindreamView_Config + 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.CheckBoxWD_ShowDocs = New System.Windows.Forms.CheckBox() + Me.SuspendLayout() + ' + 'CheckBoxWD_ShowDocs + ' + Me.CheckBoxWD_ShowDocs.AutoSize = True + Me.CheckBoxWD_ShowDocs.Location = New System.Drawing.Point(12, 12) + Me.CheckBoxWD_ShowDocs.Name = "CheckBoxWD_ShowDocs" + Me.CheckBoxWD_ShowDocs.Size = New System.Drawing.Size(122, 19) + Me.CheckBoxWD_ShowDocs.TabIndex = 0 + Me.CheckBoxWD_ShowDocs.Text = "DocView anzeigen" + Me.CheckBoxWD_ShowDocs.UseVisualStyleBackColor = True + ' + 'frmwindreamView_Config + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(436, 161) + Me.Controls.Add(Me.CheckBoxWD_ShowDocs) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmwindreamView_Config" + Me.Text = "Konfiguration der Userspezifischen windream-Ansicht" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents CheckBoxWD_ShowDocs As System.Windows.Forms.CheckBox +End Class diff --git a/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.resx b/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.vb b/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.vb new file mode 100644 index 0000000..646602f --- /dev/null +++ b/app - Kopie/DD-Record-Organiser/frmwindreamView_Config.vb @@ -0,0 +1,11 @@ +Public Class frmwindreamView_Config + + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxWD_ShowDocs.CheckedChanged + WD_ShowDocs = CheckBoxWD_ShowDocs.Checked + SaveMySettingsValue("WD_ShowDocs", WD_ShowDocs) + End Sub + + Private Sub frmwindreamView_Config_Load(sender As Object, e As EventArgs) Handles Me.Load + CheckBoxWD_ShowDocs.Checked = WD_ShowDocs + End Sub +End Class \ No newline at end of file diff --git a/app - Kopie/Setup/Setup.isl b/app - Kopie/Setup/Setup.isl new file mode 100644 index 0000000..4fd716a --- /dev/null +++ b/app - Kopie/Setup/Setup.isl @@ -0,0 +1,5727 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +]> + + + + 1252 + Installation Database + DD- Record-Organizer + ##ID_STRING2## + Installer,MSI,Database + Contact: Your local administrator + + Administrator + {6E6B74CA-DA8B-4ECC-AED5-5E72842ADF6D} + + 06/21/1999 14:00 + 07/14/2000 17:50 + 200 + 0 + + InstallShield Express + 1 + + + + Action + Description + Template + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Advertise##IDS_ACTIONTEXT_Advertising## + AllocateRegistrySpace##IDS_ACTIONTEXT_AllocatingRegistry####IDS_ACTIONTEXT_FreeSpace##AppSearch##IDS_ACTIONTEXT_SearchInstalled####IDS_ACTIONTEXT_PropertySignature##BindImage##IDS_ACTIONTEXT_BindingExes####IDS_ACTIONTEXT_File##CCPSearch##IDS_ACTIONTEXT_UnregisterModules## + CostFinalize##IDS_ACTIONTEXT_ComputingSpace3## + CostInitialize##IDS_ACTIONTEXT_ComputingSpace## + CreateFolders##IDS_ACTIONTEXT_CreatingFolders####IDS_ACTIONTEXT_Folder##CreateShortcuts##IDS_ACTIONTEXT_CreatingShortcuts####IDS_ACTIONTEXT_Shortcut##DeleteServices##IDS_ACTIONTEXT_DeletingServices####IDS_ACTIONTEXT_Service##DuplicateFiles##IDS_ACTIONTEXT_CreatingDuplicate####IDS_ACTIONTEXT_FileDirectorySize##FileCost##IDS_ACTIONTEXT_ComputingSpace2## + FindRelatedProducts##IDS_ACTIONTEXT_SearchForRelated####IDS_ACTIONTEXT_FoundApp##GenerateScript##IDS_ACTIONTEXT_GeneratingScript####IDS_ACTIONTEXT_1##ISLockPermissionsCost##IDS_ACTIONTEXT_ISLockPermissionsCost## + ISLockPermissionsInstall##IDS_ACTIONTEXT_ISLockPermissionsInstall## + InstallAdminPackage##IDS_ACTIONTEXT_CopyingNetworkFiles####IDS_ACTIONTEXT_FileDirSize##InstallFiles##IDS_ACTIONTEXT_CopyingNewFiles####IDS_ACTIONTEXT_FileDirSize2##InstallODBC##IDS_ACTIONTEXT_InstallODBC## + InstallSFPCatalogFile##IDS_ACTIONTEXT_InstallingSystemCatalog####IDS_ACTIONTEXT_FileDependencies##InstallServices##IDS_ACTIONTEXT_InstallServices####IDS_ACTIONTEXT_Service2##InstallValidate##IDS_ACTIONTEXT_Validating## + LaunchConditions##IDS_ACTIONTEXT_EvaluateLaunchConditions## + MigrateFeatureStates##IDS_ACTIONTEXT_MigratingFeatureStates####IDS_ACTIONTEXT_Application##MoveFiles##IDS_ACTIONTEXT_MovingFiles####IDS_ACTIONTEXT_FileDirSize3##PatchFiles##IDS_ACTIONTEXT_PatchingFiles####IDS_ACTIONTEXT_FileDirSize4##ProcessComponents##IDS_ACTIONTEXT_UpdateComponentRegistration## + PublishComponents##IDS_ACTIONTEXT_PublishingQualifiedComponents####IDS_ACTIONTEXT_ComponentIDQualifier##PublishFeatures##IDS_ACTIONTEXT_PublishProductFeatures####IDS_ACTIONTEXT_FeatureColon##PublishProduct##IDS_ACTIONTEXT_PublishProductInfo## + RMCCPSearch##IDS_ACTIONTEXT_SearchingQualifyingProducts## + RegisterClassInfo##IDS_ACTIONTEXT_RegisterClassServer####IDS_ACTIONTEXT_ClassId##RegisterComPlus##IDS_ACTIONTEXT_RegisteringComPlus####IDS_ACTIONTEXT_AppIdAppTypeRSN##RegisterExtensionInfo##IDS_ACTIONTEXT_RegisterExtensionServers####IDS_ACTIONTEXT_Extension2##RegisterFonts##IDS_ACTIONTEXT_RegisterFonts####IDS_ACTIONTEXT_Font##RegisterMIMEInfo##IDS_ACTIONTEXT_RegisterMimeInfo####IDS_ACTIONTEXT_ContentTypeExtension##RegisterProduct##IDS_ACTIONTEXT_RegisteringProduct####IDS_ACTIONTEXT_1b##RegisterProgIdInfo##IDS_ACTIONTEXT_RegisteringProgIdentifiers####IDS_ACTIONTEXT_ProgID2##RegisterTypeLibraries##IDS_ACTIONTEXT_RegisterTypeLibs####IDS_ACTIONTEXT_LibId##RegisterUser##IDS_ACTIONTEXT_RegUser####IDS_ACTIONTEXT_1c##RemoveDuplicateFiles##IDS_ACTIONTEXT_RemovingDuplicates####IDS_ACTIONTEXT_FileDir##RemoveEnvironmentStrings##IDS_ACTIONTEXT_UpdateEnvironmentStrings####IDS_ACTIONTEXT_NameValueAction2##RemoveExistingProducts##IDS_ACTIONTEXT_RemoveApps####IDS_ACTIONTEXT_AppCommandLine##RemoveFiles##IDS_ACTIONTEXT_RemovingFiles####IDS_ACTIONTEXT_FileDir2##RemoveFolders##IDS_ACTIONTEXT_RemovingFolders####IDS_ACTIONTEXT_Folder1##RemoveIniValues##IDS_ACTIONTEXT_RemovingIni####IDS_ACTIONTEXT_FileSectionKeyValue##RemoveODBC##IDS_ACTIONTEXT_RemovingODBC## + RemoveRegistryValues##IDS_ACTIONTEXT_RemovingRegistry####IDS_ACTIONTEXT_KeyName##RemoveShortcuts##IDS_ACTIONTEXT_RemovingShortcuts####IDS_ACTIONTEXT_Shortcut1##Rollback##IDS_ACTIONTEXT_RollingBack####IDS_ACTIONTEXT_1d##RollbackCleanup##IDS_ACTIONTEXT_RemovingBackup####IDS_ACTIONTEXT_File2##SelfRegModules##IDS_ACTIONTEXT_RegisteringModules####IDS_ACTIONTEXT_FileFolder##SelfUnregModules##IDS_ACTIONTEXT_UnregisterModules####IDS_ACTIONTEXT_FileFolder2##SetODBCFolders##IDS_ACTIONTEXT_InitializeODBCDirs## + StartServices##IDS_ACTIONTEXT_StartingServices####IDS_ACTIONTEXT_Service3##StopServices##IDS_ACTIONTEXT_StoppingServices####IDS_ACTIONTEXT_Service4##UnmoveFiles##IDS_ACTIONTEXT_RemovingMoved####IDS_ACTIONTEXT_FileDir3##UnpublishComponents##IDS_ACTIONTEXT_UnpublishQualified####IDS_ACTIONTEXT_ComponentIdQualifier2##UnpublishFeatures##IDS_ACTIONTEXT_UnpublishProductFeatures####IDS_ACTIONTEXT_Feature##UnpublishProduct##IDS_ACTIONTEXT_UnpublishingProductInfo## + UnregisterClassInfo##IDS_ACTIONTEXT_UnregisterClassServers####IDS_ACTIONTEXT_ClsID##UnregisterComPlus##IDS_ACTIONTEXT_UnregisteringComPlus####IDS_ACTIONTEXT_AppId##UnregisterExtensionInfo##IDS_ACTIONTEXT_UnregisterExtensionServers####IDS_ACTIONTEXT_Extension##UnregisterFonts##IDS_ACTIONTEXT_UnregisteringFonts####IDS_ACTIONTEXT_Font2##UnregisterMIMEInfo##IDS_ACTIONTEXT_UnregisteringMimeInfo####IDS_ACTIONTEXT_ContentTypeExtension2##UnregisterProgIdInfo##IDS_ACTIONTEXT_UnregisteringProgramIds####IDS_ACTIONTEXT_ProgID##UnregisterTypeLibraries##IDS_ACTIONTEXT_UnregTypeLibs####IDS_ACTIONTEXT_Libid2##WriteEnvironmentStrings##IDS_ACTIONTEXT_EnvironmentStrings####IDS_ACTIONTEXT_NameValueAction##WriteIniValues##IDS_ACTIONTEXT_WritingINI####IDS_ACTIONTEXT_FileSectionKeyValue2##WriteRegistryValues##IDS_ACTIONTEXT_WritingRegistry####IDS_ACTIONTEXT_KeyNameValue##
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
CostFinalize1000CostFinalize + CostInitialize800CostInitialize + FileCost900FileCost + InstallAdminPackage3900InstallAdminPackage + InstallFiles4000InstallFiles + InstallFinalize6600InstallFinalize + InstallInitialize1500InstallInitialize + InstallValidate1400InstallValidate + ScheduleRebootISSCHEDULEREBOOT4010ScheduleReboot +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
AdminWelcome1010AdminWelcome + CostFinalize1000CostFinalize + CostInitialize800CostInitialize + ExecuteAction1300ExecuteAction + FileCost900FileCost + SetupCompleteError-3SetupCompleteError + SetupCompleteSuccess-1SetupCompleteSuccess + SetupInitialization50SetupInitialization + SetupInterrupted-2SetupInterrupted + SetupProgress1020SetupProgress +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
CostFinalize1000CostFinalize + CostInitialize800CostInitialize + CreateShortcuts4500CreateShortcuts + InstallFinalize6600InstallFinalize + InstallInitialize1500InstallInitialize + InstallValidate1400InstallValidate + MsiPublishAssemblies6250MsiPublishAssemblies + PublishComponents6200PublishComponents + PublishFeatures6300PublishFeatures + PublishProduct6400PublishProduct + RegisterClassInfo4600RegisterClassInfo + RegisterExtensionInfo4700RegisterExtensionInfo + RegisterMIMEInfo4900RegisterMIMEInfo + RegisterProgIdInfo4800RegisterProgIdInfo + RegisterTypeLibraries4910RegisterTypeLibraries + ScheduleRebootISSCHEDULEREBOOT6410ScheduleReboot +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
+ + + AppId + RemoteServerName + LocalService + ServiceParameters + DllSurrogate + ActivateAtStorage + RunAsInteractiveUser +
+ + + Property + Signature_ +
+ + + Billboard_ + BBControl + Type + X + Y + Width + Height + Attributes + Text +
+ + + Billboard + Feature_ + Action + Ordering +
+ + + Name + Data + ISBuildSourcePath + + + + + + + + + + + + + + + + + + + + + + +
ISExpHlp.dll<ISRedistPlatformDependentFolder>\ISExpHlp.dllISSELFREG.DLL<ISRedistPlatformDependentFolder>\isregsvr.dllNewBinary1<ISProductFolder>\Support\Themes\InstallShield Blue Theme\banner.jpgNewBinary10<ISProductFolder>\Redist\Language Independent\OS Independent\CompleteSetupIco.ibdNewBinary11<ISProductFolder>\Redist\Language Independent\OS Independent\CustomSetupIco.ibdNewBinary12<ISProductFolder>\Redist\Language Independent\OS Independent\DestIcon.ibdNewBinary13<ISProductFolder>\Redist\Language Independent\OS Independent\NetworkInstall.icoNewBinary14<ISProductFolder>\Redist\Language Independent\OS Independent\DontInstall.icoNewBinary15<ISProductFolder>\Redist\Language Independent\OS Independent\Install.icoNewBinary16<ISProductFolder>\Redist\Language Independent\OS Independent\InstallFirstUse.icoNewBinary17<ISProductFolder>\Redist\Language Independent\OS Independent\InstallPartial.icoNewBinary18<ISProductFolder>\Redist\Language Independent\OS Independent\InstallStateMenu.icoNewBinary19<ISProductFolder>\redist\Language independent\i386\SerialNumCAHelper.dllNewBinary2<ISProductFolder>\Redist\Language Independent\OS Independent\New.ibdNewBinary3<ISProductFolder>\Redist\Language Independent\OS Independent\Up.ibdNewBinary4<ISProductFolder>\Redist\Language Independent\OS Independent\WarningIcon.ibdNewBinary5<ISProductFolder>\Support\Themes\InstallShield Blue Theme\welcome.jpgNewBinary6<ISProductFolder>\Redist\Language Independent\OS Independent\CustomSetupIco.ibdNewBinary7<ISProductFolder>\Redist\Language Independent\OS Independent\ReinstIco.ibdNewBinary8<ISProductFolder>\Redist\Language Independent\OS Independent\RemoveIco.ibdNewBinary9<ISProductFolder>\Redist\Language Independent\OS Independent\SetupIcon.ibdSetAllUsers.dll<ISRedistPlatformDependentFolder>\SetAllUsers.dll
+ + + File_ + Path +
+ + + Signature_ +
+ + + Property + Value + + + +
ISCHECKFORPRODUCTUPDATES1LAUNCHPROGRAM1LAUNCHREADME1
+ + + CLSID + Context + Component_ + ProgId_Default + Description + AppId_ + FileTypeMask + Icon_ + IconIndex + DefInprocHandler + Argument + Feature_ + Attributes +
+ + + Property + Order + Value + Text +
+ + + Signature_ + ComponentId + Type +
+ + + Component_ + ExpType +
+ + + Component + ComponentId + Directory_ + Attributes + Condition + KeyPath + ISAttributes + ISComments + ISScanAtBuildFile + ISRegFileToMergeAtBuild + ISDotNetInstallerArgsInstall + ISDotNetInstallerArgsCommit + ISDotNetInstallerArgsUninstall + ISDotNetInstallerArgsRollback + +
DD_Record_Organiser.Prim_re_Ausgabe{AF24D556-FE0F-4243-8279-4AE769F0811B}INSTALLDIR2dd_record_organiser.prim_re_17/LogFile=/LogFile=/LogFile=/LogFile=
+ + + Feature_ + Level + Condition +
+ + + Dialog_ + Control + Type + X + Y + Width + Height + Attributes + Property + Text + Control_Next + Help + ISWindowStyle + ISControlId + ISBuildSourcePath + Binary_ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
AdminChangeFolderBannerBitmap003744410NewBinary1AdminChangeFolderBannerLineLine044374010 + AdminChangeFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + AdminChangeFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + AdminChangeFolderCancelPushButton30124366173##IDS_CANCEL##ComboText0 + AdminChangeFolderComboDirectoryCombo216427780458755TARGETDIR##IDS__IsAdminInstallBrowse_4##Up0 + AdminChangeFolderComboTextText215099143##IDS__IsAdminInstallBrowse_LookIn##Combo0 + AdminChangeFolderDlgDescText21232922565539##IDS__IsAdminInstallBrowse_BrowseDestination##0 + AdminChangeFolderDlgLineLine48234326010 + AdminChangeFolderDlgTitleText1362922565539##IDS__IsAdminInstallBrowse_ChangeDestination##0 + AdminChangeFolderListDirectoryList2190332977TARGETDIR##IDS__IsAdminInstallBrowse_8##TailText0 + AdminChangeFolderNewFolderPushButton3356619193670019List##IDS__IsAdminInstallBrowse_CreateFolder##0NewBinary2AdminChangeFolderOKPushButton23024366173##IDS_OK##Cancel0 + AdminChangeFolderTailPathEdit21207332173TARGETDIR##IDS__IsAdminInstallBrowse_11##OK0 + AdminChangeFolderTailTextText2119399133##IDS__IsAdminInstallBrowse_FolderName##Tail0 + AdminChangeFolderUpPushButton3106619193670019NewFolder##IDS__IsAdminInstallBrowse_UpOneLevel##0NewBinary3AdminNetworkLocationBackPushButton16424366173##IDS_BACK##InstallNow0 + AdminNetworkLocationBannerBitmap003744410NewBinary1AdminNetworkLocationBannerLineLine044374010 + AdminNetworkLocationBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + AdminNetworkLocationBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + AdminNetworkLocationBrowsePushButton28612466173##IDS__IsAdminInstallPoint_Change##Back0 + AdminNetworkLocationCancelPushButton30124366173##IDS_CANCEL##SetupPathEdit0 + AdminNetworkLocationDlgDescText21232922565539##IDS__IsAdminInstallPoint_SpecifyNetworkLocation##0 + AdminNetworkLocationDlgLineLine48234326010 + AdminNetworkLocationDlgTextText215132640131075##IDS__IsAdminInstallPoint_EnterNetworkLocation##0 + AdminNetworkLocationDlgTitleText1362922565539##IDS__IsAdminInstallPoint_NetworkLocationFormatted##0 + AdminNetworkLocationInstallNowPushButton23024366173##IDS__IsAdminInstallPoint_Install##Cancel0 + AdminNetworkLocationLBBrowseText2190100103##IDS__IsAdminInstallPoint_NetworkLocation##0 + AdminNetworkLocationSetupPathEditPathEdit21102330173TARGETDIRBrowse0 + AdminWelcomeBackPushButton16424366171##IDS_BACK##Next0 + AdminWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + AdminWelcomeDlgLineLine0234326010 + AdminWelcomeImageBitmap0037423410NewBinary5AdminWelcomeNextPushButton23024366173##IDS_NEXT##Cancel0 + AdminWelcomeTextLine1Text135822545196611##IDS__IsAdminInstallPointWelcome_Wizard##0 + AdminWelcomeTextLine2Text1355522845196611##IDS__IsAdminInstallPointWelcome_ServerImage##0 + CancelSetupIconIcon1515242452428810NewBinary4CancelSetupNoPushButton1355766173##IDS__IsCancelDlg_No##Yes0 + CancelSetupTextText481519430131075##IDS__IsCancelDlg_ConfirmCancel##0 + CancelSetupYesPushButton625766173##IDS__IsCancelDlg_Yes##No0 + CustomSetupBackPushButton16424366173##IDS_BACK##Next0 + CustomSetupBannerBitmap003744410NewBinary1CustomSetupBannerLineLine044374010 + CustomSetupBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + CustomSetupBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + CustomSetupCancelPushButton30124366173##IDS_CANCEL##Tree0 + CustomSetupChangeFolderPushButton30120366173##IDS__IsCustomSelectionDlg_Change##Help0 + CustomSetupDetailsPushButton9324366173##IDS__IsCustomSelectionDlg_Space##Back0 + CustomSetupDlgDescText17232922565539##IDS__IsCustomSelectionDlg_SelectFeatures##0 + CustomSetupDlgLineLine48234326010 + CustomSetupDlgTextText951360103##IDS__IsCustomSelectionDlg_ClickFeatureIcon##0 + CustomSetupDlgTitleText962922565539##IDS__IsCustomSelectionDlg_CustomSetup##0 + CustomSetupFeatureGroupGroupBox235671311201##IDS__IsCustomSelectionDlg_FeatureDescription##0 + CustomSetupHelpPushButton2224366173##IDS__IsCustomSelectionDlg_Help##Details0 + CustomSetupInstallLabelText8190360103##IDS__IsCustomSelectionDlg_InstallTo##0 + CustomSetupItemDescriptionText24180120503##IDS__IsCustomSelectionDlg_MultilineDescription##0 + CustomSetupLocationText8203291203##IDS__IsCustomSelectionDlg_FeaturePath##0 + CustomSetupNextPushButton23024366173##IDS_NEXT##Cancel0 + CustomSetupSizeText241133120503##IDS__IsCustomSelectionDlg_FeatureSize##0 + CustomSetupTreeSelectionTree8702201187_BrowsePropertyChangeFolder0 + CustomSetupTipsBannerBitmap003744410NewBinary1CustomSetupTipsBannerLineLine044374010 + CustomSetupTipsBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + CustomSetupTipsBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + CustomSetupTipsDlgDescText21232922565539##IDS_SetupTips_CustomSetupDescription##0 + CustomSetupTipsDlgLineLine48234326010 + CustomSetupTipsDlgTitleText1362922565539##IDS_SetupTips_CustomSetup##0 + CustomSetupTipsDontInstallIcon21155242452428810NewBinary14CustomSetupTipsDontInstallTextText60155300203##IDS_SetupTips_WillNotBeInstalled##0 + CustomSetupTipsFirstInstallTextText60180300203##IDS_SetupTips_Advertise##0 + CustomSetupTipsInstallIcon21105242452428810NewBinary15CustomSetupTipsInstallFirstUseIcon21180242452428810NewBinary16CustomSetupTipsInstallPartialIcon21130242452428810NewBinary17CustomSetupTipsInstallStateMenuIcon2152242452428810NewBinary18CustomSetupTipsInstallStateTextText2191300103##IDS_SetupTips_InstallState##00 + CustomSetupTipsInstallTextText60105300203##IDS_SetupTips_AllInstalledLocal##0 + CustomSetupTipsMenuTextText5052300363##IDS_SetupTips_IconInstallState##0 + CustomSetupTipsNetworkInstallIcon21205242452428810NewBinary13CustomSetupTipsNetworkInstallTextText60205300203##IDS_SetupTips_Network##0 + CustomSetupTipsOKPushButton30124366173##IDS_SetupTips_OK##0 + CustomSetupTipsPartialTextText60130300203##IDS_SetupTips_SubFeaturesInstalledLocal##0 + CustomerInformationBackPushButton16424366173##IDS_BACK##Next0 + CustomerInformationBannerBitmap003744410NewBinary1CustomerInformationBannerLineLine044374010 + CustomerInformationBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + CustomerInformationBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + CustomerInformationCancelPushButton30124366173##IDS_CANCEL##NameLabel0 + CustomerInformationCompanyEditEdit21100237173COMPANYNAME##IDS__IsRegisterUserDlg_Tahoma80##SerialLabel0 + CustomerInformationCompanyLabelText218975103##IDS__IsRegisterUserDlg_Organization##CompanyEdit0 + CustomerInformationDlgDescText21232922565539##IDS__IsRegisterUserDlg_PleaseEnterInfo##0 + CustomerInformationDlgLineLine48234326010 + CustomerInformationDlgRadioGroupTextText21161300142##IDS__IsRegisterUserDlg_InstallFor##0 + CustomerInformationDlgTitleText1362922565539##IDS__IsRegisterUserDlg_CustomerInformation##0 + CustomerInformationNameEditEdit2163237173USERNAME##IDS__IsRegisterUserDlg_Tahoma50##CompanyLabel0 + CustomerInformationNameLabelText215275103##IDS__IsRegisterUserDlg_UserName##NameEdit0 + CustomerInformationNextPushButton23024366173##IDS_NEXT##Cancel0 + CustomerInformationRadioGroupRadioButtonGroup63170300502ApplicationUsers##IDS__IsRegisterUserDlg_16##Back0 + CustomerInformationSerialLabelText21127109102##IDS__IsRegisterUserDlg_SerialNumber##SerialNumber0 + CustomerInformationSerialNumberMaskedEdit21138237172ISX_SERIALNUMRadioGroup0 + DatabaseFolderBackPushButton16424366173##IDS_BACK##Next0 + DatabaseFolderBannerBitmap003744410NewBinary1DatabaseFolderBannerLineLine044374010 + DatabaseFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + DatabaseFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + DatabaseFolderCancelPushButton30124366173##IDS_CANCEL##ChangeFolder0 + DatabaseFolderChangeFolderPushButton3016566173##IDS_CHANGE##Back0 + DatabaseFolderDatabaseFolderIcon2152242452428810NewBinary12DatabaseFolderDlgDescText21232922565539##IDS__DatabaseFolder_ChangeFolder##0 + DatabaseFolderDlgLineLine48234326010 + DatabaseFolderDlgTitleText1362922565539##IDS__DatabaseFolder_DatabaseFolder##0 + DatabaseFolderLocLabelText575229010131075##IDS_DatabaseFolder_InstallDatabaseTo##0 + DatabaseFolderLocationText5765240403_BrowseProperty##IDS__DatabaseFolder_DatabaseDir##0 + DatabaseFolderNextPushButton23024366173##IDS_NEXT##Cancel0 + DestinationFolderBackPushButton16424366173##IDS_BACK##Next0 + DestinationFolderBannerBitmap003744410NewBinary1DestinationFolderBannerLineLine044374010 + DestinationFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + DestinationFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + DestinationFolderCancelPushButton30124366173##IDS_CANCEL##ChangeFolder0 + DestinationFolderChangeFolderPushButton3016566173##IDS__DestinationFolder_Change##Back0 + DestinationFolderDestFolderIcon2152242452428810NewBinary12DestinationFolderDlgDescText21232922565539##IDS__DestinationFolder_ChangeFolder##0 + DestinationFolderDlgLineLine48234326010 + DestinationFolderDlgTitleText1362922565539##IDS__DestinationFolder_DestinationFolder##0 + DestinationFolderLocLabelText575229010131075##IDS__DestinationFolder_InstallTo##0 + DestinationFolderLocationText5765240403_BrowseProperty##IDS_INSTALLDIR##0 + DestinationFolderNextPushButton23024366173##IDS_NEXT##Cancel0 + DiskSpaceRequirementsBannerBitmap003744410NewBinary1DiskSpaceRequirementsBannerLineLine044374010 + DiskSpaceRequirementsBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + DiskSpaceRequirementsBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + DiskSpaceRequirementsDlgDescText17232922565539##IDS__IsFeatureDetailsDlg_SpaceRequired##0 + DiskSpaceRequirementsDlgLineLine48234326010 + DiskSpaceRequirementsDlgTextText10185358413##IDS__IsFeatureDetailsDlg_VolumesTooSmall##0 + DiskSpaceRequirementsDlgTitleText962922565539##IDS__IsFeatureDetailsDlg_DiskSpaceRequirements##0 + DiskSpaceRequirementsListVolumeCostList855358125393223##IDS__IsFeatureDetailsDlg_Numbers##0 + DiskSpaceRequirementsOKPushButton30124366173##IDS__IsFeatureDetailsDlg_OK##0 + FilesInUseBannerBitmap003744410NewBinary1FilesInUseBannerLineLine044374010 + FilesInUseBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + FilesInUseBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + FilesInUseDlgDescText21232922565539##IDS__IsFilesInUse_FilesInUseMessage##0 + FilesInUseDlgLineLine48234326010 + FilesInUseDlgTextText2151348333##IDS__IsFilesInUse_ApplicationsUsingFiles##0 + FilesInUseDlgTitleText1362922565539##IDS__IsFilesInUse_FilesInUse##0 + FilesInUseExitPushButton30124366173##IDS__IsFilesInUse_Exit##List0 + FilesInUseIgnorePushButton23024366173##IDS__IsFilesInUse_Ignore##Exit0 + FilesInUseListListBox21873311357FileInUseProcessRetry0 + FilesInUseRetryPushButton16424366173##IDS__IsFilesInUse_Retry##Ignore0 + InstallChangeFolderBannerBitmap003744410NewBinary1InstallChangeFolderBannerLineLine044374010 + InstallChangeFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + InstallChangeFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + InstallChangeFolderCancelPushButton30124366173##IDS_CANCEL##ComboText0 + InstallChangeFolderComboDirectoryCombo2164277804128779_BrowseProperty##IDS__IsBrowseFolderDlg_4##Up0 + InstallChangeFolderComboTextText215099143##IDS__IsBrowseFolderDlg_LookIn##Combo0 + InstallChangeFolderDlgDescText21232922565539##IDS__IsBrowseFolderDlg_BrowseDestFolder##0 + InstallChangeFolderDlgLineLine48234326010 + InstallChangeFolderDlgTitleText1362922565539##IDS__IsBrowseFolderDlg_ChangeCurrentFolder##0 + InstallChangeFolderListDirectoryList21903329715_BrowseProperty##IDS__IsBrowseFolderDlg_8##TailText0 + InstallChangeFolderNewFolderPushButton3356619193670019List##IDS__IsBrowseFolderDlg_CreateFolder##0NewBinary2InstallChangeFolderOKPushButton23024366173##IDS__IsBrowseFolderDlg_OK##Cancel0 + InstallChangeFolderTailPathEdit212073321715_BrowseProperty##IDS__IsBrowseFolderDlg_11##OK0 + InstallChangeFolderTailTextText2119399133##IDS__IsBrowseFolderDlg_FolderName##Tail0 + InstallChangeFolderUpPushButton3106619193670019NewFolder##IDS__IsBrowseFolderDlg_UpOneLevel##0NewBinary3InstallWelcomeBackPushButton16424366171##IDS_BACK##Copyright0 + InstallWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + InstallWelcomeCopyrightText1351442287365539##IDS__IsWelcomeDlg_WarningCopyright##Next0 + InstallWelcomeDlgLineLine0234374010 + InstallWelcomeImageBitmap0037423410NewBinary5InstallWelcomeNextPushButton23024366173##IDS_NEXT##Cancel0 + InstallWelcomeTextLine1Text135822545196611##IDS__IsWelcomeDlg_WelcomeProductName##0 + InstallWelcomeTextLine2Text1355522845196611##IDS__IsWelcomeDlg_InstallProductName##0 + LicenseAgreementAgreeRadioButtonGroup8190291403AgreeToLicenseBack0 + LicenseAgreementBackPushButton16424366173##IDS_BACK##Next0 + LicenseAgreementBannerBitmap003744410NewBinary1LicenseAgreementBannerLineLine044374010 + LicenseAgreementBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + LicenseAgreementBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + LicenseAgreementCancelPushButton30124366173##IDS_CANCEL##ISPrintButton0 + LicenseAgreementDlgDescText21232922565539##IDS__IsLicenseDlg_ReadLicenseAgreement##0 + LicenseAgreementDlgLineLine48234326010 + LicenseAgreementDlgTitleText1362922565539##IDS__IsLicenseDlg_LicenseAgreement##0 + LicenseAgreementISPrintButtonPushButton30118865173##IDS_PRINT_BUTTON##Agree0 + LicenseAgreementMemoScrollableText85535813070<ISProductFolder>\Redist\0409\Eula.rtf + LicenseAgreementNextPushButton23024366173##IDS_NEXT##Cancel0 + MaintenanceTypeBackPushButton16424366173##IDS_BACK##Next0 + MaintenanceTypeBannerBitmap003744410NewBinary1MaintenanceTypeBannerLineLine044374010 + MaintenanceTypeBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + MaintenanceTypeBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + MaintenanceTypeCancelPushButton30124366173##IDS_CANCEL##RadioGroup0 + MaintenanceTypeDlgDescText21232922565539##IDS__IsMaintenanceDlg_MaitenanceOptions##0 + MaintenanceTypeDlgLineLine48234326010 + MaintenanceTypeDlgTitleText1362922565539##IDS__IsMaintenanceDlg_ProgramMaintenance##0 + MaintenanceTypeIco1Icon3575242452428810NewBinary6MaintenanceTypeIco2Icon35135242452428810NewBinary7MaintenanceTypeIco3Icon35195242452428810NewBinary8MaintenanceTypeNextPushButton23024366173##IDS_NEXT##Cancel0 + MaintenanceTypeRadioGroupRadioButtonGroup21552901703_IsMaintenanceBack0 + MaintenanceTypeText1Text8072260353##IDS__IsMaintenanceDlg_ChangeFeatures##0 + MaintenanceTypeText2Text80135260353##IDS__IsMaintenanceDlg_RepairMessage##0 + MaintenanceTypeText3Text8019226035131075##IDS__IsMaintenanceDlg_RemoveProductName##0 + MaintenanceWelcomeBackPushButton16424366171##IDS_BACK##Next0 + MaintenanceWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + MaintenanceWelcomeDlgLineLine0234374010 + MaintenanceWelcomeImageBitmap0037423410NewBinary5MaintenanceWelcomeNextPushButton23024366173##IDS_NEXT##Cancel0 + MaintenanceWelcomeTextLine1Text135822545196611##IDS__IsMaintenanceWelcome_WizardWelcome##0 + MaintenanceWelcomeTextLine2Text1355522850196611##IDS__IsMaintenanceWelcome_MaintenanceOptionsDescription##0 + MsiRMFilesInUseBannerBitmap003744410NewBinary1MsiRMFilesInUseBannerLineLine044374010 + MsiRMFilesInUseBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + MsiRMFilesInUseBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + MsiRMFilesInUseCancelPushButton30124366173##IDS_CANCEL##Restart0 + MsiRMFilesInUseDlgDescText21232922565539##IDS__IsFilesInUse_FilesInUseMessage##0 + MsiRMFilesInUseDlgLineLine48234326010 + MsiRMFilesInUseDlgTextText2151348143##IDS__IsMsiRMFilesInUse_ApplicationsUsingFiles##0 + MsiRMFilesInUseDlgTitleText1362922565539##IDS__IsFilesInUse_FilesInUse##0 + MsiRMFilesInUseListListBox21663311303FileInUseProcessOK0 + MsiRMFilesInUseOKPushButton23024366173##IDS_OK##Cancel0 + MsiRMFilesInUseRestartRadioButtonGroup19187343403RestartManagerOptionList0 + OutOfSpaceBannerBitmap003744410NewBinary1OutOfSpaceBannerLineLine044374010 + OutOfSpaceBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + OutOfSpaceBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + OutOfSpaceDlgDescText21232922565539##IDS__IsDiskSpaceDlg_DiskSpace##0 + OutOfSpaceDlgLineLine48234326010 + OutOfSpaceDlgTextText2151326433##IDS__IsDiskSpaceDlg_HighlightedVolumes##0 + OutOfSpaceDlgTitleText1362922565539##IDS__IsDiskSpaceDlg_OutOfDiskSpace##0 + OutOfSpaceListVolumeCostList2195332120393223##IDS__IsDiskSpaceDlg_Numbers##0 + OutOfSpaceResumePushButton30124366173##IDS__IsDiskSpaceDlg_OK##0 + PatchWelcomeBackPushButton16424366171##IDS_BACK##Next0 + PatchWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + PatchWelcomeDlgLineLine0234374010 + PatchWelcomeImageBitmap0037423410NewBinary5PatchWelcomeNextPushButton23024366173##IDS__IsPatchDlg_Update##Cancel0 + PatchWelcomeTextLine1Text135822545196611##IDS__IsPatchDlg_WelcomePatchWizard##0 + PatchWelcomeTextLine2Text1355422845196611##IDS__IsPatchDlg_PatchClickUpdate##0 + ReadmeInformationBackPushButton16424366171048579##IDS_BACK##Next0 + ReadmeInformationBannerBitmap00374443DlgTitle0NewBinary1ReadmeInformationBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##00 + ReadmeInformationBranding2Text3228501365537##IDS_INSTALLSHIELD##00 + ReadmeInformationCancelPushButton30124366171048579##IDS__IsReadmeDlg_Cancel##Readme0 + ReadmeInformationDlgDescText21232321665539##IDS__IsReadmeDlg_PleaseReadInfo##Back00 + ReadmeInformationDlgLineLine482343260300 + ReadmeInformationDlgTitleText1361931365539##IDS__IsReadmeDlg_ReadMeInfo##DlgDesc0 + ReadmeInformationNextPushButton23024366171048579##IDS_NEXT##Cancel0 + ReadmeInformationReadmeScrollableText10553531663Banner0<ISProductFolder>\Redist\0409\Readme.rtf + ReadyToInstallBackPushButton16424366173##IDS_BACK##GroupBox10 + ReadyToInstallBannerBitmap003744410NewBinary1ReadyToInstallBannerLineLine044374010 + ReadyToInstallBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + ReadyToInstallBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + ReadyToInstallCancelPushButton30124366173##IDS_CANCEL##Back0 + ReadyToInstallCompanyNameTextText3819821193##IDS__IsVerifyReadyDlg_Company##SerialNumberText0 + ReadyToInstallCurrentSettingsTextText198081103##IDS__IsVerifyReadyDlg_CurrentSettings##InstallNow0 + ReadyToInstallDlgDescText21232922565539##IDS__IsVerifyReadyDlg_WizardReady##0 + ReadyToInstallDlgLineLine482343260100 + ReadyToInstallDlgText1Text2154330243##IDS__IsVerifyReadyDlg_BackOrCancel##0 + ReadyToInstallDlgText2Text2199330202##IDS__IsRegisterUserDlg_InstallFor##0 + ReadyToInstallDlgTitleText1362922565538##IDS__IsVerifyReadyDlg_ModifyReady##0 + ReadyToInstallDlgTitle2Text1362922565538##IDS__IsVerifyReadyDlg_ReadyRepair##0 + ReadyToInstallDlgTitle3Text1362922565538##IDS__IsVerifyReadyDlg_ReadyInstall##0 + ReadyToInstallGroupBox1Text199233013365541SetupTypeText10 + ReadyToInstallInstallNowPushButton23024366178388611##IDS__IsVerifyReadyDlg_Install##InstallPerMachine0 + ReadyToInstallInstallPerMachinePushButton63123248178388610##IDS__IsRegisterUserDlg_Anyone##InstallPerUser0 + ReadyToInstallInstallPerUserPushButton63143248172##IDS__IsRegisterUserDlg_OnlyMe##Cancel0 + ReadyToInstallSerialNumberTextText3821130693##IDS__IsVerifyReadyDlg_Serial##CurrentSettingsText0 + ReadyToInstallSetupTypeText1Text2397306133##IDS__IsVerifyReadyDlg_SetupType##SetupTypeText20 + ReadyToInstallSetupTypeText2Text37114306143##IDS__IsVerifyReadyDlg_SelectedSetupType##TargetFolderText10 + ReadyToInstallTargetFolderText1Text24136306113##IDS__IsVerifyReadyDlg_DestFolder##TargetFolderText20 + ReadyToInstallTargetFolderText2Text37151306133##IDS__IsVerifyReadyDlg_Installdir##UserInformationText0 + ReadyToInstallUserInformationTextText23171306133##IDS__IsVerifyReadyDlg_UserInfo##UserNameText0 + ReadyToInstallUserNameTextText3818430693##IDS__IsVerifyReadyDlg_UserName##CompanyNameText0 + ReadyToRemoveBackPushButton16424366173##IDS_BACK##RemoveNow0 + ReadyToRemoveBannerBitmap003744410NewBinary1ReadyToRemoveBannerLineLine044374010 + ReadyToRemoveBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + ReadyToRemoveBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + ReadyToRemoveCancelPushButton30124366173##IDS_CANCEL##Back0 + ReadyToRemoveDlgDescText21232922565539##IDS__IsVerifyRemoveAllDlg_ChoseRemoveProgram##0 + ReadyToRemoveDlgLineLine48234326010 + ReadyToRemoveDlgTextText215132624131075##IDS__IsVerifyRemoveAllDlg_ClickRemove##0 + ReadyToRemoveDlgText1Text2179330233##IDS__IsVerifyRemoveAllDlg_ClickBack##0 + ReadyToRemoveDlgText2Text211023302430 + ReadyToRemoveDlgTitleText1362922565539##IDS__IsVerifyRemoveAllDlg_RemoveProgram##0 + ReadyToRemoveRemoveNowPushButton23024366178388611##IDS__IsVerifyRemoveAllDlg_Remove##Cancel0 + SetupCompleteErrorBackPushButton16424366171##IDS_BACK##Finish0 + SetupCompleteErrorCancelPushButton30124366171##IDS_CANCEL##Back0 + SetupCompleteErrorCheckShowMsiLogCheckBox1511721092ISSHOWMSILOGCancel0 + SetupCompleteErrorDlgLineLine0234374010 + SetupCompleteErrorFinishPushButton23024366173##IDS__IsFatalError_Finish##Image0 + SetupCompleteErrorFinishText1Text135802285065539##IDS__IsFatalError_NotModified##0 + SetupCompleteErrorFinishText2Text1351352282565539##IDS__IsFatalError_ClickFinish##0 + SetupCompleteErrorImageBitmap003742341CheckShowMsiLog0NewBinary5SetupCompleteErrorRestContText1Text135802285065539##IDS__IsFatalError_KeepOrRestore##0 + SetupCompleteErrorRestContText2Text1351352282565539##IDS__IsFatalError_RestoreOrContinueLater##0 + SetupCompleteErrorShowMsiLogTextText1641721981065538##IDS__IsSetupComplete_ShowMsiLog##0 + SetupCompleteErrorTextLine1Text13582254565539##IDS__IsFatalError_WizardCompleted##0 + SetupCompleteErrorTextLine2Text1355522825196611##IDS__IsFatalError_WizardInterrupted##0 + SetupCompleteSuccessBackPushButton16424366171##IDS_BACK##OK0 + SetupCompleteSuccessCancelPushButton30124366171##IDS_CANCEL##Image0 + SetupCompleteSuccessCheckBoxUpdatesCheckBox1351641092ISCHECKFORPRODUCTUPDATESCheckBox1CheckShowMsiLog0 + SetupCompleteSuccessCheckForUpdatesTextText1521621903065538##IDS__IsExitDialog_Update_YesCheckForUpdates##0 + SetupCompleteSuccessCheckLaunchProgramCheckBox1511141092LAUNCHPROGRAMCheckLaunchReadme0 + SetupCompleteSuccessCheckLaunchReadmeCheckBox1511481092LAUNCHREADMECheckBoxUpdates0 + SetupCompleteSuccessCheckShowMsiLogCheckBox1511821092ISSHOWMSILOGBack0 + SetupCompleteSuccessDlgLineLine0234374010 + SetupCompleteSuccessImageBitmap003742341CheckLaunchProgram0NewBinary5SetupCompleteSuccessLaunchProgramTextText164112981565538##IDS__IsExitDialog_LaunchProgram##00 + SetupCompleteSuccessLaunchReadmeTextText1641481201365538##IDS__IsExitDialog_ShowReadMe##00 + SetupCompleteSuccessOKPushButton23024366173##IDS__IsExitDialog_Finish##Cancel0 + SetupCompleteSuccessShowMsiLogTextText1641821981065538##IDS__IsSetupComplete_ShowMsiLog##0 + SetupCompleteSuccessTextLine1Text13582254565539##IDS__IsExitDialog_WizardCompleted##0 + SetupCompleteSuccessTextLine2Text1355522845196610##IDS__IsExitDialog_InstallSuccess##0 + SetupCompleteSuccessTextLine3Text1355522845196610##IDS__IsExitDialog_UninstallSuccess##0 + SetupCompleteSuccessUpdateTextLine1Text1353022845196610##IDS__IsExitDialog_Update_SetupFinished##0 + SetupCompleteSuccessUpdateTextLine2Text1358022845196610##IDS__IsExitDialog_Update_PossibleUpdates##0 + SetupCompleteSuccessUpdateTextLine3Text1351202284565538##IDS__IsExitDialog_Update_InternetConnection##0 + SetupErrorAPushButton1928066173##IDS__IsErrorDlg_Abort##0 + SetupErrorCPushButton1928066173##IDS_CANCEL2##0 + SetupErrorErrorIconIcon1515242452428810NewBinary4SetupErrorErrorTextText501520050131075##IDS__IsErrorDlg_ErrorText##0 + SetupErrorIPushButton1928066173##IDS__IsErrorDlg_Ignore##0 + SetupErrorNPushButton1928066173##IDS__IsErrorDlg_NO##0 + SetupErrorOPushButton1928066173##IDS__IsErrorDlg_OK##0 + SetupErrorRPushButton1928066173##IDS__IsErrorDlg_Retry##0 + SetupErrorYPushButton1928066173##IDS__IsErrorDlg_Yes##0 + SetupInitializationActionDataText1351252281265539##IDS__IsInitDlg_1##0 + SetupInitializationActionTextText1351092203665539##IDS__IsInitDlg_2##0 + SetupInitializationBackPushButton16424366171##IDS_BACK##0 + SetupInitializationCancelPushButton30124366173##IDS_CANCEL##0 + SetupInitializationDlgLineLine0234374010 + SetupInitializationImageBitmap0037423410NewBinary5SetupInitializationNextPushButton23024366171##IDS_NEXT##0 + SetupInitializationTextLine1Text135822545196611##IDS__IsInitDlg_WelcomeWizard##0 + SetupInitializationTextLine2Text1355522830196611##IDS__IsInitDlg_PreparingWizard##0 + SetupInterruptedBackPushButton16424366171##IDS_BACK##Finish0 + SetupInterruptedCancelPushButton30124366171##IDS_CANCEL##Image0 + SetupInterruptedCheckShowMsiLogCheckBox1511721092ISSHOWMSILOGBack0 + SetupInterruptedDlgLineLine0234374010 + SetupInterruptedFinishPushButton23024366173##IDS__IsUserExit_Finish##Cancel0 + SetupInterruptedFinishText1Text135802285065539##IDS__IsUserExit_NotModified##0 + SetupInterruptedFinishText2Text1351352282565539##IDS__IsUserExit_ClickFinish##0 + SetupInterruptedImageBitmap003742341CheckShowMsiLog0NewBinary5SetupInterruptedRestContText1Text135802285065539##IDS__IsUserExit_KeepOrRestore##0 + SetupInterruptedRestContText2Text1351352282565539##IDS__IsUserExit_RestoreOrContinue##0 + SetupInterruptedShowMsiLogTextText1641721981065538##IDS__IsSetupComplete_ShowMsiLog##0 + SetupInterruptedTextLine1Text13582254565539##IDS__IsUserExit_WizardCompleted##0 + SetupInterruptedTextLine2Text1355522825196611##IDS__IsUserExit_WizardInterrupted##0 + SetupProgressActionProgress95ProgressBar591132751265537##IDS__IsProgressDlg_ProgressDone##0 + SetupProgressActionTextText59100275123##IDS__IsProgressDlg_2##0 + SetupProgressBackPushButton16424366171##IDS_BACK##Next0 + SetupProgressBannerBitmap003744410NewBinary1SetupProgressBannerLineLine044374010 + SetupProgressBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + SetupProgressBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + SetupProgressCancelPushButton30124366173##IDS_CANCEL##Back0 + SetupProgressDlgDescText21232922565538##IDS__IsProgressDlg_UninstallingFeatures2##0 + SetupProgressDlgDesc2Text21232922565538##IDS__IsProgressDlg_UninstallingFeatures##0 + SetupProgressDlgLineLine48234326010 + SetupProgressDlgTextText595127530196610##IDS__IsProgressDlg_WaitUninstall2##0 + SetupProgressDlgText2Text595127530196610##IDS__IsProgressDlg_WaitUninstall##0 + SetupProgressDlgTitleText13629225196610##IDS__IsProgressDlg_InstallingProductName##0 + SetupProgressDlgTitle2Text13629225196610##IDS__IsProgressDlg_Uninstalling##0 + SetupProgressLbSecText19213932122##IDS__IsProgressDlg_SecHidden##0 + SetupProgressLbStatusText598570123##IDS__IsProgressDlg_Status##0 + SetupProgressNextPushButton23024366171##IDS_NEXT##Cancel0 + SetupProgressSetupIconIcon2151242452428810NewBinary9SetupProgressShowTimeText17013917122##IDS__IsProgressDlg_Hidden##0 + SetupProgressTextTimeText59139110122##IDS__IsProgressDlg_HiddenTimeRemaining##0 + SetupResumeBackPushButton16424366171##IDS_BACK##Next0 + SetupResumeCancelPushButton30124366173##IDS_CANCEL##Back0 + SetupResumeDlgLineLine0234374010 + SetupResumeImageBitmap0037423410NewBinary5SetupResumeNextPushButton23024366173##IDS_NEXT##Cancel0 + SetupResumePreselectedTextText1355522845196611##IDS__IsResumeDlg_WizardResume##0 + SetupResumeResumeTextText1354622845196611##IDS__IsResumeDlg_ResumeSuspended##0 + SetupResumeTextLine1Text135822545196611##IDS__IsResumeDlg_Resuming##0 + SetupTypeBackPushButton16424366173##IDS_BACK##Next0 + SetupTypeBannerBitmap003744410NewBinary1SetupTypeBannerLineLine044374010 + SetupTypeBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + SetupTypeBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + SetupTypeCancelPushButton30124366173##IDS_CANCEL##RadioGroup0 + SetupTypeCompTextText8080246303##IDS__IsSetupTypeMinDlg_AllFeatures##0 + SetupTypeCompleteIcoIcon3480242452428810NewBinary10SetupTypeCustTextText80171246302##IDS__IsSetupTypeMinDlg_ChooseFeatures##0 + SetupTypeCustomIcoIcon34171242452428800NewBinary11SetupTypeDlgDescText21232922565539##IDS__IsSetupTypeMinDlg_ChooseSetupType##0 + SetupTypeDlgLineLine48234326010 + SetupTypeDlgTextText2249326103##IDS__IsSetupTypeMinDlg_SelectSetupType##00 + SetupTypeDlgTitleText1362922565539##IDS__IsSetupTypeMinDlg_SetupType##0 + SetupTypeMinIcoIcon34125242452428800NewBinary11SetupTypeMinTextText80125246302##IDS__IsSetupTypeMinDlg_MinimumFeatures##0 + SetupTypeNextPushButton23024366173##IDS_NEXT##Cancel0 + SetupTypeRadioGroupRadioButtonGroup20592641391048579_IsSetupTypeMinBack00 + SplashBitmapBackPushButton16424366171##IDS_BACK##Next0 + SplashBitmapBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + SplashBitmapBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + SplashBitmapCancelPushButton30124366173##IDS_CANCEL##Back0 + SplashBitmapDlgLineLine48234326010 + SplashBitmapImageBitmap131234921110NewBinary5SplashBitmapNextPushButton23024366173##IDS_NEXT##Cancel0 +
+ + + Dialog_ + Control_ + Action + Condition + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CustomSetupChangeFolderHideInstalledCustomSetupDetailsHideInstalledCustomSetupInstallLabelHideInstalledCustomerInformationDlgRadioGroupTextHideNOT PrivilegedCustomerInformationDlgRadioGroupTextHideProductState > 0CustomerInformationDlgRadioGroupTextHideVersion9XCustomerInformationDlgRadioGroupTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledCustomerInformationRadioGroupHideNOT PrivilegedCustomerInformationRadioGroupHideProductState > 0CustomerInformationRadioGroupHideVersion9XCustomerInformationRadioGroupHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledCustomerInformationSerialLabelShowSERIALNUMSHOWCustomerInformationSerialNumberShowSERIALNUMSHOWInstallWelcomeCopyrightHideSHOWCOPYRIGHT="No"InstallWelcomeCopyrightShowSHOWCOPYRIGHT="Yes"LicenseAgreementNextDisableAgreeToLicense <> "Yes"LicenseAgreementNextEnableAgreeToLicense = "Yes"ReadyToInstallCompanyNameTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallCurrentSettingsTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallDlgText2HideVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallDlgText2ShowVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallDlgTitleShowProgressType0="Modify"ReadyToInstallDlgTitle2ShowProgressType0="Repair"ReadyToInstallDlgTitle3ShowProgressType0="install"ReadyToInstallGroupBox1HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallInstallNowDisableVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallInstallNowEnableVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallInstallPerMachineHideVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallInstallPerMachineShowVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallInstallPerUserHideVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallInstallPerUserShowVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallSerialNumberTextHideNOT SERIALNUMSHOWReadyToInstallSerialNumberTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallSetupTypeText1HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallSetupTypeText2HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallTargetFolderText1HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallTargetFolderText2HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallUserInformationTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallUserNameTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledSetupCompleteErrorBackDefaultUpdateStartedSetupCompleteErrorBackDisableNOT UpdateStartedSetupCompleteErrorBackEnableUpdateStartedSetupCompleteErrorCancelDisableNOT UpdateStartedSetupCompleteErrorCancelEnableUpdateStartedSetupCompleteErrorCheckShowMsiLogShowMsiLogFileLocationSetupCompleteErrorFinishDefaultNOT UpdateStartedSetupCompleteErrorFinishText1HideUpdateStartedSetupCompleteErrorFinishText1ShowNOT UpdateStartedSetupCompleteErrorFinishText2HideUpdateStartedSetupCompleteErrorFinishText2ShowNOT UpdateStartedSetupCompleteErrorRestContText1HideNOT UpdateStartedSetupCompleteErrorRestContText1ShowUpdateStartedSetupCompleteErrorRestContText2HideNOT UpdateStartedSetupCompleteErrorRestContText2ShowUpdateStartedSetupCompleteErrorShowMsiLogTextShowMsiLogFileLocationSetupCompleteSuccessCheckBoxUpdatesShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessCheckForUpdatesTextShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessCheckLaunchProgramShowSHOWLAUNCHPROGRAM="-1" And PROGRAMFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessCheckLaunchReadmeShowSHOWLAUNCHREADME="-1" And READMEFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessCheckShowMsiLogShowMsiLogFileLocation And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessLaunchProgramTextShowSHOWLAUNCHPROGRAM="-1" And PROGRAMFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessLaunchReadmeTextShowSHOWLAUNCHREADME="-1" And READMEFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessShowMsiLogTextShowMsiLogFileLocation And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessTextLine2ShowProgressType2="installed" And ((ACTION<>"INSTALL") OR (NOT ISENABLEDWUSFINISHDIALOG) OR (ISENABLEDWUSFINISHDIALOG And Installed))SetupCompleteSuccessTextLine3ShowProgressType2="uninstalled" And ((ACTION<>"INSTALL") OR (NOT ISENABLEDWUSFINISHDIALOG) OR (ISENABLEDWUSFINISHDIALOG And Installed))SetupCompleteSuccessUpdateTextLine1ShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessUpdateTextLine2ShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessUpdateTextLine3ShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupInterruptedBackDefaultUpdateStartedSetupInterruptedBackDisableNOT UpdateStartedSetupInterruptedBackEnableUpdateStartedSetupInterruptedCancelDisableNOT UpdateStartedSetupInterruptedCancelEnableUpdateStartedSetupInterruptedCheckShowMsiLogShowMsiLogFileLocationSetupInterruptedFinishDefaultNOT UpdateStartedSetupInterruptedFinishText1HideUpdateStartedSetupInterruptedFinishText1ShowNOT UpdateStartedSetupInterruptedFinishText2HideUpdateStartedSetupInterruptedFinishText2ShowNOT UpdateStartedSetupInterruptedRestContText1HideNOT UpdateStartedSetupInterruptedRestContText1ShowUpdateStartedSetupInterruptedRestContText2HideNOT UpdateStartedSetupInterruptedRestContText2ShowUpdateStartedSetupInterruptedShowMsiLogTextShowMsiLogFileLocationSetupProgressDlgDescShowProgressType2="installed"SetupProgressDlgDesc2ShowProgressType2="uninstalled"SetupProgressDlgTextShowProgressType3="installs"SetupProgressDlgText2ShowProgressType3="uninstalls"SetupProgressDlgTitleShowProgressType1="Installing"SetupProgressDlgTitle2ShowProgressType1="Uninstalling"SetupResumePreselectedTextHideRESUMESetupResumePreselectedTextShowNOT RESUMESetupResumeResumeTextHideNOT RESUMESetupResumeResumeTextShowRESUME
+ + + Dialog_ + Control_ + Event + Argument + Condition + Ordering + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
AdminChangeFolderCancelEndDialogReturn12AdminChangeFolderCancelReset011AdminChangeFolderNewFolderDirectoryListNew010AdminChangeFolderOKEndDialogReturn10AdminChangeFolderOKSetTargetPathTARGETDIR11AdminChangeFolderUpDirectoryListUp010AdminNetworkLocationBackNewDialogAdminWelcome10AdminNetworkLocationBrowseSpawnDialogAdminChangeFolder10AdminNetworkLocationCancelSpawnDialogCancelSetup10AdminNetworkLocationInstallNowEndDialogReturnOutOfNoRbDiskSpace <> 13AdminNetworkLocationInstallNowNewDialogOutOfSpaceOutOfNoRbDiskSpace = 12AdminNetworkLocationInstallNowSetTargetPathTARGETDIR11AdminWelcomeCancelSpawnDialogCancelSetup10AdminWelcomeNextNewDialogAdminNetworkLocation10CancelSetupNoEndDialogReturn10CancelSetupYesDoActionCleanUpISSCRIPTRUNNING="1"1CancelSetupYesEndDialogExit12CustomSetupBackNewDialogCustomerInformationNOT Installed0CustomSetupBackNewDialogMaintenanceTypeInstalled0CustomSetupCancelSpawnDialogCancelSetup10CustomSetupChangeFolderSelectionBrowseInstallChangeFolder10CustomSetupDetailsSelectionBrowseDiskSpaceRequirements11CustomSetupHelpSpawnDialogCustomSetupTips11CustomSetupNextNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10CustomSetupNextNewDialogReadyToInstallOutOfNoRbDiskSpace <> 10CustomSetupNext[_IsSetupTypeMin]Custom10CustomSetupTipsOKEndDialogReturn11CustomerInformationBackNewDialogLicenseAgreement11CustomerInformationCancelSpawnDialogCancelSetup10CustomerInformationNextEndDialogExit(SERIALNUMVALRETRYLIMIT) And (SERIALNUMVALRETRYLIMIT<0) And (SERIALNUMVALRETURN<>SERIALNUMVALSUCCESSRETVAL)2CustomerInformationNextNewDialogReadyToInstall(Not SERIALNUMVALRETURN) OR (SERIALNUMVALRETURN=SERIALNUMVALSUCCESSRETVAL)3CustomerInformationNext[ALLUSERS]1ApplicationUsers = "AllUsers" And Privileged1CustomerInformationNext[ALLUSERS]{}ApplicationUsers = "OnlyCurrentUser" And Privileged2DatabaseFolderBackNewDialogCustomerInformation11DatabaseFolderCancelSpawnDialogCancelSetup11DatabaseFolderChangeFolderSpawnDialogInstallChangeFolder11DatabaseFolderChangeFolder[_BrowseProperty]DATABASEDIR12DatabaseFolderNextNewDialogSetupType11DestinationFolderBackNewDialogInstallWelcomeNOT Installed0DestinationFolderCancelSpawnDialogCancelSetup11DestinationFolderChangeFolderSpawnDialogInstallChangeFolder11DestinationFolderChangeFolder[_BrowseProperty]INSTALLDIR12DestinationFolderNextNewDialogReadyToInstall10DiskSpaceRequirementsOKEndDialogReturn10FilesInUseExitEndDialogExit10FilesInUseIgnoreEndDialogIgnore10FilesInUseRetryEndDialogRetry10InstallChangeFolderCancelEndDialogReturn12InstallChangeFolderCancelReset011InstallChangeFolderNewFolderDirectoryListNew010InstallChangeFolderOKEndDialogReturn13InstallChangeFolderOKSetTargetPath[_BrowseProperty]12InstallChangeFolderUpDirectoryListUp010InstallWelcomeBackNewDialogSplashBitmapDisplay_IsBitmapDlg0InstallWelcomeCancelSpawnDialogCancelSetup10InstallWelcomeNextNewDialogDestinationFolder10LicenseAgreementBackNewDialogInstallWelcome10LicenseAgreementCancelSpawnDialogCancelSetup10LicenseAgreementISPrintButtonDoActionISPrint10LicenseAgreementNextNewDialogDestinationFolderAgreeToLicense = "Yes"0MaintenanceTypeBackNewDialogMaintenanceWelcome10MaintenanceTypeCancelSpawnDialogCancelSetup10MaintenanceTypeNextNewDialogCustomSetup_IsMaintenance = "Change"12MaintenanceTypeNextNewDialogReadyToInstall_IsMaintenance = "Reinstall"13MaintenanceTypeNextNewDialogReadyToRemove_IsMaintenance = "Remove"11MaintenanceTypeNextReinstallALL_IsMaintenance = "Reinstall"10MaintenanceTypeNextReinstallMode[ReinstallModeText]_IsMaintenance = "Reinstall"9MaintenanceTypeNext[ProgressType0]Modify_IsMaintenance = "Change"2MaintenanceTypeNext[ProgressType0]Repair_IsMaintenance = "Reinstall"1MaintenanceTypeNext[ProgressType1]Modifying_IsMaintenance = "Change"3MaintenanceTypeNext[ProgressType1]Repairing_IsMaintenance = "Reinstall"4MaintenanceTypeNext[ProgressType2]modified_IsMaintenance = "Change"6MaintenanceTypeNext[ProgressType2]repairs_IsMaintenance = "Reinstall"5MaintenanceTypeNext[ProgressType3]modifies_IsMaintenance = "Change"7MaintenanceTypeNext[ProgressType3]repairs_IsMaintenance = "Reinstall"8MaintenanceWelcomeCancelSpawnDialogCancelSetup10MaintenanceWelcomeNextNewDialogMaintenanceType10MsiRMFilesInUseCancelEndDialogExit11MsiRMFilesInUseOKEndDialogReturn11MsiRMFilesInUseOKRMShutdownAndRestart0RestartManagerOption="CloseRestart"2OutOfSpaceResumeNewDialogAdminNetworkLocationACTION = "ADMIN"0OutOfSpaceResumeNewDialogDestinationFolderACTION <> "ADMIN"0PatchWelcomeCancelSpawnDialogCancelSetup11PatchWelcomeNextEndDialogReturn13PatchWelcomeNextReinstallALLPATCH And REINSTALL=""1PatchWelcomeNextReinstallModeomusPATCH And REINSTALLMODE=""2ReadmeInformationBackNewDialogLicenseAgreement11ReadmeInformationCancelSpawnDialogCancelSetup11ReadmeInformationNextNewDialogCustomerInformation11ReadyToInstallBackNewDialogCustomSetupInstalled OR _IsSetupTypeMin = "Custom"2ReadyToInstallBackNewDialogDestinationFolderNOT Installed1ReadyToInstallBackNewDialogMaintenanceTypeInstalled AND _IsMaintenance = "Reinstall"3ReadyToInstallCancelSpawnDialogCancelSetup10ReadyToInstallInstallNowEndDialogReturnOutOfNoRbDiskSpace <> 10ReadyToInstallInstallNowNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10ReadyToInstallInstallNow[ProgressType1]Installing10ReadyToInstallInstallNow[ProgressType2]installed10ReadyToInstallInstallNow[ProgressType3]installs10ReadyToInstallInstallPerMachineEndDialogReturnOutOfNoRbDiskSpace <> 10ReadyToInstallInstallPerMachineNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10ReadyToInstallInstallPerMachine[ALLUSERS]110ReadyToInstallInstallPerMachine[MSIINSTALLPERUSER]{}10ReadyToInstallInstallPerMachine[ProgressType1]Installing10ReadyToInstallInstallPerMachine[ProgressType2]installed10ReadyToInstallInstallPerMachine[ProgressType3]installs10ReadyToInstallInstallPerUserEndDialogReturnOutOfNoRbDiskSpace <> 10ReadyToInstallInstallPerUserNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10ReadyToInstallInstallPerUser[ALLUSERS]210ReadyToInstallInstallPerUser[MSIINSTALLPERUSER]110ReadyToInstallInstallPerUser[ProgressType1]Installing10ReadyToInstallInstallPerUser[ProgressType2]installed10ReadyToInstallInstallPerUser[ProgressType3]installs10ReadyToRemoveBackNewDialogMaintenanceType10ReadyToRemoveCancelSpawnDialogCancelSetup10ReadyToRemoveRemoveNowEndDialogReturnOutOfNoRbDiskSpace <> 12ReadyToRemoveRemoveNowNewDialogOutOfSpaceOutOfNoRbDiskSpace = 12ReadyToRemoveRemoveNowRemoveALL11ReadyToRemoveRemoveNow[ProgressType1]Uninstalling10ReadyToRemoveRemoveNow[ProgressType2]uninstalled10ReadyToRemoveRemoveNow[ProgressType3]uninstalls10SetupCompleteErrorBackEndDialogReturn12SetupCompleteErrorBack[Suspend]{}11SetupCompleteErrorCancelEndDialogReturn12SetupCompleteErrorCancel[Suspend]111SetupCompleteErrorFinishDoActionCleanUpISSCRIPTRUNNING="1"1SetupCompleteErrorFinishDoActionShowMsiLogMsiLogFileLocation And (ISSHOWMSILOG="1")3SetupCompleteErrorFinishEndDialogExit12SetupCompleteSuccessOKDoActionCleanUpISSCRIPTRUNNING="1"1SetupCompleteSuccessOKDoActionLaunchProgramFileFromSetupCompleteSuccessLAUNCHPROGRAM And PROGRAMFILETOLAUNCHATEND <> "" And NOT Installed2SetupCompleteSuccessOKDoActionShowMsiLogMsiLogFileLocation And (ISSHOWMSILOG="1") And NOT ISENABLEDWUSFINISHDIALOG7SetupCompleteSuccessOKEndDialogExit13SetupErrorAEndDialogErrorAbort10SetupErrorCEndDialogErrorCancel10SetupErrorIEndDialogErrorIgnore10SetupErrorNEndDialogErrorNo10SetupErrorOEndDialogErrorOk10SetupErrorREndDialogErrorRetry10SetupErrorYEndDialogErrorYes10SetupInitializationCancelSpawnDialogCancelSetup10SetupInterruptedBackEndDialogExit12SetupInterruptedBack[Suspend]{}11SetupInterruptedCancelEndDialogExit12SetupInterruptedCancel[Suspend]111SetupInterruptedFinishDoActionCleanUpISSCRIPTRUNNING="1"1SetupInterruptedFinishDoActionShowMsiLogMsiLogFileLocation And (ISSHOWMSILOG="1")3SetupInterruptedFinishEndDialogExit12SetupProgressCancelSpawnDialogCancelSetup10SetupResumeCancelSpawnDialogCancelSetup10SetupResumeNextEndDialogReturnOutOfNoRbDiskSpace <> 10SetupResumeNextNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10SetupTypeBackNewDialogCustomerInformation11SetupTypeCancelSpawnDialogCancelSetup10SetupTypeNextNewDialogCustomSetup_IsSetupTypeMin = "Custom"2SetupTypeNextNewDialogReadyToInstall_IsSetupTypeMin <> "Custom"1SetupTypeNextSetInstallLevel100_IsSetupTypeMin="Minimal"0SetupTypeNextSetInstallLevel200_IsSetupTypeMin="Typical"0SetupTypeNextSetInstallLevel300_IsSetupTypeMin="Custom"0SetupTypeNext[ISRUNSETUPTYPEADDLOCALEVENT]110SetupTypeNext[SelectedSetupType][DisplayNameCustom]_IsSetupTypeMin = "Custom"0SetupTypeNext[SelectedSetupType][DisplayNameMinimal]_IsSetupTypeMin = "Minimal"0SetupTypeNext[SelectedSetupType][DisplayNameTypical]_IsSetupTypeMin = "Typical"0SplashBitmapCancelSpawnDialogCancelSetup10SplashBitmapNextNewDialogInstallWelcome10
+ + + Directory_ + Component_ +
+ + + Action + Type + Source + Target + ExtendedType + ISComments + + + + +
ISPreventDowngrade19[IS_PREVENT_DOWNGRADE_EXIT]Exits install when a newer version of this product is foundISPrint1SetAllUsers.dllPrintScrollableTextPrints the contents of a ScrollableText control on a dialog.ISRunSetupTypeAddLocalEvent1ISExpHlp.dllRunSetupTypeAddLocalEventRun the AddLocal events associated with the Next button on the Setup Type dialog.ISSelfRegisterCosting1ISSELFREG.DLLISSelfRegisterCosting + ISSelfRegisterFiles3073ISSELFREG.DLLISSelfRegisterFiles + ISSelfRegisterFinalize1ISSELFREG.DLLISSelfRegisterFinalize + ISSetAllUsers257SetAllUsers.dllSetAllUsers + ISUnSelfRegisterFiles3073ISSELFREG.DLLISUnSelfRegisterFiles + LaunchProgramFileFromSetupCompleteSuccess1NewBinary19LaunchProgram + SetARPINSTALLLOCATION51ARPINSTALLLOCATION[INSTALLDIR] + SetAllUsersProfileNT51ALLUSERSPROFILE[%SystemRoot]\Profiles\All Users + ShowMsiLog226SystemFolder[SystemFolder]notepad.exe "[MsiLogFileLocation]"Shows Property-driven MSI LogsetAllUsersProfile2K51ALLUSERSPROFILE[%ALLUSERSPROFILE] + setUserProfileNT51USERPROFILE[%USERPROFILE] +
+ + + Dialog + HCentering + VCentering + Width + Height + Attributes + Title + Control_First + Control_Default + Control_Cancel + ISComments + TextStyle_ + ISWindowStyle + ISResourceId + +
AdminChangeFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##TailOKCancelInstall Point Browse0 + AdminNetworkLocation50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##InstallNowInstallNowCancelNetwork Location0 + AdminWelcome50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelAdministration Welcome0 + CancelSetup5050260853##IDS_PRODUCTNAME_INSTALLSHIELD##NoNoNoCancel0 + CustomSetup505037426635##IDS_PRODUCTNAME_INSTALLSHIELD##TreeNextCancelCustom Selection0 + CustomSetupTips50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKOKCustom Setup Tips0 + CustomerInformation50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NameEditNextCancelIdentification0 + DatabaseFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelDatabase Folder0 + DestinationFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelDestination Folder0 + DiskSpaceRequirements50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKOKFeature Details0 + FilesInUse505037426619##IDS_PRODUCTNAME_INSTALLSHIELD##RetryRetryExitFiles in Use0 + InstallChangeFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##TailOKCancelBrowse0 + InstallWelcome50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelWelcome Panel0 + LicenseAgreement50503742662##IDS_PRODUCTNAME_INSTALLSHIELD##AgreeNextCancelLicense Agreement0 + MaintenanceType50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##RadioGroupNextCancelChange, Reinstall, Remove0 + MaintenanceWelcome50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelMaintenance Welcome0 + MsiRMFilesInUse505037426619##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKCancelRestartManager Files in Use0 + OutOfSpace50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##ResumeResumeResumeOut Of Disk Space0 + PatchWelcome50503742663##IDS__IsPatchDlg_PatchWizard##NextNextCancelPatch Panel0 + ReadmeInformation50503742667##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelReadme Information00ReadyToInstall505037426635##IDS_PRODUCTNAME_INSTALLSHIELD##InstallNowInstallNowCancelReady to Install0 + ReadyToRemove50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##RemoveNowRemoveNowCancelVerify Remove0 + SetupCompleteError50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##FinishFinishFinishFatal Error0 + SetupCompleteSuccess50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKOKExit0 + SetupError505027011065543##IDS__IsErrorDlg_InstallerInfo##ErrorTextOCError0 + SetupInitialization50503742665##IDS_PRODUCTNAME_INSTALLSHIELD##CancelCancelCancelSetup Initialization0 + SetupInterrupted50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##FinishFinishFinishUser Exit0 + SetupProgress50503742665##IDS_PRODUCTNAME_INSTALLSHIELD##CancelCancelCancelProgress0 + SetupResume50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelResume0 + SetupType50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##RadioGroupNextCancelSetup Type0 + SplashBitmap50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelWelcome Bitmap0 +
+ + + Directory + Directory_Parent + DefaultDir + ISDescription + ISAttributes + ISFolderName +
ALLUSERSPROFILETARGETDIR.:ALLUSE~1|All Users0 + AdminToolsFolderTARGETDIR.:Admint~1|AdminTools0 + AppDataFolderTARGETDIR.:APPLIC~1|Application Data0 + CommonAppDataFolderTARGETDIR.:Common~1|CommonAppData0 + CommonFiles64FolderTARGETDIR.:Common640 + CommonFilesFolderTARGETDIR.:Common0 + DATABASEDIRISYourDataBaseDir.0 + DD__RECORD_ORGANIZERDIGITAL_DATADD-REC~1|DD- Record-Organizer0 + DIGITAL_DATAProgramFilesFolderDIGITA~1|Digital Data0 + DesktopFolderTARGETDIR.:Desktop3 + FavoritesFolderTARGETDIR.:FAVORI~1|Favorites0 + FontsFolderTARGETDIR.:Fonts0 + GlobalAssemblyCacheTARGETDIR.:Global~1|GlobalAssemblyCache0 + INSTALLDIRDD__RECORD_ORGANIZER.0 + ISCommonFilesFolderCommonFilesFolderInstal~1|InstallShield0 + ISMyCompanyDirProgramFilesFolderMYCOMP~1|My Company Name0 + ISMyProductDirISMyCompanyDirMYPROD~1|My Product Name0 + ISYourDataBaseDirINSTALLDIRDatabase0 + LocalAppDataFolderTARGETDIR.:LocalA~1|LocalAppData0 + MY_PRODUCT_NAMEDIGITAL_DATAMYPROD~1|My Product Name0 + MyPicturesFolderTARGETDIR.:MyPict~1|MyPictures0 + NetHoodFolderTARGETDIR.:NetHood0 + PersonalFolderTARGETDIR.:Personal0 + PrimaryVolumePathTARGETDIR.:Primar~1|PrimaryVolumePath0 + PrintHoodFolderTARGETDIR.:PRINTH~1|PrintHood0 + ProgramFiles64FolderTARGETDIR.:Prog64~1|Program Files 640 + ProgramFilesFolderTARGETDIR.:PROGRA~1|program files0 + ProgramMenuFolderTARGETDIR.:Programs3 + RecentFolderTARGETDIR.:Recent0 + SendToFolderTARGETDIR.:SendTo3 + StartMenuFolderTARGETDIR.:STARTM~1|Start Menu3 + StartupFolderTARGETDIR.:StartUp3 + System16FolderTARGETDIR.:System0 + System64FolderTARGETDIR.:System640 + SystemFolderTARGETDIR.:System320 + TARGETDIRSourceDir0 + TempFolderTARGETDIR.:Temp0 + TemplateFolderTARGETDIR.:ShellNew0 + USERPROFILETARGETDIR.:USERPR~1|UserProfile0 + WindowsFolderTARGETDIR.:Windows0 + WindowsVolumeTARGETDIR.:WinRoot0 + digita_1_digital_dataProgramMenuFolderDIGITA~1|Digital Data1 + setupdigita_1_digital_dataSetup1 +
+ + + Signature_ + Parent + Path + Depth +
+ + + FileKey + Component_ + File_ + DestName + DestFolder +
+ + + Environment + Name + Value + Component_ +
+ + + Error + Message + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
0##IDS_ERROR_0##1##IDS_ERROR_1##10##IDS_ERROR_8##11##IDS_ERROR_9##1101##IDS_ERROR_22##12##IDS_ERROR_10##13##IDS_ERROR_11##1301##IDS_ERROR_23##1302##IDS_ERROR_24##1303##IDS_ERROR_25##1304##IDS_ERROR_26##1305##IDS_ERROR_27##1306##IDS_ERROR_28##1307##IDS_ERROR_29##1308##IDS_ERROR_30##1309##IDS_ERROR_31##1310##IDS_ERROR_32##1311##IDS_ERROR_33##1312##IDS_ERROR_34##1313##IDS_ERROR_35##1314##IDS_ERROR_36##1315##IDS_ERROR_37##1316##IDS_ERROR_38##1317##IDS_ERROR_39##1318##IDS_ERROR_40##1319##IDS_ERROR_41##1320##IDS_ERROR_42##1321##IDS_ERROR_43##1322##IDS_ERROR_44##1323##IDS_ERROR_45##1324##IDS_ERROR_46##1325##IDS_ERROR_47##1326##IDS_ERROR_48##1327##IDS_ERROR_49##1328##IDS_ERROR_122##1329##IDS_ERROR_1329##1330##IDS_ERROR_1330##1331##IDS_ERROR_1331##1332##IDS_ERROR_1332##1333##IDS_ERROR_1333##1334##IDS_ERROR_1334##1335##IDS_ERROR_1335##1336##IDS_ERROR_1336##14##IDS_ERROR_12##1401##IDS_ERROR_50##1402##IDS_ERROR_51##1403##IDS_ERROR_52##1404##IDS_ERROR_53##1405##IDS_ERROR_54##1406##IDS_ERROR_55##1407##IDS_ERROR_56##1408##IDS_ERROR_57##1409##IDS_ERROR_58##1410##IDS_ERROR_59##15##IDS_ERROR_13##1500##IDS_ERROR_60##1501##IDS_ERROR_61##1502##IDS_ERROR_62##1503##IDS_ERROR_63##16##IDS_ERROR_14##1601##IDS_ERROR_64##1602##IDS_ERROR_65##1603##IDS_ERROR_66##1604##IDS_ERROR_67##1605##IDS_ERROR_68##1606##IDS_ERROR_69##1607##IDS_ERROR_70##1608##IDS_ERROR_71##1609##IDS_ERROR_1609##1651##IDS_ERROR_1651##17##IDS_ERROR_15##1701##IDS_ERROR_72##1702##IDS_ERROR_73##1703##IDS_ERROR_74##1704##IDS_ERROR_75##1705##IDS_ERROR_76##1706##IDS_ERROR_77##1707##IDS_ERROR_78##1708##IDS_ERROR_79##1709##IDS_ERROR_80##1710##IDS_ERROR_81##1711##IDS_ERROR_82##1712##IDS_ERROR_83##1713##IDS_ERROR_123##1714##IDS_ERROR_124##1715##IDS_ERROR_1715##1716##IDS_ERROR_1716##1717##IDS_ERROR_1717##1718##IDS_ERROR_1718##1719##IDS_ERROR_1719##1720##IDS_ERROR_1720##1721##IDS_ERROR_1721##1722##IDS_ERROR_1722##1723##IDS_ERROR_1723##1724##IDS_ERROR_1724##1725##IDS_ERROR_1725##1726##IDS_ERROR_1726##1727##IDS_ERROR_1727##1728##IDS_ERROR_1728##1729##IDS_ERROR_1729##1730##IDS_ERROR_1730##1731##IDS_ERROR_1731##1732##IDS_ERROR_1732##18##IDS_ERROR_16##1801##IDS_ERROR_84##1802##IDS_ERROR_85##1803##IDS_ERROR_86##1804##IDS_ERROR_87##1805##IDS_ERROR_88##1806##IDS_ERROR_89##1807##IDS_ERROR_90##19##IDS_ERROR_17##1901##IDS_ERROR_91##1902##IDS_ERROR_92##1903##IDS_ERROR_93##1904##IDS_ERROR_94##1905##IDS_ERROR_95##1906##IDS_ERROR_96##1907##IDS_ERROR_97##1908##IDS_ERROR_98##1909##IDS_ERROR_99##1910##IDS_ERROR_100##1911##IDS_ERROR_101##1912##IDS_ERROR_102##1913##IDS_ERROR_103##1914##IDS_ERROR_104##1915##IDS_ERROR_105##1916##IDS_ERROR_106##1917##IDS_ERROR_107##1918##IDS_ERROR_108##1919##IDS_ERROR_109##1920##IDS_ERROR_110##1921##IDS_ERROR_111##1922##IDS_ERROR_112##1923##IDS_ERROR_113##1924##IDS_ERROR_114##1925##IDS_ERROR_115##1926##IDS_ERROR_116##1927##IDS_ERROR_117##1928##IDS_ERROR_118##1929##IDS_ERROR_119##1930##IDS_ERROR_125##1931##IDS_ERROR_126##1932##IDS_ERROR_127##1933##IDS_ERROR_128##1934##IDS_ERROR_129##1935##IDS_ERROR_1935##1936##IDS_ERROR_1936##1937##IDS_ERROR_1937##1938##IDS_ERROR_1938##2##IDS_ERROR_2##20##IDS_ERROR_18##21##IDS_ERROR_19##2101##IDS_ERROR_2101##2102##IDS_ERROR_2102##2103##IDS_ERROR_2103##2104##IDS_ERROR_2104##2105##IDS_ERROR_2105##2106##IDS_ERROR_2106##2107##IDS_ERROR_2107##2108##IDS_ERROR_2108##2109##IDS_ERROR_2109##2110##IDS_ERROR_2110##2111##IDS_ERROR_2111##2112##IDS_ERROR_2112##2113##IDS_ERROR_2113##22##IDS_ERROR_120##2200##IDS_ERROR_2200##2201##IDS_ERROR_2201##2202##IDS_ERROR_2202##2203##IDS_ERROR_2203##2204##IDS_ERROR_2204##2205##IDS_ERROR_2205##2206##IDS_ERROR_2206##2207##IDS_ERROR_2207##2208##IDS_ERROR_2208##2209##IDS_ERROR_2209##2210##IDS_ERROR_2210##2211##IDS_ERROR_2211##2212##IDS_ERROR_2212##2213##IDS_ERROR_2213##2214##IDS_ERROR_2214##2215##IDS_ERROR_2215##2216##IDS_ERROR_2216##2217##IDS_ERROR_2217##2218##IDS_ERROR_2218##2219##IDS_ERROR_2219##2220##IDS_ERROR_2220##2221##IDS_ERROR_2221##2222##IDS_ERROR_2222##2223##IDS_ERROR_2223##2224##IDS_ERROR_2224##2225##IDS_ERROR_2225##2226##IDS_ERROR_2226##2227##IDS_ERROR_2227##2228##IDS_ERROR_2228##2229##IDS_ERROR_2229##2230##IDS_ERROR_2230##2231##IDS_ERROR_2231##2232##IDS_ERROR_2232##2233##IDS_ERROR_2233##2234##IDS_ERROR_2234##2235##IDS_ERROR_2235##2236##IDS_ERROR_2236##2237##IDS_ERROR_2237##2238##IDS_ERROR_2238##2239##IDS_ERROR_2239##2240##IDS_ERROR_2240##2241##IDS_ERROR_2241##2242##IDS_ERROR_2242##2243##IDS_ERROR_2243##2244##IDS_ERROR_2244##2245##IDS_ERROR_2245##2246##IDS_ERROR_2246##2247##IDS_ERROR_2247##2248##IDS_ERROR_2248##2249##IDS_ERROR_2249##2250##IDS_ERROR_2250##2251##IDS_ERROR_2251##2252##IDS_ERROR_2252##2253##IDS_ERROR_2253##2254##IDS_ERROR_2254##2255##IDS_ERROR_2255##2256##IDS_ERROR_2256##2257##IDS_ERROR_2257##2258##IDS_ERROR_2258##2259##IDS_ERROR_2259##2260##IDS_ERROR_2260##2261##IDS_ERROR_2261##2262##IDS_ERROR_2262##2263##IDS_ERROR_2263##2264##IDS_ERROR_2264##2265##IDS_ERROR_2265##2266##IDS_ERROR_2266##2267##IDS_ERROR_2267##2268##IDS_ERROR_2268##2269##IDS_ERROR_2269##2270##IDS_ERROR_2270##2271##IDS_ERROR_2271##2272##IDS_ERROR_2272##2273##IDS_ERROR_2273##2274##IDS_ERROR_2274##2275##IDS_ERROR_2275##2276##IDS_ERROR_2276##2277##IDS_ERROR_2277##2278##IDS_ERROR_2278##2279##IDS_ERROR_2279##2280##IDS_ERROR_2280##2281##IDS_ERROR_2281##2282##IDS_ERROR_2282##23##IDS_ERROR_121##2302##IDS_ERROR_2302##2303##IDS_ERROR_2303##2304##IDS_ERROR_2304##2305##IDS_ERROR_2305##2306##IDS_ERROR_2306##2307##IDS_ERROR_2307##2308##IDS_ERROR_2308##2309##IDS_ERROR_2309##2310##IDS_ERROR_2310##2315##IDS_ERROR_2315##2318##IDS_ERROR_2318##2319##IDS_ERROR_2319##2320##IDS_ERROR_2320##2321##IDS_ERROR_2321##2322##IDS_ERROR_2322##2323##IDS_ERROR_2323##2324##IDS_ERROR_2324##2325##IDS_ERROR_2325##2326##IDS_ERROR_2326##2327##IDS_ERROR_2327##2328##IDS_ERROR_2328##2329##IDS_ERROR_2329##2330##IDS_ERROR_2330##2331##IDS_ERROR_2331##2332##IDS_ERROR_2332##2333##IDS_ERROR_2333##2334##IDS_ERROR_2334##2335##IDS_ERROR_2335##2336##IDS_ERROR_2336##2337##IDS_ERROR_2337##2338##IDS_ERROR_2338##2339##IDS_ERROR_2339##2340##IDS_ERROR_2340##2341##IDS_ERROR_2341##2342##IDS_ERROR_2342##2343##IDS_ERROR_2343##2344##IDS_ERROR_2344##2345##IDS_ERROR_2345##2347##IDS_ERROR_2347##2348##IDS_ERROR_2348##2349##IDS_ERROR_2349##2350##IDS_ERROR_2350##2351##IDS_ERROR_2351##2352##IDS_ERROR_2352##2353##IDS_ERROR_2353##2354##IDS_ERROR_2354##2355##IDS_ERROR_2355##2356##IDS_ERROR_2356##2357##IDS_ERROR_2357##2358##IDS_ERROR_2358##2359##IDS_ERROR_2359##2360##IDS_ERROR_2360##2361##IDS_ERROR_2361##2362##IDS_ERROR_2362##2363##IDS_ERROR_2363##2364##IDS_ERROR_2364##2365##IDS_ERROR_2365##2366##IDS_ERROR_2366##2367##IDS_ERROR_2367##2368##IDS_ERROR_2368##2370##IDS_ERROR_2370##2371##IDS_ERROR_2371##2372##IDS_ERROR_2372##2373##IDS_ERROR_2373##2374##IDS_ERROR_2374##2375##IDS_ERROR_2375##2376##IDS_ERROR_2376##2379##IDS_ERROR_2379##2380##IDS_ERROR_2380##2381##IDS_ERROR_2381##2382##IDS_ERROR_2382##2401##IDS_ERROR_2401##2402##IDS_ERROR_2402##2501##IDS_ERROR_2501##2502##IDS_ERROR_2502##2503##IDS_ERROR_2503##2601##IDS_ERROR_2601##2602##IDS_ERROR_2602##2603##IDS_ERROR_2603##2604##IDS_ERROR_2604##2605##IDS_ERROR_2605##2606##IDS_ERROR_2606##2607##IDS_ERROR_2607##2608##IDS_ERROR_2608##2609##IDS_ERROR_2609##2611##IDS_ERROR_2611##2612##IDS_ERROR_2612##2613##IDS_ERROR_2613##2614##IDS_ERROR_2614##2615##IDS_ERROR_2615##2616##IDS_ERROR_2616##2617##IDS_ERROR_2617##2618##IDS_ERROR_2618##2619##IDS_ERROR_2619##2620##IDS_ERROR_2620##2621##IDS_ERROR_2621##2701##IDS_ERROR_2701##2702##IDS_ERROR_2702##2703##IDS_ERROR_2703##2704##IDS_ERROR_2704##2705##IDS_ERROR_2705##2706##IDS_ERROR_2706##2707##IDS_ERROR_2707##2708##IDS_ERROR_2708##2709##IDS_ERROR_2709##2710##IDS_ERROR_2710##2711##IDS_ERROR_2711##2712##IDS_ERROR_2712##2713##IDS_ERROR_2713##2714##IDS_ERROR_2714##2715##IDS_ERROR_2715##2716##IDS_ERROR_2716##2717##IDS_ERROR_2717##2718##IDS_ERROR_2718##2719##IDS_ERROR_2719##2720##IDS_ERROR_2720##2721##IDS_ERROR_2721##2722##IDS_ERROR_2722##2723##IDS_ERROR_2723##2724##IDS_ERROR_2724##2725##IDS_ERROR_2725##2726##IDS_ERROR_2726##2727##IDS_ERROR_2727##2728##IDS_ERROR_2728##2729##IDS_ERROR_2729##2730##IDS_ERROR_2730##2731##IDS_ERROR_2731##2732##IDS_ERROR_2732##2733##IDS_ERROR_2733##2734##IDS_ERROR_2734##2735##IDS_ERROR_2735##2736##IDS_ERROR_2736##2737##IDS_ERROR_2737##2738##IDS_ERROR_2738##2739##IDS_ERROR_2739##2740##IDS_ERROR_2740##2741##IDS_ERROR_2741##2742##IDS_ERROR_2742##2743##IDS_ERROR_2743##2744##IDS_ERROR_2744##2745##IDS_ERROR_2745##2746##IDS_ERROR_2746##2747##IDS_ERROR_2747##2748##IDS_ERROR_2748##2749##IDS_ERROR_2749##2750##IDS_ERROR_2750##27500##IDS_ERROR_130##27501##IDS_ERROR_131##27502##IDS_ERROR_27502##27503##IDS_ERROR_27503##27504##IDS_ERROR_27504##27505##IDS_ERROR_27505##27506##IDS_ERROR_27506##27507##IDS_ERROR_27507##27508##IDS_ERROR_27508##27509##IDS_ERROR_27509##2751##IDS_ERROR_2751##27510##IDS_ERROR_27510##27511##IDS_ERROR_27511##27512##IDS_ERROR_27512##27513##IDS_ERROR_27513##27514##IDS_ERROR_27514##27515##IDS_ERROR_27515##27516##IDS_ERROR_27516##27517##IDS_ERROR_27517##27518##IDS_ERROR_27518##27519##IDS_ERROR_27519##2752##IDS_ERROR_2752##27520##IDS_ERROR_27520##27521##IDS_ERROR_27521##27522##IDS_ERROR_27522##27523##IDS_ERROR_27523##27524##IDS_ERROR_27524##27525##IDS_ERROR_27525##27526##IDS_ERROR_27526##27527##IDS_ERROR_27527##27528##IDS_ERROR_27528##27529##IDS_ERROR_27529##2753##IDS_ERROR_2753##27530##IDS_ERROR_27530##27531##IDS_ERROR_27531##27532##IDS_ERROR_27532##27533##IDS_ERROR_27533##27534##IDS_ERROR_27534##27535##IDS_ERROR_27535##27536##IDS_ERROR_27536##27537##IDS_ERROR_27537##27538##IDS_ERROR_27538##27539##IDS_ERROR_27539##2754##IDS_ERROR_2754##27540##IDS_ERROR_27540##27541##IDS_ERROR_27541##27542##IDS_ERROR_27542##27543##IDS_ERROR_27543##27544##IDS_ERROR_27544##27545##IDS_ERROR_27545##27546##IDS_ERROR_27546##27547##IDS_ERROR_27547##27548##IDS_ERROR_27548##27549##IDS_ERROR_27549##2755##IDS_ERROR_2755##27550##IDS_ERROR_27550##27551##IDS_ERROR_27551##27552##IDS_ERROR_27552##27553##IDS_ERROR_27553##27554##IDS_ERROR_27554##27555##IDS_ERROR_27555##2756##IDS_ERROR_2756##2757##IDS_ERROR_2757##2758##IDS_ERROR_2758##2759##IDS_ERROR_2759##2760##IDS_ERROR_2760##2761##IDS_ERROR_2761##2762##IDS_ERROR_2762##2763##IDS_ERROR_2763##2765##IDS_ERROR_2765##2766##IDS_ERROR_2766##2767##IDS_ERROR_2767##2768##IDS_ERROR_2768##2769##IDS_ERROR_2769##2770##IDS_ERROR_2770##2771##IDS_ERROR_2771##2772##IDS_ERROR_2772##2801##IDS_ERROR_2801##2802##IDS_ERROR_2802##2803##IDS_ERROR_2803##2804##IDS_ERROR_2804##2806##IDS_ERROR_2806##2807##IDS_ERROR_2807##2808##IDS_ERROR_2808##2809##IDS_ERROR_2809##2810##IDS_ERROR_2810##2811##IDS_ERROR_2811##2812##IDS_ERROR_2812##2813##IDS_ERROR_2813##2814##IDS_ERROR_2814##2815##IDS_ERROR_2815##2816##IDS_ERROR_2816##2817##IDS_ERROR_2817##2818##IDS_ERROR_2818##2819##IDS_ERROR_2819##2820##IDS_ERROR_2820##2821##IDS_ERROR_2821##2822##IDS_ERROR_2822##2823##IDS_ERROR_2823##2824##IDS_ERROR_2824##2825##IDS_ERROR_2825##2826##IDS_ERROR_2826##2827##IDS_ERROR_2827##2828##IDS_ERROR_2828##2829##IDS_ERROR_2829##2830##IDS_ERROR_2830##2831##IDS_ERROR_2831##2832##IDS_ERROR_2832##2833##IDS_ERROR_2833##2834##IDS_ERROR_2834##2835##IDS_ERROR_2835##2836##IDS_ERROR_2836##2837##IDS_ERROR_2837##2838##IDS_ERROR_2838##2839##IDS_ERROR_2839##2840##IDS_ERROR_2840##2841##IDS_ERROR_2841##2842##IDS_ERROR_2842##2843##IDS_ERROR_2843##2844##IDS_ERROR_2844##2845##IDS_ERROR_2845##2846##IDS_ERROR_2846##2847##IDS_ERROR_2847##2848##IDS_ERROR_2848##2849##IDS_ERROR_2849##2850##IDS_ERROR_2850##2851##IDS_ERROR_2851##2852##IDS_ERROR_2852##2853##IDS_ERROR_2853##2854##IDS_ERROR_2854##2855##IDS_ERROR_2855##2856##IDS_ERROR_2856##2857##IDS_ERROR_2857##2858##IDS_ERROR_2858##2859##IDS_ERROR_2859##2860##IDS_ERROR_2860##2861##IDS_ERROR_2861##2862##IDS_ERROR_2862##2863##IDS_ERROR_2863##2864##IDS_ERROR_2864##2865##IDS_ERROR_2865##2866##IDS_ERROR_2866##2867##IDS_ERROR_2867##2868##IDS_ERROR_2868##2869##IDS_ERROR_2869##2870##IDS_ERROR_2870##2871##IDS_ERROR_2871##2872##IDS_ERROR_2872##2873##IDS_ERROR_2873##2874##IDS_ERROR_2874##2875##IDS_ERROR_2875##2876##IDS_ERROR_2876##2877##IDS_ERROR_2877##2878##IDS_ERROR_2878##2879##IDS_ERROR_2879##2880##IDS_ERROR_2880##2881##IDS_ERROR_2881##2882##IDS_ERROR_2882##2883##IDS_ERROR_2883##2884##IDS_ERROR_2884##2885##IDS_ERROR_2885##2886##IDS_ERROR_2886##2887##IDS_ERROR_2887##2888##IDS_ERROR_2888##2889##IDS_ERROR_2889##2890##IDS_ERROR_2890##2891##IDS_ERROR_2891##2892##IDS_ERROR_2892##2893##IDS_ERROR_2893##2894##IDS_ERROR_2894##2895##IDS_ERROR_2895##2896##IDS_ERROR_2896##2897##IDS_ERROR_2897##2898##IDS_ERROR_2898##2899##IDS_ERROR_2899##2901##IDS_ERROR_2901##2902##IDS_ERROR_2902##2903##IDS_ERROR_2903##2904##IDS_ERROR_2904##2905##IDS_ERROR_2905##2906##IDS_ERROR_2906##2907##IDS_ERROR_2907##2908##IDS_ERROR_2908##2909##IDS_ERROR_2909##2910##IDS_ERROR_2910##2911##IDS_ERROR_2911##2912##IDS_ERROR_2912##2919##IDS_ERROR_2919##2920##IDS_ERROR_2920##2924##IDS_ERROR_2924##2927##IDS_ERROR_2927##2928##IDS_ERROR_2928##2929##IDS_ERROR_2929##2932##IDS_ERROR_2932##2933##IDS_ERROR_2933##2934##IDS_ERROR_2934##2935##IDS_ERROR_2935##2936##IDS_ERROR_2936##2937##IDS_ERROR_2937##2938##IDS_ERROR_2938##2939##IDS_ERROR_2939##2940##IDS_ERROR_2940##2941##IDS_ERROR_2941##2942##IDS_ERROR_2942##2943##IDS_ERROR_2943##2944##IDS_ERROR_2944##2945##IDS_ERROR_2945##3001##IDS_ERROR_3001##3002##IDS_ERROR_3002##32##IDS_ERROR_20##33##IDS_ERROR_21##4##IDS_ERROR_3##5##IDS_ERROR_4##7##IDS_ERROR_5##8##IDS_ERROR_6##9##IDS_ERROR_7##
+ + + Dialog_ + Control_ + Event + Attribute + + + + + + + + + + + + + + + +
CustomSetupItemDescriptionSelectionDescriptionTextCustomSetupLocationSelectionPathTextCustomSetupSizeSelectionSizeTextSetupInitializationActionDataActionDataTextSetupInitializationActionTextActionTextTextSetupProgressActionProgress95AdminInstallFinalizeProgressSetupProgressActionProgress95InstallFilesProgressSetupProgressActionProgress95MoveFilesProgressSetupProgressActionProgress95RemoveFilesProgressSetupProgressActionProgress95RemoveRegistryValuesProgressSetupProgressActionProgress95SetProgressProgressSetupProgressActionProgress95UnmoveFilesProgressSetupProgressActionProgress95WriteIniValuesProgressSetupProgressActionProgress95WriteRegistryValuesProgressSetupProgressActionTextActionTextText
+ + + Extension + Component_ + ProgId_ + MIME_ + Feature_ +
+ + + Feature + Feature_Parent + Title + Description + Display + Level + Directory_ + Attributes + ISReleaseFlags + ISComments + ISFeatureCabName + ISProFeatureName +
AlwaysInstall##DN_AlwaysInstall##Enter the description for this feature here.01INSTALLDIR16Enter comments regarding this feature here. +
+ + + Feature_ + Component_ + +
AlwaysInstallDD_Record_Organiser.Prim_re_Ausgabe
+ + + File + Component_ + FileName + FileSize + Version + Language + Attributes + Sequence + ISBuildSourcePath + ISAttributes + ISComponentSubFolder_ +
dd_record_organiser.prim_re_DD_Record_Organiser.Prim_re_AusgabeDD-Record-Organiser.Primäre Ausgabe01<DD-Record-Organiser>|Built3 +
+ + + File_ + SFPCatalog_ +
+ + + File_ + FontTitle +
+ + + Tag + Data + + +
PROJECT_ASSISTANT_DEFAULT_FEATUREAlwaysInstallPROJECT_ASSISTANT_FEATURESNonSelectable_Built +
+ + + ISBillboard + Duration + Origin + X + Y + Effect + Sequence + Target + Color + Style + Font + Title + DisplayName +
+ + + Package + SourcePath + ProductCode + Order + Options + InstallCondition + RemoveCondition + InstallProperties + RemoveProperties + ISReleaseFlags + DisplayName +
+ + + Package_ + File + FilePath + Options + Data + ISBuildSourcePath +
+ + + Action_ + Name + Value +
+ + + ISComCatalogObject_ + ItemName + ItemValue +
+ + + ISComCatalogCollection + ISComCatalogObject_ + CollectionName +
+ + + ISComCatalogCollection_ + ISComCatalogObject_ +
+ + + ISComCatalogObject + DisplayName +
+ + + ISComCatalogObject_ + ComputerName + Component_ + ISAttributes + DepFiles +
+ + + ISComPlusApplicationDLL + ISComPlusApplication_ + ISComCatalogObject_ + CLSID + ProgId + DLL + AlterDLL +
+ + + ISComPlusProxy + ISComPlusApplication_ + Component_ + ISAttributes + DepFiles +
+ + + ISComPlusApplication_ + File_ + ISPath +
+ + + File_ + ISComPlusApplicationDLL_ +
+ + + ISComPlusApplication_ + File_ + ISPath +
+ + + File_ + ISComPlusApplicationDLL_ +
+ + + Component_ + OS + Language + FilterProperty + Platforms + FTPLocation + HTTPLocation + Miscellaneous +
DD_Record_Organiser.Prim_re_Ausgabe_6F5EA9B8_F95E_4320_B619_3F4535AD633D_FILTER +
+ + + Action_ + Description + FileType + ISCAReferenceFilePath +
+ + + ISDIMReference_ + RequiredUUID + RequiredMajorVersion + RequiredMinorVersion + RequiredBuildVersion + RequiredRevisionVersion +
+ + + ISDIMReference + ISBuildSourcePath +
+ + + ISDIMReference_Parent + ISDIMDependency_ +
+ + + ISDIMVariable + ISDIMReference_ + Name + NewValue + Type +
+ + + EntryPoint + Type + Source + Target +
+ + + ISDRMFile + File_ + ISDRMLicense_ + Shell +
+ + + ISDRMFile_ + Property + Value +
+ + + ISDRMLicense + Description + ProjectVersion + Attributes + LicenseNumber + RequestCode + ResponseCode +
+ + + ISDependency + Exclude +
+ + + ISDisk1File + ISBuildSourcePath + Disk +
+ + + Component_ + SourceFolder + IncludeFlags + IncludeFiles + ExcludeFiles + ISAttributes +
+ + + Feature_ + ISDIMReference_ +
+ + + Feature_ + ModuleID + Language +
+ + + Feature_ + ISMergeModule_ + Language_ +
+ + + Feature_ + ISSetupPrerequisites_ +
+ + + File_ + Manifest_ +
+ + + ISIISItem + ISIISItem_Parent + DisplayName + Type + Component_ +
+ + + ISIISProperty + ISIISItem_ + Schema + FriendlyName + MetaDataProp + MetaDataType + MetaDataUserType + MetaDataAttributes + MetaDataValue + Order + ISAttributes +
+ + + EntryPoint + Type + Source + Target +
+ + + ISLanguage + Included + +
10331
+ + + ISLinkerLibrary + Library + Order + + +
isrt.oblisrt.obl2iswi.obliswi.obl1
+ + + Dialog_ + Control_ + ISLanguage_ + Attributes + X + Y + Width + Height + Binary_ + ISBuildSourcePath +
+ + + Dialog_ + ISLanguage_ + Attributes + TextStyle_ + Width + Height +
+ + + Property + Order + ISLanguage_ + X + Y + Width + Height +
+ + + LockObject + Table + Domain + User + Permission + Attributes +
+ + + DiskId + ISProductConfiguration_ + ISRelease_ + LastSequence + DiskPrompt + Cabinet + VolumeLabel + Source +
+ + + ISLogicalDisk_ + ISProductConfiguration_ + ISRelease_ + Feature_ + Sequence + ISAttributes +
+ + + ISMergeModule + Language + Name + Destination + ISAttributes +
+ + + ISMergeModule_ + Language_ + ModuleConfiguration_ + Value + Format + Type + ContextData + DefaultValue + Attributes + DisplayName + Description + HelpLocation + HelpKeyword +
+ + + ObjectName + Language +
+ + + ObjectName + Property + Value + IncludeInBuild +
+ + + PatchConfiguration_ + UpgradedImage_ +
+ + + Name + CanPCDiffer + CanPVDiffer + IncludeWholeFiles + LeaveDecompressed + OptimizeForSize + EnablePatchCache + PatchCacheDir + Flags + PatchGuidsToReplace + TargetProductCodes + PatchGuid + OutputPath + MinMsiVersion + Attributes +
+ + + ISPatchConfiguration_ + Property + Value +
+ + + Name + ISUpgradedImage_ + FileKey + FilePath +
+ + + UpgradedImage + FileKey + Component +
+ + + ISPathVariable + Value + TestValue + Type + + + + + + + + + +
CommonFilesFolder1DD-Record-OrganiserDD-Record-Organiser\DD-Record-Organiser.vbproj2ISPROJECTDIR1ISProductFolder1ISProjectDataFolder1ISProjectFolder1ProgramFilesFolder1SystemFolder1WindowsFolder1
+ + + Action_ + Name + Value +
+ + + ISProductConfiguration + ProductConfigurationFlags + GeneratePackageCode + +
Express1
+ + + ISProductConfiguration_ + InstanceId + Property + Value +
+ + + ISProductConfiguration_ + Property + Value +
+ + + ISRelease + ISProductConfiguration_ + BuildLocation + PackageName + Type + SupportedLanguagesUI + MsiSourceType + ReleaseType + Platforms + SupportedLanguagesData + DefaultLanguage + SupportedOSs + DiskSize + DiskSizeUnit + DiskClusterSize + ReleaseFlags + DiskSpanning + SynchMsi + MediaLocation + URLLocation + DigitalURL + DigitalPVK + DigitalSPC + Password + VersionCopyright + Attributes + CDBrowser + DotNetBuildConfiguration + MsiCommandLine + ISSetupPrerequisiteLocation + + + + + + + + +
CD_ROMExpress<ISProjectDataFolder>Default0103302Intel10330650020480MediaLocationhttp://758053CustomExpress<ISProjectDataFolder>Default2103302Intel10330100010240MediaLocationhttp://758053DVD-10Express<ISProjectDataFolder>Default3103302Intel103308.75120480MediaLocationhttp://758053DVD-18Express<ISProjectDataFolder>Default3103302Intel1033015.83120480MediaLocationhttp://758053DVD-5Express<ISProjectDataFolder>Default3103302Intel103304.38120480MediaLocationhttp://758053DVD-9Express<ISProjectDataFolder>Default3103302Intel103307.95120480MediaLocationhttp://758053SingleImageExpress<ISProjectDataFolder>PackageName1103301Intel103300000MediaLocationhttp://1085733WebDeploymentExpress<ISProjectDataFolder>PackageName4103321Intel103300000MediaLocationhttp://1249413
+ + + ISRelease_ + ISProductConfiguration_ + Property + Value +
+ + + ISRelease_ + ISProductConfiguration_ + WebType + WebURL + WebCabSize + OneClickCabName + OneClickHtmlName + WebLocalCachePath + EngineLocation + Win9xMsiUrl + WinNTMsiUrl + ISEngineLocation + ISEngineURL + OneClickTargetBrowser + DigitalCertificateIdNS + DigitalCertificateDBaseNS + DigitalCertificatePasswordNS + DotNetRedistLocation + DotNetRedistURL + DotNetVersion + DotNetBaseLanguage + DotNetLangaugePacks + DotNetFxCmdLine + DotNetLangPackCmdLine + JSharpCmdLine + Attributes + JSharpRedistLocation + MsiEngineVersion + WinMsi30Url + CertPassword +
CD_ROMExpress0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + CustomExpress0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-10Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-18Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-5Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-9Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + SingleImageExpress0http://0installinstall[LocalAppDataFolder]Downloaded Installations1http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + WebDeploymentExpress0http://0setupDefault[LocalAppDataFolder]Downloaded Installations2http://www.Installengine.com/Msiengine20http://www.Installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 +
+ + + ISRelease_ + ISProductConfiguration_ + Name + Value +
+ + + ISRelease_ + ISProductConfiguration_ + Repository + DisplayName + Publisher + Description + ISAttributes +
+ + + ISSQLConnection + Server + Database + UserName + Password + Authentication + Attributes + Order + Comments + CmdTimeout + BatchSeparator + ScriptVersion_Table + ScriptVersion_Column +
+ + + ISSQLConnectionDBServer + ISSQLConnection_ + ISSQLDBMetaData_ + Order +
+ + + ISSQLConnection_ + ISSQLScriptFile_ + Order +
+ + + ISSQLDBMetaData + DisplayName + AdoDriverName + AdoCxnDriver + AdoCxnServer + AdoCxnDatabase + AdoCxnUserID + AdoCxnPassword + AdoCxnWindowsSecurity + AdoCxnNetLibrary + TestDatabaseCmd + TestTableCmd + VersionInfoCmd + VersionBeginToken + VersionEndToken + LocalInstanceNames + CreateDbCmd + SwitchDbCmd + ISAttributes + TestTableCmd2 + WinAuthentUserId + DsnODBCName + AdoCxnPort + AdoCxnAdditional + QueryDatabasesCmd + CreateTableCmd + InsertRecordCmd + SelectTableCmd + ScriptVersion_Table + ScriptVersion_Column + ScriptVersion_ColumnType +
+ + + ISSQLRequirement + ISSQLConnection_ + MajorVersion + ServicePackLevel + Attributes + ISSQLConnectionDBServer_ +
+ + + ErrNumber + ISSQLScriptFile_ + ErrHandling + Message + Attributes +
+ + + ISSQLScriptFile + Component_ + Scheduling + InstallText + UninstallText + ISBuildSourcePath + Comments + ErrorHandling + Attributes + Version + Condition + DisplayName +
+ + + ISSQLScriptFile_ + Server + Database + UserName + Password + Authentication + IncludeTables + ExcludeTables + Attributes +
+ + + ISSQLScriptReplace + ISSQLScriptFile_ + Search + Replace + Attributes +
+ + + ISScriptFile +
+ + + FileKey + Cost + Order + CmdLine +
+ + + ISSetupFile + FileName + Stream + Language + Splash + Path +
+ + + ISSetupPrerequisites + ISBuildSourcePath + Order + ISSetupLocation + ISReleaseFlags +
+ + + ISSetupType + Description + Display_Name + Display + Comments +
Custom##IDS__IsSetupTypeMinDlg_ChooseFeatures####IDS__IsSetupTypeMinDlg_Custom##3 + Minimal##IDS__IsSetupTypeMinDlg_MinimumFeatures####IDS__IsSetupTypeMinDlg_Minimal##2 + Typical##IDS__IsSetupTypeMinDlg_AllFeatures####IDS__IsSetupTypeMinDlg_Typical##1 +
+ + + ISSetupType_ + Feature_ + + + +
CustomAlwaysInstallMinimalAlwaysInstallTypicalAlwaysInstall
+ + + Name + ISBuildSourcePath +
+ + + ISString + ISLanguage_ + Value + Encoded + Comment + TimeStamp + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
COMPANY_NAME1033Digital Data0-391945295DN_AlwaysInstall1033Always Install0-391959792IDPROP_EXPRESS_LAUNCH_CONDITION_COLOR1033The color settings of your system are not adequate for running [ProductName].0-391959792IDPROP_EXPRESS_LAUNCH_CONDITION_OS1033The operating system is not adequate for running [ProductName].0-391959792IDPROP_EXPRESS_LAUNCH_CONDITION_PROCESSOR1033The processor is not adequate for running [ProductName].0-391959792IDPROP_EXPRESS_LAUNCH_CONDITION_RAM1033The amount of RAM is not adequate for running [ProductName].0-391959792IDPROP_EXPRESS_LAUNCH_CONDITION_SCREEN1033The screen resolution is not adequate for running [ProductName].0-391959792IDPROP_SETUPTYPE_COMPACT1033Compact0-391959792IDPROP_SETUPTYPE_COMPACT_DESC1033Compact Description0-391959792IDPROP_SETUPTYPE_COMPLETE1033Complete0-391959792IDPROP_SETUPTYPE_COMPLETE_DESC1033Complete0-391959792IDPROP_SETUPTYPE_CUSTOM1033Custom0-391959792IDPROP_SETUPTYPE_CUSTOM_DESC1033Custom Description0-391959792IDPROP_SETUPTYPE_CUSTOM_DESC_PRO1033Custom0-391959792IDPROP_SETUPTYPE_TYPICAL1033Typical0-391959792IDPROP_SETUPTYPE_TYPICAL_DESC1033Typical Description0-391959792IDS_ACTIONTEXT_11033[1]0-391959792IDS_ACTIONTEXT_1b1033[1]0-391959792IDS_ACTIONTEXT_1c1033[1]0-391959792IDS_ACTIONTEXT_1d1033[1]0-391959792IDS_ACTIONTEXT_Advertising1033Advertising application0-391959792IDS_ACTIONTEXT_AllocatingRegistry1033Allocating registry space0-391959792IDS_ACTIONTEXT_AppCommandLine1033Application: [1], Command line: [2]0-391959792IDS_ACTIONTEXT_AppId1033AppId: [1]{{, AppType: [2]}}0-391959792IDS_ACTIONTEXT_AppIdAppTypeRSN1033AppId: [1]{{, AppType: [2], Users: [3], RSN: [4]}}0-391959792IDS_ACTIONTEXT_Application1033Application: [1]0-391959792IDS_ACTIONTEXT_BindingExes1033Binding executables0-391959792IDS_ACTIONTEXT_ClassId1033Class ID: [1]0-391959792IDS_ACTIONTEXT_ClsID1033Class ID: [1]0-391959792IDS_ACTIONTEXT_ComponentIDQualifier1033Component ID: [1], Qualifier: [2]0-391959792IDS_ACTIONTEXT_ComponentIdQualifier21033Component ID: [1], Qualifier: [2]0-391959792IDS_ACTIONTEXT_ComputingSpace1033Computing space requirements0-391959792IDS_ACTIONTEXT_ComputingSpace21033Computing space requirements0-391959792IDS_ACTIONTEXT_ComputingSpace31033Computing space requirements0-391959792IDS_ACTIONTEXT_ContentTypeExtension1033MIME Content Type: [1], Extension: [2]0-391959792IDS_ACTIONTEXT_ContentTypeExtension21033MIME Content Type: [1], Extension: [2]0-391959792IDS_ACTIONTEXT_CopyingNetworkFiles1033Copying files to the network0-391959792IDS_ACTIONTEXT_CopyingNewFiles1033Copying new files0-391959792IDS_ACTIONTEXT_CreatingDuplicate1033Creating duplicate files0-391959792IDS_ACTIONTEXT_CreatingFolders1033Creating folders0-391959792IDS_ACTIONTEXT_CreatingIISRoots1033Creating IIS Virtual Roots...0-391959792IDS_ACTIONTEXT_CreatingShortcuts1033Creating shortcuts0-391959792IDS_ACTIONTEXT_DeletingServices1033Deleting services0-391959792IDS_ACTIONTEXT_EnvironmentStrings1033Updating environment strings0-391959792IDS_ACTIONTEXT_EvaluateLaunchConditions1033Evaluating launch conditions0-391959792IDS_ACTIONTEXT_Extension1033Extension: [1]0-391959792IDS_ACTIONTEXT_Extension21033Extension: [1]0-391959792IDS_ACTIONTEXT_Feature1033Feature: [1]0-391959792IDS_ACTIONTEXT_FeatureColon1033Feature: [1]0-391959792IDS_ACTIONTEXT_File1033File: [1]0-391959792IDS_ACTIONTEXT_File21033File: [1]0-391959792IDS_ACTIONTEXT_FileDependencies1033File: [1], Dependencies: [2]0-391959792IDS_ACTIONTEXT_FileDir1033File: [1], Directory: [9]0-391959792IDS_ACTIONTEXT_FileDir21033File: [1], Directory: [9]0-391959792IDS_ACTIONTEXT_FileDir31033File: [1], Directory: [9]0-391959792IDS_ACTIONTEXT_FileDirSize1033File: [1], Directory: [9], Size: [6]0-391959792IDS_ACTIONTEXT_FileDirSize21033File: [1], Directory: [9], Size: [6]0-391959792IDS_ACTIONTEXT_FileDirSize31033File: [1], Directory: [9], Size: [6]0-391959792IDS_ACTIONTEXT_FileDirSize41033File: [1], Directory: [2], Size: [3]0-391959792IDS_ACTIONTEXT_FileDirectorySize1033File: [1], Directory: [9], Size: [6]0-391959792IDS_ACTIONTEXT_FileFolder1033File: [1], Folder: [2]0-391959792IDS_ACTIONTEXT_FileFolder21033File: [1], Folder: [2]0-391959792IDS_ACTIONTEXT_FileSectionKeyValue1033File: [1], Section: [2], Key: [3], Value: [4]0-391959792IDS_ACTIONTEXT_FileSectionKeyValue21033File: [1], Section: [2], Key: [3], Value: [4]0-391959792IDS_ACTIONTEXT_Folder1033Folder: [1]0-391959792IDS_ACTIONTEXT_Folder11033Folder: [1]0-391959792IDS_ACTIONTEXT_Font1033Font: [1]0-391959792IDS_ACTIONTEXT_Font21033Font: [1]0-391959792IDS_ACTIONTEXT_FoundApp1033Found application: [1]0-391959792IDS_ACTIONTEXT_FreeSpace1033Free space: [1]0-391959792IDS_ACTIONTEXT_GeneratingScript1033Generating script operations for action:0-391959792IDS_ACTIONTEXT_ISLockPermissionsCost1033Gathering permissions information for objects...0-391959792IDS_ACTIONTEXT_ISLockPermissionsInstall1033Applying permissions information for objects...0-391959792IDS_ACTIONTEXT_InitializeODBCDirs1033Initializing ODBC directories0-391959792IDS_ACTIONTEXT_InstallODBC1033Installing ODBC components0-391959792IDS_ACTIONTEXT_InstallServices1033Installing new services0-391959792IDS_ACTIONTEXT_InstallingSystemCatalog1033Installing system catalog0-391959792IDS_ACTIONTEXT_KeyName1033Key: [1], Name: [2]0-391959792IDS_ACTIONTEXT_KeyNameValue1033Key: [1], Name: [2], Value: [3]0-391959792IDS_ACTIONTEXT_LibId1033LibID: [1]0-391959792IDS_ACTIONTEXT_Libid21033LibID: [1]0-391959792IDS_ACTIONTEXT_MigratingFeatureStates1033Migrating feature states from related applications0-391959792IDS_ACTIONTEXT_MovingFiles1033Moving files0-391959792IDS_ACTIONTEXT_NameValueAction1033Name: [1], Value: [2], Action [3]0-391959792IDS_ACTIONTEXT_NameValueAction21033Name: [1], Value: [2], Action [3]0-391959792IDS_ACTIONTEXT_PatchingFiles1033Patching files0-391959792IDS_ACTIONTEXT_ProgID1033ProgID: [1]0-391959792IDS_ACTIONTEXT_ProgID21033ProgID: [1]0-391959792IDS_ACTIONTEXT_PropertySignature1033Property: [1], Signature: [2]0-391959792IDS_ACTIONTEXT_PublishProductFeatures1033Publishing product features0-391959792IDS_ACTIONTEXT_PublishProductInfo1033Publishing product information0-391959792IDS_ACTIONTEXT_PublishingQualifiedComponents1033Publishing qualified components0-391959792IDS_ACTIONTEXT_RegUser1033Registering user0-391959792IDS_ACTIONTEXT_RegisterClassServer1033Registering class servers0-391959792IDS_ACTIONTEXT_RegisterExtensionServers1033Registering extension servers0-391959792IDS_ACTIONTEXT_RegisterFonts1033Registering fonts0-391959792IDS_ACTIONTEXT_RegisterMimeInfo1033Registering MIME info0-391959792IDS_ACTIONTEXT_RegisterTypeLibs1033Registering type libraries0-391959792IDS_ACTIONTEXT_RegisteringComPlus1033Registering COM+ Applications and Components0-391959792IDS_ACTIONTEXT_RegisteringModules1033Registering modules0-391959792IDS_ACTIONTEXT_RegisteringProduct1033Registering product0-391959792IDS_ACTIONTEXT_RegisteringProgIdentifiers1033Registering program identifiers0-391959792IDS_ACTIONTEXT_RemoveApps1033Removing applications0-391959792IDS_ACTIONTEXT_RemovingBackup1033Removing backup files0-391959792IDS_ACTIONTEXT_RemovingDuplicates1033Removing duplicated files0-391959792IDS_ACTIONTEXT_RemovingFiles1033Removing files0-391959792IDS_ACTIONTEXT_RemovingFolders1033Removing folders0-391959792IDS_ACTIONTEXT_RemovingIISRoots1033Removing IIS Virtual Roots...0-391959792IDS_ACTIONTEXT_RemovingIni1033Removing INI file entries0-391959792IDS_ACTIONTEXT_RemovingMoved1033Removing moved files0-391959792IDS_ACTIONTEXT_RemovingODBC1033Removing ODBC components0-391959792IDS_ACTIONTEXT_RemovingRegistry1033Removing system registry values0-391959792IDS_ACTIONTEXT_RemovingShortcuts1033Removing shortcuts0-391959792IDS_ACTIONTEXT_RollingBack1033Rolling back action:0-391959792IDS_ACTIONTEXT_SearchForRelated1033Searching for related applications0-391959792IDS_ACTIONTEXT_SearchInstalled1033Searching for installed applications0-391959792IDS_ACTIONTEXT_SearchingQualifyingProducts1033Searching for qualifying products0-391959792IDS_ACTIONTEXT_SearchingQualifyingProducts21033Searching for qualifying products0-391959792IDS_ACTIONTEXT_Service1033Service: [1]0-391959792IDS_ACTIONTEXT_Service21033Service: [2]0-391959792IDS_ACTIONTEXT_Service31033Service: [1]0-391959792IDS_ACTIONTEXT_Service41033Service: [1]0-391959792IDS_ACTIONTEXT_Shortcut1033Shortcut: [1]0-391959792IDS_ACTIONTEXT_Shortcut11033Shortcut: [1]0-391959792IDS_ACTIONTEXT_StartingServices1033Starting services0-391959792IDS_ACTIONTEXT_StoppingServices1033Stopping services0-391959792IDS_ACTIONTEXT_UnpublishProductFeatures1033Unpublishing product features0-391959792IDS_ACTIONTEXT_UnpublishQualified1033Unpublishing Qualified Components0-391959792IDS_ACTIONTEXT_UnpublishingProductInfo1033Unpublishing product information0-391959792IDS_ACTIONTEXT_UnregTypeLibs1033Unregistering type libraries0-391959792IDS_ACTIONTEXT_UnregisterClassServers1033Unregister class servers0-391959792IDS_ACTIONTEXT_UnregisterExtensionServers1033Unregistering extension servers0-391959792IDS_ACTIONTEXT_UnregisterModules1033Unregistering modules0-391959792IDS_ACTIONTEXT_UnregisteringComPlus1033Unregistering COM+ Applications and Components0-391959792IDS_ACTIONTEXT_UnregisteringFonts1033Unregistering fonts0-391959792IDS_ACTIONTEXT_UnregisteringMimeInfo1033Unregistering MIME info0-391959792IDS_ACTIONTEXT_UnregisteringProgramIds1033Unregistering program identifiers0-391959792IDS_ACTIONTEXT_UpdateComponentRegistration1033Updating component registration0-391959792IDS_ACTIONTEXT_UpdateEnvironmentStrings1033Updating environment strings0-391959792IDS_ACTIONTEXT_Validating1033Validating install0-391959792IDS_ACTIONTEXT_WritingINI1033Writing INI file values0-391959792IDS_ACTIONTEXT_WritingRegistry1033Writing system registry values0-391959792IDS_BACK1033< &Back0-391959792IDS_CANCEL1033Cancel0-391959792IDS_CANCEL21033&Cancel0-391959792IDS_CHANGE1033&Change...0-391959792IDS_COMPLUS_PROGRESSTEXT_COST1033Costing COM+ application: [1]0-391959792IDS_COMPLUS_PROGRESSTEXT_INSTALL1033Installing COM+ application: [1]0-391959792IDS_COMPLUS_PROGRESSTEXT_UNINSTALL1033Uninstalling COM+ application: [1]0-391959792IDS_DIALOG_TEXT2_DESCRIPTION1033Dialog Normal Description0-391959792IDS_DIALOG_TEXT_DESCRIPTION_EXTERIOR1033{&TahomaBold10}Dialog Bold Title0-391959792IDS_DIALOG_TEXT_DESCRIPTION_INTERIOR1033{&MSSansBold8}Dialog Bold Title0-391959792IDS_DIFX_AMD641033[ProductName] requires an X64 processor. Click OK to exit the wizard.0-391959792IDS_DIFX_IA641033[ProductName] requires an IA64 processor. Click OK to exit the wizard.0-391959792IDS_DIFX_X861033[ProductName] requires an X86 processor. Click OK to exit the wizard.0-391959792IDS_DatabaseFolder_InstallDatabaseTo1033Install [ProductName] database to:0-391959792IDS_ERROR_01033{{Fatal error: }}0-391959792IDS_ERROR_11033Error [1]. 0-391959792IDS_ERROR_101033=== Logging started: [Date] [Time] ===0-391959792IDS_ERROR_1001033Could not remove shortcut [2]. Verify that the shortcut file exists and that you can access it.0-391959792IDS_ERROR_1011033Could not register type library for file [2]. Contact your support personnel.0-391959792IDS_ERROR_1021033Could not unregister type library for file [2]. Contact your support personnel.0-391959792IDS_ERROR_1031033Could not update the INI file [2][3]. Verify that the file exists and that you can access it.0-391959792IDS_ERROR_1041033Could not schedule file [2] to replace file [3] on reboot. Verify that you have write permissions to file [3].0-391959792IDS_ERROR_1051033Error removing ODBC driver manager, ODBC error [2]: [3]. Contact your support personnel.0-391959792IDS_ERROR_1061033Error installing ODBC driver manager, ODBC error [2]: [3]. Contact your support personnel.0-391959792IDS_ERROR_1071033Error removing ODBC driver [4], ODBC error [2]: [3]. Verify that you have sufficient privileges to remove ODBC drivers.0-391959792IDS_ERROR_1081033Error installing ODBC driver [4], ODBC error [2]: [3]. Verify that the file [4] exists and that you can access it.0-391959792IDS_ERROR_1091033Error configuring ODBC data source [4], ODBC error [2]: [3]. Verify that the file [4] exists and that you can access it.0-391959792IDS_ERROR_111033=== Logging stopped: [Date] [Time] ===0-391959792IDS_ERROR_1101033Service [2] ([3]) failed to start. Verify that you have sufficient privileges to start system services.0-391959792IDS_ERROR_1111033Service [2] ([3]) could not be stopped. Verify that you have sufficient privileges to stop system services.0-391959792IDS_ERROR_1121033Service [2] ([3]) could not be deleted. Verify that you have sufficient privileges to remove system services.0-391959792IDS_ERROR_1131033Service [2] ([3]) could not be installed. Verify that you have sufficient privileges to install system services.0-391959792IDS_ERROR_1141033Could not update environment variable [2]. Verify that you have sufficient privileges to modify environment variables.0-391959792IDS_ERROR_1151033You do not have sufficient privileges to complete this installation for all users of the machine. Log on as an administrator and then retry this installation.0-391959792IDS_ERROR_1161033Could not set file security for file [3]. Error: [2]. Verify that you have sufficient privileges to modify the security permissions for this file.0-391959792IDS_ERROR_1171033Component Services (COM+ 1.0) are not installed on this computer. This installation requires Component Services in order to complete successfully. Component Services are available on Windows 2000.0-391959792IDS_ERROR_1181033Error registering COM+ application. Contact your support personnel for more information.0-391959792IDS_ERROR_1191033Error unregistering COM+ application. Contact your support personnel for more information.0-391959792IDS_ERROR_121033Action start [Time]: [1].0-391959792IDS_ERROR_1201033Removing older versions of this application0-391959792IDS_ERROR_1211033Preparing to remove older versions of this application0-391959792IDS_ERROR_1221033Error applying patch to file [2]. It has probably been updated by other means, and can no longer be modified by this patch. For more information contact your patch vendor. {{System Error: [3]}}0-391959792IDS_ERROR_1231033[2] cannot install one of its required products. Contact your technical support group. {{System Error: [3].}}0-391959792IDS_ERROR_1241033The older version of [2] cannot be removed. Contact your technical support group. {{System Error [3].}}0-391959792IDS_ERROR_1251033The description for service '[2]' ([3]) could not be changed.0-391959792IDS_ERROR_1261033The Windows Installer service cannot update the system file [2] because the file is protected by Windows. You may need to update your operating system for this program to work correctly. {{Package version: [3], OS Protected version: [4]}}0-391959792IDS_ERROR_1271033The Windows Installer service cannot update the protected Windows file [2]. {{Package version: [3], OS Protected version: [4], SFP Error: [5]}}0-391959792IDS_ERROR_1281033The Windows Installer service cannot update one or more protected Windows files. SFP Error: [2]. List of protected files: [3]0-391959792IDS_ERROR_1291033User installations are disabled via policy on the machine.0-391959792IDS_ERROR_131033Action ended [Time]: [1]. Return value [2].0-391959792IDS_ERROR_1301033This setup requires Internet Information Server 4.0 or higher for configuring IIS Virtual Roots. Please make sure that you have IIS 4.0 or higher.0-391959792IDS_ERROR_1311033This setup requires Administrator privileges for configuring IIS Virtual Roots.0-391959792IDS_ERROR_13291033A file that is required cannot be installed because the cabinet file [2] is not digitally signed. This may indicate that the cabinet file is corrupt.0-391959792IDS_ERROR_13301033A file that is required cannot be installed because the cabinet file [2] has an invalid digital signature. This may indicate that the cabinet file is corrupt.{ Error [3] was returned by WinVerifyTrust.}0-391959792IDS_ERROR_13311033Failed to correctly copy [2] file: CRC error.0-391959792IDS_ERROR_13321033Failed to correctly patch [2] file: CRC error.0-391959792IDS_ERROR_13331033Failed to correctly patch [2] file: CRC error.0-391959792IDS_ERROR_13341033The file '[2]' cannot be installed because the file cannot be found in cabinet file '[3]'. This could indicate a network error, an error reading from the CD-ROM, or a problem with this package.0-391959792IDS_ERROR_13351033The cabinet file '[2]' required for this installation is corrupt and cannot be used. This could indicate a network error, an error reading from the CD-ROM, or a problem with this package.0-391959792IDS_ERROR_13361033There was an error creating a temporary file that is needed to complete this installation. Folder: [3]. System error code: [2]0-391959792IDS_ERROR_141033Time remaining: {[1] minutes }{[2] seconds}0-391959792IDS_ERROR_151033Out of memory. Shut down other applications before retrying.0-391959792IDS_ERROR_161033Installer is no longer responding.0-391959792IDS_ERROR_16091033An error occurred while applying security settings. [2] is not a valid user or group. This could be a problem with the package, or a problem connecting to a domain controller on the network. Check your network connection and click Retry, or Cancel to end the install. Unable to locate the user's SID, system error [3]0-391959792IDS_ERROR_16511033Admin user failed to apply patch for a per-user managed or a per-machine application which is in advertise state.0-391959792IDS_ERROR_171033Installer terminated prematurely.0-391959792IDS_ERROR_17151033Installed [2].0-391959792IDS_ERROR_17161033Configured [2].0-391959792IDS_ERROR_17171033Removed [2].0-391959792IDS_ERROR_17181033File [2] was rejected by digital signature policy.0-391959792IDS_ERROR_17191033Windows Installer service could not be accessed. Contact your support personnel to verify that it is properly registered and enabled.0-391959792IDS_ERROR_17201033There is a problem with this Windows Installer package. A script required for this install to complete could not be run. Contact your support personnel or package vendor. Custom action [2] script error [3], [4]: [5] Line [6], Column [7], [8]0-391959792IDS_ERROR_17211033There is a problem with this Windows Installer package. A program required for this install to complete could not be run. Contact your support personnel or package vendor. Action: [2], location: [3], command: [4]0-391959792IDS_ERROR_17221033There is a problem with this Windows Installer package. A program run as part of the setup did not finish as expected. Contact your support personnel or package vendor. Action [2], location: [3], command: [4]0-391959792IDS_ERROR_17231033There is a problem with this Windows Installer package. A DLL required for this install to complete could not be run. Contact your support personnel or package vendor. Action [2], entry: [3], library: [4]0-391959792IDS_ERROR_17241033Removal completed successfully.0-391959792IDS_ERROR_17251033Removal failed.0-391959792IDS_ERROR_17261033Advertisement completed successfully.0-391959792IDS_ERROR_17271033Advertisement failed.0-391959792IDS_ERROR_17281033Configuration completed successfully.0-391959792IDS_ERROR_17291033Configuration failed.0-391959792IDS_ERROR_17301033You must be an Administrator to remove this application. To remove this application, you can log on as an administrator, or contact your technical support group for assistance.0-391959792IDS_ERROR_17311033The source installation package for the product [2] is out of sync with the client package. Try the installation again using a valid copy of the installation package '[3]'.0-391959792IDS_ERROR_17321033In order to complete the installation of [2], you must restart the computer. Other users are currently logged on to this computer, and restarting may cause them to lose their work. Do you want to restart now?0-391959792IDS_ERROR_181033Please wait while Windows configures [ProductName]0-391959792IDS_ERROR_191033Gathering required information...0-391959792IDS_ERROR_19351033An error occurred during the installation of assembly component [2]. HRESULT: [3]. {{assembly interface: [4], function: [5], assembly name: [6]}}0-391959792IDS_ERROR_19361033An error occurred during the installation of assembly '[6]'. The assembly is not strongly named or is not signed with the minimal key length. HRESULT: [3]. {{assembly interface: [4], function: [5], component: [2]}}0-391959792IDS_ERROR_19371033An error occurred during the installation of assembly '[6]'. The signature or catalog could not be verified or is not valid. HRESULT: [3]. {{assembly interface: [4], function: [5], component: [2]}}0-391959792IDS_ERROR_19381033An error occurred during the installation of assembly '[6]'. One or more modules of the assembly could not be found. HRESULT: [3]. {{assembly interface: [4], function: [5], component: [2]}}0-391959792IDS_ERROR_21033Warning [1]. 0-391959792IDS_ERROR_201033{[ProductName] }Setup completed successfully.0-391959792IDS_ERROR_211033{[ProductName] }Setup failed.0-391959792IDS_ERROR_21011033Shortcuts not supported by the operating system.0-391959792IDS_ERROR_21021033Invalid .ini action: [2]0-391959792IDS_ERROR_21031033Could not resolve path for shell folder [2].0-391959792IDS_ERROR_21041033Writing .ini file: [3]: System error: [2].0-391959792IDS_ERROR_21051033Shortcut Creation [3] Failed. System error: [2].0-391959792IDS_ERROR_21061033Shortcut Deletion [3] Failed. System error: [2].0-391959792IDS_ERROR_21071033Error [3] registering type library [2].0-391959792IDS_ERROR_21081033Error [3] unregistering type library [2].0-391959792IDS_ERROR_21091033Section missing for .ini action.0-391959792IDS_ERROR_21101033Key missing for .ini action.0-391959792IDS_ERROR_21111033Detection of running applications failed, could not get performance data. Registered operation returned : [2].0-391959792IDS_ERROR_21121033Detection of running applications failed, could not get performance index. Registered operation returned : [2].0-391959792IDS_ERROR_21131033Detection of running applications failed.0-391959792IDS_ERROR_221033Error reading from file: [2]. {{ System error [3].}} Verify that the file exists and that you can access it.0-391959792IDS_ERROR_22001033Database: [2]. Database object creation failed, mode = [3].0-391959792IDS_ERROR_22011033Database: [2]. Initialization failed, out of memory.0-391959792IDS_ERROR_22021033Database: [2]. Data access failed, out of memory.0-391959792IDS_ERROR_22031033Database: [2]. Cannot open database file. System error [3].0-391959792IDS_ERROR_22041033Database: [2]. Table already exists: [3].0-391959792IDS_ERROR_22051033Database: [2]. Table does not exist: [3].0-391959792IDS_ERROR_22061033Database: [2]. Table could not be dropped: [3].0-391959792IDS_ERROR_22071033Database: [2]. Intent violation.0-391959792IDS_ERROR_22081033Database: [2]. Insufficient parameters for Execute.0-391959792IDS_ERROR_22091033Database: [2]. Cursor in invalid state.0-391959792IDS_ERROR_22101033Database: [2]. Invalid update data type in column [3].0-391959792IDS_ERROR_22111033Database: [2]. Could not create database table [3].0-391959792IDS_ERROR_22121033Database: [2]. Database not in writable state.0-391959792IDS_ERROR_22131033Database: [2]. Error saving database tables.0-391959792IDS_ERROR_22141033Database: [2]. Error writing export file: [3].0-391959792IDS_ERROR_22151033Database: [2]. Cannot open import file: [3].0-391959792IDS_ERROR_22161033Database: [2]. Import file format error: [3], Line [4].0-391959792IDS_ERROR_22171033Database: [2]. Wrong state to CreateOutputDatabase [3].0-391959792IDS_ERROR_22181033Database: [2]. Table name not supplied.0-391959792IDS_ERROR_22191033Database: [2]. Invalid Installer database format.0-391959792IDS_ERROR_22201033Database: [2]. Invalid row/field data.0-391959792IDS_ERROR_22211033Database: [2]. Code page conflict in import file: [3].0-391959792IDS_ERROR_22221033Database: [2]. Transform or merge code page [3] differs from database code page [4].0-391959792IDS_ERROR_22231033Database: [2]. Databases are the same. No transform generated.0-391959792IDS_ERROR_22241033Database: [2]. GenerateTransform: Database corrupt. Table: [3].0-391959792IDS_ERROR_22251033Database: [2]. Transform: Cannot transform a temporary table. Table: [3].0-391959792IDS_ERROR_22261033Database: [2]. Transform failed.0-391959792IDS_ERROR_22271033Database: [2]. Invalid identifier '[3]' in SQL query: [4].0-391959792IDS_ERROR_22281033Database: [2]. Unknown table '[3]' in SQL query: [4].0-391959792IDS_ERROR_22291033Database: [2]. Could not load table '[3]' in SQL query: [4].0-391959792IDS_ERROR_22301033Database: [2]. Repeated table '[3]' in SQL query: [4].0-391959792IDS_ERROR_22311033Database: [2]. Missing ')' in SQL query: [3].0-391959792IDS_ERROR_22321033Database: [2]. Unexpected token '[3]' in SQL query: [4].0-391959792IDS_ERROR_22331033Database: [2]. No columns in SELECT clause in SQL query: [3].0-391959792IDS_ERROR_22341033Database: [2]. No columns in ORDER BY clause in SQL query: [3].0-391959792IDS_ERROR_22351033Database: [2]. Column '[3]' not present or ambiguous in SQL query: [4].0-391959792IDS_ERROR_22361033Database: [2]. Invalid operator '[3]' in SQL query: [4].0-391959792IDS_ERROR_22371033Database: [2]. Invalid or missing query string: [3].0-391959792IDS_ERROR_22381033Database: [2]. Missing FROM clause in SQL query: [3].0-391959792IDS_ERROR_22391033Database: [2]. Insufficient values in INSERT SQL statement.0-391959792IDS_ERROR_22401033Database: [2]. Missing update columns in UPDATE SQL statement.0-391959792IDS_ERROR_22411033Database: [2]. Missing insert columns in INSERT SQL statement.0-391959792IDS_ERROR_22421033Database: [2]. Column '[3]' repeated.0-391959792IDS_ERROR_22431033Database: [2]. No primary columns defined for table creation.0-391959792IDS_ERROR_22441033Database: [2]. Invalid type specifier '[3]' in SQL query [4].0-391959792IDS_ERROR_22451033IStorage::Stat failed with error [3].0-391959792IDS_ERROR_22461033Database: [2]. Invalid Installer transform format.0-391959792IDS_ERROR_22471033Database: [2] Transform stream read/write failure.0-391959792IDS_ERROR_22481033Database: [2] GenerateTransform/Merge: Column type in base table does not match reference table. Table: [3] Col #: [4].0-391959792IDS_ERROR_22491033Database: [2] GenerateTransform: More columns in base table than in reference table. Table: [3].0-391959792IDS_ERROR_22501033Database: [2] Transform: Cannot add existing row. Table: [3].0-391959792IDS_ERROR_22511033Database: [2] Transform: Cannot delete row that does not exist. Table: [3].0-391959792IDS_ERROR_22521033Database: [2] Transform: Cannot add existing table. Table: [3].0-391959792IDS_ERROR_22531033Database: [2] Transform: Cannot delete table that does not exist. Table: [3].0-391959792IDS_ERROR_22541033Database: [2] Transform: Cannot update row that does not exist. Table: [3].0-391959792IDS_ERROR_22551033Database: [2] Transform: Column with this name already exists. Table: [3] Col: [4].0-391959792IDS_ERROR_22561033Database: [2] GenerateTransform/Merge: Number of primary keys in base table does not match reference table. Table: [3].0-391959792IDS_ERROR_22571033Database: [2]. Intent to modify read only table: [3].0-391959792IDS_ERROR_22581033Database: [2]. Type mismatch in parameter: [3].0-391959792IDS_ERROR_22591033Database: [2] Table(s) Update failed0-391959792IDS_ERROR_22601033Storage CopyTo failed. System error: [3].0-391959792IDS_ERROR_22611033Could not remove stream [2]. System error: [3].0-391959792IDS_ERROR_22621033Stream does not exist: [2]. System error: [3].0-391959792IDS_ERROR_22631033Could not open stream [2]. System error: [3].0-391959792IDS_ERROR_22641033Could not remove stream [2]. System error: [3].0-391959792IDS_ERROR_22651033Could not commit storage. System error: [3].0-391959792IDS_ERROR_22661033Could not rollback storage. System error: [3].0-391959792IDS_ERROR_22671033Could not delete storage [2]. System error: [3].0-391959792IDS_ERROR_22681033Database: [2]. Merge: There were merge conflicts reported in [3] tables.0-391959792IDS_ERROR_22691033Database: [2]. Merge: The column count differed in the '[3]' table of the two databases.0-391959792IDS_ERROR_22701033Database: [2]. GenerateTransform/Merge: Column name in base table does not match reference table. Table: [3] Col #: [4].0-391959792IDS_ERROR_22711033SummaryInformation write for transform failed.0-391959792IDS_ERROR_22721033Database: [2]. MergeDatabase will not write any changes because the database is open read-only.0-391959792IDS_ERROR_22731033Database: [2]. MergeDatabase: A reference to the base database was passed as the reference database.0-391959792IDS_ERROR_22741033Database: [2]. MergeDatabase: Unable to write errors to Error table. Could be due to a non-nullable column in a predefined Error table.0-391959792IDS_ERROR_22751033Database: [2]. Specified Modify [3] operation invalid for table joins.0-391959792IDS_ERROR_22761033Database: [2]. Code page [3] not supported by the system.0-391959792IDS_ERROR_22771033Database: [2]. Failed to save table [3].0-391959792IDS_ERROR_22781033Database: [2]. Exceeded number of expressions limit of 32 in WHERE clause of SQL query: [3].0-391959792IDS_ERROR_22791033Database: [2] Transform: Too many columns in base table [3].0-391959792IDS_ERROR_22801033Database: [2]. Could not create column [3] for table [4].0-391959792IDS_ERROR_22811033Could not rename stream [2]. System error: [3].0-391959792IDS_ERROR_22821033Stream name invalid [2].0-391959792IDS_ERROR_231033Cannot create the file [3]. A directory with this name already exists. Cancel the installation and try installing to a different location.0-391959792IDS_ERROR_23021033Patch notify: [2] bytes patched to far.0-391959792IDS_ERROR_23031033Error getting volume info. GetLastError: [2].0-391959792IDS_ERROR_23041033Error getting disk free space. GetLastError: [2]. Volume: [3].0-391959792IDS_ERROR_23051033Error waiting for patch thread. GetLastError: [2].0-391959792IDS_ERROR_23061033Could not create thread for patch application. GetLastError: [2].0-391959792IDS_ERROR_23071033Source file key name is null.0-391959792IDS_ERROR_23081033Destination file name is null.0-391959792IDS_ERROR_23091033Attempting to patch file [2] when patch already in progress.0-391959792IDS_ERROR_23101033Attempting to continue patch when no patch is in progress.0-391959792IDS_ERROR_23151033Missing path separator: [2].0-391959792IDS_ERROR_23181033File does not exist: [2].0-391959792IDS_ERROR_23191033Error setting file attribute: [3] GetLastError: [2].0-391959792IDS_ERROR_23201033File not writable: [2].0-391959792IDS_ERROR_23211033Error creating file: [2].0-391959792IDS_ERROR_23221033User canceled.0-391959792IDS_ERROR_23231033Invalid file attribute.0-391959792IDS_ERROR_23241033Could not open file: [3] GetLastError: [2].0-391959792IDS_ERROR_23251033Could not get file time for file: [3] GetLastError: [2].0-391959792IDS_ERROR_23261033Error in FileToDosDateTime.0-391959792IDS_ERROR_23271033Could not remove directory: [3] GetLastError: [2].0-391959792IDS_ERROR_23281033Error getting file version info for file: [2].0-391959792IDS_ERROR_23291033Error deleting file: [3]. GetLastError: [2].0-391959792IDS_ERROR_23301033Error getting file attributes: [3]. GetLastError: [2].0-391959792IDS_ERROR_23311033Error loading library [2] or finding entry point [3].0-391959792IDS_ERROR_23321033Error getting file attributes. GetLastError: [2].0-391959792IDS_ERROR_23331033Error setting file attributes. GetLastError: [2].0-391959792IDS_ERROR_23341033Error converting file time to local time for file: [3]. GetLastError: [2].0-391959792IDS_ERROR_23351033Path: [2] is not a parent of [3].0-391959792IDS_ERROR_23361033Error creating temp file on path: [3]. GetLastError: [2].0-391959792IDS_ERROR_23371033Could not close file: [3] GetLastError: [2].0-391959792IDS_ERROR_23381033Could not update resource for file: [3] GetLastError: [2].0-391959792IDS_ERROR_23391033Could not set file time for file: [3] GetLastError: [2].0-391959792IDS_ERROR_23401033Could not update resource for file: [3], Missing resource.0-391959792IDS_ERROR_23411033Could not update resource for file: [3], Resource too large.0-391959792IDS_ERROR_23421033Could not update resource for file: [3] GetLastError: [2].0-391959792IDS_ERROR_23431033Specified path is empty.0-391959792IDS_ERROR_23441033Could not find required file IMAGEHLP.DLL to validate file:[2].0-391959792IDS_ERROR_23451033[2]: File does not contain a valid checksum value.0-391959792IDS_ERROR_23471033User ignore.0-391959792IDS_ERROR_23481033Error attempting to read from cabinet stream.0-391959792IDS_ERROR_23491033Copy resumed with different info.0-391959792IDS_ERROR_23501033FDI server error0-391959792IDS_ERROR_23511033File key '[2]' not found in cabinet '[3]'. The installation cannot continue.0-391959792IDS_ERROR_23521033Could not initialize cabinet file server. The required file 'CABINET.DLL' may be missing.0-391959792IDS_ERROR_23531033Not a cabinet.0-391959792IDS_ERROR_23541033Cannot handle cabinet.0-391959792IDS_ERROR_23551033Corrupt cabinet.0-391959792IDS_ERROR_23561033Could not locate cabinet in stream: [2].0-391959792IDS_ERROR_23571033Cannot set attributes.0-391959792IDS_ERROR_23581033Error determining whether file is in-use: [3]. GetLastError: [2].0-391959792IDS_ERROR_23591033Unable to create the target file - file may be in use.0-391959792IDS_ERROR_23601033Progress tick.0-391959792IDS_ERROR_23611033Need next cabinet.0-391959792IDS_ERROR_23621033Folder not found: [2].0-391959792IDS_ERROR_23631033Could not enumerate subfolders for folder: [2].0-391959792IDS_ERROR_23641033Bad enumeration constant in CreateCopier call.0-391959792IDS_ERROR_23651033Could not BindImage exe file [2].0-391959792IDS_ERROR_23661033User failure.0-391959792IDS_ERROR_23671033User abort.0-391959792IDS_ERROR_23681033Failed to get network resource information. Error [2], network path [3]. Extended error: network provider [5], error code [4], error description [6].0-391959792IDS_ERROR_23701033Invalid CRC checksum value for [2] file.{ Its header says [3] for checksum, its computed value is [4].}0-391959792IDS_ERROR_23711033Could not apply patch to file [2]. GetLastError: [3].0-391959792IDS_ERROR_23721033Patch file [2] is corrupt or of an invalid format. Attempting to patch file [3]. GetLastError: [4].0-391959792IDS_ERROR_23731033File [2] is not a valid patch file.0-391959792IDS_ERROR_23741033File [2] is not a valid destination file for patch file [3].0-391959792IDS_ERROR_23751033Unknown patching error: [2].0-391959792IDS_ERROR_23761033Cabinet not found.0-391959792IDS_ERROR_23791033Error opening file for read: [3] GetLastError: [2].0-391959792IDS_ERROR_23801033Error opening file for write: [3]. GetLastError: [2].0-391959792IDS_ERROR_23811033Directory does not exist: [2].0-391959792IDS_ERROR_23821033Drive not ready: [2].0-391959792IDS_ERROR_241033Please insert the disk: [2]0-391959792IDS_ERROR_2401103364-bit registry operation attempted on 32-bit operating system for key [2].0-391959792IDS_ERROR_24021033Out of memory.0-391959792IDS_ERROR_251033The installer has insufficient privileges to access this directory: [2]. The installation cannot continue. Log on as an administrator or contact your system administrator.0-391959792IDS_ERROR_25011033Could not create rollback script enumerator.0-391959792IDS_ERROR_25021033Called InstallFinalize when no install in progress.0-391959792IDS_ERROR_25031033Called RunScript when not marked in progress.0-391959792IDS_ERROR_261033Error writing to file [2]. Verify that you have access to that directory.0-391959792IDS_ERROR_26011033Invalid value for property [2]: '[3]'0-391959792IDS_ERROR_26021033The [2] table entry '[3]' has no associated entry in the Media table.0-391959792IDS_ERROR_26031033Duplicate table name [2].0-391959792IDS_ERROR_26041033[2] Property undefined.0-391959792IDS_ERROR_26051033Could not find server [2] in [3] or [4].0-391959792IDS_ERROR_26061033Value of property [2] is not a valid full path: '[3]'.0-391959792IDS_ERROR_26071033Media table not found or empty (required for installation of files).0-391959792IDS_ERROR_26081033Could not create security descriptor for object. Error: '[2]'.0-391959792IDS_ERROR_26091033Attempt to migrate product settings before initialization.0-391959792IDS_ERROR_26111033The file [2] is marked as compressed, but the associated media entry does not specify a cabinet.0-391959792IDS_ERROR_26121033Stream not found in '[2]' column. Primary key: '[3]'.0-391959792IDS_ERROR_26131033RemoveExistingProducts action sequenced incorrectly.0-391959792IDS_ERROR_26141033Could not access IStorage object from installation package.0-391959792IDS_ERROR_26151033Skipped unregistration of Module [2] due to source resolution failure.0-391959792IDS_ERROR_26161033Companion file [2] parent missing.0-391959792IDS_ERROR_26171033Shared component [2] not found in Component table.0-391959792IDS_ERROR_26181033Isolated application component [2] not found in Component table.0-391959792IDS_ERROR_26191033Isolated components [2], [3] not part of same feature.0-391959792IDS_ERROR_26201033Key file of isolated application component [2] not in File table.0-391959792IDS_ERROR_26211033Resource DLL or Resource ID information for shortcut [2] set incorrectly.0-391959792IDS_ERROR_271033Error reading from file [2]. Verify that the file exists and that you can access it.0-391959792IDS_ERROR_27011033The depth of a feature exceeds the acceptable tree depth of [2] levels.0-391959792IDS_ERROR_27021033A Feature table record ([2]) references a non-existent parent in the Attributes field.0-391959792IDS_ERROR_27031033Property name for root source path not defined: [2]0-391959792IDS_ERROR_27041033Root directory property undefined: [2]0-391959792IDS_ERROR_27051033Invalid table: [2]; Could not be linked as tree.0-391959792IDS_ERROR_27061033Source paths not created. No path exists for entry [2] in Directory table.0-391959792IDS_ERROR_27071033Target paths not created. No path exists for entry [2] in Directory table.0-391959792IDS_ERROR_27081033No entries found in the file table.0-391959792IDS_ERROR_27091033The specified Component name ('[2]') not found in Component table.0-391959792IDS_ERROR_27101033The requested 'Select' state is illegal for this Component.0-391959792IDS_ERROR_27111033The specified Feature name ('[2]') not found in Feature table.0-391959792IDS_ERROR_27121033Invalid return from modeless dialog: [3], in action [2].0-391959792IDS_ERROR_27131033Null value in a non-nullable column ('[2]' in '[3]' column of the '[4]' table.0-391959792IDS_ERROR_27141033Invalid value for default folder name: [2].0-391959792IDS_ERROR_27151033The specified File key ('[2]') not found in the File table.0-391959792IDS_ERROR_27161033Could not create a random subcomponent name for component '[2]'.0-391959792IDS_ERROR_27171033Bad action condition or error calling custom action '[2]'.0-391959792IDS_ERROR_27181033Missing package name for product code '[2]'.0-391959792IDS_ERROR_27191033Neither UNC nor drive letter path found in source '[2]'.0-391959792IDS_ERROR_27201033Error opening source list key. Error: '[2]'0-391959792IDS_ERROR_27211033Custom action [2] not found in Binary table stream.0-391959792IDS_ERROR_27221033Custom action [2] not found in File table.0-391959792IDS_ERROR_27231033Custom action [2] specifies unsupported type.0-391959792IDS_ERROR_27241033The volume label '[2]' on the media you're running from does not match the label '[3]' given in the Media table. This is allowed only if you have only 1 entry in your Media table.0-391959792IDS_ERROR_27251033Invalid database tables0-391959792IDS_ERROR_27261033Action not found: [2].0-391959792IDS_ERROR_27271033The directory entry '[2]' does not exist in the Directory table.0-391959792IDS_ERROR_27281033Table definition error: [2]0-391959792IDS_ERROR_27291033Install engine not initialized.0-391959792IDS_ERROR_27301033Bad value in database. Table: '[2]'; Primary key: '[3]'; Column: '[4]'0-391959792IDS_ERROR_27311033Selection Manager not initialized.0-391959792IDS_ERROR_27321033Directory Manager not initialized.0-391959792IDS_ERROR_27331033Bad foreign key ('[2]') in '[3]' column of the '[4]' table.0-391959792IDS_ERROR_27341033Invalid reinstall mode character.0-391959792IDS_ERROR_27351033Custom action '[2]' has caused an unhandled exception and has been stopped. This may be the result of an internal error in the custom action, such as an access violation.0-391959792IDS_ERROR_27361033Generation of custom action temp file failed: [2].0-391959792IDS_ERROR_27371033Could not access custom action [2], entry [3], library [4]0-391959792IDS_ERROR_27381033Could not access VBScript run time for custom action [2].0-391959792IDS_ERROR_27391033Could not access JavaScript run time for custom action [2].0-391959792IDS_ERROR_27401033Custom action [2] script error [3], [4]: [5] Line [6], Column [7], [8].0-391959792IDS_ERROR_27411033Configuration information for product [2] is corrupt. Invalid info: [2].0-391959792IDS_ERROR_27421033Marshaling to Server failed: [2].0-391959792IDS_ERROR_27431033Could not execute custom action [2], location: [3], command: [4].0-391959792IDS_ERROR_27441033EXE failed called by custom action [2], location: [3], command: [4].0-391959792IDS_ERROR_27451033Transform [2] invalid for package [3]. Expected language [4], found language [5].0-391959792IDS_ERROR_27461033Transform [2] invalid for package [3]. Expected product [4], found product [5].0-391959792IDS_ERROR_27471033Transform [2] invalid for package [3]. Expected product version < [4], found product version [5].0-391959792IDS_ERROR_27481033Transform [2] invalid for package [3]. Expected product version <= [4], found product version [5].0-391959792IDS_ERROR_27491033Transform [2] invalid for package [3]. Expected product version == [4], found product version [5].0-391959792IDS_ERROR_27501033Transform [2] invalid for package [3]. Expected product version >= [4], found product version [5].0-391959792IDS_ERROR_275021033Could not connect to [2] '[3]'. [4]0-391959792IDS_ERROR_275031033Error retrieving version string from [2] '[3]'. [4]0-391959792IDS_ERROR_275041033SQL version requirements not met: [3]. This installation requires [2] [4] or later.0-391959792IDS_ERROR_275051033Could not open SQL script file [2].0-391959792IDS_ERROR_275061033Error executing SQL script [2]. Line [3]. [4]0-391959792IDS_ERROR_275071033Connection or browsing for database servers requires that MDAC be installed.0-391959792IDS_ERROR_275081033Error installing COM+ application [2]. [3]0-391959792IDS_ERROR_275091033Error uninstalling COM+ application [2]. [3]0-391959792IDS_ERROR_27511033Transform [2] invalid for package [3]. Expected product version > [4], found product version [5].0-391959792IDS_ERROR_275101033Error installing COM+ application [2]. Could not load Microsoft(R) .NET class libraries. Registering .NET serviced components requires that Microsoft(R) .NET Framework be installed.0-391959792IDS_ERROR_275111033Could not execute SQL script file [2]. Connection not open: [3]0-391959792IDS_ERROR_275121033Error beginning transactions for [2] '[3]'. Database [4]. [5]0-391959792IDS_ERROR_275131033Error committing transactions for [2] '[3]'. Database [4]. [5]0-391959792IDS_ERROR_275141033This installation requires a Microsoft SQL Server. The specified server '[3]' is a Microsoft SQL Server Desktop Engine or SQL Server Express.0-391959792IDS_ERROR_275151033Error retrieving schema version from [2] '[3]'. Database: '[4]'. [5]0-391959792IDS_ERROR_275161033Error writing schema version to [2] '[3]'. Database: '[4]'. [5]0-391959792IDS_ERROR_275171033This installation requires Administrator privileges for installing COM+ applications. Log on as an administrator and then retry this installation.0-391959792IDS_ERROR_275181033The COM+ application "[2]" is configured to run as an NT service; this requires COM+ 1.5 or later on the system. Since your system has COM+ 1.0, this application will not be installed.0-391959792IDS_ERROR_275191033Error updating XML file [2]. [3]0-391959792IDS_ERROR_27521033Could not open transform [2] stored as child storage of package [4].0-391959792IDS_ERROR_275201033Error opening XML file [2]. [3]0-391959792IDS_ERROR_275211033This setup requires MSXML 3.0 or higher for configuring XML files. Please make sure that you have version 3.0 or higher.0-391959792IDS_ERROR_275221033Error creating XML file [2]. [3]0-391959792IDS_ERROR_275231033Error loading servers.0-391959792IDS_ERROR_275241033Error loading NetApi32.DLL. The ISNetApi.dll needs to have NetApi32.DLL properly loaded and requires an NT based operating system.0-391959792IDS_ERROR_275251033Server not found. Verify that the specified server exists. The server name can not be empty.0-391959792IDS_ERROR_275261033Unspecified error from ISNetApi.dll.0-391959792IDS_ERROR_275271033The buffer is too small.0-391959792IDS_ERROR_275281033Access denied. Check administrative rights.0-391959792IDS_ERROR_275291033Invalid computer.0-391959792IDS_ERROR_27531033The File '[2]' is not marked for installation.0-391959792IDS_ERROR_275301033Unknown error returned from NetAPI. System error: [2]0-391959792IDS_ERROR_275311033Unhandled exception.0-391959792IDS_ERROR_275321033Invalid user name for this server or domain.0-391959792IDS_ERROR_275331033The case-sensitive passwords do not match.0-391959792IDS_ERROR_275341033The list is empty.0-391959792IDS_ERROR_275351033Access violation.0-391959792IDS_ERROR_275361033Error getting group.0-391959792IDS_ERROR_275371033Error adding user to group. Verify that the group exists for this domain or server.0-391959792IDS_ERROR_275381033Error creating user.0-391959792IDS_ERROR_275391033ERROR_NETAPI_ERROR_NOT_PRIMARY returned from NetAPI.0-391959792IDS_ERROR_27541033The File '[2]' is not a valid patch file.0-391959792IDS_ERROR_275401033The specified user already exists.0-391959792IDS_ERROR_275411033The specified group already exists.0-391959792IDS_ERROR_275421033Invalid password. Verify that the password is in accordance with your network password policy.0-391959792IDS_ERROR_275431033Invalid name.0-391959792IDS_ERROR_275441033Invalid group.0-391959792IDS_ERROR_275451033The user name can not be empty and must be in the format DOMAIN\Username.0-391959792IDS_ERROR_275461033Error loading or creating INI file in the user TEMP directory.0-391959792IDS_ERROR_275471033ISNetAPI.dll is not loaded or there was an error loading the dll. This dll needs to be loaded for this operation. Verify that the dll is in the SUPPORTDIR directory.0-391959792IDS_ERROR_275481033Error deleting INI file containing new user information from the user's TEMP directory.0-391959792IDS_ERROR_275491033Error getting the primary domain controller (PDC).0-391959792IDS_ERROR_27551033Server returned unexpected error [2] attempting to install package [3].0-391959792IDS_ERROR_275501033Every field must have a value in order to create a user.0-391959792IDS_ERROR_275511033ODBC driver for [2] not found. This is required to connect to [2] database servers.0-391959792IDS_ERROR_275521033Error creating database [4]. Server: [2] [3]. [5]0-391959792IDS_ERROR_275531033Error connecting to database [4]. Server: [2] [3]. [5]0-391959792IDS_ERROR_275541033Error attempting to open connection [2]. No valid database metadata associated with this connection.0-391959792IDS_ERROR_275551033Error attempting to apply permissions to object '[2]'. System error: [3] ([4])0-391959792IDS_ERROR_27561033The property '[2]' was used as a directory property in one or more tables, but no value was ever assigned.0-391959792IDS_ERROR_27571033Could not create summary info for transform [2].0-391959792IDS_ERROR_27581033Transform [2] does not contain an MSI version.0-391959792IDS_ERROR_27591033Transform [2] version [3] incompatible with engine; Min: [4], Max: [5].0-391959792IDS_ERROR_27601033Transform [2] invalid for package [3]. Expected upgrade code [4], found [5].0-391959792IDS_ERROR_27611033Cannot begin transaction. Global mutex not properly initialized.0-391959792IDS_ERROR_27621033Cannot write script record. Transaction not started.0-391959792IDS_ERROR_27631033Cannot run script. Transaction not started.0-391959792IDS_ERROR_27651033Assembly name missing from AssemblyName table : Component: [4].0-391959792IDS_ERROR_27661033The file [2] is an invalid MSI storage file.0-391959792IDS_ERROR_27671033No more data{ while enumerating [2]}.0-391959792IDS_ERROR_27681033Transform in patch package is invalid.0-391959792IDS_ERROR_27691033Custom Action [2] did not close [3] MSIHANDLEs.0-391959792IDS_ERROR_27701033Cached folder [2] not defined in internal cache folder table.0-391959792IDS_ERROR_27711033Upgrade of feature [2] has a missing component.0-391959792IDS_ERROR_27721033New upgrade feature [2] must be a leaf feature.0-391959792IDS_ERROR_281033Another application has exclusive access to the file [2]. Please shut down all other applications, then click Retry.0-391959792IDS_ERROR_28011033Unknown Message -- Type [2]. No action is taken.0-391959792IDS_ERROR_28021033No publisher is found for the event [2].0-391959792IDS_ERROR_28031033Dialog View did not find a record for the dialog [2].0-391959792IDS_ERROR_28041033On activation of the control [3] on dialog [2] CMsiDialog failed to evaluate the condition [3].0-391959792IDS_ERROR_28061033The dialog [2] failed to evaluate the condition [3].0-391959792IDS_ERROR_28071033The action [2] is not recognized.0-391959792IDS_ERROR_28081033Default button is ill-defined on dialog [2].0-391959792IDS_ERROR_28091033On the dialog [2] the next control pointers do not form a cycle. There is a pointer from [3] to [4], but there is no further pointer.0-391959792IDS_ERROR_28101033On the dialog [2] the next control pointers do not form a cycle. There is a pointer from both [3] and [5] to [4].0-391959792IDS_ERROR_28111033On dialog [2] control [3] has to take focus, but it is unable to do so.0-391959792IDS_ERROR_28121033The event [2] is not recognized.0-391959792IDS_ERROR_28131033The EndDialog event was called with the argument [2], but the dialog has a parent.0-391959792IDS_ERROR_28141033On the dialog [2] the control [3] names a nonexistent control [4] as the next control.0-391959792IDS_ERROR_28151033ControlCondition table has a row without condition for the dialog [2].0-391959792IDS_ERROR_28161033The EventMapping table refers to an invalid control [4] on dialog [2] for the event [3].0-391959792IDS_ERROR_28171033The event [2] failed to set the attribute for the control [4] on dialog [3].0-391959792IDS_ERROR_28181033In the ControlEvent table EndDialog has an unrecognized argument [2].0-391959792IDS_ERROR_28191033Control [3] on dialog [2] needs a property linked to it.0-391959792IDS_ERROR_28201033Attempted to initialize an already initialized handler.0-391959792IDS_ERROR_28211033Attempted to initialize an already initialized dialog: [2].0-391959792IDS_ERROR_28221033No other method can be called on dialog [2] until all the controls are added.0-391959792IDS_ERROR_28231033Attempted to initialize an already initialized control: [3] on dialog [2].0-391959792IDS_ERROR_28241033The dialog attribute [3] needs a record of at least [2] field(s).0-391959792IDS_ERROR_28251033The control attribute [3] needs a record of at least [2] field(s).0-391959792IDS_ERROR_28261033Control [3] on dialog [2] extends beyond the boundaries of the dialog [4] by [5] pixels.0-391959792IDS_ERROR_28271033The button [4] on the radio button group [3] on dialog [2] extends beyond the boundaries of the group [5] by [6] pixels.0-391959792IDS_ERROR_28281033Tried to remove control [3] from dialog [2], but the control is not part of the dialog.0-391959792IDS_ERROR_28291033Attempt to use an uninitialized dialog.0-391959792IDS_ERROR_28301033Attempt to use an uninitialized control on dialog [2].0-391959792IDS_ERROR_28311033The control [3] on dialog [2] does not support [5] the attribute [4].0-391959792IDS_ERROR_28321033The dialog [2] does not support the attribute [3].0-391959792IDS_ERROR_28331033Control [4] on dialog [3] ignored the message [2].0-391959792IDS_ERROR_28341033The next pointers on the dialog [2] do not form a single loop.0-391959792IDS_ERROR_28351033The control [2] was not found on dialog [3].0-391959792IDS_ERROR_28361033The control [3] on the dialog [2] cannot take focus.0-391959792IDS_ERROR_28371033The control [3] on dialog [2] wants the winproc to return [4].0-391959792IDS_ERROR_28381033The item [2] in the selection table has itself as a parent.0-391959792IDS_ERROR_28391033Setting the property [2] failed.0-391959792IDS_ERROR_28401033Error dialog name mismatch.0-391959792IDS_ERROR_28411033No OK button was found on the error dialog.0-391959792IDS_ERROR_28421033No text field was found on the error dialog.0-391959792IDS_ERROR_28431033The ErrorString attribute is not supported for standard dialogs.0-391959792IDS_ERROR_28441033Cannot execute an error dialog if the Errorstring is not set.0-391959792IDS_ERROR_28451033The total width of the buttons exceeds the size of the error dialog.0-391959792IDS_ERROR_28461033SetFocus did not find the required control on the error dialog.0-391959792IDS_ERROR_28471033The control [3] on dialog [2] has both the icon and the bitmap style set.0-391959792IDS_ERROR_28481033Tried to set control [3] as the default button on dialog [2], but the control does not exist.0-391959792IDS_ERROR_28491033The control [3] on dialog [2] is of a type, that cannot be integer valued.0-391959792IDS_ERROR_28501033Unrecognized volume type.0-391959792IDS_ERROR_28511033The data for the icon [2] is not valid.0-391959792IDS_ERROR_28521033At least one control has to be added to dialog [2] before it is used.0-391959792IDS_ERROR_28531033Dialog [2] is a modeless dialog. The execute method should not be called on it.0-391959792IDS_ERROR_28541033On the dialog [2] the control [3] is designated as first active control, but there is no such control.0-391959792IDS_ERROR_28551033The radio button group [3] on dialog [2] has fewer than 2 buttons.0-391959792IDS_ERROR_28561033Creating a second copy of the dialog [2].0-391959792IDS_ERROR_28571033The directory [2] is mentioned in the selection table but not found.0-391959792IDS_ERROR_28581033The data for the bitmap [2] is not valid.0-391959792IDS_ERROR_28591033Test error message.0-391959792IDS_ERROR_28601033Cancel button is ill-defined on dialog [2].0-391959792IDS_ERROR_28611033The next pointers for the radio buttons on dialog [2] control [3] do not form a cycle.0-391959792IDS_ERROR_28621033The attributes for the control [3] on dialog [2] do not define a valid icon size. Setting the size to 16.0-391959792IDS_ERROR_28631033The control [3] on dialog [2] needs the icon [4] in size [5]x[5], but that size is not available. Loading the first available size.0-391959792IDS_ERROR_28641033The control [3] on dialog [2] received a browse event, but there is no configurable directory for the present selection. Likely cause: browse button is not authored correctly.0-391959792IDS_ERROR_28651033Control [3] on billboard [2] extends beyond the boundaries of the billboard [4] by [5] pixels.0-391959792IDS_ERROR_28661033The dialog [2] is not allowed to return the argument [3].0-391959792IDS_ERROR_28671033The error dialog property is not set.0-391959792IDS_ERROR_28681033The error dialog [2] does not have the error style bit set.0-391959792IDS_ERROR_28691033The dialog [2] has the error style bit set, but is not an error dialog.0-391959792IDS_ERROR_28701033The help string [4] for control [3] on dialog [2] does not contain the separator character.0-391959792IDS_ERROR_28711033The [2] table is out of date: [3].0-391959792IDS_ERROR_28721033The argument of the CheckPath control event on dialog [2] is invalid.0-391959792IDS_ERROR_28731033On the dialog [2] the control [3] has an invalid string length limit: [4].0-391959792IDS_ERROR_28741033Changing the text font to [2] failed.0-391959792IDS_ERROR_28751033Changing the text color to [2] failed.0-391959792IDS_ERROR_28761033The control [3] on dialog [2] had to truncate the string: [4].0-391959792IDS_ERROR_28771033The binary data [2] was not found0-391959792IDS_ERROR_28781033On the dialog [2] the control [3] has a possible value: [4]. This is an invalid or duplicate value.0-391959792IDS_ERROR_28791033The control [3] on dialog [2] cannot parse the mask string: [4].0-391959792IDS_ERROR_28801033Do not perform the remaining control events.0-391959792IDS_ERROR_28811033CMsiHandler initialization failed.0-391959792IDS_ERROR_28821033Dialog window class registration failed.0-391959792IDS_ERROR_28831033CreateNewDialog failed for the dialog [2].0-391959792IDS_ERROR_28841033Failed to create a window for the dialog [2].0-391959792IDS_ERROR_28851033Failed to create the control [3] on the dialog [2].0-391959792IDS_ERROR_28861033Creating the [2] table failed.0-391959792IDS_ERROR_28871033Creating a cursor to the [2] table failed.0-391959792IDS_ERROR_28881033Executing the [2] view failed.0-391959792IDS_ERROR_28891033Creating the window for the control [3] on dialog [2] failed.0-391959792IDS_ERROR_28901033The handler failed in creating an initialized dialog.0-391959792IDS_ERROR_28911033Failed to destroy window for dialog [2].0-391959792IDS_ERROR_28921033[2] is an integer only control, [3] is not a valid integer value.0-391959792IDS_ERROR_28931033The control [3] on dialog [2] can accept property values that are at most [5] characters long. The value [4] exceeds this limit, and has been truncated.0-391959792IDS_ERROR_28941033Loading RICHED20.DLL failed. GetLastError() returned: [2].0-391959792IDS_ERROR_28951033Freeing RICHED20.DLL failed. GetLastError() returned: [2].0-391959792IDS_ERROR_28961033Executing action [2] failed.0-391959792IDS_ERROR_28971033Failed to create any [2] font on this system.0-391959792IDS_ERROR_28981033For [2] textstyle, the system created a '[3]' font, in [4] character set.0-391959792IDS_ERROR_28991033Failed to create [2] textstyle. GetLastError() returned: [3].0-391959792IDS_ERROR_291033There is not enough disk space to install the file [2]. Free some disk space and click Retry, or click Cancel to exit.0-391959792IDS_ERROR_29011033Invalid parameter to operation [2]: Parameter [3].0-391959792IDS_ERROR_29021033Operation [2] called out of sequence.0-391959792IDS_ERROR_29031033The file [2] is missing.0-391959792IDS_ERROR_29041033Could not BindImage file [2].0-391959792IDS_ERROR_29051033Could not read record from script file [2].0-391959792IDS_ERROR_29061033Missing header in script file [2].0-391959792IDS_ERROR_29071033Could not create secure security descriptor. Error: [2].0-391959792IDS_ERROR_29081033Could not register component [2].0-391959792IDS_ERROR_29091033Could not unregister component [2].0-391959792IDS_ERROR_29101033Could not determine user's security ID.0-391959792IDS_ERROR_29111033Could not remove the folder [2].0-391959792IDS_ERROR_29121033Could not schedule file [2] for removal on restart.0-391959792IDS_ERROR_29191033No cabinet specified for compressed file: [2].0-391959792IDS_ERROR_29201033Source directory not specified for file [2].0-391959792IDS_ERROR_29241033Script [2] version unsupported. Script version: [3], minimum version: [4], maximum version: [5].0-391959792IDS_ERROR_29271033ShellFolder id [2] is invalid.0-391959792IDS_ERROR_29281033Exceeded maximum number of sources. Skipping source '[2]'.0-391959792IDS_ERROR_29291033Could not determine publishing root. Error: [2].0-391959792IDS_ERROR_29321033Could not create file [2] from script data. Error: [3].0-391959792IDS_ERROR_29331033Could not initialize rollback script [2].0-391959792IDS_ERROR_29341033Could not secure transform [2]. Error [3].0-391959792IDS_ERROR_29351033Could not unsecure transform [2]. Error [3].0-391959792IDS_ERROR_29361033Could not find transform [2].0-391959792IDS_ERROR_29371033Windows Installer cannot install a system file protection catalog. Catalog: [2], Error: [3].0-391959792IDS_ERROR_29381033Windows Installer cannot retrieve a system file protection catalog from the cache. Catalog: [2], Error: [3].0-391959792IDS_ERROR_29391033Windows Installer cannot delete a system file protection catalog from the cache. Catalog: [2], Error: [3].0-391959792IDS_ERROR_29401033Directory Manager not supplied for source resolution.0-391959792IDS_ERROR_29411033Unable to compute the CRC for file [2].0-391959792IDS_ERROR_29421033BindImage action has not been executed on [2] file.0-391959792IDS_ERROR_29431033This version of Windows does not support deploying 64-bit packages. The script [2] is for a 64-bit package.0-391959792IDS_ERROR_29441033GetProductAssignmentType failed.0-391959792IDS_ERROR_29451033Installation of ComPlus App [2] failed with error [3].0-391959792IDS_ERROR_31033Info [1]. 0-391959792IDS_ERROR_301033Source file not found: [2]. Verify that the file exists and that you can access it.0-391959792IDS_ERROR_30011033The patches in this list contain incorrect sequencing information: [2][3][4][5][6][7][8][9][10][11][12][13][14][15][16].0-391959792IDS_ERROR_30021033Patch [2] contains invalid sequencing information. 0-391959792IDS_ERROR_311033Error reading from file: [3]. {{ System error [2].}} Verify that the file exists and that you can access it.0-391959792IDS_ERROR_321033Error writing to file: [3]. {{ System error [2].}} Verify that you have access to that directory.0-391959792IDS_ERROR_331033Source file not found{{(cabinet)}}: [2]. Verify that the file exists and that you can access it.0-391959792IDS_ERROR_341033Cannot create the directory [2]. A file with this name already exists. Please rename or remove the file and click Retry, or click Cancel to exit.0-391959792IDS_ERROR_351033The volume [2] is currently unavailable. Please select another.0-391959792IDS_ERROR_361033The specified path [2] is unavailable.0-391959792IDS_ERROR_371033Unable to write to the specified folder [2].0-391959792IDS_ERROR_381033A network error occurred while attempting to read from the file [2]0-391959792IDS_ERROR_391033An error occurred while attempting to create the directory [2]0-391959792IDS_ERROR_41033Internal Error [1]. [2]{, [3]}{, [4]}0-391959792IDS_ERROR_401033A network error occurred while attempting to create the directory [2]0-391959792IDS_ERROR_411033A network error occurred while attempting to open the source file cabinet [2].0-391959792IDS_ERROR_421033The specified path is too long [2].0-391959792IDS_ERROR_431033The Installer has insufficient privileges to modify the file [2].0-391959792IDS_ERROR_441033A portion of the path [2] exceeds the length allowed by the system.0-391959792IDS_ERROR_451033The path [2] contains words that are not valid in folders.0-391959792IDS_ERROR_461033The path [2] contains an invalid character.0-391959792IDS_ERROR_471033[2] is not a valid short file name.0-391959792IDS_ERROR_481033Error getting file security: [3] GetLastError: [2]0-391959792IDS_ERROR_491033Invalid Drive: [2]0-391959792IDS_ERROR_51033{{Disk full: }}0-391959792IDS_ERROR_501033Could not create key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_511033Could not open key: [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_521033Could not delete value [2] from key [3]. {{ System error [4].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_531033Could not delete key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_541033Could not read value [2] from key [3]. {{ System error [4].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_551033Could not write value [2] to key [3]. {{ System error [4].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_561033Could not get value names for key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_571033Could not get sub key names for key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_581033Could not read security information for key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.0-391959792IDS_ERROR_591033Could not increase the available registry space. [2] KB of free registry space is required for the installation of this application.0-391959792IDS_ERROR_61033Action [Time]: [1]. [2]0-391959792IDS_ERROR_601033Another installation is in progress. You must complete that installation before continuing this one.0-391959792IDS_ERROR_611033Error accessing secured data. Please make sure the Windows Installer is configured properly and try the installation again.0-391959792IDS_ERROR_621033User [2] has previously initiated an installation for product [3]. That user will need to run that installation again before using that product. Your current installation will now continue.0-391959792IDS_ERROR_631033User [2] has previously initiated an installation for product [3]. That user will need to run that installation again before using that product.0-391959792IDS_ERROR_641033Out of disk space -- Volume: '[2]'; required space: [3] KB; available space: [4] KB. Free some disk space and retry.0-391959792IDS_ERROR_651033Are you sure you want to cancel?0-391959792IDS_ERROR_661033The file [2][3] is being held in use{ by the following process: Name: [4], ID: [5], Window Title: [6]}. Close that application and retry.0-391959792IDS_ERROR_671033The product [2] is already installed, preventing the installation of this product. The two products are incompatible.0-391959792IDS_ERROR_681033Out of disk space -- Volume: [2]; required space: [3] KB; available space: [4] KB. If rollback is disabled, enough space is available. Click Cancel to quit, Retry to check available disk space again, or Ignore to continue without rollback.0-391959792IDS_ERROR_691033Could not access network location [2].0-391959792IDS_ERROR_71033[ProductName]0-391959792IDS_ERROR_701033The following applications should be closed before continuing the installation:0-391959792IDS_ERROR_711033Could not find any previously installed compliant products on the machine for installing this product.0-391959792IDS_ERROR_721033The key [2] is not valid. Verify that you entered the correct key.0-391959792IDS_ERROR_731033The installer must restart your system before configuration of [2] can continue. Click Yes to restart now or No if you plan to restart later.0-391959792IDS_ERROR_741033You must restart your system for the configuration changes made to [2] to take effect. Click Yes to restart now or No if you plan to restart later.0-391959792IDS_ERROR_751033An installation for [2] is currently suspended. You must undo the changes made by that installation to continue. Do you want to undo those changes?0-391959792IDS_ERROR_761033A previous installation for this product is in progress. You must undo the changes made by that installation to continue. Do you want to undo those changes?0-391959792IDS_ERROR_771033No valid source could be found for product [2]. The Windows Installer cannot continue.0-391959792IDS_ERROR_781033Installation operation completed successfully.0-391959792IDS_ERROR_791033Installation operation failed.0-391959792IDS_ERROR_81033{[2]}{, [3]}{, [4]}0-391959792IDS_ERROR_801033Product: [2] -- [3]0-391959792IDS_ERROR_811033You may either restore your computer to its previous state or continue the installation later. Would you like to restore?0-391959792IDS_ERROR_821033An error occurred while writing installation information to disk. Check to make sure enough disk space is available, and click Retry, or Cancel to end the installation.0-391959792IDS_ERROR_831033One or more of the files required to restore your computer to its previous state could not be found. Restoration will not be possible.0-391959792IDS_ERROR_841033The path [2] is not valid. Please specify a valid path.0-391959792IDS_ERROR_851033Out of memory. Shut down other applications before retrying.0-391959792IDS_ERROR_861033There is no disk in drive [2]. Please insert one and click Retry, or click Cancel to go back to the previously selected volume.0-391959792IDS_ERROR_871033There is no disk in drive [2]. Please insert one and click Retry, or click Cancel to return to the browse dialog and select a different volume.0-391959792IDS_ERROR_881033The folder [2] does not exist. Please enter a path to an existing folder.0-391959792IDS_ERROR_891033You have insufficient privileges to read this folder.0-391959792IDS_ERROR_91033Message type: [1], Argument: [2]0-391959792IDS_ERROR_901033A valid destination folder for the installation could not be determined.0-391959792IDS_ERROR_911033Error attempting to read from the source installation database: [2].0-391959792IDS_ERROR_921033Scheduling reboot operation: Renaming file [2] to [3]. Must reboot to complete operation.0-391959792IDS_ERROR_931033Scheduling reboot operation: Deleting file [2]. Must reboot to complete operation.0-391959792IDS_ERROR_941033Module [2] failed to register. HRESULT [3]. Contact your support personnel.0-391959792IDS_ERROR_951033Module [2] failed to unregister. HRESULT [3]. Contact your support personnel.0-391959792IDS_ERROR_961033Failed to cache package [2]. Error: [3]. Contact your support personnel.0-391959792IDS_ERROR_971033Could not register font [2]. Verify that you have sufficient permissions to install fonts, and that the system supports this font.0-391959792IDS_ERROR_981033Could not unregister font [2]. Verify that you have sufficient permissions to remove fonts.0-391959792IDS_ERROR_991033Could not create shortcut [2]. Verify that the destination folder exists and that you can access it.0-391959792IDS_INSTALLDIR1033[INSTALLDIR]0-391959792IDS_INSTALLSHIELD1033InstallShield0-391959792IDS_INSTALLSHIELD_FORMATTED1033{&MSSWhiteSerif8}InstallShield0-391959792IDS_ISSCRIPT_VERSION_MISSING1033The InstallScript engine is missing from this machine. If available, please run ISScript.msi, or contact your support personnel for further assistance.0-391959792IDS_ISSCRIPT_VERSION_OLD1033The InstallScript engine on this machine is older than the version required to run this setup. If available, please install the latest version of ISScript.msi, or contact your support personnel for further assistance.0-391959792IDS_NEXT1033&Next >0-391959792IDS_OK1033OK0-391959792IDS_PREREQUISITE_SETUP_BROWSE1033Open [ProductName]'s original [SETUPEXENAME]0-391959792IDS_PREREQUISITE_SETUP_INVALID1033This executable file does not appear to be the original executable file for [ProductName]. Without using the original [SETUPEXENAME] to install additional dependencies, [ProductName] may not work correctly. Would you like to find the original [SETUPEXENAME]?0-391959792IDS_PREREQUISITE_SETUP_SEARCH1033This installation may require additional dependencies. Without its dependencies, [ProductName] may not work correctly. Would you like to find the original [SETUPEXENAME]?0-391959792IDS_PREVENT_DOWNGRADE_EXIT1033A newer version of this application is already installed on this computer. If you wish to install this version, please uninstall the newer version first. Click OK to exit the wizard.0-391959792IDS_PRINT_BUTTON1033&Print0-391959792IDS_PRODUCTNAME_INSTALLSHIELD1033[ProductName] - InstallShield Wizard0-391959792IDS_PROGMSG_IIS_CREATEAPPPOOL1033Creating application pool %s0-391959792IDS_PROGMSG_IIS_CREATEAPPPOOLS1033Creating application Pools...0-391959792IDS_PROGMSG_IIS_CREATEVROOT1033Creating IIS virtual directory %s0-391959792IDS_PROGMSG_IIS_CREATEVROOTS1033Creating IIS virtual directories...0-391959792IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSION1033Creating web service extension0-391959792IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSIONS1033Creating web service extensions...0-391959792IDS_PROGMSG_IIS_CREATEWEBSITE1033Creating IIS website %s0-391959792IDS_PROGMSG_IIS_CREATEWEBSITES1033Creating IIS websites...0-391959792IDS_PROGMSG_IIS_EXTRACT1033Extracting information for IIS virtual directories...0-391959792IDS_PROGMSG_IIS_EXTRACTDONE1033Extracted information for IIS virtual directories...0-391959792IDS_PROGMSG_IIS_REMOVEAPPPOOL1033Removing application pool0-391959792IDS_PROGMSG_IIS_REMOVEAPPPOOLS1033Removing application pools...0-391959792IDS_PROGMSG_IIS_REMOVESITE1033Removing web site at port %d0-391959792IDS_PROGMSG_IIS_REMOVEVROOT1033Removing IIS virtual directory %s0-391959792IDS_PROGMSG_IIS_REMOVEVROOTS1033Removing IIS virtual directories...0-391959792IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSION1033Removing web service extension0-391959792IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSIONS1033Removing web service extensions...0-391959792IDS_PROGMSG_IIS_REMOVEWEBSITES1033Removing IIS websites...0-391959792IDS_PROGMSG_IIS_ROLLBACKAPPPOOLS1033Rolling back application pools...0-391959792IDS_PROGMSG_IIS_ROLLBACKVROOTS1033Rolling back virtual directory and web site changes...0-391959792IDS_PROGMSG_IIS_ROLLBACKWEBSERVICEEXTENSIONS1033Rolling back web service extensions...0-391959792IDS_PROGMSG_TEXTFILECHANGS_REPLACE1033Replacing %s with %s in %s...0-391959792IDS_PROGMSG_XML_COSTING1033Costing XML files...0-391959792IDS_PROGMSG_XML_CREATE_FILE1033Creating XML file %s...0-391959792IDS_PROGMSG_XML_FILES1033Performing XML file changes...0-391959792IDS_PROGMSG_XML_REMOVE_FILE1033Removing XML file %s...0-391959792IDS_PROGMSG_XML_ROLLBACK_FILES1033Rolling back XML file changes...0-391959792IDS_PROGMSG_XML_UPDATE_FILE1033Updating XML file %s...0-391959792IDS_SETUPEXE_EXPIRE_MSG1033This setup works until %s. The setup will now exit.0-391959792IDS_SETUPEXE_LAUNCH_COND_E1033This setup was built with an evaluation version of InstallShield and can only be launched from setup.exe.0-391959792IDS_SHORTCUT_DISPLAY_NAME11033Produktionsmanagement0-391928879IDS_SQLBROWSE_INTRO1033From the list of servers below, select the database server you would like to target.0-391959792IDS_SQLBROWSE_INTRO_DB1033From the list of catalog names below, select the database catalog you would like to target.0-391959792IDS_SQLBROWSE_INTRO_TEMPLATE1033[IS_SQLBROWSE_INTRO]0-391959792IDS_SQLLOGIN_BROWSE1033B&rowse...0-391959792IDS_SQLLOGIN_BROWSE_DB1033Br&owse...0-391959792IDS_SQLLOGIN_CATALOG1033&Name of database catalog:0-391959792IDS_SQLLOGIN_CONNECT1033Connect using:0-391959792IDS_SQLLOGIN_DESC1033Select database server and authentication method0-391959792IDS_SQLLOGIN_ID1033&Login ID:0-391959792IDS_SQLLOGIN_INTRO1033Select the database server to install to from the list below or click Browse to see a list of all database servers. You can also specify the way to authenticate your login using your current credentials or a SQL Login ID and Password.0-391959792IDS_SQLLOGIN_PSWD1033&Password:0-391959792IDS_SQLLOGIN_SERVER1033&Database Server:0-391959792IDS_SQLLOGIN_SERVER21033&Database server that you are installing to:0-391959792IDS_SQLLOGIN_SQL1033S&erver authentication using the Login ID and password below0-391959792IDS_SQLLOGIN_TITLE1033{&MSSansBold8}Database Server0-391959792IDS_SQLLOGIN_WIN1033&Windows authentication credentials of current user0-391959792IDS_SQLSCRIPT_INSTALLING1033Executing SQL Install Script...0-391959792IDS_SQLSCRIPT_UNINSTALLING1033Executing SQL Uninstall Script...0-391959792IDS_STANDARD_USE_SETUPEXE1033This installation cannot be run by directly launching the MSI package. You must run setup.exe.0-391959792IDS_SetupTips_Advertise1033Will be installed on first use. (Available only if the feature supports this option.)0-391959792IDS_SetupTips_AllInstalledLocal1033Will be completely installed to the local hard drive.0-391959792IDS_SetupTips_CustomSetup1033{&MSSansBold8}Custom Setup Tips0-391959792IDS_SetupTips_CustomSetupDescription1033Custom Setup allows you to selectively install program features.0-391959792IDS_SetupTips_IconInstallState1033The icon next to the feature name indicates the install state of the feature. Click the icon to drop down the install state menu for each feature.0-391959792IDS_SetupTips_InstallState1033This install state means the feature...0-391959792IDS_SetupTips_Network1033Will be installed to run from the network. (Available only if the feature supports this option.)0-391959792IDS_SetupTips_OK1033OK0-391959792IDS_SetupTips_SubFeaturesInstalledLocal1033Will have some subfeatures installed to the local hard drive. (Available only if the feature has subfeatures.)0-391959792IDS_SetupTips_WillNotBeInstalled1033Will not be installed.0-391959792IDS_UITEXT_Available1033Available0-391959792IDS_UITEXT_Bytes1033bytes0-391959792IDS_UITEXT_CompilingFeaturesCost1033Compiling cost for this feature...0-391959792IDS_UITEXT_Differences1033Differences0-391959792IDS_UITEXT_DiskSize1033Disk Size0-391959792IDS_UITEXT_FeatureCompletelyRemoved1033This feature will be completely removed.0-391959792IDS_UITEXT_FeatureContinueNetwork1033This feature will continue to be run from the network0-391959792IDS_UITEXT_FeatureFreeSpace1033This feature frees up [1] on your hard drive.0-391959792IDS_UITEXT_FeatureInstalledCD1033This feature, and all subfeatures, will be installed to run from the CD.0-391959792IDS_UITEXT_FeatureInstalledCD21033This feature will be installed to run from CD.0-391959792IDS_UITEXT_FeatureInstalledLocal1033This feature, and all subfeatures, will be installed on local hard drive.0-391959792IDS_UITEXT_FeatureInstalledLocal21033This feature will be installed on local hard drive.0-391959792IDS_UITEXT_FeatureInstalledNetwork1033This feature, and all subfeatures, will be installed to run from the network.0-391959792IDS_UITEXT_FeatureInstalledNetwork21033This feature will be installed to run from network.0-391959792IDS_UITEXT_FeatureInstalledRequired1033Will be installed when required.0-391959792IDS_UITEXT_FeatureInstalledWhenRequired1033This feature will be set to be installed when required.0-391959792IDS_UITEXT_FeatureInstalledWhenRequired21033This feature will be installed when required.0-391959792IDS_UITEXT_FeatureLocal1033This feature will be installed on the local hard drive.0-391959792IDS_UITEXT_FeatureLocal21033This feature will be installed on your local hard drive.0-391959792IDS_UITEXT_FeatureNetwork1033This feature will be installed to run from the network.0-391959792IDS_UITEXT_FeatureNetwork21033This feature will be available to run from the network.0-391959792IDS_UITEXT_FeatureNotAvailable1033This feature will not be available.0-391959792IDS_UITEXT_FeatureOnCD1033This feature will be installed to run from CD.0-391959792IDS_UITEXT_FeatureOnCD21033This feature will be available to run from CD.0-391959792IDS_UITEXT_FeatureRemainLocal1033This feature will remain on your local hard drive.0-391959792IDS_UITEXT_FeatureRemoveNetwork1033This feature will be removed from your local hard drive, but will be still available to run from the network.0-391959792IDS_UITEXT_FeatureRemovedCD1033This feature will be removed from your local hard drive but will still be available to run from CD.0-391959792IDS_UITEXT_FeatureRemovedUnlessRequired1033This feature will be removed from your local hard drive but will be set to be installed when required.0-391959792IDS_UITEXT_FeatureRequiredSpace1033This feature requires [1] on your hard drive.0-391959792IDS_UITEXT_FeatureRunFromCD1033This feature will continue to be run from the CD0-391959792IDS_UITEXT_FeatureSpaceFree1033This feature frees up [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures free up [4] on your hard drive.0-391959792IDS_UITEXT_FeatureSpaceFree21033This feature frees up [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures require [4] on your hard drive.0-391959792IDS_UITEXT_FeatureSpaceFree31033This feature requires [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures free up [4] on your hard drive.0-391959792IDS_UITEXT_FeatureSpaceFree41033This feature requires [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures require [4] on your hard drive.0-391959792IDS_UITEXT_FeatureUnavailable1033This feature will become unavailable.0-391959792IDS_UITEXT_FeatureUninstallNoNetwork1033This feature will be uninstalled completely, and you won't be able to run it from the network.0-391959792IDS_UITEXT_FeatureWasCD1033This feature was run from the CD but will be set to be installed when required.0-391959792IDS_UITEXT_FeatureWasCDLocal1033This feature was run from the CD but will be installed on the local hard drive.0-391959792IDS_UITEXT_FeatureWasOnNetworkInstalled1033This feature was run from the network but will be installed when required.0-391959792IDS_UITEXT_FeatureWasOnNetworkLocal1033This feature was run from the network but will be installed on the local hard drive.0-391959792IDS_UITEXT_FeatureWillBeUninstalled1033This feature will be uninstalled completely, and you won't be able to run it from CD.0-391959792IDS_UITEXT_Folder1033Fldr|New Folder0-391959792IDS_UITEXT_GB1033GB0-391959792IDS_UITEXT_KB1033KB0-391959792IDS_UITEXT_MB1033MB0-391959792IDS_UITEXT_Required1033Required0-391959792IDS_UITEXT_TimeRemaining1033Time remaining: {[1] min }{[2] sec}0-391959792IDS_UITEXT_Volume1033Volume0-391959792IDS__AgreeToLicense_01033I &do not accept the terms in the license agreement0-391959792IDS__AgreeToLicense_11033I &accept the terms in the license agreement0-391959792IDS__DatabaseFolder_ChangeFolder1033Click Next to install to this folder, or click Change to install to a different folder.0-391959792IDS__DatabaseFolder_DatabaseDir1033[DATABASEDIR]0-391959792IDS__DatabaseFolder_DatabaseFolder1033{&MSSansBold8}Database Folder0-391959792IDS__DestinationFolder_Change1033&Change...0-391959792IDS__DestinationFolder_ChangeFolder1033Click Next to install to this folder, or click Change to install to a different folder.0-391959792IDS__DestinationFolder_DestinationFolder1033{&MSSansBold8}Destination Folder0-391959792IDS__DestinationFolder_InstallTo1033Install [ProductName] to:0-391959792IDS__DisplayName_Custom1033Custom0-391959792IDS__DisplayName_Minimal1033Minimal0-391959792IDS__DisplayName_Typical1033Typical0-391959792IDS__IsAdminInstallBrowse_1110330-391959792IDS__IsAdminInstallBrowse_410330-391959792IDS__IsAdminInstallBrowse_810330-391959792IDS__IsAdminInstallBrowse_BrowseDestination1033Browse to the destination folder.0-391959792IDS__IsAdminInstallBrowse_ChangeDestination1033{&MSSansBold8}Change Current Destination Folder0-391959792IDS__IsAdminInstallBrowse_CreateFolder1033Create new folder|0-391959792IDS__IsAdminInstallBrowse_FolderName1033&Folder name:0-391959792IDS__IsAdminInstallBrowse_LookIn1033&Look in:0-391959792IDS__IsAdminInstallBrowse_UpOneLevel1033Up one level|0-391959792IDS__IsAdminInstallPointWelcome_ServerImage1033The InstallShield(R) Wizard will create a server image of [ProductName] at a specified network location. To continue, click Next.0-391959792IDS__IsAdminInstallPointWelcome_Wizard1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]0-391959792IDS__IsAdminInstallPoint_Change1033&Change...0-391959792IDS__IsAdminInstallPoint_EnterNetworkLocation1033Enter the network location or click Change to browse to a location. Click Install to create a server image of [ProductName] at the specified network location or click Cancel to exit the wizard.0-391959792IDS__IsAdminInstallPoint_Install1033&Install0-391959792IDS__IsAdminInstallPoint_NetworkLocation1033&Network location:0-391959792IDS__IsAdminInstallPoint_NetworkLocationFormatted1033{&MSSansBold8}Network Location0-391959792IDS__IsAdminInstallPoint_SpecifyNetworkLocation1033Specify a network location for the server image of the product.0-391959792IDS__IsBrowseButton1033&Browse...0-391959792IDS__IsBrowseFolderDlg_1110330-391959792IDS__IsBrowseFolderDlg_410330-391959792IDS__IsBrowseFolderDlg_810330-391959792IDS__IsBrowseFolderDlg_BrowseDestFolder1033Browse to the destination folder.0-391959792IDS__IsBrowseFolderDlg_ChangeCurrentFolder1033{&MSSansBold8}Change Current Destination Folder0-391959792IDS__IsBrowseFolderDlg_CreateFolder1033Create New Folder|0-391959792IDS__IsBrowseFolderDlg_FolderName1033&Folder name:0-391959792IDS__IsBrowseFolderDlg_LookIn1033&Look in:0-391959792IDS__IsBrowseFolderDlg_OK1033OK0-391959792IDS__IsBrowseFolderDlg_UpOneLevel1033Up One Level|0-391959792IDS__IsBrowseForAccount1033Browse for a User Account0-391959792IDS__IsBrowseGroup1033Select a Group0-391959792IDS__IsBrowseUsernameTitle1033Select a User Name0-391959792IDS__IsCancelDlg_ConfirmCancel1033Are you sure you want to cancel [ProductName] installation?0-391959792IDS__IsCancelDlg_No1033&No0-391959792IDS__IsCancelDlg_Yes1033&Yes0-391959792IDS__IsConfirmPassword1033Con&firm password:0-391959792IDS__IsCreateNewUserTitle1033New User Information0-391959792IDS__IsCreateUserBrowse1033N&ew User Information...0-391959792IDS__IsCustomSelectionDlg_Change1033&Change...0-391959792IDS__IsCustomSelectionDlg_ClickFeatureIcon1033Click on an icon in the list below to change how a feature is installed.0-391959792IDS__IsCustomSelectionDlg_CustomSetup1033{&MSSansBold8}Custom Setup0-391959792IDS__IsCustomSelectionDlg_FeatureDescription1033Feature Description0-391959792IDS__IsCustomSelectionDlg_FeaturePath1033<selected feature path>0-391959792IDS__IsCustomSelectionDlg_FeatureSize1033Feature size0-391959792IDS__IsCustomSelectionDlg_Help1033&Help0-391959792IDS__IsCustomSelectionDlg_InstallTo1033Install to:0-391959792IDS__IsCustomSelectionDlg_MultilineDescription1033Multiline description of the currently selected item0-391959792IDS__IsCustomSelectionDlg_SelectFeatures1033Select the program features you want installed.0-391959792IDS__IsCustomSelectionDlg_Space1033&Space0-391959792IDS__IsDiskSpaceDlg_DiskSpace1033Disk space required for the installation exceeds available disk space.0-391959792IDS__IsDiskSpaceDlg_HighlightedVolumes1033The highlighted volumes do not have enough disk space available for the currently selected features. You can remove files from the highlighted volumes, choose to install fewer features onto local drives, or select different destination drives.0-391959792IDS__IsDiskSpaceDlg_Numbers1033{120}{70}{70}{70}{70}0-391959792IDS__IsDiskSpaceDlg_OK1033OK0-391959792IDS__IsDiskSpaceDlg_OutOfDiskSpace1033{&MSSansBold8}Out of Disk Space0-391959792IDS__IsDomainOrServer1033&Domain or server:0-391959792IDS__IsErrorDlg_Abort1033&Abort0-391959792IDS__IsErrorDlg_ErrorText1033<error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here>0-391959792IDS__IsErrorDlg_Ignore1033&Ignore0-391959792IDS__IsErrorDlg_InstallerInfo1033[ProductName] Installer Information0-391959792IDS__IsErrorDlg_NO1033&No0-391959792IDS__IsErrorDlg_OK1033&OK0-391959792IDS__IsErrorDlg_Retry1033&Retry0-391959792IDS__IsErrorDlg_Yes1033&Yes0-391959792IDS__IsExitDialog_Finish1033&Finish0-391959792IDS__IsExitDialog_InstallSuccess1033The InstallShield Wizard has successfully installed [ProductName]. Click Finish to exit the wizard.0-391959792IDS__IsExitDialog_LaunchProgram1033Launch the program0-391959792IDS__IsExitDialog_ShowReadMe1033Show the readme file0-391959792IDS__IsExitDialog_UninstallSuccess1033The InstallShield Wizard has successfully uninstalled [ProductName]. Click Finish to exit the wizard.0-391959792IDS__IsExitDialog_Update_InternetConnection1033Your Internet connection can be used to make sure that you have the latest updates.0-391959792IDS__IsExitDialog_Update_PossibleUpdates1033Some program files might have been updated since you purchased your copy of [ProductName].0-391959792IDS__IsExitDialog_Update_SetupFinished1033Setup has finished installing [ProductName].0-391959792IDS__IsExitDialog_Update_YesCheckForUpdates1033&Yes, check for program updates (Recommended) after the setup completes.0-391959792IDS__IsExitDialog_WizardCompleted1033{&TahomaBold10}InstallShield Wizard Completed0-391959792IDS__IsFatalError_ClickFinish1033Click Finish to exit the wizard.0-391959792IDS__IsFatalError_Finish1033&Finish0-391959792IDS__IsFatalError_KeepOrRestore1033You can either keep any existing installed elements on your system to continue this installation at a later time or you can restore your system to its original state prior to the installation.0-391959792IDS__IsFatalError_NotModified1033Your system has not been modified. To complete installation at another time, please run setup again.0-391959792IDS__IsFatalError_RestoreOrContinueLater1033Click Restore or Continue Later to exit the wizard.0-391959792IDS__IsFatalError_WizardCompleted1033{&TahomaBold10}InstallShield Wizard Completed0-391959792IDS__IsFatalError_WizardInterrupted1033The wizard was interrupted before [ProductName] could be completely installed.0-391959792IDS__IsFeatureDetailsDlg_DiskSpaceRequirements1033{&MSSansBold8}Disk Space Requirements0-391959792IDS__IsFeatureDetailsDlg_Numbers1033{120}{70}{70}{70}{70}0-391959792IDS__IsFeatureDetailsDlg_OK1033OK0-391959792IDS__IsFeatureDetailsDlg_SpaceRequired1033The disk space required for the installation of the selected features.0-391959792IDS__IsFeatureDetailsDlg_VolumesTooSmall1033The highlighted volumes do not have enough disk space available for the currently selected features. You can remove files from the highlighted volumes, choose to install fewer features onto local drives, or select different destination drives.0-391959792IDS__IsFilesInUse_ApplicationsUsingFiles1033The following applications are using files that need to be updated by this setup. Close these applications and click Retry to continue.0-391959792IDS__IsFilesInUse_Exit1033&Exit0-391959792IDS__IsFilesInUse_FilesInUse1033{&MSSansBold8}Files in Use0-391959792IDS__IsFilesInUse_FilesInUseMessage1033Some files that need to be updated are currently in use.0-391959792IDS__IsFilesInUse_Ignore1033&Ignore0-391959792IDS__IsFilesInUse_Retry1033&Retry0-391959792IDS__IsGroup1033&Group:0-391959792IDS__IsGroupLabel1033Gr&oup:0-391959792IDS__IsInitDlg_110330-391959792IDS__IsInitDlg_210330-391959792IDS__IsInitDlg_PreparingWizard1033[ProductName] Setup is preparing the InstallShield Wizard which will guide you through the program setup process. Please wait.0-391959792IDS__IsInitDlg_WelcomeWizard1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]0-391959792IDS__IsLicenseDlg_LicenseAgreement1033{&MSSansBold8}License Agreement0-391959792IDS__IsLicenseDlg_ReadLicenseAgreement1033Please read the following license agreement carefully.0-391959792IDS__IsLogonInfoDescription1033Specify the user name and password of the user account that will logon to use this application. The user account must be in the form DOMAIN\Username.0-391959792IDS__IsLogonInfoTitle1033{&MSSansBold8}Logon Information0-391959792IDS__IsLogonInfoTitleDescription1033Specify a user name and password0-391959792IDS__IsLogonNewUserDescription1033Select the button below to specify information about a new user that will be created during the installation.0-391959792IDS__IsMaintenanceDlg_ChangeFeatures1033Change which program features are installed. This option displays the Custom Selection dialog in which you can change the way features are installed.0-391959792IDS__IsMaintenanceDlg_MaitenanceOptions1033Modify, repair, or remove the program.0-391959792IDS__IsMaintenanceDlg_Modify1033{&MSSansBold8}&Modify0-391959792IDS__IsMaintenanceDlg_ProgramMaintenance1033{&MSSansBold8}Program Maintenance0-391959792IDS__IsMaintenanceDlg_Remove1033{&MSSansBold8}&Remove0-391959792IDS__IsMaintenanceDlg_RemoveProductName1033Remove [ProductName] from your computer.0-391959792IDS__IsMaintenanceDlg_Repair1033{&MSSansBold8}Re&pair0-391959792IDS__IsMaintenanceDlg_RepairMessage1033Repair installation errors in the program. This option fixes missing or corrupt files, shortcuts, and registry entries.0-391959792IDS__IsMaintenanceWelcome_MaintenanceOptionsDescription1033The InstallShield(R) Wizard will allow you to modify, repair, or remove [ProductName]. To continue, click Next.0-391959792IDS__IsMaintenanceWelcome_WizardWelcome1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]0-391959792IDS__IsMsiRMFilesInUse_ApplicationsUsingFiles1033The following applications are using files that need to be updated by this setup.0-391959792IDS__IsMsiRMFilesInUse_CloseRestart1033Automatically close and attempt to restart applications.0-391959792IDS__IsMsiRMFilesInUse_RebootAfter1033Do not close applications. (A reboot will be required.)0-391959792IDS__IsPatchDlg_PatchClickUpdate1033The InstallShield(R) Wizard will install the Patch for [ProductName] on your computer. To continue, click Update.0-391959792IDS__IsPatchDlg_PatchWizard1033[ProductName] Patch - InstallShield Wizard0-391959792IDS__IsPatchDlg_Update1033&Update >0-391959792IDS__IsPatchDlg_WelcomePatchWizard1033{&TahomaBold10}Welcome to the Patch for [ProductName]0-391959792IDS__IsProgressDlg_210330-391959792IDS__IsProgressDlg_Hidden1033(Hidden for now)0-391959792IDS__IsProgressDlg_HiddenTimeRemaining1033)Hidden for now)Estimated time remaining:0-391959792IDS__IsProgressDlg_InstallingProductName1033{&MSSansBold8}Installing [ProductName]0-391959792IDS__IsProgressDlg_ProgressDone1033Progress done0-391959792IDS__IsProgressDlg_SecHidden1033(Hidden for now)Sec.0-391959792IDS__IsProgressDlg_Status1033Status:0-391959792IDS__IsProgressDlg_Uninstalling1033{&MSSansBold8}Uninstalling [ProductName]0-391959792IDS__IsProgressDlg_UninstallingFeatures1033The program features you selected are being uninstalled.0-391959792IDS__IsProgressDlg_UninstallingFeatures21033The program features you selected are being installed.0-391959792IDS__IsProgressDlg_WaitUninstall1033Please wait while the InstallShield Wizard uninstalls [ProductName]. This may take several minutes.0-391959792IDS__IsProgressDlg_WaitUninstall21033Please wait while the InstallShield Wizard installs [ProductName]. This may take several minutes.0-391959792IDS__IsReadmeDlg_Cancel1033&Cancel0-391959792IDS__IsReadmeDlg_PleaseReadInfo1033Please read the following readme information carefully.0-391959792IDS__IsReadmeDlg_ReadMeInfo1033{&MSSansBold8}Readme Information0-391959792IDS__IsRegisterUserDlg_1610330-391959792IDS__IsRegisterUserDlg_Anyone1033&Anyone who uses this computer (all users)0-391959792IDS__IsRegisterUserDlg_CustomerInformation1033{&MSSansBold8}Customer Information0-391959792IDS__IsRegisterUserDlg_InstallFor1033Install this application for:0-391959792IDS__IsRegisterUserDlg_OnlyMe1033Only for &me ([USERNAME])0-391959792IDS__IsRegisterUserDlg_Organization1033&Organization:0-391959792IDS__IsRegisterUserDlg_PleaseEnterInfo1033Please enter your information.0-391959792IDS__IsRegisterUserDlg_SerialNumber1033&Serial Number:0-391959792IDS__IsRegisterUserDlg_Tahoma501033{\Tahoma8}{50}0-391959792IDS__IsRegisterUserDlg_Tahoma801033{\Tahoma8}{80}0-391959792IDS__IsRegisterUserDlg_UserName1033&User Name:0-391959792IDS__IsResumeDlg_ResumeSuspended1033The InstallShield(R) Wizard will complete the suspended installation of [ProductName] on your computer. To continue, click Next.0-391959792IDS__IsResumeDlg_Resuming1033{&TahomaBold10}Resuming the InstallShield Wizard for [ProductName]0-391959792IDS__IsResumeDlg_WizardResume1033The InstallShield(R) Wizard will complete the installation of [ProductName] on your computer. To continue, click Next.0-391959792IDS__IsSelectDomainOrServer1033Select a Domain or Server0-391959792IDS__IsSelectDomainUserInstructions1033Use the browse buttons to select a domain\server and a user name.0-391959792IDS__IsSetupComplete_ShowMsiLog1033Show the Windows Installer log0-391959792IDS__IsSetupTypeMinDlg_1310330-391959792IDS__IsSetupTypeMinDlg_AllFeatures1033All program features will be installed. (Requires the most disk space.)0-391959792IDS__IsSetupTypeMinDlg_ChooseFeatures1033Choose which program features you want installed and where they will be installed. Recommended for advanced users.0-391959792IDS__IsSetupTypeMinDlg_ChooseSetupType1033Choose the setup type that best suits your needs.0-391959792IDS__IsSetupTypeMinDlg_Complete1033{&MSSansBold8}&Complete0-391959792IDS__IsSetupTypeMinDlg_Custom1033{&MSSansBold8}Cu&stom0-391959792IDS__IsSetupTypeMinDlg_Minimal1033{&MSSansBold8}&Minimal0-391959792IDS__IsSetupTypeMinDlg_MinimumFeatures1033Minimum required features will be installed.0-391959792IDS__IsSetupTypeMinDlg_SelectSetupType1033Please select a setup type.0-391959792IDS__IsSetupTypeMinDlg_SetupType1033{&MSSansBold8}Setup Type0-391959792IDS__IsSetupTypeMinDlg_Typical1033{&MSSansBold8}&Typical0-391959792IDS__IsUserExit_ClickFinish1033Click Finish to exit the wizard.0-391959792IDS__IsUserExit_Finish1033&Finish0-391959792IDS__IsUserExit_KeepOrRestore1033You can either keep any existing installed elements on your system to continue this installation at a later time or you can restore your system to its original state prior to the installation.0-391959792IDS__IsUserExit_NotModified1033Your system has not been modified. To install this program at a later time, please run the installation again.0-391959792IDS__IsUserExit_RestoreOrContinue1033Click Restore or Continue Later to exit the wizard.0-391959792IDS__IsUserExit_WizardCompleted1033{&TahomaBold10}InstallShield Wizard Completed0-391959792IDS__IsUserExit_WizardInterrupted1033The wizard was interrupted before [ProductName] could be completely installed.0-391959792IDS__IsUserNameLabel1033&User name:0-391959792IDS__IsVerifyReadyDlg_BackOrCancel1033If you want to review or change any of your installation settings, click Back. Click Cancel to exit the wizard.0-391959792IDS__IsVerifyReadyDlg_ClickInstall1033Click Install to begin the installation.0-391959792IDS__IsVerifyReadyDlg_Company1033Company: [COMPANYNAME]0-391959792IDS__IsVerifyReadyDlg_CurrentSettings1033Current Settings:0-391959792IDS__IsVerifyReadyDlg_DestFolder1033Destination Folder:0-391959792IDS__IsVerifyReadyDlg_Install1033&Install0-391959792IDS__IsVerifyReadyDlg_Installdir1033[INSTALLDIR]0-391959792IDS__IsVerifyReadyDlg_ModifyReady1033{&MSSansBold8}Ready to Modify the Program0-391959792IDS__IsVerifyReadyDlg_ReadyInstall1033{&MSSansBold8}Ready to Install the Program0-391959792IDS__IsVerifyReadyDlg_ReadyRepair1033{&MSSansBold8}Ready to Repair the Program0-391959792IDS__IsVerifyReadyDlg_SelectedSetupType1033[SelectedSetupType]0-391959792IDS__IsVerifyReadyDlg_Serial1033Serial: [ISX_SERIALNUM]0-391959792IDS__IsVerifyReadyDlg_SetupType1033Setup Type:0-391959792IDS__IsVerifyReadyDlg_UserInfo1033User Information:0-391959792IDS__IsVerifyReadyDlg_UserName1033Name: [USERNAME]0-391959792IDS__IsVerifyReadyDlg_WizardReady1033The wizard is ready to begin installation.0-391959792IDS__IsVerifyRemoveAllDlg_ChoseRemoveProgram1033You have chosen to remove the program from your system.0-391959792IDS__IsVerifyRemoveAllDlg_ClickBack1033If you want to review or change any settings, click Back.0-391959792IDS__IsVerifyRemoveAllDlg_ClickRemove1033Click Remove to remove [ProductName] from your computer. After removal, this program will no longer be available for use.0-391959792IDS__IsVerifyRemoveAllDlg_Remove1033&Remove0-391959792IDS__IsVerifyRemoveAllDlg_RemoveProgram1033{&MSSansBold8}Remove the Program0-391959792IDS__IsWelcomeDlg_InstallProductName1033The InstallShield(R) Wizard will install [ProductName] on your computer. To continue, click Next.0-391959792IDS__IsWelcomeDlg_WarningCopyright1033WARNING: This program is protected by copyright law and international treaties.0-391959792IDS__IsWelcomeDlg_WelcomeProductName1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]0-391959792IDS__TargetReq_DESC_COLOR1033The color settings of your system are not adequate for running [ProductName].0-391959792IDS__TargetReq_DESC_OS1033The operating system is not adequate for running [ProductName].0-391959792IDS__TargetReq_DESC_PROCESSOR1033The processor is not adequate for running [ProductName].0-391959792IDS__TargetReq_DESC_RAM1033The amount of RAM is not adequate for running [ProductName].0-391959792IDS__TargetReq_DESC_RESOLUTION1033The screen resolution is not adequate for running [ProductName].0-391959792ID_STRING11033http://www.didalog.de01378027656ID_STRING21033Digital Data0-391945295ID_STRING31033Launch |Built0-391922864IIDS_UITEXT_FeatureUninstalled1033This feature will remain uninstalled.0-391959792
+ + + Name + Value + +
UniqueId141818CA-4EC5-472B-9AC5-D64492E1A05A
+ + + UpgradedImage_ + Name + MsiPath + Order + Flags + IgnoreMissingFiles +
+ + + UpgradeItem + ObjectSetupPath + ISReleaseFlags + ISAttributes +
+ + + Name + MsiPath + Family +
+ + + Directory_ + Name + Value +
+ + + File_ + Name + Value +
+ + + Name + Value +
+ + + Registry_ + Name + Value +
+ + + ISRelease_ + ISProductConfiguration_ + Name + Value +
+ + + Shortcut_ + Name + Value +
+ + + ISXmlElement + ISXmlFile_ + ISXmlElement_Parent + XPath + Content + ISAttributes +
+ + + ISXmlElementAttrib + ISXmlElement_ + Name + Value + ISAttributes +
+ + + ISXmlFile + FileName + Component_ + Directory + ISAttributes + SelectionNamespaces + Encoding +
+ + + Signature_ + Parent + Element + Attribute + ISAttributes +
+ + + Name + Data + ISBuildSourcePath + ISIconIndex + + + +
ARPPRODUCTICON.exeT:\Software\Symbol-Dateien\AllIcons\cube.ico0_Built1_66CEEC93D2F841ECB878C73B8672A01F.exeT:\Software\Symbol-Dateien\AllIcons\cube.ico0_Built_E0E597448A164BCAACDD897EE9F86D77.exeT:\Software\Symbol-Dateien\AllIcons\cube.ico0
+ + + IniFile + FileName + DirProperty + Section + Key + Value + Action + Component_ +
+ + + Signature_ + FileName + Section + Key + Field + Type +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
AllocateRegistrySpaceNOT Installed1550AllocateRegistrySpace + AppSearch400AppSearch + BindImage4300BindImage + CCPSearchCCP_TEST500CCPSearch + CostFinalize1000CostFinalize + CostInitialize800CostInitialize + CreateFolders3700CreateFolders + CreateShortcuts4500CreateShortcuts + DeleteServicesVersionNT2000DeleteServices + DuplicateFiles4210DuplicateFiles + FileCost900FileCost + FindRelatedProductsNOT ISSETUPDRIVEN420FindRelatedProducts + ISPreventDowngradeISFOUNDNEWERPRODUCTVERSION450ISPreventDowngrade + ISRunSetupTypeAddLocalEventNot Installed And Not ISRUNSETUPTYPEADDLOCALEVENT1050ISRunSetupTypeAddLocalEvent + ISSelfRegisterCosting2201 + ISSelfRegisterFiles5601 + ISSelfRegisterFinalize6601 + ISSetAllUsersNot Installed10 + ISUnSelfRegisterFiles2202 + InstallFiles4000InstallFiles + InstallFinalize6600InstallFinalize + InstallInitialize1501InstallInitialize + InstallODBC5400InstallODBC + InstallServicesVersionNT5800InstallServices + InstallValidate1400InstallValidate + IsolateComponents950IsolateComponents + LaunchConditionsNot Installed410LaunchConditions + MigrateFeatureStates1010MigrateFeatureStates + MoveFiles3800MoveFiles + MsiConfigureServicesVersionMsi >= "5.00"5850MSI5 MsiConfigureServices + MsiPublishAssemblies6250MsiPublishAssemblies + MsiUnpublishAssemblies1750MsiUnpublishAssemblies + PatchFiles4090PatchFiles + ProcessComponents1600ProcessComponents + PublishComponents6200PublishComponents + PublishFeatures6300PublishFeatures + PublishProduct6400PublishProduct + RMCCPSearchNot CCP_SUCCESS And CCP_TEST600RMCCPSearch + RegisterClassInfo4600RegisterClassInfo + RegisterComPlus5700RegisterComPlus + RegisterExtensionInfo4700RegisterExtensionInfo + RegisterFonts5300RegisterFonts + RegisterMIMEInfo4900RegisterMIMEInfo + RegisterProduct6100RegisterProduct + RegisterProgIdInfo4800RegisterProgIdInfo + RegisterTypeLibraries5500RegisterTypeLibraries + RegisterUser6000RegisterUser + RemoveDuplicateFiles3400RemoveDuplicateFiles + RemoveEnvironmentStrings3300RemoveEnvironmentStrings + RemoveExistingProducts6601RemoveExistingProducts + RemoveFiles3500RemoveFiles + RemoveFolders3600RemoveFolders + RemoveIniValues3100RemoveIniValues + RemoveODBC2400RemoveODBC + RemoveRegistryValues2600RemoveRegistryValues + RemoveShortcuts3200RemoveShortcuts + ResolveSourceNot Installed850ResolveSource + ScheduleRebootISSCHEDULEREBOOT6410ScheduleReboot + SelfRegModules5600SelfRegModules + SelfUnregModules2200SelfUnregModules + SetARPINSTALLLOCATION1100SetARPINSTALLLOCATION + SetAllUsersProfileNTVersionNT = 400970 + SetODBCFolders1200SetODBCFolders + StartServicesVersionNT5900StartServices + StopServicesVersionNT1900StopServices + UnpublishComponents1700UnpublishComponents + UnpublishFeatures1800UnpublishFeatures + UnregisterClassInfo2700UnregisterClassInfo + UnregisterComPlus2100UnregisterComPlus + UnregisterExtensionInfo2800UnregisterExtensionInfo + UnregisterFonts2500UnregisterFonts + UnregisterMIMEInfo3000UnregisterMIMEInfo + UnregisterProgIdInfo2900UnregisterProgIdInfo + UnregisterTypeLibraries2300UnregisterTypeLibraries + ValidateProductID700ValidateProductID + WriteEnvironmentStrings5200WriteEnvironmentStrings + WriteIniValues5100WriteIniValues + WriteRegistryValues5000WriteRegistryValues + setAllUsersProfile2KVersionNT >= 500980 + setUserProfileNTVersionNT960 +
+ + + Property + Value + + + + + + + + + + + + + + + + + + + + + + + + +
ActiveLanguage1033Comments + CurrentMedia +UwBpAG4AZwBsAGUASQBtAGEAZwBlAAEARQB4AHAAcgBlAHMAcwA= + DefaultProductConfigurationExpressEnableSwidtag1ISCompilerOption_CompileBeforeBuild1ISCompilerOption_Debug0ISCompilerOption_IncludePath + ISCompilerOption_LibraryPath + ISCompilerOption_MaxErrors50ISCompilerOption_MaxWarnings50ISCompilerOption_OutputPath<ISProjectDataFolder>\Script FilesISCompilerOption_PreProcessor_ISSCRIPT_NEW_STYLE_DLG_DEFSISCompilerOption_WarningLevel3ISCompilerOption_WarningsAsErrors1ISThemeInstallShield Blue.themeISUSLock{C15AB018-AD5E-4BC5-BF06-A3F698DBEDB5}ISUSSignature{C3ADAE76-F304-48F1-B8C3-547E6032A397}ISVisitedViewsviewAssistant,viewUpdateService,viewSetupDesign,viewProjectLimited1LockPermissionMode1MsiExecCmdLineOptions + MsiLogFile + OnUpgrade0Owner + PatchFamilyMyPatchFamily1PatchSequence1.0.0SaveAsSchema + SccEnabled0SccPath + SchemaVersion774TypeMSIE
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
AppSearch400AppSearch + CCPSearchCCP_TEST500CCPSearch + CostFinalize1000CostFinalize + CostInitialize800CostInitialize + ExecuteAction1300ExecuteAction + FileCost900FileCost + FindRelatedProducts430FindRelatedProducts + ISPreventDowngradeISFOUNDNEWERPRODUCTVERSION450ISPreventDowngrade + ISSetAllUsersNot Installed10 + InstallWelcomeNot Installed1210InstallWelcome + IsolateComponents950IsolateComponents + LaunchConditionsNot Installed410LaunchConditions + MaintenanceWelcomeInstalled And Not RESUME And Not Preselected And Not PATCH1230MaintenanceWelcome + MigrateFeatureStates1200MigrateFeatureStates + PatchWelcomeInstalled And PATCH And Not IS_MAJOR_UPGRADE1205Patch Panel + RMCCPSearchNot CCP_SUCCESS And CCP_TEST600RMCCPSearch + ResolveSourceNot Installed990ResolveSource + SetAllUsersProfileNTVersionNT = 400970 + SetupCompleteError-3SetupCompleteError + SetupCompleteSuccess-1SetupCompleteSuccess + SetupInitialization420SetupInitialization + SetupInterrupted-2SetupInterrupted + SetupProgress1240SetupProgress + SetupResumeInstalled And (RESUME Or Preselected) And Not PATCH1220SetupResume + ValidateProductID700ValidateProductID + setAllUsersProfile2KVersionNT >= 500980 + setUserProfileNTVersionNT960 +
+ + + Component_Shared + Component_Application +
+ + + Condition + Description +
+ + + Property + Order + Value + Text +
+ + + Property + Order + Value + Text + Binary_ +
+ + + LockObject + Table + Domain + User + Permission +
+ + + ContentType + Extension_ + CLSID +
+ + + DiskId + LastSequence + DiskPrompt + Cabinet + VolumeLabel + Source +
+ + + FileKey + Component_ + SourceName + DestName + SourceFolder + DestFolder + Options +
+ + + Component_ + Feature_ + File_Manifest + File_Application + Attributes +
+ + + Component_ + Name + Value +
+ + + DigitalCertificate + CertData +
+ + + Table + SignObject + DigitalCertificate_ + Hash +
+ + + Component + Flags + Sequence + ReferenceComponents +
+ + + MsiEmbeddedChainer + Condition + CommandLine + Source + Type +
+ + + MsiEmbeddedUI + FileName + Attributes + MessageFilter + Data + ISBuildSourcePath +
+ + + File_ + Options + HashPart1 + HashPart2 + HashPart3 + HashPart4 +
+ + + MsiLockPermissionsEx + LockObject + Table + SDDLText + Condition +
+ + + PackageCertificate + DigitalCertificate_ +
+ + + PatchCertificate + DigitalCertificate_ +
+ + + PatchConfiguration_ + Company + Property + Value +
+ + + File_ + Assembly_ +
+ + + Assembly + Name + Value +
+ + + PatchConfiguration_ + PatchFamily + Target + Sequence + Supersede +
+ + + MsiServiceConfig + Name + Event + ConfigType + Argument + Component_ +
+ + + MsiServiceConfigFailureActions + Name + Event + ResetPeriod + RebootMessage + Command + Actions + DelayActions + Component_ +
+ + + MsiShortcutProperty + Shortcut_ + PropertyKey + PropVariantValue +
+ + + Driver_ + Attribute + Value +
+ + + DataSource + Component_ + Description + DriverDescription + Registration +
+ + + Driver + Component_ + Description + File_ + File_Setup +
+ + + DataSource_ + Attribute + Value +
+ + + Translator + Component_ + Description + File_ + File_Setup +
+ + + File_ + Sequence + PatchSize + Attributes + Header + StreamRef_ + ISBuildSourcePath +
+ + + PatchId + Media_ +
+ + + ProgId + ProgId_Parent + Class_ + Description + Icon_ + IconIndex + ISAttributes +
+ + + Property + Value + ISComments +
ALLUSERS1 + ARPINSTALLLOCATION + ARPPRODUCTICONARPPRODUCTICON.exe + ARPSIZE + ARPURLINFOABOUT##ID_STRING1## + AgreeToLicenseNo + ApplicationUsersAllUsers + DWUSINTERVAL30 + DWUSLINKCEACB7C89E9CC0EF2EACE7F89EBB978F69FCD78FCE4BA0DFCEEBE798F95C17F8C9ECE038EEAC + DefaultUIFontExpressDefault + DialogCaptionInstallShield for Windows Installer + DiskPrompt[1] + DiskSerial1234-5678 + DisplayNameCustom##IDS__DisplayName_Custom## + DisplayNameMinimal##IDS__DisplayName_Minimal## + DisplayNameTypical##IDS__DisplayName_Typical## + Display_IsBitmapDlg1 + ErrorDialogSetupError + INSTALLLEVEL200 + ISCHECKFORPRODUCTUPDATES1 + ISENABLEDWUSFINISHDIALOG + ISSHOWMSILOG + ISVROOT_PORT_NO0 + IS_COMPLUS_PROGRESSTEXT_COST##IDS_COMPLUS_PROGRESSTEXT_COST## + IS_COMPLUS_PROGRESSTEXT_INSTALL##IDS_COMPLUS_PROGRESSTEXT_INSTALL## + IS_COMPLUS_PROGRESSTEXT_UNINSTALL##IDS_COMPLUS_PROGRESSTEXT_UNINSTALL## + IS_PREVENT_DOWNGRADE_EXIT##IDS_PREVENT_DOWNGRADE_EXIT## + IS_PROGMSG_TEXTFILECHANGS_REPLACE##IDS_PROGMSG_TEXTFILECHANGS_REPLACE## + IS_PROGMSG_XML_COSTING##IDS_PROGMSG_XML_COSTING## + IS_PROGMSG_XML_CREATE_FILE##IDS_PROGMSG_XML_CREATE_FILE## + IS_PROGMSG_XML_FILES##IDS_PROGMSG_XML_FILES## + IS_PROGMSG_XML_REMOVE_FILE##IDS_PROGMSG_XML_REMOVE_FILE## + IS_PROGMSG_XML_ROLLBACK_FILES##IDS_PROGMSG_XML_ROLLBACK_FILES## + IS_PROGMSG_XML_UPDATE_FILE##IDS_PROGMSG_XML_UPDATE_FILE## + IS_SQLSERVER_AUTHENTICATION0 + IS_SQLSERVER_DATABASE + IS_SQLSERVER_PASSWORD + IS_SQLSERVER_SERVER + IS_SQLSERVER_USERNAMEsa + InstallChoiceAR + LAUNCHPROGRAM1 + LAUNCHPROGRAMCOMPCODE{AF24D556-FE0F-4243-8279-4AE769F0811B} + LAUNCHPROGRAMFILEKEYdd_record_organiser.prim_re_ + LAUNCHREADME1 + Manufacturer##COMPANY_NAME## + PIDKEY + PIDTemplate12345<###-%%%%%%%>@@@@@ + PROGMSG_IIS_CREATEAPPPOOL##IDS_PROGMSG_IIS_CREATEAPPPOOL## + PROGMSG_IIS_CREATEAPPPOOLS##IDS_PROGMSG_IIS_CREATEAPPPOOLS## + PROGMSG_IIS_CREATEVROOT##IDS_PROGMSG_IIS_CREATEVROOT## + PROGMSG_IIS_CREATEVROOTS##IDS_PROGMSG_IIS_CREATEVROOTS## + PROGMSG_IIS_CREATEWEBSERVICEEXTENSION##IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSION## + PROGMSG_IIS_CREATEWEBSERVICEEXTENSIONS##IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSIONS## + PROGMSG_IIS_CREATEWEBSITE##IDS_PROGMSG_IIS_CREATEWEBSITE## + PROGMSG_IIS_CREATEWEBSITES##IDS_PROGMSG_IIS_CREATEWEBSITES## + PROGMSG_IIS_EXTRACT##IDS_PROGMSG_IIS_EXTRACT## + PROGMSG_IIS_EXTRACTDONE##IDS_PROGMSG_IIS_EXTRACTDONE## + PROGMSG_IIS_EXTRACTDONEz##IDS_PROGMSG_IIS_EXTRACTDONE## + PROGMSG_IIS_EXTRACTzDONE##IDS_PROGMSG_IIS_EXTRACTDONE## + PROGMSG_IIS_REMOVEAPPPOOL##IDS_PROGMSG_IIS_REMOVEAPPPOOL## + PROGMSG_IIS_REMOVEAPPPOOLS##IDS_PROGMSG_IIS_REMOVEAPPPOOLS## + PROGMSG_IIS_REMOVESITE##IDS_PROGMSG_IIS_REMOVESITE## + PROGMSG_IIS_REMOVEVROOT##IDS_PROGMSG_IIS_REMOVEVROOT## + PROGMSG_IIS_REMOVEVROOTS##IDS_PROGMSG_IIS_REMOVEVROOTS## + PROGMSG_IIS_REMOVEWEBSERVICEEXTENSION##IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSION## + PROGMSG_IIS_REMOVEWEBSERVICEEXTENSIONS##IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSIONS## + PROGMSG_IIS_REMOVEWEBSITES##IDS_PROGMSG_IIS_REMOVEWEBSITES## + PROGMSG_IIS_ROLLBACKAPPPOOLS##IDS_PROGMSG_IIS_ROLLBACKAPPPOOLS## + PROGMSG_IIS_ROLLBACKVROOTS##IDS_PROGMSG_IIS_ROLLBACKVROOTS## + PROGMSG_IIS_ROLLBACKWEBSERVICEEXTENSIONS##IDS_PROGMSG_IIS_ROLLBACKWEBSERVICEEXTENSIONS## + PROGRAMFILETOLAUNCHATEND[INSTALLDIR]DD-Record-Organiser.Primäre Ausgabe + ProductCode{8381AC86-8A9D-4B97-BD3E-2E1964482AAC} + ProductNameDD- Record-Organizer + ProductVersion1.2 + ProgressType0install + ProgressType1Installing + ProgressType2installed + ProgressType3installs + RebootYesNoYes + ReinstallFileVersiono + ReinstallModeTextomus + ReinstallRepairr + RestartManagerOptionCloseRestart + SERIALNUMBER + SERIALNUMVALSUCCESSRETVAL1 + SHOWLAUNCHPROGRAM-1 + SecureCustomPropertiesISFOUNDNEWERPRODUCTVERSION;USERNAME;COMPANYNAME;ISX_SERIALNUM;SUPPORTDIR;ISACTIONPROP1 + SelectedSetupType##IDS__DisplayName_Typical## + SetupTypeTypical + UpgradeCode{8381AC86-8A9D-4B97-BD3E-2E1964482AAC} + _IsMaintenanceChange + _IsSetupTypeMinTypical +
+ + + ComponentId + Qualifier + Component_ + AppData + Feature_ +
+ + + Property + Order + Value + X + Y + Width + Height + Text + Help + ISControlId +
AgreeToLicense1No01529115##IDS__AgreeToLicense_0## + AgreeToLicense2Yes0029115##IDS__AgreeToLicense_1## + ApplicationUsers1AllUsers1729014##IDS__IsRegisterUserDlg_Anyone## + ApplicationUsers2OnlyCurrentUser12329014##IDS__IsRegisterUserDlg_OnlyMe## + RestartManagerOption1CloseRestart6933114##IDS__IsMsiRMFilesInUse_CloseRestart## + RestartManagerOption2Reboot62133114##IDS__IsMsiRMFilesInUse_RebootAfter## + _IsMaintenance1Change0029014##IDS__IsMaintenanceDlg_Modify## + _IsMaintenance2Reinstall06029014##IDS__IsMaintenanceDlg_Repair## + _IsMaintenance3Remove012029014##IDS__IsMaintenanceDlg_Remove## + _IsSetupTypeMin1Typical1626414##IDS__IsSetupTypeMinDlg_Typical## +
+ + + Signature_ + Root + Key + Name + Type +
+ + + Registry + Root + Key + Name + Value + Component_ + ISAttributes +
+ + + FileKey + Component_ + FileName + DirProperty + InstallMode + + + +
FileKey1DD_Record_Organiser.Prim_re_Ausgabedigita_1_digital_data2FileKey2DD_Record_Organiser.Prim_re_Ausgabesetup2_BuiltDD_Record_Organiser.Prim_re_Ausgabesetup2
+ + + RemoveIniFile + FileName + DirProperty + Section + Key + Value + Action + Component_ +
+ + + RemoveRegistry + Root + Key + Name + Component_ +
+ + + ReserveKey + Component_ + ReserveFolder + ReserveLocal + ReserveSource +
+ + + SFPCatalog + Catalog + Dependency +
+ + + File_ + Cost +
+ + + ServiceControl + Name + Event + Arguments + Wait + Component_ +
+ + + ServiceInstall + Name + DisplayName + ServiceType + StartType + ErrorControl + LoadOrderGroup + Dependencies + StartName + Password + Arguments + Component_ + Description +
+ + + Shortcut + Directory_ + Name + Component_ + Target + Arguments + Description + Hotkey + Icon_ + IconIndex + ShowCmd + WkDir + DisplayResourceDLL + DisplayResourceId + DescriptionResourceDLL + DescriptionResourceId + ISComments + ISShortcutName + ISAttributes +
_Builtsetup##IDS_SHORTCUT_DISPLAY_NAME1##DD_Record_Organiser.Prim_re_AusgabeAlwaysInstall_Built_E0E597448A164BCAACDD897EE9F86D77.exe01 + _Built1DesktopFolder##IDS_SHORTCUT_DISPLAY_NAME1##DD_Record_Organiser.Prim_re_AusgabeAlwaysInstall_Built1_66CEEC93D2F841ECB878C73B8672A01F.exe01 +
+ + + Signature + FileName + MinVersion + MaxVersion + MinSize + MaxSize + MinDate + MaxDate + Languages +
+ + + TextStyle + FaceName + Size + Color + StyleBits + + + + + + + +
Arial8Arial8 + Arial9Arial9 + ArialBlue10Arial1016711680 + ArialBlueStrike10Arial10167116808CourierNew8Courier New8 + CourierNew9Courier New9 + ExpressDefaultTahoma8 + MSGothic9MS Gothic9 + MSSGreySerif8MS Sans Serif88421504 + MSSWhiteSerif8Tahoma816777215 + MSSansBold8Tahoma81MSSansSerif8MS Sans Serif8 + MSSansSerif9MS Sans Serif9 + Tahoma10Tahoma10 + Tahoma8Tahoma8 + Tahoma9Tahoma9 + TahomaBold10Tahoma101TahomaBold8Tahoma81Times8Times New Roman8 + Times9Times New Roman9 + TimesItalic12Times New Roman122TimesItalicBlue10Times New Roman10167116802TimesRed16Times New Roman16255 + VerdanaBold14Verdana131
+ + + LibID + Language + Component_ + Version + Description + Directory_ + Feature_ + Cost +
+ + + Key + Text + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
AbsentPath + GB##IDS_UITEXT_GB##KB##IDS_UITEXT_KB##MB##IDS_UITEXT_MB##MenuAbsent##IDS_UITEXT_FeatureNotAvailable##MenuAdvertise##IDS_UITEXT_FeatureInstalledWhenRequired2##MenuAllCD##IDS_UITEXT_FeatureInstalledCD##MenuAllLocal##IDS_UITEXT_FeatureInstalledLocal##MenuAllNetwork##IDS_UITEXT_FeatureInstalledNetwork##MenuCD##IDS_UITEXT_FeatureInstalledCD2##MenuLocal##IDS_UITEXT_FeatureInstalledLocal2##MenuNetwork##IDS_UITEXT_FeatureInstalledNetwork2##NewFolder##IDS_UITEXT_Folder##SelAbsentAbsent##IDS_UITEXT_GB##SelAbsentAdvertise##IDS_UITEXT_FeatureInstalledWhenRequired##SelAbsentCD##IDS_UITEXT_FeatureOnCD##SelAbsentLocal##IDS_UITEXT_FeatureLocal##SelAbsentNetwork##IDS_UITEXT_FeatureNetwork##SelAdvertiseAbsent##IDS_UITEXT_FeatureUnavailable##SelAdvertiseAdvertise##IDS_UITEXT_FeatureInstalledRequired##SelAdvertiseCD##IDS_UITEXT_FeatureOnCD2##SelAdvertiseLocal##IDS_UITEXT_FeatureLocal2##SelAdvertiseNetwork##IDS_UITEXT_FeatureNetwork2##SelCDAbsent##IDS_UITEXT_FeatureWillBeUninstalled##SelCDAdvertise##IDS_UITEXT_FeatureWasCD##SelCDCD##IDS_UITEXT_FeatureRunFromCD##SelCDLocal##IDS_UITEXT_FeatureWasCDLocal##SelChildCostNeg##IDS_UITEXT_FeatureFreeSpace##SelChildCostPos##IDS_UITEXT_FeatureRequiredSpace##SelCostPending##IDS_UITEXT_CompilingFeaturesCost##SelLocalAbsent##IDS_UITEXT_FeatureCompletelyRemoved##SelLocalAdvertise##IDS_UITEXT_FeatureRemovedUnlessRequired##SelLocalCD##IDS_UITEXT_FeatureRemovedCD##SelLocalLocal##IDS_UITEXT_FeatureRemainLocal##SelLocalNetwork##IDS_UITEXT_FeatureRemoveNetwork##SelNetworkAbsent##IDS_UITEXT_FeatureUninstallNoNetwork##SelNetworkAdvertise##IDS_UITEXT_FeatureWasOnNetworkInstalled##SelNetworkLocal##IDS_UITEXT_FeatureWasOnNetworkLocal##SelNetworkNetwork##IDS_UITEXT_FeatureContinueNetwork##SelParentCostNegNeg##IDS_UITEXT_FeatureSpaceFree##SelParentCostNegPos##IDS_UITEXT_FeatureSpaceFree2##SelParentCostPosNeg##IDS_UITEXT_FeatureSpaceFree3##SelParentCostPosPos##IDS_UITEXT_FeatureSpaceFree4##TimeRemaining##IDS_UITEXT_TimeRemaining##VolumeCostAvailable##IDS_UITEXT_Available##VolumeCostDifference##IDS_UITEXT_Differences##VolumeCostRequired##IDS_UITEXT_Required##VolumeCostSize##IDS_UITEXT_DiskSize##VolumeCostVolume##IDS_UITEXT_Volume##bytes##IDS_UITEXT_Bytes##
+ + + UpgradeCode + VersionMin + VersionMax + Language + Attributes + Remove + ActionProperty + ISDisplayName + + +
{00000000-0000-0000-0000-000000000000}***ALL_VERSIONS***2ISFOUNDNEWERPRODUCTVERSIONISPreventDowngrade{DA8858D1-8865-4523-9FEF-9BD8BA0C5E49}1.00.00001.00.00001033768ISACTIONPROP1NewUpgradeEntry1
+ + + Extension_ + Verb + Sequence + Command + Argument +
+ + + Table + Column + Nullable + MinValue + MaxValue + KeyTable + KeyColumn + Category + Set + Description + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
ActionTextActionNIdentifierName of action to be described.ActionTextDescriptionYTextLocalized description displayed in progress dialog and log when action is executing.ActionTextTemplateYTemplateOptional localized format template used to format action data records for display during action execution.AdminExecuteSequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdminExecuteSequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdminExecuteSequenceISAttributesYThis is used to store MM Custom Action TypesAdminExecuteSequenceISCommentsYTextAuthor’s comments on this Sequence.AdminExecuteSequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AdminUISequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdminUISequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdminUISequenceISAttributesYThis is used to store MM Custom Action TypesAdminUISequenceISCommentsYTextAuthor’s comments on this Sequence.AdminUISequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AdvtExecuteSequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdvtExecuteSequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdvtExecuteSequenceISAttributesYThis is used to store MM Custom Action TypesAdvtExecuteSequenceISCommentsYTextAuthor’s comments on this Sequence.AdvtExecuteSequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AdvtUISequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdvtUISequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdvtUISequenceISAttributesYThis is used to store MM Custom Action TypesAdvtUISequenceISCommentsYTextAuthor’s comments on this Sequence.AdvtUISequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AppIdActivateAtStorageY01 + AppIdAppIdNGuid + AppIdDllSurrogateYText + AppIdLocalServiceYText + AppIdRemoteServerNameYFormatted + AppIdRunAsInteractiveUserY01 + AppIdServiceParametersYText + AppSearchPropertyNIdentifierThe property associated with a SignatureAppSearchSignature_NISXmlLocator;Signature1IdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature, RegLocator, IniLocator, CompLocator and the DrLocator tables.BBControlAttributesY02147483647A 32-bit word that specifies the attribute flags to be applied to this control.BBControlBBControlNIdentifierName of the control. This name must be unique within a billboard, but can repeat on different billboard.BBControlBillboard_NBillboard1IdentifierExternal key to the Billboard table, name of the billboard.BBControlHeightN032767Height of the bounding rectangle of the control.BBControlTextYTextA string used to set the initial text contained within a control (if appropriate).BBControlTypeNIdentifierThe type of the control.BBControlWidthN032767Width of the bounding rectangle of the control.BBControlXN032767Horizontal coordinate of the upper left corner of the bounding rectangle of the control.BBControlYN032767Vertical coordinate of the upper left corner of the bounding rectangle of the control.BillboardActionYIdentifierThe name of an action. The billboard is displayed during the progress messages received from this action.BillboardBillboardNIdentifierName of the billboard.BillboardFeature_NFeature1IdentifierAn external key to the Feature Table. The billboard is shown only if this feature is being installed.BillboardOrderingY032767A positive integer. If there is more than one billboard corresponding to an action they will be shown in the order defined by this column.BinaryDataYBinaryBinary stream. The binary icon data in PE (.DLL or .EXE) or icon (.ICO) format.BinaryISBuildSourcePathYTextFull path to the ICO or EXE file.BinaryNameNIdentifierUnique key identifying the binary data.BindImageFile_NFile1IdentifierThe index into the File table. This must be an executable file.BindImagePathYPathsA list of ; delimited paths that represent the paths to be searched for the import DLLS. The list is usually a list of properties each enclosed within square brackets [] .CCPSearchSignature_NSignature1IdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature, RegLocator, IniLocator, CompLocator and the DrLocator tables.CheckBoxPropertyNIdentifierA named property to be tied to the item.CheckBoxValueYFormattedThe value string associated with the item.ClassAppId_YAppId1GuidOptional AppID containing DCOM information for associated application (string GUID).ClassArgumentYFormattedoptional argument for LocalServers.ClassAttributesY32767Class registration attributes.ClassCLSIDNGuidThe CLSID of an OLE factory.ClassComponent_NComponent1IdentifierRequired foreign key into the Component Table, specifying the component for which to return a path when called through LocateComponent.ClassContextNIdentifierThe numeric server context for this server. CLSCTX_xxxxClassDefInprocHandlerYText1;2;3Optional default inproc handler. Only optionally provided if Context=CLSCTX_LOCAL_SERVER. Typically "ole32.dll" or "mapi32.dll"ClassDescriptionYTextLocalized description for the Class.ClassFeature_NFeature1IdentifierRequired foreign key into the Feature Table, specifying the feature to validate or install in order for the CLSID factory to be operational.ClassFileTypeMaskYTextOptional string containing information for the HKCRthis CLSID) key. If multiple patterns exist, they must be delimited by a semicolon, and numeric subkeys will be generated: 0,1,2...ClassIconIndexY-3276732767Optional icon index.ClassIcon_YIcon1IdentifierOptional foreign key into the Icon Table, specifying the icon file associated with this CLSID. Will be written under the DefaultIcon key.ClassProgId_DefaultYProgId1TextOptional ProgId associated with this CLSID.ComboBoxOrderN132767A positive integer used to determine the ordering of the items within one list. The integers do not have to be consecutive.ComboBoxPropertyNIdentifierA named property to be tied to this item. All the items tied to the same property become part of the same combobox.ComboBoxTextYFormattedThe visible text to be assigned to the item. Optional. If this entry or the entire column is missing, the text is the same as the value.ComboBoxValueNFormattedThe value string associated with this item. Selecting the line will set the associated property to this value.CompLocatorComponentIdNGuidA string GUID unique to this component, version, and language.CompLocatorSignature_NSignature1IdentifierThe table key. The Signature_ represents a unique file signature and is also the foreign key in the Signature table.CompLocatorTypeY01A boolean value that determines if the registry value is a filename or a directory location.ComplusComponent_NComponent1IdentifierForeign key referencing Component that controls the ComPlus component.ComplusExpTypeY032767ComPlus component attributes.ComponentAttributesNRemote execution option, one of irsEnumComponentComponentNIdentifierPrimary key used to identify a particular component record.ComponentComponentIdYGuidA string GUID unique to this component, version, and language.ComponentConditionYConditionA conditional statement that will disable this component if the specified condition evaluates to the 'True' state. If a component is disabled, it will not be installed, regardless of the 'Action' state associated with the component.ComponentDirectory_NDirectory1IdentifierRequired key of a Directory table record. This is actually a property name whose value contains the actual path, set either by the AppSearch action or with the default setting obtained from the Directory table.ComponentISAttributesYThis is used to store Installshield custom properties of a component.ComponentISCommentsYTextUser Comments.ComponentISDotNetInstallerArgsCommitYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISDotNetInstallerArgsInstallYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISDotNetInstallerArgsRollbackYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISDotNetInstallerArgsUninstallYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISRegFileToMergeAtBuildYTextPath and File name of a .REG file to merge into the component at build time.ComponentISScanAtBuildFileYTextFile used by the Dot Net scanner to populate dependant assemblies' File_Application field.ComponentKeyPathYFile;ODBCDataSource;Registry1IdentifierEither the primary key into the File table, Registry table, or ODBCDataSource table. This extract path is stored when the component is installed, and is used to detect the presence of the component and to return the path to it.ConditionConditionYConditionExpression evaluated to determine if Level in the Feature table is to change.ConditionFeature_NFeature1IdentifierReference to a Feature entry in Feature table.ConditionLevelN032767New selection Level to set in Feature table if Condition evaluates to TRUE.ControlAttributesY02147483647A 32-bit word that specifies the attribute flags to be applied to this control.ControlBinary_YBinary1IdentifierExternal key to the Binary table.ControlControlNIdentifierName of the control. This name must be unique within a dialog, but can repeat on different dialogs.ControlControl_NextYControl2IdentifierThe name of an other control on the same dialog. This link defines the tab order of the controls. The links have to form one or more cycles!ControlDialog_NDialog1IdentifierExternal key to the Dialog table, name of the dialog.ControlHeightN032767Height of the bounding rectangle of the control.ControlHelpYTextThe help strings used with the button. The text is optional.ControlISBuildSourcePathYTextFull path to .rtf file for scrollable text controlControlISControlIdYA number used to represent the control ID of the Control, Used in Dialog exportControlISWindowStyleY02147483647A 32-bit word that specifies non-MSI window styles to be applied to this control.ControlPropertyYIdentifierThe name of a defined property to be linked to this control.ControlTextYFormattedA string used to set the initial text contained within a control (if appropriate).ControlTypeNIdentifierThe type of the control.ControlWidthN032767Width of the bounding rectangle of the control.ControlXN032767Horizontal coordinate of the upper left corner of the bounding rectangle of the control.ControlYN032767Vertical coordinate of the upper left corner of the bounding rectangle of the control.ControlConditionActionNDefault;Disable;Enable;Hide;ShowThe desired action to be taken on the specified control.ControlConditionConditionNConditionA standard conditional statement that specifies under which conditions the action should be triggered.ControlConditionControl_NControl2IdentifierA foreign key to the Control table, name of the control.ControlConditionDialog_NDialog1IdentifierA foreign key to the Dialog table, name of the dialog.ControlEventArgumentNFormattedA value to be used as a modifier when triggering a particular event.ControlEventConditionYConditionA standard conditional statement that specifies under which conditions an event should be triggered.ControlEventControl_NControl2IdentifierA foreign key to the Control table, name of the controlControlEventDialog_NDialog1IdentifierA foreign key to the Dialog table, name of the dialog.ControlEventEventNFormattedAn identifier that specifies the type of the event that should take place when the user interacts with control specified by the first two entries.ControlEventOrderingY02147483647An integer used to order several events tied to the same control. Can be left blank.CreateFolderComponent_NComponent1IdentifierForeign key into the Component table.CreateFolderDirectory_NDirectory1IdentifierPrimary key, could be foreign key into the Directory table.CustomActionActionNIdentifierPrimary key, name of action, normally appears in sequence table unless private use.CustomActionExtendedTypeY02147483647The numeric custom action type info flags.CustomActionISCommentsYTextAuthor’s comments for this custom action.CustomActionSourceYCustomSourceThe table reference of the source of the code.CustomActionTargetYISDLLWrapper;ISInstallScriptAction1FormattedExcecution parameter, depends on the type of custom actionCustomActionTypeN132767The numeric custom action type, consisting of source location, code type, entry, option flags.DialogAttributesY02147483647A 32-bit word that specifies the attribute flags to be applied to this dialog.DialogControl_CancelYControl2IdentifierDefines the cancel control. Hitting escape or clicking on the close icon on the dialog is equivalent to pushing this button.DialogControl_DefaultYControl2IdentifierDefines the default control. Hitting return is equivalent to pushing this button.DialogControl_FirstNControl2IdentifierDefines the control that has the focus when the dialog is created.DialogDialogNIdentifierName of the dialog.DialogHCenteringN0100Horizontal position of the dialog on a 0-100 scale. 0 means left end, 100 means right end of the screen, 50 center.DialogHeightN032767Height of the bounding rectangle of the dialog.DialogISCommentsYTextAuthor’s comments for this dialog.DialogISResourceIdYA Number the Specifies the Dialog ID to be used in Dialog ExportDialogISWindowStyleYA 32-bit word that specifies non-MSI window styles to be applied to this control. This is only used in Script Based Setups.DialogTextStyle_YIdentifierForeign Key into TextStyle table, only used in Script Based Projects.DialogTitleYFormattedA text string specifying the title to be displayed in the title bar of the dialog's window.DialogVCenteringN0100Vertical position of the dialog on a 0-100 scale. 0 means top end, 100 means bottom end of the screen, 50 center.DialogWidthN032767Width of the bounding rectangle of the dialog.DirectoryDefaultDirNTextThe default sub-path under parent's path.DirectoryDirectoryNIdentifierUnique identifier for directory entry, primary key. If a property by this name is defined, it contains the full path to the directory.DirectoryDirectory_ParentYDirectory1IdentifierReference to the entry in this table specifying the default parent directory. A record parented to itself or with a Null parent represents a root of the install tree.DirectoryISAttributesY0;1;2;3;4;5;6;7This is used to store Installshield custom properties of a directory. Currently the only one is Shortcut.DirectoryISDescriptionYTextDescription of folderDirectoryISFolderNameYTextThis is used in Pro projects because the pro identifier used in the tree wasn't necessarily unique.DrLocatorDepthY032767The depth below the path to which the Signature_ is recursively searched. If absent, the depth is assumed to be 0.DrLocatorParentYIdentifierThe parent file signature. It is also a foreign key in the Signature table. If null and the Path column does not expand to a full path, then all the fixed drives of the user system are searched using the Path.DrLocatorPathYAnyPathThe path on the user system. This is a either a subpath below the value of the Parent or a full path. The path may contain properties enclosed within [ ] that will be expanded.DrLocatorSignature_NSignature1IdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature table.DuplicateFileComponent_NComponent1IdentifierForeign key referencing Component that controls the duplicate file.DuplicateFileDestFolderYIdentifierName of a property whose value is assumed to resolve to the full pathname to a destination folder.DuplicateFileDestNameYTextFilename to be given to the duplicate file.DuplicateFileFileKeyNIdentifierPrimary key used to identify a particular file entryDuplicateFileFile_NFile1IdentifierForeign key referencing the source file to be duplicated.EnvironmentComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the installing of the environmental value.EnvironmentEnvironmentNIdentifierUnique identifier for the environmental variable settingEnvironmentNameNTextThe name of the environmental value.EnvironmentValueYFormattedThe value to set in the environmental settings.ErrorErrorN032767Integer error number, obtained from header file IError(...) macros.ErrorMessageYTemplateError formatting template, obtained from user ed. or localizers.EventMappingAttributeNIdentifierThe name of the control attribute, that is set when this event is received.EventMappingControl_NControl2IdentifierA foreign key to the Control table, name of the control.EventMappingDialog_NDialog1IdentifierA foreign key to the Dialog table, name of the Dialog.EventMappingEventNIdentifierAn identifier that specifies the type of the event that the control subscribes to.ExtensionComponent_NComponent1IdentifierRequired foreign key into the Component Table, specifying the component for which to return a path when called through LocateComponent.ExtensionExtensionNTextThe extension associated with the table row.ExtensionFeature_NFeature1IdentifierRequired foreign key into the Feature Table, specifying the feature to validate or install in order for the CLSID factory to be operational.ExtensionMIME_YMIME1TextOptional Context identifier, typically "type/format" associated with the extensionExtensionProgId_YProgId1TextOptional ProgId associated with this extension.FeatureAttributesN0;1;2;4;5;6;8;9;10;16;17;18;20;21;22;24;25;26;32;33;34;36;37;38;48;49;50;52;53;54Feature attributesFeatureDescriptionYTextLonger descriptive text describing a visible feature item.FeatureDirectory_YDirectory1UpperCaseThe name of the Directory that can be configured by the UI. A non-null value will enable the browse button.FeatureDisplayY032767Numeric sort order, used to force a specific display ordering.FeatureFeatureNIdentifierPrimary key used to identify a particular feature record.FeatureFeature_ParentYFeature1IdentifierOptional key of a parent record in the same table. If the parent is not selected, then the record will not be installed. Null indicates a root item.FeatureISCommentsYCommentsFeatureISFeatureCabNameYName of CAB used when compressing CABs by Feature. Used to override build generated name for CAB file.FeatureISProFeatureNameYTextThe name of the feature used by pro projects. This doesn't have to be unique.FeatureISReleaseFlagsYRelease Flags that specify whether this feature will be built in a particular release.FeatureLevelN032767The install level at which record will be initially selected. An install level of 0 will disable an item and prevent its display.FeatureTitleYTextShort text identifying a visible feature item.FeatureComponentsComponent_NComponent1IdentifierForeign key into Component table.FeatureComponentsFeature_NFeature1IdentifierForeign key into Feature table.FileAttributesY032767Integer containing bit flags representing file attributes (with the decimal value of each bit position in parentheses)FileComponent_NComponent1IdentifierForeign key referencing Component that controls the file.FileFileNIdentifierPrimary key, non-localized token, must match identifier in cabinet. For uncompressed files, this field is ignored.FileFileNameNTextFile name used for installation. This may contain a "short name|long name" pair. It may be just a long name, hence it cannot be of the Filename data type.FileFileSizeN02147483647Size of file in bytes (long integer).FileISAttributesY02147483647This field contains the following attributes: UseSystemSettings(0x1)FileISBuildSourcePathYTextFull path, the category is of Text instead of Path because of potential use of path variables.FileISComponentSubFolder_YIdentifierForeign key referencing component subfolder containing this file. Only for Pro.FileLanguageYLanguageList of decimal language Ids, comma-separated if more than one.FileSequenceN132767Sequence with respect to the media images; order must track cabinet order.FileVersionYFile1VersionVersion string for versioned files; Blank for unversioned files.FileSFPCatalogFile_NFile1IdentifierFile associated with the catalogFileSFPCatalogSFPCatalog_NSFPCatalog1TextCatalog associated with the fileFontFile_NFile1IdentifierPrimary key, foreign key into File table referencing font file.FontFontTitleYTextFont name.ISAssistantTagDataY + ISAssistantTagTagN + ISBillBoardColorY + ISBillBoardDisplayNameY + ISBillBoardDurationN032767 + ISBillBoardEffectN032767 + ISBillBoardFontY + ISBillBoardISBillboardN + ISBillBoardOriginN032767 + ISBillBoardSequenceN-3276732767 + ISBillBoardStyleY + ISBillBoardTargetN032767 + ISBillBoardTitleY + ISBillBoardXN032767 + ISBillBoardYN032767 + ISChainPackageDisplayNameYTextDisplay name for the chained package. Used only in the IDE.ISChainPackageISReleaseFlagsY + ISChainPackageInstallConditionYCondition + ISChainPackageInstallPropertiesYFormatted + ISChainPackageOptionsNInteger + ISChainPackageOrderNInteger + ISChainPackagePackageNIdentifier + ISChainPackageProductCodeY + ISChainPackageRemoveConditionYCondition + ISChainPackageRemovePropertiesYFormatted + ISChainPackageSourcePathY + ISChainPackageDataDataYBinaryBinary stream. The binary icon data in PE (.DLL or .EXE) or icon (.ICO) format.ISChainPackageDataFileNIdentifier + ISChainPackageDataFilePathNFormatted + ISChainPackageDataISBuildSourcePathYTextFull path to the ICO or EXE file.ISChainPackageDataOptionsY + ISChainPackageDataPackage_NISChainPackage1Identifier + ISClrWrapAction_NCustomAction1IdentifierForeign key into CustomAction tableISClrWrapNameNTextProperty associated with this ActionISClrWrapValueYTextValue associated with this PropertyISComCatalogAttributeISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComCatalogAttributeItemNameNTextThe named attribute for a catalog object.ISComCatalogAttributeItemValueYTextA value associated with the attribute defined in the ItemName column.ISComCatalogCollectionCollectionNameNTextA catalog collection name.ISComCatalogCollectionISComCatalogCollectionNIdentifierA unique key for the ISComCatalogCollection table.ISComCatalogCollectionISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComCatalogCollectionObjectsISComCatalogCollection_NISComCatalogCollection1IdentifierA unique key for the ISComCatalogCollection table.ISComCatalogCollectionObjectsISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComCatalogObjectDisplayNameNThe display name of a catalog object.ISComCatalogObjectISComCatalogObjectNIdentifierA unique key for the ISComCatalogObject table.ISComPlusApplicationComponent_NComponent1IdentifierForeign key into the Component table that a COM+ application belongs to.ISComPlusApplicationComputerNameYTextComputer name that a COM+ application belongs to.ISComPlusApplicationDepFilesYTextList of the dependent files.ISComPlusApplicationISAttributesYInstallShield custom attributes associated with a COM+ application.ISComPlusApplicationISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComPlusApplicationDLLAlterDLLYTextAlternate filename of the COM+ application component. Will be used for a .NET serviced component.ISComPlusApplicationDLLCLSIDNTextCLSID of the COM+ application component.ISComPlusApplicationDLLDLLYTextFilename of the COM+ application component.ISComPlusApplicationDLLISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComPlusApplicationDLLISComPlusApplicationDLLNIdentifierA unique key for the ISComPlusApplicationDLL table.ISComPlusApplicationDLLISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table.ISComPlusApplicationDLLProgIdYTextProgId of the COM+ application component.ISComPlusProxyComponent_YComponent1IdentifierForeign key into the Component table that a COM+ application proxy belongs to.ISComPlusProxyDepFilesYTextList of the dependent files.ISComPlusProxyISAttributesYInstallShield custom attributes associated with a COM+ application proxy.ISComPlusProxyISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table that a COM+ application proxy belongs to.ISComPlusProxyISComPlusProxyNIdentifierA unique key for the ISComPlusProxy table.ISComPlusProxyDepFileFile_NFile1IdentifierForeign key into the File table.ISComPlusProxyDepFileISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table.ISComPlusProxyDepFileISPathYTextFull path of the dependent file.ISComPlusProxyFileFile_NFile1IdentifierForeign key into the File table.ISComPlusProxyFileISComPlusApplicationDLL_NISComPlusApplicationDLL1IdentifierForeign key into the ISComPlusApplicationDLL table.ISComPlusServerDepFileFile_NFile1IdentifierForeign key into the File table.ISComPlusServerDepFileISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table.ISComPlusServerDepFileISPathYTextFull path of the dependent file.ISComPlusServerFileFile_NFile1IdentifierForeign key into the File table.ISComPlusServerFileISComPlusApplicationDLL_NISComPlusApplicationDLL1IdentifierForeign key into the ISComPlusApplicationDLL table.ISComponentExtendedComponent_NComponent1IdentifierPrimary key used to identify a particular component record.ISComponentExtendedFTPLocationYTextFTP LocationISComponentExtendedFilterPropertyNIdentifierProperty to set if you want to filter a componentISComponentExtendedHTTPLocationYTextHTTP LocationISComponentExtendedLanguageYTextLanguageISComponentExtendedMiscellaneousYTextMiscellaneousISComponentExtendedOSYbitwise addition of OSsISComponentExtendedPlatformsYbitwise addition of Platforms.ISCustomActionReferenceAction_NCustomAction1IdentifierForeign key into theICustomAction table.ISCustomActionReferenceDescriptionYTextContents of the file speciifed in ISCAReferenceFilePath. This column is only used by MSI.ISCustomActionReferenceFileTypeYTextfile type of the file specified ISCAReferenceFilePath. This column is only used by MSI.ISCustomActionReferenceISCAReferenceFilePathYTextFull path, the category is of Text instead of Path because of potential use of path variables. This column only exists in ISM.ISDIMDependencyISDIMReference_NIdentifierThis is the primary key to the ISDIMDependency tableISDIMDependencyRequiredBuildVersionYTextthe build version identifying the required DIMISDIMDependencyRequiredMajorVersionYTextthe major version identifying the required DIMISDIMDependencyRequiredMinorVersionYTextthe minor version identifying the required DIMISDIMDependencyRequiredRevisionVersionYTextthe revision version identifying the required DIMISDIMDependencyRequiredUUIDNTextthe UUID identifying the required DIMISDIMReferenceISBuildSourcePathYTextFull path, the category is of Text instead of Path because of potential use of path variables.ISDIMReferenceISDIMReferenceNISDIMDependency1IdentifierThis is the primary key to the ISDIMReference tableISDIMReferenceDependenciesISDIMDependency_NISDIMDependency1IdentifierForeign key into ISDIMDependency table.ISDIMReferenceDependenciesISDIMReference_ParentNISDIMReference1IdentifierForeign key into ISDIMReference table.ISDIMVariableISDIMReference_NISDIMReference1IdentifierForeign key into ISDIMReference table.ISDIMVariableISDIMVariableNIdentifierThis is the primary key to the ISDIMVariable tableISDIMVariableNameNTextName of a variable defined in the .dim fileISDIMVariableNewValueYTextNew value that you want to override withISDIMVariableTypeYType of the variable. 0: Build Variable, 1: Runtime VariableISDLLWrapperEntryPointNTextThis is a foreign key to the target column in the CustomAction tableISDLLWrapperSourceNFormattedThis is column points to the source file for the DLLWrapper Custom ActionISDLLWrapperTargetNTextThe function signatureISDLLWrapperTypeYTypeISDRMFileFile_YFile1IdentifierForeign key into File table. A null value will cause a build warning.ISDRMFileISDRMFileNIdentifierUnique identifier for this item.ISDRMFileISDRMLicense_YISDRMLicense1IdentifierForeign key referencing License that packages this file.ISDRMFileShellNTextText indicating the activation shell used at runtime.ISDRMFileAttributeISDRMFile_NISDRMFile1IdentifierPrimary foreign key into ISDRMFile table.ISDRMFileAttributePropertyNTextThe name of the attributeISDRMFileAttributeValueYTextThe value of the attributeISDRMLicenseAttributesYNumberBitwise field used to specify binary attributes of this license.ISDRMLicenseDescriptionYTextAn internal description of this license.ISDRMLicenseISDRMLicenseNIdentifierUnique key identifying the license record.ISDRMLicenseLicenseNumberYTextThe license number.ISDRMLicenseProjectVersionYTextThe version of the project that this license is tied to.ISDRMLicenseRequestCodeYTextThe request code.ISDRMLicenseResponseCodeYTextThe response code.ISDependencyExcludeY + ISDependencyISDependencyY + ISDisk1FileDiskY-1;0;1Used to differentiate between disk1(1), last disk(-1), and other(0).ISDisk1FileISBuildSourcePathNTextFull path of file to be copied to Disk1 folderISDisk1FileISDisk1FileNIdentifierPrimary key for ISDisk1File tableISDynamicFileComponent_NComponent1IdentifierForeign key referencing Component that controls the file.ISDynamicFileExcludeFilesYTextWildcards for excluded files.ISDynamicFileISAttributesY0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15This is used to store Installshield custom properties of a dynamic filet. Currently the only one is SelfRegister.ISDynamicFileIncludeFilesYTextWildcards for included files.ISDynamicFileIncludeFlagsYInclude flags.ISDynamicFileSourceFolderNTextFull path, the category is of Text instead of Path because of potential use of path variables.ISFeatureDIMReferencesFeature_NFeature1IdentifierForeign key into Feature table.ISFeatureDIMReferencesISDIMReference_NISDIMReference1IdentifierForeign key into ISDIMReference table.ISFeatureMergeModuleExcludesFeature_NIdentifierForeign key into Feature table.ISFeatureMergeModuleExcludesLanguageNForeign key into ISMergeModule table.ISFeatureMergeModuleExcludesModuleIDNIdentifierForeign key into ISMergeModule table.ISFeatureMergeModulesFeature_NFeature1IdentifierForeign key into Feature table.ISFeatureMergeModulesISMergeModule_NISMergeModule1TextForeign key into ISMergeModule table.ISFeatureMergeModulesLanguage_NISMergeModule2Foreign key into ISMergeModule table.ISFeatureSetupPrerequisitesFeature_NFeature1IdentifierForeign key into Feature table.ISFeatureSetupPrerequisitesISSetupPrerequisites_NISSetupPrerequisites1 + ISFileManifestsFile_NIdentifierForeign key into File table.ISFileManifestsManifest_NIdentifierForeign key into File table.ISIISItemComponent_YComponent1IdentifierForeign key to Component table.ISIISItemDisplayNameYTextLocalizable Item Name.ISIISItemISIISItemNIdentifierPrimary key for each item.ISIISItemISIISItem_ParentYISIISItem1IdentifierThis record's parent record.ISIISItemTypeNIIS resource type.ISIISPropertyFriendlyNameYTextIIS property name.ISIISPropertyISAttributesYFlags.ISIISPropertyISIISItem_NISIISItem1IdentifierPrimary key for table, foreign key into ISIISItem.ISIISPropertyISIISPropertyNIdentifierPrimary key for table.ISIISPropertyMetaDataAttributesYIIS property attributes.ISIISPropertyMetaDataPropYIIS property ID.ISIISPropertyMetaDataTypeYIIS property data type.ISIISPropertyMetaDataUserTypeYIIS property user data type.ISIISPropertyMetaDataValueYTextIIS property value.ISIISPropertyOrderYOrder sequencing.ISIISPropertySchemaYTextIIS7 schema information.ISInstallScriptActionEntryPointNTextThis is a foreign key to the target column in the CustomAction tableISInstallScriptActionSourceNFormattedThis is column points to the source file for the DLLWrapper Custom ActionISInstallScriptActionTargetYTextThe function signatureISInstallScriptActionTypeYTypeISLanguageISLanguageNTextThis is the language ID.ISLanguageIncludedY0;1Specify whether this language should be included.ISLinkerLibraryISLinkerLibraryNIdentifierUnique identifier for the link library.ISLinkerLibraryLibraryNTextFull path of the object library (.obl file).ISLinkerLibraryOrderNOrder of the LibraryISLocalControlAttributesYA 32-bit word that specifies the attribute flags to be applied to this control.ISLocalControlBinary_YBinary1IdentifierExternal key to the Binary table.ISLocalControlControl_NControl2IdentifierName of the control. This name must be unique within a dialog, but can repeat on different dialogs.ISLocalControlDialog_NDialog1IdentifierExternal key to the Dialog table, name of the dialog.ISLocalControlHeightYHeight of the bounding rectangle of the control.ISLocalControlISBuildSourcePathYTextFull path to .rtf file for scrollable text controlISLocalControlISLanguage_NISLanguage1TextThis is a foreign key to the ISLanguage table.ISLocalControlWidthYWidth of the bounding rectangle of the control.ISLocalControlXYHorizontal coordinate of the upper left corner of the bounding rectangle of the control.ISLocalControlYYVertical coordinate of the upper left corner of the bounding rectangle of the control.ISLocalDialogAttributesYA 32-bit word that specifies the attribute flags to be applied to this dialog.ISLocalDialogDialog_YDialog1IdentifierName of the dialog.ISLocalDialogHeightN032767Height of the bounding rectangle of the dialog.ISLocalDialogISLanguage_YISLanguage1TextThis is a foreign key to the ISLanguage table.ISLocalDialogTextStyle_YIdentifierForeign Key into TextStyle table, only used in Script Based Projects.ISLocalDialogWidthN032767Width of the bounding rectangle of the dialog.ISLocalRadioButtonHeightN032767The height of the button.ISLocalRadioButtonISLanguage_NISLanguage1TextThis is a foreign key to the ISLanguage table.ISLocalRadioButtonOrderN132767RadioButton2A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.ISLocalRadioButtonPropertyNRadioButton1IdentifierA named property to be tied to this radio button. All the buttons tied to the same property become part of the same group.ISLocalRadioButtonWidthN032767The width of the button.ISLocalRadioButtonXN032767The horizontal coordinate of the upper left corner of the bounding rectangle of the radio button.ISLocalRadioButtonYN032767The vertical coordinate of the upper left corner of the bounding rectangle of the radio button.ISLockPermissionsAttributesY-21474836472147483647Permissions attributes mask, 1==Deny access; 2==No inherit, 4==Ignore apply failures, 8==Target object is 64-bitISLockPermissionsDomainYTextDomain name for user whose permissions are being set.ISLockPermissionsLockObjectNIdentifierForeign key into CreateFolder, Registry, or File tableISLockPermissionsPermissionY-21474836472147483647Permission Access mask.ISLockPermissionsTableNIdentifierCreateFolder;File;RegistryReference to another table nameISLockPermissionsUserNTextUser for permissions to be set. This can be a property, hardcoded named, or SID stringISLogicalDiskCabinetYCabinetIf some or all of the files stored on the media are compressed in a cabinet, the name of that cabinet.ISLogicalDiskDiskIdN132767Primary key, integer to determine sort order for table.ISLogicalDiskDiskPromptYTextDisk name: the visible text actually printed on the disk. This will be used to prompt the user when this disk needs to be inserted.ISLogicalDiskISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISLogicalDiskISRelease_NISRelease1TextForeign key into the ISRelease table.ISLogicalDiskLastSequenceN032767File sequence number for the last file for this media.ISLogicalDiskSourceYPropertyThe property defining the location of the cabinet file.ISLogicalDiskVolumeLabelYTextThe label attributed to the volume.ISLogicalDiskFeaturesFeature_YFeature1IdentifierRequired foreign key into the Feature Table,ISLogicalDiskFeaturesISAttributesYThis is used to store Installshield custom properties, like Compressed, etc.ISLogicalDiskFeaturesISLogicalDisk_N132767ISLogicalDisk1IdentifierForeign key into the ISLogicalDisk table.ISLogicalDiskFeaturesISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISLogicalDiskFeaturesISRelease_NISRelease1TextForeign key into the ISRelease table.ISLogicalDiskFeaturesSequenceN032767File sequence number for the file for this media.ISMergeModuleDestinationYTextDestination.ISMergeModuleISAttributesYThis is used to store Installshield custom properties of a merge module.ISMergeModuleISMergeModuleNTextThe GUID identifying the merge module.ISMergeModuleLanguageNDefault decimal language of module.ISMergeModuleNameNTextName of the merge module.ISMergeModuleCfgValuesAttributesYAttributes (from configurable merge module)ISMergeModuleCfgValuesContextDataYTextContextData (from configurable merge module)ISMergeModuleCfgValuesDefaultValueYTextDefaultValue (from configurable merge module)ISMergeModuleCfgValuesDescriptionYTextDescription (from configurable merge module)ISMergeModuleCfgValuesDisplayNameYTextDisplayName (from configurable merge module)ISMergeModuleCfgValuesFormatNFormat (from configurable merge module)ISMergeModuleCfgValuesHelpKeywordYTextHelpKeyword (from configurable merge module)ISMergeModuleCfgValuesHelpLocationYTextHelpLocation (from configurable merge module)ISMergeModuleCfgValuesISMergeModule_NISMergeModule1TextThe module signature, a foreign key into the ISMergeModule tableISMergeModuleCfgValuesLanguage_NISMergeModule2Default decimal language of module.ISMergeModuleCfgValuesModuleConfiguration_NIdentifierIdentifier, foreign key into ModuleConfiguration table (ModuleConfiguration.Name)ISMergeModuleCfgValuesTypeYTextType (from configurable merge module)ISMergeModuleCfgValuesValueYTextValue for this item.ISObjectLanguageNText + ISObjectObjectNameNText + ISObjectPropertyIncludeInBuildYBoolean, 0 for false non 0 for trueISObjectPropertyObjectNameYISObject1Text + ISObjectPropertyPropertyYText + ISObjectPropertyValueYText + ISPatchConfigImagePatchConfiguration_YISPatchConfiguration1TextForeign key to the ISPatchConfigurationTableISPatchConfigImageUpgradedImage_NISUpgradedImage1TextForeign key to the ISUpgradedImageTableISPatchConfigurationAttributesYPatchConfiguration attributesISPatchConfigurationCanPCDifferNThis is determine whether Product Codes may differISPatchConfigurationCanPVDifferNThis is determine whether the Major Product Version may differISPatchConfigurationEnablePatchCacheNThis is determine whether to Enable Patch cacheingISPatchConfigurationFlagsNPatching API FlagsISPatchConfigurationIncludeWholeFilesNThis is determine whether to build a binary level patchISPatchConfigurationLeaveDecompressedNThis is determine whether to leave intermediate files devcompressed when finishedISPatchConfigurationMinMsiVersionNMinimum Required MSI VersionISPatchConfigurationNameNTextName of the Patch ConfigurationISPatchConfigurationOptimizeForSizeNThis is determine whether to Optimize for large filesISPatchConfigurationOutputPathNTextBuild LocationISPatchConfigurationPatchCacheDirYTextDirectory to recieve the Patch Cache informationISPatchConfigurationPatchGuidNTextUnique Patch IdentifierISPatchConfigurationPatchGuidsToReplaceYTextList Of Patch Guids to unregisterISPatchConfigurationTargetProductCodesNTextList Of target Product CodesISPatchConfigurationPropertyISPatchConfiguration_YISPatchConfiguration1TextName of the Patch ConfigurationISPatchConfigurationPropertyPropertyYTextName of the Patch Configuration Property valueISPatchConfigurationPropertyValueYTextValue of the Patch Configuration PropertyISPatchExternalFileFileKeyNTextFilekeyISPatchExternalFileFilePathNTextFilepathISPatchExternalFileISUpgradedImage_NISUpgradedImage1TextForeign key to the isupgraded image tableISPatchExternalFileNameNTextUniqu name to identify this record.ISPatchWholeFileComponentYTextComponent containing file keyISPatchWholeFileFileKeyNTextKey of file to be included as wholeISPatchWholeFileUpgradedImageNISUpgradedImage1TextForeign key to ISUpgradedImage TableISPathVariableISPathVariableNThe name of the path variable.ISPathVariableTestValueYTextThe test value of the path variable.ISPathVariableTypeN1;2;4;8The type of the path variable.ISPathVariableValueYTextThe value of the path variable.ISPowerShellWrapAction_NCustomAction1IdentifierForeign key into CustomAction tableISPowerShellWrapNameNTextProperty associated with this ActionISPowerShellWrapValueYTextValue associated with this PropertyISProductConfigurationGeneratePackageCodeYNumber0;1Indicates whether or not to generate a package code.ISProductConfigurationISProductConfigurationNTextThe name of the product configuration.ISProductConfigurationProductConfigurationFlagsYTextProduct configuration (release) flags.ISProductConfigurationInstanceISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISProductConfigurationInstanceInstanceIdN032767Identifies the instance number of this instance. This value is stored in the Property InstanceId.ISProductConfigurationInstancePropertyNTextProduct Congiuration property nameISProductConfigurationInstanceValueNTextString value for property.ISProductConfigurationPropertyISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISProductConfigurationPropertyPropertyNProperty1TextProduct Congiuration property nameISProductConfigurationPropertyValueYTextString value for property. Never null or empty.ISReleaseAttributesNBitfield holding boolean values for various release attributes.ISReleaseBuildLocationNTextBuild location.ISReleaseCDBrowserYTextDemoshield browser location.ISReleaseDefaultLanguageNTextDefault language for setup.ISReleaseDigitalPVKYTextDigital signing private key (.pvk) file.ISReleaseDigitalSPCYTextDigital signing Software Publisher Certificate (.spc) file.ISReleaseDigitalURLYTextDigital signing URL.ISReleaseDiskClusterSizeNDisk cluster size.ISReleaseDiskSizeNTextDisk size.ISReleaseDiskSizeUnitN0;1;2Disk size units (KB or MB).ISReleaseDiskSpanningN0;1;2Disk spanning (automatic, enforce size, etc.).ISReleaseDotNetBuildConfigurationYTextBuild Configuration for .NET solutions.ISReleaseISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISReleaseISReleaseNTextThe name of the release.ISReleaseISSetupPrerequisiteLocationY0;1;2;3Location the Setup Prerequisites will be placed inISReleaseMediaLocationNTextMedia location on disk.ISReleaseMsiCommandLineYTextCommand line passed to the msi package from setup.exeISReleaseMsiSourceTypeN-14MSI media source type.ISReleasePackageNameNTextPackage name.ISReleasePasswordYTextPassword.ISReleasePlatformsNTextPlatforms supported (Intel, Alpha, etc.).ISReleaseReleaseFlagsYTextRelease flags.ISReleaseReleaseTypeN1;2;4Release type (single, uncompressed, etc.).ISReleaseSupportedLanguagesDataYTextLanguages supported (for component filtering).ISReleaseSupportedLanguagesUINTextUI languages supported.ISReleaseSupportedOSsNIndicate which operating systmes are supported.ISReleaseSynchMsiYTextMSI file to synchronize file keys and other data with (patch-like functionality).ISReleaseTypeN06Release type (CDROM, Network, etc.).ISReleaseURLLocationYTextMedia location via URL.ISReleaseVersionCopyrightYTextVersion stamp information.ISReleaseASPublishInfoISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISReleaseASPublishInfoISRelease_NISRelease1TextForeign key into the ISRelease table.ISReleaseASPublishInfoPropertyYTextAS Repository property nameISReleaseASPublishInfoValueYTextAS Repository property valueISReleaseExtendedAttributesYBitfield holding boolean values for various release attributes.ISReleaseExtendedCertPasswordYTextDigital certificate passwordISReleaseExtendedDigitalCertificateDBaseNSYTextPath to cerificate database for Netscape digital signatureISReleaseExtendedDigitalCertificateIdNSYTextPath to cerificate ID for Netscape digital signatureISReleaseExtendedDigitalCertificatePasswordNSYTextPassword for Netscape digital signatureISReleaseExtendedDotNetBaseLanguageYTextBase Languge of .NET RedistISReleaseExtendedDotNetFxCmdLineYTextCommand Line to pass to DotNetFx.exeISReleaseExtendedDotNetLangPackCmdLineYTextCommand Line to pass to LangPack.exeISReleaseExtendedDotNetLangaugePacksYText.NET Redist language packs to includeISReleaseExtendedDotNetRedistLocationY03Location of .NET framework Redist (Web, SetupExe, Source, None)ISReleaseExtendedDotNetRedistURLYTextURL to .NET framework RedistISReleaseExtendedDotNetVersionY02Version of .NET framework Redist (1.0, 1.1)ISReleaseExtendedEngineLocationY02Location of msi engine (Web, SetupExe...)ISReleaseExtendedISEngineLocationY02Location of ISScript engine (Web, SetupExe...)ISReleaseExtendedISEngineURLYTextURL to InstallShield scripting engineISReleaseExtendedISProductConfiguration_NTextForeign key into the ISProductConfiguration table.ISReleaseExtendedISRelease_NTextThe name of the release.ISReleaseExtendedJSharpCmdLineYTextCommand Line to pass to vjredist.exeISReleaseExtendedJSharpRedistLocationY03Location of J# framework Redist (Web, SetupExe, Source, None)ISReleaseExtendedMsiEngineVersionYBitfield holding selected MSI engine versions included in this releaseISReleaseExtendedOneClickCabNameYTextFile name of generated cabfileISReleaseExtendedOneClickHtmlNameYTextFile name of generated html pageISReleaseExtendedOneClickTargetBrowserY02Target browser (IE, Netscape, both...)ISReleaseExtendedWebCabSizeY02147483647Size of the cabfileISReleaseExtendedWebLocalCachePathYTextDirectory to cache downloaded packageISReleaseExtendedWebTypeY02Type of web install (One Executable, Downloader...)ISReleaseExtendedWebURLYTextURL to .msi packageISReleaseExtendedWin9xMsiUrlYTextURL to Ansi MSI engineISReleaseExtendedWinMsi30UrlYTextURL to MSI 3.0 engineISReleaseExtendedWinNTMsiUrlYTextURL to Unicode MSI engineISReleasePropertyISProductConfiguration_NTextForeign key into ISProductConfiguration table.ISReleasePropertyISRelease_NTextForeign key into ISRelease table.ISReleasePropertyNameNProperty nameISReleasePropertyValueNProperty valueISReleasePublishInfoDescriptionYTextRepository item descriptionISReleasePublishInfoDisplayNameYTextRepository item display nameISReleasePublishInfoISAttributesYBitfield holding various attributesISReleasePublishInfoISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISReleasePublishInfoISRelease_NISRelease1TextThe name of the release.ISReleasePublishInfoPublisherYTextRepository item publisherISReleasePublishInfoRepositoryYTextRepository which to publish the built merge moduleISSQLConnectionAttributesN + ISSQLConnectionAuthenticationN + ISSQLConnectionBatchSeparatorY + ISSQLConnectionCmdTimeoutY + ISSQLConnectionCommentsY + ISSQLConnectionDatabaseN + ISSQLConnectionISSQLConnectionNIdentifierPrimary key used to identify a particular ISSQLConnection record.ISSQLConnectionOrderN + ISSQLConnectionPasswordN + ISSQLConnectionScriptVersion_ColumnY + ISSQLConnectionScriptVersion_TableY + ISSQLConnectionServerN + ISSQLConnectionUserNameN + ISSQLConnectionDBServerISSQLConnectionDBServerNIdentifierPrimary key used to identify a particular ISSQLConnectionDBServer record.ISSQLConnectionDBServerISSQLConnection_NISSQLConnection1IdentifierForeign key into ISSQLConnection table.ISSQLConnectionDBServerISSQLDBMetaData_NISSQLDBMetaData1IdentifierForeign key into ISSQLDBMetaData table.ISSQLConnectionDBServerOrderN + ISSQLConnectionScriptISSQLConnection_NISSQLConnection1IdentifierForeign key into ISSQLConnection table.ISSQLConnectionScriptISSQLScriptFile_NISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile table.ISSQLConnectionScriptOrderN + ISSQLDBMetaDataAdoCxnAdditionalY + ISSQLDBMetaDataAdoCxnDatabaseY + ISSQLDBMetaDataAdoCxnDriverY + ISSQLDBMetaDataAdoCxnNetLibraryY + ISSQLDBMetaDataAdoCxnPasswordY + ISSQLDBMetaDataAdoCxnPortY + ISSQLDBMetaDataAdoCxnServerY + ISSQLDBMetaDataAdoCxnUserIDY + ISSQLDBMetaDataAdoCxnWindowsSecurityY + ISSQLDBMetaDataAdoDriverNameY + ISSQLDBMetaDataCreateDbCmdY + ISSQLDBMetaDataCreateTableCmdY + ISSQLDBMetaDataDisplayNameY + ISSQLDBMetaDataDsnODBCNameY + ISSQLDBMetaDataISAttributesY + ISSQLDBMetaDataISSQLDBMetaDataNIdentifierPrimary key used to identify a particular ISSQLDBMetaData record.ISSQLDBMetaDataInsertRecordCmdY + ISSQLDBMetaDataLocalInstanceNamesY + ISSQLDBMetaDataQueryDatabasesCmdY + ISSQLDBMetaDataScriptVersion_ColumnY + ISSQLDBMetaDataScriptVersion_ColumnTypeY + ISSQLDBMetaDataScriptVersion_TableY + ISSQLDBMetaDataSelectTableCmdY + ISSQLDBMetaDataSwitchDbCmdY + ISSQLDBMetaDataTestDatabaseCmdY + ISSQLDBMetaDataTestTableCmdY + ISSQLDBMetaDataTestTableCmd2Y + ISSQLDBMetaDataVersionBeginTokenY + ISSQLDBMetaDataVersionEndTokenY + ISSQLDBMetaDataVersionInfoCmdY + ISSQLDBMetaDataWinAuthentUserIdY + ISSQLRequirementAttributesN + ISSQLRequirementISSQLConnectionDBServer_YISSQLConnectionDBServer1IdentifierForeign key into ISSQLConnectionDBServer table.ISSQLRequirementISSQLConnection_NISSQLConnection1IdentifierForeign key into ISSQLConnection table.ISSQLRequirementISSQLRequirementNIdentifierPrimary key used to identify a particular ISSQLRequirement record.ISSQLRequirementMajorVersionY + ISSQLRequirementServicePackLevelY + ISSQLScriptErrorAttributesN + ISSQLScriptErrorErrHandlingN + ISSQLScriptErrorErrNumberN + ISSQLScriptErrorISSQLScriptFile_YISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile tableISSQLScriptErrorMessageYTextCustom end-user message. Reserved for future use.ISSQLScriptFileAttributesN + ISSQLScriptFileCommentsYTextCommentsISSQLScriptFileComponent_NComponent1IdentifierForeign key referencing Component that controls the SQL script.ISSQLScriptFileConditionYConditionA conditional statement that will disable this script if the specified condition evaluates to the 'False' state. If a script is disabled, it will not be installed regardless of the 'Action' state associated with the component.ISSQLScriptFileDisplayNameYTextDisplay name for the SQL script file.ISSQLScriptFileErrorHandlingN + ISSQLScriptFileISBuildSourcePathYTextFull path, the category is of Text instead of Path because of potential use of path variables.ISSQLScriptFileISSQLScriptFileNIdentifierThis is the primary key to the ISSQLScriptFile tableISSQLScriptFileInstallTextYTextFeedback end-user text at installISSQLScriptFileSchedulingN + ISSQLScriptFileUninstallTextYTextFeedback end-user text at UninstallISSQLScriptFileVersionYTextSchema Version (#####.#####.#####.#####)ISSQLScriptImportAttributesN + ISSQLScriptImportAuthenticationN + ISSQLScriptImportDatabaseY + ISSQLScriptImportExcludeTablesY + ISSQLScriptImportISSQLScriptFile_NISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile table.ISSQLScriptImportIncludeTablesY + ISSQLScriptImportPasswordY + ISSQLScriptImportServerY + ISSQLScriptImportUserNameY + ISSQLScriptReplaceAttributesN + ISSQLScriptReplaceISSQLScriptFile_NISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile table.ISSQLScriptReplaceISSQLScriptReplaceNIdentifierPrimary key used to identify a particular ISSQLScriptReplace record.ISSQLScriptReplaceReplaceY + ISSQLScriptReplaceSearchY + ISScriptFileISScriptFileNTextThis is the full path of the script file. The path portion may be expressed in path variable form.ISSelfRegCmdLineY + ISSelfRegCostY + ISSelfRegFileKeyNFile1IdentifierForeign key to the file tableISSelfRegOrderY + ISSetupFileFileNameYTextThis is the file name to use when streaming the file to the support files locationISSetupFileISSetupFileNIdentifierThis is the primary key to the ISSetupFile tableISSetupFileLanguageYTextFour digit language identifier. 0 for Language NeutralISSetupFilePathYTextLink to the source file on the build machineISSetupFileSplashYShortBoolean value indication whether his setup file entry belongs in the Splasc Screen sectionISSetupFileStreamYBinaryBinary stream. The bits to stream to the support locationISSetupPrerequisitesISBuildSourcePathY + ISSetupPrerequisitesISReleaseFlagsYRelease Flags that specify whether this prereq will be included in a particular release.ISSetupPrerequisitesISSetupLocationY0;1;2 + ISSetupPrerequisitesISSetupPrerequisitesN + ISSetupPrerequisitesOrderY + ISSetupTypeCommentsYTextUser Comments.ISSetupTypeDescriptionYTextLonger descriptive text describing a visible feature item.ISSetupTypeDisplayN032767Numeric sort order, used to force a specific display ordering.ISSetupTypeDisplay_NameYFormattedA string used to set the initial text contained within a control (if appropriate).ISSetupTypeISSetupTypeNIdentifierPrimary key used to identify a particular feature record.ISSetupTypeFeaturesFeature_NFeature1IdentifierForeign key into Feature table.ISSetupTypeFeaturesISSetupType_NISSetupType1IdentifierForeign key into ISSetupType table.ISStoragesISBuildSourcePathYPath to the file to stream into sub-storageISStoragesNameNName of the sub-storage keyISStringCommentYTextCommentISStringEncodedYEncoding for multi-byte strings.ISStringISLanguage_NTextThis is a foreign key to the ISLanguage table.ISStringISStringNTextString id.ISStringTimeStampYTime/DateTime Stamp. MSI's Time/Date column type is just an int, with bits packed in a certain order.ISStringValueYTextreal string value.ISSwidtagPropertyNameNIdentifierProperty nameISSwidtagPropertyValueNTextProperty valueISTargetImageFlagsYrelative order of the target imageISTargetImageIgnoreMissingFilesNIf true, ignore missing source files when creating patchISTargetImageMsiPathNTextPath to the target imageISTargetImageNameNIdentifierName of the TargetImageISTargetImageOrderNrelative order of the target imageISTargetImageUpgradedImage_NISUpgradedImage1Textforeign key to the upgraded Image tableISUpgradeMsiItemISAttributesN0;1 + ISUpgradeMsiItemISReleaseFlagsY + ISUpgradeMsiItemObjectSetupPathNTextThe path to the setup you want to upgrade.ISUpgradeMsiItemUpgradeItemNTextThe name of the Upgrade Item.ISUpgradedImageFamilyNTextName of the image familyISUpgradedImageMsiPathNTextPath to the upgraded imageISUpgradedImageNameNIdentifierName of the UpgradedImageISVirtualDirectoryDirectory_NDirectory1IdentifierForeign key into Directory table.ISVirtualDirectoryNameNIdentifierProperty nameISVirtualDirectoryValueNProperty valueISVirtualFileFile_NFile1IdentifierForeign key into File table.ISVirtualFileNameNIdentifierProperty nameISVirtualFileValueNProperty valueISVirtualPackageNameNIdentifierProperty nameISVirtualPackageValueNProperty valueISVirtualRegistryNameNIdentifierProperty nameISVirtualRegistryRegistry_NRegistry1IdentifierForeign key into Registry table.ISVirtualRegistryValueNProperty valueISVirtualReleaseISProductConfiguration_NTextForeign key into ISProductConfiguration table.ISVirtualReleaseISRelease_NTextForeign key into ISRelease table.ISVirtualReleaseNameNProperty nameISVirtualReleaseValueNProperty valueISVirtualShortcutNameNIdentifierProperty nameISVirtualShortcutShortcut_NShortcut1IdentifierForeign key into Shortcut table.ISVirtualShortcutValueNProperty valueISXmlElementContentYTextElement contentsISXmlElementISAttributesYNumberInternal XML element attributesISXmlElementISXmlElementNIdentifierPrimary key, non-localized, internal token for Xml elementISXmlElementISXmlElement_ParentYISXmlElement1IdentifierForeign key into ISXMLElement table.ISXmlElementISXmlFile_NISXmlFile1IdentifierForeign key into XmlFile table.ISXmlElementXPathYTextXPath fragment including any operatorsISXmlElementAttribISAttributesYNumberInternal XML elementattib attributesISXmlElementAttribISXmlElementAttribNIdentifierPrimary key, non-localized, internal token for Xml element attributeISXmlElementAttribISXmlElement_NISXmlElement1IdentifierForeign key into ISXMLElement table.ISXmlElementAttribNameYTextLocalized attribute nameISXmlElementAttribValueYTextLocalized attribute valueISXmlFileComponent_NComponent1IdentifierForeign key into Component table.ISXmlFileDirectoryNIdentifierForeign key into Directory table.ISXmlFileEncodingYTextXML File EncodingISXmlFileFileNameNTextLocalized XML file nameISXmlFileISAttributesYNumberInternal XML file attributesISXmlFileISXmlFileNIdentifierPrimary key, non-localized,internal token for Xml fileISXmlFileSelectionNamespacesYTextSelection namespacesISXmlLocatorAttributeYThe name of an attribute within the XML element.ISXmlLocatorElementYXPath query that will locate an element in an XML file.ISXmlLocatorISAttributesY0;1;2 + ISXmlLocatorParentYIdentifierThe parent file signature. It is also a foreign key in the Signature table.ISXmlLocatorSignature_NIdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature, RegLocator, IniLocator, ISXmlLocator, CompLocator and the DrLocator tables.IconDataYBinaryBinary stream. The binary icon data in PE (.DLL or .EXE) or icon (.ICO) format.IconISBuildSourcePathYTextFull path to the ICO or EXE file.IconISIconIndexY-3276732767Optional icon index to be extracted.IconNameNIdentifierPrimary key. Name of the icon file.IniFileActionN0;1;3The type of modification to be made, one of iifEnumIniFileComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the installing of the .INI value.IniFileDirPropertyYIdentifierForeign key into the Directory table denoting the directory where the .INI file is.IniFileFileNameNTextThe .INI file name in which to write the informationIniFileIniFileNIdentifierPrimary key, non-localized token.IniFileKeyNFormattedThe .INI file key below Section.IniFileSectionNFormattedThe .INI file Section.IniFileValueNFormattedThe value to be written.IniLocatorFieldY032767The field in the .INI line. If Field is null or 0 the entire line is read.IniLocatorFileNameNTextThe .INI file name.IniLocatorKeyNTextKey value (followed by an equals sign in INI file).IniLocatorSectionNTextSection name within in file (within square brackets in INI file).IniLocatorSignature_NSignature1IdentifierThe table key. The Signature_ represents a unique file signature and is also the foreign key in the Signature table.IniLocatorTypeY02An integer value that determines if the .INI value read is a filename or a directory location or to be used as is w/o interpretation.InstallExecuteSequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.InstallExecuteSequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.InstallExecuteSequenceISAttributesYThis is used to store MM Custom Action TypesInstallExecuteSequenceISCommentsYTextAuthor’s comments on this Sequence.InstallExecuteSequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.InstallShieldPropertyNIdentifierName of property, uppercase if settable by launcher or loader.InstallShieldValueYTextString value for property.InstallUISequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.InstallUISequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.InstallUISequenceISAttributesYThis is used to store MM Custom Action TypesInstallUISequenceISCommentsYTextAuthor’s comments on this Sequence.InstallUISequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.IsolatedComponentComponent_ApplicationNComponent1IdentifierKey to Component table item for applicationIsolatedComponentComponent_SharedNComponent1IdentifierKey to Component table item to be isolatedLaunchConditionConditionNConditionExpression which must evaluate to TRUE in order for install to commence.LaunchConditionDescriptionNTextLocalizable text to display when condition fails and install must abort.ListBoxOrderN132767A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.ListBoxPropertyNIdentifierA named property to be tied to this item. All the items tied to the same property become part of the same listbox.ListBoxTextYTextThe visible text to be assigned to the item. Optional. If this entry or the entire column is missing, the text is the same as the value.ListBoxValueNFormattedThe value string associated with this item. Selecting the line will set the associated property to this value.ListViewBinary_YBinary1IdentifierThe name of the icon to be displayed with the icon. The binary information is looked up from the Binary Table.ListViewOrderN132767A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.ListViewPropertyNIdentifierA named property to be tied to this item. All the items tied to the same property become part of the same listview.ListViewTextYTextThe visible text to be assigned to the item. Optional. If this entry or the entire column is missing, the text is the same as the value.ListViewValueNTextThe value string associated with this item. Selecting the line will set the associated property to this value.LockPermissionsDomainYTextDomain name for user whose permissions are being set. (usually a property)LockPermissionsLockObjectNIdentifierForeign key into Registry or File tableLockPermissionsPermissionY-21474836472147483647Permission Access mask. Full Control = 268435456 (GENERIC_ALL = 0x10000000)LockPermissionsTableNIdentifierDirectory;File;RegistryReference to another table nameLockPermissionsUserNTextUser for permissions to be set. (usually a property)MIMECLSIDYClass1GuidOptional associated CLSID.MIMEContentTypeNTextPrimary key. Context identifier, typically "type/format".MIMEExtension_NExtension1TextOptional associated extension (without dot)MediaCabinetYCabinetIf some or all of the files stored on the media are compressed in a cabinet, the name of that cabinet.MediaDiskIdN132767Primary key, integer to determine sort order for table.MediaDiskPromptYTextDisk name: the visible text actually printed on the disk. This will be used to prompt the user when this disk needs to be inserted.MediaLastSequenceN032767File sequence number for the last file for this media.MediaSourceYPropertyThe property defining the location of the cabinet file.MediaVolumeLabelYTextThe label attributed to the volume.MoveFileComponent_NComponent1IdentifierIf this component is not "selected" for installation or removal, no action will be taken on the associated MoveFile entryMoveFileDestFolderNIdentifierName of a property whose value is assumed to resolve to the full path to the destination directoryMoveFileDestNameYTextName to be given to the original file after it is moved or copied. If blank, the destination file will be given the same name as the source fileMoveFileFileKeyNIdentifierPrimary key that uniquely identifies a particular MoveFile recordMoveFileOptionsN01Integer value specifying the MoveFile operating mode, one of imfoEnumMoveFileSourceFolderYIdentifierName of a property whose value is assumed to resolve to the full path to the source directoryMoveFileSourceNameYTextName of the source file(s) to be moved or copied. Can contain the '*' or '?' wildcards.MsiAssemblyAttributesYAssembly attributesMsiAssemblyComponent_NComponent1IdentifierForeign key into Component table.MsiAssemblyFeature_NFeature1IdentifierForeign key into Feature table.MsiAssemblyFile_ApplicationYFile1IdentifierForeign key into File table, denoting the application context for private assemblies. Null for global assemblies.MsiAssemblyFile_ManifestYFile1IdentifierForeign key into the File table denoting the manifest file for the assembly.MsiAssemblyNameComponent_NComponent1IdentifierForeign key into Component table.MsiAssemblyNameNameNTextThe name part of the name-value pairs for the assembly name.MsiAssemblyNameValueNTextThe value part of the name-value pairs for the assembly name.MsiDigitalCertificateCertDataNBinaryA certificate context blob for a signer certificateMsiDigitalCertificateDigitalCertificateNMsiPackageCertificate2IdentifierA unique identifier for the rowMsiDigitalSignatureDigitalCertificate_NMsiDigitalCertificate1IdentifierForeign key to MsiDigitalCertificate table identifying the signer certificateMsiDigitalSignatureHashYBinaryThe encoded hash blob from the digital signatureMsiDigitalSignatureSignObjectNTextForeign key to Media tableMsiDigitalSignatureTableNIdentifierReference to another table name (only Media table is supported)MsiDriverPackagesComponentNComponent1IdentifierPrimary key used to identify a particular component record.MsiDriverPackagesFlagsNDriver package flagsMsiDriverPackagesReferenceComponentsY + MsiDriverPackagesSequenceYInstallation sequence numberMsiEmbeddedChainerCommandLineYFormatted + MsiEmbeddedChainerConditionYCondition + MsiEmbeddedChainerMsiEmbeddedChainerNIdentifier + MsiEmbeddedChainerSourceNCustomSource + MsiEmbeddedChainerTypeYInteger2;18;50 + MsiEmbeddedUIAttributesN03IntegerInformation about the data in the Data column.MsiEmbeddedUIDataYBinaryThis column contains binary information.MsiEmbeddedUIFileNameNFilenameThe name of the file that receives the binary information in the Data column.MsiEmbeddedUIISBuildSourcePathYText + MsiEmbeddedUIMessageFilterY0234913791IntegerSpecifies the types of messages that are sent to the user interface DLL. This column is only relevant for rows with the msidbEmbeddedUI attribute.MsiEmbeddedUIMsiEmbeddedUINIdentifierThe primary key for the table.MsiFileHashFile_NFile1IdentifierPrimary key, foreign key into File table referencing file with this hashMsiFileHashHashPart1NSize of file in bytes (long integer).MsiFileHashHashPart2NSize of file in bytes (long integer).MsiFileHashHashPart3NSize of file in bytes (long integer).MsiFileHashHashPart4NSize of file in bytes (long integer).MsiFileHashOptionsN032767Various options and attributes for this hash.MsiLockPermissionsExConditionYFormattedExpression which must evaluate to TRUE in order for this set of permissions to be appliedMsiLockPermissionsExLockObjectNIdentifierForeign key into Registry, File, CreateFolder, or ServiceInstall tableMsiLockPermissionsExMsiLockPermissionsExNIdentifierPrimary key, non-localized tokenMsiLockPermissionsExSDDLTextNFormattedSDDLTextString to indicate permissions to be applied to the LockObjectMsiLockPermissionsExTableNIdentifierCreateFolder;File;Registry;ServiceInstallReference to another table nameMsiPackageCertificateDigitalCertificate_NIdentifierA foreign key to the digital certificate tableMsiPackageCertificatePackageCertificateNIdentifierA unique identifier for the rowMsiPatchCertificateDigitalCertificate_NMsiDigitalCertificate1IdentifierA foreign key to the digital certificate tableMsiPatchCertificatePatchCertificateNIdentifierA unique identifier for the rowMsiPatchMetadataCompanyYTextOptional company nameMsiPatchMetadataPatchConfiguration_NISPatchConfiguration1TextForeign key to the ISPatchConfiguration tableMsiPatchMetadataPropertyNTextName of the metadataMsiPatchMetadataValueYTextValue of the metadataMsiPatchOldAssemblyFileAssembly_YMsiPatchOldAssemblyName1 + MsiPatchOldAssemblyFileFile_NFile1 + MsiPatchOldAssemblyNameAssemblyN + MsiPatchOldAssemblyNameNameN + MsiPatchOldAssemblyNameValueY + MsiPatchSequencePatchConfiguration_NISPatchConfiguration1TextForeign key to the patch configuration tableMsiPatchSequencePatchFamilyNTextName of the family to which this patch belongsMsiPatchSequenceSequenceNVersionThe version of this patch in this familyMsiPatchSequenceSupersedeNIntegerSupersedeMsiPatchSequenceTargetYTextTarget product codes for this patch familyMsiServiceConfigArgumentYTextArgument(s) for service configuration. Value depends on the content of the ConfigType fieldMsiServiceConfigComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the configuration of the serviceMsiServiceConfigConfigTypeN-21474836472147483647Service Configuration OptionMsiServiceConfigEventN07Bit field: 0x1 = Install, 0x2 = Uninstall, 0x4 = ReinstallMsiServiceConfigMsiServiceConfigNIdentifierPrimary key, non-localized token.MsiServiceConfigNameNFormattedName of a service. /, \, comma and space are invalidMsiServiceConfigFailureActionsActionsYTextA list of integer actions separated by [~] delimiters: 0 = SC_ACTION_NONE, 1 = SC_ACTION_RESTART, 2 = SC_ACTION_REBOOT, 3 = SC_ACTION_RUN_COMMAND. Terminate with [~][~]MsiServiceConfigFailureActionsCommandYFormattedCommand line of the process to CreateProcess function to executeMsiServiceConfigFailureActionsComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the configuration of the serviceMsiServiceConfigFailureActionsDelayActionsYTextA list of delays (time in milli-seconds), separated by [~] delmiters, to wait before taking the corresponding Action. Terminate with [~][~]MsiServiceConfigFailureActionsEventN07Bit field: 0x1 = Install, 0x2 = Uninstall, 0x4 = ReinstallMsiServiceConfigFailureActionsMsiServiceConfigFailureActionsNIdentifierPrimary key, non-localized tokenMsiServiceConfigFailureActionsNameNFormattedName of a service. /, \, comma and space are invalidMsiServiceConfigFailureActionsRebootMessageYFormattedMessage to be broadcast to server users before rebootingMsiServiceConfigFailureActionsResetPeriodY02147483647Time in seconds after which to reset the failure count to zero. Leave blank if it should never be resetMsiShortcutPropertyMsiShortcutPropertyNIdentifierPrimary key, non-localized tokenMsiShortcutPropertyPropVariantValueNFormattedString representation of the value in the propertyMsiShortcutPropertyPropertyKeyNFormattedCanonical string representation of the Property Key being setMsiShortcutPropertyShortcut_NShortcut1IdentifierForeign key into the Shortcut tableODBCAttributeAttributeNTextName of ODBC driver attributeODBCAttributeDriver_NODBCDriver1IdentifierReference to ODBC driver in ODBCDriver tableODBCAttributeValueYTextValue for ODBC driver attributeODBCDataSourceComponent_NComponent1IdentifierReference to associated componentODBCDataSourceDataSourceNIdentifierPrimary key, non-localized.internal token for data sourceODBCDataSourceDescriptionNTextText used as registered name for data sourceODBCDataSourceDriverDescriptionNTextReference to driver description, may be existing driverODBCDataSourceRegistrationN01Registration option: 0=machine, 1=user, others t.b.d.ODBCDriverComponent_NComponent1IdentifierReference to associated componentODBCDriverDescriptionNTextText used as registered name for driver, non-localizedODBCDriverDriverNIdentifierPrimary key, non-localized.internal token for driverODBCDriverFile_NFile1IdentifierReference to key driver fileODBCDriverFile_SetupYFile1IdentifierOptional reference to key driver setup DLLODBCSourceAttributeAttributeNTextName of ODBC data source attributeODBCSourceAttributeDataSource_NODBCDataSource1IdentifierReference to ODBC data source in ODBCDataSource tableODBCSourceAttributeValueYTextValue for ODBC data source attributeODBCTranslatorComponent_NComponent1IdentifierReference to associated componentODBCTranslatorDescriptionNTextText used as registered name for translatorODBCTranslatorFile_NFile1IdentifierReference to key translator fileODBCTranslatorFile_SetupYFile1IdentifierOptional reference to key translator setup DLLODBCTranslatorTranslatorNIdentifierPrimary key, non-localized.internal token for translatorPatchAttributesN032767Integer containing bit flags representing patch attributesPatchFile_NFile1IdentifierPrimary key, non-localized token, foreign key to File table, must match identifier in cabinet.PatchHeaderYBinaryBinary stream. The patch header, used for patch validation.PatchISBuildSourcePathYTextFull path to patch header.PatchPatchSizeN02147483647Size of patch in bytes (long integer).PatchSequenceN032767Primary key, sequence with respect to the media images; order must track cabinet order.PatchStreamRef_YIdentifierExternal key into the MsiPatchHeaders table specifying the row that contains the patch header stream.PatchPackageMedia_N032767Foreign key to DiskId column of Media table. Indicates the disk containing the patch package.PatchPackagePatchIdNGuidA unique string GUID representing this patch.ProgIdClass_YClass1GuidThe CLSID of an OLE factory corresponding to the ProgId.ProgIdDescriptionYTextLocalized description for the Program identifier.ProgIdISAttributesYThis is used to store Installshield custom properties of a component, like ExtractIcon, etc.ProgIdIconIndexY-3276732767Optional icon index.ProgIdIcon_YIcon1IdentifierOptional foreign key into the Icon Table, specifying the icon file associated with this ProgId. Will be written under the DefaultIcon key.ProgIdProgIdNTextThe Program Identifier. Primary key.ProgIdProgId_ParentYProgId1TextThe Parent Program Identifier. If specified, the ProgId column becomes a version independent prog id.PropertyISCommentsYTextUser Comments.PropertyPropertyNIdentifierName of property, uppercase if settable by launcher or loader.PropertyValueYTextString value for property.PublishComponentAppDataYTextThis is localisable Application specific data that can be associated with a Qualified Component.PublishComponentComponentIdNGuidA string GUID that represents the component id that will be requested by the alien product.PublishComponentComponent_NComponent1IdentifierForeign key into the Component table.PublishComponentFeature_NFeature1IdentifierForeign key into the Feature table.PublishComponentQualifierNTextThis is defined only when the ComponentId column is an Qualified Component Id. This is the Qualifier for ProvideComponentIndirect.RadioButtonHeightN032767The height of the button.RadioButtonHelpYTextThe help strings used with the button. The text is optional.RadioButtonISControlIdYA number used to represent the control ID of the Control, Used in Dialog exportRadioButtonOrderN132767A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.RadioButtonPropertyNIdentifierA named property to be tied to this radio button. All the buttons tied to the same property become part of the same group.RadioButtonTextYTextThe visible title to be assigned to the radio button.RadioButtonValueNFormattedThe value string associated with this button. Selecting the button will set the associated property to this value.RadioButtonWidthN032767The width of the button.RadioButtonXN032767The horizontal coordinate of the upper left corner of the bounding rectangle of the radio button.RadioButtonYN032767The vertical coordinate of the upper left corner of the bounding rectangle of the radio button.RegLocatorKeyNRegPathThe key for the registry value.RegLocatorNameYFormattedThe registry value name.RegLocatorRootN03The predefined root key for the registry value, one of rrkEnum.RegLocatorSignature_NSignature1IdentifierThe table key. The Signature_ represents a unique file signature and is also the foreign key in the Signature table. If the type is 0, the registry values refers a directory, and _Signature is not a foreign key.RegLocatorTypeY018An integer value that determines if the registry value is a filename or a directory location or to be used as is w/o interpretation.RegistryComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the installing of the registry value.RegistryISAttributesYThis is used to store Installshield custom properties of a registry item. Currently the only one is Automatic.RegistryKeyNRegPathThe key for the registry value.RegistryNameYFormattedThe registry value name.RegistryRegistryNIdentifierPrimary key, non-localized token.RegistryRootN-13The predefined root key for the registry value, one of rrkEnum.RegistryValueYTextThe registry value.RemoveFileComponent_NComponent1IdentifierForeign key referencing Component that controls the file to be removed.RemoveFileDirPropertyNIdentifierName of a property whose value is assumed to resolve to the full pathname to the folder of the file to be removed.RemoveFileFileKeyNIdentifierPrimary key used to identify a particular file entryRemoveFileFileNameYTextName of the file to be removed.RemoveFileInstallModeN1;2;3Installation option, one of iimEnum.RemoveIniFileActionN2;4The type of modification to be made, one of iifEnum.RemoveIniFileComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the deletion of the .INI value.RemoveIniFileDirPropertyYIdentifierForeign key into the Directory table denoting the directory where the .INI file is.RemoveIniFileFileNameNTextThe .INI file name in which to delete the informationRemoveIniFileKeyNFormattedThe .INI file key below Section.RemoveIniFileRemoveIniFileNIdentifierPrimary key, non-localized token.RemoveIniFileSectionNFormattedThe .INI file Section.RemoveIniFileValueYFormattedThe value to be deleted. The value is required when Action is iifIniRemoveTagRemoveRegistryComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the deletion of the registry value.RemoveRegistryKeyNRegPathThe key for the registry value.RemoveRegistryNameYFormattedThe registry value name.RemoveRegistryRemoveRegistryNIdentifierPrimary key, non-localized token.RemoveRegistryRootN-13The predefined root key for the registry value, one of rrkEnumReserveCostComponent_NComponent1IdentifierReserve a specified amount of space if this component is to be installed.ReserveCostReserveFolderYIdentifierName of a property whose value is assumed to resolve to the full path to the destination directoryReserveCostReserveKeyNIdentifierPrimary key that uniquely identifies a particular ReserveCost recordReserveCostReserveLocalN02147483647Disk space to reserve if linked component is installed locally.ReserveCostReserveSourceN02147483647Disk space to reserve if linked component is installed to run from the source location.SFPCatalogCatalogYBinarySFP CatalogSFPCatalogDependencyYFormattedParent catalog - only used by SFPSFPCatalogSFPCatalogNFilenameFile name for the catalog.SelfRegCostY032767The cost of registering the module.SelfRegFile_NFile1IdentifierForeign key into the File table denoting the module that needs to be registered.ServiceControlArgumentsYFormattedArguments for the service. Separate by [~].ServiceControlComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the startup of the serviceServiceControlEventN0187Bit field: Install: 0x1 = Start, 0x2 = Stop, 0x8 = Delete, Uninstall: 0x10 = Start, 0x20 = Stop, 0x80 = DeleteServiceControlNameNFormattedName of a service. /, \, comma and space are invalidServiceControlServiceControlNIdentifierPrimary key, non-localized token.ServiceControlWaitY01Boolean for whether to wait for the service to fully startServiceInstallArgumentsYFormattedArguments to include in every start of the service, passed to WinMainServiceInstallComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the startup of the serviceServiceInstallDependenciesYFormattedOther services this depends on to start. Separate by [~], and end with [~][~]ServiceInstallDescriptionYTextDescription of service.ServiceInstallDisplayNameYFormattedExternal Name of the ServiceServiceInstallErrorControlN-21474836472147483647Severity of error if service fails to startServiceInstallLoadOrderGroupYFormattedLoadOrderGroupServiceInstallNameNFormattedInternal Name of the ServiceServiceInstallPasswordYFormattedpassword to run service with. (with StartName)ServiceInstallServiceInstallNIdentifierPrimary key, non-localized token.ServiceInstallServiceTypeN-21474836472147483647Type of the serviceServiceInstallStartNameYFormattedUser or object name to run service asServiceInstallStartTypeN04Type of the serviceShortcutArgumentsYFormattedThe command-line arguments for the shortcut.ShortcutComponent_NComponent1IdentifierForeign key into the Component table denoting the component whose selection gates the the shortcut creation/deletion.ShortcutDescriptionYTextThe description for the shortcut.ShortcutDescriptionResourceDLLYFormattedThis field contains a Formatted string value for the full path to the language neutral file that contains the MUI manifest.ShortcutDescriptionResourceIdY032767The description name index for the shortcut.ShortcutDirectory_NDirectory1IdentifierForeign key into the Directory table denoting the directory where the shortcut file is created.ShortcutDisplayResourceDLLYFormattedThis field contains a Formatted string value for the full path to the language neutral file that contains the MUI manifest.ShortcutDisplayResourceIdY032767The display name index for the shortcut.ShortcutHotkeyY032767The hotkey for the shortcut. It has the virtual-key code for the key in the low-order byte, and the modifier flags in the high-order byte.ShortcutISAttributesYThis is used to store Installshield custom properties of a shortcut. Mainly used in pro project types.ShortcutISCommentsYTextAuthor’s comments on this Shortcut.ShortcutISShortcutNameYTextA non-unique name for the shortcut. Mainly used by pro pro project types.ShortcutIconIndexY-3276732767The icon index for the shortcut.ShortcutIcon_YIcon1IdentifierForeign key into the File table denoting the external icon file for the shortcut.ShortcutNameNTextThe name of the shortcut to be created.ShortcutShortcutNIdentifierPrimary key, non-localized token.ShortcutShowCmdY1;3;7The show command for the application window.The following values may be used.ShortcutTargetNShortcutThe shortcut target. This is usually a property that is expanded to a file or a folder that the shortcut points to.ShortcutWkDirYIdentifierName of property defining location of working directory.SignatureFileNameNTextThe name of the file. This may contain a "short name|long name" pair.SignatureLanguagesYLanguageThe languages supported by the file.SignatureMaxDateY02147483647The maximum creation date of the file.SignatureMaxSizeY02147483647The maximum size of the file.SignatureMaxVersionYTextThe maximum version of the file.SignatureMinDateY02147483647The minimum creation date of the file.SignatureMinSizeY02147483647The minimum size of the file.SignatureMinVersionYTextThe minimum version of the file.SignatureSignatureNIdentifierThe table key. The Signature represents a unique file signature.TextStyleColorY016777215A long integer indicating the color of the string in the RGB format (Red, Green, Blue each 0-255, RGB = R + 256*G + 256^2*B).TextStyleFaceNameNTextA string indicating the name of the font used. Required. The string must be at most 31 characters long.TextStyleSizeN032767The size of the font used. This size is given in our units (1/12 of the system font height). Assuming that the system font is set to 12 point size, this is equivalent to the point size.TextStyleStyleBitsY015A combination of style bits.TextStyleTextStyleNIdentifierName of the style. The primary key of this table. This name is embedded in the texts to indicate a style change.TypeLibComponent_NComponent1IdentifierRequired foreign key into the Component Table, specifying the component for which to return a path when called through LocateComponent.TypeLibCostY02147483647The cost associated with the registration of the typelib. This column is currently optional.TypeLibDescriptionYText + TypeLibDirectory_YDirectory1IdentifierOptional. The foreign key into the Directory table denoting the path to the help file for the type library.TypeLibFeature_NFeature1IdentifierRequired foreign key into the Feature Table, specifying the feature to validate or install in order for the type library to be operational.TypeLibLanguageN032767The language of the library.TypeLibLibIDNGuidThe GUID that represents the library.TypeLibVersionY02147483647The version of the library. The major version is in the upper 8 bits of the short integer. The minor version is in the lower 8 bits.UITextKeyNIdentifierA unique key that identifies the particular string.UITextTextYTextThe localized version of the string.UpgradeActionPropertyNUpperCaseThe property to set when a product in this set is found.UpgradeAttributesN02147483647The attributes of this product set.UpgradeISDisplayNameYISUpgradeMsiItem1 + UpgradeLanguageYLanguageA comma-separated list of languages for either products in this set or products not in this set.UpgradeRemoveYFormattedThe list of features to remove when uninstalling a product from this set. The default is "ALL".UpgradeUpgradeCodeNGuidThe UpgradeCode GUID belonging to the products in this set.UpgradeVersionMaxYTextThe maximum ProductVersion of the products in this set. The set may or may not include products with this particular version.UpgradeVersionMinYTextThe minimum ProductVersion of the products in this set. The set may or may not include products with this particular version.VerbArgumentYFormattedOptional value for the command arguments.VerbCommandYFormattedThe command text.VerbExtension_NExtension1TextThe extension associated with the table row.VerbSequenceY032767Order within the verbs for a particular extension. Also used simply to specify the default verb.VerbVerbNTextThe verb for the command._ValidationCategoryY"Text";"Formatted";"Template";"Condition";"Guid";"Path";"Version";"Language";"Identifier";"Binary";"UpperCase";"LowerCase";"Filename";"Paths";"AnyPath";"WildCardFilename";"RegPath";"KeyFormatted";"CustomSource";"Property";"Cabinet";"Shortcut";"URL";"DefaultDir"String category_ValidationColumnNIdentifierName of column_ValidationDescriptionYTextDescription of column_ValidationKeyColumnY132Column to which foreign key connects_ValidationKeyTableYIdentifierFor foreign key, Name of table to which data must link_ValidationMaxValueY-21474836472147483647Maximum value allowed_ValidationMinValueY-21474836472147483647Minimum value allowed_ValidationNullableNY;N;@Whether the column is nullable_ValidationSetYTextSet of values that are permitted_ValidationTableNIdentifierName of table
+ diff --git a/app - Kopie/Setup/Setup.isproj b/app - Kopie/Setup/Setup.isproj new file mode 100644 index 0000000..a388e7b --- /dev/null +++ b/app - Kopie/Setup/Setup.isproj @@ -0,0 +1,37 @@ + + + + + Express + + Debug + $(Configuration) + + + + + + + + + + + + + + + + + + + + DD-Record-Organiser + {BDCC148B-4C84-4A48-80CF-4C56057294E0} + + + \ No newline at end of file diff --git a/app - Kopie/SetupWiX/Product.wxs b/app - Kopie/SetupWiX/Product.wxs new file mode 100644 index 0000000..ea852a4 --- /dev/null +++ b/app - Kopie/SetupWiX/Product.wxs @@ -0,0 +1,172 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 1 + 1 + + + + diff --git a/app - Kopie/SetupWiX/SetupWiX.wixproj b/app - Kopie/SetupWiX/SetupWiX.wixproj new file mode 100644 index 0000000..15e5d8e --- /dev/null +++ b/app - Kopie/SetupWiX/SetupWiX.wixproj @@ -0,0 +1,48 @@ + + + + Debug + x86 + 3.8 + bdd0ee4f-7063-47ca-b8b8-b94f23ab8890 + 2.0 + RecordOrganizerSetup + Package + $(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets + $(MSBuildExtensionsPath)\Microsoft\WiX\v3.x\Wix.targets + + + + + bin\$(Configuration)\ + obj\$(Configuration)\ + Debug + -b "$(SolutionDir)DD-Record-Organiser\bin\Debug" -b "$(SolutionDir)DD-Record-Organiser\bin\Release" -cultures:de-DE + + + bin\$(Configuration)\ + obj\$(Configuration)\ + + + + + + + $(WixExtDir)\WixUtilExtension.dll + WixUtilExtension + + + $(WixExtDir)\WixUIExtension.dll + WixUIExtension + + + + + \ No newline at end of file diff --git a/app - Kopie/SnapPanelControl/My Project/Application.Designer.vb b/app - Kopie/SnapPanelControl/My Project/Application.Designer.vb new file mode 100644 index 0000000..9faf70b --- /dev/null +++ b/app - Kopie/SnapPanelControl/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34014 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/app - Kopie/SnapPanelControl/My Project/Application.myapp b/app - Kopie/SnapPanelControl/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/app - Kopie/SnapPanelControl/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/app - Kopie/SnapPanelControl/My Project/AssemblyInfo.vb b/app - Kopie/SnapPanelControl/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..a7add2f --- /dev/null +++ b/app - Kopie/SnapPanelControl/My Project/AssemblyInfo.vb @@ -0,0 +1,34 @@ +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 mit einer Assembly verknüpft sind. + +' Die 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 die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: + + + diff --git a/app - Kopie/SnapPanelControl/My Project/Resources.Designer.vb b/app - Kopie/SnapPanelControl/My Project/Resources.Designer.vb new file mode 100644 index 0000000..a643587 --- /dev/null +++ b/app - Kopie/SnapPanelControl/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34014 +' +' 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("SnapPanelControl.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/app - Kopie/SnapPanelControl/My Project/Resources.resx b/app - Kopie/SnapPanelControl/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/app - Kopie/SnapPanelControl/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/app - Kopie/SnapPanelControl/My Project/Settings.Designer.vb b/app - Kopie/SnapPanelControl/My Project/Settings.Designer.vb new file mode 100644 index 0000000..6e9ef41 --- /dev/null +++ b/app - Kopie/SnapPanelControl/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34014 +' +' 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 + + _ + 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 "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal 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 + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SnapPanelControl.My.MySettings + Get + Return Global.SnapPanelControl.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/app - Kopie/SnapPanelControl/My Project/Settings.settings b/app - Kopie/SnapPanelControl/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/app - Kopie/SnapPanelControl/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/app - Kopie/SnapPanelControl/SnapPanel.Designer.vb b/app - Kopie/SnapPanelControl/SnapPanel.Designer.vb new file mode 100644 index 0000000..e6ff0a8 --- /dev/null +++ b/app - Kopie/SnapPanelControl/SnapPanel.Designer.vb @@ -0,0 +1,29 @@ + _ +Partial Class SnapPanel + Inherits System.Windows.Forms.Panel + + 'UserControl1 ü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() + components = New System.ComponentModel.Container() + 'Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/app - Kopie/SnapPanelControl/SnapPanel.vb b/app - Kopie/SnapPanelControl/SnapPanel.vb new file mode 100644 index 0000000..febc055 --- /dev/null +++ b/app - Kopie/SnapPanelControl/SnapPanel.vb @@ -0,0 +1,56 @@ +Public Class SnapPanel + Inherits System.Windows.Forms.Panel + + Private _ShowGrid As Boolean = True + Private _GridSize As Integer = 16 + + Private Property AutoScaleMode As AutoScaleMode + + Public Property GridSize As Integer + Get + Return _GridSize + End Get + Set(value As Integer) + _GridSize = value + Refresh() + End Set + End Property + + Public Property ShowGrid As Boolean + Get + Return _ShowGrid + End Get + Set(value As Boolean) + _ShowGrid = value + Refresh() + End Set + End Property + + Protected Overrides Sub OnControlAdded(e As System.Windows.Forms.ControlEventArgs) + AddHandler e.Control.LocationChanged, AddressOf AlignToGrid + AddHandler e.Control.DragDrop, AddressOf AlignToGrid + MyBase.OnControlAdded(e) + End Sub + + Protected Overrides Sub OnControlRemoved(e As System.Windows.Forms.ControlEventArgs) + RemoveHandler e.Control.LocationChanged, AddressOf AlignToGrid + RemoveHandler e.Control.DragDrop, AddressOf AlignToGrid + MyBase.OnControlRemoved(e) + End Sub + + Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs) + If _ShowGrid Then + ControlPaint.DrawGrid(e.Graphics, ClientRectangle, New Size(_GridSize, _GridSize), BackColor) + End If + MyBase.OnPaint(e) + End Sub + + Private Sub AlignToGrid(sender As Object, e As EventArgs) + If _ShowGrid Then + Dim item As Control = CType(sender, Control) + Dim x As Integer = Math.Round(item.Left / _GridSize) * _GridSize + Dim y As Integer = Math.Round(item.Top / _GridSize) * _GridSize + item.Location = New Point(x, y) + End If + End Sub +End Class diff --git a/app - Kopie/SnapPanelControl/SnapPanelControl.vbproj b/app - Kopie/SnapPanelControl/SnapPanelControl.vbproj new file mode 100644 index 0000000..999a223 --- /dev/null +++ b/app - Kopie/SnapPanelControl/SnapPanelControl.vbproj @@ -0,0 +1,123 @@ + + + + + Debug + AnyCPU + {9B1BBAC7-F595-43BA-8B54-CF2B595847CD} + Library + SnapPanelControl + SnapPanelControl + 512 + Windows + v4.5 + + + true + full + true + true + bin\Debug\ + SnapPanelControl.xml + _MYFORMS=True + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + pdbonly + false + true + true + bin\Release\ + SnapPanelControl.xml + _MYFORMS=True + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + Component + + + SnapPanel.vb + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb new file mode 100644 index 0000000..cb9642b --- /dev/null +++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -0,0 +1,3333 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Ä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 DD_ECMAdmin + Inherits Global.System.Data.DataSet + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation + + 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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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 TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR + End Get + End Property + + _ + Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Get + Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set(value As Global.System.Data.SchemaSerializationMode) + 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 DD_ECMAdmin = CType(MyBase.Clone, DD_ECMAdmin) + 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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) + End If + If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) + 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.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"), TBPMO_FORM_CONSTRUCTORDataTable) + If (initTable = True) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars() + End If + End If + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"), TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + If (initTable = True) Then + If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars() + End If + End If + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DD_ECMAdmin" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DD_ECMAdmin.xsd" + Me.EnforceConstraints = True + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, False) + Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) + End Sub + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() 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 DD_ECMAdmin = New DD_ECMAdmin() + 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 TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) + + _ + Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnSEQUENCE_MENU As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnMENU_IMG As Global.System.Data.DataColumn + + Private columnSHORT_TITLE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBPMO_FORM_CONSTRUCTOR" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE_MENU + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENU_IMG + End Get + End Property + + _ + Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORT_TITLE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTORRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As TBPMO_FORM_CONSTRUCTORRow + Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE} + rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) + Return rowTBPMO_FORM_CONSTRUCTORRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTORDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTORDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") + Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE_MENU) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENU_IMG) + Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORT_TITLE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnSEQUENCE_MENU.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSHORT_TITLE.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTORRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTORRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + 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 DD_ECMAdmin = New DD_ECMAdmin() + 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 = "TBPMO_FORM_CONSTRUCTORDataTable" + 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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONSTRUCT_ID As Global.System.Data.DataColumn + + Private columnFORM_ID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnLEVEL1_SELECT As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn + + Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn + + Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn + + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONSTRUCT_ID + End Get + End Property + + _ + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_ID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL1_SELECT + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE1 + End Get + End Property + + _ + Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_SELECT_EBENE2 + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME1 + End Get + End Property + + _ + Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_NAME2 + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_SEARCH + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN1 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN2 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN3 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN4 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN5 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Get + End Property + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ + ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5} + If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) + End If + rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") + Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") + Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") + Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") + Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") + Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") + Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") + Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") + Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONSTRUCT_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL1_SELECT) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1) + Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME1) + Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME2) + Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) + Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) + Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) + Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) + Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) + Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnCONSTRUCT_ID.AllowDBNull = False + Me.columnFORM_ID.AllowDBNull = False + Me.columnPARENT_ID.AllowDBNull = False + Me.columnLEVEL1_SELECT.AllowDBNull = False + Me.columnSEQUENCE.AllowDBNull = False + Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 + Me.columnSQL_SELECT_EBENE2.AllowDBNull = False + Me.columnSQL_SELECT_EBENE2.MaxLength = 4000 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOLUMN_NAME1.AllowDBNull = False + Me.columnCOLUMN_NAME1.MaxLength = 100 + Me.columnCOLUMN_NAME2.AllowDBNull = False + Me.columnCOLUMN_NAME2.MaxLength = 100 + Me.columnWINDREAM_SEARCH.MaxLength = 300 + Me.columnSEARCH_PATTERN1.MaxLength = 50 + Me.columnSEARCH_PATTERN2.MaxLength = 50 + Me.columnSEARCH_PATTERN3.MaxLength = 50 + Me.columnSEARCH_PATTERN4.MaxLength = 50 + Me.columnSEARCH_PATTERN5.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + 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 DD_ECMAdmin = New DD_ECMAdmin() + 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 = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" + 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 TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table, TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_MENU() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property MENU_IMG() As Byte() + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn), Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Byte()) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value + End Set + End Property + + _ + Public Property SHORT_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value + End Set + End Property + + _ + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + End Function + + _ + Public Sub SetFORM_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMENU_IMGNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) + End Function + + _ + Public Sub SetMENU_IMGNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) + End Function + + _ + Public Sub SetSHORT_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONSTRUCT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property LEVEL1_SELECT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn), Boolean) + End Get + Set(value As Boolean) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is" & _ + "t DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull" & _ + ".", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNul" & _ + "l.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu" & _ + "ll.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN" & _ + "ull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLUMN_NAME1() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value + End Set + End Property + + _ + Public Property COLUMN_NAME2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + End Set + End Property + + _ + Public Property WINDREAM_SEARCH() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN2() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN3() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN4() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN5() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTORRow) + End Get + Set(value As TBPMO_FORM_CONSTRUCTORRow) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) + End Set + End Property + + _ + Public Function IsSQL_SELECT_EBENE1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) + End Function + + _ + Public Sub SetSQL_SELECT_EBENE1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWINDREAM_SEARCHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) + End Function + + _ + Public Sub SetWINDREAM_SEARCHNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN2Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN3Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN4Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN5Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTORRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DD_ECMAdminTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") + tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (FORM_TITLE, SEQUENC" & _ + "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@FORM_TITLE,@SEQUENCE_" & _ + "MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FORM_TITLE, SEQUENCE_MEN" & _ + "U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM " & _ + "TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET FORM_TITLE = @FORM_TITLE," & _ + " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM" & _ + "G, SHORT_TITLE = @SHORT_TITLE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT G" & _ + "UID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & _ + ", MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO" & _ + ", CHANGED_WHEN, MENU_IMG, SHORT_TITLE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE, String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO, String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") + tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (CONSTRUCT_ID" & _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR" & _ + "CH_PATTERN5)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S" & _ + "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N" & _ + "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH" & _ + "_PATTERN4,@SEARCH_PATTERN5); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE" & _ + "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH" & _ + "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR" & _ + "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 " & _ + "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ + "SELECT, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_SELECT_EBENE1 = @SQ" & _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_" & _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME2 = @CO" & _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER" & _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SEARCH_PATTER" & _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE" & _ + "ARCH_PATTERN5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID" & _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ + "NE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME" & _ + "2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PA" & _ + "TTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_CONSTRUCTOR_DETAIL.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRU" & _ + "CTOR_DETAIL where GUID = @ID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal CHANGED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter + + Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set(value As UpdateOrderOption) + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter + End Get + Set(value As TBPMO_FORM_CONSTRUCTORTableAdapter) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Get + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + End Get + Set(value As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set(value As Boolean) + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection + End If + Return Nothing + End Get + Set(value As Global.System.Data.IDbConnection) + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DD_ECMAdmin, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = False) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DD_ECMAdmin) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = False) Then + Return 0 + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ + "t.") + End If + Dim workConnOpened As Boolean = False + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close() + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open() + workConnOpened = True + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = False + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = False + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit() + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback() + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear() + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + row.SetAdded() + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close() + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = True + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return True + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return True + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return True + End If + Return False + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New() + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear() + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsc b/app/DD-Record-Organiser/DD_ECMAdmin.xsc new file mode 100644 index 0000000..d5d601b --- /dev/null +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsc @@ -0,0 +1,63 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsd b/app/DD-Record-Organiser/DD_ECMAdmin.xsd new file mode 100644 index 0000000..7072d29 --- /dev/null +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -0,0 +1,342 @@ + + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM_CONSTRUCTOR +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM_CONSTRUCTOR + (FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE) +VALUES (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); +SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE +FROM TBPMO_FORM_CONSTRUCTOR + + + + + + UPDATE TBPMO_FORM_CONSTRUCTOR +SET FORM_TITLE = @FORM_TITLE, SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IMG, SHORT_TITLE = @SHORT_TITLE +WHERE (GUID = @Original_GUID); +SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL + (CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, + SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5) +VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5); +SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + SELECT TBPMO_FORM_CONSTRUCTOR_DETAIL.* +FROM TBPMO_FORM_CONSTRUCTOR_DETAIL where GUID = @ID + + + + + + + + UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL +SET CONSTRUCT_ID = @CONSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_SELECT, SEQUENCE = @SEQUENCE, + SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_WHO, COLUMN_NAME1 = @COLUMN_NAME1, + COLUMN_NAME2 = @COLUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTERN1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, + SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5 +WHERE (GUID = @Original_GUID); +SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xss b/app/DD-Record-Organiser/DD_ECMAdmin.xss new file mode 100644 index 0000000..9ea8ad1 --- /dev/null +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xss @@ -0,0 +1,26 @@ + + + + + + + + + + + + 345 + 74 + + + 385 + 74 + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/Resources/Go.png b/app/DD-Record-Organiser/Resources/Go.png new file mode 100644 index 0000000000000000000000000000000000000000..d92fd1da66cc939758e882533fd19d66d24248ff GIT binary patch literal 3218 zcmV;D3~lp?P)KLZ*U+IBfRsybQWXdwQbLP>6pAqfylh#{fb6;Z(vMMVS~$e@S=j*ftg6;Uhf59&ghTmgWD0l;*T zI709Y^p6lP1rIRMx#05C~cW=H_Aw*bJ-5DT&Z2n+x)QHX^p z00esgV8|mQcmRZ%02D^@S3L16t`O%c004NIvOKvYIYoh62rY33S640`D9%Y2D-rV&neh&#Q1i z007~1e$oCcFS8neI|hJl{-P!B1ZZ9hpmq0)X0i`JwE&>$+E?>%_LC6RbVIkUx0b+_+BaR3cnT7Zv!AJxW zizFb)h!jyGOOZ85F;a?DAXP{m@;!0_IfqH8(HlgRxt7s3}k3K`kFu>>-2Q$QMFfPW!La{h336o>X zu_CMttHv6zR;&ZNiS=X8v3CR#fknUxHUxJ0uoBa_M6WNWeqIg~6QE69c9o#eyhGvpiOA@W-aonk<7r1(?fC{oI5N*U!4 zfg=2N-7=cNnjjOr{yriy6mMFgG#l znCF=fnQv8CDz++o6_Lscl}eQ+l^ZHARH>?_s@|##Rr6KLRFA1%Q+=*RRWnoLsR`7U zt5vFIcfW3@?wFpwUVxrVZ>QdQz32KIeJ}k~{cZZE^+ya? z2D1z#2HOnI7(B%_ac?{wFUQ;QQA1tBKtrWrm0_3Rgps+?Jfqb{jYbcQX~taRB;#$y zZN{S}1|}gUOHJxc?wV3fxuz+mJ4`!F$IZ;mqRrNsHJd##*D~ju=bP7?-?v~|cv>vB zsJ6IeNwVZxrdjT`yl#bBIa#GxRa#xMMy;K#CDyyGyQdMSxlWT#tDe?p!?5wT$+oGt z8L;Kp2HUQ-ZMJ=3XJQv;x5ci*?vuTfeY$;({XGW_huIFR9a(?@3)XSs8O^N5RyOM=TTmp(3=8^+zpz2r)C z^>JO{deZfso3oq3?Wo(Y?l$ge?uXo;%ru`Vo>?<<(8I_>;8Eq#KMS9gFl*neeosSB zfoHYnBQIkwkyowPu(zdms`p{<7e4kra-ZWq<2*OsGTvEV%s0Td$hXT+!*8Bnh2KMe zBmZRodjHV?r+_5^X9J0WL4jKW`}lf%A-|44I@@LTvf1rHjG(ze6+w@Jt%Bvjts!X0 z?2xS?_ve_-kiKB_KiJlZ$9G`c^=E@oNG)mWWaNo-3TIW8)$Hg0Ub-~8?KhvJ>$ z3*&nim@mj(aCxE5!t{lw7O5^0EIO7zOo&c6l<+|iDySBWCGrz@C5{St!X3hAA}`T4 z(TLbXTq+(;@<=L8dXnssyft|w#WSTW<++3>sgS%(4NTpeI-VAqb|7ssJvzNHgOZVu zaYCvgO_R1~>SyL=cFU|~g|hy|Zi}}s9+d~lYqOB71z9Z$wnC=pR9Yz4DhIM>Wmjgu z&56o6maCpC&F##y%G;1PobR9i?GnNg;gYtchD%p19a!eQtZF&3JaKv33gZ<8D~47E ztUS1iwkmDaPpj=$m#%)jCVEY4fnLGNg2A-`YwHVD3gv};>)hAvT~AmqS>Lr``i7kw zJ{5_It`yrBmlc25DBO7E8;5VoznR>Ww5hAaxn$2~(q`%A-YuS64wkBy=9dm`4cXeX z4c}I@?e+FW+b@^RDBHV(wnMq2zdX3SWv9u`%{xC-q*U}&`cyXV(%rRT*Z6MH?i+i& z_B8C(+grT%{XWUQ+f@NoP1R=AW&26{v-dx)iK^-Nmiuj8txj!m?Z*Ss1N{dh4z}01 z)YTo*JycSU)+_5r4#yw9{+;i4Ee$peRgIj+;v;ZGdF1K$3E%e~4LaI(jC-u%2h$&R z9cLXcYC@Xwnns&bn)_Q~Te?roKGD|d-g^8;+aC{{G(1^(O7m37Y1-+6)01cN&y1aw zoqc{T`P^XJqPBbIW6s}d4{z_f5Om?vMgNQEJG?v2T=KYd^0M3I6IZxbny)%vZR&LD zJpPl@Psh8QyPB@KTx+@RdcC!KX7}kEo;S|j^u2lU7XQ}Oo;f|;z4Ll+_r>@1-xl3| zawq-H%e&ckC+@AhPrP6BKT#_XdT7&;F71j}Joy zkC~6lh7E@6o;W@^IpRNZ{ptLtL(gQ-CY~4mqW;US7Zxvm_|@yz&e53Bp_lTPlfP|z zrTyx_>lv@x#=^!PzR7qqF<$gm`|ZJZ+;<)Cqu&ot2z=00004XF*Lt006O$eEU(80000WV@Og>004R=004l4008;_004mL004C` z008P>0026e000+nl3&F}00054Nkl;fWMNi-M>O@0=!5)>pv5wx|)z1`V8i+4F=Auc=~EX;hv zuzTj;-MXsqB@ZWLcsMRYay)kaewU8qD15Gwd};FVG`pvxBQuEu6qly2VO~YW zwvma(`zCLkxXHifsXLgB3UsrjszJP@hs;1#tiKcdNQ;4JEQvj@Qz2^Sf ze7%~`(0aOP+?`_WKr|VTMtAu5V}q5?&#PhfCl`)Fge8sAD84)Bpeg07*qoM6N<$ Ef@ZG+1poj5 literal 0 HcmV?d00001 diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb new file mode 100644 index 0000000..065ee17 --- /dev/null +++ b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb @@ -0,0 +1,995 @@ + _ +Partial Class frmConstructorDesigner + 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 GUIDLabel As System.Windows.Forms.Label + Dim FORM_TITLELabel As System.Windows.Forms.Label + Dim SEQUENCE_MENULabel As System.Windows.Forms.Label + Dim SHORT_TITLELabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim WINDREAM_SEARCHLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label + Dim SQL_SELECT_EBENE1Label As System.Windows.Forms.Label + Dim SQL_SELECT_EBENE2Label As System.Windows.Forms.Label + Dim COLUMN_NAME1Label1 As System.Windows.Forms.Label + Dim SEARCH_PATTERN1Label1 As System.Windows.Forms.Label + Dim SEARCH_PATTERN2Label1 As System.Windows.Forms.Label + Dim SEARCH_PATTERN3Label As System.Windows.Forms.Label + Dim SEARCH_PATTERN4Label As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructorDesigner)) + Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TreeView1 = New System.Windows.Forms.TreeView() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.CONSTRUCTOR_IDTextBox = New System.Windows.Forms.TextBox() + Me.FORM_TITLETextBox = New System.Windows.Forms.TextBox() + Me.SEQUENCE_MENUNumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.SHORT_TITLETextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.LEVEL1_SELECTCheckBox = New System.Windows.Forms.CheckBox() + Me.WINDREAM_SEARCHTextBox = New System.Windows.Forms.TextBox() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.Label4 = New System.Windows.Forms.Label() + Me.COLUMN_NAME1ComboBox = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.SQL_SELECT_EBENE1TextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.SQL_SELECT_EBENE2TextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + Me.SEARCH_PATTERN4ComboBox = New System.Windows.Forms.ComboBox() + Me.SEARCH_PATTERN3ComboBox = New System.Windows.Forms.ComboBox() + Me.SEARCH_PATTERN2ComboBox = New System.Windows.Forms.ComboBox() + Me.SEARCH_PATTERN1ComboBox = New System.Windows.Forms.ComboBox() + Me.XtraTabPage5 = New DevExpress.XtraTab.XtraTabPage() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tslblSaveDetail = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.tsbtnSave = New System.Windows.Forms.ToolStripButton() + Me.TreeView_Free = New System.Windows.Forms.TreeView() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.TBPMO_FORM_CONSTRUCTORBindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + GUIDLabel = New System.Windows.Forms.Label() + FORM_TITLELabel = New System.Windows.Forms.Label() + SEQUENCE_MENULabel = New System.Windows.Forms.Label() + SHORT_TITLELabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + WINDREAM_SEARCHLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel1 = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + CHANGED_WHENLabel1 = New System.Windows.Forms.Label() + SQL_SELECT_EBENE1Label = New System.Windows.Forms.Label() + SQL_SELECT_EBENE2Label = New System.Windows.Forms.Label() + COLUMN_NAME1Label1 = New System.Windows.Forms.Label() + SEARCH_PATTERN1Label1 = New System.Windows.Forms.Label() + SEARCH_PATTERN2Label1 = New System.Windows.Forms.Label() + SEARCH_PATTERN3Label = New System.Windows.Forms.Label() + SEARCH_PATTERN4Label = New System.Windows.Forms.Label() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.SuspendLayout() + CType(Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCE_MENUNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + Me.XtraTabPage4.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(247, 28) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(86, 13) + GUIDLabel.TabIndex = 2 + GUIDLabel.Text = "Constructor-ID:" + ' + 'FORM_TITLELabel + ' + FORM_TITLELabel.AutoSize = True + FORM_TITLELabel.Location = New System.Drawing.Point(247, 69) + FORM_TITLELabel.Name = "FORM_TITLELabel" + FORM_TITLELabel.Size = New System.Drawing.Size(142, 13) + FORM_TITLELabel.TabIndex = 4 + FORM_TITLELabel.Text = "Titel des Kombiformulares:" + ' + 'SEQUENCE_MENULabel + ' + SEQUENCE_MENULabel.AutoSize = True + SEQUENCE_MENULabel.Location = New System.Drawing.Point(247, 112) + SEQUENCE_MENULabel.Name = "SEQUENCE_MENULabel" + SEQUENCE_MENULabel.Size = New System.Drawing.Size(106, 13) + SEQUENCE_MENULabel.TabIndex = 6 + SEQUENCE_MENULabel.Text = "Reihenfolge Menü:" + ' + 'SHORT_TITLELabel + ' + SHORT_TITLELabel.AutoSize = True + SHORT_TITLELabel.Location = New System.Drawing.Point(413, 112) + SHORT_TITLELabel.Name = "SHORT_TITLELabel" + SHORT_TITLELabel.Size = New System.Drawing.Size(60, 13) + SHORT_TITLELabel.TabIndex = 8 + SHORT_TITLELabel.Text = "Kurzname:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(248, 154) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel.TabIndex = 10 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(413, 154) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13) + ADDED_WHENLabel.TabIndex = 12 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(248, 195) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel.TabIndex = 14 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(413, 195) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel.TabIndex = 16 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.AutoSize = True + GUIDLabel1.Location = New System.Drawing.Point(12, 11) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(21, 13) + GUIDLabel1.TabIndex = 18 + GUIDLabel1.Text = "ID:" + ' + 'WINDREAM_SEARCHLabel + ' + WINDREAM_SEARCHLabel.AutoSize = True + WINDREAM_SEARCHLabel.Location = New System.Drawing.Point(5, 11) + WINDREAM_SEARCHLabel.Name = "WINDREAM_SEARCHLabel" + WINDREAM_SEARCHLabel.Size = New System.Drawing.Size(114, 13) + WINDREAM_SEARCHLabel.TabIndex = 34 + WINDREAM_SEARCHLabel.Text = "WINDREAM SEARCH:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Location = New System.Drawing.Point(70, 183) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel1.TabIndex = 43 + ADDED_WHOLabel1.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel1 + ' + ADDED_WHENLabel1.AutoSize = True + ADDED_WHENLabel1.Location = New System.Drawing.Point(236, 183) + ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" + ADDED_WHENLabel1.Size = New System.Drawing.Size(77, 13) + ADDED_WHENLabel1.TabIndex = 44 + ADDED_WHENLabel1.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Location = New System.Drawing.Point(70, 224) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel1.TabIndex = 45 + CHANGED_WHOLabel1.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel1 + ' + CHANGED_WHENLabel1.AutoSize = True + CHANGED_WHENLabel1.Location = New System.Drawing.Point(236, 224) + CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" + CHANGED_WHENLabel1.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel1.TabIndex = 46 + CHANGED_WHENLabel1.Text = "Geändert wann:" + ' + 'SQL_SELECT_EBENE1Label + ' + SQL_SELECT_EBENE1Label.AutoSize = True + SQL_SELECT_EBENE1Label.Location = New System.Drawing.Point(69, 48) + SQL_SELECT_EBENE1Label.Name = "SQL_SELECT_EBENE1Label" + SQL_SELECT_EBENE1Label.Size = New System.Drawing.Size(73, 13) + SQL_SELECT_EBENE1Label.TabIndex = 34 + SQL_SELECT_EBENE1Label.Text = "SQL Ebene 1:" + ' + 'SQL_SELECT_EBENE2Label + ' + SQL_SELECT_EBENE2Label.AutoSize = True + SQL_SELECT_EBENE2Label.Location = New System.Drawing.Point(69, 91) + SQL_SELECT_EBENE2Label.Name = "SQL_SELECT_EBENE2Label" + SQL_SELECT_EBENE2Label.Size = New System.Drawing.Size(73, 13) + SQL_SELECT_EBENE2Label.TabIndex = 36 + SQL_SELECT_EBENE2Label.Text = "SQL Ebene 2:" + ' + 'COLUMN_NAME1Label1 + ' + COLUMN_NAME1Label1.AutoSize = True + COLUMN_NAME1Label1.Location = New System.Drawing.Point(69, 133) + COLUMN_NAME1Label1.Name = "COLUMN_NAME1Label1" + COLUMN_NAME1Label1.Size = New System.Drawing.Size(114, 13) + COLUMN_NAME1Label1.TabIndex = 48 + COLUMN_NAME1Label1.Text = "Spaltenname Entität:" + ' + 'SEARCH_PATTERN1Label1 + ' + SEARCH_PATTERN1Label1.AutoSize = True + SEARCH_PATTERN1Label1.Location = New System.Drawing.Point(5, 52) + SEARCH_PATTERN1Label1.Name = "SEARCH_PATTERN1Label1" + SEARCH_PATTERN1Label1.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN1Label1.TabIndex = 39 + SEARCH_PATTERN1Label1.Text = "SEARCH PATTERN1:" + ' + 'SEARCH_PATTERN2Label1 + ' + SEARCH_PATTERN2Label1.AutoSize = True + SEARCH_PATTERN2Label1.Location = New System.Drawing.Point(5, 92) + SEARCH_PATTERN2Label1.Name = "SEARCH_PATTERN2Label1" + SEARCH_PATTERN2Label1.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN2Label1.TabIndex = 40 + SEARCH_PATTERN2Label1.Text = "SEARCH PATTERN2:" + ' + 'SEARCH_PATTERN3Label + ' + SEARCH_PATTERN3Label.AutoSize = True + SEARCH_PATTERN3Label.Location = New System.Drawing.Point(170, 52) + SEARCH_PATTERN3Label.Name = "SEARCH_PATTERN3Label" + SEARCH_PATTERN3Label.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN3Label.TabIndex = 41 + SEARCH_PATTERN3Label.Text = "SEARCH PATTERN3:" + ' + 'SEARCH_PATTERN4Label + ' + SEARCH_PATTERN4Label.AutoSize = True + SEARCH_PATTERN4Label.Location = New System.Drawing.Point(170, 92) + SEARCH_PATTERN4Label.Name = "SEARCH_PATTERN4Label" + SEARCH_PATTERN4Label.Size = New System.Drawing.Size(104, 13) + SEARCH_PATTERN4Label.TabIndex = 42 + SEARCH_PATTERN4Label.Text = "SEARCH PATTERN4:" + ' + 'DD_ECMAdmin + ' + Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" + Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMO_FORM_CONSTRUCTORBindingSource + ' + Me.TBPMO_FORM_CONSTRUCTORBindingSource.DataMember = "TBPMO_FORM_CONSTRUCTOR" + Me.TBPMO_FORM_CONSTRUCTORBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'TBPMO_FORM_CONSTRUCTORTableAdapter + ' + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + ' + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.ClearBeforeFill = True + ' + 'TBPMO_FORM_CONSTRUCTORBindingNavigator + ' + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.BindingSource = Me.TBPMO_FORM_CONSTRUCTORBindingSource + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem}) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Name = "TBPMO_FORM_CONSTRUCTORBindingNavigator" + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Size = New System.Drawing.Size(1341, 25) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.TabIndex = 0 + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem + ' + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Name = "TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem" + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource + ' + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.DataMember = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'TreeView1 + ' + Me.TreeView1.AllowDrop = True + Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left + Me.TreeView1.ImageIndex = 0 + Me.TreeView1.ImageList = Me.ImageList1 + Me.TreeView1.Location = New System.Drawing.Point(0, 0) + Me.TreeView1.Name = "TreeView1" + Me.TreeView1.SelectedImageIndex = 1 + Me.TreeView1.Size = New System.Drawing.Size(292, 337) + Me.TreeView1.TabIndex = 1 + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "medal_bronze_1.png") + Me.ImageList1.Images.SetKeyName(1, "medal_gold_2.png") + ' + 'CONSTRUCTOR_IDTextBox + ' + Me.CONSTRUCTOR_IDTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CONSTRUCTOR_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "GUID", True)) + Me.CONSTRUCTOR_IDTextBox.Location = New System.Drawing.Point(250, 44) + Me.CONSTRUCTOR_IDTextBox.Name = "CONSTRUCTOR_IDTextBox" + Me.CONSTRUCTOR_IDTextBox.ReadOnly = True + Me.CONSTRUCTOR_IDTextBox.Size = New System.Drawing.Size(83, 22) + Me.CONSTRUCTOR_IDTextBox.TabIndex = 3 + ' + 'FORM_TITLETextBox + ' + Me.FORM_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "FORM_TITLE", True)) + Me.FORM_TITLETextBox.Location = New System.Drawing.Point(250, 85) + Me.FORM_TITLETextBox.Name = "FORM_TITLETextBox" + Me.FORM_TITLETextBox.Size = New System.Drawing.Size(310, 22) + Me.FORM_TITLETextBox.TabIndex = 5 + ' + 'SEQUENCE_MENUNumericUpDown + ' + Me.SEQUENCE_MENUNumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SEQUENCE_MENU", True)) + Me.SEQUENCE_MENUNumericUpDown.Location = New System.Drawing.Point(250, 129) + Me.SEQUENCE_MENUNumericUpDown.Name = "SEQUENCE_MENUNumericUpDown" + Me.SEQUENCE_MENUNumericUpDown.Size = New System.Drawing.Size(43, 22) + Me.SEQUENCE_MENUNumericUpDown.TabIndex = 7 + ' + 'SHORT_TITLETextBox + ' + Me.SHORT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SHORT_TITLE", True)) + Me.SHORT_TITLETextBox.Location = New System.Drawing.Point(416, 128) + Me.SHORT_TITLETextBox.Name = "SHORT_TITLETextBox" + Me.SHORT_TITLETextBox.Size = New System.Drawing.Size(144, 22) + Me.SHORT_TITLETextBox.TabIndex = 9 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(251, 170) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(149, 22) + Me.ADDED_WHOTextBox.TabIndex = 11 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(417, 170) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(144, 22) + Me.ADDED_WHENTextBox.TabIndex = 13 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(251, 211) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(149, 22) + Me.CHANGED_WHOTextBox.TabIndex = 15 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(416, 211) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(144, 22) + Me.CHANGED_WHENTextBox.TabIndex = 17 + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "GUID", True)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(15, 27) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.ReadOnly = True + Me.GUIDTextBox1.Size = New System.Drawing.Size(34, 22) + Me.GUIDTextBox1.TabIndex = 19 + ' + 'LEVEL1_SELECTCheckBox + ' + Me.LEVEL1_SELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LEVEL1_SELECT", True)) + Me.LEVEL1_SELECTCheckBox.Location = New System.Drawing.Point(72, 25) + Me.LEVEL1_SELECTCheckBox.Name = "LEVEL1_SELECTCheckBox" + Me.LEVEL1_SELECTCheckBox.Size = New System.Drawing.Size(122, 24) + Me.LEVEL1_SELECTCheckBox.TabIndex = 25 + Me.LEVEL1_SELECTCheckBox.Text = "Level 1 Auswahl? " + Me.LEVEL1_SELECTCheckBox.UseVisualStyleBackColor = True + ' + 'WINDREAM_SEARCHTextBox + ' + Me.WINDREAM_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "WINDREAM_SEARCH", True)) + Me.WINDREAM_SEARCHTextBox.Location = New System.Drawing.Point(8, 27) + Me.WINDREAM_SEARCHTextBox.Name = "WINDREAM_SEARCHTextBox" + Me.WINDREAM_SEARCHTextBox.Size = New System.Drawing.Size(670, 22) + Me.WINDREAM_SEARCHTextBox.TabIndex = 35 + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Location = New System.Drawing.Point(15, 249) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(1147, 365) + Me.XtraTabControl1.TabIndex = 40 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.XtraTabControl2) + Me.XtraTabPage1.Controls.Add(Me.StatusStrip1) + Me.XtraTabPage1.Controls.Add(Me.ToolStrip1) + Me.XtraTabPage1.Controls.Add(Me.TreeView1) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1141, 337) + Me.XtraTabPage1.Text = "Entitäten-Übersicht" + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(292, 25) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 + Me.XtraTabControl2.Size = New System.Drawing.Size(849, 290) + Me.XtraTabControl2.TabIndex = 35 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4, Me.XtraTabPage5}) + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.AutoScroll = True + Me.XtraTabPage3.Controls.Add(Me.Label4) + Me.XtraTabPage3.Controls.Add(COLUMN_NAME1Label1) + Me.XtraTabPage3.Controls.Add(Me.COLUMN_NAME1ComboBox) + Me.XtraTabPage3.Controls.Add(Me.Label2) + Me.XtraTabPage3.Controls.Add(Me.SQL_SELECT_EBENE1TextBox) + Me.XtraTabPage3.Controls.Add(CHANGED_WHENLabel1) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHENTextBox1) + Me.XtraTabPage3.Controls.Add(SQL_SELECT_EBENE1Label) + Me.XtraTabPage3.Controls.Add(CHANGED_WHOLabel1) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.XtraTabPage3.Controls.Add(Me.SQL_SELECT_EBENE2TextBox) + Me.XtraTabPage3.Controls.Add(ADDED_WHENLabel1) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHENTextBox1) + Me.XtraTabPage3.Controls.Add(ADDED_WHOLabel1) + Me.XtraTabPage3.Controls.Add(GUIDLabel1) + Me.XtraTabPage3.Controls.Add(SQL_SELECT_EBENE2Label) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHOTextBox1) + Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1) + Me.XtraTabPage3.Controls.Add(Me.LEVEL1_SELECTCheckBox) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(843, 262) + Me.XtraTabPage3.Text = "Allgemein" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(189, 133) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(236, 13) + Me.Label4.TabIndex = 51 + Me.Label4.Text = "Dient zur Anzeige der Selektion von Datensätzen" + ' + 'COLUMN_NAME1ComboBox + ' + Me.COLUMN_NAME1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "COLUMN_NAME1", True)) + Me.COLUMN_NAME1ComboBox.FormattingEnabled = True + Me.COLUMN_NAME1ComboBox.Location = New System.Drawing.Point(72, 149) + Me.COLUMN_NAME1ComboBox.Name = "COLUMN_NAME1ComboBox" + Me.COLUMN_NAME1ComboBox.Size = New System.Drawing.Size(247, 21) + Me.COLUMN_NAME1ComboBox.TabIndex = 49 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(186, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(319, 13) + Me.Label2.TabIndex = 48 + Me.Label2.Text = "Kann man für diese Entität auf der ersten Ebene Daten selektieren?" + ' + 'SQL_SELECT_EBENE1TextBox + ' + Me.SQL_SELECT_EBENE1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE1", True)) + Me.SQL_SELECT_EBENE1TextBox.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_SELECT_EBENE1TextBox.Location = New System.Drawing.Point(72, 64) + Me.SQL_SELECT_EBENE1TextBox.Name = "SQL_SELECT_EBENE1TextBox" + Me.SQL_SELECT_EBENE1TextBox.Size = New System.Drawing.Size(757, 20) + Me.SQL_SELECT_EBENE1TextBox.TabIndex = 35 + ' + 'CHANGED_WHENTextBox1 + ' + Me.CHANGED_WHENTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(239, 240) + Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" + Me.CHANGED_WHENTextBox1.ReadOnly = True + Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(160, 22) + Me.CHANGED_WHENTextBox1.TabIndex = 47 + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(73, 240) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.ReadOnly = True + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(160, 22) + Me.CHANGED_WHOTextBox1.TabIndex = 46 + ' + 'SQL_SELECT_EBENE2TextBox + ' + Me.SQL_SELECT_EBENE2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE2", True)) + Me.SQL_SELECT_EBENE2TextBox.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_SELECT_EBENE2TextBox.Location = New System.Drawing.Point(72, 107) + Me.SQL_SELECT_EBENE2TextBox.Name = "SQL_SELECT_EBENE2TextBox" + Me.SQL_SELECT_EBENE2TextBox.Size = New System.Drawing.Size(757, 20) + Me.SQL_SELECT_EBENE2TextBox.TabIndex = 37 + ' + 'ADDED_WHENTextBox1 + ' + Me.ADDED_WHENTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(239, 199) + Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" + Me.ADDED_WHENTextBox1.ReadOnly = True + Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(160, 22) + Me.ADDED_WHENTextBox1.TabIndex = 45 + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(73, 199) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.ReadOnly = True + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(160, 22) + Me.ADDED_WHOTextBox1.TabIndex = 44 + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN4Label) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN4ComboBox) + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN3Label) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN3ComboBox) + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN2Label1) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN2ComboBox) + Me.XtraTabPage4.Controls.Add(SEARCH_PATTERN1Label1) + Me.XtraTabPage4.Controls.Add(Me.SEARCH_PATTERN1ComboBox) + Me.XtraTabPage4.Controls.Add(Me.WINDREAM_SEARCHTextBox) + Me.XtraTabPage4.Controls.Add(WINDREAM_SEARCHLabel) + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(847, 265) + Me.XtraTabPage4.Text = "windream-Suche Konfiguration" + ' + 'SEARCH_PATTERN4ComboBox + ' + Me.SEARCH_PATTERN4ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN4", True)) + Me.SEARCH_PATTERN4ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN4ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN4ComboBox.Location = New System.Drawing.Point(173, 108) + Me.SEARCH_PATTERN4ComboBox.Name = "SEARCH_PATTERN4ComboBox" + Me.SEARCH_PATTERN4ComboBox.Size = New System.Drawing.Size(171, 21) + Me.SEARCH_PATTERN4ComboBox.TabIndex = 43 + ' + 'SEARCH_PATTERN3ComboBox + ' + Me.SEARCH_PATTERN3ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN3", True)) + Me.SEARCH_PATTERN3ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN3ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN3ComboBox.Location = New System.Drawing.Point(173, 68) + Me.SEARCH_PATTERN3ComboBox.Name = "SEARCH_PATTERN3ComboBox" + Me.SEARCH_PATTERN3ComboBox.Size = New System.Drawing.Size(171, 21) + Me.SEARCH_PATTERN3ComboBox.TabIndex = 42 + ' + 'SEARCH_PATTERN2ComboBox + ' + Me.SEARCH_PATTERN2ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN2", True)) + Me.SEARCH_PATTERN2ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN2ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN2ComboBox.Location = New System.Drawing.Point(8, 108) + Me.SEARCH_PATTERN2ComboBox.Name = "SEARCH_PATTERN2ComboBox" + Me.SEARCH_PATTERN2ComboBox.Size = New System.Drawing.Size(156, 21) + Me.SEARCH_PATTERN2ComboBox.TabIndex = 41 + ' + 'SEARCH_PATTERN1ComboBox + ' + Me.SEARCH_PATTERN1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN1", True)) + Me.SEARCH_PATTERN1ComboBox.FormattingEnabled = True + Me.SEARCH_PATTERN1ComboBox.Items.AddRange(New Object() {"@Record-ID", "@EntityID", "@ParentID"}) + Me.SEARCH_PATTERN1ComboBox.Location = New System.Drawing.Point(8, 68) + Me.SEARCH_PATTERN1ComboBox.Name = "SEARCH_PATTERN1ComboBox" + Me.SEARCH_PATTERN1ComboBox.Size = New System.Drawing.Size(156, 21) + Me.SEARCH_PATTERN1ComboBox.TabIndex = 40 + ' + 'XtraTabPage5 + ' + Me.XtraTabPage5.Name = "XtraTabPage5" + Me.XtraTabPage5.Size = New System.Drawing.Size(847, 265) + Me.XtraTabPage5.Text = "XtraTabPage5" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblSaveDetail}) + Me.StatusStrip1.Location = New System.Drawing.Point(292, 315) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(849, 22) + Me.StatusStrip1.TabIndex = 35 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tslblSaveDetail + ' + Me.tslblSaveDetail.BackColor = System.Drawing.Color.Yellow + Me.tslblSaveDetail.Name = "tslblSaveDetail" + Me.tslblSaveDetail.Size = New System.Drawing.Size(191, 17) + Me.tslblSaveDetail.Text = "Eingaben erfolgreich gespeichert - " + Me.tslblSaveDetail.Visible = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave}) + Me.ToolStrip1.Location = New System.Drawing.Point(292, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(849, 25) + Me.ToolStrip1.TabIndex = 34 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'tsbtnSave + ' + Me.tsbtnSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnSave.Name = "tsbtnSave" + Me.tsbtnSave.Size = New System.Drawing.Size(79, 22) + Me.tsbtnSave.Text = "Speichern" + ' + 'TreeView_Free + ' + Me.TreeView_Free.ImageIndex = 0 + Me.TreeView_Free.ImageList = Me.ImageList1 + Me.TreeView_Free.Location = New System.Drawing.Point(1182, 62) + Me.TreeView_Free.Name = "TreeView_Free" + Me.TreeView_Free.SelectedImageIndex = 1 + Me.TreeView_Free.Size = New System.Drawing.Size(139, 498) + Me.TreeView_Free.TabIndex = 41 + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBPMO_FORM_CONSTRUCTORBindingSource + Me.ListBox1.DisplayMember = "FORM_TITLE" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(15, 44) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(224, 199) + Me.ListBox1.TabIndex = 42 + Me.ListBox1.ValueMember = "GUID" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 28) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(128, 13) + Me.Label1.TabIndex = 43 + Me.Label1.Text = "Alle Constructor-Forms:" + ' + 'TBPMO_FORM_CONSTRUCTORTableAdapter1 + ' + Me.TBPMO_FORM_CONSTRUCTORTableAdapter1.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'frmConstructorDesigner + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1341, 837) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.TreeView_Free) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(CHANGED_WHENLabel) + Me.Controls.Add(Me.CHANGED_WHENTextBox) + Me.Controls.Add(CHANGED_WHOLabel) + Me.Controls.Add(Me.CHANGED_WHOTextBox) + Me.Controls.Add(ADDED_WHENLabel) + Me.Controls.Add(Me.ADDED_WHENTextBox) + Me.Controls.Add(ADDED_WHOLabel) + Me.Controls.Add(Me.ADDED_WHOTextBox) + Me.Controls.Add(SHORT_TITLELabel) + Me.Controls.Add(Me.SHORT_TITLETextBox) + Me.Controls.Add(SEQUENCE_MENULabel) + Me.Controls.Add(Me.SEQUENCE_MENUNumericUpDown) + Me.Controls.Add(FORM_TITLELabel) + Me.Controls.Add(Me.FORM_TITLETextBox) + Me.Controls.Add(GUIDLabel) + Me.Controls.Add(Me.CONSTRUCTOR_IDTextBox) + Me.Controls.Add(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmConstructorDesigner" + Me.Text = "Designer " + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.ResumeLayout(False) + Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.PerformLayout() + CType(Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCE_MENUNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPage3.ResumeLayout(False) + Me.XtraTabPage3.PerformLayout() + Me.XtraTabPage4.ResumeLayout(False) + Me.XtraTabPage4.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Friend WithEvents TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TreeView1 As System.Windows.Forms.TreeView + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Friend WithEvents CONSTRUCTOR_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents FORM_TITLETextBox As System.Windows.Forms.TextBox + Friend WithEvents SEQUENCE_MENUNumericUpDown As System.Windows.Forms.NumericUpDown + Friend WithEvents SHORT_TITLETextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents LEVEL1_SELECTCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents WINDREAM_SEARCHTextBox As System.Windows.Forms.TextBox + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TreeView_Free As System.Windows.Forms.TreeView + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter1 As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents tslblSaveDetail As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents tsbtnSave As System.Windows.Forms.ToolStripButton + Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents XtraTabPage5 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SQL_SELECT_EBENE1TextBox As System.Windows.Forms.TextBox + Friend WithEvents SQL_SELECT_EBENE2TextBox As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents COLUMN_NAME1ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents SEARCH_PATTERN4ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents SEARCH_PATTERN3ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents SEARCH_PATTERN2ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents SEARCH_PATTERN1ComboBox As System.Windows.Forms.ComboBox +End Class diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.resx b/app/DD-Record-Organiser/frmConstructorDesigner.resx new file mode 100644 index 0000000..a67b8a4 --- /dev/null +++ b/app/DD-Record-Organiser/frmConstructorDesigner.resx @@ -0,0 +1,427 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 160, 17 + + + 461, 17 + + + 757, 17 + + + 17, 56 + + + 930, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 1248, 17 + + + 356, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS + CQAAAk1TRnQBSQFMAgEBAgEAAaABCAGgAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgA + AfQBeQFSAisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKa + AZMEdAF1AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0 + AVMEAAFZAcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQA + ATgBwwSaBXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKa + AcMFmgR6JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPD + AZoBegFYARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEI + AXgFlwGYAUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFP + JgAB4wGUBRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEB + BQABgBcAA/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQA + AcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQA + AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHBAAL + + + + 304, 95 + + + 197, 95 + + + 969, 56 + + + 1277, 56 + + + 17, 95 + + + 250 + + + + AAABAAQAEBAQAAAAAAAoAQAARgAAABAQAAAAAAAAaAUAAG4BAAAgIBAAAAAAAOgCAADWBgAAICAAAAAA + AACoCAAAvgkAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA + AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA + AAAA//8AAAAAAAD//wAAAAAAAP/wcAAABwAA//AAAAAAAA///wAAAAAAD///8AAAAAAP//8Ad3eQAA// + /wd3d3AAAAAABwdwcAAAAAEAAAAIAAAAAAAAiIgAAAAAAIiIgAAAAAAAgIiIcAAAAAAACAAAAAAAAAAA + AACAA///gAH//4AB//+AAf//gAH//wAD//8AB///AAP//wAD//8AA///8AD///AA///wAf//+AD///gA + ///5J///KAAAABAAAAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAIAAAIAAAACA + gACAAAAAgACAAICAAADAwMAAwNzAAPDKpgAEBAQACAgIAAwMDAAREREAFhYWABwcHAAiIiIAKSkpAFVV + VQBNTU0AQkJCADk5OQCAfP8AUFD/AJMA1gD/7MwAxtbvANbn5wCQqa0AAAAzAAAAZgAAAJkAAADMAAAz + AAAAMzMAADNmAAAzmQAAM8wAADP/AABmAAAAZjMAAGZmAABmmQAAZswAAGb/AACZAAAAmTMAAJlmAACZ + mQAAmcwAAJn/AADMAAAAzDMAAMxmAADMmQAAzMwAAMz/AAD/ZgAA/5kAAP/MADMAAAAzADMAMwBmADMA + mQAzAMwAMwD/ADMzAAAzMzMAMzNmADMzmQAzM8wAMzP/ADNmAAAzZjMAM2ZmADNmmQAzZswAM2b/ADOZ + AAAzmTMAM5lmADOZmQAzmcwAM5n/ADPMAAAzzDMAM8xmADPMmQAzzMwAM8z/ADP/MwAz/2YAM/+ZADP/ + zAAz//8AZgAAAGYAMwBmAGYAZgCZAGYAzABmAP8AZjMAAGYzMwBmM2YAZjOZAGYzzABmM/8AZmYAAGZm + MwBmZmYAZmaZAGZmzABmmQAAZpkzAGaZZgBmmZkAZpnMAGaZ/wBmzAAAZswzAGbMmQBmzMwAZsz/AGb/ + AABm/zMAZv+ZAGb/zADMAP8A/wDMAJmZAACZM5kAmQCZAJkAzACZAAAAmTMzAJkAZgCZM8wAmQD/AJlm + AACZZjMAmTNmAJlmmQCZZswAmTP/AJmZMwCZmWYAmZmZAJmZzACZmf8AmcwAAJnMMwBmzGYAmcyZAJnM + zACZzP8Amf8AAJn/MwCZzGYAmf+ZAJn/zACZ//8AzAAAAJkAMwDMAGYAzACZAMwAzACZMwAAzDMzAMwz + ZgDMM5kAzDPMAMwz/wDMZgAAzGYzAJlmZgDMZpkAzGbMAJlm/wDMmQAAzJkzAMyZZgDMmZkAzJnMAMyZ + /wDMzAAAzMwzAMzMZgDMzJkAzMzMAMzM/wDM/wAAzP8zAJn/ZgDM/5kAzP/MAMz//wDMADMA/wBmAP8A + mQDMMwAA/zMzAP8zZgD/M5kA/zPMAP8z/wD/ZgAA/2YzAMxmZgD/ZpkA/2bMAMxm/wD/mQAA/5kzAP+Z + ZgD/mZkA/5nMAP+Z/wD/zAAA/8wzAP/MZgD/zJkA/8zMAP/M/wD//zMAzP9mAP//mQD//8wAZmb/AGb/ + ZgBm//8A/2ZmAP9m/wD//2YAIQClAF9fXwB3d3cAhoaGAJaWlgDLy8sAsrKyANfX1wDd3d0A4+PjAOrq + 6gDx8fEA+Pj4APD7/wCkoKAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAFBQUFBQUFBQU + FBQUFAAAABT09PT0FBQUFBQUEhIUAAAU9PT09BQUFBQUFBIUFAAAFPT09BSaFBQUFBIUmhQAABT09PQU + FBQUFBQSEhQUABT09PT09BQUFBQUFBISAAAU9PT09PT0FBQUFBQUAAAAFPT09PT0FBSampqadRQAABT0 + 9PT09BSampqampoUAAAUFBQUFBQUmhSamhSaFAAAAAAAABQQFBQUFBQUFK8UFAAAAAAUQ0MUZ2eugo2v + FBQAAAAAFBQUFOvrgo2NFBQAAAAAAAAUFGbrZ4KCja+wFAAAAAAAFBQUFBQUghQUFBQAAAAAABQUABQU + ABQUAAAAgAP//4AB//+AAf//gAH//4AB//8AA///AAf//wAD//8AA///AAP///AA///wAP//8AH///gA + ///4AP//+Sf//ygAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA + AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAICIg4iIiAAAAAAIeP//8AAIiIiIiIhwAAAACHj///AAgIiIiIiHcAAAAI + eP///wADiIiIiIiHAAAACHj///8ACAiIiIiIAAAAAAh4///wd3CIiIiIgHdwAAAIeIiIAHdwiIiIiIB3 + cAAACHiHdwAAAAiIiIiIAAAAAIePh4gAAACIiIiIiId3AACHj4ePAAAAiIiIiIh4dwAAh4h4//AACAAA + AACIh3AAAIeIeP/wAAAHd3d3AIdwAACHiHj//wAHdwAAB5kAAAAIePiI////B3d3d3d5AAAACHj///// + 8Hd3d3d3d5AAAAh4//////B3d3d3d3eQAAAIeP/////wdwcHdwcHkAAAAAAAAAAAAHeAh3eAh5AAAAAA + AAAAAAB3d3d3d3AAAAAAAAAAAAEAd3d3AAAIiAAAAAAAAAAAAAAAAAiIiIh3cAAAAAAAAAAACDCIiIh3 + hwAAAAAAAAAAAIAIOIiHiAAAAAAAAAAAAAAAgIiIiHAAAAAAAAAAAAAACAiIiHiHAAAAAAAAAAAAAACA + iIeHh3AAAAAAAAAAAAgICIiIh4d3cAAAAAAAAAAAAIAIhYAAAAAAAAAAAAAAAAgAAIiAAAAAAAAAAAAA + AAAAAAAIcAAAAAAAAAAAAAAAAAAAAAAAAAD//AAf4AAAD+AAAAfgAAAHwAAAB8AAAAfAAAADwAAAA8AA + AAGAAAABgAAAAYAAAAOAAAADgAAABwAAAB8AAAAPAAAADwAAAA8AAAAP/+AAD//AAAD/gAAA/4AAAf8A + AAP/AAAP//AAB//wAAH/4AAA/+AAAP/BCD//xxw///+ePygAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAA + AAAAAAAAAAEAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDcwADwyqYABAQEAAgI + CAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ/wCTANYA/+zMAMbW + 7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz/wAAZgAAAGYzAABm + ZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADMZgAAzJkAAMzMAADM + /wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMzZgAzM5kAMzPMADMz + /wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ/wAzzAAAM8wzADPM + ZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYAmQBmAMwAZgD/AGYz + AABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZMwBmmWYAZpmZAGaZ + zABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8AzACZmQAAmTOZAJkA + mQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz/wCZmTMAmZlmAJmZ + mQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/mQCZ/8wAmf//AMwA + AACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxmMwCZZmYAzGaZAMxm + zACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzMzADMzP8AzP8AAMz/ + MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8zzAD/M/8A/2YAAP9m + MwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/MMwD/zGYA/8yZAP/M + zAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEApQBfX18Ad3d3AIaG + hgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICAgAAAAP8AAP8AAAD/ + /wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAUFBQUFBQUFBQUFBQUAAAAAAAAAAAUFBQUFBQU + FBQUFBJtEm1t627s7JLskpIUAAAAAAAAABTr8ev09PT09BQUEhJtbW3r6+vs7JKSku8UAAAAAAAAFOvx + 6/T09PT0FBQSbRJt623r7OzskpLv7xQAAAAAABTr8ev09PT09PQUEhJKbW1t6+vs65LskpLvFAAAAAAA + FOvx6/T09PT09BQUFG0SbW3r7OuN7JKSFBQUAAAAAAAU6/Hr9PT09PQUmpqaFG1tbevr7HOS7BSampoU + AAAAABTr8evr6+vrFBSampoUbW1t6+vr7OySFJqamhQAAAAAFOvx6+vx8fEUFBQUFBISbett6+zs7JKS + FBQUFBQAABTr8ev06/Hr6xQUFBQSEm1tbevr7OuS7JKS7+/vFAAAFOvx6/Tr8ev0FBQUEhQSbW3rbevs + 7OySku+S7wcUAAAU6/Hr6/Hr9PT0FBQUEm0SFBQUFBQUFJKSku8HFAAAABTr8evr8ev09PQUFBQSFBSa + mpqampqaFBSS7+8UAAAAFOvx6+vx6/T09PQUFBSampoUFBQUFJp1dRQUFAAAABTr8ev06+vr9PT09PT0 + FJqampqampqampp1FAAAAAAAFOvx6/T09PT09PT09BSampqampqampqampp1FAAAAAAU6/Hr9PT09PT0 + 9PT0FJqampqampqampqamnUUAAAAABTr8ev09PT09PT09PQUmpoUmhSampoUmhSadRQAAAAAFBQUFBQU + FBQUFBQUFBSamuwU7JqamuwU7Jp1FAAAAAAAAAAAAAAAAAAAABQUFJqampqampqampqaFBQUAAAAAAAA + AAAAAAAAAAAUEGcUmpqampqaFBQUFBSvjq8UFBQUAAAAAAAAAAAAFD1mQxQUFBQUFBRnjY2Ngo6vjrC2 + sBQAAAAAAAAAAAAUQ0NEZxRnZ21oZ42CjY2vjbCwr7AUAAAAAAAAAAAAFENDRENmRGdtZ2euaK6Ngo2w + jq8UFAAAAAAAAAAAAAAUFBQUFBRnFGdn62eNgo2Nja+wFAAAAAAAAAAAAAAAAAAAAAAUEhRnZ+tnjYKN + jY2wjq+wFAAAAAAAAAAAAAAAAAAAABRnZ2dnZ41njY2CsI2wjrC2FBQAAAAAAAAAAAAAAAAUEkRmbWfr + Z42Ngo2NjbCvsLDRthQAAAAAAAAAAAAAABQUZ0QUZ2eNZxSNjYivFBQUFBQUFAAAAAAAAAAAAAAUREMU + FAAU62cUABSCr44UAAAAAAAAAAAAAAAAAAAAABQUFAAAABRnFAAAABSNsBQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAABQUAAAAABQUFAAAAAAAAP/8AB/gAAAP4AAAB+AAAAfAAAAHwAAAB8AAAAPAAAADwAAAAYAA + AAGAAAABgAAAA4AAAAOAAAAHAAAAHwAAAA8AAAAPAAAADwAAAA//4AAP/8AAAP+AAAD/gAAB/wAAA/8A + AA//8AAH//AAAf/gAAD/4AAA/8EIP//HHD///54/ + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.vb b/app/DD-Record-Organiser/frmConstructorDesigner.vb new file mode 100644 index 0000000..fee0e65 --- /dev/null +++ b/app/DD-Record-Organiser/frmConstructorDesigner.vb @@ -0,0 +1,164 @@ +Public Class frmConstructorDesigner + Dim formloaded As Boolean = False + Private Sub TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Click + Me.Validate() + Me.TBPMO_FORM_CONSTRUCTORBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DD_ECMAdmin) + + End Sub + + Private Sub frmConstructorDesigner_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin1.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen. + Try + formloaded = False + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString + Load_Head() + Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE" + Dim DTFORMS As DataTable = ClassDatabase.Return_Datatable(sql1, "") + 'FORM_IDComboBox.DataSource = DTFORMS + 'FORM_IDComboBox.DisplayMember = DTFORMS.Columns(1).ColumnName + 'FORM_IDComboBox.ValueMember = DTFORMS.Columns(0).ColumnName + + Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.FORM_TYPE_ID IN (1,2) AND T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE" + Dim DTParent As DataTable = ClassDatabase.Return_Datatable(sql2, "") + 'PARENT_IDComboBox.DataSource = DTParent + 'PARENT_IDComboBox.DisplayMember = DTParent.Columns(1).ColumnName + 'PARENT_IDComboBox.ValueMember = DTParent.Columns(0).ColumnName + + Catch ex As Exception + MsgBox("Error Loading Form:" & vbNewLine & ex.Message) + End Try + End Sub + Sub Load_Head() + Try + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR) + Catch ex As Exception + MsgBox("Error Loading Form:" & vbNewLine & ex.Message) + End Try + End Sub + Private Sub Load_Detail(ID As Integer) + Try + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL, ID) + Catch ex As System.Exception + MsgBox("Error Loading Details:" & vbNewLine & ex.Message) + End Try + + End Sub + + Private Sub frmConstructorDesigner_Shown(sender As Object, e As EventArgs) Handles Me.Shown + formloaded = True + Load_TreeViewEbene() + End Sub + Sub Load_TreeViewEbene() + Try + Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0 AND FORM_TYPE_ID = 1 AND CONSTRUCT_ID = " & CONSTR_ID) + If DT.Rows.Count = 1 Then + TreeView1.Nodes.Clear() + For Each rowEbene0 As DataRow In DT.Rows + Dim Node As TreeNode + Node = TreeView1.Nodes.Add("E1: " & rowEbene0.Item("FORM_TITLE").ToString) + Node.Tag = rowEbene0.Item("GUID") + 'Jetzt die Ebene1Knoten einhängen + Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, CONSTRUCT_ID, FORM_ID, FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = " & rowEbene0.Item("FORM_ID") & _ + " AND FORM_TYPE_ID in (2,5) AND CONSTRUCT_ID = " & CONSTR_ID & " ORDER BY SEQUENCE") + If dtEbene1.Rows.Count > 0 Then + For Each rowEbene1 As DataRow In dtEbene1.Rows + Dim Node1 As TreeNode + Node1 = Node.Nodes.Add("E2: " & rowEbene1.Item("FORM_TITLE").ToString) + Node1.Tag = rowEbene1.Item("GUID") + 'Jetzt die Ebene2 Knoten einhängen + Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, CONSTRUCT_ID, FORM_ID, FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = " & rowEbene1.Item("FORM_ID") & _ + " AND FORM_TYPE_ID in (3,5) AND CONSTRUCT_ID = " & CONSTR_ID & " ORDER BY SEQUENCE") + If dtEbene2.Rows.Count > 0 Then + For Each rowEbene2 As DataRow In dtEbene2.Rows + Dim Node2 As TreeNode + Node2 = Node1.Nodes.Add("E3: " & rowEbene2.Item("FORM_TITLE").ToString) + Node2.Tag = rowEbene2.Item("GUID") + Next + End If + + Next + + End If + Next + TreeView1.ExpandAll() + TreeView1.Nodes(0).EnsureVisible() + Else + MsgBox("Achtung Konfigurationsfehler: Mehrere oder keine Level 0 Entität gefunden!" & "Korrigieren Sie bitte Ihre Eingaben", MsgBoxStyle.Exclamation) + End If + Catch ex As Exception + MsgBox("Error in Load_TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub TBPMO_FORM_CONSTRUCTORBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingSource.CurrentChanged + If formloaded = True Then + Try + If CONSTRUCTOR_IDTextBox.Text <> "" Then + Load_TreeViewEbene() + End If + Catch ex As Exception + MsgBox("Error Loading Construct-Data:" & vbNewLine & ex.Message) + End Try + End If + End Sub + + Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect + Try + If Not TreeView1.SelectedNode Is Nothing Then + Dim construct_id As Integer = Integer.Parse(TreeView1.SelectedNode.Tag) + Me.tslblSaveDetail.Visible = False + Load_Detail(construct_id) + + End If + Catch ex As Exception + MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub LEVEL1_SELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LEVEL1_SELECTCheckBox.CheckedChanged + Try + If LEVEL1_SELECTCheckBox.Checked Then + SQL_SELECT_EBENE1TextBox.Enabled = True + Else + SQL_SELECT_EBENE1TextBox.Enabled = False + End If + Dim view As String + If SQL_SELECT_EBENE1TextBox.Text <> "" Then + view = SQL_SELECT_EBENE1TextBox.Text.ToUpper.Replace("SELECT * FROM ", "") + view = view.Trim + Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')" + If LogErrorsOnly = False Then ClassLogger.Add(">> " & Sql, False) + Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql) + If DT IsNot Nothing Then + COLUMN_NAME1ComboBox.Items.Clear() + For Each row As DataRow In DT.Rows + COLUMN_NAME1ComboBox.Items.Add(row.Item(0)) + Next + End If + End If + Catch ex As Exception + MsgBox("Error in LEVEL1_SELECTCheckBox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click + Try + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit() + If DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox1.Text = Environment.UserName + Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit() + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL) + tslblSaveDetail.Text = "Constructor-Details erfolgreich gespeichert - " & Now + Me.tslblSaveDetail.Visible = True + Else + Me.tslblSaveDetail.Visible = False + End If + + Catch ex As Exception + MsgBox("Error in Save Constructor-Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub +End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmNewKombiForm.Designer.vb b/app/DD-Record-Organiser/frmNewKombiForm.Designer.vb new file mode 100644 index 0000000..4f6ca34 --- /dev/null +++ b/app/DD-Record-Organiser/frmNewKombiForm.Designer.vb @@ -0,0 +1,113 @@ + _ +Partial Class frmNewKombiForm + 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.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.OK_Button = New System.Windows.Forms.Button() + Me.Cancel_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(154, 67) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(172, 29) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'OK_Button + ' + Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.OK_Button.Location = New System.Drawing.Point(6, 3) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(74, 23) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "OK" + ' + 'Cancel_Button + ' + Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel_Button.Location = New System.Drawing.Point(89, 3) + Me.Cancel_Button.Name = "Cancel_Button" + Me.Cancel_Button.Size = New System.Drawing.Size(80, 23) + Me.Cancel_Button.TabIndex = 1 + Me.Cancel_Button.Text = "Abbrechen" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(9, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(318, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "BItte bestimmen Sie den Namen des Neuen Kombiformulares" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(12, 36) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(315, 22) + Me.TextBox1.TabIndex = 2 + Me.TextBox1.Text = "Neuer Formularname" + ' + 'frmNewKombiForm + ' + Me.AcceptButton = Me.OK_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel_Button + Me.ClientSize = New System.Drawing.Size(338, 108) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmNewKombiForm" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Neues Kombiformular" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents Cancel_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + +End Class diff --git a/app/DD-Record-Organiser/frmNewKombiForm.resx b/app/DD-Record-Organiser/frmNewKombiForm.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD-Record-Organiser/frmNewKombiForm.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmNewKombiForm.vb b/app/DD-Record-Organiser/frmNewKombiForm.vb new file mode 100644 index 0000000..b57aa46 --- /dev/null +++ b/app/DD-Record-Organiser/frmNewKombiForm.vb @@ -0,0 +1,37 @@ +Imports System.Windows.Forms + +Public Class frmNewKombiForm + + Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.OK + STRING1 = Me.TextBox1.Text + + Dim Sql = "select count(*) from TBPMO_FORM_CONSTRUCTOR where UPPER(FORM_TITLE) = UPPER('" & STRING1 & "')" + Dim exists As Integer = ClassDatabase.Execute_Scalar(sql, True) + If exists = 1 Then + MsgBox("Achtung: Dieser Name existiert bereits!" & vbNewLine & "Bitte wählen Sie einen anderen Namen!", MsgBoxStyle.Exclamation) + Exit Sub + End If + + Sql = "EXEC [PRPMO_CREATE_CONSTRUCTOR] " & INTEGER1.ToString & ", '" & STRING1 & "'" + If ClassDatabase.Execute_non_Query(Sql, True) = True Then + Dim result As MsgBoxResult = MsgBox("Das Kombiformular wurde erfolgreich erzeugt!" & vbNewLine & "Wollen Sie die Konfiguration anzeigen?", MsgBoxStyle.YesNo, "Frage:") + If result = MsgBoxResult.Yes Then + Dim frm As New frmConstructorDesigner + frm.MdiParent = frmMain + frm.Show() + Me.Close() + Else + Me.Close() + End If + + End If + + End Sub + + Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + +End Class

={4^ZidAM3m zqY$5f+1XOjbY9vi&-M%7|_N zD>D<-DwMK6z;bI~*a9q7Yk({wzf$B(bOJppaubnCr65VtR)sC{G6I;wzFJa5B|{3f zPO9dFR@%h(7jyE=oN%3Ha3vCnjJCG6+WmgNeh(Oifw=equSFaW(ra)mcDc8acp$Ad4B-s%+o(B%i(?i00005nA-%a4+}V@4MeQ=X-`y3jgzYw>wNE z5*85;QH)9{yJ+p8psh^O`jOT<6p7*CVPX8KfWSR;_8=4r^@hV?1cN~Y0s-iIg+c*q zYin3oSU@(LeL-jE{vwFSxdb>guXioAv$#n*<*5Hy`WXQQPW*6cdmY2Ttw-e0$D< zqaN8z#w|mGW3d>h51UPtLPm+;LQQZlc;O8^zCL=zMme9t5H5`|cvg>BpLcs$jf zxCG0uPt=msOa7)qbpR=MGBleFu}53-T&&w)_lJ{Jx~u`zUtWTQOqxag+{>}`{DQbNeQdIy48b9rSiL# zC6`Zp{;*Nvjc6UXh2@nJxZ_mw+E|fD1lnZjbb3?4R`T=Xp3_u9+hV@?dRh&Pb$`hO z^{g$+a)J7F4c1oHE}WT}$&jIjs!sg$u&Y-IA=}T-C#R>U_mRYF6eHB}20eG}zFaPc za=EO5_o}SsPR>ZNH7>oZDE@tO)zS}tOzLs*7*_U2LziGsj{-j#a56ArVvC0 zwUPw!tx*)8xV~;?4&22hkrX*FoHKK0zWHYOE++^A{Lhh{JK1bjfq<{j-kwgUr+7a> z!{@1v_Yb^3qhrLcX#X? z#r_H)&Love83Rft!?_uVxNIsu9*>t9P_kIWaU4q)V-ktvG6NBS<}DNo(CKtQuh+Ak zxZQ4+Q>)dW*=)jaI5fm!u@Cin{nG=0-EIfzbej3mXcX4#HFUdO21wwcP>3ydFc@&9 zQt2b=!gw#FR4Vlgg=5U;^YG^S8d5hmP_0&hMCI{#s0b#L33Ugn)w;t5S3J+p?-|gn z#bOaO8V&OUfdKQv;V|fQI#{h%q(Vp}65wz+7MNntYPE{<5#FI>d0f^N`7{c#i^t{MPIBK0?KDG%qc&(P%JX+3j{9wPMZ`mn_NU za>EAzE|*Jcu~L1E-$)@F1-w)3&R|k zpe8{Z8<~c8GL+Q$?>DkG77MrB>ib*oIq``rr5B#_9^P}_=lwfJ$Ye4I1OislR|zeK zVbqYWCeYUSM0$zz3qqi|xmm|wBKZCO<8;X*Nm5-|Ss83L8wv^vz=$_CHjqpv5e|nD zi^V>Y?WWu9Ue99i`F!tXS!UrfyNRl*nP4!OdF<_2YxlP1Fme+XT27Rfmg0ZnbUKmN zQchLT0^98(MdnP?)6=lq?HnZ~C0I!=;+^~kYsqD3nhs6X;Vdi{?VA1UEzfmtU&~-q z7JwZi{gIM{t3{_E4UR1%)L*WJg$bH{MmVw30fE`e?I2IEj?l`hAghYH3 zt$W+>w6P28pTBBza%f!nsWhE`b~-<+1YOrT3B$cZ4>?gZ8b$I)lH1swJjJS$^EqF~ zm_fejtPITPCdn3|s^RUIA%3SpXiSi^{?8N`Oh=PY(SA|m3=BsGkWx0eT~QP?b~cPr zKhDrN8M!R7Nbz_a^b+|5(&_XcW=k#xvLap&a?YNRF|tvD>5s;|fF{5;0S zC%l5k;M1&07*qoM6N<$f3^_07cLZBR}_>&jXObH zw2it@svr%qE?kJ(Xuudu+DSW|WWK!jNvbU^UO02#+Tt zYOko4%Vx8c4Gh!M(=Qem7g;XcE?n0Qi^XD?&*vX7@xPFCIh;%;@xMr?(;$(vo9j9i z6;riZMJyIWG#Z6r7^-I5HtO{{DwPWQ`}>&y+Y;!yjz*&a$8prX=XtO!3$0d5J>%Mz z1f8>Jnx-7^X2#7Yb#zC2VYfZ>c17@L{s)8{OuWBa3WHFfVXfhLv2t?V0V~q5R2D*D z&315l_#iF}b>Zoo?-;+7*`WOJWsMw(x3WXv`@U*s@Y-&edFEYpz0skP)dFfu zZ4wIp&Vbb!+|0+3Qa}p<*AH-eY>3q8s6?RA)zqP8W39IT5HLFG9m1F);gE|P`L7@@ zctjKsn1rA6!ZZR%R^(SjU!r=2o$yGp<$KViK~{B;AIcgvN+J+&Nvur+W(Sw&=H?z} zGMRW^U!Nl3AvWzQ3~C%Z*G*(?qLfNCq;tpg2yRW4@yl9;p3CK)O-@c8Sy))OUMiKc zQp#QYFZe-*@LZDInR^#F=Bm=!vA2i6tkEJ#i0aggzp2D%3!>h~r~3uLt(-IMoyFAT&uF!>{(iS?1OX-eX zKw9bunxR5FrF6QaYs~9>A4#zW^dwIvCpq(+cfR?U`T6-{9LHUqo16RKcDwUVr?cX4 zIN~hJDs48~aRAJ}U_2g=KAB9SP$;0;Y@*$6Ly{z<(`i^NmbL#1W@l#$wOS3;YPBOE zJ;7`?L*?Ga6XzC292wl75}>gDz`(>h?is$JPxm#0jGnotoK|nAVM5$DQ z!C*kO-aeF@+Ejy?nVHEp8V&F~k7BWicsx!aH9kHLRpcQ?L&JFBAB4i&kAaVUxVvzh z3a-EY0%m%8nhI7|SE(QpiBL#sG#VUMM9}*(0mg2(Q$Zq;z|PJNd_Euiem@;jtJN@i za|c2MmsL?PR;yKNwOUA}QuO=7;V@#c7!{~gs?J7hAlsE7U#g?$aRkhSTqLq6iuCu9 z10_j_=;?Dc?4cZ386qH0HkgHTDT|HmGR`W4V2noNQJqfLJEot)q{V_UtsW+m31cP~ zDwWEi3HYBSoF4M;T?VaIdqinn1HZ9}32qs-PdwPbCf+WI6n9jl0-8cjV3%1FB%B&r z+`mzSliyLSH0dxYE}rk&=!uCa*V>()2znj`_XYjtbt>@4FLHnJE|G`xv)Ba@oLBny z1%3K7c4fiB^4{k6E8Pif0kNy62}b@9+C4}Mrzlg<+1Y8PEBfUp0jJpx4B>@E+cy3`^(Gw`Mf+2&yxZm<$to~Vpgvg&QKNR z_f#1(r6svZt%iF?s+n<8X?B&!h3g9Dbb8_=MX}!;HiQSAh`bp^WMl~Z-44teO7W_Y zV4thSL{h;rJY7!l3%5J4H1!tIzB`Dv+YxO(haWeausGZYkI8^hWj6mzo=L0{%;yxzh{5!Htr?51 zvG|W62MzC8BZ76hRpCyO2zOn<%e)K>NHge!-~)Ap33OdWw6hsLYbCxGNt0%wk_2z7 zfyYvXheSG)5HRK1VB~%mq7Dmurw#bi@hEcOr3&G1ZiF*$M=&9nB#VNf&Q^r$4G5kp zTURh&s)E0%5&hyVD}sp<72~zmAY`Y(9aqO6CXF%=zFHGzO-A&I(pE}v70YQxCPJ{Y z4L+?5-crdLn3ZRPEs!A4ehEY3ZRpL~w9>@aMN+{F4dI@v&>(QDHQum!mG~E^$OS8l z!7?%Uwib*ROP67Hw`ika)gX-(8Ia`-u_IEhxG7U<13kSsMW+$lbb2dUMm5p6pa}cjgA+U$^mJ^AjD?&bdi)8~y+Q002ovPDHLkV1g8IMc@Dc literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/dtp.PNG b/app - Kopie/DD-Record-Organiser/Resources/dtp.PNG new file mode 100644 index 0000000000000000000000000000000000000000..3a835b3b9246f9f25f3372a082431147cb1dd831 GIT binary patch literal 897 zcmV-{1AhF8P)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0~Sd{K~!i%?ODre z6hRctf5Z=nD{<*2xE*&g;0GjR<3ec{$_POhjhmndqJzR91O`DjZbZW1FpDg*@e3q` z7*wK5iTLE&)zwvftEL{ed#Z*BR6{}c^zHjNb?&2*B}i9703ooH&`1bi1dN2ZGuQ#@ zI&=9h=qo{ddJ(V^f*KMd!(=j%i#@07^db<15P}q&ox$PkYAX$+ zo~m2eDQz4Kp|i3M{ew{Ev{-@%ha;SDe0|;d{jl;^H_C%iucagxO~(TaG80~#1A8q$ozCAPigs62JHc<9|P0u(7brzuzqSydY;*0OuW=S3FS%Pk}4xfTm zRzCtHLikP=tTKdc8Ggr;L>vT2grNTCQ^>_}HEEp(0$xJQ!--^LaS%v^Se(6B2v7b4 X*6TTV6ENjq00000NkvXXu0mjfUCxeg literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/dtp1.PNG b/app - Kopie/DD-Record-Organiser/Resources/dtp1.PNG new file mode 100644 index 0000000000000000000000000000000000000000..3a835b3b9246f9f25f3372a082431147cb1dd831 GIT binary patch literal 897 zcmV-{1AhF8P)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0~Sd{K~!i%?ODre z6hRctf5Z=nD{<*2xE*&g;0GjR<3ec{$_POhjhmndqJzR91O`DjZbZW1FpDg*@e3q` z7*wK5iTLE&)zwvftEL{ed#Z*BR6{}c^zHjNb?&2*B}i9703ooH&`1bi1dN2ZGuQ#@ zI&=9h=qo{ddJ(V^f*KMd!(=j%i#@07^db<15P}q&ox$PkYAX$+ zo~m2eDQz4Kp|i3M{ew{Ev{-@%ha;SDe0|;d{jl;^H_C%iucagxO~(TaG80~#1A8q$ozCAPigs62JHc<9|P0u(7brzuzqSydY;*0OuW=S3FS%Pk}4xfTm zRzCtHLikP=tTKdc8Ggr;L>vT2grNTCQ^>_}HEEp(0$xJQ!--^LaS%v^Se(6B2v7b4 X*6TTV6ENjq00000NkvXXu0mjfUCxeg literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/email_edit.png b/app - Kopie/DD-Record-Organiser/Resources/email_edit.png new file mode 100644 index 0000000000000000000000000000000000000000..244f04ae15277e4b20ca9c99f627beadecf23c18 GIT binary patch literal 756 zcmVYCj9)0M$R^4v<1rbljMjA>+a4*Fv?vRhe{~gr z%Dh6QGei@IC{91XUoMy!8piefTprt(G*USyp&U=#>zgJyrzjLP6B&-PJrzNYsRhW}abY-=o|braxZC!={j}CE5Rpfy5PR8yX4z5xy*} ztSSisPRYSHeV<*&Z}a8BIY#Ms7s7Cbbv+>flXm`dkZsR)Ahv@B#N$BW8|H*E=uaL^Dpo+dHYMiN4- zIrR{~4g*QN((=Y<@+z19F(uVfdg9>O-pYU#3dw*eq%<*1foXtY2n@N(Thl^-b{(Zw m7UwhR(d2ir-fuKmCw>B@7##EPk)wG40000WW=I5Rl}zuENrQ28Pt;CX(qKOcDU|M8F&Z%jVGSZA7t& zSX&s1bi|{*v*DgAz3ST9+K6Us3~0Q9*~BWe6PID=&0x|wWdf!IWgI(}6lv9v-FpSS zw1U9OL{Ex%ACuJL>=wxTZg0 zEf8`!jsrze5UvA~SqG-HeEY!{P)iC{?3#nq?S616TB~hnMW{0-6j9tLvf?&u+XiC{ z?O_E0jiYQZlqIojGL$5a1qk9N)mlxpmZq1W6gHT`ec`8K>j$jl3}`WfukS z{=!u2#P1a^U!H8Xl5T`7??NT1t zUc_pqB=&-xQ}oxwg~5^6HaUDuDLGXE;y3!@QP_pOFSc-kKKIu gX8xa5{%_a#2W_ovs9z>%07*qoM6N<$f|edvg8%>k literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/f1.ico b/app - Kopie/DD-Record-Organiser/Resources/f1.ico new file mode 100644 index 0000000000000000000000000000000000000000..f3d16638b011cd8bc85e0f595af0165cf0c74956 GIT binary patch literal 29926 zcmeHwXINB8({__V5D|$gh>Bnihp&pc=)pY`r{V zQH(JI1Ic}{G-Lf07}L@Dd@seARvX6D)Fk&k>0YGFC_kh8ip)ioF{8Fz{?GS{jJ@r| z<(J&YQ2Bcdx%`s*^>U1v^=Zv-z+8GT_JGQg;PyQ3JU@S`|E;Q#26+s>N0X14%+K96e- z;ao1CD1fkd4;gId@8;*n&*B~lxAO=YC+y=@_Wo`G9Rq?W2UWpanN81K-Q14O_osSq z+BrJ%#f4{40#}afkmYXvPwo63xjOQ)xg1&MD0Qa{74s?KhO5g5djiEJ+(HK7bi254 zh`Voz-7Qy_;4Cg7+Z;l!Ah*lQ-Gg0SU5ZN_xxVA^Du7aPf`72p4Oh<(R?g)|_OKfB%5u4`=Oe**tRGuvb*h&nA9|It2uH@oimf(md0OKb7y@JGY!?PS4?(#h;m$ zX2r8PpO#jhx_9sOk6igc7YKQL8(||aTgbEBd}Qz5t-RaZ^HmUI%jRYCc`2!d8}{#( z@K+$4$EWr}b`mcutGw{n4Hf1bKVQh3Ig1-7v$M(zcqC8QR%KF=mD-nitX+*|_1?&e$+=nmXtW4h z`AM!>SyVMIdEQJuJ#Kw2Nn7KF>u`c4cktvAd zN~Um>OV1%K$i*R~vn(X>@Gg?Lr5(kVOv+qJ9J4N=l2{?fLZTBJyGY_Aq}MGezd7lD zF76U4DX&A7BxWt2;~`vq6lgA}TT?su6baQrY( zxFC5>s+{B7A!R9kzKtdzE`1kc6G-=CV^7wW<`-2hjRsOL+ffX~u`T9Y9Ohn0%s}PdJaH`Qa$X$cgt;WH z1jXDuV?Z>9=-)igNJbm=sw8B6(&t80_UBvSO;^`oZnS=Wz)cVCj{FJ{r}k(pxsM_Z z8my^D8lL0Gy1VlxX?I5mvkr3{rLK=hk#5!FL72$RCMEu^!*t#3NS{Ki$xGZ^y>^zk z>jn#ngEapq7q{D^?EIfPa;lqGp8e77>?4tzd$C;xmz&2I*x8*c81=~2wb79;r0RsE z*DqfTu(iv2bc^(73Nq~M-25J;xi+0CqUkFU!cGBCKc?BbH@WCtE9Ym?8&O_fd^RoZ zgJa>AJ>}dzRa2486W&}|_-U==o>PKVG=Z+&yW-g#;#RW$K=* zB5{6d9A5wIEMC@9@jdCVr2O1u!e1cf7iL%UXZBD}5@uD1)4}Uc+HV#q2T-~Y$;m0C ztAyi7KoW_{=OxV)avCO^OBc~(#Upi=Mag2lBBY6e0=2e8-BMFi+i|Hxl0cf0@_xCc za?1%`YbqBL7V&LM7aEBQtB@nDfDk4FOL~pzEi-3qIE`9;dLz3Zr4blP!?4nl83a6A7sbjm-N)b6Ri9VRrF^(| z)6Jbvjh{_p*v;JEpDs8}>wngJxmy6&{S_#2yXf!!iDqY%Bg4gYrJtS6BkITsk)7L9 zyYxqAXgF8UG_UJ<_LigL5$Y^qR(Tqa=eo#o1zmF;LSu2!Ey*=cSWtL#Wj2K1&7$62 zA$d+$-FewrE9g1RbB4+DBy$4|4w}sR(Y!?+pPWR)Zw08wg~U#Q1|Feqy%ftSq_Os8 zK#*0CMGT(<$4g^?luk%@&SoX$!>IdJyD+9e-Or+lb`t4QnjGnQDe8MEmOq?GQHqsu z*K8~+B&uafEJt=UrEh1IQsGS0t{sD=1w$3Y`b>>VF(CSP_OmdcTx_WcO57dGX^5Bl zxZOn-_1nDz!94KcccznzUAB<_!EHo|A&(njN2%#7sp-VcHke{=aLY^P zwGg^|XUSL^HAFH^H)*tni6IIjo}6D8YoRyp>-B{q<@k#L#u5?|h!UAz=S{3r#}&-5 z`(9=;a19$`I*0W%n9od2hOqHt$Fo^8XE7tg9&Aeg{!CO~&zh^NnW(v$HPiLz4(cq( z-Hjbt^E0#Fv5k3OxyWuDImCh=+-DJ@k8or4 zDIu&rE1qzEV9nO%tmgG&)|e5^1o_FVg`dYn)g?@DV-9O}TFnHHcCr@V6Rh(2X;vR} zk-fOMo7G3yv*y@)tTxGq2~wW3mUq-HAN-lHER!&m6Q&YsPij}f*YYufl@gz@;5AE& zc+BSamu8|2FDA?mWYw9WOjMf8gw+LXMqg<*%s_@M9V$y@ln`!Zwr8OMn`hpQ)#SZm zi$-^#GD%)4zrKdg8cGxB`V*_KE@bs}R8L(78!|wPiG&4AC@fVu6=lrh)m>)cw1mImT2RyRrd~$Fb3|^VsV*aV)30g1t>mWwA*~tck|c zIcsayC=@ZDfI#-9pp4mtC$aJ-A#-+dWtQ&+?C02e=Jf6pv(IQ@K7~T|wp_$=YDMhH z^A~Kw^GaqJR>IeJy~(5piF{T)=FhE1_GwqQ^ZudhOmh< zj9PZC?6}2j=B%|$S|Nu?OD7Y>GM!F0Sl4b=?1vw=uzmZku+^)7VTTSKX6x5) zAUhH4#EBDZ+qP|N*|KHi-_T)-ii+HGN$`L8(CcA{f9vf(#3Am^jg125825+&z$i`* z5md;R$;p+~RrrR5hWuj=cYaxET0(mIyR_1>ipCg875;w-&RxEyvhZ`LES2{S<1##q z3=NI^ZdLB`C6!f`Rjr{&-Zv&B#49vj$(N-0v-}|yrIoVkiX~N*m0YIksv`Nu7-R8w6kqE=QUeo2m+3SXhp9dba0sx&yedwpGnzkEqmRgKE_?b~Y$b8{sb zWK{$f#IB}h(x?<46ZusW$JAC=5fs_&+qS>|oT0j=!Kt6MID?wMa+}7ls^FIr=*rwe zm2KN<3b_n)Tf*8$}wKz-s6{46{mCj343{=c*ThA=Dt#3Y$Dg31)3ukRq0|h0m3>Ky z5IF+$;X`5ihm0MRfyAw@mWd9Jic0Yb507e?pgX9a;SZ|fJSIYA>WT`gAUFNPhY#rr zyLRuMR7brR7ZjKh6%`N^9v&X8ZQQwQXOkaP*H9K!j^ACbgfbMS({NUx8YWei$V3DM zMnxt21V;o0Mrr8k>gZ5Q^;1O{JEbW6&(J^C&14y_^Q3*)k_z~Yiem}bv2Td5BS%Y$;il*$jHdo zdwO#Go}PYzkGy>-?{)jzwB42O2s(bdTvYYI%$Y@q2hY_VDn0`pC!AGvJbg z{ncBP}luKj$!@cXK%tzN%wC1qH?eAvKst7grbwP5(*;nRK{ zHgf5ii&t*ku)lrXSoJIZd2`oIU$J8L?CIS$FCzAZ3yFXDF-^Huq3s?*0!;lk9$#j7X~ z|CX(5rj4CE!O*PVK`zH1_yuZe>z0ojH*y?>QNDr=zfmB5OEWc#PQFz1!Gjj6U-5_a zUp{Quu#w!qks}9a4>kR56URTVbIeeagOtI-LUoPx?|8f#8;9ynn>}qBW#Yo9p+imA zZP}tfvCAM;GcyY_;$9OX_?;i{3KIx)22LM1u)ib>)79Ca*O$0exuB*NB5;oU(wyQ8 z{}_Q_=!SLEds7(51ykcSVrEsfHFul^-*Ahwgg7@kcQu${AP&8I_Yt$NQ8W2IHVMX$|5>O0#X8kLGBoC^)eUKp--CZ-e7U@Qc|5oN^AGvcV%ER0Hu+t` zyX4xsM)#1&(6Db-d;Y#PMa6~h-sNVMmc=_e`zq1Wt98-B)e%!#tD=-q_%0_euT);S zjk5cThBkswuhx~5S6m*g;*?Ti6VmeXYgA%rnbFTns2tW>L}+P#ZmG)lxVIcbY2BU9 zCba&t4sFA&@3<9VQc=#E*jmxixWtV2m8G>4LiG%ZL$#N4n?|Yx$jncOjeT9VecKMX z+}zUIin^p;dY!2fRTE$3821p$9~&4O`|9XE`HU>e9~~7P5~J7k1uds6LWH!?39WfU z3~v>7Wxma=N{kMUig1eN579GTb8wBC;Y8mM|GKnT3W;rY?M|$Yi=gx;K@o9bCcX4c zEYwtumEm5S@g_DlJw>5MZDQPWzo>ARprC*_9cMjblOK!*k!7A*Tbh=ZSD8~9$E_)% zqFf?^{2FNWF;v&sbOUF(ht}2BP^eAfmJnQeV9*GAN4u*+tLszfDSiFA>C()&(A8tOl>x74fW@d&GOEFAMt@|{xa0gGFafCCc2TmRH zLjNF{k_Vl+A&RhW>z0yvI?CL9m{Ff2M^j+#1k z)Ifs`TBiNTzO=X#6GkIU9NeA5bf$}q&{0!Ib>?i(gLgu|q;f1FG0sDc=W-@w?~ZH4 zsr0&i9U{Y=`|5Y>-p$Oy-~F@q=4%G{)9V*v{a2}CX0I6MKjv+0N0x;Am%Sy<>@b&D z9GvyRSxTJs^n0+R%MhX*BF<*|uMpW(+y)lyFVUuT3um$%|7L&bKX%H0?3Dl5DgUuk zzHg_*G&*~6I_!>Ek+uGb%uGy4tZNMMf9NG~ZAuboUM)<>N~?{JX>6k$_Qe71Ut4>$ zHvL^*zFeDlrx0O$tJ^%aI$z~zV(h!Tk|cc#HH%Q8K;nu`%8yM}X`7f)`6)A|^Pq!j zy&4-r9}hv=E8sojZhBy{!fV*}srX;YkA8XXmoT0g{u7WScy z{_v{dtbje^OA~{`gMGsJef9NK)%0n4N=i&fD6CPCi+E1Y{UUsAhZ-9hbJI?JZB1!W zV(@c%9uSmt-R`Qdj;VOMN)1ibc79G%xwlVXH2KWzE_D!3L+*xaehc$?>UP)7D~W&I z(eAcgSPa(|4__RgHerDA9X&%+%}JLWui9PjB!2Go;`qvO%O*@DH%k8j+BYf3M6r*+ z>xJ2-mD2}~Ts&*=)Y<)yT)cV7{qyrRtLOEex?tgCnqsH+x?|Jjg`|8ZweGVg4p#3RIg|~>&qHDcn9g1~a@43%12>rJlbQ7J zb0_#ebRXKaHc!x-f)%Z~y#1^Vomp zvH#3t|Cz_WGmnKvrzB>EBIL8ea<45*%gu`O_4So3RWfswRNiHMO6sNdu#xiyC%%b2 zs#KGg6l&bhFx1%}aj}6B`-<{|Uj+>vL>^=J`sCQywh9q`w5aQ3+snciNu_B;5dnVD z5fP48ZHLkNDU8SSp{auIFW61v?$>O3{N&kPS09=QHgoq|S5IFueCn7nhb~>+OCZ9` z=B^t)cKMhwW6s;E(tXUDjx(n$+)Vc-)@!(QlRh&>jxsYDuuN5r+qnph>1)!*VB|3J zO1}u>CNA3ajp;jR#?}`xp{;we} z|0mC>J%@MHp8Z}!=QgBNbHLOa!L&qR+Js%B9!!&nyVe$hwXY|hOsH!)LsMgNBITtM z*K7un9*2Q2a&4|cWI$x9siHJqyKS4XbUlDbn~0O^f2}WMWt4_?)LoLTr1lt0?gN+t z4@{~6jO7x&BTD)lbJxj~mP$l?EDZ|nyrHGFj7Kl~Ho`waK~A<4Vbj!BRqoxPjl8)$ z?WmCT7osH14rr+;&8D;;hzyC;h~)k!ZO-MDl9JKX(wrQi+QF6ZWJA5fT8!+X0i%vn zp{#b1Wcf%kksNX)lWZoK4B?haA>Kryc%pYuZ0AM&FdAWY|xd z?bY0V{q@&6=LZika>R&YC0Ut!?G$7;QeR9a?1P9p615=`zdM}5)9bXF&N_LKc8ep; zm&iJHJ;nwb4PcXc(#tl0(OEdgx*4CMW5qRMy{Xo&zm<+I;S^)x!C1Q+=JjBh(Vbz6 z0Yi^Y)4){d9cWWTlnW{N%1I0diLN%yA@vdZ3sfg2-fXrpccBa&fMN5bEYVH(NMLH9VA zD!mJ;B!>#gp+u+t6|%sjIT^ToiIA3$hPwLVVzqWEsmG2VYpJfTZiW6;oRyUY+Tj+o zYuh%F#?^5RWreBQs%=aOKlhG{`+}*wrn9?*Up;~FCzE#j$fUZIvtHfDv4wu^(wxnm)KE)6y94pseOZb#r5xFmU5qI)kv4 z5Y9$)(inyrgnynfgSx&w$v`hm2kHkk(nZQ7ry|KD9!HWskW+BRl0}E{=>Ba)dwU}; zAOO6?L{wK)pyjI#|KA0A;p2;b{rXkXn7iCwQEnFX1@~U)5h)YNu)zdv5RnNr?EpSA z?V-<>3}tM^aK<`!S{@VBWvY*W5*lIHcrr-Ie z6e-0=l#mE1nG~q$RYIB@=PH1#nh5GWMKIP<#hhLY3;U8B)DLs1KNc7=(oc&Bf6Z6; zne+>c9=ZjaRaFgV4Lws-$!XH0EQdlSoGBZ$DRS6;2A0m;2J`0pceYJS; zqGr-tKBR9q(7Z8(uy-Ni<~>;szv93mwrE^`wr!?5ota)4FQv%o&16U^mOxIG4=KW~ zs4Wu5GW20fr4R<(kUG$A05G86B5a!`C#JsrNS7+pd#u2< zJ_m+FD8A(=}(F7VJs9n9rvKi zJUg^q6bUxW6Kn*@G5j&MJElQ;Q6S`J`J&x)JFHx~37!{i5c$Xh1?lfmU%^LtK|X3q zKcS_e4iGd!)XWj5dnIywNKeDEWlM$Ar_X?fN}C=k12V<)ueR2#$L-av2uFgr4`ej> zXw$U?ZH+;)h@je=#!`0?^}&3s8_UEp?4F~Bl@o@-%yh$N{PAe3dhy^w}WIi$p))c#k26V>Pq9KTRw*Ln~F8#WU*~}8(7R|STSih<)JxP$^-fa+t6dP7j!MM(e^j$lkt9F z69b3>vE4ZfldY4Wvpp8_zr6ulpAOj>PB^k=En=TOLb$6dLdZr6cD|2@N1pV)zeM4O zG}Q4+#BvA-cU55?8uN27bH+?C-AtO3CGAgQF>TG6%XGEZL00L$L^7Z!#Pk`@(`zf+k|kZdpNg!3v9M*L8#Mxgt@wWmcs)n5n;$n zN-m&#!CPF9 z;$yE@9%kOn#`xR$FmWu$0P84>-*1lDS!*%q`DC!4<)QFP8yHQ}!Rmz*adYc7ys))} z@72qAaqSA?y`P~X^8@D1orgPip6u?GJAcB@$)KeX*20t?$3l}UPm{kll>EFfA$-vR7RX^de(`|S^kKyD6$qTRBj!1ZV z3l$;PaoO<}Hst_wlYtS@&6pKXf_<-QV4Knmn+)K@dpaISw3fCHQp*K!PbtAR-$MNA z$H#L2CMcHWj?bYABri}DMIRMDLrbhZ&fD4Jmvj-fq&4AEMlC{%1RxRc zxBzg@1#V{p4q3nrB0iZ2Ntr1KE2_Yiq;l+xuE$!RB+Rv%g`>sR_$78L23{S8E|+?v zt&KhuZFQk^sS}iL=tJp2cl23l0RJ0ysLaj5@}sk_{OP)$TEXhnNjTlQg2bXc zM3*<=#@i&!J2n$G1(&fi`7kE9OoPe&(dc@6Ak^%;L&?4i+T1pPvS$yNZ10NzJ4aOJ zeZ-0%R}lVu!XN*)_*br6MQ9{} zAX#!qavmpBbqjJ+=|yO&K)&~NcpP018_PX#fBFC(vF=!OVlJ-d*x_iV6&5^SiV06= z!o+h7y1JR7y^AqaTzf#}MK74_?uP(-4u39I)3_E^WP^x`yv?GD1h+JfGXYe+~+YGnrv7u1y(K@eaI_*sdcm&f}f^~y%1+3$ewg`K!! zvj;0ImcTLX7A_ZD!}{=zSQxSblLF^qsQ)DN@Ew5;-u=)vv@Zr98~}g&+o&wa!`ffg z5dM!$ko)={@UJXv1w`@^{x@j;5P-%6H`GVkp*F|{buW&i*!>{s2eQj-j^g<76L=dH z3dE6%H;}OB(92s>3^bObxhxN5ue_1vdJ??*hmq}i0^T={z}?dZo;hx?FS&~Y?=7)3 z?q^JjUVvdy(_kEF2JN@QFxYYs0&hE^s;CI-e_c->Lgx_vw||d+#mem8@qYx#i>7oA zzbEQqoKPEPhw7lqsP?l(jrUm;J+gxHrPIiLc#IT|AHB4cJ@E;>$V(tRGX$|a#vseh z8s!OrC?*$no|i2Oh_VQOoX-_R7W=@bIS^M$?Xit_2(yw`VOZi!^vs-uAI^=!t0&J< zU(Ux?nx|XJbD5yv-QVJ0v0`Pq1iy%rm+-$uQ${EnlYLPC_7Q4dJwQ#Q6RJaRqxz*I zN?$so^tBI=8w(^qhw$ojw453UoF5H1&PUX*LlCxh7~)T?Kv@jUMG3wr3A>Aumv*QK zzK+6NeU|7^%uO_YL2MiMk8wD4~W@fhOGN1P?JVBK}I;L<2_Ja_6qsnA+sd~i7jst(-Mn7 zVK{74Z(xu0W_(Oe7USQ4;2`OrA|@!w`X~IPIJh9<?{S`)&kFV;LYv{h~8q3m~CTdERCo8iAXv$ z9mOe61Kr9KO_C`LJQ>2D4a%HrTebES>#Y1p2zLTx3V)|=Hha>N3{no=ex&;MKe z%a{L1la&NN$qSMf%|&U1^&MeOM)Rj^2+9jkml}a$rvpf{SqqyJM-Z}=awvR{L?ny{EGy|z879jK7G8Et6OYch>RVF}PV<94={qW$P z9sHj^LUHy7G}ZD^TUCmth8i3_c8t~m6--!L{!jQ{a_G50@)Fj32uev0RnS~eU519N zc$7WAf&$0g$iKc78P|5<%!#9b({kX!FM!7u2%aB6OXLM0#U1$%4&%M`YP{JymGDm{ z{4??X)FNbG`WYp6$aa2w7wP0sFWJD7?KN1$Pgl;Lc%WI#}T3iQ|Ch zX0$xpkCvC#5WaCBT|~MxgY-~tApP*h8wd;DBG1(d2^I^GaAYphtyiGfc^7WjoIvo? zC&*2EN4QDf))Up0ps}u)#!U&G6e&YXGvPmZ67?TqS;fnH|A2qlm*WzmmS(inR-i69 z1SL;w@yYEp(HRuGk=}GYgTjYacz^pexOYnwVok=*10c3hg>G}KkmxF@1HkOapunj@n<99U)4lfT7pdF(i@Ub%#lS1&kuLGq$Jh-3(KLYco4 zO8rQ8``$r`&mDa7zKvopM--91cQ;X{#u$( zXikX@4=c6UiVND^#s*K7bnc{p9WfTUm#i1H)IP>rW=KvPkW7K6tR@8P+pJMuE$Lr55#32zhOZY0c& z)aD#M>m`~?gD7C*C` z9c}2p4)HPn|d+aJq2?nPI+YNQp&FQY0$hhNC<#6y>i&!RP2z2-yil z(JxUJ6^zn|K)mzvMEdJ!h??pk;Bazn%*8Z5I1+HUh0WyKZA9$r7+9S-!#{B7aKXXD zM>hU7m1in=jf}Bl^WtRHnw$+?;}%_X(&>ej}lzH>gOWcR%4Z z*=?^;_9g~3^w}h?g#*%rsPeNJV{V5jX#k4E5C14Fs86 zEs&~xpF(>8=b8^6vB=xKckjV(>-u-!Z`rne#_m0P<1CLJt9HD3Q}`i{Y`F@WbBG#C ziqP<>5cNg*XsWIx7c*hzh(bp(ibfPCc@v=>IdWCV+&$0~O0+-0+1!GbSm4*s23{wHOV&K|gP*Y3*}mX_7WjvsH? zvUTgd|4DhRd0W3bZDHozBl=E3^4)1Alb7M{bC@jYTFIFs3yLjiBc#jcxE;k@kog?5 z*4RSwoOSse|IK%&Vh-Abw&X5aWA3m4cmId@|J(0RIh?eqf*guT-oO6-l>4%m(y1}c zB{3Nz-+q5;K!toiwDuPlU%7s3Fg4Y{HVQh{?b?lwQrB4cL9P9)WEGYEzVfn)$Ebwq zQc_Y~I(FsI#$yjzzJGK^zo} z3L$S?422%#^X`%WZGCHjy86^uSs9tl%F4<^diCnnmC7GNG=peGpFVw-Q#^sF50N%e z8zNbvf5gDm-A=XdQO!<{P}d89TqpAFcBDP#&a@A%OJ^!H3n8sedvKbb(AWR9R7JV% z8GSvy)pU+xJymyw>S&?*TMWAzT%dR<-H#&bPSl=Af#`4BLP=3`MmsH6VF#UK7|_iS zgAK<+)4(6ndbGEpLwf}3v}dH60;#rHP*J}Rz0QkEI(5|bGd40xn?7}FrMtVUD3#XW ztAF|l-Me+m=xJoMo9diJWJ1)Li0c!s&;Eo%qoaLSE$#j3tW735=v+mgZe3tPXEO#F z4TomG*N`7XdyPG5?^lP;52z5eNkBKl>*#9Gv-Xz5O+h~S?L^#OGwst>Rg{xY+6&8; zE^X;yXc*h4ckf@QPOeY5@u5k?^@$A8mp-BTr?t~`p*@{M$aN^8J=pu`tY?Vf-5L4~ z-V2>^?6vcHnXQbF}}?&1cPx^~lZ1!nw0& zTKe|slij;luM<@745EQV9f_2QWV!lfRl^};R0O$k0`4V-;*e748U2Xf-Bd8EpEOpQ z%A;S;9gxzZeNj5^qpCssSzS+J+|;!&9J>`iZ9a{XygbDC`ynngnC2oLy=oMM9F7L0 z5w0zpH#N|B38eA4lIk5z#J#sFT>Wh{0wL3{8Va*SP?$@KU_7Yr&tpX2j#xNC9m58$ zhq6BHO?Kew&w{#+E4ueQ4#WBOP+xc-MhnisCoB>6mmLu0{Tz`#&yo5jR_s#|;}Er= zuBHm1AumM>=Fh7z?$P5S)jgOp( zN&dRZa@zK76pzs|+CO!7eb_vI?%Y?#Jq-1z{*IkH{gR;Ah2$F{fb>kNpW1A410Kj$wy$&;42uq{Ru{1$b{mI$I$sX5Fu%m=x>_=--e*of9CVn*wRA97w5`LQXRtY8~xiYGQ@{W6opZtz^sytiu?OGRREwM4MTU5ua5B zoy}1&uuOt6Z8B|IJ|By(%}2kpBQfX~Q#f2ZhcG&)k{L^T+TLz>|I!;vmn`A7KfbKF zw6!Kr)$8=jTWy`AqV}4$(9p3)J9TS13u%o31219HZx8TOP$4Gx)nbfiDMmTvLw3qz zC`@uk%ExMGtPMfuy>T!+or>RnnTomT>oDTc6b!jD0X=pO#GFmj@znkj-bVx@<5dJ^ z&z{XW4!+dSU2AlhqR6eoZLM9febZI!-)w^iXU@Rp%n2;;EWlW&JdC@OgN;uMVEv{R z$6wW>*Z#N2EUbmvkN(i!5`}I@ldyii85U)1#Ax3+81irehCP^q0q1|fpgqHI(rPEN zk`lT43%{+OyXWesfdaJ922lyQO0yng@9v!#do=?K9WoG-Q-@3%O0+eGlqw*Ic0(GP zo3ZnLBAqdyKG^>nKaU@bCE1%W`o(Mva4^F#&&eNY-D6!9$_N%kMTmR8x z4FVdYARnDDH-`NBE;w>v55m*4QQ1uUS_JJAE$K>WnUPZ`Kq!6ZQ%U-FgZW_W-n1cYP#GA5O#%zO%7-%M9eDrBVH}$m#K&`Yn$ZHP=()R^>sE z9ge0157dX>K=>^S+_%~V%k3L*_2gbeJaHnwbs{xFEHzajnyUEZGk=X(`vW-p({$J# zT8I0YP8fF496hZ~zx2b>opVq~KR8P5AN{@h4_jDfH*&h7G8fI+(X=n|0(Gz5#CsAo zv?mdD*9O((*B50*K;U%*!rP1Sc+PMHZ<&u$@}D%8=Arq0Fg(ugrg0g8ctHa0@g88A z+iL2Ev6#DiCQ9=2x$*b%d-c=0>wQCAHOXIy=KMr7X3!o&N)Y+wsVxdfccdqPALM|R zE7QamJWNdaQh78 z=VoKhoH;(~_NY7c=DD+Y8b2LujV`-lm*rwB$ykEX)N7w%ZZD zcPZkJ{|uKElMof)fopc;KaO~gveJC=<&fXCz5@KxLhd}?!|&C<|KOpQO--~GCSOl; z$wyR%li$wu6pCF=qrmwz{C^&a)H}yfpG$t3ihS~k(pge|4w}n9qM7bX-UK80%3gS^ zo`LuA;mCL&M?8G;e~~=RbuP+3kYqp|He-|{oeons4r((ZmX|OvA zo;f1t;bpvcIE}b-JCOOr9>uSN$iMRzSrJ|czHthPFI?&D7mXkCqjB|fzCZe1P{fh% z#NOeS=#)pVukaBL>7&O_8Xr4;(*4ZYbD!*P+6h8~ zU!s!yFA+2sJ#cZwrOQ_e=ywdslKt*6BEK1ZSD`=d=&^0b!xmHR(!pZ+i-v3P= zs#}Uk=D%8I4!I6O7_+b>F9Q+xO%{1az8@^pc20yzLkr(wCD`*P@<7^O();Elhu;GrZeYKw6@@U5ZpTNzvP1>+oNl{ zc0GPkY&+9iRc8mUt=6^-m3C$?ko z*S2E$V@&#_m!94nhc=oX&9VkUNOx<7OqU8MbxbE4_k3MD)t=6p8ttZ#Z)2>nvGM+H z-MT&N*45xp&tAQTQQ6#@QHeA{Up3*tuhS4Xu%%bu%znLG|__**KqtTx+?lvE{Mz z$7Gb8Yn0kYpr^qA459UT_kLGttx9Wi!*W^|f1oqs@#w6-9w(0-5fyyQrmSSbl3nWO z=ZjS$YkRy2@SVZ`v^FS;6ZT}Hni$oUkMmM*>WPOeiTtw$tlSOv3u4C*%u zOGc`o=KwqMA(cZ~B@KE8mti>L8sul(!o~}}u(NZ4i`^}xkWMcx%oo?e{Yj=XOWU_? zDHvjEdfdp^xWlny7mliSyw}V|wLqHI$g(qluEXzQ!IW=;c&tUv^PfYeM!$?>1yZzvbO&8+uBb|?KZ^6TqUH16Vb{hJfABlMf=i>JD z^GFZ!LvC~s_U_nL%#|;xW4v-#{ds#AEIf-z6KyeN%n7VnbP@|s`eO34QcUzH!Oz~M zFg+ZPJ-6Ru$%S{2+mcLcOIxh;nTL@fbI|+dC=56-96L|0MM790_H5trCp*Q@|2azO z8=ms45X3$@gC*BOvC+ES zFy9&Idto>n?_a`^eFxK9@wdjlzMN@H%~t*fzIV^yqQhNe(;2gB>a)DE62v9Mp{Oty zcaH49@)ojUbmLp8b5pHMH_&Xw0??$FzGSsBJbe+lWT}{cRCU0UJ|Xn;*jla2Z7USz-1NQ?U{z#!@DD5#|#wE*|VaU7qq`xjk3A|JPx^!edjkJ zAlwT_4j!Td6koT``fk7;-xiHw{35wdd%n%uWR6mb!yfwvKFyAP2E zmLvY)JOu4qhJ*-Tcn5mGFZdC79}>uhufzU*d%V6a-|N{kZcIT?n2z$7_fg_;7U?z{ zY3(o%6>sPqEUi6-O|6^s;FaB3dX_<;8ffS>(0*1a z5)$J%TgsQ}`fB_fKXqoU)rk{suJ%_NVjkb8y=>a=ej9{xYR|&w&d7Xl6(1g60nh6W zKF}|Tse#s%5Rjcli+1-({dKaPRu`Tb@ra4gTu#|m*hvK??M{+r6?~gL2TR`*xzzYrgNAl4jekv;jha1 zSDqiSJT~CyiIczC*q(p+={5;Lx+!a{j2# z@|$2u_aQ`_efCe(NTwdBEaaGf^Z$<+Q10&s4xhZd?gWJnC&Cr0xgH{-F$$|$S73PH<~4+-|ybN zE7-kzcg({1^HsTWI%u6pWV4&-5WW!Ir?_L*5M8v>qwiru*`W7#Zd`(tXR`n#?e)aa_wkqhop>I%xkR4NvNyAJryzev&{Us8^?iNFP=_Ba< z>L)J4{hA|e?i@iyegU0@su#CS2elyzT3Q?I6g8hWvvxFhYWTwR*T8nJrVkwI$`kHAt;IVz`nhEzsgSzDl&)y;FMaAz}zO})`{?ue(1-^?+v(e z`g@Hkf8Uq<7cX9@6L4qGOEb}&PI~J3DR}Rhh1l!6;jm#UF0LAf zilQV;y+kq`7=-GNu{e0(z#sCTFKw=ByU0*u| zZ}P%m;kg%$jg>fh)bdOI3m0s2x$mbM#WqSNonf>R=Woo2qVF<(6xYvT;N_%}ZXeK{S3w=XJzphXD z_kXGX^5u)MmoA>PtF<=PXP;lW ze6imj^L~5HmF3{zaOeDan?U+$`qGCF?w47eK6QzFbYHD$j+&ER;M5PdQl!n|KZX#x N`76pH-WJO9{{Sr3BX9r! literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/f2.ico b/app - Kopie/DD-Record-Organiser/Resources/f2.ico new file mode 100644 index 0000000000000000000000000000000000000000..3da6b6a4b0dfb43795089a376ef4d3cb6ff86001 GIT binary patch literal 29926 zcmeHw30#la_y0|jWJ#n_Dn+uSMA=eNh*EZ0Ldrh2VJ3|9A(df}VFqIuOV(r=yOiu9 zZA$w}+CMF*M4$72-{?F`L(fv3ra$Jw54tej~_A-k7jtX(t4R8*w*M!1(KGt_6O-;^D1$(Uga zUSD?Kl(8r+USE12f%d=c#Oq7%=P58|)xEC19y{Kdv7=~9S|9hobDCIJUyp56Vytpb zU41<^uQ6k5mojDqo>7g>1aLXNbP*#a!hZw=5rFVRB>eb%1_2>FJRCS2iR1sfmqhZ} zni8>CT>4=NvPucr(?2YbWQUwXZhB;fq+x-iDCA^Nh>o}w$ROoCrqtt9{dZVDHi(qoK{#yUHj5} ziELazG($>Qnor^oK8_*0)1;RypBG@@BgJXx8-CU0a}_C-MCL*xKFsIzC6SN8zEDt) zFU?2iXQcDCKFUXrarDO@=jWE70O;t1x=Wy&4h7;>-sf{w7V|6+##N7x0nZReN(UGJ zzRw5JW5~r54A}d8E)J>)tu$yK!@=8sEG66kKSN5Fv;P6zj0qE5k%5aB)VD7w$(>Lv zWb=~u`6O#tR#cBq5KQ1jTJS!f_z={WG|cB!1i?_{gM5sPtR(8Ae4#OPX~sv^fOk5o zh#R8U*&&|Rpq!^!x62tQxUHqFKfqNN{1WUaGsAeOO|qe`29OsN^&CMp6E}~o3e5wygvT_YiV7*a9O=9 zS;`sV?bXvq&k6S=^b0RHpq%!i{6H7ISU1`=4n3H2FbtO4ndbL%o- z$b!OP%5!t27~C8M!BmUILWU&dEi%H2`ILeoqoN>! z^IF`rr>AFfjejffE7(Ngo{B=kcy0VIy$4PSY)&0MZgDSUyf6O%Um~t;hz~hyr8ZZJ zUlJ*v7KPU8+DBv4U|QjIFmGvU?1dU?C&x z?gcx7Hlp6oaBf*XGPtGE6}ilsD7+QaQJyeYD2p-caK>7RgxLkv`}E>7NIo3XJPUw2 zx)lB%U=M^mp5G9l<+@OPZW?q!M3*ECgtNT4o@)S10sm<|=bjE9PHyK)9>XmVeirGJ zL`v0LQUq1znhQ-9!%GP&!3xfO2d<*f`SgqoG4z)&*<4+rn>PmX-%!iYefyWndCX@g-?@ zi@CxG`CMHdr>92=tq7_j{ViKDgnVw;xk3n}xO!m1N`FgjK7PXpl`(7B&sOkPVOT#q z^xWRI5^%DR65t)648ZT}fZucAWh4TWwG!-^3R>0s&yTZsx}f(GtnBzvB#db3Tfv58 zhzs9h#L_TcXRe)wuMu@EXaGhqLtJxGi>I&`=P)X~bHvh)=M#tDmqekHc`8P4Bb9J> zMZn{0Dep{lYbm|c#agI{bqF&@1X&wiB6MpwpiGwX-yE`Jc@ot7aDUOXVf7DxVwm} z)?*=;Hx zDePT-BCCFp$fzWP6{kLC&%o=H31b+&EMRX-bJ^SS0w#GaX21Njoza_Dth%Cv&FkHW zZFL{W?jGO9o<&|^g-`FGtz<^Usf@&#thP9vm1f2=D$QcGC7GB5IqXeg8l&>(tfm;{ zrOy~uykNEEFBrWlWVIFfj9wSBYH==m_p*plRT--&e8%#!QW#ZNu-eKp_FA0J7W7wS z=e_J%#J*+hfY(%ZWP>|9yX7mk+|`~XpWDoGZ|-B|(P!ASvG#2K%t?$2pR!ucR|#l~ z(?K&AG;>*LZYo>5Y6aRZXYU{z)x2h9#o*!H8}{x^C9A1=#nMyICz4wB?rjaLuBv2} zuV1m*eHdG8)ts&JaAI%KcQ2A2uKV&WSQkZJTP^PYbk}>6MCfD*Q zAd)Gxy3Lf^US#d{cC+Q*o@A;Thnc4K53HxzR@Pqo8>Xl4!wd}iFfXs~+02<9%+qrv zT1tb6Fn?_eYqfR5Z%fU;Ubn)WFnNGP`5V%5P;2<me zNYoXJvXeM|T-nj1r&FFi%jfcL7+~q{?&t33XW{GXXAu|~x|@q`ali!qBhJZA;P|{z2@^lqur zEZ!#&m|uRVWME?DXzXdlr-zzyaek7(QS#|y$BrFO%@ZpOj0kjhxAYTVF7`DvqU1lz|~+ZaN@*2#Gm5l2O6saR%1d! zr+JM(z<2TV^a1+;USVMY0RbMCewGmabNK3AU}hx};0O9bVv*(QFz^)+Fwx!J{xkS$ zx@xXb)+Q!VyLWqfdIngc_kD*4gn_S-0Rf-lyH@V0-tA?q-o+&})Xsh%s(A6aZW$OB z)_3H{&)}PS1_X>8IW(Y8b+wPkZxts3G9G>w?(@S|eTuJEGs)7=5Blg^U2Oq<^YsYg zjCpaJ;_*3rb>L!-h(y)60xU(a4<11R5v+YO)vq5U=$x*l)bt7XsIuDw=FoCtD6iu6 zDL<~24%~_zI|hF0uaVGxj{sEow0()Ise=gf(Wf3+`onX+hr9jf@Fi+BHIBmrK0@cW zyS+j`_HC@ylV4FX@zJ$-IppLGtYoCU7`bJ4jNrV3U z;HRsaT4fhgSI0Ucu3i2ZUrMG%*QLf`59&DnN%M8IK*sc36tw(LTd%9}Ny;}|aFgIG z)p|?QG6XSjAD$&Ir0|n?%EN8eND+Tvt&k!n!FYTv3n`Dg38}R#ZrDneVm~J0<+wz` zzyEp~&hfGL6H;4Q``+(UPM^m?IX^r_yhKPz6fR8>OyT(m%6vY}lI0^2@I-$xt*e(M ztH&AQ^f)6Q&_&M)_Xt!H=ZC6!9GCYx?^nK0)dSc7`180gUcmilpZd=}^`Cv}Kl@Y@ zLld(vn|u=!D=RAlEB!BEXlh!)%kp+RX7EWH+ci~G4D`)x+&%1p;C;g0(^7Y>|&yKrCpkt0EuT&%AoC>_tX)L4`9f@!u4_Ns98lp-FjRLQKq)msf(j z6=fC3t@HEu_vaX)q4PZa{03SXDip@X#KdG?IbD{NS17m68wC9Q;eTzat_~gA#o9zk z9FOv+-A+GE&M(yT;dD8MzrQW~IWD3?3d-ZkoQ|pH7i)WC7X%bvkTJL?Tb@gk`3}15 zo=UN*H#P%s?119y$G1Gvt0FfeCp)dELW!5vVfZ!JS+tZZEtPB3QsgJp=8^;PeSKLo z29VuHiUAIM8`PH~81Rn$Z2Qu3D?i>o-+b`qKWZPc+(XZa+HI@ZV*)2Ut6HW}dsq*~iz;jx*|a@BPlobU63p zy*-11=56wTf9q}sLJjJxJNQHC;LnC~lzAS$B0mq0hVn-ZaQF7!EjVSNH$8*S%=7TK zZ&)rdjjA-><0bRjLU)G;O$qy;9C{iR^~%+85BA;sLMsjE%Lc#|IO?s?PBbw3e%5o9 z)O3lebnRoj$MOCAk=1^mRCc)+rCTGrr~gyWm;Uin{)wmm6Hosqp8n-{x{1k#6J{GX z)-P_{jG1V{`_JU3X&`~^*=qQr!>LS=KCP;S+| zy*I$^K^slPnZ=1o`T26rBJLvaq77z-5|g5$YgdZn67maM4)F80=c~I&gg9`M!nC5R z_nyS(=PRtkYGb!)6JKL&4J!)cV@j`fQ+}3L>Mi06yN z{6v2KSi#-*RI9lt6=8WVJB@H;ODt?yS^WGr8ep}PC??0m#VQA$7|9XdQ@I_LQqV(3+ zir-5lQBizX4O=g4i7JPf5A>gf`o6OS{O$f;2ZrMD6^y=6UgPIIuzL4UcRznip$negIW%aZ^d13sT?b=?wf96x+sD6%!Pn?=1O4}&ztQ`0SQ9}|9ti#a6=n<{DhE&i zv;?#RXaRI&DZl6WO#nFm`+uh&I6pGJ)R1-q3DJHF=)|rSWY|f!RKL9@A2+UFf2$m5uW8?|+LOEMk4wsE#I4K*^VB85)*)J*3gsdxDKjj`dBS02uGw0ZeF+PP*Ko%(4bMP5BY z&*N`XNoE{XRTR^yrG4o4Rf8$?2WPspe>qtXG%eTDP~Qrgd~US`H2I(C73w$Y*->vy z7Xz1MRn23>)SeSlg`#q3lMi?z1+_$C?UGTRfi#m8)SghQcEM!c^DA09Wejav;!ZnP ze?@0^`BKcaBa{<$m0p$P(pA6l^!sjyY4`-oUe zq%9u;o{(Jg1ZtsnmMnVBr!^ifw0YTV`gPq>3i-{C;;-(f*Wx^SaOgX__0xO``QC*t zcnzoEW#)9|n}Kv`oju(;yp)#Cc6zI!+WLe{4sOE~0spd1?xZ{NsHXO2VoGJCqPBy^ z_hjVJm(e&=RWdc4MT%N!#5AgiX`=5nQqcDa7@KIw1R0t?2EQ5&E-?C!kVFUcb^As z_L}uhLsj);|L)zKz&~GWl>ST(t#-!!^>x3lR8qZ4tZ6Z+YWzqxU3<`Y6Gk)47`XvV zy3V1-IxmT7l@rqj|Lq}x1K9AvkPWQ-igkBYl$(jpx;*yp>0mx+=VC0fFbK=NYMl^S4y}QcUG} zX;hf{h@M4VqqJKmDB;pBiaO~>_x7!z8{6IKitiXYx5|c2E$L0?R@zYL)`@g%`+OQT zw0|t*7z_USy3g0bdc9ItQEp|>(c@vOc4yzoaXn}i0Ubxb@_DOC)S-hLIdoT`x#o<9 zm|BxU=MrKaQKnaku_y&jI%MEu@EG&p5j9l_C$sKflgNE6?OpdZ-TnPAmF8u^v`DWv zugj^TAPYJbP0wS)DE-bUdU|CqMW6bfA`Yyin>**wwT%<#{2Dt!jNT#7#T6J%Mem#Q?hKJ)Cx|o$(Gba34k)4Y3ZIeVui6zbjU39gc&nn2W7rh#3?R>sd|A1PI1N z+6Iegtg#%;>d$CGpBCh3s!wB0TGNp31E{6$P1sV*i#C|cEx><^2-4FJpoK2eXy-RG z>DXEqy1Ho!-G{Aw^80p5zZ)#f1+Gv0dROy?UYF*RIOi$lJ-tg=4=+%1*ddAoE}!dn z_AI8*Ev~Rrj)DxQm-nT?=G~IPzZU0Tx4n&vj?S7=#g;dO{$n~Xh?(MGt{Dn@0g$S6 zJ53{dwkHqpKdrAEx%QExc@~hx%z#uoUcq?10srX#I{rKUNDHU9Q{WHYbpOm=iaqxu zcv(w#cQ2ra2UkLl07?lz0{yv8<@xD?9Fp2vtkuO-mYYHa$qy(8Yj$e*QHsB?lO7-U z!Ce2E!UEjrvX3*Znql`2{2Oxqbu{~r(9`uSY^rh{JU|aR782`G0~t`r0b`(GQb=|K zM$odMjAmOmrb*_lXhLr#8r-8RwbHu*{$HUk^bY*XqyIY^Y^LRIvnlxJjTC+L2xUZ^ zrA$EDognbDgQAYFr>LWADdED8;4u)o^*i(^j&N36kfr)nDdft)T#uw@(IJ#}8*}~g zZp?Lmy1)Nh`g!G40{=#wf6cZ=hWa`SGnCaXN#xo>mvvxQy1stTKbOH+LOm>eXt|>z ztsgH(4g-dea))~Ky3C?V`PWk0$Iy*MxM znTdJ8Wl6nxgq~j9N%7~lP~zpEDfPx-O1*WQ3X&qI68glin#z~-vM`&9Gh!$=E{rnn z1yka+U(q+CtH8ej=f8zgv!?nwQ?IqrI9Mas8f#K}*u+k-D?Mwa`osC}Nz|(69hz+0 zg}$H4=eSbn&bMM0T-Q4Lx4-R}w@#nY0)|>&4 zd`vC~<5D*!ynoYgAIBU&MFacx$+kA>>8h>PcHhQzYbu^RzE7{qOUQ0e|7=^cUKZfL z-cM?)I!IezZ_2ZFntMsE)l=9*jDbGaBiNM&Mzj!brgAcH9a}Et-h~6 z9uqF#z`o|`;F0?e+&AsizkAow>aAPv=xx|}DDFR4!}u6zw;#5|KzHt26}8jQhg7Ky zdXT|TOsqTn9%Ibu?nJG7+@}!(Eos?k1qyIywAF)=Y0v#6r;te<^;Xerr_pp`r32kR zxQ22bUxrP*LwO0eA;&F2j@-B#!hA@*aR~EwJ0+YCfc_j5)(1W&*^i`SVkzZc&=K&< z_a)q)<9vV7uj{BiVqZtyrKAFXSY9O_b|n+@0e&a9sU6`n=vP3uh!i`fQ1|YhG}3Yy zjj)_b>bmDhwcSrN(`5;KNq@TRCtW`;uXm)|yB5+@*pA#MHw0N;B;2YW6Fw(7zv-CE zsiFIka$9s(u$`9ug#NGB@j6}qqZC1wRvkOoAJ*5MU!kV4kD999BKg*sn{Bwi4?jU2 z_NiSCd<%?43yewYXlkwzMA{wJN@h*L`gHdS6{JSNUU1(aRIn8f4y~rJZPVd9&!O1U zn;x z+U_7VYkQd#Axjg?Z$;Icq}1jLwQPHu+G*~o(&?}~ueb4t(&tH$RFa)Q+(vMpfbYAw z-Q#`^_dQc#S7Og>riYlrd=4bT9zBlq`oWk5e2tx-Q3=(F`~(wzlZ4PKUK`I_fO1(AS%nsjoXHth>Qv&*64<$z?B6sqA^O;MemtChsZs zjxt$_Gh^#zDN1`R%;l8p`zikSt(0_SH)Tbfrrh{&>6pm$>wn6BogAtvM(wpV23u;k zcNnGJ-g&A{d&f~a?QN~p+jeb-vEuVecf_z^$rV^H%i-tW+&Nd+SDnXx;l4sX_B3&-1#BjtyQyKn zQ8v>2#5;oB;`YmWVE@0Z|Dof}X1Tby&T^erHPLw#k7e@MXk$J{xc-kGH7fbdt1@Aa zTbTS%*q?{*m`zuFoap){7kY>_AT#0&m7@RO>sO|rUwqD&!*&%y=U>EJqul7r!d}Ma zZ{i>PDa>?sGG8!%e$|fc+aoeU&Ckq3H!wx0`FXwx;fANeZIdJ>@fB)e_KAp?L_afCV zON1C=e&SuqfUS&&?-qCZd)Uh$^!t6tlG$L+L%&ep#`5pcAM~%rY`2*=IX~rj86?IU zRr)-I#JQ;g6g^L)hc_&!O!flXrOdyL)zwpkluutS;laIA3h()HCSqYs_?+jqm-C+g^cLkqx40et z8~NAu+pr-kDf|RQ2me5k$NlI*pa}7VRdi?Xa=N)|5#9K44yN+^OCqTi_Tk)*k2v5- z;Xk_5o!twu2m6%@VfU+HtLpU&afmwo;<5J1vI1fMIAqYkzpMW>XU}qrOuTWFLId0> zWV0(>@t;H&*N>+2YaQt9Dm%Khd+~eb8~%b$aap(yaofm!wrH$lF@P-ip}f!E>z8!S zOZBUW{zm>=cubwL=ETuMbkS!lomkw5jxFd(fwPV1kefdJHcgA-Fa6Sx>(Bq@vedrA ztNL%L0`oH$zGrIK0r))!F%NDcFYN>U8e;Xg^}jskKnKj>8|Q*g(DiK|^qZ?T?HSub zfU6rPf1ckz$mL^FC(9eyCUJHg<;8{4^T!wPdVYc+hpm<6-=aTYgRfEi`Dh3CDO0>x zuUuJr@7_I1i@rsrFQl=jKVbEbi-a+OEEtp8w>3iir?NCph&R|;|9$++WZ>hV0_fyE zY2tJbSJz)xd48L5^ypD~{P;1we*IclAO4u(FPAnP6CNY|yZPrb$mHP9Cz}G=0Q6=$ zjT$s_(nRm+Q>NU);kSxYr%q93X6C;y3m+5cm!0*XG_?Ph_m6da{wpck=lhqsXY-o) zZRqMeYV?$Gxo5>6w=I*0$2WL< zz5~E`lG7-!v7<&^Ubb{;*`7Unh|e8k5P7ZUc-kBx$H7&Qt6^ai)facTbcEM{zpd-vmFK8`uJeOcK)yY27e95#sK$S z0Q`&uj~6QZ1wJ_{6CM^J6~1kS6z_FH_k{OMF^1CjKD}kBF4AxWAL_n~hsx6TM6G4- zm*V|X5y~0fKNT*#NBUP&5wC!Hb!j-i_mRDSD&vFG72ZQd%HNOW_xN9$@*n*EOX<3g z@ayXR)l?*FCtQ|thB#gR9;!e;OO_%-xTkR0`={^t`@2R!(*xK58PHa0f$6KuLGO}6RX(rrX9!PfG20V-XLjDoGK z1{K-a4lZt^((1g9j&5+*?%lVejPqg$__z5GiJ07UTZ7Ge}tDd#p*`lW4jZnYg9m}??g;oQAQTf4(K86Sgy+xf5Zfp0}Mo^ET_ z(XqevBC8%fE}IyRO*1walhfCz&l3mpKGz-k8%Len?MqqMix;LxkoZL`C12b|mqd>~ro%Xb*pzj>tE_O0~4nEE| z=#MVw4>bV38q7X9FE-G4tYK$^<Z&v@D+maUEWygK6AZF8wDz+bQAm2Ykp(tBAyMOSvR(3>1eZO9dvZg z8g=cq6Lj&mIWq=m0`TQzDIcR8Iw^GNwD?Ff#GchPza}#ST{1D4Ld|vY>`oic`_%B< zMuk5EPNpU}r_!yKp8eQ1&Ek3K1OfPQ!N?DhGq~tUH6nAV5MIsh)|L3`MbIUZk zhI0cUTij|_OtF25{W+S$bvkb}!h?!ra@pdC9=!fN$dFv#;x0XPX=ZM2T3Z~o}dnw~` z041IFqu8V0(IdnK@BTEKZfwDG>R%SuuJLeu13s>|*V0}F+T27ab?P|hxU%XcwEct> z)pAKgcPr_2P$A1M^3M!-M>n'%!#KI8iOCkwZ==)U zo0kgw88<(x(W!lErx95g_oMD++ey3YaZ=DmxoR4o13xAlccX2K$5IYr z3@>gSpoG)@lyr6ri6etCCfGaF;5)%3>GU%BCKcR0OwX_Hq4bMeDG|CFb9g1qoIE<+ zqHn)2&{yxE^$j&{d57eU3Q55Z&qfCkH8)Ejd~=F=byB3sy%cF|FFjJxy$ty)a1P)R z&Tjb7Z{8l19lDRI63$a~;w37JI!zf@exgLgq{R45;$)aXT#`z{_r<6p@j4aUIYiGw zex}3QzN@etWc32{+v;gA$Zp!^Cdr$=CdDyCO`M4uSrO@VbEhFDEot0<9;DZ0CpFT{ z1pO@V`iKnmm(p*mCevA;$v6-3l_1~Cm@`xrcb+Qa&Y@2ZQpUBPsrcb>>9~+Y%FA0k zbInVjd9LF#EeBaY0exki_6}=QG;prWh4oB7R)~n;1Y9Q9;Cc;e3=lJVq~L&(Y?! z%W5M+&?nMMqO7dE!Nz9r3ecC=YS&j&NBf%$#f~_qfWDW9{7oDrB;TK?XMaCDQ`ez2 zliSj`;j>7g#Zzjh`xAN1flebfl73+`-{j5R>o7?ci2RVoiNwUV0-%D8Cs8bB;WZB zbvE8ccD;L(ljRs{r+tWAojfR5G#;^+Idp23Bi;FVA*G!0qvuxwC^uvWJrDVbl3)vB z@hpnZMR7!+Kp*rR0UGFn&-&e38V-xJJFF>b(cu~?Xgwi$ji=NIXZ;$fz941IYow{~ z_jcaIujn57IT`xSA^jZABf|Dw-Z+JB?wAYxUPn2Xw$QUH+XP-RE^UQw{QNJ`=X~jE zjqjtaG2)P=GxQ(Qt=~dD}Z`nmHy#Yrb9mKh>Yd=!3moq)Y881$&4w9h< z5x*>@TRRrO4z8uFi$B!!!u$WvKadJ;AEeatTPfs+ znH2c7E#2ROlt=52nkTX9)Vv^`7&R zcGi!ga4sbF=$d*yWb)gi?RE{@{M>Kbp~FV{t@VsruwWq#9z5j2=FLAW2A&OXqcZuH zU`NXnu25O*McCOh!uoSPU=E%4nX2U$JOVbLno(h|2 zad8p(uJr_5aX+g?{_??MLTChgPMZ z|AC?penYpm&!pfLmUPK?0={rlO!P7jYwR=r`B!0GD~P#55r;)|`3HB3IJA}uBF_rE zR6Gr#vN$|fjXw96=-b%Z4mx}M(8~h!C#N5}*+rlqd2Ahq3Ex=9dP+6rQeG;-OT}}6 z7fEpnT%k~kJF^wfwboDu;;&^G8}0+hq%N_;;5-e{pr?yi|Y};8by5a`B~f@KTaiN53EFxBL># z&*cXmKQ(RWaQhj3`w!SZ(Pc8NT)8rG*REY}z)#he`Qf}&o`(vDX zUWN^yImp^3fb%kE&YZK`w{K4g4Gk4XM@N@uWn~mbK8(OV)i$PYzy1qA`>(`K{!~XA z@>Iu<-LT@=fGOaA5~o1*mOZ-} z`ptH6ESzXRAiG}|jqu*xI~|c%Y&JnoUV-m}|59vXlC`O>>yRFUXASK!%DHdH{?kSe zzjo`wq1t!352)ZlAYEHGf_|LQ^W8MN9x0vmJM30eZiT;&Bi9jh_#XF*{XJ`tvD%1% zwu}4rm=M~d>sJ}3-CUCg^cZ+!(ImUXC!t3$tgitjlzsaEh2lBoh1E9n{oCmzG=G~WZG@%yA4Y` z=;pxh)Y*8BXYgfqerOg9hvZ|ujF!^wH@R0{cJC1u{&Pn9WQu&es`a6g6>PuNglJxrq*m+~6a5Qu*T`Dtmkid*!`U zaQ`U1%8a0QFJZfDD?lrmUL{?nJIA-uh+%da+8Wl78CC>TyPfBfv8L0P2@5}i-rsfpw{~6AEk#hX4oRS{QXqQ zys$-pWW*Zcj*GAt+(D(-Z@x?XoxYksThgOj*ZW>8ze&fJR3qD}sdd(B*SoE{`kc_F zU2qoJ8s~RyAcI*sne|yh^BmNvpQ#t#x!O7e)&DInd8i^m{I;>+B{o(-rTQ zO!uY7(2dOVIPVDHd#8u{mQytRRla}8!M>^F=Fez$Ni*N6?XuIZ$t@YQ5FYoOVc)$AnG`hWW9%cN#k+QHyO$zd%_+wu51pAVL zt6R|i6tv%DKHC4{dZ@16wp(-MCN`~AnvDjY_3CBwNRoV!Qi9jh(~}~^R8~{?_Sy6Z z@0_K==jL>{Ooi72Xzt8EZ@;e3>e9OQdEbX^bEk*DE+f8wNyT0w8oC+>f1cAR4&7eY zKJOpI@;~)wy2F4hUNGl@&&oyBQzm0^1kUpLGbxQIf7exY@g z`CYunaO*JTgdd=IoT-UBv5qn?Z>Q2bd+Wyci|y;`>W)kdKl!q%h@Trwr=#_N~Tw1@zCgUnnmkh)S?G%D%CW${!u0dG6Ek$7&jTe2M=)eftf( zd*Mh$!42q3z*M})(vOlue}jndow)x7IuiJ91u<7~hUPa)xwe;5ukNP&2dD5SLGI9e zkD1W_Mqg}y*a%0>8B@leymkDCnwxlE<}P9s`1U;7ue;#8*1nSZXo!`)$xo!xq+3)J zdzET)AJKxj?r2}m4g5DojZb`$@e^Gdd(4?!!BF9p$jy%v=MRrh<7~R;D0kD9BzyV!hQLYL%BTg-~8<6!0DB@Y1BFX_-AOHOky)QQZ318q-rA2e~X_H1LEtxgp)l@5kSVLX)%}l-t z{u09H=Pz%=eT=@sB&%*cC)f|1JlV;1OYO@HWam-BQBPX$HkcMVnWY-)wMRP&{Q1%c zc3|Ql>mI#(Es8f`BZWB2;4XQ&&xQ?LPdOpG z(9R($#hP7_@qh}SBd%VUK~5v=uC;5o@lm4zZ>iB}A|taoG^VdUHP=C`uz48$u*i*4 zPkSRa=trr)|3F2z@$SvlJpx^K_gUw9nVFflZ#QC^Qa8MBYfq$XS4JakoT-l~o;&o| zPGN{4#veuO25SqCm1kevOivKc=6u(UyGC16`SzMKy<6&@D{7>P=Mn8LzV2_nsPNiP z-_hfJizpKI{OJjAN;>63>1TZ@`h>4gAASFUPuxzmXU|rxx~yufXs~*ijrEc8`@hly ztOvY)?2+%#hKRB+d{41>H;dE%xIXgcEN~qivD9tM;SFDnpHm)xg%a?NU_4?lPl7g3 z;;9Y7dKee<{RjMWIkdI4+3XpU{a-ygf-`b22=%Gz#S@A<8-VkdTPY1TJu7TK;^>IK zT-^0ZeZ)T4WS5DH(nEfslWUyl;FguVe_*%8RQV!-@(`bScJ~Ao<9S5py|bUz2M^;W zx^$d3Yub-H)-8SZIN~-{RKPwqyxx|<4a}ipyd&JO|AA6(kKN}ikYDiCk_qm!=Wduj zeR|lzLx-|sVq>bG=RT)5c>j=JsY!7(U_k%F4eNdB_u{2X9S|FzvuN>>oy(RlzdC2m q>_q&nklz&*6;?F`L(fv3ra$Jw54tej~_A-k7jtX(t4R8*w*M!1(KGt_6O-;^D1$(Uga zUSD?Kl(8r+USE12f%d=c#Oq7%=P58|)xEC19y{Kdv7=~9S|9hobDCIJUyp56Vytpb zU41<^uQ6k5mojDqo>7g>1aLXNbP*#a!hZw=5rFVRB>eb%1_2>FJRCS2iR1sfmqhZ} zni8>CT>4=NvPucr(?2YbWQUwXZhB;fq+x-iDCA^Nh>o}w$ROoCrqtt9{dZVDHi(qoK{#yUHj5} ziELazG($>Qnor^oK8_*0)1;RypBG@@BgJXx8-CU0a}_C-MCL*xKFsIzC6SN8zEDt) zFU?2iXQcDCKFUXrarDO@=jWE70O;t1x=Wy&4h7;>-sf{w7V|6+##N7x0nZReN(UGJ zzRw5JW5~r54A}d8E)J>)tu$yK!@=8sEG66kKSN5Fv;P6zj0qE5k%5aB)VD7w$(>Lv zWb=~u`6O#tR#cBq5KQ1jTJS!f_z={WG|cB!1i?_{gM5sPtR(8Ae4#OPX~sv^fOk5o zh#R8U*&&|Rpq!^!x62tQxUHqFKfqNN{1WUaGsAeOO|qe`29OsN^&CMp6E}~o3e5wygvT_YiV7*a9O=9 zS;`sV?bXvq&k6S=^b0RHpq%!i{6H7ISU1`=4n3H2FbtO4ndbL%o- z$b!OP%5!t27~C8M!BmUILWU&dEi%H2`ILeoqoN>! z^IF`rr>AFfjejffE7(Ngo{B=kcy0VIy$4PSY)&0MZgDSUyf6O%Um~t;hz~hyr8ZZJ zUlJ*v7KPU8+DBv4U|QjIFmGvU?1dU?C&x z?gcx7Hlp6oaBf*XGPtGE6}ilsD7+QaQJyeYD2p-caK>7RgxLkv`}E>7NIo3XJPUw2 zx)lB%U=M^mp5G9l<+@OPZW?q!M3*ECgtNT4o@)S10sm<|=bjE9PHyK)9>XmVeirGJ zL`v0LQUq1znhQ-9!%GP&!3xfO2d<*f`SgqoG4z)&*<4+rn>PmX-%!iYefyWndCX@g-?@ zi@CxG`CMHdr>92=tq7_j{ViKDgnVw;xk3n}xO!m1N`FgjK7PXpl`(7B&sOkPVOT#q z^xWRI5^%DR65t)648ZT}fZucAWh4TWwG!-^3R>0s&yTZsx}f(GtnBzvB#db3Tfv58 zhzs9h#L_TcXRe)wuMu@EXaGhqLtJxGi>I&`=P)X~bHvh)=M#tDmqekHc`8P4Bb9J> zMZn{0Dep{lYbm|c#agI{bqF&@1X&wiB6MpwpiGwX-yE`Jc@ot7aDUOXVf7DxVwm} z)?*=;Hx zDePT-BCCFp$fzWP6{kLC&%o=H31b+&EMRX-bJ^SS0w#GaX21Njoza_Dth%Cv&FkHW zZFL{W?jGO9o<&|^g-`FGtz<^Usf@&#thP9vm1f2=D$QcGC7GB5IqXeg8l&>(tfm;{ zrOy~uykNEEFBrWlWVIFfj9wSBYH==m_p*plRT--&e8%#!QW#ZNu-eKp_FA0J7W7wS z=e_J%#J*+hfY(%ZWP>|9yX7mk+|`~XpWDoGZ|-B|(P!ASvG#2K%t?$2pR!ucR|#l~ z(?K&AG;>*LZYo>5Y6aRZXYU{z)x2h9#o*!H8}{x^C9A1=#nMyICz4wB?rjaLuBv2} zuV1m*eHdG8)ts&JaAI%KcQ2A2uKV&WSQkZJTP^PYbk}>6MCfD*Q zAd)Gxy3Lf^US#d{cC+Q*o@A;Thnc4K53HxzR@Pqo8>Xl4!wd}iFfXs~+02<9%+qrv zT1tb6Fn?_eYqfR5Z%fU;Ubn)WFnNGP`5V%5P;2<me zNYoXJvXeM|T-nj1r&FFi%jfcL7+~q{?&t33XW{GXXAu|~x|@q`ali!qBhJZA;P|{z2@^lqur zEZ!#&m|uRVWME?DXzXdlr-zzyaek7(QS#|y$BrFO%@ZpOj0kjhxAYTVF7`DvqU1lz|~+ZaN@*2#Gm5l2O6saR%1d! zr+JM(z<2TV^a1+;USVMY0RbMCewGmabNK3AU}hx};0O9bVv*(QFz^)+Fwx!J{xkS$ zx@xXb)+Q!VyLWqfdIngc_kD*4gn_S-0Rf-lyH@V0-tA?q-o+&})Xsh%s(A6aZW$OB z)_3H{&)}PS1_X>8IW(Y8b+wPkZxts3G9G>w?(@S|eTuJEGs)7=5Blg^U2Oq<^YsYg zjCpaJ;_*3rb>L!-h(y)60xU(a4<11R5v+YO)vq5U=$x*l)bt7XsIuDw=FoCtD6iu6 zDL<~24%~_zI|hF0uaVGxj{sEow0()Ise=gf(Wf3+`onX+hr9jf@Fi+BHIBmrK0@cW zyS+j`_HC@ylV4FX@zJ$-IppLGtYoCU7`bJ4jNrV3U z;HRsaT4fhgSI0Ucu3i2ZUrMG%*QLf`59&DnN%M8IK*sc36tw(LTd%9}Ny;}|aFgIG z)p|?QG6XSjAD$&Ir0|n?%EN8eND+Tvt&k!n!FYTv3n`Dg38}R#ZrDneVm~J0<+wz` zzyEp~&hfGL6H;4Q``+(UPM^m?IX^r_yhKPz6fR8>OyT(m%6vY}lI0^2@I-$xt*e(M ztH&AQ^f)6Q&_&M)_Xt!H=ZC6!9GCYx?^nK0)dSc7`180gUcmilpZd=}^`Cv}Kl@Y@ zLld(vn|u=!D=RAlEB!BEXlh!)%kp+RX7EWH+ci~G4D`)x+&%1p;C;g0(^7Y>|&yKrCpkt0EuT&%AoC>_tX)L4`9f@!u4_Ns98lp-FjRLQKq)msf(j z6=fC3t@HEu_vaX)q4PZa{03SXDip@X#KdG?IbD{NS17m68wC9Q;eTzat_~gA#o9zk z9FOv+-A+GE&M(yT;dD8MzrQW~IWD3?3d-ZkoQ|pH7i)WC7X%bvkTJL?Tb@gk`3}15 zo=UN*H#P%s?119y$G1Gvt0FfeCp)dELW!5vVfZ!JS+tZZEtPB3QsgJp=8^;PeSKLo z29VuHiUAIM8`PH~81Rn$Z2Qu3D?i>o-+b`qKWZPc+(XZa+HI@ZV*)2Ut6HW}dsq*~iz;jx*|a@BPlobU63p zy*-11=56wTf9q}sLJjJxJNQHC;LnC~lzAS$B0mq0hVn-ZaQF7!EjVSNH$8*S%=7TK zZ&)rdjjA-><0bRjLU)G;O$qy;9C{iR^~%+85BA;sLMsjE%Lc#|IO?s?PBbw3e%5o9 z)O3lebnRoj$MOCAk=1^mRCc)+rCTGrr~gyWm;Uin{)wmm6Hosqp8n-{x{1k#6J{GX z)-P_{jG1V{`_JU3X&`~^*=qQr!>LS=KCP;S+| zy*I$^K^slPnZ=1o`T26rBJLvaq77z-5|g5$YgdZn67maM4)F80=c~I&gg9`M!nC5R z_nyS(=PRtkYGb!)6JKL&4J!)cV@j`fQ+}3L>Mi06yN z{6v2KSi#-*RI9lt6=8WVJB@H;ODt?yS^WGr8ep}PC??0m#VQA$7|9XdQ@I_LQqV(3+ zir-5lQBizX4O=g4i7JPf5A>gf`o6OS{O$f;2ZrMD6^y=6UgPIIuzL4UcRznip$negIW%aZ^d13sT?b=?wf96x+sD6%!Pn?=1O4}&ztQ`0SQ9}|9ti#a6=n<{DhE&i zv;?#RXaRI&DZl6WO#nFm`+uh&I6pGJ)R1-q3DJHF=)|rSWY|f!RKL9@A2+UFf2$m5uW8?|+LOEMk4wsE#I4K*^VB85)*)J*3gsdxDKjj`dBS02uGw0ZeF+PP*Ko%(4bMP5BY z&*N`XNoE{XRTR^yrG4o4Rf8$?2WPspe>qtXG%eTDP~Qrgd~US`H2I(C73w$Y*->vy z7Xz1MRn23>)SeSlg`#q3lMi?z1+_$C?UGTRfi#m8)SghQcEM!c^DA09Wejav;!ZnP ze?@0^`BKcaBa{<$m0p$P(pA6l^!sjyY4`-oUe zq%9u;o{(Jg1ZtsnmMnVBr!^ifw0YTV`gPq>3i-{C;;-(f*Wx^SaOgX__0xO``QC*t zcnzoEW#)9|n}Kv`oju(;yp)#Cc6zI!+WLe{4sOE~0spd1?xZ{NsHXO2VoGJCqPBy^ z_hjVJm(e&=RWdc4MT%N!#5AgiX`=5nQqcDa7@KIw1R0t?2EQ5&E-?C!kVFUcb^As z_L}uhLsj);|L)zKz&~GWl>ST(t#-!!^>x3lR8qZ4tZ6Z+YWzqxU3<`Y6Gk)47`XvV zy3V1-IxmT7l@rqj|Lq}x1K9AvkPWQ-igkBYl$(jpx;*yp>0mx+=VC0fFbK=NYMl^S4y}QcUG} zX;hf{h@M4VqqJKmDB;pBiaO~>_x7!z8{6IKitiXYx5|c2E$L0?R@zYL)`@g%`+OQT zw0|t*7z_USy3g0bdc9ItQEp|>(c@vOc4yzoaXn}i0Ubxb@_DOC)S-hLIdoT`x#o<9 zm|BxU=MrKaQKnaku_y&jI%MEu@EG&p5j9l_C$sKflgNE6?OpdZ-TnPAmF8u^v`DWv zugj^TAPYJbP0wS)DE-bUdU|CqMW6bfA`Yyin>**wwT%<#{2Dt!jNT#7#T6J%Mem#Q?hKJ)Cx|o$(Gba34k)4Y3ZIeVui6zbjU39gc&nn2W7rh#3?R>sd|A1PI1N z+6Iegtg#%;>d$CGpBCh3s!wB0TGNp31E{6$P1sV*i#C|cEx><^2-4FJpoK2eXy-RG z>DXEqy1Ho!-G{Aw^80p5zZ)#f1+Gv0dROy?UYF*RIOi$lJ-tg=4=+%1*ddAoE}!dn z_AI8*Ev~Rrj)DxQm-nT?=G~IPzZU0Tx4n&vj?S7=#g;dO{$n~Xh?(MGt{Dn@0g$S6 zJ53{dwkHqpKdrAEx%QExc@~hx%z#uoUcq?10srX#I{rKUNDHU9Q{WHYbpOm=iaqxu zcv(w#cQ2ra2UkLl07?lz0{yv8<@xD?9Fp2vtkuO-mYYHa$qy(8Yj$e*QHsB?lO7-U z!Ce2E!UEjrvX3*Znql`2{2Oxqbu{~r(9`uSY^rh{JU|aR782`G0~t`r0b`(GQb=|K zM$odMjAmOmrb*_lXhLr#8r-8RwbHu*{$HUk^bY*XqyIY^Y^LRIvnlxJjTC+L2xUZ^ zrA$EDognbDgQAYFr>LWADdED8;4u)o^*i(^j&N36kfr)nDdft)T#uw@(IJ#}8*}~g zZp?Lmy1)Nh`g!G40{=#wf6cZ=hWa`SGnCaXN#xo>mvvxQy1stTKbOH+LOm>eXt|>z ztsgH(4g-dea))~Ky3C?V`PWk0$Iy*MxM znTdJ8Wl6nxgq~j9N%7~lP~zpEDfPx-O1*WQ3X&qI68glin#z~-vM`&9Gh!$=E{rnn z1yka+U(q+CtH8ej=f8zgv!?nwQ?IqrI9Mas8f#K}*u+k-D?Mwa`osC}Nz|(69hz+0 zg}$H4=eSbn&bMM0T-Q4Lx4-R}w@#nY0)|>&4 zd`vC~<5D*!ynoYgAIBU&MFacx$+kA>>8h>PcHhQzYbu^RzE7{qOUQ0e|7=^cUKZfL z-cM?)I!IezZ_2ZFntMsE)l=9*jDbGaBiNM&Mzj!brgAcH9a}Et-h~6 z9uqF#z`o|`;F0?e+&AsizkAow>aAPv=xx|}DDFR4!}u6zw;#5|KzHt26}8jQhg7Ky zdXT|TOsqTn9%Ibu?nJG7+@}!(Eos?k1qyIywAF)=Y0v#6r;te<^;Xerr_pp`r32kR zxQ22bUxrP*LwO0eA;&F2j@-B#!hA@*aR~EwJ0+YCfc_j5)(1W&*^i`SVkzZc&=K&< z_a)q)<9vV7uj{BiVqZtyrKAFXSY9O_b|n+@0e&a9sU6`n=vP3uh!i`fQ1|YhG}3Yy zjj)_b>bmDhwcSrN(`5;KNq@TRCtW`;uXm)|yB5+@*pA#MHw0N;B;2YW6Fw(7zv-CE zsiFIka$9s(u$`9ug#NGB@j6}qqZC1wRvkOoAJ*5MU!kV4kD999BKg*sn{Bwi4?jU2 z_NiSCd<%?43yewYXlkwzMA{wJN@h*L`gHdS6{JSNUU1(aRIn8f4y~rJZPVd9&!O1U zn;x z+U_7VYkQd#Axjg?Z$;Icq}1jLwQPHu+G*~o(&?}~ueb4t(&tH$RFa)Q+(vMpfbYAw z-Q#`^_dQc#S7Og>riYlrd=4bT9zBlq`oWk5e2tx-Q3=(F`~(wzlZ4PKUK`I_fO1(AS%nsjoXHth>Qv&*64<$z?B6sqA^O;MemtChsZs zjxt$_Gh^#zDN1`R%;l8p`zikSt(0_SH)Tbfrrh{&>6pm$>wn6BogAtvM(wpV23u;k zcNnGJ-g&A{d&f~a?QN~p+jeb-vEuVecf_z^$rV^H%i-tW+&Nd+SDnXx;l4sX_B3&-1#BjtyQyKn zQ8v>2#5;oB;`YmWVE@0Z|Dof}X1Tby&T^erHPLw#k7e@MXk$J{xc-kGH7fbdt1@Aa zTbTS%*q?{*m`zuFoap){7kY>_AT#0&m7@RO>sO|rUwqD&!*&%y=U>EJqul7r!d}Ma zZ{i>PDa>?sGG8!%e$|fc+aoeU&Ckq3H!wx0`FXwx;fANeZIdJ>@fB)e_KAp?L_afCV zON1C=e&SuqfUS&&?-qCZd)Uh$^!t6tlG$L+L%&ep#`5pcAM~%rY`2*=IX~rj86?IU zRr)-I#JQ;g6g^L)hc_&!O!flXrOdyL)zwpkluutS;laIA3h()HCSqYs_?+jqm-C+g^cLkqx40et z8~NAu+pr-kDf|RQ2me5k$NlI*pa}7VRdi?Xa=N)|5#9K44yN+^OCqTi_Tk)*k2v5- z;Xk_5o!twu2m6%@VfU+HtLpU&afmwo;<5J1vI1fMIAqYkzpMW>XU}qrOuTWFLId0> zWV0(>@t;H&*N>+2YaQt9Dm%Khd+~eb8~%b$aap(yaofm!wrH$lF@P-ip}f!E>z8!S zOZBUW{zm>=cubwL=ETuMbkS!lomkw5jxFd(fwPV1kefdJHcgA-Fa6Sx>(Bq@vedrA ztNL%L0`oH$zGrIK0r))!F%NDcFYN>U8e;Xg^}jskKnKj>8|Q*g(DiK|^qZ?T?HSub zfU6rPf1ckz$mL^FC(9eyCUJHg<;8{4^T!wPdVYc+hpm<6-=aTYgRfEi`Dh3CDO0>x zuUuJr@7_I1i@rsrFQl=jKVbEbi-a+OEEtp8w>3iir?NCph&R|;|9$++WZ>hV0_fyE zY2tJbSJz)xd48L5^ypD~{P;1we*IclAO4u(FPAnP6CNY|yZPrb$mHP9Cz}G=0Q6=$ zjT$s_(nRm+Q>NU);kSxYr%q93X6C;y3m+5cm!0*XG_?Ph_m6da{wpck=lhqsXY-o) zZRqMeYV?$Gxo5>6w=I*0$2WL< zz5~E`lG7-!v7<&^Ubb{;*`7Unh|e8k5P7ZUc-kBx$H7&Qt6^ai)facTbcEM{zpd-vmFK8`uJeOcK)yY27e95#sK$S z0Q`&uj~6QZ1wJ_{6CM^J6~1kS6z_FH_k{OMF^1CjKD}kBF4AxWAL_n~hsx6TM6G4- zm*V|X5y~0fKNT*#NBUP&5wC!Hb!j-i_mRDSD&vFG72ZQd%HNOW_xN9$@*n*EOX<3g z@ayXR)l?*FCtQ|thB#gR9;!e;OO_%-xTkR0`={^t`@2R!(*xK58PHa0f$6KuLGO}6RX(rrX9!PfG20V-XLjDoGK z1{K-a4lZt^((1g9j&5+*?%lVejPqg$__z5GiJ07UTZ7Ge}tDd#p*`lW4jZnYg9m}??g;oQAQTf4(K86Sgy+xf5Zfp0}Mo^ET_ z(XqevBC8%fE}IyRO*1walhfCz&l3mpKGz-k8%Len?MqqMix;LxkoZL`C12b|mqd>~ro%Xb*pzj>tE_O0~4nEE| z=#MVw4>bV38q7X9FE-G4tYK$^<Z&v@D+maUEWygK6AZF8wDz+bQAm2Ykp(tBAyMOSvR(3>1eZO9dvZg z8g=cq6Lj&mIWq=m0`TQzDIcR8Iw^GNwD?Ff#GchPza}#ST{1D4Ld|vY>`oic`_%B< zMuk5EPNpU}r_!yKp8eQ1&Ek3K1OfPQ!N?DhGq~tUH6nAV5MIsh)|L3`MbIUZk zhI0cUTij|_OtF25{W+S$bvkb}!h?!ra@pdC9=!fN$dFv#;x0XPX=ZM2T3Z~o}dnw~` z041IFqu8V0(IdnK@BTEKZfwDG>R%SuuJLeu13s>|*V0}F+T27ab?P|hxU%XcwEct> z)pAKgcPr_2P$A1M^3M!-M>n'%!#KI8iOCkwZ==)U zo0kgw88<(x(W!lErx95g_oMD++ey3YaZ=DmxoR4o13xAlccX2K$5IYr z3@>gSpoG)@lyr6ri6etCCfGaF;5)%3>GU%BCKcR0OwX_Hq4bMeDG|CFb9g1qoIE<+ zqHn)2&{yxE^$j&{d57eU3Q55Z&qfCkH8)Ejd~=F=byB3sy%cF|FFjJxy$ty)a1P)R z&Tjb7Z{8l19lDRI63$a~;w37JI!zf@exgLgq{R45;$)aXT#`z{_r<6p@j4aUIYiGw zex}3QzN@etWc32{+v;gA$Zp!^Cdr$=CdDyCO`M4uSrO@VbEhFDEot0<9;DZ0CpFT{ z1pO@V`iKnmm(p*mCevA;$v6-3l_1~Cm@`xrcb+Qa&Y@2ZQpUBPsrcb>>9~+Y%FA0k zbInVjd9LF#EeBaY0exki_6}=QG;prWh4oB7R)~n;1Y9Q9;Cc;e3=lJVq~L&(Y?! z%W5M+&?nMMqO7dE!Nz9r3ecC=YS&j&NBf%$#f~_qfWDW9{7oDrB;TK?XMaCDQ`ez2 zliSj`;j>7g#Zzjh`xAN1flebfl73+`-{j5R>o7?ci2RVoiNwUV0-%D8Cs8bB;WZB zbvE8ccD;L(ljRs{r+tWAojfR5G#;^+Idp23Bi;FVA*G!0qvuxwC^uvWJrDVbl3)vB z@hpnZMR7!+Kp*rR0UGFn&-&e38V-xJJFF>b(cu~?Xgwi$ji=NIXZ;$fz941IYow{~ z_jcaIujn57IT`xSA^jZABf|Dw-Z+JB?wAYxUPn2Xw$QUH+XP-RE^UQw{QNJ`=X~jE zjqjtaG2)P=GxQ(Qt=~dD}Z`nmHy#Yrb9mKh>Yd=!3moq)Y881$&4w9h< z5x*>@TRRrO4z8uFi$B!!!u$WvKadJ;AEeatTPfs+ znH2c7E#2ROlt=52nkTX9)Vv^`7&R zcGi!ga4sbF=$d*yWb)gi?RE{@{M>Kbp~FV{t@VsruwWq#9z5j2=FLAW2A&OXqcZuH zU`NXnu25O*McCOh!uoSPU=E%4nX2U$JOVbLno(h|2 zad8p(uJr_5aX+g?{_??MLTChgPMZ z|AC?penYpm&!pfLmUPK?0={rlO!P7jYwR=r`B!0GD~P#55r;)|`3HB3IJA}uBF_rE zR6Gr#vN$|fjXw96=-b%Z4mx}M(8~h!C#N5}*+rlqd2Ahq3Ex=9dP+6rQeG;-OT}}6 z7fEpnT%k~kJF^wfwboDu;;&^G8}0+hq%N_;;5-e{pr?yi|Y};8by5a`B~f@KTaiN53EFxBL># z&*cXmKQ(RWaQhj3`w!SZ(Pc8NT)8rG*REY}z)#he`Qf}&o`(vDX zUWN^yImp^3fb%kE&YZK`w{K4g4Gk4XM@N@uWn~mbK8(OV)i$PYzy1qA`>(`K{!~XA z@>Iu<-LT@=fGOaA5~o1*mOZ-} z`ptH6ESzXRAiG}|jqu*xI~|c%Y&JnoUV-m}|59vXlC`O>>yRFUXASK!%DHdH{?kSe zzjo`wq1t!352)ZlAYEHGf_|LQ^W8MN9x0vmJM30eZiT;&Bi9jh_#XF*{XJ`tvD%1% zwu}4rm=M~d>sJ}3-CUCg^cZ+!(ImUXC!t3$tgitjlzsaEh2lBoh1E9n{oCmzG=G~WZG@%yA4Y` z=;pxh)Y*8BXYgfqerOg9hvZ|ujF!^wH@R0{cJC1u{&Pn9WQu&es`a6g6>PuNglJxrq*m+~6a5Qu*T`Dtmkid*!`U zaQ`U1%8a0QFJZfDD?lrmUL{?nJIA-uh+%da+8Wl78CC>TyPfBfv8L0P2@5}i-rsfpw{~6AEk#hX4oRS{QXqQ zys$-pWW*Zcj*GAt+(D(-Z@x?XoxYksThgOj*ZW>8ze&fJR3qD}sdd(B*SoE{`kc_F zU2qoJ8s~RyAcI*sne|yh^BmNvpQ#t#x!O7e)&DInd8i^m{I;>+B{o(-rTQ zO!uY7(2dOVIPVDHd#8u{mQytRRla}8!M>^F=Fez$Ni*N6?XuIZ$t@YQ5FYoOVc)$AnG`hWW9%cN#k+QHyO$zd%_+wu51pAVL zt6R|i6tv%DKHC4{dZ@16wp(-MCN`~AnvDjY_3CBwNRoV!Qi9jh(~}~^R8~{?_Sy6Z z@0_K==jL>{Ooi72Xzt8EZ@;e3>e9OQdEbX^bEk*DE+f8wNyT0w8oC+>f1cAR4&7eY zKJOpI@;~)wy2F4hUNGl@&&oyBQzm0^1kUpLGbxQIf7exY@g z`CYunaO*JTgdd=IoT-UBv5qn?Z>Q2bd+Wyci|y;`>W)kdKl!q%h@Trwr=#_N~Tw1@zCgUnnmkh)S?G%D%CW${!u0dG6Ek$7&jTe2M=)eftf( zd*Mh$!42q3z*M})(vOlue}jndow)x7IuiJ91u<7~hUPa)xwe;5ukNP&2dD5SLGI9e zkD1W_Mqg}y*a%0>8B@leymkDCnwxlE<}P9s`1U;7ue;#8*1nSZXo!`)$xo!xq+3)J zdzET)AJKxj?r2}m4g5DojZb`$@e^Gdd(4?!!BF9p$jy%v=MRrh<7~R;D0kD9BzyV!hQLYL%BTg-~8<6!0DB@Y1BFX_-AOHOky)QQZ318q-rA2e~X_H1LEtxgp)l@5kSVLX)%}l-t z{u09H=Pz%=eT=@sB&%*cC)f|1JlV;1OYO@HWam-BQBPX$HkcMVnWY-)wMRP&{Q1%c zc3|Ql>mI#(Es8f`BZWB2;4XQ&&xQ?LPdOpG z(9R($#hP7_@qh}SBd%VUK~5v=uC;5o@lm4zZ>iB}A|taoG^VdUHP=C`uz48$u*i*4 zPkSRa=trr)|3F2z@$SvlJpx^K_gUw9nVFflZ#QC^Qa8MBYfq$XS4JakoT-l~o;&o| zPGN{4#veuO25SqCm1kevOivKc=6u(UyGC16`SzMKy<6&@D{7>P=Mn8LzV2_nsPNiP z-_hfJizpKI{OJjAN;>63>1TZ@`h>4gAASFUPuxzmXU|rxx~yufXs~*ijrEc8`@hly ztOvY)?2+%#hKRB+d{41>H;dE%xIXgcEN~qivD9tM;SFDnpHm)xg%a?NU_4?lPl7g3 z;;9Y7dKee<{RjMWIkdI4+3XpU{a-ygf-`b22=%Gz#S@A<8-VkdTPY1TJu7TK;^>IK zT-^0ZeZ)T4WS5DH(nEfslWUyl;FguVe_*%8RQV!-@(`bScJ~Ao<9S5py|bUz2M^;W zx^$d3Yub-H)-8SZIN~-{RKPwqyxx|<4a}ipyd&JO|AA6(kKN}ikYDiCk_qm!=Wduj zeR|lzLx-|sVq>bG=RT)5c>j=JsY!7(U_k%F4eNdB_u{2X9S|FzvuN>>oy(RlzdC2m q>_q&nklz&*6;U#@;eu%+ypJ)?ut=ea4K8#BdvgRSg)@Go&|U`x`Un*odcB zhYcCKVZqaj;Va1hb9R)F;va#*7esjQ6&`AjATUHmMuLYkasI#W(!#^7<H%JH;_+Ot(9jd_hb2Wt z%afv#AMorDPkB5+XgJvKOo@t$?k>fv!jU2@9LduQz$*OV{3H*D%SY6>>hXm7Rq%MH z8u7e>UmDLLrgO1{{Dt-ae{^>qe`g8+X~##WPvP;=6HtnFd{o9%9)E+UsumyZ#6{x5 zRgaGn;;ZD6%Kh8;Yu1A#uOL!-{&VHVO^u35?vCghc%pzaIw=}0Qw=|7gnIy&qS5Vq zAx;x7V3*1jUvZ(6YmblCWFxeT$RDlEUM*gWy;^)#?qd6j`9x{6Yw>G=0jg?!QG@dD zK1kybeAW+%8LMDT1YgMv1iz5!3Vtfn5&TF#cwwxTd|!3=@A^`D$xmf)$hT1KE7g95 z+9$l@?>WZ*+}Bl?EBTnm1RPD&zKz=Nr}ll+KCp5=9l=NSY59Dfk%9Vy{@Zy*9$sxq zz`z`KhGSDZKFozxX_qRz91+K)x2n7_!gzNkU#+XEywI~?2-AeaL&FH934@uOPFD+K zp1~k0I;0QX;~skOLB^DeeE3oE%(~~Exq;Cp?gNB*X~!(`FW~t`A095}c%v?$05ME? z;TU6iI9hlQq^hW>4CEC(mGcW>{wPGM!%=tmdoBK&>9z6~^1G-hU(7#xYEpCt%9Qep z67ffC!n{0;M8YHsJVG#8F4umK0YmKS()*~W6b_f;S34nC6~0*`ECx02Q>3uE`J_>* z(1s`#-8vGw<_mg}^TmruP%4P`L-PI0qyt`EkO8O($OhC82| zQ_mz9L}%a`d4?B2o8ppgD5yOA3?9U1qJk(nlr$glHJ`P4q_mvpMnSY3c?$f|a-l5Y z8QKsH+dz7bicYS2juKRiTMQ_SM^nD=ESh&}33)UuR!}O)7b6ZQKJsXj6rYOtia#Y? z@EGv<0%RlD%|^&gCgfNbe`|NI&2By|+MVU)f?=x2J$w29Isiu*V6(KzsL%3;p&c-~>*BbR8@HTRRyKe^ARUKOuO zUcZc80Qpw0Iw2g1xYQRB=8ja%8`akrhP77`k3|`+Y?rbjgV(YTr=DO_K3LD%xA~mC zGs2s>^jgT;+JDHVez1_upXbNAy)})^{&+cawCc-74V}Su|8STM>@}V(UF^puj`Co= zI`(6oT6JRq-+s?JcIe2yTJ;s1{hlX#Z^XN7)#Bys!-?+fbI&=fjm(aH@!3N5>Fhbo zXYK+v)5(c>j2Xj*^zF;m`1r8mj0`q$>{#aY(MN2ChX*Tr_KXef+=eY*x`gG$U1N7+ zqS@q06WPS^J*p(gg*{( zu*2&vW#;(*yEdr*az>ru~{CI80Fq&l^j-%Wlu|w#0K3 zD@WaBCR}C8f;9H%K4dMGGw>6n4nG=b?` z++o%ZGZ<@D%vkeerqk>Wt7meJHI^kZW7`O3(khg(25C&E@m)|9(`#~pHE4c495m!W9zS5h=CN>7T9i;IhoO-fgw zj6W%&u_7lYCkvFDlarkzH!^!Urq+sV#i(|A326@#9wJe;qH(8}B{0#;%Q8H0;6Ssu zq=W<^g^rn7rx!RNt*6MzmZzLNaKJDg{5*l&=yb2swK|kL#UL*yCoMG(2{PhQ1o(6H zx|{bIyv9r038B;AH_?NX57XiwA2?tX7l#5MLXo9Qb$)eP&i}M1HzzwT_IBLK6DQiW z8J$QhQ@z|Yf&cD_U=)y_ z1U&h&K2Af_`AfV!DB{mcONd4Ov3-Mg-cJ?fwbz0pq!Uwd{wezMhY3Of`8z}QC#IsE z^9=fQa1+=xf2#OZ4RvzW1=t0Lgy?7HP|8 z?;H#c4r!bvHyG*WO4UNYfsT$sQKZvAf2p^(H~2$5 zoSn`HTq`|B_jaqn4dVE8V=2K69jj!m0!sVh=_0s4t5R% z|3rU}X@Oos#fEvEetzUGQ>qgLIrRn{@8P}oo|(0G65OoeVYT5=N(p#12`;eX$Zp)Z zPI>{qltOF?Z|}X``i$VN+i9s)t9;-QoFD|RScts0Bme8=HllSEpY){W7uZovLV~3o zBO;KXTP^G=DStI40n*ZKN(j@RucU;`;)>_o!1G& z8nc>@wWSc2{MWue`DUH^W}W(Go%&{-`p?#>>&w?^W;QdceKs+WXC$R2 zBqU|))V5kv>E}J}Wq2?CAy$kj?FL|3UCnhWlV>YVoivQQosg5AXWZXSH28$SYu2o( z?4+NUou;Tfc|RsLEhndei<@A7iA=(Ko!p$**pyS33Nw?_a&%m@(}SzB)8pK@n3y}o zCr`A?OU)^&mR@+TmwPKFCMMu|;-9 z@`i!#JEy^t_WcL|G#^ol%(X_)itBmT}Pqqr}ZMy(>H;!Xjn_ z&j=IZRVssgd49oCrEBm+%z&ODns|tMWUn&N&)@qTCU8GLuLz!x;Errl2KxK)O%-=P z|1(wb?_nOB6g)A)J7Q9>r*~C6_?44Z>{WUzJ%e3q#Ji97o8;~4H~P#urFQ;E;Md>V z+0V&4u%{;e2J+!9LK)O?${?2;T6l!$h=?UUmrk0Y;pgQFFOxR1eGC%PY>0%~D9Sk*ZEY=BfM1xh4^~Y>ok6RTvwSGAcc%#l(oghrGg$s2bjj zxzo2Wug~;|l`AoUs8sriahZBeoX>d=nKl^wDpmcub++~JkMIr~-6KL6`;P30@arGp z9l6q93M*YlDf~*L)Rg7K@CAIK$aj| zHSuR2$KTa`QTqR@cwo{68G#%?eL>?u9-x_O;?F#;ABgjCUf~k({}pDbT;R|H@%kMI znl)wU;8l|c^xrahVE-LchYtP$aoa&bp!J}YpjjZ!%hTvf`TSq_ynIlraeaHg-@i-G zeNK)8W7@YGm)6?GBa2ge+lddmIS#!$#K|S{y@CCI2Japam&YG80b~afE@i_PE@S^! za-ck}>o(oncKOax_Fjg$)moL2ES&1KNg~4z*#gyTolK2oXUW83qsq~CTHe5}&KHm- z81xfp4QLWb2I6h_pY;orr88+jKa;kt`u$>Qxsn=~T_a{CCuaYIm_rFMyF!ox&j{O> zkd93r)i=LFrWOIzt=+KrDMJQ@AP+9XH=vOq-nZ+6{*yL9IR*~aL&MB1zbCyGF{Ed5 zi*$_Ri8V?l)-ak_<0~M@)a0t@8{Hsge3$ApiKXUdJE=?C(MiaIx5JO1#h@-AF2jG) zr)@3!FR`-nr#cNEP)oDbG~%u1G`PJ3wY6J7bxrRRYmrXOB#u~1$khA}v8IrT%hE6k z6hke|gQ!pEVKKlP2HFgIAJiFS0^(!S>!fO9c5@>Kds~}1@&?U*B~~wk9Bd}h`<)q0 zb^^ig)2ADafe zM&k8iB#jHUR-^pPEH;XI(&!E~w%AV&w$rJPgCULWB+AgK-E?9$6~wF`60=N&3`wF4 z&2FO|AVY(jWMs0RdUkxL2zT}9-y~q40J7xxo7HFaTFE>wHg0iLz`%^4d_w9yP{#bR8i}8AJdc`jHWv4&S<4zjUc@>t&p7H><8E%wmsj_9YIfuB<+A`_=GG;Lr* z`edjfO>s7)kxuO}w#vxdejC!{0{<<{3D6((0h?BVggf1I{@`B9xP6gIGwzZq|32`m z=@n(DiQmLnW?^eRJEeY$Q@{cIvP@#_p*s?O_&S}GG`vq=S~lK@7Q9oBtlA$$y%&*= z1^P%!=$pF#)@^c;I<)hn|E>0?*mEbS;C?if=b+9D9)OY{11HGw3NqBhk5z%L%-a2z z7H0ng4)jGnHacK@d8@KY2DE`~*RAx)hz8{Iz6E_esyj7lh4Hfy?25*i3z}jc!}!^# z`4Jj6U=jWP^G?dTdzGF%x=Xk}jvw*icLlFWhMM^K7-Vib@_m`jA~GNf$qPQzEe*W@twl@5@Xl-a?_1<+0 z%K*}8g0a(t>k(vdL_2hNhIUX1{h&$b+cdtfjJ_CWKz{EVQ=liKv4cLsCGZStX0n(1 zzCE9!BaY&#I&@xx(}Y%k(2F8|SVtK*FNyg1*o1LO9A9}msM|uGMpu4bPaOZ^fhM%e z+noyHu3#?1JRsP8RWiJO{DnkXGL&Q|Q}~aoXz6fk@*ZkI;X!LD?iBRrA#_0+n=~?r z`c#2A;ioSq)4bk|XwCaQF;}dCt&sq`8}^=H_hF3V?Erf1_?3@=Uy?y;3$Yz||DEU3 zh@ubvOa+OzNG0G`kFQ!XBwsov=+ClYwv>40IF+Pf{^Ik5dY-G2;r_pXzliYLKeY^y z<7t%)()e>NG?=nuu?|DOu0BVI^W5Qea|QgHy@u0+^Czhkc57|(9GBy@*Z;F(;ICZ< z3IEY`D=708Y#%wtub$`Ba|EBS53idi;QwL%1WLYe8u+32wajzeZhHOrpWr8p+A>IO zp%5@}8IFJNOPRN?0YCb$_FS!&;gA;ol#9QsZEtCQ(3-2Uj(F|(%SwP>TZXE(@So5@ zkm2|Se@eM>j-F&DQzgb%jST1y6|nchz7g$*|IMFB88`yhAs0(2>5^7vWk)}p2d0+>l6iV1JT~#{kat5RnWY51iqsI-c*zV8&LIe&vk3cpsi1j>EW&O*b6#B6-BwQ_qe?z&ebK^NtAFN zb8W&^D$RXJ1;GF4UJRwhM^kFtbxOM%MUN70P(fN8mF6S~YdST4zBgbY8DH|3#EWD|aeO?RU&(xr%BDe~k|ium;qo%!uBo{!L#v%k^pt7j=a zK1$O6LBMbPPjO4>MEqq$6`X3yQB$X?`n4d7);z)WsRA;j-@8TUPamh>4u{f_pZC%) z!8<8*&kp)|_YZU^WEWkII4^E9ZYa!)M#t)vr}&wA80xeWgX?b;AH z^xwo@Q(ZA{Ys`({9QXNiJ`!&Cpr&7lgf8f6p{lD<}?@)QU{CB9@KL1`G z58J5yern%G?V}!1xr7~l;hvTZto=bcj6c=xz%J~K!q*862rvlQy48HorcFJAH*cN* z|I@vjH-842x-Teb;O?zk?RM_m*(hq;w!f|iRryQh)aL7K+qSLY-mP0Z`G5ZPVvq43 zoF3fg)06=&b28r>H7(I+{<3pF2Cm<=chjcD!9hW;yEkrZw`29{`e%K8bzhaZ{JVGW zuJ_d!Yx}tk@;+r^8&+y)n?eSTnWXQSMfL1b$k_Ubs=v!ed0#K}ySQ)5mJrm(H~Thi z8oGDOmX0AoLGAu2?MHob{IjO{I(6ynce|NI2pL;NQXO;Lr7mVbUXc3CfS+SZ`&z<2Z=!m? zIsrZ?7dD8RIDTGt9ol|+uz@k|r!=@j1}!qk)FyyrRz}pjwJzEBIzYw)iR!k4lC;Em zjZrk!Z5l&kMtxJY*UZl#C6dk}3t%fq=c)PkwD!z74iSS?zK!+bCwh&~;;sVZvoE7M z?VpmFy%%+~u0uUK_M-M(*OO)2{iJ7!_r^)2+bEjabyz2?qw#Gl;zWv+DhzVW^Bjk8 zri=Q>1D2X~f%8PEd@GB^RJZXTq}wK!^akT>whvLmu5pBKE>RbI1Df2$fZpvQBO@D} zXBrhzokrKmu}uKVf21xO?ZEehB*I>VbpD}fi|5YxtIBU>H7DJ$**VhfTtWt8iS$R~ zZbV-qS-TlDuv23i=iGs0tv68}vlNt{3ar=3xz}p!d8*6j`yrY=5v~)w{F)e04^n&Z zxpa!mY7H6K zqpx?x*wd{P=ff4G>+p;mI(|=sot$V?@3AxI}q zYL?G2*vlsM0FJ#@7N6&|H2W6!?Y<>*ixqO0KHl{E>C5W#1aXgrpNGtO+mOQ6%of*@ znlnPwgK$opP8WX;pqaR1m315C3ujZje2fex&zS&2ocKFglS2MbM?tr>Z_<3LTJ>1OOk@V$Qd)n*!0royI?r8Osmz2*jXo$~G zV)<3;y32=xXvs)x`gXx6dRBlo7tZR?E+rfTNT`c!Vb5&GS2Jm$n>pP){=aIv@wdyb zwwL;tlCGVkPu^}we}rw+obd>{A?OFkkVA=o9Hvj58_|Uj-d}mUNILrPW%aL-o!5g# ze!eCtsIg7CGq^O4BaNvAV|L2 z+5k9&x_C-w_I*cw6Wi0?mDB0odWz71u>U!}6gx#WxIBD#jzsc_6-W&vx`=KK8qGk z9Y$Zwc!$1QHa99=5-Hf+dzgn(~GH7i|pKm(r>7=(Q!jsta|!BDe3N`*Zm0K<4uOfs2FC_8xLMj7T;y}wfS z^W_U5#A;Bzpgn~BcCkJ1y;w?4zK^>_Rzlf(wrsKaJ7r54`TYAbs<}_)Vo?o!`n4*AJD$*)PWtwPaoW2%!jU>I}YpT*g%`-pFU4^cIxWVWx|g3Z9h$P za9on>)PBmn(ayb&%^22swnxA2=KnNbo^C*|@%>xbuDEY#j=Pvvh_HD=I%b*FxaGde zeomv)XHOXX`?C2TZw?Gxzdqpm?_W*<->+Z4VZ-`On>Mb&SYqHhz_z)G*_Ie%lQo2I zRg<}FAJ*?r#e1ub(x`#)5gOQQ7`-=oFpU{GobZk4T4)&J)HG@Y)>%Di(W1qKkM%Wb z-)i_g{l-_3&uPMUuF1*1DVcYVCcUnZqb2S!){mpsjw|WFwpFloA7HG*oLiWJ=VUR= z?SA=vj6sPYjEfanv}N@Qn(8s5nD6~qSomGjZGyXzR?n!O;~&&k)`FZm4jK+1bAX8pfjTF?t=ttVKVI6EGtSKvD&pgXV8IVDVvAYb$qux<8yt^5>_4A;5_Bp7Z6x`ttpi960jID?ZbR=*do!|S7 zaF6--9X@n4a4zMVzEqqNjrM>{6}hx!ZB_nU zKU*{#Ft@qQK4smu_&pB)J(snTEN!<_JG&2Q?C3yBNxXyWe;4T!+?CI|a}MJm#&y2d zsd!B3(I@Hip{A4pAD3-We|gB?UxT0L-@I9mIyM&LCzzTpxL|C$t+-LMJta*|w-+z? zJe2TVSg@4Squb}{3#=FNaA%mF!Jg!Hdubl!#GRw%W9%qB>Nm_Kh*K3H|CQD9=VfrR zG8LaS;cNI#}rhKge+q4pE*B@c8 z?eY15%J}^#DxxjxR@IunR1WvQ{BrRpN%66GtfWHR)7=AGbeG?B{PddV5Bz*R@-(0D zeQ)|<>0}D|`Xi_l`UjOD|F8Zu|HX?J&rRZIe}p*&E;IfbEgIaC@?cj|1?F|W_9`!? zthkHx1u>`NtvWN`W%(U8hf7>Qh$2HC`O@m*Y=4?i!q>#Y0Vy zKia(%wiG=@{@)<~=|cZSgi!Z2eF6Wyctpd&MtBOFdDC1s!DfFLhcz|MV^eOPrQN9a z&GXz~rl4+=yv%2`ZNplcKEtyZ<4-e0yd;0FJ8;|vgFWyNcl7wW?6)6$3Eys~BO4ac zZr=~lA1=cbDy0036e`F}qrmT0)0{b#?xb^1p{{rY>Wtq};y%_T zG1srqt}SaQz-K<~TEFtz@`baK<}X-Cn>KB-2Gd{2A8pLn8NylvHk4%B!!OKvL>cK1 zDFgSCAKkl5`ElWS{$I>1^Y!yjL;g)(n*V(@eqjxvWhe3a;%h0$Rg|Aa_=deG3v_=+ z;3}Fu=aZzZTesT3C~qDwv~Lo|EAF)ILXAy`GAf_Z6L~I`J;O8HuAo5Pu4!Ah2H7E4 zYrRPEixw@Ko1TvG*V z9Y2O=ygPoBe)?%A;WIN2ppT9(%k$rOm+FK6|E?eZcFKz#f5#~m#Q)!?7Zd-!O4a{A z!truDtm^+Cks(yOlVtN8=TLuK-=1AOhIAV^exUuIwxg7e`+d7i{>0I7U9@ql%a4t% zPdst7Tk~Mzz#(A^XHPr7?91i8RkQ-npk>Q_SAF%hFZyZkUS0YOs&8~u90jcS4)8Gc zVD81Ge)MhZmy}|DLmbch%N0J}CM~}@SEpkk>A2yyOYJ|TQC*r-Q|oiYbg$Anzs*=; zMw9B=rzGhb6Y`GPaNVl<%7`$>C z#>3JTUehAuxF$4Qz=zBkY=}r;*)}btfG2ih$v9Rwx z#XY(iU@Z~TqyD6{Qu@*o@WZ9tjHE5|hT{q26XdUajCtbIp)gf$BJSx6)8qe8;mL(N zZW})tN(q;aQziDIt{e`cpamm^dz8pfO1~7Wn(>C?FDnz%^LZojdN^G=v<+Jsayq+j zE#12oPKmd!QOuRdQr`Z4e*RzAOkYt^!HXBiZ1D+opv1kkL<-x#kAl{(rej-|DR}yC z*Q|Z6e0*(FOr_c1!5E49%ul|J;Z%J0`{CUJe&~NAFjvE`NiUVH_IdeyJU)6TlxBVW z(Y1}6HtA}o<w2%=(%g1ttuqQ;&WP3*D77JM{$6r<5-P_Qco5wM~X z#DYMKf`Aw`YK#&~5*rpYHoWuw=bU>HYs~vT@B4k<@0a6m*mL%5nVFrPot>R?6+%x~ zim)(Sq=sU+u@HxZ5MEyL^B?*`gqjH9;-Y=l6T-<{2wPkEIRMWZ3xWCq^-V>pwGg$e zxW4w;REQEK*O#9Uqy0&~Twi`3ZX`sr+PeB)BGpfb6tpGR$1}=x?xm~mCFYt5@#lxS z`d(tVp%9;q6(RsQqna25U^-rRksvV>{|E(U0th!VrJGl05DMhx=AsN2;_`fHDsIU) z&;8X@@FitwYQC?yp0i(mp}D1bR-+;(EiEmlf}6VZXo*}8Z#8?6ExjO3qr^4U`PZfF zv@|pol{hy^*MnvcH-js^;?|?NbCYxxuBTTvky|=IiO5fCCZn_`JtCrsTp>xymmAV> zeuSK#oy6tkhMoYE$_Tk3IbZIXu{jXYSgN4Smq_6Jt=bN9q;`^4a1V@RdZpZfHeYH; zYPk|!<3^XyJxlqS&*yUmiP+?x&y`O?&k}didv?#^b|kuzl9Coy+>*Igzb7M_t;gY|H}foC zZYVu-fYiJ;KWR15b&0gJ9I2Ta`5Hz&EnUivPn7UU;_{@);Y&iYngGt1UVz1D1ApSB z8gf1lEa&iFxd&~&lp|-$6_!Zta0BsjC2a*=dEgN*HHLidL6;9+&DFLez0kG8jcEIo zTGEx55qj2=HeZ_&kFwI0B)6k0H&=HPFPHyATkKgP2 z)OeQt+>4so&tAkopRIfGRWlit8h;(LQ4xkS+sl z3f(VVNN4hmF2!vwKjX@k{>pgpE#t)(@RTl%Hl>;J&3`=2)wZkckhnwOPuvmcA}W{Y zCPD%51A`#(3rwELd_-E#{6+eZ`OfQ%7a$t&KflhP*Jqb*ZPDgjPfOnqvCwEAS)n1L z;?Wv8BZoC*PDP`{c@oX-0l^Ro={X6;~xbKG_P%f}AA5rnsICGa()KU~mrP zc@N*?1(xmz`JR_&h^3St&ujj!YuVC@xEjlIdJ~Mew5DCpkrr>1uqEBw5_^RhC0sEJG+SU#MHX#Nb}{5HHza@|y~oPJWPb`SF!@rML|R zlxrFX9UBFBZrG*KnTfv)xd0yfR{_g|1|vx`4Fr{|1U-ynohIosTfFlE{I862#r|6r z2SDkbwEb7t5Ix??qjP|+ZKd?Y_=R*W?J?5C1CP@VAWd4RVKWR9nlzZqteP}D$&*&_ zGx&~Y9<8|x<*}LzWvAgmW9DkEYL{eriV1NLtec4$GgF!|62TJRX5zN|1z;XZJma-u z;fwnVY--+cF<*UsW(%cTf1&moD_S*gCnD=L6zi5Ii4_YLiUreVh;ai3iqAeCA!@7D z;=`_8MYqTXqIqC|7|^DLXcy)tI@D2!ZejYOLv4K#sn!#HBMn85W}f21HV$H9Pqi3Q zr4jG_Sta^Es1gGoJrx7)+!uqcSBO3*eiFUzJ{G<2J`sKHJrO-F-w^%olZaXHwdj2P zq3C+^k%;;IzUXo5vFLM`M7KQ$MXQVVMZ4er6dnI~AUgeeS9H7nMD)5vqVW|HO@6Kv z(HHKCM!6?M%M-teuGdI(zd<7W_$^WIbLhJ8OFkf){!}FzAG<4>pCu7}wo0`4nMBKTB%IPt z3Uz9!sC~FnL=@i_4ay#2z|w@_obAGBR+=!5-zkg+P7~$}_XzVZ(uGC*c47JTK4HD? zn6O%MK-erR5Ei4q5{jhnh24t7!hThua9CX=9G2w?r*$R5;maMuE%SceddrRoy#;%P{_KWnov_2 z;U{5}`m?Z3$P*5m%Z1~bVxgF_O8D-(Ey52!5q`_|i@JqRMZ{6a&!U||HEo4(UREf2 z_a7+SM=TVst@{YiK9j}!!$*juRcnQNP(v|gdYo9eI6-`~Y`OT?=X1r}FBb|&H(#M_ zFiwp7WTJ>@)EP<~nm(L_VcomJ|DE}wbC>Qy1Y>mwdLV>fr4YV1go)qJ!Zhet;S!Mx zW$?QY9v6jB{vwP#PYPSVJwhG69vlBlLb#q4!ud4rPYL1hqp(mP#b*4B5O&9q7Gp&! z5~i--i?$uc31L|VC=WkpyM?vW7Gdw2EL`1}36<9Z;pg|M z2ny;i`t@J(hS~N1(JPZxt5?4*y31FuU9)D*$~9}&)~sTY{F?e}lJZLROH1<-l2)!< zqpPvn*3$Tu71rhz@7lR_^X4ski%Rm6l2^+5Yo)dE(nOn;y4ufrDl0y?Jv}WYEhQx_ zBeSqLAt`wcURv2Ko3?293M0OM?#e65%F4>lmUgL`J2DH7qKo7t8{@=J7cGjPZ)v;s zxzeJn@bJ;1!}(nPz=48-139R$$;fiW;z^58e#lbGq*XO5lpW14cC=F*JCdC#by0xp z=!$hK7Ej^w{o{u&vq`Q=LUBQUse`?}gUzn2%*;&gq@dt%$+9Jjrve==|KSRwmCrgT zE9CO1U~jWGYsU`m0~HF_FP%P(%lAcv;WbG(dKefN891UwX~y;}sRDPR{*wV=c|8M^HX<`{wjrj!sU_ThT!lC@3g6QYyFKiz^HrI@EHL zOtb#sf`T0w*p##t_D)WA3WY*HBU@X33h;@QI~X?B(p(znlEVd=87Q8TvfIvyFZ*NY zfZHFjkOv^PmrTLPC6>udv;L8s9h=j+{f*8pE?l8>JL6NR4}Nm_*j|16f(XOKvt)WD_Mm*Mwu4bCHbGR^79Ggkp1}m9Y;$&Xb=jH$bTD8? z6D4%GeD8iz2P4NwqflI+MJOe0gNv)H?cS{He4t;lL=p!suVvB5QDbeuqq3r$Oql|y z16SA7-8@{W)24KTIBTa?~fAz|u01ke#`G`{vD?Gj?ro zcG*-=oZ5AQ+`NQOH3cIVvMDFZN{$rd=Ro)~cVuNAEIL}8I&H#4o-B(djbr>J3edr@ zkz=`iRM0^nwLr1`qzQV;5W?(ZKGQeW<(?Z{EjOcF`fA*=8YWXkxNzThlSo7R&tY#x+yZ3I{yDK%%Y^{`= zY+Umtj{Wy$VE?i?tFUzCnpLZkjT5ImSD>WGpfocps~|u7NNG}nP2#jgi-y!FP?le8 z>1eYhV@J+`{K9q1mP~>9+W+%s1&Z_YOD!EYY)sjX0wsylc{2s8Syv#hs30f9z|wKs z#+2*>`Pgku!+Y!`bX}Ad=5NOy$Wc+MzcVYpX#I44AKM#NvD`vwVP;Co#%-3CPENbB zu=|qQXUl)cFsVRk(ROS>Hd;DcAKjUa_7^jLFap`E<^pR=cJLl$x59R7O2L5=se8Qd z1q|c@sRuW514athO*w_@pKV_H#t$9&A-7PvbK}O1X&X1#*&ZpGK6N6S?~>h%9!8Eu zfwlSvGq>-^$|@`=T{3P0zvlNaLxI64$+F2SK3c@q|M2m!=NB#NF`n(BIhsS)x_WPuf!#|zS6YqO523pG~QMRZ@k8V3=@Fy_6yQ2W_euh@Rp92#e7W&|R z^(C{jLtn`du6{oRCiA?Qz9S-GLCJRMC)m*SkJr_YgH1huev6p?VKDn-`+EvwptTbd z)tPG;E9gIP@qY4yD8Ou zbkNafT1(~W2_si-BC4Z|M2AK5s_jm*TAnbgVX3iY7u69>H0?5a&U-Z^-88`$sL4%4 zH}BH4`P{KJ+zVXLG|5Zpj}mAix=GaZmuw~!N%m61MuqwK%D3FeN|cDK^`-@VWi9q= zzvTrZjsD*`UwRW+u!;Whr~l(m|Hq&Hk3and-L^6>HE-oh*2(fzILb1M^HwewD--h8 z>gp^nE-Bu;BRjh=&)jI~)X9mu7pVm+97{8Hg-NkbCl23Hnk?^@@$EoF1| z;q}v}ESlVRhFl}HFgs(HrEzLeb^%<7izdYOoxPNsN-f;DF~z_^p}(V`1m!2j_KqLQ zFUpEiHg4Re$jit-ynf;29#~=f4jRQxrEWomV=kKx7O`oA{9gTs&PiM@mX~ZzN!eU# z4VNHXb`yJ|Lj0VM^MqKQS_I#4@lt86ACLUreTRIMfUZT^`t?iWKN{U_!nlt=?aCGU z&z07%UxMzpWjq+LwQKxNZ5UAol&_;WdbdZe!!t6K93Ev0p_OP2{!zE~OT z=H`hdvq@A`h#HG>hi{^Vze60*td0>fzYpOxga$TmBt_}9} z^p9vzqpa@rs^H+Yy8G9pymtKWouB`+j{URW{%61a&wl$g%ILZ5)n&W$R*L0G8|2(F zY?reN6E;onxwoPnJ$uC~|X^$8#QMPmII^%WON9Ipi)Hent%C>IYhRto^lF5^L z_2m-VQZ|-aZaX@y2X=w+F~*{7Z^p)=-D4;9=!PBHm}T5VpPnPzwjDZQNYB{MxsL>F z-G+P;8S?4K*xuYl(yY(N#&m5F9uYE5dY?3;0X+FFx~juMTJVNcB#epn_eVxc{|IhR zh}8-0qy0mgM0HJAD?MY8N@(ArYeG#g{Hg?LL1mxte=h#UOWWPc3G4f}0n|jas?Z1U z842&4Sa~xrt%d;oztN7aEd#Cx;Ag$JssDG%XxruX8DC3)1HcvF3GmXUZb+Q~92>}c zO{V3QxNtszab~*t41(L_y*0Q0R`kCu{@fmbdCO-;?tnl*eLzz{D?mFy8$dK55)cAV z0~`U2Q#Bp9XS{WMU|)d?fO){>xotZD*D-io{N7ZK+W|0dn76=7ueqMkkI~aJ=m+=! zFkDYh|0CoN$NLWe{Q%toOiw)k*Mn;YwTU*y#<>WlL$W1xzhP&qia`*W6BNx{(7Zi%Nxuzx_ ztMm=b;y}-6)Ef$j1+)aVjl3AG7U^K z%hD_5?@c`Cceo_J18+ZbGu0p$=Yf0OR4HWZeS}PX%gHe4F6r04NBTjPWaRf7S*m{| zXVo5ZbN~FVl~uj%`ub+G&<4{n2+$G0W8ueuL5Ku$x=JEhh@~%$jBA6ehu^#lCVAk09}@)WNLqu zTtI`lndf(yjC*ZO%&ysmHooS&vViIzCyFQr90mS|9+Ac317x@S2U7GN_sHJJ_!!F1 z0N$(vpfjrH^IwjGp`oRri*uJrj>>Nz2#cS|)L|X92r#GEx`JZr2#N{{Ab0hbBwWkE z>t6t;WpDybJO=il#ioda73i=iA~Q$O;5hEFjlHVUrd9VxK40&mkj!!l&#R<}B8?XR zhh+ZM9#X6Ivup8r}`jBX^$#B$Nm=Rh|cc4p+z()8cdz;{ti&@sMaZN_Gx=$g%M_@|?7U zyyvD-VDeE4+k1l|j#O3SZ#qAVY?kJe-MTWeU$Cpn-YeiT6yGMy=Yhbz3E-{fv$Ipo z6g!vAPlP3SX!#?VIPD;B^&qO}>ql(^1$7P6r|zJkeTW@d`GQ7I1lX!D7VZEy(BgtQ zz%)oQ#cdRk0qAh^`HI}%|AJJXt)f~h4pL~=6$*#k%kuM(OyYNv^*6a>n|O%qH=H1c z8Ec=~JGozg;3ok09sph!-#DKY&dF}>9{>IZ_@VZ?8_&IzUkO zx(3t(W6?0UEp!g_kNPGFF9iI0T$IOxX>icaacj&8i(+z6q>NOK?*DPnX9vAATtG>`079wCPfKa#_Tvz{m{ZH~dn`V6@9e2xI{I{M1_?5SSX z&RMyr+|cHbjK2c&kadd#>y-*J^gKtwY9Hzxsz4NOR^8zi-1|^Q*Q(zOEmB} zK$dt6crIx1x3I|}*G5yxJLU;p#1WWF$mte0R6mVHn5Yl_Kf z{V|P0tJphO1ahz#jR)TC0KtG)uFqcHO9wi*u6&};a%+vTXZ^^0bcaq%GQu@y%&oRJ%{#FX! zeC9d)^=4&|*@ExnF-XWGMbaUR!3lC+@xxOGzdBc;Q#WHS3$Ox;{&lWNr0OX)x@D2xGbr43R z3Y|w?Ape7!8q<4`g8J4MkSC-Of;!gmCOb9O2&WssA8oJL2F!clUjr=aUZ!qMTxnPv1r2U$O7At&rvVKG4P^X7 zT*zL%1NdXybZdddQ8Kp8CwKRm1)k=p3QOoD2kS zAU8Gf*TZw;MgwV7M_U@(*_j4K+fwU#%_t(MHwE~;Pv)?H5N{6r!GB)MpnuG4_mO+Z zXXHI|0|kCtLSg%EQbgg?XZTN9Px`YrlhK?^GM)b&S$w^htYK5w@;q2oM9v$IliQZ_ z8i)EVZ(0hm1^BW})fNx{Pymcr|0vx*FE+K$hwNi5^29u>b%#VKWT*!JMI9oydb?g<>;#wEY+PF3g1NpTpd}C*fW# zKfqt_U+HA{#WpgTw~NfM9$P|=Y?tvE9434(KrY{&Aond7H1>|lE0_z5F%JEKcO!rj zV8;4i#FxvjKMw7@cbAUhuxvJjiYHyX9t?vM@g4=Eb&ouG34eU6A&!dL# zgg%8FrJf<>x?+ukrOhd<3vAoA2KWN3cpj@ghjfD7_=k}KYXFad2W(Cs%*7zcQP?vY z^unHE46{!|EB#-*D$bTW$t(~xa znD<)SrzZaye`yT!TfNWRr7_7w@K#r7K&XeoxjgKA7tq)>d;JF+Kux0$+ zm3m%UK@}wXBh{7VL&sAaHT1|Jt-`FKIs8}C&$&~)p;KIuPdTZ%-OnH zn@5NHtMC_?2L@kk#Te{_U79V;1If12&4c7J!go95o^pbehDNC`;?Hz=y7%p-Qq4GL z1se2OhdW>`bHztSY~!e~7W3M`a|3%W;dP&!12d>m-B{|}G?F?;w+%QW=quJ)RA!ro;)8QUEsJv- zQ>wlH7S-BvmfV-_C%dn9k}9>7B91*ISJ*@Pv$l|!o>EN%kAdNw9c22VU4eZL&jXj0 zhk(D~Yx%F64{k287T&7iv1-+b?JBo%H(h)ek+aJ;MLZj(>WE%MKQK>qu0lUK@*WcRNWG8>;j?g`&fNWo2Ndx;3&zERX! zA`j>$L(E%&wOG&)G5_& zY%)20u$o-^Ehjhd*=^JYa-F$@oL9nD$@-n#a&D4G);03VzD_>5_es6Ioa|<&lHLb% z$l;4`$$!^bYViwEtMf$ohED=~!$;Ae!!P$b8O86arh&)62zG_(JlVFB?25$iVHXvV z^&ew?AmdkwC;m>JH(9i-j1Qy(a9l8f|8nz_nG`{I0 z9s_wE$hMud$61>DxABJ~ZMpHv5{>D)6J(xziY&i9P53U56luSZ!qK4tkZHiTq0}1qzDNVhS48Qb@VD4_PSS7Y;}gkhQX+Y-J4k*9 zFO&1;laOWX%fHU1I{VI2f8amh0a5I2B76r+F;|H?T_M6Zuo4YCkDnU{&=6VnkUVz$ zBIzNX3npK}w!=P?{arSTvUT{gf3wJ-K5atcPOy%2B~t&$!66dvOu36sU_6qN+k`%uUYiI16jhC()gyA z-u+Fcf#(Fvla2-{g*-JqqaokDzr&{3DcPse7(j-szS_O&+RTzx6VsrZ6D&_J(!jFS>MnB)B$e(Ug#E-WrwCpwo z9=%CE`B%s>^*A}NE1{6R7bJOlaZa#2wZACK({tkh{lvP-ui!R(MEPWbJ&rkSRF#as z4``6=&sX7GGY<~c6vMS;R5z!T-aT`XdRIQ7o_C)Rz73~NS07Tl-yTrwOMg=Ha?o)O zbez6R_|{uH7FdgquuNSdSFB~enZHo?tB)jk;(4u`6D&_U8lIaIyjEZ=LW}-{4O&8$ z(6PP-hMB;f&u}bi;`zFJIFLp+pE2wBfGW}qMIn6uPJQoJQ7q`_cIz>9zVV1Uf{wOV z{-l-{?@`o+N@|R;XmI)t)je^W>XhB0+Qk**cjy{+O zL&(twWWVVY1?lUj0e83>h4Jffu9*+~6@d363=Fq4eSi4(gYk06Q|Oh4PpJ>+=y~Tc zb-VcxYt#ctrrKP-FOLQEf8(>D<0sI8c@a`tA<2|){vV{?d6DYmU8g>GHPv&1$Kp*o zwiRel6+R}Pu;y(4U>o!I&Imw*9bjODzW$~bqsJZ{{OHlsL64qj-g{6*`27LuaqAJq z+;|9?dY~PP`xK3_c<0<*!tVx91jZr^d=DycxQ54d^rasRsy zK*v*x1s&a4rmjDv4u4>NU%4;K)OmR+ss1mIC_MlC)8Mt)H-j6s*bRP< z0;vBJ`21Jfz*vOA?jG0rlZiR+W^AwMb)%AcVf~G{`B+{vu05t!*Pc?-f}b8oCZ%7C z=+I*~=F~{g{(lwk7wH8Z0kHo*Zar?o?v5+g-sn~NlzKq-wm<#bqh|9Her@nhi*He8 zFmV50m6I3o{Htf+=mk4)aO;VmZf!Gn{)r}CdnZHIaJ(km|Eli)EAJs2mVg+*96)ct zTdn_Z#6MScTZPa8{EAySr&R(!`Gb@{uQWk=TUz9VDA%UBNcE7gK9_4##*;7YXQ9$>dGRw)lrEb2A5P2B9`NU% z!DG6hBBfs#lYS>Jj-PK!e8N{F5+8XCn7>GK#z~+1&9XdNq4w;#r3)|L{Yf3 z1)qh$y)D^PIJT1GnBG+9b?@FbAANAYa7Rmhx+7(OXgvVLQu6KcnI+>=eb)50ZU0p{ zw5jK8BCH%NoFbiV>wV$s&~~@8UGwj3E!E464NN}*VqH;&&+IV8pPjYn+8s4+(z`m) z<-KjneXCs?1-Q6;oM7j%{10p2gH;v*C&|M9xW-z&=b?k!+)H+frkhNR3`d}BcL2xs zr~!`JK4;gi(;%rqWHZ9^Y|i7palI9v0#(sbuI_U$8@XUVA$PwsgGaEtWZ zE|ZmWHaR;F|HZ<@Y%<#I2k7De;C=xVIxLRDSLM+waCl?vRIu+mwVah-|6%E{nF4)> zk-usL87kRF44<$PXAZVF1GRy_)#@yn+U1dx%gBqy2I6xsclB28H+aB!3dcE`&W~*e zU)GB_ylEUfJtw9a+Ln-&T@uw&Ia6I92WnY6kc_?I%k{Yr`f&!sXV~n!Ha|&LjyuTF zHsYRVix`dnq{S4n>*8}~Fbep3_}uhuaHys3-rmVI;i)h`MTT~T6cjL$d_3LA+tU>> z0d2^t!6UM6h%czFytXYB<3d;LMC9l_@qBGXP9(yL!Z z!2$l%uD&;QY}lAweb$hP`ziE~vs}w##IXUY&J)QG@gE#Rq&q+6F@VWrrR+S~S-DV(*D&hzl=RWRaTg6)bYfEJ(?^c9+FiE&dhKg zu4j#SGM{e6ZuVi%wj6`ADOeg^q2-Af_6FFi-Qj(&*; zID=+CCC8HRd5OK22d)VRbbOHfd_Er0ZQMOSB_nUluLzu{HNHoB4IfJ9w5CDjIRA^K z))9{MVV6c^<22Q&G449~*U`_Z!~^(;EEmJi3tzh<=;t#(w|}Qs z@mT2elG>x)XvV=xbpYpK(0Qugp!+cAoxyX5-$~)VjXb;-k-Psi@|?Dwd~i+_w66m3 zdXK4Y4c^zJ|3x0)_wJ+^0+s`1>M6oOFaIbl+YSmI0xjjG*vR@1bm>u2e0A`5PAeLAUYiITYy?Q*dxUu@EN|-x>Bb9rT!TY zT;}#&hM$rB>1U<$07sk$xZpfPx$}4O#CeQ*&rJyj<*FlO`Nz_#7Vne^awx-97p@Q?wg&MQ?dANjP9VGyixl)k=ZhICV$zm9dY>b;oJYkw*=W zT$21`?8j$cAN#-ANA{xcyFuYCGU2reJm7N^^v}PuUOoSG_vqi)zS9SnMAA_*M2wmG z%Qf&nKA={Y?o$-}U5(f$&%Q4B9c%q?jXbuWCf}WBs26+y_$^V%SEutg@_0Na6DJ>& zVsQ?5kWB~-e_j9j?#;SiY;^EA^{ae9`2AA&pB_nml6LUrvS0lj_^a6eiSNv0A8!8d z{AHQ&+;Ef-`1ZAq<`+};1Gbs<#cu;|R%q}WtJDv^O#Ggz z*9QYeW-la6M5_ob-4Ig zI@{6tf196sLT>wDPj5U=7N2c=>eA`MRyF&3(>?I$*<$dJYrW6>{Ivf=_;uOGUcu)C z@LOH}Q}Q7;fp5J&v&ddDMFQDEmY+$V3)ZeS# zfggszqert|eZG(V>1-8#_g3}B zzWulKIC=I7%V!MEZrYr>tZDrDq6+j2YwG3s{XdZhJp7{j4@z%2W7b97cX-=As!VRt zZ9V?={r4$X=*8s>N%>|SL*hj+diq`>rKkx&= zM}ZE|kqLYoDw!?$#C{4F0Q_Zt+fRWQS~~!iG088$dtq!x-|p<^P5g1Ra8Nrc8jp8$ zdH*{Hm!XHPZJK^-YOELs;@hBoxch{{&cVT8^0b-u0|vg|>Vv^UKOHw|TI7f^mI(xv9&b$ zx>oIolK~%0e;A(e6V=YULp~qIRedmE@PXJG5*ke4b1asC#hZj9Ik?8k&VV#I9A$k;lcJX+2qpSj5tyyHC8 zE5Z3+-aVWp?;+D=hsbZ(%&PbM4O~Bd(zNIL@Nl1e+SC@dkSpRaYZF-q?xa93TdEh_ z1o3gR$kAsjXt+oQ7T70+%qH)+`demxt%)Iccj+QBgx4BF4{jw#unM++3s@+ShZi;lQuZUF>z==E|m;mhf8}Q*x+{G zo+9rLAr0Iq^Wh)u6BM(w+Us2ffq@yJ?{Yl%@EVu;A0xl#+e3o?TQ$@@5$P2 z75PkCO(EHrr9EGLUHgb_k!(!tx7g0NL#&TtJz~ZNefn^~pby5fO!;~=>*VD5Ri$AN z{3&%2LyB*&jC`?P22RF4w-u?~=aXw6_+U04$9FsrrSAc_edfQ;o@X0Uvfr?ub42W+ zGh*KYquxEKlUZ+%cHNa8(@SmKcaXWmJ~BhByQwYk@mogjA1o*D^b-^SezQ#SH$(M` zHKfi&d_2dsXldX$JIlrUB;SSemU8l{-Eg(8eNF>Cf?SlY%@?^vOw_nFokgzw6Uq5& z#B^u=O6tA0C;;(sf!LdPXZ%bah>@tBix{X)h@a+IGVDuuFTnPfv?ty86RCq6CD&}9 z?@bhTQ8u$TKC#-0crV1bI_ zXQqYsz0!Uw`A5e8rS^?&9NSoZmZC9ByFfOGce2YUCx?w^$T6vaeAex!mSw-f&OuBK zY$u%^+v);QaL%t}`ftScAqI&38`i6f$t$Qq%8U3L+t|0Wz&_PzQ#qL|FCmLL+sG{e zIPW?|&MAl+`SEwy?HcNZKG;5EJC*kht&v6+R*>DYT*%XAGD|v4s=)ebFSW05Y->FA zTN3kf$YJhA3f*y-8vk^QB7V9@z6HOLOZst&`2JVw3EPBiVz!6b24p_*xpma3N2FX| zNJd{DAW#3gn_g<)Leawei*?lOvzaIjT*;wPX4yM&&^8eiL=#Cw={(R(*U*@_A5VCQs|k-h=;1Az+I=Fcy}0(?(Y@c zG1S<^08tfBT^uArt?-xsHYPJ2)^f zd{zCo&8zR^WE<6^*YFO@Rvd1hw!QM5sk4_wgw(}K^yc;bf9m~16~Weug3T2rX1-*W z!D7%}Gm+*3$^mSby$aYKBUoFMYa-}&l(he3JIof~1^7GXMXWVVsLsLL6kbN;3?CV{F>2UHSZ(ETcUR8HRs{V>ie}fz z-XVbM28EJ~OFc4#Z{EaaFDWOi!n$5gVOU>Gzsjj@W6bao-MI~=>!h8=0cWZ92Sl#T zu~s`-lM+rl`>^X|V!4YvrX}NhP{iAzzT`K9ufjF$jD*L>9}Mg6<>KGmD(Jf#R-Lde zq7CPOQPP=(GO&oOYptcA6VgbS^MB!+lJT4 zI<$h6UYp1}d^xG+lbUgcQ*l%Tv^_+R3DCaWP&wMFvmt%GF9nKDF?>>h3l}c)H@gX%n4gIwDXR5WeM2e4Pea>yv z-goh(`U%Td?T#5Zh`f>yXzCVSqE67yU9MIk2Id|G<^75n&!g0^@CtRox`6+~<)!+} z1BMPgdVa#~1f=YL6n6L$wYvemdHE6IRc}zxp{wM(x#TIok7|dHKDBjTmA3EL=|e78 zYkkiB(1LSRd&>`x__=kPcH>@E{&jinyZ4;R_1fSEtioG#d~QzT>k5&JnLhKS9ie1R5;6} z(_KtbVHgK+*KHTwb z3U8KEr|M6CKHF5d&eQVNxr*Xd#pN8o{Cp0%jbBO9Pl3P2cIMh>fmjREstPwbsR%UAN&a~0&W97_+{w2 zzK;Pe5g_}Da_b3Y$=5(~fG&DU3P+ZQ@qA?rj`(8?e(XnAv>p1lR%ogzEDpDzrF16) z>>$A2s?J^XXy3bIMu@`YByICjm?Ii^mmGBZV2)~`4mZPIM`5A2nrR066HnGEYA&=F z{ItC{p*~!JTj5FqSfV=gCp=^dW8^+e7-xWNN zxg9h5B6J9LGr&<6$h%weF5k=nw=Wx9Cml;Jj>-7nQg?!GIQQV{9x_4d_iwmJ{{Z)# z5>8sc{Dg*|7C@Q@mHF%nZwj!Ba~VLi89@E#6*A|x)Vtp=Lby^Yqxhx(0000o4wS@w^nWjf-(sme1;Ifl-%J zZVTS!J$~-o$(qfQ?eZE+pB)hVF!8|*ljoK1!b4SGrA9u=>UUS!GfT3K{q|YDx%>aC zGU!QV&f;>Mq;n!{=Djb|I2$!)T}ksfB6>5IHLA>Zd0~%afO}wzX6|i{gNl90K9=!% zP8+t*TJUq$fzNxacn((!u*|p+YyE4V`28K*?=%a{$@vzrru%$ykk`)xywwHA3RAfJ Y4VL=|FPjmdKI;Vst0QE(06aWAK literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/folder_Open_32xLG.png b/app - Kopie/DD-Record-Organiser/Resources/folder_Open_32xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..3a6e58b114421468998b99a53a823d8e8321ce70 GIT binary patch literal 355 zcmV-p0i6DcP)jMS!X7vu1HPDKU7mpp}&d#3CUZU_wmw~^tal!C75H4WxzS#bz+GC0Op1hkj>LH zB}GvTGS2h-DQvUm@;EQz{P0$SIb)0@$(Hz@|JHE6nDtVTfQGq70x)qL4~CG<0NN5}=gcL>(Dp#vyEwD0Kt?q&fls zQXK)nL>z|jh_f4V&b>}tQI}KG4;1wE`~e6rf=bypq(1-v002ovPDHLkV1o5o Bj`9Ei literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/folder_Open_32xMD.png b/app - Kopie/DD-Record-Organiser/Resources/folder_Open_32xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..a0392ce8750435c43cd198794fe8f69a52284c32 GIT binary patch literal 375 zcmV--0f_#IP)^@RCr$Pmpx8}Koo_~nAZTC@UaT0X$eFvXkCJ9cy0h!;BTuo zV@Dn?!q;0<*+7fA)h#B^G4}?DkuPB?l5>D>?gTTABbMX@3$qs3fPpav5{6;81#pR9 z5(I%!I^c#Y-+(^6u4^<+gP*Y0dK^%OOW1fqJVS!RqbR~|ca81o)(JVkIFs!HLHINd zg%jj$Ob{Xmz^Z4*Yf{Gk?rzK5O zXlUELSi*Z+ilTr9`(|YY!Z5r8@D;}~=#tWP9S(;Nv4m6tWm!VQzHP+?ZfHr8ghWz# z;EL=oK%e20WTfyJWaI)1$;bsJl96YJzkpsw{Umf{yvni+bj^7du#7XX{u{0Zz5&0M VbWuTrHsJsO002ovPDHLkV1h(von`<4 literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/folder_go.png b/app - Kopie/DD-Record-Organiser/Resources/folder_go.png new file mode 100644 index 0000000000000000000000000000000000000000..34a736f70261338c9bca98c38b78193740fa83a0 GIT binary patch literal 694 zcmV;n0!jUeP)N@Zw27r|iugjyK_i?%mf=ZN1k*q&Uedp~2B7g_+fS`hk+Nr1A{hI)z0`VHB6Nndl zX$Di6C%-U4JXr@~z-vS-U`e(1B@n-FV+JTmdRsylL39C=TOrljOR~Cct>JYCvg#mK z1ulqf0!%<`#~!NMu5Ba=9u&fmP-Zhc6E?!yaAE01t20W#1|(JmqlC- zu^GHsMqCzbhR}vI*0gbTWQ<2wA~0LlNQ8*Dc(aJuEaI~Cy?zX0(B7i0rEb>&+G>xJ z3k&o-xX8WohAjXsqHu`)jo1ugGgz-V-_eT`kMj#kXL{&TC&D=t zDS)urCatsVt!&16hZE0Sc81**wR}pC@@4w{a?#MB{`E|khgw{yHQH-JtJz=E5u9kb zz}UAEsD~v-EDXG-F<&OGY*S3BA8_IBr};$<~uWwQC0qBZ|>xVQt7^l z(!}S1^(Ske7UmrO!!*&y9esxot1o`frT$hpelOdF<(SuhxF@%42a8v}$Ue=tpKj|i zSJoV=l>yA3B)qwui;bhMadW1l=OAAHHe4+eM-Jr=5AX{Qu#Kwt)1rTrQ2Lmhjp8jP zH+Y8bp#!+g5|>7BwMg&ky>t#7#gEoH#aTIL#%^zT*4jBdY|KKIQu+M2lxi918`^q` zxNsL~Oo7HY-TQfUKTl!e*^xaL!s{uc&YFR(SJTEA&}K2lkObfQ#%^wx%H%_*y=xG+ zeHiP%r84!L>X(m_XDg42mH9<57uvZ#BxD_sWQ^cxj1EfBR+Bwu#k>EY3;HCvld{kp2NNywuEp|LI|A7vpB>Qy%XezP7K*`zavU w#&yO<_^UgYoFM0J_4tR{N0@o}PX0f}=XgUm!}0U=cA&8gp00i_>zopr0P@x^(f|Me literal 0 HcmV?d00001 diff --git a/app - Kopie/DD-Record-Organiser/Resources/handdrawn_arrow_right_green.png b/app - Kopie/DD-Record-Organiser/Resources/handdrawn_arrow_right_green.png new file mode 100644 index 0000000000000000000000000000000000000000..8d247d39e0599daabc0952c09288068dfbaeadcd GIT binary patch literal 14056 zcmVP)M$HW-Bg8_pRlC%fpkOra<6oh1fFhRnBFo+<;>?rXH z1PUOAMU)L27O(|HED{hB!Xl6eSt3TZ$$;BKjN2XeTwUFDyDp2``UmuIp3OP>w&z`Z zClp0tud^VZl0gvoC)l z%8_CR00wOkiKxIqd=+)jTJ!j0#4%)oNAVeMsHjotx_N19UowLL_Gvgp$_G03}C%!<}DW|&KbP=3ey)^USRq%dp^XT z`_1;&-Je#xgndO316Xg8cJA!Oe>zj`XXedL00LPrqhHXs>xiy=$@Z+rZ;BNMQH}wu zA8qU@m3=o!X*Fr*v|BVL2?=B0W9MO(=e@K3ZqIDH)7{vHY7Ag~*o`AA%i43-IuTrd zm12eY37RvEonYj{TsiGMx9;`y$A4z3w#jDfiUF)`0|-gUL|4DY)iadJ^ll+vBFUJ! zLQ>-Wk8t3Ny!>kirY`v7_B-{VfjeRVYulEB@rnO%!dpbpzMV8mNbSMqU|>9P0OSid7~3RzD$y!pjbgcsZ3+C^Y910#KS+KoN?_u zi_?7Y+xBnXpgbnz1zTxE1+ntoi zaX1FBI{cr!_l}zEs?NNB=iE@~&ADR^>Q)RbA%p@#fDq9JtTDkbV0&y2t(L3SNXqDg>(Ls48l8wd*{%Vqc6t+&3eIx-NO=K6L2bUw%(Tj36Ml3fTq&p`m7*b5J1}?%#DE0r1&sY_z$CiQlU(- zP^45WQ>sM7C5TE86+C$g$9HC&`Hmt#|G9|S5yvCfK-UUbem-xm^l=3zp@h7+YyuX5 z11<;eU$n)#7)XG5peE&U7SL!tk6tN;c3=)T3Zy^?bOIefLC;_uus{XKfk|LQ?@^UP z$$;a)nVRL}Aywg2^@>vnrXl0Od&gkg0M-U1lZRpTGFX^};v__6Xv{;oPaVRz7!n6X zyz_YDu#qPWWAM;O>o^l)ZAd!r7}*tY!TZ~&PRw!Z)fxNmhm{w=)FHl69cKo(5UxTb6A2i^kwCh*^ciTM@amw_%|KkyykAA!FI{u21I=J2=% z_#E&@z?XpU>t6mDxB<9d#=@zEHeOfm;sa5EPa4Dj1}>Ag^M`_9d=>b%p2_t#;O-#i z?`*{1cP{2Lr(D7BEjfq5N-sdxfR*gmu6Y{Y(x_1GQE(piLLcfIYw%&`^Y6rM#a3U=dK(#WJ7>cpwA{ zx}Z^$Uc3hzu)NfXZ&X>x8<=u8Wg{9F@8|^G7ndNJhsgslaexjalzY_(+J18j2Bs9fPRH(#(~!r+W77JzCe6z8;tFR#;m-<*d~#3c;yAG?_C9Z?^A>r zJe8?1;+7v@%S7LL+N|LRhaP2lTw%}hbLp(lF>>U`tOh;^tR2|EruG5oSPZ2uh2U}* zbS;6nO*zRp&Zz?%`0(g1er@I`zXSXi;3i<06ClrfNR%<=bYLT}d&!x+ zZTV~XbXo^;6-a%nVd!+VP0Ky%mroytxLyB8_N{>+KM-@zq$!bOYERF3RiEFRtjDy;GbBnwiI6B~yWF2@Fe)&Zz?^IXMh76 zLm0L2JLo&k3F{B6gYWz<%nqx|SEvXIV$i>-FhAkIBk|z9rO~L7JCCtYEXEWH5uq)B zH+URa8E&Z((6hpD$Cszbe8%iyc>23=@o#a*{s;Mur*GmMV4tEL553yk!6DBt+jK#m zu(8|)VM&Y^K=)E8b^{Kc`d3k>8{Z;DrYSt|CD?l}tiK%61x{b_8aU(KFt&>od+w#_ z39BxGLK_Tjl%n_E-~61FuZ5r>9PWLKigjM$UOJE=gi<8g0$^0hdk1r)w8ZN@i3H(! ztP$3aib@N8YhmWNTE5OfGHZ!r-7f)aExF5Zco~(4`a%L8Y$+tLksu^8y83+1n zez=>PKRd-T z4a%X<+zJnU1r}|D%YRql@#r?#cfY!3r(6Mjt6=5ppfLkSwn#y}Yhmh;$dvxIQhI$B zMt8!%CPk6@4B%P@0AP?fq&Pz>LfBAI175!7c@G)4etCbZ24zcd?sxEFyy(4s(ts0Pe1+V z;k0+k2qyNz6F0)tv(P@MetMy-XfnQE%AP(B{Tr0?Ym*A!n#iFgw&nF!7h$9*5?8=l zUYZ!ds`=C2uflI(3W693;FUH2OG`WkgE1|7SVbc&)DspO^SZ|bVi5z8OykdHY`hXW zy2|YOZkd7AA?Lj>=DZ8N3i5{*!WicyKfcrtkU$Y4PkytDWP+T zA^{$(6b=UE{1^f$ogkD~;q)p;ZN2wWB}?_cCrgAFf(W2hI69|L-x3ebV0@soBqJaU z!2tC}%0f0v6dA%Wzy>m;ATW#{$hiD}lxR#vOz&=kG~$X+giIfG?7AoaSeE#YeB!an zy(f(UxEy>=QtE^-Ruout8mxW2l$g|D%eT}CD|M-I&oUU>2?rli$X|OIl)B;I!^-!d z9(wzL3d(XP3~kV}oI^?vbg2o06ae^43Uey(P>96`Arhy{>w?zxg5q*TkV2^m(PRJ; zasS?7%yXlMAply>4vH!s1FMyz`NlLpH&`DatA?cNDOEyFyCR~0Rf+DNZVqoT{PMq) z@IlJer_5dB933mq5AFrJPY?_ghmA)Sc+PU~WaV+2D&$Hp9DkZ-_iJGsR$d4li(q^o zG!~%L4$IDiVjIj)LSq^hpRTDIYxVr&Ps!_hSHr@L49o z7?I~G#s-Y+%UOP2k%B2uEEX8u?K$+rc|QI05TCnnlH0CMA66Z})QK_xc^IGqhrwoE zZhD?PeeXRmwht=ZFtAn%9o;E~44o#$rwPoANHN_j^qnP}1+AWa1co-s02XEy*0Ct+ zTl9NrRnkcDSfigMx(BZd`{G5Pmodp8^Z-DLYwHzs&C*u*$AEJg-pBf()fU7UOBBYW zE|Gn>*2e}JL6T+6)h6kvbP@z1S)LNwm~G06$%@~FB-WAZlUXai`$Qn{+ zsY|)P(g(e(v~02D94Ja``W>VLJ#A6 zWWcVKHgFCKaoptooy(Dcia<-!sF69}N*xY7f~Z*Vh^MGj+9*T?ieWo(SjGe%?;t7| zDqS&;T{lPfnw&yUov;7KBzqoAb_0I_eB~A30bY~{q9r`qzmD^w5)5yL3x5Mnc@zBj zS}|pD8?1R9v@e3`L*fh42Bh;)=un<-AAqPLyuSD}z^e6XQ2xzxNakR61f~zG#t33X z9Xzj`7!a|eG*D<0`)3RiIe`qhP{BEeMDH0aSWmrP(=%edFQP)PGI4)wmY3Bd7j*zFmUn2_^Sn(RT?suknHr#R6HLP)p`X zsgtBBS(XtMVq7C)W+LJ2ceK$nSZ2qqIhTK|!fQWV9$R-wG~{wV0Sul99^fKiaA1Sr zUTq3?+$v+(^fox>7gb#C`GG3_xlt)GDk&YrWf3g{8=+$mMs}#-62vfZP(@=9i&?DC z!jdz^#?|LIsl*sa(-h|&##&l}-ZPd;xr9dso;!%+h+?rwU<2YPqEspphb8b18+dH! znw&vWZx9z^0vj=LEMdciF+Gb*-0-P62G)fAr(IFJ-)gM+ygHq%d^HWA2jr11 zSAO5{CXqbGi@u#a2vM65!Spdz^()SYx#KW<6xLiSICtQO3a>N6Fn$mK7Hv`yd3-xm zx}a;BrfZE+evZq+=-!=p1MnV_WC3f8LVru}~T2sBSBANIiX@LWX_Xj4NPE=NN}L&U?~;~6ygGT=18*~YruvE z6FM^A5Xu3Jv4nAi2{IbV9J%hL5XFq|cf9$RI{07TSw%;G#FlT@sZIFJeJg{H0(St{ z0ULlzUTFhp1Lo_qkk;hA+rI}`<@CWb6w2|i?)9+r9N7BLDtylWC_K9bjy?sAd3kr= zI_Oy~R&jI>?0*P_{Z)z%Hjt5E;n;TAahtp^F3NyTv>2d~q-1#mYXc;Jhdh%J;4P6Y z6NLq^o-ECAIfORA+mzJT38S!yDl(Un`<#Vzj)i0%Yb`-&n$hFXKF8|Q+xU|$YdGyK zF$cCLY`CO&QRh%_0O(S`fN|g|V9_gS0Q)Pw;_$2EYM+)mWdO&Y6oa?vttte6__ts~ zrGOuPrB&>8FO`9~Ops{efH3!p^TY+zCIuJ06_Oa+35Ork!3=9&uWg)@Km-{LBuPr< z8cl^Eo`*k|te3l(8vOAe|1px5Tz&P`NO&Vq z4vVZ_m?4S^8kmU6D&Qve!r8x|)bQBXHEq+kR(*l~wNh@mSC##)A3)oH!us$ISbdQS zN0&lS5C%`GDgdh!Y72KSN3e{OOI!{vcUT)>un0=Z2-LrD1lBfDLsW<`#*n93^L^7I zl<>yuyDr3rR_}R(F={puc;+X3bEe>et2!AwnDY3IRl0@(<|o{HfWyE%@CeYWAzAjm z5cw@#zqAMt0BeoqhTc_7b}Z6iO1tlZybiDXb+vWx|9{2ic|`P__6{|M@>GWK)OS@! z%p4Jexb|WZL*BvE5g2}2INareiHlE#&LQpG;W;TK3?i%#G$`tkSa8nZy~o=WZxr?7 zsL&*TTq7pWA#)iSDS4J_CCNJCP|Ozwa_5^D7`)9H-d81A@cj0d*6>UJ&r;?m9qoMq zz^?<#fOi84unl;Z-uv04fP+B8SjIaRGweO&4TbCTJ|yV&gFgcUJ(PPDK@M*f{_b6kx^WXQxB=P*<@o?s^#(RLIgCN0;z2VUy615; zYXEGsE0|>|27~uGL1YPi5u289xgkv(WG=;%<9vd1Ibj$zxr4YE5XC{0KDL3UV~OSd zf1Kdf>&AH3e_h0fzOam?r^TFkW!rhc$AJgB7KKA9+POpNfD3*W10gZ6b$ky8I~Fln zo0LVr{WJ3B+y7MIy)vLYzy6JI;6X)&fpuaFI|enPRh`tCyi-SEd<%Fd7-%d!`#2Qa zMKNa$p@ATh;++%fXde*E=yOiESYuz<8bt)*a!7mw8(NGrqzxwrcM)+I&`4@HyFj_v zMqmSs^~8lDfw6dU0J1E{;E8O&l1)W^^z9jX7R8+N_AbT`HhBEzX@34wgKvJ|8&lgZ z{!r&7aXB2n_7leet_LpD#REY0aw9+ouw!vQtXop&khFFjjK-=b4B{4n6|I+cbQ+_Hsppz4r+PEZZ!|h*fO>VhFc<14eeDC}21l zMAbg#d5c6;3p736c}J2ikUNh{40#R&IW9MZu7I@>-g`^{-sU)$5E!FoSgKw@U?Li` z5$i6f@W%hz&CzEPYLjr)r&e(8+xr+jn6UiJ(%>W4&hK)W|BPlH4ZuCXG1YMlygUQY z14eAf@~%a6FF#M1{_tZ`dbwXDQ0F4p_kffXS77IzQfk}|QBmG|c#Ar1>))Vsuh&r~)*#6nO(+;gMT&(AaahCzP#p_dyK#_>7j&`ZwrM8E6aL^2 zHnI6_eGINF)3++(+n*Z#ec)l2`}2w&24ENPpa>*-Urq{`1{S-FeETg5+uh6H-1iIq zB?~I@j%;ZSZ;b6x5tlWD|J(Xu&wYY?OU{IS55e$urHCbG>6!E6DjvO818MqM$Qw#2 zJuB5;$P+N;K9l@ z#WI>EA7H_GyoG`(f)AM7`5qBE`#^HV5^!jqtK^PRU1QfzH!m!w6 zAf5lWE2q1^KvMT?`Q8*JFw|!pmwvdPGO%;+1h@aq5w_e|-8XT-e+;<&r|AX`1IvS$ z6{o+Gc@-w=*=MQP!O`7dBjx&}4iEi}xbVL9f_R-vGzzxsP7Q;ebrocF{XBUHitVD0 zt%cEDV62Fws3POS&=Lc2MG*4n6KX<5wNsizH+q}C*PY~YlKeanV4 zh|-!%Fri*$AO@dVyf;mPDa{+renFP2)^I)(rEG)dH9eM*J2?NHJ@hS&s8v(;Z>=*i zpR;6bz*V2?WAl4TYqTCm_fNYTX7hv(uDXcn{SVWIlc$EEs`nrSYvskG&xr0_{u-f# zs3gM}+oOUpu4sVN=RyXH&Vbs43PHREMao_B`c_eeTB~g`xZ0FX=Q{S3$fPiaMuQV7 zfkjX__n08n58jgHftE!q;FKDoK*|@8(5+dPXb~lhus+1)9`B=OG;qd~rFAf^iR3V} z)Ms)gs|iasmFQbu!Dj(M2+!_p@Zb&OEIrGPp8odmFSp&2eO0HI@x;qr4!sqyjam9F zQuN49NNOtnKniQ?7YDHV;$~D(-cBKHXe6vUsZF6$2dsLnl)vwOEs%6A*1ka)weUY0 zrqHqnT1lH5)mVCUTuYooXD9`na51fj5JnIfLttW(G$kj+hE_F_W(y=vU(9`mv5s=N zL>!m#2GT6U+ECQ9Q%cVA25DATs=(t+LVHh$YebYg0_yV#2cMW{`(5)Kcx-{kuS*`c z0k?o=34rM3Mt~ia9v+O!TxdflT=w}VuEwBchB`_gA$jMxtJXP^&DN*SPng+A~ zsX3mw^Ek)%)Hu4$9he)>--~3QF4}*Y-ll{5`Jv0sp{ z)S+qLMok1!u^qe@;ZxA)7yIth`qjXCEr%@3poNSGjfZ9G7gQ%?OdSJiEjQ*=6!vWZ zmxzUYj`FQilgs337+y8W9TW z5E0r)&^LGFz9GmN7#eAcwISXI#2pFqRoHs-1iK!YV$UO0hIeLWo z^;%TkXZon}JcvgK3u+tJXJjmG14=#C{`)#TEP^%qY@sTI5=5^aYv>$Ap+>{J18bcY zSaVD6Qj$boZ3Dm|uLzyOypNi^f^&vAit+d+1sp~NJPzj*0t+_KLStwOIG0oC%$b?3 zvh%??e)Qd`{HfdObM;xj4|oU9mHekUAfgsT+?iI1K#DLP#`ox2dIr?1S_pL+Y<@p1 zJ4Y?tUALq5?>^=Gt|d~wN1h&+bs&@eWQ)*2-)cd|+Jv@_Z2)U7)|`NeAkXx?LRp-F zK@nr>s5*&V@ z6!k(|BrrkqJ%c4rQ^;lE5U5S;MM7124E2RNTW=rb`(GG+?9po%X6v*50WFs@@>A{w z$h#$=EgPQkPz5T+YJsBMuPXeR+qDIB#=Er>Se;ajP@mD#<*{u-2x~79)=z8T5-EIP z7OYWosdI@8WOTRo^@C7oqSUEkvfQHqlf#b*QREp+?bq|#hromyPa8Z{%wt-6Uge9W z%fSnWV?!kV<$1m_P%M^^G05}vJQ+sr(IFB(gES)uAjjYmuqL4ps|nu)@606}Gz;E36mW#TstE zS>xh;YeWR4HQl!`1G|5K22wUarC%IFR8~P)pMl|LwB*^dLeF@PnAXsS1biX|1@X)8 zG!_d5j0wo|9IcDDepl}FBl33Pf52s4P|s#8)N6FKcVNN{6^V}A zi3X1RSZHCfdK1*AUZD6h;L_&_{TX;+bI4y}-j70}C?XfOYi%Bx)`pYrh0rQ3IUO;B z@kXodaZYAykQInc85iU<+zi%sU&f$<0r%qP{2Y)D1 zXK1511km^A$Kk=hQ5~>svkK3ksE9GJP6s#dxf}9Kyh5=P7G7BSFT6r#looJ5c}?II z-kU|6I)knE(S--SIvI3O0FTm{%Vi*8(Kg@D@|1{DGZk3tn++iFgm1nqkI7Pv6K(5xB&zaeT52us{W_~?Y*%3F2TLk7YVxUx>vNW0Ur5#LA~=n zDB4zsFsavH?h~wg=KIR;r@Tp=f(=9{ZTqgiU+RMMKdi;lxU4nutOf@k7WC|1rAg#m z%O)?_EHawR0sq3OA+PIm%ui+jVH9DleGb2F0x8^Q2>W}bMdu+&Ww3#@gptKZRXiDi zD`Ty}1df1+fEcU_#IC`Jaxvlu|1iNn{pQF{;2dDDUg1?S0GDC3&;dAk_2dDyc9)!` z5I*uW^sSOn-19{-br*aTp1e^xeD#Iu@RhqX0(Rgb)`s zp)BPE5lkFZAqX%RH%4m<$12z$Sw(DvRhDj(naDS5+b?~=#IW!QbUAl{lw z1q*GcV(#IuYUS+w|E%NGYSX%}&<@#xkcIb36>S4jyfrPdsWzqi%01xn=P37QCf-39 zT8uT?6>JGMR5ZbX33LS!GA=K}v606{IdNR17*w!6R>T0D^J)`khW3G&ayj6hZ;o=! zuOC5AWn5vOxmWe5*h(*JNGXI`b0kTkSl@=w30BWFJFH8}O{suuv_iatNGRV?6|izms2boe(<#szV&-Y&`<}@0G9&CUhRV-N$ZTX^)hIi5Klb8(I=G8 zdsjkrOcnYW?-3%{@-NEY8{aJWH+2Ypbd9k7g}u9 z6U>itErwn^p9Bu@0`f}3z=fJl@gSKO=I&ey?fr@Zy=$ekG2PAdt~mtJ*{JhA{FBtiKGr6o*_^7yd=|1cA(@#6f^2cpLyukpQDhEnowY z1sgizFjAK=Pl@9IV<500Q5=ychVCItxy$jdpB>?Wf0(Cxad>@oEGu}=-vW=Gh-2ac zpqS@8UG8ROR1rL@O+o(#Vf3L*n)W@q4Hb49VB?id;>c{fQ3i7A+f?Q6`=Rcc+^6p^ zKTjchc!zclgGd#AvLMKqHQ7Ay2{G4xgzUili1^sWMzA#pHu zQ2YMtF4qYlBbxJL@tK%CcVlk98fK0O!*?zN1MI(FOx(IR>HNSfg+itI9Y%NQR524s zNk_Kok2sV%L_P(PP9fEb8RT_jKry5XnpIR?A{e>vei_XE2X&^QG2##URtti5EtN6u zx?9GD;U|$6wr`DCDeUJhOcvGPLWq0-YV}{cD~Nz2@5igJcA$q3ykg2kVv+mwerPhX+5mcrzVk&7VJwv3u?+Jd|MNcH#`JL zTEM}r8dsI2r+tiafQ zMTvd)$_P7#RwDmz!qcyAdliGm;d_e0YGg?R6h5A|N0~IyV<5KV;K^l=e z$Kq2%wti=pz4v=oo^QGPuVxwDn`OWu;4{F@C;FVgA>b%*yA9aUs8a1167Dueo-?*b z#&G)2DTMF%zRnDO>z@ke|LE`FzP}W9A6ySzO+!&Jw(AbCM&9W%d1zx6hIhm6d$f33 z?w032{tbBin~-Pf_#NM=ba4D>@dpDN;DTR;LZ^yMmqT?@{epd3R$OP(|1EzbQqY@Du@!7Yms!z={jxogGV*nlOT|){2}mMh5Uw#2UylPoq)CL{?re1Hx;43~M8t zhdg!QLaYhtUmI|IPs-nYXp&Rj6ftuoW9(pq-sR>A;M>3-oGgb$&jA5Ym>(voO)_8Z zVW2uGW%jStX3y(c^mY|>D_*N-Og^ig zexV{Sc3D$V+A-W9m^pbs2w~O5t-sxO>N^0$DHJFSS1nR#*Y7{PrFEQZWk4yQ zf2~qNRj7vcK}6u#pR6nBv=T1QkHOPQ12{)uBLb`Susny*Sq3(ROdd@5^1CNlb5TgL z;5o8AWy9-3?)>w{9|2DSoGb=Vlo5b)WLZKQmz0ASrschp2i562_kA$FUtx7(uL`$y zmkGx^FD2Kfb$V#mQia`)A-%sa35BwVodXXlESI~499$}x)~Ly#x|a(XOdgiO?6?)O zy6)4lw#efWDD{XN7~k8RMxGpbhDKwaHlVuVH4F`I(0xaq*52a4d)2eBFJTa*5XBTK zF~;V|?ZIWb!YCj|DS-@nSA~r1%K7VGoMhc40R)~c*Ckx_r6M=}UhTam;7RY`WHNvb zU<@eYDOih}KB`V24r((}V()q#0OgTU)F#Cgwht+!JJGfj+T~?&0lZf}KDJG-NmT1NU|e@r^Z?aK&R^ zXJetA@jPSS^lrMRo~7Kklj+(N#riah=SE2TH!yd62eU_>VA0$#VY!E>+>6JN?75S1 z3{zRg8MO)G$^f;vfU^;4r4O4eFgP) z<|f1xmbw)7XOD=q0#*ZGQFvt<7_3cmw~e@_G0%T5v_W9ezQKf0fzRc+_~*|51wJ6K zMeySA@rpt|13+g7M+W272k2R58Q<@@_5aMV;+%**4|)zf?6~YV3mo55-;LuVK9i%I zYzA-`2@A8F{^Sje&K_r5ROH!hH}d&Lm5ucoy5>j8M|bftpbS(;b}|6;0wrJ{@PLX* z5?}#10$d5S>u36{CGduZcTD1`05!k@i;@~MQ-@gLJ?(m*95^nx#4u1X0lCj{z~Y5z zYW@K8jX5TC4`pDDnkgLB@27iyj3vNFyOz*4srf`Ym*{e7Yi&!S)DrrLAc(<05ar~V zq72Aj3?itUF=Ph%Rt3xsJ8u8KRTghDJb6o%qfdF>^XEmjUSF>+KF4iXaWQCXShd96 zpFcVNW)S~gI3M_+LMYz=_5hI-NC|isuvWu~%mJYkP6|xxJ_>+JEGf?G8N_-e1L{&T zsg%YPa7+rP@q+t#q4K#zDWfr`qV7d%oCnH%Y+kfUl=h}8TSF^R5nN77`NV`a#*w4B z1EC`Clos*2oO8r+fuZ#U7N&D<{dBEa3+=oo;qX?+m46h`w?3Qw-lu%;#*Y~Az;op(eztNsF!mEQK+N+ramy7f4da$US*e`EU7T#O!eP z^w#VA879EB4zJd;@c&b}(QQvaxZF%_qr>a(UPgQr_y7$&(A02y=apt!YRgrIzn18{oLn;#aKHB1X zzG%$HZENHB&smyUS z!f$V_WRIWzVg5i+hGw|95%?sKH(9HIQM7Oi!AHm!IKw=TF+dbQH|$|<`jB0*%p5k# zH#UMn4?yO_D+NHH;O8~~CRaSS2oAXXo4?zK(!f&>57BEY<0q+8;P^N2!qO@In8Z9R z0*LIfb=;=b|FX~~i3F=>mEA1zfcw9Sws<~2D#~y3ea5)C3$VUe93SuEWh#H1 zNZKoSvbBt>egIr&rgN>Vz}HY(Bk2do67EQ9Yb#I+0F^JHS{QV4{OQLjBr?}L3c`vt zUyJqf+s&7-2H+ef5I$btnAgfIQGa9tOSi4TDwXSiQO4c&5LxVmd~qG45^L73G(6+X zdEumz$S5tIOd5bqr62e4-PRJGV@lTvL_vU!#vHuQoWOV1FPhLbvl*4_Fg^SLNaGxl zT;x0#z<^OdjRQ9O*UD)vZgN^&;uQRn-2>^Z+;@#J~{*D7_c({uAVb*G2!MlSAV3Z16Li$Bi**g%-} zDjosw#F$dr6$Ic5+iL<%)ax?!-zRd#L@DJ!67d9aF!bB#Uh{wq59^mSTFV;oAjje_ z6#yF~8~5=|KfnpI#t+EMe9{R};HtQwF~b)TccB z{`;x%2NV4~aCGhwmKrAbb><;lUU)NrW(sfQTvR!mS;m)2Ve<)iDr+cu}SJDbwd3q65o1 z#)5(Xm0Pf5{tl5HULQ?|Pz&$1F$x>6*f6x_%htO%-ht%c$5VijOysWdn|TWY9AwVh z0K22a-#56;Jj1f(5fW{PoagmfNm6xf*aKFdw~v99=Zw8S7AM!IlL)^6@Mn<=BKPom zj3`zCT`IN4=XS~QD-8HumHvkrpUVSY-$`ZX^fjDjxrE={Au`=s!cZcN5LE1;7gGy} zJC|`fjqoghe~DZc`8Y`vu#O=~@OADOG&YN~;2@)kGc}i6FyG3f0gY0Oqo&}PvLWRDC=jm=! z%B;_)bl7$*GDUyH>k@<#N7qd9%AP2{$+j+rN#YIgm4mZol+2K!UuFguK^LSj7KzjcpD1ZlFly2FbzD zdTddt3FTE9o$6Hh0g^*g7lV=aiGXdYy-0wXNJyzt>Dn3TJ$C%?2CI`9j?NN4H=IX8 zhn<_UGZmGTvW-P5hXlcWhBOReWZheA=gl0=Qz|nfyh)`b&MZ}PMk_dDY5sP|cF(h{ z=1fs$JwAyyOKHHO!fQnmfy(BLF!D0F2MLfm9k5L$xdlbY06U42 zlU&M~WjuCnon@<3(pi={!!|0cKcZrM)^!IzHHngN#Dk=|CQ@UW72Xdyy5pNkx<#_? zhHO7P0ud%)BF0qKv`K`zM14gQ7p&03<75sB-z=`6l4C?OyD^e}?)8+FDR97+Q0e-tQo0}B)cC{PffKtX^41px{a1Sn7tpg=)@ a0{;W9n@vF)qYJu5RV2Afj|%{E6Hoa_dwJi94vTlmo)E#Z@8{XPhTJq_~fWR zXo&RpR0sr~#xprNO-(x&cb6A-F0M?_k5 z2z>jQUwJ}+8-YxFyi6@V{T}16GY)nU@tR& zj0?$)i0VCG@X2);YdHSXe^oUuxmvuRS&77M!68Ud64bgENKh!tKsq1N-O;tM%p)Cy z$L5M4!Kt)jesRf)hB)z;khsIrg588b^Blp)LA0o4wD8e|UlXs(rWv6HzD8?tPY`{C z6G(xO_KuUyM@TE81!lfue~kEmi7@N4v{*uD-bI*k1pFC61ZJM3`Jf>T-!k7o`;dTO zBDao^N7#uYijlfe3J85Z1cl9`j{As-y9hpIJsTxNSq-9PfCRq+fkS}c(~1bajllFl znEha7^+dc*Lr^IG)05b{^Oazc*FV(DrHS>!5>KrFcX z4_$HdR?-BDV+A^0eY~}eX=j4};pK6(O$D)Z72?C%l-|B8YHbv9-qcP`t}HK4sC390 zn)mAYUD>vow&-0tp888%93Rd%EwTj(7zaJXJehC%d7zp{hfKtMZSnh0{KJbH{Ob$) z5ta^Ri&}jyiX|xhQUt2BCai3#I&fP9F7 zh=WAmy=Czjf%sSN()x=N2P4ofWC7`My(4w`@WU-cppA0ka|FUfo{dMRw^FJb2Z50P z5X4m`LwnFl#odBM*ZSY@R{RSy;n%Wk9c{8CvUpa3bZ%z1i-To3!}`nUxy*QfNz)6p zXxW7&xf1cTJ^4=bz?JyS94D)lvmpoD@ zo(KvpmPZNql=!uybeNtf(f@nkhJHWXNU<(K{0BlH_#&*~A^+Q;3atmf2&&|2Ka0@3 zR{V%RXywkI9#8opW6oYlc1JL0K$Nx5#mmcLZkf*p>0JYDUw<)YlUNtS)( zEX4#xT{LC7#TfOGhnC244@|Nkg%(_4Ob=Nma|RhDeN}z+38l|WbZkPTQ@A3y7_YV3 zI9QTCKl;XAM|#>pWg);HuCK(+Iz|>x&P(DGA=e?oMiwb2z)|}KUAg>|&M?`q;;^$e z>l$}qhL92sYf{gYl|u#g{kPmqcYcH}XD+ud3og?xGygNh%e0Vw{^{iLBByq*y$baT z$%@blmi0RUnJ2mF+B2VXbV%>T8_1UARBM-Ng?}a&dYOK|KZH{GQC`W%gokTVrA z5&n&Lt7*h(E>HBis=0h`B=q7Xt0c20({l0Z6n@G7GW!Mp$^Mf*o%lkN$9`WGp9nr) zD#ZPjQuO3Yrsl?D+Q+tq;-AC6*nW1=k^1ES^fD6bX}fB>hTJEu59Ovy4P8w5meiG= z+{_MyMPV<4?sc%2_fPu1;;MglNnaoR;7ei7eK|oDLA^@t{kJw!*h}x8pS*Wh$6e(t zNZt33nx)vey?C28Ur4o<-`dFGOG;{revwjRdXV6&yY!(8sDIV8faw7@(5qy!YHif}Xc~dQVHvxLsN<&pg>Yb>VeF?T|$7sA8-l zam=$Wqb0T_r!J?iTy`vWX7)#F>uTHS+G@4=xAVnS#Z|lefA)XuA4|KJ@qm9^U^Qbk zV?1N7#>~LefV=v0^>=IKie-cRr`y#H&Y=ePpXTX5F)*%FEXgdnHCA6zUqD(=tDdA@ zlr?7CUba`=Q(ag?UA8iTHT|{PsoKxn*5amZP3PD4?WD#ezdFCz%Lmwm;gdu~^ak|) zFTS}^i0O*WrVqT|mh$U7NLk~x)kl&bCj^(O$@^}1Jj;BXG4jy%rfuzuko}10$Vb6_ zJgJgA8MIw9KN^=++z+1{FL)0hW@c1ov~7K!F5MR1ezqO{JNu_l_U){vf-eT!f5^>i ztqe)wXD9PH%oY1<$Y})GR;{w~TJk37m5i6wmfuz;4L&;jL0CFAVc)?6K`MU<~S*_Y3rkk$t{_f z54AEkWa5KMf>&BgnC*USzA0foUVS%^Fz}2hRMY?O*dVs~AM@yTe*%us@KC)lsW{gN zeVQTu)O#L7zvW)c$)Cxm$j@fj@@w2Ly{mGMOY#eky~LDAolu=r7mv-;pQHMj`pS-v z=V!}DsRZ?k3L9TFajn20%X2e2=Q;avIer+R{t?>fgxjt>zG9(%Ku`T7~AY zf&T<=CDd=@_xP5vhCc7pxhnIsuuNLX81 zS}UZ@u+7?^*}GYWL@8fV|D+N*6HZQjBb?Lywsm-)ASRxCu*ZMqt@rj=at7& zUn9S)our&Q8JDO#J>Tla7{<87W+kc~ul+SjKm0&PJAUlW#zUfR#-^*x9gn+&!h}y^ z-*+vty2^VkuN~vg9WxM$O}&coDPF)HVSGhzOV4XBoBl6dG2?OixuJz&oyJeep|SN@ z?~8}ijKuGSB%XSy?CbPAn_3GVNwWQijLA&S^z-LA{cSe=vD#5{ z;W~O%yg_`x=-+que-+a!zJO%kp4s_4A zT0MSy(C_5V5o;{_G6is6+ntslJ{~MMPohpry2iwKw|`+Ncy}7`CX=O-wi*KAeG71C z2m*0>4d2%gh?jf_#JU**A@&Y|xapE;+Np>@JQi1$m(lT@+HCZ4H9CIDem1l1<1=^s zAECP?DMT=63@j3Pc9SoL;FA06|vcZ-5Rv1nc`bR-&);a@fe2yiYUd zo;K}g?zkqhEr`UM&V_G^Ft)l7%){T8umdUs7S7Jj#Qn3EM0L1sSXDlqa1@4TyQ-<0 z%UYYtNbSPc@+@dcJ(zjgk@i(l8{?(zc0z4taErydcZS!5RPxB^h_D6H2!dOgMB_q? zc)ABN#kDvo%D#PjJuslImZMqrwWQ=}bmzxj`zqbsq0i--oS%Iq=juk*jKuxUzD-O| z8~$BeOW1rRo|2kc{_PuPbSHYFNqlv+uu>vs+|rvKt3gL$7tgI&MT|}hQoK-f$!ub} z?wMc6i8Xg;6AVw&nN(G*S|g%lmH(1eLfvYMDHVo{cv6#B+$Qlq%-RX*6sTvO1#(86 zDX}g3ZP%{83TrnvEzwPi{>Z7vNkJI5bmHB}lhk8%ugbufKchccHfJ{}G&Hoz(7ATy zlX}5d-Y><7Gy|J-zqouvQJ$Co={=L0DarotI&M394)nxlB8obcp zXn7Wa=+0oc`^}m9n~J%l@Z(Tfv`I(ZEaa*dPbz7Acc`ZXk0>3{%=-Ge-*~BMcbcHB z$>z)YK?jvtkI&8Qr<-|ArHpj+w?rW{5r>AqNY|2hTG}iq#MHsM9-cC#3CG+i)^QH?Q}{V#bkf-i9OS(3{@D!QqPW`lQPzf2Q+JqWP=ckLs9B;5kqL1ckc4^Vzz9Ja9UWbt?Y&-D&|u<%#Fjdd`DK6a zt;(&R0|P9X>PuJWJKdQcvytA7ac;FS?qac#k+@2UuOa6Dx{F18jL6&3!RWd^?Z{=fw1SBfuQK=9hbtFzC9? z?d<-_Ddz6wxz!Tn4n-)jp{J>0WvvE~qx&bET)hfsjPCT#^7@me2f0r`6pjH)>Rdyc z%3~a?UD&}Pb*hYsj;2%e1S$e0*Q?EmR%g!=-H;wD*+vsv=Af(WUX@y-I6I*zCAMHq zPN)pHm6I`<;vS2ChjJlyBIH>hVmu4tf_si zRsxso*e41MiEKG0rIk{5l2wXJOV6`?|Me93NoKe19Jf2y$gw9abVQQF&Yk?UmBc_O zv5}SObHnDnVZ(*8gMghxAmGYj^Pv9pSdkf&P`cH=UqQh7L#fa!HBs>K5kK0ViB`;o zyp4jThVs-9Zc-ZFYSxnXD0TN@AGw5YdV-E1F!}Df;LyA;-uyzfP-oWNnP zqC};QM^hXSwu}<5HmUyn`7?j$U8vrj8!y@WTfEl2w_y!y%>Ev1DNb-pqPlY82Te}R zqEUE8AWYAv#$A_xkP;9Q1}%v~WSPBud4oL(7j6PN#@XQp!INKhLc5+4d>Q?4!zV-W z{;%WWh~QrOZ#M0Qjzi8yu_vuHjI7ZyQc<1cx0>l+#G+lGn@f{m%CjUa?5`pNYMYxG zPkkAnMv!2lL6&-MmUo+#>uYjTCLmYMg)?%-Hw^dCpf3Ed5}+c$`mDocgR|yN14Rz9 z6l&+5Cta%<$tp7YA=EHVinhYX1thVG=6qCe2UHYlr~lnbf+&V4fWi>bX#rOX5t!~S zRuU=Ca@_Q<_s+5NT+^l0<(SLmSR*|>eSz?cr$4SMh%+nPvR2E>$_4}e{7iG9m-07C zRxcoplxI>VgEbr+8w=wNIPHVWfjxt8+x2dQw=Oo-EY$fhYHwaMJv2KT*VH6Q6{{E% z8{4|#CQ~p{KKKT1sdADeQXch)?u6$LI$T;sqY$~8rQ_7POsRcCLqlj;tIRm)&W(q< zh?YvEBz{P1U_t^Z)XNgxXhGWnNbf@Eq{p32O-&dQ$Y__Xn->PO(hlfj(9%9~;`LY! zAOC)Vd;rOWonKJEFD@Pp!P=L~E0}7^O*!N!oHkuLzCn;MePYZ#AWlcLIaP(<9Y^2( zSmQxx?!)-SAZ!M+^2r5PCd%lbRWJP#-FN*q2S-OA8yo5Ax@AZ(C$?UFpK-Qvg{lg< zCYDJA;Q(1H=s9K6TXw=3`i6$ICI$v)ErWxD(WCZpv0RU#l}a)#`fl6qR6(|KmunkW^G%CaZ%=hm&H81D9H_>-BQ4X3_K$k)CN zWdvf$1fpEz2E!{+x{Pr|aO=GIc%}fgqp;y)_M`{GA|l7GIhujU)ppi+iC`VBP(zo- z8?-pI@6|cR#>UFZ$^zj|D~)oDcybL&KI#^gyTTHE&@JK@6^&43$H-Ji6}{Tp`>&Xw zaErSCB{}ziFn}C{Ru0WFkqrtOBt#hfw?7C8WTm`j?of-JkZd9wMYO{2=iT%W4DFHR z93RFvAi|*{OJu4SDQI={|3o`GKNl%QyJ*noNa}GZaqfm!??!6)qSws% zi>qf#5{9%Q;E~$*AL8%!wjxx?IEDwkM&(R6#h9P!W~~I6Gu1H=5I)ia9UYj6meu`* zSdrNlXsJE2VUv!E>`5|t+A>uJp^CZY$}G2htju0BCCWez{Kx3rM#L)S+VD}OLtWkTeD4+ODFL8~2&yMeFhYwWZF)tNXvHnf zdZ8p)x^mJAm-Pt-yb^X0+9d!ZDq330>#GgZYcX#hA5<=B7eYn?ICHp>gx0s>_O{RZ z)nE4(Xs_^qXokyy_zh-)g3DL-xuhgE6#8j#PQX4b#>rZ&vv$mXh*0jSEz%6 z?efK~3EjP!I_K%==sW|)b9QsS0i5n$oqIwqJ$ zUL+O)+JwZ2RSanqhKq*JmLY)^r4lYDWm*5_c2!l1p5D*ynT6b!2)LWtx0MVZxaN+7 ziC!G~1zIRiY8pRj%%hsvif46CmP!AeO2DlF0E53kmk^D!%mN@HS2`|Ns3Ti6YGH1U zf`ElOco5|N&Dmb8wMGLcI957<{_cIj(az_SHCQzLGqi0_NK6T@KMCMKSo4yrT6z&m5I=a_TY`T|Z zVA*tab>FBL02WA4V%yzv383BB*w{V4M0H&%0sukq8}R&dK1Puh@Dil6CG#^O8cMFu zLZ6&Jaz;4=W@cK4E!o}2A*HQR{`l_8$eKP~UWVdc@|9{$cua_Z%b8z^k<>b_=H0o; z$w>U0Jba#MC+Jqiuj)}T4%hpU)571M0Y)<0NJ!++ej7`M$S^G^obZ`~s&G%0lLRHY zec!QZ`wQqLvymTlxE^Pa;(uSmf(kyjcTQWQ`zSC98X9L*@#9pu8K?$4sX01at@{#1 zhijCHXgI-vP&1%-z}x)Dq_Bs24#-bTOicf_(og2BRZ^mGR5Q=YVn7usfTieJ0asp7 zSpjfCQhG`-Kp210z6}F~J~t)wSBRC9OaBz{??$MR5+EMT5JnB231o_rnd*03*r}HH zJcXg?O0fS7b8yzykjm(nNSMT75taUQYtK8RDlQJ-I3IMdRdz zGeXr1+J}e9Qc_Z2P0PQ3$I+tT=i_TxbmB^eo@oB^`qwXt`qPf%f&s>4KcC}m1?Ueb zln--Sn1FV!?Z#Ni_pRz_0Ek1d$yZnYuxv10)Vknm=I%}bSMPJQd5Rt1O`fB@H`jo+IZ?i}>J{-P<*uRR;d)W&RXhyi z(=IS+zLyGMASWls36+JFK@FINI>l>{77*f8oN}KC0lrol^bg7bd9XEI)4t{|Td32v zx^E8iq@9b)!zu#>o>aLKUCZQffI=`9`4dV8lgLIVnhJ_1z) zE*DAzL=D^kT=EB#(suhQl?0{Nb zCiRVE@0c1pIfL)6j64e|1RvlMudf*w6XPpJf@4(s^wzu&siJconkLzidOVEKnd+(4la8W3N8AuO z&|5YL&C7|aDEAipX*+k>fPxwI>wMX5MQubEeozNVDV|>jjWmRQ9()5E~Jpn z(VTP?9;YJ;|7~AI8LPPD4prE=FQ7j}#j?tvv6gUtCg!ek;%nB2aTm&BnOAl>ntZQ3 zJYdx;TJaYTv|jPzphIaF7Mr6vHH(`z-DjGF7_HKMxFwzs+Zhj*$$U8Mf@A>-s@RL10BZ